ASP论坛bbsxp v6.0 sp1接口- 获取代码 -ET采集官方网站-自在工坊 EditorTools全自动无人值守采集软件

ASP论坛bbsxp v6.0 sp1接口

前往检查接口

前往发布接口

前往发布规则

检查接口说明

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

下载GBK检查接口文件

下载UTF-8检查接口文件

检查接口代码

<!-- #include file="Conn.asp" --><%</p><p> function HTMLEncode(fString)<br/> fString=Replace(fString,";","&#59;")<br/> fString=Replace(fString,"<","&lt;")<br/> fString=Replace(fString,">","&gt;")<br/> fString=Replace(fString,"\","&#92;")<br/> fString=Replace(fString,"--","&#45;&#45;")<br/> fString=Replace(fString,CHR(9),"&#9;")<br/> fString=Replace(fString,CHR(10),"<br>")<br/> fString=Replace(fString,CHR(13),"")<br/> fString=Replace(fString,CHR(22),"&#22;")<br/> fString=Replace(fString,CHR(32),"&#32;")<br/> fString=Replace(fString,CHR(34),"&#34;")'双引号<br/> fString=Replace(fString,CHR(39),"&#39;")'单引号<br/> fString=ReplaceText(fString,"&#([0-9]*)&#59;","&#$1;") '解决韩文字符问题<br/> if IsSqlDataBase=0 then '过滤片假名(日文字符)[\u30A0-\u30FF] by yuzi首创<br/> fString=escape(fString)<br/> fString=ReplaceText(fString,"%u30([A-F][0-F])","&#x30$1;")<br/> fString=unescape(fString)<br/> end if<br/> HTMLEncode=fString<br/> end function</p><p> Set rs = Server.CreateObject("ADODB.Recordset")</p><p> content=HTMLEncode(Request("content"))<br/> if trim(content)="" then<br/>  response.Write("1")<br/> else<br/>  sql="select top 1 * from [BBSXP_Threads] where IsDel=0 and Topic = '"&content&"'"</p><p>  Rs.Open sql,Conn,1<br/>  <br/>  count=Rs.recordcount    '数据总条数<br/>  if Count=0 then<br/>   response.Write("0")<br/>  else<br/>   response.Write("1")<br/>  end if<br/> end if<br/> CloseDatabase<br/> %>

发布接口说明

5、附加参数
　　论坛版块编号：ForumID　(取值为您要发布的版面号)

6、选用参数
　　论坛专题：SpecialTopic　(取值为您选择的专题号)

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

下载GBK发布接口文件

下载UTF-8发布接口文件

发布接口代码

