LVAL ò tTime="&SqlNowString&",LastPost='"&LastPost&"' where TopicID="&RootID
Else
SQL="update Dv_topic set child=child+1,LastPost='"&LastPost&"' where TopicID="&RootID
End If
Else
SQL="update Dv_topic set child=child+1,LastPostTime="&SqlNowString&",LastPost='"&LastPost&"' where TopicID="&RootID
End If
Dvbbs.Execute(SQL)
Child=Child+2
If Child mod Dvbbs.Board_Setting(27)=0 Then
star=Child\Dvbbs.Board_Setting(27)
Else
star=(Child\Dvbbs.Board_Setting(27))+1
End If
Else
Dvbbs.Execute("update Dv_topic set LastPost='"&LastPost&"' where topicid="&RootID)
End If
Else
Rem ´ýÉóºËÈ¡Ïû»Ø¸´¸üÐÂ×îºó·¢Ìù¡£
If Action = 5 Or Action = 7 Then Dvbbs.Execute("update Dv_topic set LastPost='"&LastPost&"' where topicid="&RootID)
End If
If Action = 5 Or Action = 7 Then
toptopic=Replace(cutStr(topic,20),"$","$")
Else
toptopic=Replace(cutStr(toptopic,20),"$","$")
End If
'toptopic =Ö÷±êÌâ,Content=ÄÚÈÝ
'ÅжÏÊÇ·ñÊǼÓÃܵÄÂÛ̳£¬Èç¹ûÊÇ£¬Ôò²»ÏÔʾ×îºó·¢ÌùÄÚÈÝ¡£
If Dvbbs.Board_Setting(2)="1" Then
LastPost_1="±£ÃÜ$" & AnnounceID & "$" & DateTimeStr & "$ÇëÈÏÖ¤Óû§½øÈë²é¿´$" & uploadpic_n & "$" & Dvbbs.UserID & "$" & RootID & "$" & Dvbbs.BoardID
ElseIf signflag=2 Then
LastPost_1=Replace("ÄäÃûÓû§","$","") & "$" & AnnounceID & "$" & DateTimeStr & "$" & toptopic & "$" & uploadpic_n & "$" & " " & "$" & RootID & "$" & Dvbbs.BoardID
Else
LastPost_1=Replace(username,"$","") & "$" & AnnounceID & "$" & DateTimeStr & "$" & toptopic & "$" & uploadpic_n & "$" & Dvbbs.UserID & "$" & RootID & "$" & Dvbbs.BoardID
End If
LastPost_1=reubbcode(Replace(LastPost_1,"'",""))
LastPost_1=Dvbbs.ChkBadWords(LastPost_1)
If IsAudit=0 Then
UpDate_BoardInfoAndCache()
UpDate_ForumInfoAndCache()
End If
Response.Cookies("Dvbbs")=Dvbbs.BoardID
End Sub
'ÅжÏÓû§ÊÇ·ñÓбà¼È¨ÏÞÇÒÌáÈ¡Ïà¹ØÐÅÏ¢
Public Function Get_Edit_PermissionInfo()
Dim old_user
If Action = 4 Then
Set Rs=Dvbbs.Execute("select b.username,b.topic,b.body,b.dateandtime,u.UserGroupID,b.signflag,b.emailflag from "&TotalUseTable&" b left outer join [dv_user] u on b.postuserid=u.userid where b.RootID="&AnnounceID&" and b.AnnounceID="&replyID)
Else
Set Rs=Dvbbs.Execute("select b.username,b.topic,b.body,b.dateandtime,u.UserGroupID,b.signflag,b.emailflag from "&TotalUseTable&" b left outer join [dv_user] u on b.postuserid=u.userid where b.RootID="&RootID&" and b.AnnounceID="&AnnounceID)
End If
If Rs.Eof And Rs.Bof Then
Dvbbs.AddErrCode(48)
Else
If Action = 4 Then
signflag=Rs("signflag")
mailflag=Rs("emailflag")
Topic=rs("topic")
If Topic<>"" Then Topic = Server.HtmlEncode(Topic)
Content=rs("body")
old_user=rs("username")
Else
If Clng(Dvbbs.forum_setting(50))>0 then
If Datediff("s",rs("dateandtime"),Now())>Clng(Dvbbs.forum_setting(50))*60 then
Content = Content+chr(13)+chr(10)+char_changed+chr(13)
End If
Else
Content = Content+chr(13)+chr(10)+char_changed+chr(13)
End If
End If
If Clng(Dvbbs.forum_setting(51))>0 and not (Dvbbs.master or Dvbbs.boardmaster or Dvbbs.superboardmaster) Then
If DateDiff("s",rs("dateandtime"),Now())>Clng(Dvbbs.forum_setting(51))*60 then
parameter="showerr.asp?ErrCodes="&Replace(Replace(template.Strings(22),"{$posttime}",Datediff("s",rs("dateandtime"),Now())/60),"{$etlimited}",Dvbbs.forum_setting(51))&"&action=OtherErr"
Set Dvbbs=Nothing
Response.redirect parameter
End If
End If
If Rs("username")=Dvbbs.membername Then
If Dvbbs.GroupSetting(10)="0" then
Dvbbs.AddErrCode(74)
CanEditPost=False
Else
CanEditPost=True
End If
Else
signflag=Rs("signflag")
mailflag=Rs("emailflag")
If (Dvbbs.master or Dvbbs.superboardmaster or Dvbbs.boardmaster) and Dvbbs.GroupSetting(23)="1" then
CanEditPost=True
Else
CanEditPost=False
End If
If Cint(Dvbbs.UserGroupID) > 3 And Dvbbs.GroupSetting(23)="1 LVAL ó " Then CanEditPost=true
If Dvbbs.GroupSetting(23)="1" and Dvbbs.founduserPer Then
CanEditPost=True
ElseIf Dvbbs.GroupSetting(23)="0" And Dvbbs.founduserPer Then
CanEditPost=False
End If
If Cint(Dvbbs.UserGroupID) < 4 And Cint(Dvbbs.UserGroupID) = rs("UserGroupID") Then
Dvbbs.AddErrCode(75)
ElseIf Cint(Dvbbs.UserGroupID) < 4 and Cint(Dvbbs.UserGroupID) > rs("UserGroupID") Then
Dvbbs.AddErrCode(76)
End If
If Not CanEditPost Then Dvbbs.AddErrCode(77)
End If
End If
Set Rs=Nothing
Dvbbs.ShowErr()
If Action = 4 Then Dvbbs.MemberName=old_user
End Function
Public Sub Get_SaveRe_TopicInfo()
SQL="select locktopic,LastPost,title,smsuserlist,IsSmsTopic,istop,Child,UseTools,LastPostTime,GetMoneyType,PostUserID, DateAndTime from Dv_topic where BoardID="&Dvbbs.BoardID&" And topicid="&cstr(RootID)
Set Rs=dvbbs.Execute(sql)
If Not (Rs.EOF And Rs.BOF) Then
toptopic = Rs(2)
istop = Rs(5)
Child = Rs(6)
Tools_UseTools = "," & Rs(7) & ","
Tools_LastPostTime = Rs(8)
If Rs("IsSmsTopic")=1 Then smsuserlist=Rs("smsuserlist")
If Rs("LockTopic")=1 And Not (Dvbbs.Master Or Dvbbs.BoardMaster Or Dvbbs.SuperBoardMaster) Then Dvbbs.AddErrCode(78)
'Ëø¶¨¶àÉÙÌìÇ°µÄÌû×ÓÅÐ¶Ï 2004-9-16 Dv.Yz
If Ubound(Dvbbs.Board_Setting) > 70 And Not (Dvbbs.Master Or Dvbbs.BoardMaster Or Dvbbs.SuperBoardMaster) Then
If Not Clng(Dvbbs.Board_Setting(71)) = 0 And Datediff("d", Rs(11), Now()) > Clng(Dvbbs.Board_Setting(71)) Then Dvbbs.AddErrCode(78)
End If
If Not IsNull(Rs(1)) Then
LastPost=split(Rs(1),"$")
If ubound(LastPost)=7 Then
UpLoadPic_n=LastPost(4)
Else
UpLoadPic_n=""
End If
End If
If Cint(Rs(9)) = 5 Then
Set Dvbbs=Nothing
Response.redirect"showerr.asp?ErrCodes=
"+""&template.Strings(32)&"&action=OtherErr"
Exit Sub
End If
If Clng(Rs(10)) <> Dvbbs.UserID and Cint(Rs(9)) = 2 and GetPostType = "1" Then
GetMoneyType = 4
Dvbbs.UserSession.documentElement.selectSing