动网我顶我踩加强版
安装了这个的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
真正实现了把帖子顶上去，踩下去的功能！
**** Hidden Message *****