ASP论坛程序dvbbs v8.0发帖接口- 获取代码 -ET采集官方网站-自在工坊 EditorTools全自动无人值守采集软件

ASP论坛程序dvbbs v8.0发帖接口

检查接口说明

4、发布配置-文章检查网址处，可以如下填写：
　　ET2：http://您的网址/etchk.asp?keyword=<%title%>
　　ET1.4：http://您的网址/etchk.asp?keyword=%title%
　　（使用大小写敏感的服务器的用户请注意网址大小写和网站文件一致）

5、接口文件无须任何改动即可使用，如果你希望增加校验或其他功能，请仔细修改；

下载GBK检查接口文件

下载UTF-8检查接口文件

检查接口代码

<!--#include file="conn.asp"--><br/> <!--#include file="inc/const.asp"--><br/> <!--#include file="inc/dv_clsother.asp"--> <br/> <%</p><p> <br/> dim keyword,Rs,SQL<br/>  <br/>  keyword=Dvbbs.Checkstr(trim(request("keyword")))<br/>  Set Rs=Server.CreateObject("Adodb.RecordSet")<br/>  SQL="Select top 1 * From DV_topic where title='"&keyword&"'"<br/>  If Not IsObject(Conn) Then ConnectionDatabase<br/>  Rs.Open SQL,Conn,1,3<br/>  if rs.eof then<br/>   response.Write("0")<br/>  else<br/>   response.Write("1")<br/>  end if<br/>  rs.close<br/>  set dvbbs=nothing<br/>  set rs=nothing<br/>  response.End()</p><p> %><br/>

发布接口说明

注：以下参数名后“=”号为示范取值而用，参数名本身不含“=”号

4、附加参数
　　boardid 论坛版块编号(取值为您要发布的版面号)
　　action=snew 动作（值snew勿更改）

5、发布配置-文章检查网址处，可以如下填写（http://您的网址/etpost.asp）；
　　（使用大小写敏感的服务器的用户请注意网址大小写和网站文件一致）

7、接口文件无须任何改动即可使用，如果你希望增加校验或其他功能，请仔细修改；

下载GBK发布接口文件

下载UTF-8发布接口文件

发布接口代码

