www.gusucode.com > ASP+ACCESS学生论坛设计与实现(源代码+论文+开题报告) > ASP+ACCESS学生论坛设计与实现(源代码+论文+开题报告)\13学生论坛ASPAC\BBS\Challenge_Scan_Topic.asp
<!--#include file="conn.asp"--> <!--#include file="inc/const.asp"--> <!--#include file="inc/md5.asp"--> <% Response.Clear Mybbs.Loadtemplates("") dim rs dim raychanword,tokenword dim LastPost_ray,LastID,res,trs dim topicid,title,body,nikename,posttime rayChanWord=request("rayChanWord") tokenword=md5(request("rayChanWord") & ":" & Mybbs.CacheData(21,0),32) If Not(Mybbs.Forum_ChanSetting(0)=1 And Mybbs.Forum_ChanSetting(7)=1) Then Response.Write "本论坛没有开启主题订阅手机短信功能。" Response.End End If set rs=Mybbs.Execute("select top 1 * from Dv_ChallengeInfo") Dim MyForumID MyForumID=rs("D_ForumID") '挑战随机数 Dim MaxUserID,MaxLength MaxLength=12 set rs=Mybbs.Execute("select Max(userid) from [dv_user]") MaxUserID=rs(0) Dim num1,rndnum Randomize Do While Len(rndnum)<4 num1=CStr(Chr((57-48)*rnd+48)) rndnum=rndnum&num1 loop MaxUserID=rndnum & MaxUserID MaxLength=MaxLength-len(MaxUserID) select case MaxLength case 7 MaxUserID="0000000" & MaxUserID case 6 MaxUserID="000000" & MaxUserID case 5 MaxUserID="00000" & MaxUserID case 4 MaxUserID="0000" & MaxUserID case 3 MaxUserID="000" & MaxUserID case 2 MaxUserID="00" & MaxUserID case 1 MaxUserID="0" & MaxUserID case 0 MaxUserID=MaxUserID end select Session("challengeWord")=MaxUserID session("challengeWord_key")=md5(Session("challengeWord") & ":" & Mybbs.CacheData(21,0),32) %> <res rayChanWord="<%=raychanword%>" tokenWord="<%=tokenword%>" forumId="<%=MyForumID%>" challengeWord="<%=MaxUserID%>"> <% 'response.write datediff("d","2003-6-5",now) if IsSqlDataBase=1 then set rs=Mybbs.Execute("select * from dv_topic where IsSmsTopic=1 and datediff(mi,LastSmsTime,LastPostTime)>=0") else set rs=Mybbs.Execute("select * from dv_topic where IsSmsTopic=1 and datediff('s',LastSmsTime,LastPostTime)>=60") end if do while not rs.eof Response.Write "<msg>" TopicID=rs("TopicID") Response.Write "<id>"&topicid&"</id>" title=left(rs("title"),30) Response.Write "<sub>"&Mybbs.CheckStr(replace(replace(title,"<",""),">",""))&"</sub>" LastPost_ray=split(Rs("lastpost"),"$") LastID=LastPost_ray(1) set trs=Mybbs.Execute("select * from "&rs("PostTable")&" where AnnounceID="&LastID) if not (trs.eof and trs.bof) then body=left(trs("body"),30) nikename=left(trs("username"),20) posttime=replace(replace(replace(trs("dateandtime"),"-",""),":","")," ","") end if set trs=nothing Response.Write "<sender>"&Mybbs.CheckStr(Mybbs.htmlencode(nikename))&"</sender>" Response.Write "<sendTime>"&Mybbs.CheckStr(Mybbs.htmlencode(posttime))&"</sendTime>" Response.Write "<content>"&Mybbs.CheckStr(replace(replace(body,"<",""),">",""))&"</content>" Response.Write "</msg>" rs.movenext loop set rs=nothing %> </res>