<!-- #include file="Conn.asp" --><br/> <!-- #include file="inc/MD5.asp" --><br/> <%</p><p> <br/> SiteSettings=Conn.Execute("[BBSXP_SiteSettings]")<br/> CookieUserName=HTMLEncode(unescape(Request.Cookies("UserName")))</p><p> </p><p> if ""&SiteSettings("nowdate")&""<>""&date()&"" then<br/> Conn.execute("update [BBSXP_SiteSettings] set Nowdate='"&date()&"'")<br/> Conn.execute("update [BBSXP_Statistics_Site] set TodayPost=0")<br/> Conn.execute("update [BBSXP_Forums] set ForumToday=0")<br/> end if</p><p> dim toptrue,ForumsList,ForumTreeList,TotalPage,PageCount,RankName,RankIconUrl<br/> ii=0<br/> startime=timer()<br/> Set rs = Server.CreateObject("ADODB.Recordset")<br/> Server.ScriptTimeout=SiteSettings("Timeout")'设置脚本超时时间 单位:秒</p><p> function HTMLEncode(fString)<br/> fString=Replace(fString,";","&#59;")<br/> fString=Replace(fString,"<","&lt;")<br/> fString=Replace(fString,">","&gt;")<br/> fString=Replace(fString,"\","&#92;")<br/> fString=Replace(fString,"--","&#45;&#45;")<br/> fString=Replace(fString,CHR(9),"&#9;")<br/> fString=Replace(fString,CHR(10),"<br>")<br/> fString=Replace(fString,CHR(13),"")<br/> fString=Replace(fString,CHR(22),"&#22;")<br/> fString=Replace(fString,CHR(32),"&#32;")<br/> fString=Replace(fString,CHR(34),"&#34;")'双引号<br/> fString=Replace(fString,CHR(39),"&#39;")'单引号<br/> fString=ReplaceText(fString,"&#([0-9]*)&#59;","&#$1;") '解决韩文字符问题<br/> if IsSqlDataBase=0 then '过滤片假名(日文字符)[\u30A0-\u30FF] by yuzi首创<br/> fString=escape(fString)<br/> fString=ReplaceText(fString,"%u30([A-F][0-F])","&#x30$1;")<br/> fString=unescape(fString)<br/> end if<br/> HTMLEncode=fString<br/> end function<br/> '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''<br/> function ContentEncode(fString)<br/> fString=Replace(fString,vbCrlf, "")<br/> fString=Replace(fString,"\","&#92;")<br/> fString=Replace(fString,"'","&#39;")<br/> fString=Replace(fString,"<A href=","<A target=_blank href=") '点链接打开新窗口<br/> if SiteSettings("BannedHtmlLabel")<>"" then fString=ReplaceText(fString,"<(\/|)("&SiteSettings("BannedHtmlLabel")&")", "&lt;$1$2")<br/> if SiteSettings("BannedHtmlEvent")<>"" then fString=ReplaceText(fString,"<(.[^>]*)("&SiteSettings("BannedHtmlEvent")&")", "&lt;$1$2")<br/> if SiteSettings("BannedText")<>"" then<br/> filtrate=split(SiteSettings("BannedText"),"|")<br/> for i = 0 to ubound(filtrate)<br/> fString=ReplaceText(fString,""&filtrate(i)&"",string(len(filtrate(i)),"*"))<br/> next<br/> end if<br/> contentEncode=fString<br/> end function<br/> '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''<br/> Function YbbEncode(str)<br/> str=ReplaceText(str,"\[(\/|)(b|i|u|strike|center|marquee)\]","<$1$2>")<br/> str=ReplaceText(str,"\[COLOR=([^[]*)\]","<FONT COLOR=$1>")<br/> str=ReplaceText(str,"\[FONT=([^[]*)\]","<FONT face=$1>")<br/> str=ReplaceText(str,"\[SIZE=([0-9]*)\]","<FONT size=$1>")<br/> str=ReplaceText(str,"\[\/(SIZE|FONT|COLOR)\]","</FONT>")<br/> str=ReplaceText(str,"\[QUOTE\]","<BLOCKQUOTE><strong>引用</strong>：<HR Size=1>")<br/> str=ReplaceText(str,"\[\/QUOTE\]","<HR SIZE=1></BLOCKQUOTE>")<br/> str=ReplaceText(str,"\[URL\]([^[]*)","<A TARGET=_blank HREF=$1>$1")<br/> str=ReplaceText(str,"\[URL=([^[]*)\]","<A TARGET=_blank HREF=$1>")<br/> str=ReplaceText(str,"\[\/URL\]","</A>")<br/> str=ReplaceText(str,"\[EMAIL\](\S+\@[^[]*)(\[\/EMAIL\])","<a href=mailto:$1>$1</a>")<br/> str=ReplaceText(str,"\[IMG\]([^[]*)(\[\/IMG\])","<img border=0 src=$1>")<br/> YbbEncode=str<br/> End Function<br/> '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''<br/> Function IsObjInstalled(strClassString)<br/> On Error Resume Next<br/> IsObjInstalled = False<br/> Set xTestObj = Server.CreateObject(strClassString)<br/> If 0 = Err Then IsObjInstalled = True<br/> Set xTestObj = Nothing<br/> On Error GoTo 0<br/> End Function</p><p> Function CheckSize(ByteSize)<br/> if ByteSize=>1024000 then<br/> ByteSize=formatnumber(ByteSize/1024000)&" MB"<br/> elseif ByteSize=>1024 then<br/> ByteSize=formatnumber(ByteSize/1024)&" KB"<br/> else<br/> ByteSize=ByteSize&" 字节"<br/> end if<br/> CheckSize=ByteSize<br/> End Function</p><p> <br/> '帐号验证<br/> UserName=HTMLEncode(Request("UserName"))<br/> Userpass=md5(Trim(Request("Userpass")))<br/> if UserName=empty then<br/>  response.Write("[err]用户名没有输入[/err]")<br/>  CloseDatabase<br/> end if</p><p> sql="select * from [BBSXP_Users] where UserName='"&UserName&"'"<br/> Set Rs1=Conn.Execute(SQL)<br/> if rs1.eof then<br/>  response.Write("[err]此用户名还未注册[/err]")<br/>  CloseDatabase<br/> end if<br/> if rs1("membercode")=0 then<br/>  response.Write("[err]您的帐号尚未激活[/err]")<br/>  CloseDatabase<br/> end if</p><p> if Len(rs1("Userpass"))<16 then<br/>  if Request("Userpass")<>rs1("Userpass") then<br/>   response.Write("[err]您输入的密码错误[/err]")<br/>   CloseDatabase<br/>  end if<br/> elseif Len(rs1("Userpass"))=16 then<br/>  if md5(Request("Userpass"))<>rs1("Userpass") then<br/>   response.Write("[err]您输入的密码错误[/err]")<br/>   CloseDatabase<br/>  end if<br/> else<br/>  if Userpass<>rs1("Userpass") then<br/>   response.Write("[err]您输入的密码错误[/err]")<br/>   CloseDatabase<br/>  end if<br/> end if</p><p> if trim(Request("ForumID"))="" then<br/>  response.Write("[err]没有输入版块号[/err]")<br/>  CloseDatabase<br/> end if<br/> ForumID=int(Request("ForumID"))<br/> VoteExpiry=int(Request("VoteExpiry"))</p><p> sql="select * from [BBSXP_Forums] where id="&ForumID&""<br/> Set Rs=Conn.Execute(sql)<br/> ForumName=Rs("ForumName")<br/> ForumLogo=Rs("ForumLogo")<br/> moderated=Rs("moderated")<br/> followid=Rs("followid")<br/> ForumPass=Rs("ForumPass")<br/> ForumPassword=Rs("ForumPassword")<br/> ForumUserList=Rs("ForumUserList")<br/> TolSpecialTopic=Rs("TolSpecialTopic")<br/> ForumPass=Rs("ForumPass")<br/> Rs.close</p><p> if membercode>1 or instr("|"&moderated&"|","|"&CookieUserName&"|")>0 then UserPopedomPass=1</p><p> <br/> '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''<br/> 'if Request.ServerVariables("request_method") = "POST" then</p><p> </p><p>  'if sitesettings("EnableAntiSpamTextGenerateForPost")=1 then<br/>  'if Request.Form("VerifyCode")<>Session("VerifyCode") then Message=Message&"<li>验证码错误"<br/>  'end if</p><p>  color=HTMLEncode(Request("color"))<br/>  icon=Request.Form("icon")<br/>  Subject=HTMLEncode(Request("Subject"))<br/>  SpecialTopic=HTMLEncode(Request("SpecialTopic"))<br/>  Content=ContentEncode(Request("Content"))<br/>  if Request("DisableYBBCode")<>1 then Content=YbbEncode(Content)<br/>  <br/>  if Len(Subject)<2 then Message=Message&"<li>文章主题不能小于 2 字符"<br/>  if Len(content)<2 then Message=Message&"<li>文章内容不能小于 2 字符"</p><p>  if SiteSettings("BannedText")<>empty then<br/>  filtrate=split(SiteSettings("BannedText"),"|")<br/>  for i = 0 to ubound(filtrate)<br/>  Subject=ReplaceText(Subject,""&filtrate(i)&"",string(len(filtrate(i)),"*"))<br/>  next<br/>  end if</p><p> </p><p> '''''''''''''''''''''''''''''''</p><p> 'if Request("Vote")<>"" then<br/>  'Vote=Request("Vote")<br/>  'if instr(Vote,"|") > 0 then error("<li>投票选项中不能含有“|”字符")<br/>  'pollTopic=split(Vote,chr(13)&chr(10))<br/>  'j=0<br/>  'for i = 0 to ubound(pollTopic)<br/>  'if not (pollTopic(i)="" or pollTopic(i)=" ") then<br/>  'allpollTopic=""&allpollTopic&""&pollTopic(i)&"|"<br/>  'j=j+1<br/>  'end if<br/>  'next<br/>  <br/>  'if j<SiteSettings("MinVoteOptions") or j>SiteSettings("MaxVoteOptions") then error("<li>投票选项不能少于 "&SiteSettings("MinVoteOptions")&" 个<li>投票选项超过 "&SiteSettings("MaxVoteOptions")&" 个")<br/>  <br/>  <br/>  'for y = 1 to j<br/>  'Votenum=""&Votenum&"0|"<br/>  'next</p><p> 'end if<br/> '''''''''''''''''''''''''''''''</p><p> if Message<>"" then<br/>  response.Write("[err]"&Message&"[/err]")<br/>  CloseDatabase<br/> end if</p><p> <br/> sql="select * from [BBSXP_Users] where UserName='"&UserName&"'"<br/> Rs.Open sql,Conn,1,3</p><p> 'if SiteSettings("DuplicatePostIntervalInMinutes") > 0 then<br/> 'StopPostTime=int(DateDiff("s",Rs("UserLandTime"),Now()))<br/> 'if StopPostTime < int(SiteSettings("DuplicatePostIntervalInMinutes")) then Message=Message&"<li>论坛限制一个人两次发帖间隔必须大于 "&SiteSettings("DuplicatePostIntervalInMinutes")&" 秒！<li>您必须再等待 "&SiteSettings("DuplicatePostIntervalInMinutes")-StopPostTime&" 秒！"<br/> 'end if</p><p> 'if SiteSettings("RegUserTimePost") > 0 then<br/> 'StopPostTime=int(DateDiff("s",Rs("UserRegTime"),Now()))<br/> 'if StopPostTime < int(SiteSettings("RegUserTimePost")) then Message=Message&"<li>新注册用户必须等待 "&SiteSettings("RegUserTimePost")&" 秒后才能发帖！<li>您必须再等待 "&SiteSettings("RegUserTimePost")-StopPostTime&" 秒！"<br/> 'end if</p><p> if Message<>"" then<br/>  response.Write("[err]"&Message&"[/err]")<br/>  CloseDatabase<br/> end if</p><p> Rs("PostTopic")=Rs("PostTopic")+1<br/> Rs("UserMoney")=Rs("UserMoney")+SiteSettings("IntegralAddThread")<br/> Rs("experience")=Rs("experience")+SiteSettings("IntegralAddThread")<br/> Rs("UserLandTime")=now()<br/> Rs("UserLastIP")=Request.ServerVariables("REMOTE_ADDR")<br/> Rs.update<br/> Rs.close</p><p> <br/> if UserPopedomPass=1 and color<>"" then Subject="<font color="&color&">"&Subject&"</font>"</p><p> Rs.Open "select * from [BBSXP_Threads]",Conn,1,3<br/> Rs.addNew<br/> Rs("UserName")=UserName<br/> Rs("PostTime")=now()<br/> Rs("lastname")=UserName<br/> Rs("lasttime")=now()<br/> Rs("Topic")=Subject<br/> Rs("ForumID")=ForumID<br/> Rs("PostsTableName")=SiteSettings("DefaultPostsName")<br/> if Request("SpecialTopic")<>"" then Rs("SpecialTopic")=SpecialTopic<br/> if Request("icon")<>"" then Rs("icon")=icon<br/> if Request("Vote")<>"" then Rs("isVote")=1<br/> if Request("IsLocked")=1 then Rs("IsLocked")=1<br/> if ForumPass=5 then Rs("IsDel")=1<br/> Rs.update<br/> ID=Rs("ID")<br/> Rs.close</p><p> 'if Request.Form("Vote")<>"" then<br/> 'Conn.Execute("insert into [BBSXP_Vote] (ThreadID,Type,Items,Result,Expiry) values ('"&ID&"','"&int(Request.Form("multiplicity"))&"','"&HTMLEncode(allpollTopic)&"','"&Votenum&"','"&now()+VoteExpiry&"')")<br/> 'end if</p><p> 'if Request.Form("UpFileID")<>"" then<br/> 'UpFileID=split(Request.form("UpFileID"),",")<br/> 'for i = 0 to ubound(UpFileID)-1<br/> 'Conn.execute("update [BBSXP_PostAttachments] set ThreadID="&ID&",Description='"&Subject&"' where id="&int(UpFileID(i))&" and ThreadID=0")<br/> 'next<br/> 'end if</p><p> Conn.Execute("insert into [BBSXP_Posts"&SiteSettings("DefaultPostsName")&"] (ThreadID,IsTopic,UserName,Subject,content,Postip) values ('"&ID&"','1','"&UserName&"','"&Subject&"','"&content&"','"&Request.ServerVariables("REMOTE_ADDR")&"')")<br/> Conn.execute("update [BBSXP_Forums] set lastTopic='<a href=ShowPost.asp?ThreadID="&id&">"&Left(HTMLEncode(Request("Subject")),15)&"</a>',lastname='"&UserName&"',lasttime="&SqlNowString&",ForumToday=ForumToday+1,ForumThreads=ForumThreads+1,ForumPosts=ForumPosts+1 where id="&ForumID&"")<br/> Conn.execute("update [BBSXP_Statistics_Site] set TodayPost=TodayPost+1,TotalPost=TotalPost+1,TotalThread=TotalThread+1")</p><p> Session("VerifyCode")=""</p><p> 'if ForumPass=5 then<br/> 'EnableCensorship="由于论坛设有审查制度，您发表的帖子需要等待激活才能显示。"<br/> 'else<br/> 'EnableCensorship="<a href=ShowPost.asp?ThreadID="&id&">返回主题</a>"<br/> 'end if</p><p> 'Message="<li>新主题发表成功<li>"&EnableCensorship&"<li><a href=ShowForum.asp?ForumID="&ForumID&">返回论坛</a><li><a href=Default.asp>返回论坛首页</a>"<br/> 'succeed(""&Message&"<meta http-equiv=refresh content=3;url=ShowForum.asp?ForumID="&ForumID&">")</p><p> 'end if<br/> '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''<br/> response.Write("1")<br/> CloseDatabase</p><p> <br/> %><br/>