<!--#include file="conn.asp" --><br/> <!--#include file="inc/const.asp"--><br/> <!--#include file="inc/dv_clsother.asp"--><br/> <!--#include file="inc/md5.asp"--><br/> <!--#include file="inc/ubblist.asp"--><br/> <!--#include file="inc/Email_Cls.asp"--></p><p> <br/> <%</p><p> </p><p> Dim parameter<br/> If Dvbbs.BoardID < 1 Then</p><p>  '以下为ET增加的代码<br/>  Response.Write "0"<br/>  '以上为ET增加的代码</p><p>  'Response.Write "参数错误"<br/>  Set Dvbbs=Nothing<br/>  Response.End<br/> End If</p><p> Dim MyPost<br/> Dim postbuyuser,bgcolor,abgcolor,FormID<br/> Dvbbs.Loadtemplates("post")<br/> Set MyPost = New Dvbbs_Post<br/> Dvbbs.Stats = MyPost.ActionName</p><p> 'Dvbbs.Nav()<br/> 'Dvbbs.Head_var 1,Application(Dvbbs.CacheName&"_boardlist").documentElement.selectSingleNode("board[@boardid='"&Dvbbs.BoardID&"']/@depth").text,"",""<br/> MyPost.Save_CheckData</p><p> Set MyPost = Nothing<br/> 'Dvbbs.ActiveOnline<br/> 'Dvbbs.Footer</p><p> Class Dvbbs_Post<br/>  Public Action,ActionName,Star,Page,IsAudit,TotalUseTable,ToAction,TopicMode,Reuser<br/>  Private AnnounceID,ReplyID,ParentID,RootID,Topic,Content,char_changed,signflag,mailflag,iLayer,iOrders<br/>  Private TopTopic,IsTop,LastPost,LastPost_1,UpLoadPic_n,ihaveupfile,smsuserlist,upfileinfo<br/>  Private UserName,UserPassWord,UserPost,GroupID,UserClass,DateAndTime,DateTimeStr,Expression,MyLastPostTime,LastPostTimes<br/>  Private LockTopic,MyLockTopic,MyIsTop,MyIsTopAll,MyTopicMode,Child<br/>  Private CanLockTopic,CanTopTopic,CanTopTopic_a,CanEditPost,Rs,SQL,i,IsAuditcheck<br/>  Private vote,votetype,votenum,votetimeout,voteid,isvote,ErrCodes<br/>  Private GetPostType,ToMoney,UseTools,ToolsBuyUser,GetMoneyType,Tools_UseTools,Tools_LastPostTime,ToolsInfo,ToolsSetting<br/>  Private tMagicFace,iMagicFace,tMagicMoney,tMagicTicket,FoundUseMagic,isAlipayTopic<br/>  Private Sub Class_Initialize()<br/>   ErrCodes = ""<br/>   <br/>   '管理员及该版版主允许在锁定论坛发帖<br/> '  If Dvbbs.Board_Setting(0)="1" And Not (Dvbbs.Master or Dvbbs.Boardmaster) Then<br/> '   parameter="showerr.asp?action=lock&boardid="&dvbbs.boardID&"" <br/> '   Set Dvbbs=Nothing<br/> '   Response.redirect parameter<br/> '  End If<br/> '  If Dvbbs.IsReadonly()  And Not Dvbbs.Master Then <br/> '   parameter="showerr.asp?action=readonly&boardid="&dvbbs.boardID&"" <br/> '   Set Dvbbs=Nothing<br/> '   Response.redirect parameter<br/> '  End If</p><p>   '以下为ET增加的代码<br/>   Action = "snew"<br/>   '以上为ET增加的代码<br/>   <br/>   'Action = Request("Action")<br/>   TotalUseTable = Dvbbs.NowUseBBS<br/> '  Select Case Action<br/> '  Case "snew"<br/>    Action = 5<br/>    ActionName = template.Strings(1)<br/> '   If Dvbbs.GroupSetting(3)="0" Then Dvbbs.AddErrCode(70)</p><p> '  Case "sre"<br/> '   Action = 6<br/> '   ActionName = template.Strings(3)<br/> '   If Dvbbs.GroupSetting(5)="0" then Dvbbs.AddErrCode(71)<br/> '  Case "svote"<br/> '   Action = 7<br/> '   ActionName = template.Strings(5)<br/> '   If Dvbbs.GroupSetting(8)="0" then Dvbbs.AddErrCode(56)<br/> '  Case "sedit"<br/> '   Action = 8<br/> '   ActionName = template.Strings(7)<br/> '  Case Else<br/> '   Action = 1<br/> '   ActionName = template.Strings(0)<br/> '  End Select<br/>   Star = Request("star")<br/>   If Star = "" Or Not IsNumeric(Star) Then Star = 1<br/>   Star = Clng(Star)<br/>   Page = Request("page")<br/>   If Page = "" Or Not IsNumeric(Page) Then Page = 1<br/>   Page = Clng(Page)<br/>   'IsAudit = Cint(Dvbbs.Board_Setting(3))<br/>   IsAudit=0<br/>   Reuser = False'此变量标识是否更名发贴<br/>   FoundUseMagic = False<br/>  End Sub<br/>  Public Function inpostlist()<br/>   Dim Rs<br/>   Set Rs=Dvbbs.Execute("Select * From Dv_lastpost Where PostuserID=" & Dvbbs.userID & " order by DateAndtime Desc")<br/>   If Not Rs.EOF Then<br/>    If Datediff("s", Rs("DateAndtime"), Now()) < 10 Then<br/>     inpostlist="<li>您不能在10秒内多次发贴"<br/>    Else<br/>     Do while Not Rs.EOF<br/>     If Rs("PostTitle")=Left(Trim(Request("topic")&"")& Request("body"),150) Then<br/>      inpostlist="<li>您不能重复发贴"<br/>      Exit Do<br/>     End If<br/>      Rs.MoveNext<br/>     Loop  <br/>    End If<br/>   Else<br/>    inpostlist=""<br/>   End If<br/>   Set Rs=Nothing <br/>  End Function<br/>  Public Function CheckFormID(id)<br/>   CheckFormID=false<br/>   Dim i,Str<br/>   For i=1 to Len(id)<br/>    Str=Str & Asc(Mid(id,i,1))-97<br/>   Next<br/>   If Session.SessionID=Str Then<br/>    CheckFormID=True<br/>   End If<br/>  End Function<br/>  '通用判断<br/>  Public Function Chk_Post()<br/>   FormID=Request("Dvbbs")<br/>   If FormID="" Then FormID=Request.Cookies("Dvbbs"):Response.Cookies("Dvbbs")=""<br/>   'If Not CheckFormID(FormID) Then Set Dvbbs=Nothing:Response.redirect "showerr.asp?ErrCodes=您提交的参数错误&action=OtherErr"<br/>   If Dvbbs.Board_Setting(43)="1" Then Dvbbs.AddErrCode(72)<br/>   If Dvbbs.Board_Setting(1)="1" and Dvbbs.GroupSetting(37)="0" Then Dvbbs.AddErrCode(26)<br/>   If Dvbbs.UserID>0 Then<br/>    If Clng(Dvbbs.GroupSetting(52))>0 And DateDiff("s",Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@joindate").text,Now)<Clng(Dvbbs.GroupSetting(52))*60 Then <br/>     parameter="showerr.asp?ErrCodes=<li>"&Replace(template.Strings(21),"{$timelimited}",Dvbbs.GroupSetting(52))&"&action=OtherErr"<br/>     Set Dvbbs=Nothing<br/>     Response.redirect parameter<br/>    End If<br/>    If Dvbbs.GroupSetting(62)<>"0" And Not Action = 8 Then<br/>     If Clng(Dvbbs.GroupSetting(62))<=Clng(Dvbbs.UserToday(0)) Then <br/>      parameter="showerr.asp?ErrCodes=<li>"&Replace(template.Strings(27),"{$topiclimited}",Dvbbs.GroupSetting(62))&"&action=OtherErr"<br/>      Set Dvbbs=Nothing<br/>      Response.redirect parameter<br/>     End If<br/>    End If<br/>   End If<br/>   If Dvbbs.GroupSetting(3)="0" And (Action = 5 Or Action = 7) Then Set Dvbbs=Nothing:Response.redirect "showerr.asp?ErrCodes=<li>"&template.Strings(28)&"&action=OtherErr"<br/>   If Dvbbs.GroupSetting(5)="0" And (Action = 6) Then Set Dvbbs=Nothing:Response.redirect "showerr.asp?ErrCodes=<li>"&template.Strings(29)&"&action=OtherErr"<br/>  End Function</p><p>  '返回判断和参数<br/>  Public Function Get_M_Request()<br/>   AnnounceID = Request("ID")<br/>   If AnnounceID = "" Or Not IsNumeric(AnnounceID) Then Dvbbs.AddErrCode(30)<br/>   Dvbbs.ShowErr()<br/>   AnnounceID = cCur(AnnounceID)<br/>  End Function<br/>  </p><p>  '判断发表类型及权限 GetPostType 0=赠送金币贴(求回复答案),1=获赠金币贴,2=金币购买贴<br/>  Private Sub Chk_PostType()<br/>   Dim ToolsID<br/>   ToolsID = Trim(Request("ToolsID"))<br/>   GetPostType = Trim(Request("GetPostType"))<br/>   ToMoney = Trim(Request("ToMoney"))<br/>   If ToMoney="" or Not Isnumeric(ToMoney) Then ToMoney = 0<br/>   If ToolsID="" or Not Isnumeric(ToolsID) Then<br/>    ToolsID = ""<br/>   Else<br/>    ToolsID = Cint(ToolsID)<br/>   End If<br/>   ToMoney = cCur(ToMoney)<br/>   UseTools = ""<br/>   ToolsBuyUser = ""<br/>   GetMoneyType = 0<br/>   If Dvbbs.GroupSetting(59)<>1 Then Exit Sub<br/>   If GetPostType<>"" and (Action = 5 or Action = 7) Then<br/>    Select Case GetPostType<br/>    Case "0"<br/>     If ToMoney = 0 or ToMoney > CCur(Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usermoney").text)  Or ToMoney < 0 Then Set Dvbbs=Nothing:Response.redirect "showerr.asp?ErrCodes=<li>您设置的金币值为空或者多于您拥有的金币数量。&action=OtherErr"<br/>     Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usermoney").text  = CCur(Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usermoney").text) -ToMoney<br/>     'UseTools = "-1111"<br/>     ToolsBuyUser = "0|||$SendMoney"<br/>     GetMoneyType = 1<br/>    Case "1"<br/>     ToolsBuyUser = "0|||$GetMoney"<br/>     GetMoneyType = 2<br/>     'UseTools = ToolsInfo(4)<br/>    Case "2"<br/>     If ToMoney = 0 Or ToMoney < 0 Then Set Dvbbs=Nothing:Response.redirect "showerr.asp?ErrCodes=<li>请正确填写购买帖的金币数量。&action=OtherErr"<br/>     Dim Buy_Orders,Buy_VIPType,Buy_UserList<br/>     Buy_Orders = Request("Buy_Orders")<br/>     Buy_VIPType = Request("Buy_VIPType")<br/>     Buy_UserList = Request("Buy_UserList")<br/>     If Buy_Orders<>"" and IsNumeric(Buy_Orders) Then<br/>      Buy_Orders = cCur(Buy_Orders)<br/>     Else<br/>      Buy_Orders = -1<br/>     End If<br/>     If Not IsNumeric(Buy_VIPType) Then Buy_VIPType = 0<br/>     If Buy_UserList<>"" Then Buy_UserList = Replace(Replace(Replace(Buy_UserList,"|||",""),"@@@",""),"$PayMoney","")<br/>     ToolsBuyUser = "0@@@"&Buy_Orders&"@@@"&Buy_VIPType&"@@@"&Buy_UserList&"|||$PayMoney|||"<br/>     GetMoneyType = 3<br/>     'UseTools = ToolsInfo(4)<br/>    End Select<br/>   End If<br/>   '回复获赠金币帖判断<br/>   If Action = 6 and GetPostType = "1" Then<br/>    If ToMoney = 0 or ToMoney > CCur(Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usermoney").text)  Or ToMoney < 0 Then Set Dvbbs=Nothing:Response.redirect "showerr.asp?ErrCodes=<li>您设置的金币值为空或者多于您拥有的金币数量。&action=OtherErr"<br/>   End If<br/>  End Sub</p><p>  '更新用户及系统道具数量(用户ID，道具ID，减少数量)<br/>  Private Sub UpdateUserTools(U_UserID,U_ToolsID,n)<br/>   Dim Sql,Rs<br/>   If Clng(n)<0 Then<br/>    n = "+" & n<br/>   Else<br/>    n = "-" & n<br/>   End If<br/>   Set Rs = Dvbbs.Plus_Execute("Select ID From [Dv_Plus_Tools_Buss] Where UserID="& U_UserID &" and ToolsID="& U_ToolsID)<br/>   If Rs.Eof And Rs.Bof Then<br/>    Dim Trs<br/>    Set Trs = Dvbbs.Plus_Execute("Select ToolsName From Dv_Plus_Tools_Info Where ID=" & U_ToolsID)<br/>    If Not (Trs.Eof And Trs.Bof) Then<br/>     Sql = "Insert Into [Dv_Plus_Tools_Buss] (UserID,UserName,ToolsID,ToolsName,ToolsCount) Values ("&U_UserID&",'"&Dv_Tools.ToUserInfo(1)&"',"&U_ToolsID&",'"&Trs(0)&"',"&Clng(Replace(Replace(n,"+",""),"-",""))&")"<br/>     Dvbbs.Plus_Execute(Sql)<br/>    End If<br/>    Trs.Close<br/>    Set Trs=Nothing<br/>   Else<br/>    Sql = "Update [Dv_Plus_Tools_Buss] Set ToolsCount = ToolsCount"&n&" Where UserID="& U_UserID &" and ToolsID="& U_ToolsID<br/>    Dvbbs.Plus_Execute(Sql)<br/>   End If<br/>   Rs.Close<br/>   Set Rs=Nothing<br/>   Sql = "Update [Dv_Plus_Tools_Info] Set UserStock =  UserStock"&n&" Where ID="& U_ToolsID<br/>   Dvbbs.Plus_Execute(Sql)<br/>  End Sub<br/>  '回复获赠金币帖时更新<br/>  Public Sub GetMoney_SaveRe()<br/>   Dim ToUserID,ToUserName,UpPostBuyUser,UpGetMoney,Tempstr<br/>   SQL="Select PostUserID,GetMoney,PostBuyUser,Username From "&TotalUseTable&" Where RootID="&RootID&" and ParentID=0 and GetMoneyType=2"<br/>   Set Rs = Server.CreateObject("ADODB.Recordset")<br/>   Rs.Open SQL,conn,1,3<br/>    If Not Rs.Eof Then<br/>     ToUserID = Clng(Rs(0))<br/>     UpGetMoney = Rs(1) + ToMoney<br/>     UpPostBuyUser = Rs(2)<br/>     ToUserName = Rs(3)<br/>     Tempstr = Split(UpPostBuyUser,"|||",2)<br/>     Tempstr(0) = UpGetMoney<br/>     Tempstr(1) = Tempstr(1) & "|||" & UserName &","& ToMoney<br/>     UpPostBuyUser = Tempstr(0) & "|||" & Tempstr(1)<br/>     UpPostBuyUser = Trim(UpPostBuyUser)<br/>     Rs(1) = UpGetMoney<br/>     Rs(2) = UpPostBuyUser<br/>    Rs.update<br/>    End If<br/>   Rs.Close : Set Rs=Nothing</p><p>   '更新主题MONEY值<br/>   Sql = "Update [Dv_Topic] Set GetMoney="&UpGetMoney&" where TopicID="&RootID<br/>   Dvbbs.Execute(sql)<br/>   '主题作者获取金币<br/>   Sql = "Update [Dv_User] Set UserMoney=UserMoney + "&ToMoney&" where UserID="&ToUserID<br/>   Dvbbs.Execute(sql)<br/>   '插入道具日志<br/>   'Dim LogMsg<br/>   'LogMsg = "<a href=""dispbbs.asp?boardid="&Dvbbs.boardid&"&id="&RootID&"&star="&Star&"#"&Announceid&""" target=_blank>回复主题：《<B>"&topic&"</B>》</a> 赠道给作者:<b>"&ToUserName&"</b><font color="&Dvbbs.mainsetting(1)&">"&ToMoney&"</font>个金币成功，并插入道具日志记录。"<br/>   'Call Dvbbs.ToolsLog(0,0,ToMoney,0,0,LogMsg,Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usermoney").text &"|"&Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userticket").text)<br/>  End Sub</p><p>  Rem ------------------------<br/>  Rem 保存部分函数开始<br/>  Rem ------------------------<br/>  '检查数据,提取数据，获得贴子数据表名等。<br/>  Public Sub Save_CheckData()<br/>   Dim rsUser,article,userclass,titlepic<br/>   Dim userhidden,lastip,UserLastLogin<br/>   Dim GroupID,ClassSql,FoundGrade<br/>   Dim regname,iMyUserInfo<br/>   Dim sql,sqlstr,OLDuserhidden<br/> '  Chk_Post()<br/> '  CheckfromScript()</p><p> <br/>   '以下为ET增加的代码---修改自ChkUserLogin<br/>    '取得发贴用户名和密码<br/>   UserName=Dvbbs.Checkstr(trim(Request("username")))<br/>   '校验用户名和密码是否合法<br/>   If UserName="" Or Dvbbs.strLength(userName)>Cint(Dvbbs.Forum_setting(41)) Or Dvbbs.strLength(userName) < Cint(Dvbbs.Forum_setting(40)) Then<br/>    response.Write("[err]用户名密码非法[/err]")<br/>    Set Dvbbs=Nothing<br/>    response.End() <br/>   end if<br/>   If Not IstrueName(UserName) Then<br/>    response.Write("[err]用户名密码非法[/err]")<br/>    Set Dvbbs=Nothing<br/>    response.End() <br/>   end if<br/>   <br/>   userhidden=request("userhidden")<br/>   If userhidden <> "1" Then userhidden=2<br/>    <br/>   'Reuser=True<br/>   UserPassWord=Dvbbs.Checkstr(trim(Request("passwd")))<br/>   UserPassWord=md5(UserPassWord,16)<br/>   SQL = "Select UserID,UserName,UserPassword,UserEmail,UserPost,UserTopic,UserSex,UserFace,UserWidth,UserHeight,JoinDate,LastLogin,lastlogin as cometime , LastLogin as activetime,UserLogins,Lockuser,Userclass,UserGroupID,UserGroup,userWealth,userEP,userCP,UserPower,UserBirthday,UserLastIP,UserDel,UserIsBest,UserHidden,UserMsg,IsChallenge,UserMobile,TitlePic,UserTitle,TruePassWord,UserToday,UserMoney,UserTicket,FollowMsgID,Vip_StarTime,Vip_EndTime,userid as boardid From [Dv_User] Where UserName='"&UserName&"' "<br/>    Set RsUser=Dvbbs.Execute(SQL)<br/>   <br/>    If Not RsUser.EOF Then<br/>    if UserPassWord<>RsUser("UserPassword") then<br/>     response.Write("[err]密码不符[/err]")<br/>     Set RsUser = Nothing<br/>     Set Dvbbs=Nothing<br/>     response.End() <br/>    end if<br/>     Dvbbs.UserID=RsUser("UserID")<br/>     RegName = RsUser("UserName")<br/>     Article= RsUser("UserPost")<br/>     UserPost=RsUser("UserPost")<br/>     UserLastLogin = RsUser("cometime")<br/>     UserClass = RsUser("Userclass")  <br/>     GroupID = RsUser("userGroupID")<br/>     OLDuserhidden=RsUser("UserHidden")<br/>     TitlePic = RsUser("UserTitle")<br/>     If Article < 0  Then Article=0<br/>     <br/>     Dvbbs.UserToday = Split(RsUser("UserToday"),"|")<br/>     If Ubound(Dvbbs.UserToday) <> 4 Then<br/>      Execute("Update [Dv_User] Set UserToday='0|0|0|0|0' Where UserID = " & Dvbbs.UserID)<br/>      Dvbbs.UserToday = Split("0|0|0|0|0","|")<br/>     End If<br/>    <br/>     Set Dvbbs.UserSession=Dvbbs.RecordsetToxml(rsUser,"userinfo","xml")<br/>     Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@cometime").text=Now()<br/>     Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@activetime").text=DateAdd("s",-3600,Now())<br/>     Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@boardid").text=0<br/>     Dvbbs.UserSession.documentElement.selectSingleNode("userinfo").attributes.setNamedItem(Dvbbs.UserSession.createNode(2,"isuserpermissionall","")).text=Dvbbs.FoundUserPermission_All()<br/>     If OLDuserhidden <> CLng(userhidden) Then<br/>      Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userhidden").text=userhidden<br/>      Dvbbs.Execute("update Dv_user set userhidden="&userhidden&" where UserId=" & Dvbbs.UserID)<br/>     End If<br/>     Dim BS<br/>     Set Bs=Dvbbs.GetBrowser()<br/>     Dvbbs.UserSession.documentElement.appendChild(Bs.documentElement)<br/>     If EnabledSession Then  Session(Dvbbs.CacheName & "UserID")=Dvbbs.UserSession.xml</p><p> </p><p> '   Dvbbs.UserID=Rs(1) </p><p> '   GroupID=Rs(3)<br/> '   userclass=Rs(4)<br/>    Response.cookies("upNum")=0<br/>    End If<br/>    Set Rs = Nothing<br/>   <br/>   '以上为ET增加的代码</p><p> </p><p>   '把提交的数据保存到session<br/> '  Content = CheckAlipay()<br/> '  isAlipayTopic = 2<br/> '  If Content = "" Then<br/>    Content = Dvbbs.Checkstr(Request("body"))<br/>    isAlipayTopic = 0<br/> '  End If<br/> '  If InStr(Content,"[/payto]") > 0 And InStr(Content,"[payto]") > 0 And InStr(Content,"(/seller)") > 0 And InStr(Content,"(seller)") > 0 Then isAlipayTopic = 2<br/>   Dvbbs.UserSession.documentElement.selectSingleNode("userinfo").attributes.setNamedItem(Dvbbs.UserSession.createNode(2,"postdata","")).text= Request("body")<br/> '  If Dvbbs.Board_Setting(4) = "1" Then<br/> '   If Not Dvbbs.CodeIsTrue() Then<br/> '    Set Dvbbs=Nothing<br/> '     Response.redirect "showerr.asp?ErrCodes=<li>验证码校验失败，2秒后自动返回上一页面。&action=OtherErr&autoreload=1"<br/> '   End If<br/> '  End If<br/>   Chk_PostType()</p><p>   '魔法表情检查部分<br/> '  tMagicFace = Request("tMagicFace")<br/> '  If tMagicFace = "" Or Not IsNumeric(tMagicFace) Then tMagicFace = 0<br/> '  tMagicFace = Cint(tMagicFace)<br/> '  iMagicFace = Request("iMagicFace")<br/> '  If iMagicFace = "" Or Not IsNumeric(iMagicFace) Then iMagicFace = 0<br/> '  iMagicFace = Clng(iMagicFace)<br/>   Expression = Dvbbs.Checkstr(Request("Expression"))<br/>   If Expression = "" Then<br/>    Expression = "face1.gif"<br/>   Else<br/>    Expression = Replace(Expression,"|","")<br/>   End If<br/> '  If tMagicFace = 1 And iMagicFace > 0 And Dvbbs.Forum_Setting(98)="1" Then<br/> '   Set Rs = Dvbbs.Plus_Execute("Select tMoney,tTicket,MagicSetting From Dv_Plus_Tools_MagicFace Where MagicFace_s = " & iMagicFace)<br/> '   If Rs.Eof And Rs.Bof Then<br/> '    Expression = "0|" & Expression<br/> '    tMagicMoney = 0<br/> '    tMagicTicket = 0<br/> '   Else<br/> '    If cCur(Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userticket").text) < Rs(1) And cCur(Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usermoney").text ) < Rs(0) Then Set Dvbbs=Nothing:Response.redirect "showerr.asp?ErrCodes=<li>您没有足够的金币或点券使用魔法表情，2秒后自动返回上一页面。&action=OtherErr&autoreload=1"<br/> '    Dim iMagicSetting<br/> '    iMagicSetting = Split(Rs(2),"|")<br/> '    If cCur(iMagicSetting(0)) > cCur(Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userpost").text ) Then Set Dvbbs=Nothing:Response.redirect "showerr.asp?ErrCodes=<li>您的帖子数没有达到使用魔法表情的标准，2秒后自动返回上一页面。&action=OtherErr&autoreload=1"<br/> '    If cCur(iMagicSetting(1)) > cCur(Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userwealth").text) Then Set Dvbbs=Nothing:Response.redirect "showerr.asp?ErrCodes=<li>您的金钱数没有达到使用魔法表情的标准，2秒后自动返回上一页面。&action=OtherErr&autoreload=1"<br/> '    If cCur(iMagicSetting(2)) > cCur(Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userep").text) Then Set Dvbbs=Nothing:Response.redirect "showerr.asp?ErrCodes=<li>您的经验数没有达到使用魔法表情的标准，2秒后自动返回上一页面。&action=OtherErr&autoreload=1"<br/> '    If cCur(iMagicSetting(3)) > cCur(Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usercp").text ) Then Set Dvbbs=Nothing:Response.redirect "showerr.asp?ErrCodes=<li>您的魅力数没有达到使用魔法表情的标准，2秒后自动返回上一页面。&action=OtherErr&autoreload=1"<br/> '    If cCur(iMagicSetting(4)) > cCur(Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userpower").text) Then Set Dvbbs=Nothing:Response.redirect "showerr.asp?ErrCodes=<li>您的威望数没有达到使用魔法表情的标准，2秒后自动返回上一页面。&action=OtherErr&autoreload=1"<br/> '    Expression = iMagicFace & "|" & Expression<br/> '    tMagicMoney = Rs(0)<br/> '    tMagicTicket = Rs(1)<br/> '    FoundUseMagic = True<br/> '   End If<br/> '   Rs.Close<br/> '   Set Rs=Nothing<br/> '  Else<br/>    Expression = "0|" & Expression<br/> '  End If<br/>   Expression = Split(Expression,"|")<br/>   Topic = Dvbbs.Checkstr(Trim(Request("topic")))<br/>   signflag = Dvbbs.Checkstr(Trim(Request("signflag")))<br/>   mailflag = Dvbbs.Checkstr(Trim(Request("emailflag")))<br/>   MyTopicMode = Dvbbs.Checkstr(Trim(Request("topicximoo")))<br/>   MyLockTopic = Dvbbs.Checkstr(Trim(Request("locktopic")))<br/>   Myistop = Dvbbs.Checkstr(Trim(Request("istop")))<br/>   Myistopall = Dvbbs.Checkstr(Trim(Request("istopall")))<br/>   TopicMode = Request("topicmode")<br/>   If Dvbbs.strLength(topic)> CLng(Dvbbs.Board_Setting(45)) Then<br/>    '以下为ET增加的代码<br/>    response.Write("[err]标题超过限制[/err]")<br/>    Set Dvbbs=Nothing<br/>    response.End() <br/>    '以上为ET增加的代码<br/>    <br/> '   parameter="showerr.asp?ErrCodes=<li>"&Replace(template.Strings(23),"{$topiclimited}",Dvbbs.Board_Setting(45))&"<BR>2秒后自动返回上一页面。&action=OtherErr&autoreload=1"<br/> '   Set Dvbbs=Nothing<br/> '   Response.redirect parameter<br/>   End If<br/>   Rem 限制提交数据不能大于64K<br/>   If Len(Content) > 64*1024*1024 Then</p><p>    '以下为ET增加的代码<br/>    response.Write("[err]内容超过64K[/err]")<br/>    Set Dvbbs=Nothing<br/>    response.End() <br/>    '以上为ET增加的代码<br/>   <br/> '   parameter="showerr.asp?ErrCodes=<li>您提交的数据过大，提交数据不能大于64K&action=OtherErr&autoreload=1"</p><p> '   Set Dvbbs=Nothing<br/> '   Response.redirect parameter<br/>   End If<br/> '  Dim TMPData<br/> '  'TMPData=inpostlist<br/> '  If TMPData<>"" Then<br/> '   If Action <> 8 Then<br/> '    parameter="showerr.asp?ErrCodes="&TMPData&"&action=OtherErr&autoreload=1"<br/> '    Set Dvbbs=Nothing<br/> '    Response.redirect parameter<br/> '   End If<br/> '  End If<br/>   Rem 老迷增加xhtml格式限制<br/> '  Dim XMLPOST,XHTML<br/> '  XHTML=True<br/> '  If XHTML Then<br/> '   Set XMLPOST=Server.CreateObject("msxml2.DOMDocument"& MsxmlVersion)<br/> '   If XMLPOST.loadxml("<xhtml>" & xmlencode(Content) &"</xhtml>") Then<br/> '    Content=Rexmlencode(Mid(XMLPOST.documentElement.xml,8,Len(XMLPOST.documentElement.xml)-15))<br/> '   Else<br/> '    parameter="showerr.asp?ErrCodes=<li>您提交的数据不合法(必须提交XHTML格式)&action=OtherErr&autoreload=1"<br/> '    Set Dvbbs=Nothing<br/> '    Response.redirect parameter<br/> '   End If<br/> '   Set XMLPOST=Nothing<br/> '  End If<br/> '  If Dvbbs.strLength(Content) > CLng(Dvbbs.Board_Setting(16)) Then Response.redirect "showerr.asp?ErrCodes=<li>"&Replace(template.Strings(24),"{$bodylimited}",Dvbbs.Board_Setting(16))&"<BR>2秒后自动返回上一页面。&action=OtherErr&autoreload=1"<br/> '   REM 2004-4-23添加限制帖子内容最小字节数,下次在模板中添加。Dvbbs.YangZheng<br/> '   If Dvbbs.strLength(Content) < CLng(Dvbbs.Board_Setting(52)) And Not CLng(Dvbbs.Board_Setting(52)) = 0 Then<br/> '    parameter="showerr.asp?ErrCodes=<li>"&Replace(template.Strings(24),"大于{$bodylimited}","小于"&Dvbbs.Board_Setting(52))&"<BR>2秒后自动返回上一页面。&action=OtherErr&autoreload=1"<br/> '    Set Dvbbs=Nothing<br/> '   Response.redirect parameter<br/> '  End If<br/>   Dim testContent<br/>   testContent=Content<br/>   testContent=Replace(testContent,vbNewLine,"")<br/>   testContent=Replace(testContent," ","")<br/>   testContent=Replace(testContent,"&nbsp;","")  <br/>   testContent=Trim(Dvbbs.Replacehtml(testContent))<br/> '  If testContent="" and InStr(Content,"<img")=0 and InStr(Content,"<input")=0 and InStr(Content,"<object")=0  and InStr(Content,"<embed")=0 Then Set Dvbbs=Nothing:Response.redirect "showerr.asp?ErrCodes=<li>您没有填写内容.2秒后自动返回上一页面。&action=OtherErr&autoreload=1"<br/>   If Dvbbs.UserID=0 Then<br/>    mailflag=0:signflag=0<br/>   Else<br/>    If Not IsNumeric(mailflag) Or mailflag="" Then mailflag=0<br/>    mailflag=CInt(mailflag)<br/>    If Not IsNumeric(signflag) Or signflag="" Then signflag=1<br/>    signflag=CInt(signflag)<br/>   End If<br/>   If TopicMode<>"" and IsNumeric(TopicMode) Then TopicMode=Cint(TopicMode) Else TopicMode=0<br/>   If Request("upfilerename")<>"" Then<br/>    ihaveupfile=1<br/>    upfileinfo=Replace(Request("upfilerename"),"'","")<br/>    upfileinfo=Replace(upfileinfo,";","")<br/>    upfileinfo=Replace(upfileinfo,"--","")<br/>    upfileinfo=Replace(upfileinfo,")","")<br/>    Dim fixid,upfilelen<br/>    fixid=Replace(upfileinfo," ","")<br/>    fixid=Replace(fixid,",","")<br/>    If Not IsNumeric(fixid) Then ihaveupfile=0<br/>    upfilelen=len(upfileinfo)<br/>    upfileinfo=left(upfileinfo,upfilelen-1)<br/>   Else<br/>    ihaveupfile=0<br/>   End If<br/>   voteid=0<br/>   isvote=0<br/>   If Action = 7 Then<br/>    votetype=Dvbbs.Checkstr(request("votetype"))<br/>    If IsNumeric(votetype)=0 or votetype="" Then votetype=0<br/>    vote=Dvbbs.Checkstr(trim(Replace(request("vote"),"|","")))<br/>    Dim j,k,vote_1,votelen,votenumlen<br/>    If vote="" Then<br/>     Dvbbs.AddErrCode(81)<br/>    Else<br/>     vote=split(vote,chr(13)&chr(10))<br/>     j=0<br/>     For i = 0 To ubound(vote)<br/>      If Not (vote(i)="" Or vote(i)=" ") Then<br/>       vote_1=""&vote_1&""&vote(i)&"|"<br/>       j=j+1<br/>      End If<br/>      If i>cint(Dvbbs.Board_Setting(32))-2 Then Exit For<br/>     Next<br/>     For k = 1 to j<br/>      votenum=""&votenum&"0|"<br/>     Next<br/>     votelen=len(vote_1)<br/>     votenumlen=len(votenum)<br/>     votenum=left(votenum,votenumlen-1)<br/>     vote=left(vote_1,votelen-1)<br/>    End If<br/>    If Not IsNumeric(request("votetimeout")) Then<br/>     Dvbbs.AddErrCode(82)<br/>    Else<br/>     If request("votetimeout")="0" Then<br/>      votetimeout=dateadd("d",9999,Now())<br/>     Else<br/>      votetimeout=dateadd("d",CCur(request("votetimeout")),Now())<br/>     End If<br/>     votetimeout=Replace(Replace(CSTR(votetimeout+Dvbbs.Forum_Setting(0)/24),"上午",""),"下午","")<br/>    End If<br/>   End If<br/>   If Action = 5 Or Action = 7 Then<br/>    CanLockTopic=False<br/>    CanTopTopic=False<br/>    CanTopTopic_a=False</p><p> <br/>    '以下为ET增加的代码<br/>    If Topic="" OR Replace(Topic&"","","")="" Then <br/>     response.Write("[err]标题为空[/err]")<br/>     Set Dvbbs=Nothing<br/>     response.End() <br/>    end if<br/>    '以上为ET增加的代码</p><p>    <br/> '   If Topic="" OR Replace(Topic&"","","")="" Then Set Dvbbs=Nothing:Response.redirect "showerr.asp?ErrCodes=<li>您忘记填写标题<BR>2秒后自动返回上一页面。&action=OtherErr&autoreload=1"<br/>    '减少判断，如果不为固顶，锁定等等的操作的话，不检查权限。<br/>    If MyLockTopic="yes" Or Myistopall="yes" Or Myistop="yes" Then<br/>     '判断用户是否有固顶/解除固顶帖子权限<br/>     If (dvbbs.master or dvbbs.superboardmaster or dvbbs.boardmaster) Then <br/>      If Dvbbs.GroupSetting(21)="1" Then CanTopTopic=True<br/>      If  Dvbbs.GroupSetting(20)="1" Then CanLockTopic=True<br/>     End If<br/>     If Dvbbs.GroupSetting(21)="1" and Cint(Dvbbs.UserGroupID)>3 Then CanTopTopic=True<br/>     If Dvbbs.FoundUserPer and Dvbbs.GroupSetting(21)="1" Then<br/>      CanTopTopic=True<br/>     ElseIf Dvbbs.FoundUserPer and Dvbbs.GroupSetting(21)="0" Then<br/>      CanTopTopic=False<br/>     End If<br/>     '判断用户是否有总固顶帖子权限<br/>     If (dvbbs.master or dvbbs.superboardmaster or dvbbs.boardmaster) and Dvbbs.GroupSetting(38)="1" Then CanTopTopic_a=True<br/>     If Dvbbs.GroupSetting(38)="1" and Cint(Dvbbs.UserGroupID)>3 Then CanTopTopic_a=True<br/>     If Dvbbs.FoundUserPer and Dvbbs.GroupSetting(38)="1" Then<br/>      CanTopTopic_a=True<br/>     ElseIf Dvbbs.FoundUserPer and Dvbbs.GroupSetting(38)="0" Then<br/>      CanTopTopic_a=False<br/>     End If <br/>    End If<br/>    If MyLockTopic="yes" Then<br/>     MyLockTopic=1<br/>    Else<br/>     MyLockTopic=0<br/>    End If<br/>    If Myistopall="yes" Then<br/>     Myistopall=1<br/>    Else<br/>     Myistopall=0<br/>    End If<br/>    If Not CanTopTopic_a Then Myistopall=0<br/>    If Myistop="yes" and Myistopall=0 Then<br/>     Myistop=1<br/>     If Not CanTopTopic Then Myistop=0<br/>    ElseIf Myistopall=1 Then<br/>     Myistop=3<br/>    Else<br/>     Myistop=0<br/>    End If<br/>    If Not IsNumeric(MyTopicMode) or Dvbbs.GroupSetting(51)="0" Then MyTopicMode=0<br/>    If Not CanLockTopic Then MyLockTopic=0<br/>    TotalUseTable=Dvbbs.NowUseBbs<br/>   ElseIf Action = 6 Then<br/>    AnnounceID = Request("followup")<br/>    RootID = Request("RootID")<br/>    If AnnounceID = "" Or Not IsNumeric(AnnounceID) Then Dvbbs.AddErrCode(30)<br/>    If RootID = "" Or Not IsNumeric(RootID) Then Dvbbs.AddErrCode(30)<br/>    TotalUseTable=Request("TotalUseTable")<br/>    TotalUseTable=checktable(TotalUseTable)<br/>    Dvbbs.ShowErr()<br/>    AnnounceID = cCur(AnnounceID)<br/>    ParentID = AnnounceID<br/>    RootID = cCur(RootID)<br/>    MyLockTopic=0<br/>   ElseIf Action = 8 Then<br/>    If Not IsNumeric(MyTopicMode) or Dvbbs.GroupSetting(51)="0" Then MyTopicMode=0<br/>    AnnounceID = Request("replyID")<br/>    RootID = Request("ID")<br/>    If AnnounceID = "" Or Not IsNumeric(AnnounceID) Then Dvbbs.AddErrCode(30)<br/>    If RootID = "" Or Not IsNumeric(RootID) Then Dvbbs.AddErrCode(30)<br/>    TotalUseTable = Checktable(Request("TotalUseTable"))<br/>    Dvbbs.ShowErr()<br/>    AnnounceID = cCur(AnnounceID)<br/>    RootID = cCur(RootID)<br/>    MyLockTopic=0<br/>    Set Rs=Dvbbs.Execute("select AnnounceID from "&TotalUseTable&" where ParentID=0 and rootid="&RootID)<br/>    If Not Rs.eof Then <br/>     If AnnounceID=Rs(0) Then<br/>      If Topic="" OR Replace(Topic&"","","")="" Then Dvbbs.AddErrCode(79)<br/>     End If<br/>    Else<br/>     Dvbbs.AddErrCode(30)   <br/>    End If<br/>   End If<br/> '  Dvbbs.Showerr()<br/>   SaveData()<br/>  End Sub<br/>  '保存数据<br/>  Private Sub SaveData()<br/> '  If Not (Dvbbs.Master or Action = 8) Then CheckpostTime()<br/>   Dim Forumupload<br/>   Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@postdata").text =""<br/>    If Dvbbs.GroupSetting(64)="1" Then<br/>     IsAudit=0<br/>    Else<br/>     If Dvbbs.Board_Setting(57)="1" Then<br/>      IsAudit=NeedIsAudit()<br/>      IsAuditcheck=IsAudit<br/>     End If<br/>    End If<br/>   If Dvbbs.UserID=0 Then IsAudit=1:IsAuditcheck=2<br/>    If IsAudit=0 Then<br/>     If AccessPost =1 Then<br/>       IsAudit=1<br/>       IsAuditcheck=2<br/>     End If<br/>    End If<br/>    locktopic=0<br/>   If MyLockTopic=1 Then locktopic=1<br/>   If IsAudit=1 And Action <> 8 Then<br/>    LockTopic=Dvbbs.BoardID<br/>    Dvbbs.BoardID=777<br/>    Response.Cookies("Dvbbs")=LockTopic<br/>   Else<br/>    Response.Cookies("Dvbbs")=Dvbbs.Boardid<br/>   End If<br/>   Forumupload=split(Dvbbs.Board_Setting(19),"|")<br/> '  For i=0 to ubound(Forumupload)<br/> '   If Instr(Content,"[upload="&Forumupload(i)&"]") or Instr(Content,"."&Forumupload(i)&"") or Instr(Content,"["&Forumupload(i)&"]") then<br/> '    uploadpic_n=Forumupload(i)<br/> '    Exit For<br/> '   End If<br/> '  Next<br/>   If InStr(Content,"viewfile.asp?ID=") Then uploadpic_n="down"<br/> '  If Not Action = 8 Then <br/>    savepost()<br/>    If Dvbbs.UserID>0 Then updatepostuser()<br/> '  Else<br/> '   Update_Edit_Announce()<br/> '  End If<br/>   If Dvbbs.GroupSetting(59)=1 Then<br/>    If (Action = 5 Or Action = 7) and (GetPostType="1" or GetPostType="2") Then<br/>     'Dim LogMsg<br/>     'LogMsg = "<a href=""dispbbs.asp?boardid="&Dvbbs.boardid&"&id="&RootID&""" target=_blank>主题：《<B>"&topic&"</B>》</a> 使用<B>"&ToolsInfo(5)&"</B>道具成功，并插入道具日志记录。"<br/>     'Call Dvbbs.ToolsLog(ToolsInfo(4),1,0,0,1,LogMsg,Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usermoney").text &"|"&Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userticket").text)<br/>     'Call UpdateUserTools(Dvbbs.UserID,ToolsInfo(4),1)<br/>    ElseIf Action = 6 and GetPostType="1" and GetMoneyType=4 Then<br/>     Call GetMoney_SaveRe<br/>    End If<br/>   End If<br/>   If Action <>8 Then<br/>    'If IsSqlDataBase = 1 Then<br/>    ' Dvbbs.Execute("Delete From [Dv_lastpost] Where Datediff(Mi, DateAndtime, " & SqlNowString & ") > 20")<br/>    'Else<br/>    ' Dvbbs.Execute("Delete From [Dv_lastpost] Where Datediff('s', DateAndtime, " & SqlNowString & ") > 20*60")<br/>    'End If<br/>    'Dvbbs.Execute("Insert Into Dv_lastpost (PostTitle,PostUserID,DateAndtime) values ('"&Dvbbs.Checkstr(Left(Trim(Request.Form("topic")&"")& Request.Form("body"),150))&"',"&Dvbbs.UserID&",'"&Now()&"')")<br/>   End If<br/> '  succeed()</p><p>   '以下为ET增加的代码<br/>   response.Write("1") '发布完成<br/>   response.End() <br/>   '以上为ET增加的代码</p><p> <br/>  End Sub<br/>  '保存发贴，投票和回贴<br/>  Public Sub Savepost()<br/>   If Action = 5 Or Action = 7 Then<br/>    ilayer=1:iOrders=0:ParentID=0<br/>    MyLastPostTime=Replace(Replace(CSTR(NOW()+Dvbbs.Forum_Setting(0)/24),"上午",""),"下午","")<br/>    DateTimeStr=MyLastPostTime'Replace(Replace(CSTR(NOW()+Dvbbs.Forum_Setting(0)/24),"上午",""),"下午","")<br/>    If Action = 7 Then Insert_To_Vote()<br/>    Insert_To_Topic()<br/>    '更新总固顶和固顶的数据以及缓存数据<br/>    If MyIsTop=3 Then<br/>     '将总固顶ID插入总设置表<br/>     Dim iForum_AllTopNum<br/>     Set Rs=Dvbbs.Execute("Select Forum_AllTopNum From Dv_Setup")<br/>     If Trim(Rs(0))="" Or IsNull(Rs(0)) Then<br/>      iForum_AllTopNum = RootID<br/>     Else<br/>      iForum_AllTopNum = Rs(0) & "," & RootID<br/>     End If<br/>     Dvbbs.Execute("Update Dv_Setup Set Forum_AllTopNum='"&iForum_AllTopNum&"'")<br/>     Dvbbs.ReloadSetupCache iForum_AllTopNum,28<br/>     Set Rs=Nothing<br/>    ElseIf MyIsTop=1 Then<br/>     Dim BoardTopStr<br/>     Set Rs=Dvbbs.Execute("Select BoardID,BoardTopStr From Dv_Board Where BoardID="&Clng(Dvbbs.BoardID))<br/>     If Not (Rs.Eof And Rs.Bof) Then<br/>      If Rs(1)="" Or IsNull(Rs(1)) Then<br/>       BoardTopStr = RootID<br/>      Else<br/>       If InStr(","&Rs(1)&",","," & RootID & ",")>0 Then<br/>        BoardTopStr = Rs(1)<br/>       Else<br/>        BoardTopStr = Rs(1) & "," & RootID<br/>       End If<br/>      End If<br/>      Dvbbs.Execute("Update Dv_Board Set BoardTopStr='"&BoardTopStr&"' Where BoardID="&Rs(0))<br/>      Dvbbs.LoadBoardinformation Rs(0)<br/>     End If<br/>     Set Rs=Nothing<br/>    End If<br/>   ElseIf Action = 6 Then<br/>    Get_SaveRe_TopicInfo()<br/>    Get_ForumTreeCode()<br/>    DateTimeStr=Replace(Replace(CSTR(NOW()+Dvbbs.Forum_Setting(0)/24),"上午",""),"下午","")<br/>   End If<br/>   Insert_To_Announce()<br/>   If Action = 6 Then<br/>    topic=Replace(Replace(cutStr(reubbcode(topic),14),chr(10),""),"'","")<br/>    If topic="" Then<br/>     topic=Content<br/>     topic=Replace(cutStr(reubbcode(topic),14),chr(10),"")<br/>    Else<br/>     topic=Replace(cutStr(reubbcode(topic),14),chr(10),"")<br/>    End If<br/>    If ihaveupfile=1 Then Dvbbs.Execute("update dv_upfile set F_AnnounceID='"&RootID&"|"&AnnounceID&"',F_Readme='"&Replace(toptopic,"'","")&"',F_flag=0 where F_ID in ("&upfileinfo&")")<br/>   Else<br/>    If ihaveupfile=1 Then Dvbbs.Execute("update dv_upfile set F_AnnounceID='"&RootID&"|"&AnnounceID&"',F_Readme='"&Topic&"',F_flag=0  where F_ID in ("&upfileinfo&")")<br/>   End If<br/>   If signflag=2 Then<br/>    LastPost=Replace("匿名用户","$","") & "$" & AnnounceID & "$" & DateTimeStr & "$" & Replace(topic,"$","&#36;") & "$" & uploadpic_n & "$" & " " & "$" & RootID & "$" & Dvbbs.BoardID<br/>   Else<br/>    LastPost=Replace(username,"$","") & "$" & AnnounceID & "$" & DateTimeStr & "$" & Replace(topic,"$","&#36;") & "$" & uploadpic_n & "$" & Dvbbs.UserID & "$" & RootID & "$" & Dvbbs.BoardID<br/>   End If<br/>   LastPost=Replace(LastPost,"'","")<br/>   LastPost=Dvbbs.ChkBadWords(LastPost)<br/>   If IsAudit<>1 Then<br/>    Dim IsUpDateLastPostTime<br/>    IsUpDateLastPostTime = False<br/>    If  InStr("," & Tools_UseTools & ",",",13,")>0 Or InStr("," & Tools_UseTools & ",",",14,")>0 Then IsUpDateLastPostTime = True<br/>    If Action = 6 Then <br/>     If IsUpDateLastPostTime Then<br/>      If DateDiff("h",Now(),Tools_LastPostTime)<=0 Then<br/>       SQL="update Dv_topic set child=child+1,LastPostTime="&SqlNowString&",LastPost='"&LastPost&"' where TopicID="&RootID<br/>      Else<br/>       SQL="update Dv_topic set child=child+1,LastPost='"&LastPost&"' where TopicID="&RootID<br/>      End If<br/>     Else<br/>      SQL="update Dv_topic set child=child+1,LastPostTime="&SqlNowString&",LastPost='"&LastPost&"' where TopicID="&RootID<br/>     End If<br/>     Dvbbs.Execute(SQL)<br/>     Child=Child+2<br/>     If Child mod Dvbbs.Board_Setting(27)=0 Then <br/>      star=Child\Dvbbs.Board_Setting(27)<br/>     Else<br/>      star=(Child\Dvbbs.Board_Setting(27))+1<br/>     End If<br/>    Else<br/>      Dvbbs.Execute("update Dv_topic set LastPost='"&LastPost&"' where topicid="&RootID)<br/>    End If<br/>   Else<br/>    Rem 待审核取消回复更新最后发贴。<br/>    If Action = 5 Or Action = 7 Then  Dvbbs.Execute("update Dv_topic set LastPost='"&LastPost&"' where topicid="&RootID)<br/>   End If<br/>   If Action = 5 Or Action = 7 Then<br/>    toptopic=Replace(cutStr(topic,20),"$","&#36;")<br/>   Else<br/>    toptopic=Replace(cutStr(toptopic,20),"$","&#36;")<br/>   End If<br/>   'toptopic =主标题,Content=内容<br/>   '判断是否是加密的论坛，如果是，则不显示最后发贴内容。<br/>   If Dvbbs.Board_Setting(2)="1" Then<br/>    LastPost_1="保密$" & AnnounceID & "$" & DateTimeStr & "$请认证用户进入查看$" & uploadpic_n & "$" & Dvbbs.UserID & "$" & RootID & "$" & Dvbbs.BoardID<br/>   ElseIf signflag=2 Then<br/>    LastPost_1=Replace("匿名用户","$","") & "$" & AnnounceID & "$" & DateTimeStr & "$" & toptopic & "$" & uploadpic_n & "$" & " " & "$" & RootID & "$" & Dvbbs.BoardID<br/>   Else<br/>    LastPost_1=Replace(username,"$","") & "$" & AnnounceID & "$" & DateTimeStr & "$" & toptopic & "$" & uploadpic_n & "$" & Dvbbs.UserID & "$" & RootID & "$" & Dvbbs.BoardID<br/>   End If<br/>   LastPost_1=reubbcode(Replace(LastPost_1,"'",""))<br/>   LastPost_1=Dvbbs.ChkBadWords(LastPost_1)<br/>   If IsAudit=0 Then<br/>    UpDate_BoardInfoAndCache()<br/>    UpDate_ForumInfoAndCache()<br/>   End If<br/>   Response.Cookies("Dvbbs")=Dvbbs.BoardID<br/>  End Sub<br/>  '判断用户是否有编辑权限且提取相关信息<br/>  Public Function Get_Edit_PermissionInfo()<br/>   Dim old_user<br/>   If Action = 4 Then<br/>    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)<br/>   Else<br/>    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)<br/>   End If<br/>   If Rs.Eof And Rs.Bof Then<br/>    Dvbbs.AddErrCode(48)<br/>   Else<br/>    If Action = 4 Then<br/>     signflag=Rs("signflag")<br/>     mailflag=Rs("emailflag")<br/>     Topic=rs("topic")<br/>     If Topic<>"" Then Topic = Server.HtmlEncode(Topic)<br/>     Content=rs("body")<br/>     old_user=rs("username")<br/>    Else<br/>     If Clng(Dvbbs.forum_setting(50))>0 then<br/>      If Datediff("s",rs("dateandtime"),Now())>Clng(Dvbbs.forum_setting(50))*60 then<br/>       Content = Content+chr(13)+chr(10)+char_changed+chr(13)<br/>      End If<br/>     Else<br/>      Content = Content+chr(13)+chr(10)+char_changed+chr(13)<br/>     End If<br/>    End If<br/>    If Clng(Dvbbs.forum_setting(51))>0 and not (Dvbbs.master or Dvbbs.boardmaster or Dvbbs.superboardmaster) Then <br/>     If DateDiff("s",rs("dateandtime"),Now())>Clng(Dvbbs.forum_setting(51))*60 then <br/>      parameter="showerr.asp?ErrCodes=<li>"&Replace(Replace(template.Strings(22),"{$posttime}",Datediff("s",rs("dateandtime"),Now())/60),"{$etlimited}",Dvbbs.forum_setting(51))&"&action=OtherErr"<br/>      Set Dvbbs=Nothing<br/>      Response.redirect parameter<br/>     End If<br/>    End If <br/>    If Rs("username")=Dvbbs.membername Then <br/>     If Dvbbs.GroupSetting(10)="0" then<br/>      Dvbbs.AddErrCode(74)<br/>      CanEditPost=False<br/>     Else <br/>      CanEditPost=True<br/>     End If <br/>    Else<br/>     signflag=Rs("signflag")<br/>     mailflag=Rs("emailflag")<br/>     If (Dvbbs.master or Dvbbs.superboardmaster or Dvbbs.boardmaster) and Dvbbs.GroupSetting(23)="1" then<br/>      CanEditPost=True<br/>     Else <br/>      CanEditPost=False<br/>     End  If <br/>     If Cint(Dvbbs.UserGroupID) > 3 And Dvbbs.GroupSetting(23)="1" Then CanEditPost=true<br/>     If Dvbbs.GroupSetting(23)="1" and Dvbbs.founduserPer Then <br/>      CanEditPost=True<br/>     ElseIf Dvbbs.GroupSetting(23)="0" And Dvbbs.founduserPer Then <br/>      CanEditPost=False<br/>     End If<br/>     If Cint(Dvbbs.UserGroupID) < 4 And Cint(Dvbbs.UserGroupID) = rs("UserGroupID") Then <br/>      Dvbbs.AddErrCode(75)<br/>     ElseIf Cint(Dvbbs.UserGroupID) < 4 and Cint(Dvbbs.UserGroupID) > rs("UserGroupID") Then<br/>      Dvbbs.AddErrCode(76)<br/>     End If <br/>     If Not CanEditPost Then Dvbbs.AddErrCode(77)<br/>    End If<br/>   End If<br/>   Set Rs=Nothing<br/>   Dvbbs.ShowErr()<br/>   If Action = 4 Then Dvbbs.MemberName=old_user<br/>  End Function<br/>  Public Sub Get_SaveRe_TopicInfo()<br/>   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)<br/>   Set Rs=dvbbs.Execute(sql)<br/>   If Not (Rs.EOF And Rs.BOF) Then<br/>    toptopic = Rs(2)<br/>    istop = Rs(5)<br/>    Child = Rs(6)<br/>    Tools_UseTools = "," & Rs(7) & ","<br/>    Tools_LastPostTime = Rs(8)<br/>    If Rs("IsSmsTopic")=1 Then smsuserlist=Rs("smsuserlist")<br/>    If Rs("LockTopic")=1 And Not (Dvbbs.Master Or Dvbbs.BoardMaster Or Dvbbs.SuperBoardMaster) Then Dvbbs.AddErrCode(78)<br/>    '锁定多少天前的帖子判断 2004-9-16 Dv.Yz<br/>    If Ubound(Dvbbs.Board_Setting) > 70 And Not (Dvbbs.Master Or Dvbbs.BoardMaster Or Dvbbs.SuperBoardMaster) Then<br/>     If Not Clng(Dvbbs.Board_Setting(71)) = 0 And Datediff("d", Rs(11), Now()) > Clng(Dvbbs.Board_Setting(71)) Then Dvbbs.AddErrCode(78)<br/>    End If<br/>    If Not IsNull(Rs(1)) Then<br/>     LastPost=split(Rs(1),"$")<br/>     If ubound(LastPost)=7 Then<br/>      UpLoadPic_n=LastPost(4)<br/>     Else<br/>      UpLoadPic_n=""<br/>     End If<br/>    End If<br/>    If Cint(Rs(9)) = 5 Then<br/>     Set Dvbbs=Nothing<br/>     Response.redirect"showerr.asp?ErrCodes=<br>"+"<li>"&template.Strings(32)&"&action=OtherErr"<br/>     Exit Sub<br/>    End If<br/>    If Clng(Rs(10)) <> Dvbbs.UserID and Cint(Rs(9)) = 2 and GetPostType = "1" Then<br/>     GetMoneyType = 4<br/>     Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usermoney").text  = Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usermoney").text -ToMoney<br/>    Else<br/>     GetMoneyType = 0<br/>     ToMoney=0<br/>    End If<br/>   End If<br/>   Set Rs = Nothing<br/>   Dvbbs.showErr()<br/>  End Sub<br/>  Public Sub Insert_To_Vote()<br/>   '插入投票记录 GroupSetting(68)投票项目中是否可以使用HTML<br/>   Dim UArticle,UWealth,UEP,UCP,UPower<br/>   UArticle = Request("UArticle")<br/>   UWealth = Request("UWealth")<br/>   UEP = Request("UEP")<br/>   UCP = Request("UCP")<br/>   UPower = Request("UPower")<br/>   If Not IsNumeric(UArticle) Then UArticle = 0<br/>   If Not IsNumeric(UWealth) Then UWealth = 0<br/>   If Not IsNumeric(UEP) Then UEP = 0<br/>   If Not IsNumeric(UCP) Then UArticle = 0<br/>   If Not IsNumeric(UPower) Then UPower = 0<br/>   If Dvbbs.GroupSetting(68)<>"1" Then vote = server.htmlencode(vote)<br/>   Dvbbs.execute("insert into dv_vote (vote,votenum,votetype,timeout,UArticle,UWealth,UEP,UCP,UPower) values ('"&vote&"','"&votenum&"',"&votetype&",'"&votetimeout&"',"&UArticle&","&UWealth&","&UEP&","&UCP&","&UPower&")")<br/>   set rs=dvbbs.execute("select Max(voteid) from dv_vote")<br/>   voteid=Rs(0)<br/>   isvote=1<br/>   Set Rs=Nothing<br/>  End Sub<br/>  Public Sub Insert_To_Topic()<br/>   '插入主题表<br/>   Dim hidename<br/>   If signflag=2 Then<br/>    hidename=1<br/>   Else<br/>    hidename=0<br/>   End If<br/>   SQL="insert into Dv_topic (Title,Boardid,PostUsername,PostUserid,DateAndTime,Expression,LastPost,LastPostTime,PostTable,locktopic,istop,TopicMode,isvote,PollID,Mode,GetMoney,UseTools,GetMoneyType,isSmsTopic,HideName) values ('"&topic&"',"&Dvbbs.boardid&",'"&username&"',"&Dvbbs.userid&",'"&DateTimeStr&"','"&Expression(0)&"|"&Expression(1)&"','$$"&DateTimeStr&"$$$$','"&MyLastPostTime&"','"&TotalUseTable&"',"&locktopic&","&Myistop&","&MyTopicMode&","&isvote&","&voteid&","&TopicMode&","&ToMoney&",'"&UseTools&"',"&GetMoneyType&","&isAlipayTopic&","&hidename&")"</p><p>   </p><p>   Dvbbs.Execute(sql)<br/>   Set Rs=Dvbbs.Execute("select Max(topicid) From Dv_topic Where PostUserid="&Dvbbs.UserID)<br/>   RootID=Rs(0)<br/>  End Sub<br/>  Public Sub Insert_To_Announce()<br/>   '插入回复表<br/>   DIM UbblistBody<br/>   UbblistBody = Content<br/>   UbblistBody = Ubblist(Content)<br/>   '----------ET增加代码<br/>   UbblistBody=replace(UbblistBody,"table,","")<br/>   UbblistBody=replace(UbblistBody,"td,","")<br/>   UbblistBody=replace(UbblistBody,"tr,","")<br/>   UbblistBody=replace(UbblistBody,"th,","")<br/>   '----------<br/>   <br/>   SQL="insert into "&TotalUseTable&"(Boardid,ParentID,username,topic,body,DateAndTime,length,RootID,layer,orders,ip,Expression,locktopic,signflag,emailflag,isbest,PostUserID,isupload,IsAudit,Ubblist,GetMoney,UseTools,PostBuyUser,GetMoneyType) values ("&Dvbbs.boardid&","&ParentID&",'"&username&"','"&topic&"','"&Content&"','"&DateTimeStr&"','"&Dvbbs.strlength(Content)&"',"&RootID&","&ilayer&","&iorders&",'"&Dvbbs.UserTrueIP&"','"&Expression(1)&"',"&locktopic&","&signflag&","&mailflag&",0,"&Dvbbs.userid&","&ihaveupfile&","&IsAudit&",'"&UbblistBody&"',"&ToMoney&",'"&UseTools&"','"&dvbbs.checkstr(ToolsBuyUser)&"',"&GetMoneyType&")"<br/>   Dvbbs.Execute(sql)<br/>   Set Rs=Dvbbs.Execute("select Max(AnnounceID) From "&TotalUseTable&" Where PostUserID="&Dvbbs.UserID)<br/>   AnnounceID=Rs(0)<br/>  End Sub<br/>  '检查贴中是否含过滤字<br/>  Public Function NeedIsAudit()<br/>   NeedIsAudit=0<br/>   Dim i,ChecKData<br/>   If Dvbbs.Board_Setting(58)<>"0" Then<br/>    ChecKData=split(Dvbbs.Board_Setting(58),"|")<br/>    For i=0 to UBound(ChecKData)<br/>     If Trim(ChecKData(i))<>"" Then<br/>      If InStr(Content,ChecKData(i))>0 Or InStr(Topic,ChecKData(i))>0 Then<br/>       NeedIsAudit=1<br/>       Exit Function<br/>      End If<br/>     End If<br/>    Next<br/>   End If  <br/>  End Function<br/>  Public Sub Get_ForumTreeCode()<br/>   Dim mailbody<br/>   Set Rs=Dvbbs.Execute("select b.layer,b.orders,b.EmailFlag,b.username,u.userEmail from "&TotalUseTable&" b inner join [Dv_user] u on b.postuserid=u.userid where b.AnnounceID="&ParentID)<br/>   If Not(rs.EOF And rs.BOF) Then<br/>    If IsNull(Rs(0)) Then<br/>     iLayer=1<br/>    Else<br/>     iLayer=Rs(0)<br/>    End If<br/>    If IsNull(Rs(1)) Then<br/>     iOrders=0<br/>    Else<br/>     iOrders=Rs(1)<br/>    End If<br/>    If Rs(3)=Dvbbs.membername Then<br/>     If Cint(Dvbbs.GroupSetting(4))=0 Then Dvbbs.AddErrCode(73)<br/>    Else<br/>     If Rs(2)>0 Then<br/>      Dim sUrl,Email,TempArray,etopic<br/>      TempArray = Split(template.html(10),"||")<br/>      sUrl=Dvbbs.Get_ScriptNameUrl<br/>      If Rs(2)=1 Or Rs(2)=3 Then<br/>       etopic=Replace(template.Strings(25),"{$forumname}",Dvbbs.Forum_info(0))<br/>       email=Rs(4)<br/>       mailbody = TempArray(0)<br/>       mailbody = Replace(mailbody,"{$boardid}",Dvbbs.BoardID)<br/>       mailbody = Replace(mailbody,"{$forumname}",Dvbbs.Forum_info(0))<br/>       mailbody = Replace(mailbody,"{$topicid}",RootID)<br/>       mailbody = Replace(mailbody,"{$star}",Star)<br/>       mailbody = Replace(mailbody,"{$surl}",sUrl)<br/>       mailbody = Replace(mailbody,"{$parentid}",ParentID)<br/>       Dim DvEmail<br/>       Set DvEmail = New Dv_SendMail<br/>       DvEmail.SendObject = Cint(Dvbbs.Forum_Setting(2)) '设置选取组件 1=Jmail,2=Cdonts,3=Aspemail<br/>       DvEmail.ServerLoginName = Dvbbs.Forum_info(12) '您的邮件服务器登录名<br/>       DvEmail.ServerLoginPass = Dvbbs.Forum_info(13) '登录密码<br/>       DvEmail.SendSMTP = Dvbbs.Forum_info(4)   'SMTP地址<br/>       DvEmail.SendFromEmail = Dvbbs.Forum_info(5)  '发送来源地址<br/>       DvEmail.SendFromName = Dvbbs.Forum_info(0)  '发送人信息<br/>       If DvEmail.ErrCode = 0 Then<br/>        DvEmail.SendMail email,etopic,mailbody '执行发送邮件<br/>       End If<br/>       Set DvEmail = Nothing<br/>      End If<br/>      If Rs(2)=2 Or Rs(2)=3 Then<br/>       mailbody = TempArray(1)<br/>       mailbody = Replace(mailbody,"{$boardid}",Dvbbs.BoardID)<br/>       mailbody = Replace(mailbody,"{$topicid}",RootID)<br/>       mailbody = Replace(mailbody,"{$star}",Star)<br/>       mailbody = Replace(mailbody,"{$surl}",sUrl)<br/>       mailbody = Replace(mailbody,"{$parentid}",ParentID)<br/>       Dvbbs.Execute("insert into dv_message(incept,sender,title,content,sendtime,flag,issend) values('"&Rs(3)&"','"&Dvbbs.Forum_info(0)&"','"&template.Strings(26)&"','"&mailbody&"',"&SqlNowString&",0,1)")<br/>       update_user_msg(Rs(3))<br/>      End If<br/>     End If<br/>    End If<br/>   Else<br/>    iLayer=1<br/>    iOrders=0<br/>   End If<br/>   Set Rs=Nothing<br/>   If RootID<>0 Then <br/>    iLayer=ilayer+1<br/>    Dvbbs.Execute "update "&TotalUseTable&" set orders=orders+1 where RootID="&cstr(RootID)&" and orders>"&cstr(iOrders)<br/>    iOrders=iOrders+1<br/>   End If<br/>  End Sub<br/>  Public Sub Update_Edit_Announce()<br/>   Dim re,LastBoard,LastTopic<br/>   Set re=new RegExp<br/>   re.IgnoreCase =True<br/>   re.Global=True<br/>   re.Pattern="<br>"<br/>   Content = re.Replace(Content,"[br]")<br/>   re.Pattern="\[align=right\]\[color=#000066\](.*)\[\/color\]\[\/align\]"<br/>   Content = re.Replace(Content,"")<br/>   re.Pattern="<div align=right><font color=#000066>(.*)<\/font><\/div>"<br/>   Content = re.Replace(Content,"")<br/>   re.Pattern="\[br\]"<br/>   Content = re.Replace(Content,"<br>")  <br/>   Set re=Nothing<br/>   If Dvbbs.membername<>UserName Then <br/>    If Dvbbs.forum_setting(49)="1" Then char_changed = "[align=right][color=#000066][此贴子已经被"&Dvbbs.membername&"于"&Now()&"编辑过][/color][/align]"<br/>   Else<br/>    If Dvbbs.forum_setting(48)="1" Then char_changed = "[align=right][color=#000066][此贴子已经被作者于"&Now()&"编辑过][/color][/align]"<br/>   End If<br/>   Get_Edit_PermissionInfo<br/>   Dim Contentdata,LastPost_l<br/>   Contentdata=Content<br/>   Dvbbs.ShowErr<br/>   '取出当前版面最后回复id,如果本帖为最后回复则更新相应数据<br/>   Set Rs = Dvbbs.Execute("select LastPost from dv_board where boardid="&Dvbbs.BoardID)<br/>   If not (Rs.EOF And Rs.BOF) Then<br/>    If Not IsNull(rs(0)) And rs(0)<>"" then<br/>     LastBoard=split(rs(0),"$")<br/>     If ubound(LastBoard)=7 Then<br/>      If cCur(LastBoard(1))=cCur(AnnounceID) Then<br/>       If signflag=2 Then LastBoard(0)="匿名用户":LastBoard(5)=""<br/>       LastPost=LastBoard(0) & "$" & LastBoard(1) & "$" & Now() & "$" & LastBoard(3) & "$" & LastBoard(4) & "$" & LastBoard(5) & "$" & LastBoard(6) & "$" & Dvbbs.BoardID<br/>       dvbbs.execute("update dv_board set LastPost='"&Replace(Replace(LastPost,"'",""),"<","&lt;")&"' where boardid="&Dvbbs.BoardID)<br/>       UpDate_BoardInfoAndCache()<br/>      End If<br/>     End If<br/>    End If<br/>   End If</p><p>   '取得当前主题最后回复id,如果本帖为最后回复则更新相应数据<br/>   Dim iFoundUseMagic,MyMagicFace<br/>   Set Rs=Dvbbs.Execute("select LastPost,istop,Expression from dv_topic where topicid="&rootid)<br/>   If Not (Rs.Eof And Rs.Bof) Then<br/>    istop=rs(1)<br/>    MyMagicFace = Split(Rs(2),"|")<br/>    If Ubound(MyMagicFace) = 1 Then iFoundUseMagic = MyMagicFace(0)<br/>    If Not Isnull(Rs(0)) And Rs(0)<>"" Then<br/>     LastTopic=split(rs(0),"$")<br/>     If Ubound(LastTopic)=7 Then<br/>      If cCur(LastTopic(1))=cCur(Announceid) Then<br/>       If signflag=2 Then LastTopic(0)="匿名用户":LastTopic(5)=""<br/>       LastPost=LastTopic(0) & "$" & LastTopic(1) & "$" & Now() & "$" & Replace(cutStr(reubbcode(Contentdata),20),"$","&#36;") & "$" & LastTopic(4) & "$" & LastTopic(5) & "$" & LastTopic(6) & "$" & Dvbbs.BoardID<br/>       dvbbs.execute("update dv_topic set LastPost='"&Replace(LastPost,"'","")&"' where topicid="&rootid)<br/>      End If<br/>     End If<br/>    End If<br/>   End If</p><p>   Set Rs = Server.CreateObject("ADODB.Recordset")<br/>   SQL="SELECT * FROM "&TotalUseTable&" where AnnounceID="&Announceid&" And username='"&username&"'"<br/>   rs.Open SQL,conn,1,3<br/>   If Rs.EOF And Rs.BOF Then<br/>    If Not CanEditPost Then Dvbbs.AddErrCode(77)<br/>   ElseIf Not Dvbbs.master And rs("locktopic")=1 then<br/>    Dvbbs.AddErrCode(78)<br/>   Else<br/>    If Rs("parentid")=0 then<br/>     Dim iExpression<br/>     iExpression = ",Expression='"&Expression(0)&"|"&Expression(1)&"'"<br/>     If signflag=2 Then<br/>      Dvbbs.Execute("update dv_topic set title='"&topic&"',TopicMode="&MyTopicMode&",isSmsTopic="&isAlipayTopic&" "&iExpression&",HideName=1 where topicid="&rootid)<br/>     Else<br/>      Dvbbs.Execute("update dv_topic set title='"&topic&"',TopicMode="&MyTopicMode&",isSmsTopic="&isAlipayTopic&" "&iExpression&" where topicid="&rootid)<br/>     End If<br/>    End If<br/>    If IsAudit = 1 Then<br/>     Rs("locktopic")=3<br/>    ElseIf Rs("locktopic")=3 And IsAudit = 0 Then<br/>     Rs("locktopic")=0<br/>    End If<br/>    Rs("Topic") =Replace(Topic,"''","'")<br/>    rs("Body") =Replace(Content,"''","'")<br/>    rs("length")=Dvbbs.strlength(Content)<br/>    rs("ip")=Dvbbs.UserTrueIP<br/>    rs("Expression")=Expression(1)<br/>    rs("signflag")=signflag<br/>    rs("emailflag")=mailflag<br/>    If Rs("isupload")=0 And ihaveupfile=1 Then Rs("isupload")=1<br/>    Dim UbblistBody<br/>    UbblistBody = Ubblist(Content)<br/>    Rs("Ubblist")=UbblistBody<br/>    rs.Update<br/>    If ihaveupfile=1 Then dvbbs.execute("update dv_upfile set F_AnnounceID='"&rootid&"|"&AnnounceID&"',F_Readme='"&Replace(Rs("Topic"),"'","''")&"',F_flag=0 where F_ID in ("&upfileinfo&")")<br/>    If FoundUseMagic Then<br/>     If iMagicFace <> Clng(iFoundUseMagic) Then<br/>      If cCur(Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usermoney").text ) > tMagicMoney Then<br/>       Dvbbs.Execute("Update Dv_User Set UserMoney=UserMoney-"&tMagicMoney&" Where UserID="&Dvbbs.UserID)<br/>       Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usermoney").text =Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usermoney").text -tMagicMoney<br/>       Dvbbs.ToolsLog -88,1,tMagicMoney,0,1,"使用金币购买魔法表情",Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usermoney").text  & "|" & Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userticket").text<br/>      Else<br/>       Dvbbs.Execute("Update Dv_User Set UserTicket=UserTicket-"&tMagicTicket&" Where UserID="&Dvbbs.UserID)<br/>       Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userticket").text=Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userticket").text-tMagicTicket<br/>       Dvbbs.ToolsLog -88,1,0,tMagicTicket,1,"使用点券购买魔法表情",Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usermoney").text  & "|" & Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userticket").text<br/>      End If<br/>     End If<br/>    End If<br/>   End If <br/>   Rs.Close<br/>   Set Rs=Nothing<br/>   Dvbbs.ShowErr()<br/>  End Sub<br/>  '更新版面数据和缓存<br/>  Public Sub UpDate_BoardInfoAndCache()<br/>   Dim UpdateBoardID,parentstr<br/>   parentstr =Application(Dvbbs.CacheName&"_boardlist").documentElement.selectSingleNode("board[@boardid='"&Dvbbs.BoardID&"']/@parentstr").text<br/>   If parentstr <> "0" Then <br/>    UpdateBoardID= parentstr & "," & Dvbbs.BoardID<br/>   Else<br/>    UpdateBoardID=Dvbbs.BoardID<br/>   End If<br/>   Dim updateboard,i<br/>   LastPost_1=replace(LastPost_1,"<","&lt;")<br/>   If Action = 6 Then<br/>    SQL="update Dv_board set PostNum=PostNum+1,todaynum=todaynum+1,LastPost='"&LastPost_1&"' where boardid in ("&UpdateBoardID&")"<br/>   ElseIf Action = 5 Or Action = 7 Then<br/>    SQL="update Dv_board set PostNum=PostNum+1,TopicNum=TopicNum+1,todaynum=todaynum+1,LastPost='"&LastPost_1&"' where boardid in ("&UpdateBoardID&")"<br/>   ElseIf Action = 8 Then<br/>    LastPost_1=replace(LastPost,"<","&lt;")<br/>   End If<br/>   Dvbbs.Execute(sql)<br/>   UpdateBoardID=Split(UpdateBoardID,",")<br/>   LastPost_1=Split(LastPost_1,"$")<br/>   For Each updateboard in UpdateBoardID<br/>    If IsObject(Application(Dvbbs.CacheName &"_information_" & updateboard)) Then<br/>     If Not Action = 8 Then<br/>      Application(Dvbbs.CacheName &"_information_" & updateboard).documentElement.selectSingleNode("information/@postnum").text=CLng(Application(Dvbbs.CacheName &"_information_" & updateboard).documentElement.selectSingleNode("information/@postnum").text)+1<br/>      Application(Dvbbs.CacheName &"_information_" & updateboard).documentElement.selectSingleNode("information/@todaynum").text=CLng(Application(Dvbbs.CacheName &"_information_" & updateboard).documentElement.selectSingleNode("information/@todaynum").text)+1<br/>     End If<br/>     If Action = 5 Or Action = 7 Then<br/>      Application(Dvbbs.CacheName &"_information_" & updateboard).documentElement.selectSingleNode("information/@topicnum").text=CLng(Application(Dvbbs.CacheName &"_information_" & updateboard).documentElement.selectSingleNode("information/@topicnum").text)+1<br/>     End If<br/>     For i=0 to UBound(LastPost_1)<br/>      Application(Dvbbs.CacheName &"_information_" & updateboard).documentElement.selectSingleNode("information/@lastpost_"& i &"").text=LastPost_1(i)<br/>     Next<br/>    End If<br/>   Next<br/>  End Sub<br/>  Public Sub UpDate_ForumInfoAndCache()<br/>   Dim updateinfo,LastPostTime<br/>   Dim Forum_LastPost,Forum_TodayNum,Forum_MaxPostNum<br/>   Forum_LastPost=Dvbbs.CacheData(15,0)<br/>   Forum_TodayNum=Dvbbs.CacheData(9,0)<br/>   Forum_MaxPostNum=Dvbbs.CacheData(12,0)<br/>   LastPostTimes=split(Forum_LastPost,"$")<br/>   LastPostTime=LastPostTimes(2)<br/>   If Not IsDate(LastPostTime) Then LastPostTime=Now()<br/>   If datediff("d",LastPostTime,Now())=0 Then<br/>    If CLng(Forum_TodayNum)+1 > CLng(Forum_MaxPostNum) Then <br/>     updateinfo=",Forum_MaxPostNum=Forum_TodayNum+1,Forum_MaxPostDate="&SqlNowString&""<br/>     Dvbbs.ReloadSetupCache Now(),13<br/>     Dvbbs.ReloadSetupCache CLng(Forum_TodayNum)+1,12<br/>    End If<br/>    Dvbbs.ReloadSetupCache CLng(Forum_TodayNum)+1,9<br/>    If Action = 6 Then<br/>     SQL="update Dv_setup set Forum_PostNum=Forum_PostNum+1,Forum_TodayNum=Forum_TodayNum+1,Forum_LastPost='"&LastPost&"' "&updateinfo&" "<br/>    Else<br/>     SQL="update Dv_setup set Forum_TopicNum=Forum_TopicNum+1,Forum_PostNum=Forum_PostNum+1,Forum_TodayNum=Forum_TodayNum+1,Forum_LastPost='"&LastPost&"' "&updateinfo&" "<br/>    End If<br/>   Else<br/>    If Action = 6 Then<br/>     SQL="update Dv_setup set Forum_PostNum=Forum_PostNum+1,forum_YesTerdayNum="&CLng(Forum_TodayNum)&",Forum_TodayNum=1,Forum_LastPost='"&LastPost&"' "<br/>    Else<br/>     SQL="update Dv_setup set Forum_TopicNum=Forum_TopicNum+1,Forum_PostNum=Forum_PostNum+1,forum_YesTerdayNum="&CLng(Forum_TodayNum)&",Forum_TodayNum=1,Forum_LastPost='"&LastPost&"' "<br/>    End If<br/>    Dvbbs.ReloadSetupCache 1,9<br/>   End If<br/>   '更新总固顶部分数据和缓存<br/>   If Not Action = 6 Then<br/>    If Myistop=2 Then<br/>     Dim tmpstr<br/>     If Dvbbs.CacheData(28,0)="" Then<br/>      tmpstr=", Forum_alltopnum='"&RootID&"'"<br/>      Dvbbs.ReloadSetupCache RootID,28<br/>     Else<br/>      tmpstr=", Forum_alltopnum='"&Dvbbs.CacheData(28,0)&","&RootID&"'"<br/>      Dvbbs.ReloadSetupCache Dvbbs.CacheData(28,0)&","&RootID,28<br/>     End If <br/>     SQL=SQl&tmpstr<br/>    End If<br/>    Dvbbs.ReloadSetupCache CLng(Dvbbs.CacheData(7,0))+1,7'主题数<br/>   End If<br/>   Dvbbs.ReloadSetupCache CLng(Dvbbs.CacheData(8,0))+1,8'文章数<br/>   Dvbbs.ReloadSetupCache LastPost,15<br/>   Dvbbs.Execute(SQL)<br/>  End Sub<br/>  Public Sub succeed()</p><p>   Dim Uid,bid<br/>   Uid = Dvbbs.userid<br/>   Bid = Dvbbs.boardid<br/>   If PostStyle = "1" Then<br/>    Dvbbs.Footer<br/>    username = Server.htmlencode(Replace(Replace(username,"\","\\"),"'","\'"))<br/>    topic = Server.htmlencode(Replace(Replace(topic,"\","\\"),"'","\'"))<br/>    Response.Write "<script>"<br/>    Response.Write "parent.post_add('"&username&"',"&Uid&",0,0,"&RootID&","&Bid&","&Star&",'"&MyLastPostTime&"','"&username&"',"&Uid&",'"&topic&"','"&DateTimeStr&"',"&locktopic&","&isvote&");"<br/>    Response.Write vbNewline<br/>    Response.Write "alert('发表成功！');parent.close_postform();</script>"<br/>    Response.End<br/>   End If</p><p>   Dim TempStr,PostRetrunName,tourl,returnurl<br/>   If IsAudit=1 And Action <> 8 Then Dvbbs.BoardID=LockTopic<br/>   Dvbbs.Stats = Dvbbs.Stats & template.Strings(20)<br/>   TempStr = template.html(8)<br/>   Select case Dvbbs.Board_Setting(17)<br/>   case "1"<br/>    tourl = "index.asp"<br/>    PostRetrunName=template.Strings(13)<br/>   case "2"<br/>    tourl="index.asp?boardid="&Dvbbs.boardid<br/>    PostRetrunName=template.Strings(14)<br/>   case "3","4"<br/>    If IsAudit=1  Then<br/>     tourl="index.asp?boardid="&Dvbbs.boardid<br/>     If IsAuditcheck=1 Then<br/>      PostRetrunName="由于您发表的贴子含敏感内容，您的贴子需要管理员审核过才可以见到。"<br/>     ElseIf IsAuditcheck=2 Then<br/>      PostRetrunName="由于您尚未达到豁免审核的条件，您的贴子需要管理员审核过才可以见到。" <br/>     Else<br/>      PostRetrunName=template.Strings(19)<br/>     End If <br/>    Else<br/>     Select Case Action<br/>     Case 5<br/>     tourl="dispbbs.asp?boardid="&Dvbbs.boardid&"&id="&RootID&"&star="&Star&"&page=1"<br/>     PostRetrunName=template.Strings(15)<br/>     Case 6<br/>     tourl="dispbbs.asp?boardid="&Dvbbs.boardid&"&id="&RootID&"&star="&Star&"&page=1"<br/>     PostRetrunName=template.Strings(16)<br/>     Case 7<br/>     tourl="dispbbs.asp?boardid="&Dvbbs.boardid&"&id="&RootID&"&star="&Star&"&page=1"<br/>     PostRetrunName=template.Strings(17)<br/>     Case 8<br/>     tourl="dispbbs.asp?boardid="&Dvbbs.boardid&"&id="&RootID&"&star="&Star&"&page=1"<br/>     PostRetrunName=template.Strings(18)<br/>     End Select<br/>     If Dvbbs.Board_Setting(17) = "4" Then<br/>      tourl = Dvbbs.ArchiveHtml(tourl)<br/>      Dvbbs.Footer<br/>      Response.redirect tourl<br/>      Response.end<br/>     End If<br/>    End If<br/>   End Select<br/>   returnurl=Dvbbs.ArchiveHtml("dispbbs.asp?boardid="&Dvbbs.boardid&"&id="&RootID&"&star="&Star&"&page=1")</p><p>   TempStr = Replace(TempStr,"{$tourl}",Dvbbs.ArchiveHtml(tourl))<br/>   TempStr = Replace(TempStr,"{$returnurl}",returnurl)<br/>   TempStr = Replace(TempStr,"{$stats}",Dvbbs.Stats)<br/>   TempStr = Replace(TempStr,"{$boardname}",Dvbbs.BoardType)<br/>   TempStr = Replace(TempStr,"{$boardid}",Dvbbs.BoardID)<br/>   TempStr = Replace(TempStr,"{$page}",page)<br/>   TempStr = Replace(TempStr,"{$PostRetrunName}",PostRetrunName)<br/>   Response.Write TempStr<br/>  End Sub<br/>  Private Function checktable(Table)<br/>   Table=Right(Trim(Table),2)<br/>   If Not IsNumeric(table) Then Table=Right(Trim(Table),1)<br/>   If Not IsNumeric(table) Then Dvbbs.AddErrCode(30)<br/>   checktable="Dv_bbs"&table<br/>  End Function<br/>  '检查提交来源<br/>  Public Sub CheckfromScript()<br/>   If Not Dvbbs.ChkPost() Then Dvbbs.AddErrCode(16):Dvbbs.Showerr()<br/>    If CStr(Request.Cookies("Dvbbs"))=CStr(Dvbbs.Boardid) Then Dvbbs.AddErrCode(30):Dvbbs.Showerr()<br/>    If (Not ChkUserLogin) And (Action = 5 Or Action = 6 Or Action = 7) And Dvbbs.UserID>0 Then Dvbbs.AddErrCode(12):Dvbbs.Showerr() <br/>  End Sub<br/>  '判断发贴时间间隔<br/>  Private Sub CheckpostTime()<br/>   If Dvbbs.Board_Setting(30)="1"  Then <br/>    If IsDate(Session(Dvbbs.CacheName & "posttime"))  Then<br/>     If DateDiff("s",Session(Dvbbs.CacheName & "posttime"),Now())<CLng(Dvbbs.Board_Setting(31)) Then<br/>      template.Strings(33) = Replace(template.Strings(33),"{$PostTimes}",Dvbbs.Board_Setting(31))<br/>       parameter="showerr.asp?ErrCodes=<Br>"+"<li>"&template.Strings(33)&"&action=OtherErr"<br/>      Set Dvbbs=Nothing<br/>      Response.redirect parameter<br/>     End If<br/>    End If<br/>    Session(Dvbbs.CacheName & "posttime")=Now()<br/>   End If<br/>  End Sub <br/>  '检查用户身份<br/>  Public Function ChkUserLogin()<br/>    ChkUserLogin=False<br/>    '取得发贴用户名和密码<br/>   If Dvbbs.UserID=0 Then<br/>    UserName="客人"<br/>   Else<br/>    UserName=Dvbbs.Checkstr(Request("username"))<br/>   End If<br/>   '校验用户名和密码是否合法<br/>   If UserName="" Or Dvbbs.strLength(userName)>Cint(Dvbbs.Forum_setting(41)) Or Dvbbs.strLength(userName) < Cint(Dvbbs.Forum_setting(40)) Then Dvbbs.AddErrCode(17)<br/>   If Not IstrueName(UserName) Then Dvbbs.AddErrCode(18)<br/>   Dvbbs.ShowErr()<br/>   If Action = 8 Then<br/>    '编辑贴子，检查用户身份<br/>    UserPassWord=Dvbbs.checkStr(Trim(Request.Cookies(Dvbbs.Forum_sn)("password")))<br/>    SQL = "Select JoinDate,UserID,UserPost,UserGroupID,userclass,lockuser,TruePassWord From [Dv_User] Where UserID="&Dvbbs.UserID<br/>   Else<br/>    '检查用户是否当前用户<br/>    If UserName<>Dvbbs.MemberName Then<br/>     Reuser=True<br/>     UserPassWord=Dvbbs.Checkstr(Trim(Request("passwd")))<br/>     UserPassWord=md5(UserPassWord,16)<br/>     SQL = "Select JoinDate,UserID,UserPost,UserGroupID,userclass,lockuser,userpassword From [Dv_User] Where UserName='"&UserName&"' "<br/>    Else<br/>     UserPassWord=Dvbbs.checkStr(Trim(Request.Cookies(Dvbbs.Forum_sn)("password")))<br/>     SQL = "Select JoinDate,UserID,UserPost,UserGroupID,userclass,lockuser,TruePassWord From [Dv_User] Where UserID="&Dvbbs.UserID  <br/>    End If<br/>   End If<br/>   If Len(UserPassWord)<>16 AND Len(UserPassWord)<>32 Then Dvbbs.AddErrCode(18)<br/>    Set Rs=Dvbbs.Execute(SQL)<br/>    If Not Rs.EOF Then<br/>    If Not (UserPassWord<>rs(6) Or rs(5)=1 or rs(3)=5) Then<br/>     '不允许使用马甲<br/>     If Dvbbs.UserID<>Rs(1) Then<br/>      ChkUserLogin = False<br/>     Else<br/>      Dvbbs.UserID=Rs(1) <br/>       UserPost=Rs(2)<br/>       GroupID=Rs(3)<br/>       userclass=Rs(4)<br/>       ChkUserLogin=True<br/>     End If<br/>     Response.cookies("upNum")=0<br/>     Else<br/>       Dvbbs.LetGuestSession()   <br/>    End If<br/>    End If<br/>    Set Rs = Nothing<br/>   End Function<br/>   '更新用户积分，所需外部变量,UserPost,userid,（外加发贴回贴的积分设置数据）<br/>  Public Sub updatepostuser()<br/>   '投票，发贴，更新积分<br/>   '更新最后发贴时间<br/>   Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@activetime").text = Now()<br/>   If IsAudit> 0 Then Exit Sub<br/>   Dim MagicSql<br/>   If Action = 5 Or Action = 7 Then <br/> '   If FoundUseMagic Then<br/> '    If cCur(Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usermoney").text ) > tMagicMoney Then<br/> '     Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usermoney").text =Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usermoney").text -tMagicMoney<br/> '     Dvbbs.ToolsLog -88,1,tMagicMoney,0,1,"使用金币购买魔法表情",Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usermoney").text  & "|" & Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userticket").text<br/> '    Else<br/> '     MagicSql = ",UserTicket=UserTicket-"&tMagicTicket&""<br/> '     Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userticket").text=Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userticket").text-tMagicTicket<br/> '     Dvbbs.ToolsLog -88,1,0,tMagicTicket,1,"使用点券购买魔法表情",Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usermoney").text  & "|" & Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userticket").text<br/> '    End If<br/> '   End If<br/>    Dvbbs.Execute("update [Dv_user] set UserLastIP='"&Dvbbs.usertrueip&"',UserPost=UserPost+1,UserTopic=UserTopic+1,userWealth=userWealth+"&Clng(Dvbbs.Forum_user(1))&",userEP=userEP+"&Clng(Dvbbs.Forum_user(6))&",userCP=userCP+"&Clng(Dvbbs.Forum_user(11))&",UserToday='"&Clng(Dvbbs.UserToday(0))+1&"|"&Clng(Dvbbs.UserToday(1))&"|"&Clng(Dvbbs.UserToday(2))&"|"&Clng(Dvbbs.UserToday(3))&"|"&Clng(Dvbbs.UserToday(4))&"',UserMoney="&Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usermoney").text &" "&MagicSql&" Where UserID="&Dvbbs.userID)<br/>    If Not Reuser Then<br/>     UserPost=UserPost+1<br/>     Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usertopic").text =CCur(Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usertopic").text)+1<br/>     Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userwealth").text=Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userwealth").text+Clng(Dvbbs.Forum_user(1))<br/>     Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userep").text=Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userep").text+Clng(Dvbbs.Forum_user(6))<br/>     Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usercp").text =Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usercp").text +Clng(Dvbbs.Forum_user(11))<br/>    End If<br/> '  ElseIf Action = 6 Then '回贴更新积分。<br/> '   If Not Reuser Then<br/> '    Dvbbs.Execute("update [Dv_user] set UserLastIP='"&Dvbbs.usertrueip&"',UserPost=UserPost+1,userWealth=userWealth+"&Clng(Dvbbs.Forum_user(2))&",userEP=userEP+"&Clng(Dvbbs.Forum_user(7))&",userCP=userCP+"&Clng(Dvbbs.Forum_user(12))&",UserToday='"&Clng(Dvbbs.UserToday(0))+1&"|"&Clng(Dvbbs.UserToday(1))&"|"&Clng(Dvbbs.UserToday(2))&"|"&Clng(Dvbbs.UserToday(3))&"|"&Clng(Dvbbs.UserToday(4))&"',UserMoney="&Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usermoney").text &" Where UserID="&Dvbbs.userID)<br/> '    UserPost=UserPost+1<br/> '    Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userwealth").text=Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userwealth").text+Clng(Dvbbs.Forum_user(2))<br/> '    Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userep").text=Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userep").text+Clng(Dvbbs.Forum_user(7))<br/> '    Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usercp").text =Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usercp").text +Clng(Dvbbs.Forum_user(12))<br/> '   Else<br/> '    Dvbbs.Execute("update [Dv_user] set UserLastIP='"&Dvbbs.usertrueip&"',UserPost=UserPost+1,userWealth=userWealth+"&Clng(Dvbbs.Forum_user(2))&",userEP=userEP+"&Clng(Dvbbs.Forum_user(7))&",userCP=userCP+"&Clng(Dvbbs.Forum_user(12))&",UserMoney="&Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usermoney").text &" Where UserID="&Dvbbs.userID)<br/> '   End If<br/>   End If<br/>   If Not Reuser Then<br/>    Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userpost").text =CCur(Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userpost").text)+1<br/>    Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usertoday").text=Clng(Dvbbs.UserToday(0))+1 & "|" & Clng(Dvbbs.UserToday(1)) & "|" & Clng(Dvbbs.UserToday(2))&"|"&Clng(Dvbbs.UserToday(3))&"|"&Clng(Dvbbs.UserToday(4))<br/>   End If<br/>   '发贴数字能整除十则更新用户等级。(Updategrade())<br/>   If UserPost mod 10 < 1  Then Updategrade()<br/>  End Sub<br/>  <br/>  <br/>  '更新用户等级，所需外部变量,UserPost,GroupID,userid<br/>  Public Sub Updategrade()<br/>   Dim FoundGrade,TitlePic<br/>   REM 判断用户组(等级)资料，当用户级别为跟随文章数增长则自动更新用户组(等级)<br/>   REM 自动更新用户数据<br/>   REM 如果属于系统或特殊或多属性组<br/>   Set Rs=Dvbbs.Execute("Select MinArticle,IsSetting,ParentGID,UserTitle,GroupPic From Dv_UserGroups Where UserGroupID="&GroupID)<br/>   If Not (Rs.Eof And Rs.Bof) Then<br/>    If Rs(2)<>3 Then<br/>     '用户等级不按照文章升级，用户为系统或特殊或多属性组<br/>     UserClass=Rs(3)<br/>     TitlePic=Rs(4)<br/>     FoundGrade=True<br/>    End If<br/>   End If<br/>   If Not FoundGrade Then<br/>    '如果不属于系统或特殊或多属性组,则将该用户属于注册用户组且按照其文章数自动更新其用户组(等级)<br/>    Set Rs=Dvbbs.Execute("Select Top 1 usertitle,GroupPic,UserGroupID From Dv_UserGroups Where ParentGID=3 And Minarticle<="&UserPost&" Order By MinArticle Desc,UserGroupID")<br/>    If Not (Rs.Eof And Rs.Bof) Then<br/>     UserClass=Rs(0)<br/>     TitlePic=Rs(1)<br/>     GroupID=Rs(2)<br/>     FoundGrade=True<br/>    End If<br/>   End If<br/>   Set Rs=Nothing<br/>   If Not FoundGrade Then Response.Redirect "showerr.asp?ShowErrType="&Dvbbs.ErrType&"&ErrCodes=<li>系统没有找到您的注册用户组资料，请联系管理员进行修正。&action=OtherErr"<br/>   Dvbbs.Execute("Update [Dv_User] Set UserClass='"&UserClass&"',TitlePic='"&TitlePic&"',UserGroupID="&GroupID&" Where UserID="&Dvbbs.UserID)<br/>   'If Not Reuser Then<br/>    Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userclass").text = UserClass<br/>    Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usergroupid").text = GroupID<br/>   'End If<br/>  End Sub<br/>  Function AccessPost()<br/>   Dim Dom,node,ischeckcontent<br/>   If Cint(Dvbbs.Board_Setting(3))=0 Then<br/>    AccessPost=0<br/>    Exit Function<br/>   End If<br/>   ischeckcontent=0<br/>   Set Dom=Application(Dvbbs.CacheName & "_accesstopic")<br/>   '检查审核是否有打开设置<br/>   Set Node=Dom.documentElement.selectSingleNode("setting[@use=1]")<br/>   If Node is Nothing Then<br/>    AccessPost=0<br/>    Exit Function<br/>   End If<br/>   '检查是否属于需要审核的用户组<br/>   Set Node=Dom.documentElement.selectSingleNode("setting[@use=1]/checkuser[@use=1 and @usergroupid="&dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usergroupid").text&"]")<br/>   If Node is Nothing Then<br/>     AccessPost=0<br/>    Exit Function<br/>   End If<br/>   '用户被豁免审核判断<br/>   Set Node=Dom.documentElement.selectSingleNode("setting[@use=1]/nocheck/username[.='"&Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@username").text&"']")<br/>   If Not Node is Nothing Then<br/>    AccessPost=0<br/>    Exit Function<br/>   End If<br/>   Rem action=5 主题 actiom=6 回复 action=7 投票 action=8 编辑<br/>   Dim tmpstr,laction,regdate,delPercent<br/>    Select Case action<br/>     Case "5"<br/>      tmpstr="setting[@use=1]/check[@new=1]"<br/>      laction="new"<br/>     Case "6"<br/>       tmpstr="setting[@use=1]/check[@re=1]"<br/>       laction="re"<br/>     Case "7"<br/>      tmpstr="setting[@use=1]/check[@new=1]"<br/>      laction="new"<br/>     Case "8"<br/>      tmpstr="setting[@use=1]/check[@edit=1]"<br/>      laction="edit"<br/>    End Select<br/>   If Dom.documentElement.selectSingleNode(tmpstr) Is Nothing Then<br/>    AccessPost=0<br/>    Exit Function<br/>   End If <br/>   regdate=Datediff("d",Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@joindate").text,Now())<br/>   If CCur(Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userpost").text) > 0 Or CCur(Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userdel").text) < 0 Then<br/>    delPercent=CCur(Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userpost").text)-CCur(Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userdel").text)<br/>    delPercent=(0-CCur(Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userdel").text))/delPercent<br/>   Else<br/>    delPercent=0<br/>   End If<br/>   delPercent=FormatPercent(delPercent)<br/>   For Each node in Dom.documentElement.selectNodes("setting[@use=1 and check/@"&laction&"=1]/checkuser[@use=1 and @usergroupid="&dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usergroupid").text&"]")<br/>    '主题数判断<br/>    If Node.selectSingleNode("usertopic/@use").text="1" Then<br/>     If CCur(Node.selectSingleNode("usertopic/@value").text) > CCur(Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usertopic").text) Then<br/>      AccessPost=1<br/>      Exit For<br/>     End If<br/>    End If<br/>    '回贴数<br/>    If Node.selectSingleNode("userpost/@use").text="1" Then<br/>     If CCur(Node.selectSingleNode("userpost/@value").text) > CCur(Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userpost").text) Then<br/>      AccessPost=1<br/>      Exit For<br/>     End If<br/>    End If<br/>    '注册天数的比较<br/>    If Node.selectSingleNode("regdate/@use").text="1" Then<br/>     If CCur(Node.selectSingleNode("regdate/@value").text) > regdate Then<br/>      AccessPost=1<br/>      Exit For<br/>     End If<br/>    End If<br/>    '删贴百分比比较<br/>    If Node.selectSingleNode("userdel/@use").text="1" Then<br/>     If FormatNumber(Node.selectSingleNode("userdel/@value").text) <  FormatNumber(delPercent) Then<br/>      AccessPost=1<br/>      Exit For<br/>     End If<br/>    End If<br/>    '对被屏蔽用户是否审核的判断<br/>    If Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@lockuser").text="2" And Node.selectSingleNode("lockuser/@use").text="1" Then<br/>     AccessPost=1<br/>     Exit For<br/>    End If<br/>    If Node.selectSingleNode("checkcontent/@use").text="1" Then<br/>     Ischeckcontent=1<br/>    End If<br/>   Next<br/>   If AccessPost=1 Then<br/>    Exit Function<br/>   End If<br/>   If ischeckcontent=0 Then<br/>    AccessPost=0<br/>   Else<br/>    Set Node=Dom.documentElement.selectNodes("setting[@use=1]/checkcontent")<br/>    AccessPost=checkcontent(node)<br/>   End If<br/>  End Function<br/>  Function checkcontent(node1)<br/>   Dim re,s,node,tmpnode<br/>   checkcontent=0<br/>   s=Request("topic")&Request("Body")<br/>   Set re=new RegExp<br/>   re.IgnoreCase =True<br/>   re.Global=True<br/>   For Each Node in node1<br/>    '含图片检查<br/>    If Node.selectSingleNode("checkpic/@use").text="1" Then<br/>     re.Pattern="(\[IMG\]|<img)"<br/>     If re.Test(s) Then<br/>      checkcontent=1<br/>      Exit For<br/>     End If<br/>    End If<br/>    '含链接检查<br/>    If Node.selectSingleNode("checklink/@use").text="1" Then<br/>     re.Pattern="(\[url\]|<a |http://|https://)"<br/>     If re.Test(s) Then<br/>      checkcontent=1<br/>      Exit For<br/>     End If<br/>    End If<br/>    '含flash检查<br/>    If Node.selectSingleNode("checkflash/@use").text="1" Then<br/>     re.Pattern="(\[flash|<object )"<br/>     If re.Test(s) Then<br/>      checkcontent=1<br/>      Exit For<br/>     End If<br/>    End If<br/>    '含媒体播放检查<br/>    If Node.selectSingleNode("checkmp/@use").text="1" Then<br/>     re.Pattern="(\[mp)"<br/>     If re.Test(s) Then<br/>      checkcontent=1<br/>      Exit For<br/>     End If<br/>    End If<br/>    '含媒rm检查<br/>    If Node.selectSingleNode("checkrm/@use").text="1" Then<br/>     re.Pattern="(\[rm)"<br/>     If re.Test(s) Then<br/>      checkcontent=1<br/>      Exit For<br/>     End If<br/>    End If<br/>    For Each tmpnode in Node.selectNodes("checkword")<br/>     re.Pattern=tmpnode.selectSingleNode("@content").text<br/>     If re.Test(s) Then<br/>      checkcontent=1<br/>      Exit For<br/>     End If<br/>    Next<br/>   Next<br/>   set re=Nothing<br/>  End Function<br/> End Class</p><p> '截取指定字符<br/> Function cutStr(str,strlen)<br/>  '去掉所有HTML标记<br/>  'Dim re<br/>  'Set re=new RegExp<br/>  're.IgnoreCase =True<br/>  're.Global=True<br/>  're.Pattern="<([^<>]*?)>"<br/>  'Do while re.Test(str)<br/>  ' str=re.Replace(str,"")<br/>  'Loop<br/>  'set re=Nothing<br/>  Str=Dvbbs.Replacehtml(Str)<br/>  Dim l,t,c,i<br/>  l=Len(str)<br/>  t=0<br/>  For i=1 to l<br/>   c=Abs(Asc(Mid(str,i,1)))<br/>   If c>255 Then<br/>    t=t+2<br/>   Else<br/>    t=t+1<br/>   End If<br/>   If t>=strlen Then<br/>    cutStr=left(str,i)&"..."<br/>    Exit For<br/>   Else<br/>    cutStr=str<br/>   End If<br/>  Next<br/>  cutStr=Replace(cutStr,chr(10),"")<br/>  cutStr=Replace(cutStr,chr(13),"")<br/> End Function</p><p> '过滤不必要UBB,和HTML<br/> Function reUBBCode(strContent)<br/>  Dim re<br/>  Set re=new RegExp<br/>  re.IgnoreCase =True<br/>  re.Global=True<br/>  strContent=Replace(strContent,"&nbsp;"," ")<br/>  re.Pattern="(\[QUOTE\])(.|\n)*(\[\/QUOTE\])"<br/>  strContent=re.Replace(strContent,"")<br/>  re.Pattern="(\[point=*([0-9]*)\])(.|\n)*(\[\/point\])"<br/>  strContent=re.Replace(strContent,"&nbsp;")<br/>  re.Pattern="(\[post=*([0-9]*)\])(.|\n)*(\[\/post\])"<br/>  strContent=re.Replace(strContent,"&nbsp;")<br/>  re.Pattern="(\[power=*([0-9]*)\])(.|\n)*(\[\/power\])"<br/>  strContent=re.Replace(strContent,"&nbsp;")<br/>  re.Pattern="(\[usercp=*([0-9]*)\])(.|\n)*(\[\/usercp\])"<br/>  strContent=re.Replace(strContent,"&nbsp;")<br/>  re.Pattern="(\[money=*([0-9]*)\])(.|\n)*(\[\/money\])"<br/>  strContent=re.Replace(strContent,"&nbsp;")<br/>  re.Pattern="(\[replyview\])(.|\n)*(\[\/replyview\])"<br/>  strContent=re.Replace(strContent,"&nbsp;")<br/>  re.Pattern="(\[usemoney=*([0-9]*)\])(.|\n)*(\[\/usemoney\])"<br/>  strContent=re.Replace(strContent,"&nbsp;")<br/>  strContent=Replace(strContent,"<I></I>","")<br/>  Set re=Nothing<br/>  strContent=Replace(strContent,Chr(10),"")<br/>  strContent=Replace(strContent,Chr(13),"")<br/>  strContent=Replace(strContent, CHR(32), " ")<br/>  strContent=Replace(strContent, CHR(9), " ")<br/>  strContent=Dvbbs.Replacehtml(strContent)<br/>  reUBBCode=replace(strContent,"<","&lt;")<br/> End Function</p><p> '通用函数<br/> Function IstrueName(uName)<br/>  IstrueName=False<br/>  If InStr(uName,"=")>0 Then Exit Function<br/>  If InStr(uName,"%")>0 Then Exit Function <br/>  If InStr(uName,Chr(32))>0 Then Exit Function <br/>  If InStr(uName,"?")>0 Then Exit Function <br/>  If InStr(uName,"&")>0 Then Exit Function <br/>  If InStr(uName,";")>0 Then Exit Function <br/>  If InStr(uName,",")>0 Then Exit Function <br/>  If InStr(uName,"'")>0 Then Exit Function <br/>  If InStr(uName,Chr(34))>0 Then Exit Function <br/>  If InStr(uName,chr(9))>0 Then Exit Function <br/>  If InStr(uName,"　")>0 Then Exit Function <br/>  If InStr(uName,"$")>0 Then Exit Function<br/>  IstrueName=True  <br/> End Function<br/> '发贴时用，为了减少入库量<br/> '更新用户短信通知信息（新短信条数||新短讯ID||发信人名）<br/> Sub UPDATE_User_Msg(username)<br/>  Dim msginfo,i,UP_UserInfo,newmsg<br/>  newmsg=newincept(username)<br/>  If newmsg>0 Then<br/>   msginfo=newincept(username) & "||" & inceptid(1,username) & "||" & inceptid(2,username)<br/>  Else<br/>   msginfo="0||0||null"<br/>  End If<br/>  Dvbbs.execute("UPDATE [Dv_User] Set UserMsg='"&Dvbbs.CheckStr(msginfo)&"' WHERE username='"&Dvbbs.CheckStr(username)&"'")<br/>  If username=Dvbbs.MemberName Then<br/>   Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usermsg").text=msginfo<br/>  Else<br/>   Call Dvbbs.NeedUpdateList(username,1)<br/>  End If<br/> End Sub</p><p> '统计留言<br/> Function newincept(iusername)<br/> Dim Rs<br/> Rs=Dvbbs.execute("SELECT Count(id) FROM Dv_Message WHERE flag=0 And issend=1 And DelR=0 And incept='"& Dvbbs.CheckStr(iusername) &"'")<br/>     newincept=Rs(0)<br/>  Set Rs=nothing<br/>  If isnull(newincept) Then newincept=0<br/> End Function</p><p> Function inceptid(stype,iusername)<br/>  Dim Rs<br/>  Set Rs=Dvbbs.execute("SELECT top 1 id,sender FROM Dv_Message WHERE flag=0 And issend=1 And DelR=0 And incept='"& Dvbbs.CheckStr(iusername) &"'")<br/>  If not rs.eof Then<br/>   If stype=1 Then<br/>    inceptid=Rs(0)<br/>   Else<br/>    inceptid=Rs(1)<br/>   End If<br/>  Else<br/>   If stype=1 Then<br/>    inceptid=0<br/>   Else<br/>    inceptid="null"<br/>   End If<br/>  End If<br/>  Set Rs=nothing<br/> End Function</p><p> %>

