www.gusucode.com > ASP+ACCESS学生论坛设计与实现(源代码+论文+开题报告) > ASP+ACCESS学生论坛设计与实现(源代码+论文+开题报告)\13学生论坛ASPAC\BBS\Challenge_Scan_Topic_issuc.asp
<!--#include file="Conn.asp"--> <!--#include file="inc/const.asp"--> <!--#include file="inc/md5.asp"--> <% Response.Clear Mybbs.Loadtemplates("") dim i dim retokenword,subsubject,falsubject dim ssubsubject,sfalsubject dim challengeWord challengeWord=request("challengeWord") retokenWord=request("forumChanWord") subsubject=request("subsubject") falsubject=request("falsubject") If Not(Mybbs.Forum_ChanSetting(0)=1 And Mybbs.Forum_ChanSetting(7)=1) Then Response.Write "本论坛没有开启主题订阅手机短信功能。" Response.End End If 'Response.Write Mybbs.CacheData(21,0) if md5(challengeWord & ":" & Mybbs.CacheData(21,0),32)=trim(retokenWord) then if subsubject<>"" then ssubsubject=Split(subsubject,";") for i=0 to ubound(ssubsubject) if isnumeric(ssubsubject(i)) then Mybbs.Execute("update dv_topic set LastSmsTime="&SqlNowString&" where topicid="&ssubsubject(i)) end if next end if if falsubject<>"" then sfalsubject=split(falsubject,";") for i=0 to ubound(sfalsubject) if isnumeric(sfalsubject(i)) then Mybbs.Execute("update dv_topic set IsSmsTopic=0,LastSmsTime="&SqlNowString&" where topicid="&sfalsubject(i)) end if next end if end if %>