楼主给改一下Comment.asp文件,让它能把每篇文章的评论数上传到KS_Article这个表里的自己添加的字段里面
- RS.Open "Select top 1 * From KS_Comment Where 1=0",conn,1,3
- RS.AddNew
- RS("ChannelID")=QuoteArray(0,0)
- RS("InfoID")=QuoteArray(1,0)
- RS("AnounName")=AnounName
- RS("UserName")=UserName
- RS("Anonymous")=Anonymous
- RS("Email")=Email
- RS("Content")=KS.HTMLEncode(Content)
- RS("QuoteContent")=QuoteContent
- RS("UserIP")=KS.GetIP
- RS("Point")=0
- RS("Score")=0
- RS("OScore")=0
- RS("Verific")=Verific
- RS("AddDate")=Now
- RS.UpDate
- RS.Close
下面是我加的
- Dim Sql,id
- id = KS.ChkClng(QuoteArray(1,0))
- sql = "update [KS_Article] set CommentNum="&totalPut&" where ID="&id
- conn.execute sql
这样写传不上去