发布规则使用说明

在ET采集软件发布配置的规则列表使用鼠标右键菜单导入本发布规则代码。

ET采集2发布规则范例

# ET发布规则文本<br/> # 发布规则名称：Dvbbs 8.0<br/> # 版本号：2.0.721 beta<br/> # 生成时间：2009-09-30 20:54:18<br/> #<br/> [name]<br/> RHZiYnMgOC4w<br/> [/name]<br/> [urlchk]<br/> aHR0cDovL8T6tcTN+Na3L0VUY2hrLmFzcD9rZXl3b3JkPTwldGl0bGUlPg==<br/> [/urlchk]<br/> [urlpost]<br/> aHR0cDovL8T6tcTN+Na3L0VUcG9zdC5hc3A=<br/> [/urlpost]<br/> [urlreply]<br/> aHR0cDovLw==<br/> [/urlreply]<br/> [isreply]<br/> RmFsc2U=<br/> [/isreply]<br/> [len_t_s]<br/> NQ==<br/> [/len_t_s]<br/> [len_t_l]<br/> ODA=<br/> [/len_t_l]<br/> [len_c_s]<br/> NTA=<br/> [/len_c_s]<br/> [len_c_l]<br/> MTAwMDA=<br/> [/len_c_l]<br/> [ptitle]<br/> dG9waWM=<br/> [/ptitle]<br/> [pcontent]<br/> Ym9keQ==<br/> [/pcontent]<br/> [puser]<br/> dXNlcm5hbWU=<br/> [/puser]<br/> [ppsw]<br/> cGFzc3dk<br/> [/ppsw]<br/> [para1]<br/> Ym9hcmRpZD3E+rXEwtvMs7Dmv+mx4LrFDQphY3Rpb249c25ldw0K<br/> [/para1]<br/> [userlist]<br/> 1cu6xTE9w9zC6zENCtXLusUyPcPcwusy<br/> [/userlist]<br/> [paralist]</p><p> [/paralist]<br/> [ftp]<br/> RmFsc2U=<br/> [/ftp]<br/> [ftpserver]</p><p> [/ftpserver]<br/> [ftpport]<br/> MjE=<br/> [/ftpport]<br/> [ftpuser]</p><p> [/ftpuser]<br/> [ftppsw]</p><p> [/ftppsw]<br/> [ftppasv]<br/> RmFsc2U=<br/> [/ftppasv]<br/> [ymupdir]<br/> RmFsc2U=<br/> [/ymupdir]<br/> [codepage]<br/> MA==<br/> [/codepage]<br/> [translang]<br/> MA==<br/> [/translang]<br/> [transparas]<br/> dG9waWMNCmJvZHk=<br/> [/transparas]<br/> [pathfile]</p><p> [/pathfile]<br/> [urlfile]<br/> L1VwbG9hZEZpbGU=<br/> [/urlfile]<br/> [pfiles]<br/> ZmlsZXM=<br/> [/pfiles]<br/> [psurl]<br/> c3VybA==<br/> [/psurl]<br/> [isloginpost]<br/> RmFsc2U=<br/> [/isloginpost]<br/> [postcookies]</p><p> [/postcookies]<br/> [postokcode]</p><p> [/postokcode]<br/> [postaddurl]</p><p> [/postaddurl]<br/> [isubb]<br/> RmFsc2U=<br/> [/isubb]<br/> [iscrlf]<br/> RmFsc2U=<br/> [/iscrlf]<br/> [sn]<br/> OTk5OQ==<br/> [/sn]<br/> [g_id]<br/> Mw==<br/> [/g_id]

（请使用 CTRL+A 和 CTRL+C 从上栏复制规则）

免责声明：自在工坊网站所展示的作品信息由用户自行提供，其真实性、准确性和合法性由信息发布人负责。自在工坊不提供任何保证，并不承担任何法律责任。