www.gusucode.com > ASP+ACCESS学生论坛设计与实现(源代码+论文+开题报告) > ASP+ACCESS学生论坛设计与实现(源代码+论文+开题报告)\13学生论坛ASPAC\BBS\GetReBoardLimitedOrders.asp
<!--#include file="Conn.asp"--> <!-- #include file="inc/const.asp" --> <!-- #include file="inc/dv_clsother.asp" --> <!--#include file="inc/md5.asp"--> <% Response.Clear dim rechallengeWord,retokerWord,repayid,paycode dim challengeWord_key,rechallengeWord_key dim trs,boarduser dim rs,i If Not(Mybbs.Forum_ChanSetting(0)=1 And Mybbs.Forum_ChanSetting(8)=1) Then Response.Write "本论坛没有开启VIP收费论坛功能。" Response.End End If repayid=trim(Mybbs.CheckStr(request("postdata"))) rechallengeWord=trim(Mybbs.CheckStr(request("challengeWord"))) retokerWord=trim(request("tokenWord")) challengeWord_key=session("challengeWord_key") if challengeWord_key=retokerWord then 'type=1订阅主题,type=2订阅论坛 paycode=split(repayid,":") for i=0 to ubound(paycode) set rs=Mybbs.Execute("select * from DV_ChanOrders where O_Paycode='"&trim(paycode(i))&"'") if not (rs.eof and rs.bof) then Mybbs.Execute("update DV_ChanOrders set o_issuc=1 where o_id="&rs("o_id")) set trs=Mybbs.Execute("select * from dv_board where boardid="&rs("o_boardid")) if not (trs.eof and trs.bof) then boarduser=rs("boarduser") if isnull(boarduser) or boarduser="" then boarduser=rs("o_username") else boarduser=boarduser & "," & rs("o_username") end if Mybbs.Execute("update dv_board set boarduser='"&boarduser&"' where boardid="&rs("o_boardid")) end if set trs=nothing end if set rs=nothing next '返回成功信息 else '返回失败信息 end if %>