发布规则使用说明

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

ET采集2发布规则范例

# ET发布规则文本<br/> # 发布规则名称：Bbsxp 6.0 sp1<br/> # 版本号：2.0.721 beta<br/> # 生成时间：2009-09-29 12:26:10<br/> #<br/> [name]<br/> QmJzeHAgNi4wIHNwMQ==<br/> [/name]<br/> [urlchk]<br/> aHR0cDovL8T6tcTN+Na3L0VUY2hrLmFzcD9jb250ZW50PTwldGl0bGUlPg==<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/> U3ViamVjdA==<br/> [/ptitle]<br/> [pcontent]<br/> Q29udGVudA==<br/> [/pcontent]<br/> [puser]<br/> VXNlck5hbWU=<br/> [/puser]<br/> [ppsw]<br/> VXNlcnBhc3M=<br/> [/ppsw]<br/> [para1]<br/> Rm9ydW1JRD3E+rXEwtvMs7Dmv+mx4LrFDQpTcGVjaWFsVG9waWM9<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/> U3ViamVjdA0KQ29udGVudA==<br/> [/transparas]<br/> [pathfile]</p><p> [/pathfile]<br/> [urlfile]<br/> L3VwZmlsZQ==<br/> [/urlfile]<br/> [pfiles]</p><p> [/pfiles]<br/> [psurl]</p><p> [/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 从上栏复制规则）

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