<% Const GuestPost=True Rem 是否开启客人支持反对 True False Dim Action If Dvbbs.BoardID=0 Then Msg("评论数据错误,请不要非法提交!") If Dvbbs.GroupSetting(2)="0" Then Msg("你没有权限进行评论!") Action = LCase(Request("action")) Select Case Action Case "post" : Post() Case "list" : list() End Select Sub Post() Dim Rs,SQL,IsAgree,URs,ErrInfo Dim AType,AContent,ATitle,TopicID,PostID,PostTable Dim T_LockTopic,P_LockTopic,P_LockUser TopicID = Dvbbs.CheckNumeric(Request.Form("topicid")) PostID = Dvbbs.CheckNumeric(Request.Form("announceid")) AType = Dvbbs.CheckNumeric(Request.Form("atype")) 'Msg(TopicID&","&PostID&","&AType) If TopicID=0 Or PostID=0 Then Msg("评论数据错误,请不要非法提交!") Exit Sub End If 'AType:0为中立, 1为支持, 2为反对 If AType=2 Then AContent="--反对--" ElseIf AType=0 Then AContent="--中立--" Else AContent="--支持--" End If If Not GuestPost Then If Dvbbs.UserId=0 Then Msg("你没有登陆,请登陆后再支持,谢谢!") Exit Sub End If Set Rs=Dvbbs.Execute("Select Count(1) From Dv_Appraise Where UserID="&Dvbbs.UserId&" And PostID="&PostID) Else Dvbbs.MemberName = Dvbbs.UserTrueIP Set Rs=Dvbbs.Execute("Select Count(1) From Dv_Appraise Where UserName='"&Dvbbs.UserTrueIP&"' And PostID="&PostID) End If If Rs(0)>0 Then Msg("你已经参与过该帖子的评论,不能再次评论!") Exit Sub End If Set Rs=Dvbbs.Execute("Select PostTable,LockTopic,Title From Dv_Topic Where BoardID="&Dvbbs.BoardID&" And TopicID="&TopicID) If Rs.Eof Then Msg("主题ID错误,你要评论的主题不存在或已经被删除") Exit Sub End If PostTable=Rs(0):T_LockTopic = Rs(1):ATitle="Re:"&Dvbbs.CheckStr(Rs(2)) Rs.Close If CInt(T_LockTopic)>0 Then Msg("主题被锁定,不允许评论!") Exit Sub End If Set Rs=Dvbbs.Execute("Select IsAgree,LockTopic,PostUserID From "&PostTable&" Where BoardID="&Dvbbs.BoardID&" And AnnounceID="&PostID) If Rs.Eof Then Msg("帖子ID错误,你要评论的帖子不存在或已经被删除") Exit Sub End If IsAgree = Split(Dvbbs.CheckStr(Rs(0)),"|") P_LockTopic=Rs(1) If CInt(P_LockTopic)>0 Then Msg("帖子被锁定或者屏蔽,不允许评论!") Exit Sub End If Dvbbs.Execute("Insert Into Dv_Appraise (TopicID,PostID,AType,ATitle,AContent,UserID,UserName,[DateTime],Ip,BoardID) Values ("&TopicID&","&PostID&","&AType&",'"&ATitle&"','"&AContent&"',"&Dvbbs.UserID&",'"&Dvbbs.MemberName&"',"&SqlNowString&",'"&Dvbbs.UserTrueIP&"',"&Dvbbs.BoardID&")") If Ubound(IsAgree)<6 Then If Ubound(IsAgree)<1 Then IsAgree = Split("0|0|||0|0|0","|") Else IsAgree = Split(Join(IsAgree,"|")&"|||0|0|0","|") End If End If IsAgree(AType+4)=IsAgree(AType+4)+1 Dvbbs.Execute("UpDate "&PostTable&" Set IsAgree='"&Join(IsAgree,"|")&"' Where BoardID="&Dvbbs.BoardID&" And AnnounceID="&PostID) Rem 提交完成 Msg(TopicID&","&PostID&","&AType) End Sub Sub Msg(Str) Response.Clear Response.write Str Response.End End Sub %>