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
%>