动网我顶我踩加强版

蓝雨

安装了这个的 http://bbs.dvbbs.net/dispbbs.asp?boardid=13&Id=1510654 可以继续往下看 修改文件为Appraise.asp 红色字符为添加 Dvbbs.Execute(\"UpDate \"&PostTable&\" Set IsAgree=\'\"&Join(IsAgree,\"|\")&\"\' Where BoardID=\"&Dvbbs.BoardID&\" And AnnounceID=\"&PostID) Call Dig() Rem 提交完成 然后在最后一个%> 的上面增加 Sub Dig() Dim TopicID,AType TopicID = Dvbbs.CheckNumeric(Request.Form(\"topicid\")) AType = Dvbbs.CheckNumeric(Request.Form(\"atype\")) If AType=2 Then Dvbbs.Execute(\"Update dv_topic set LastPostTime=dateadd(\'d\',-1,LastPostTime) where boardID=\"&Dvbbs.BoardID&\" and topicID=\"&TopicID) ElseIf AType=1 Then Dvbbs.Execute(\"Update dv_topic set LastPostTime=\"&SqlNowString&\" where boardID=\"&Dvbbs.BoardID&\" and topicID=\"&TopicID) End If End Sub 真正实现了把帖子顶上去，踩下去的功能！

游客，如果您要查看本帖隐藏内容请回复