gusucode.com > ASP+ACCESS学生论坛设计与实现(源代码+论文+开题报告) > ASP+ACCESS学生论坛设计与实现(源代码+论文+开题报告)\13学生论坛ASPAC\BBS\pay_boardlimited.asp
<!--#include file="Conn.asp"--> <!-- #include file="inc/const.asp" --> <!--#include file="inc/md5.asp"--> <!--#include file="inc/dv_clsother.asp"--> <% Mybbs.LoadTemplates("") If Mybbs.UserID=0 Then Mybbs.AddErrCode(24) Mybbs.showerr() End If If Not(Mybbs.Forum_ChanSetting(0)=1 And Mybbs.Forum_ChanSetting(8)=1) Then Response.redirect "showerr.asp?ErrCodes=<li>本论坛没有开启VIP收费论坛功能。&action=OtherErr" End If Mybbs.stats="交费进入认证论坛" Mybbs.Nav() Mybbs.Head_var 1,Mybbs.Board_Data(4,0),"","" 'GetBoardPermission Mybbs.Showerr() Select Case request("action") Case "subinfo" call subinfo() Case "redir" call redir() Case Else call inputmyinfo() End Select Mybbs.activeonline() Mybbs.footer() sub inputmyinfo() dim rs dim mobile set rs=Mybbs.execute("select * from [dv_user] where userid="&Mybbs.userid) if rs("IsChallenge")=0 Or IsNull(Rs("IsChallenge")) then Response.redirect "showerr.asp?ErrCodes=<li>您不是本站的高级用户,请先<a href=challenge_up.asp>升级成为高级用户</a>。&action=OtherErr" exit sub end if mobile=rs("usermobile") set rs=nothing %> <table cellpadding=3 cellspacing=1 align=center class=tableborder1> <tr><th align=center colspan=2><form action="pay_boardlimited.asp?action=subinfo&boardid=<%=Mybbs.BoardID%>" method=post>高级用户订阅认证论坛</td></tr> <tr><td class=tablebody1 align=right width="40%"><B>请输入您的手机号码</B>:</td> <td class=tablebody1 width="60%"> <%=mobile%> </td></tr> <tr><td align=center class=tablebody1 colspan=2>访问该VIP版面规则为:得到 <B><%=Mybbs.Board_Setting(46)%></B> 天的访问该VIP版面的权限并花费您 <B><%=Mybbs.Board_Setting(20)/100%></B> 的魔力水晶球</td></tr> <tr><td align=center class=tablebody2 colspan=2><input type=submit value="确 认"></td></form></tr> </table> <% end sub sub subinfo() dim mobile dim rs set rs=Mybbs.execute("select * from [dv_user] where userid="&Mybbs.userid) if rs("IsChallenge")=0 Or IsNull(Rs("IsChallenge")) then Response.redirect "showerr.asp?ErrCodes=<li>您不是本站的高级用户,请先<a href=challenge_up.asp>升级成为高级用户</a>。&action=OtherErr" exit sub end if mobile=rs("usermobile") '挑战随机数 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) set rs=Mybbs.execute("select top 1 * from Dv_ChallengeInfo") Dim MyForumID,MyForumUrl,MyAdminID MyForumID=rs("D_ForumID") MyForumUrl=rs("D_Forumurl") MyAdminID=rs("D_Username") dim vipid vipid=Mybbs.Board_Setting(47) & Mybbs.BoardID vipid=md5(vipid,32) %> 正在提交数据,请稍后…… <form name="redir" action="http://bbs.ray5198.com/rayvipforum_magicgarden/vipforum/vipmember_resign.jsp" method="post"> <INPUT type=hidden name="usermobile" value="<%=mobile%>"> <INPUT type=hidden name="vipusetime" value="<%=Mybbs.Board_Setting(46)%>"> <INPUT type=hidden name="challengword" value="<%=Session("challengeWord")%>"> <INPUT type=hidden name="forumid" value="<%=MyForumID%>"> <INPUT type=hidden name="vipid" value="<%=vipid%>"> <INPUT type=hidden name="viptransurl" value="<%=Mybbs.Get_ScriptNameUrl()%>"> <input type=hidden value="pay_boardlimited.asp?boardid=<%=Mybbs.boardid%>&action=redir" name="viptranspage"> <INPUT type=hidden name="vipproveurl" value="<%=Mybbs.Get_ScriptNameUrl()%>"> <input type=hidden value="Challenge_Scan_Board.asp?BoardID=<%=Mybbs.BoardID%>" name="vipprovepage"> </form> <script LANGUAGE=javascript> <!-- redir.submit(); //--> </script> <% set rs=nothing end sub sub redir() dim ErrorCode,ErrorMsg dim remobile,rechallengeWord,retokerWord,repayid dim challengeWord_key,rechallengeWord_key ErrorCode=trim(request("errcode")) ErrorMsg=trim(request("errmessage")) remobile=trim(Mybbs.CheckStr(request("mobile"))) 'repayid=trim(Mybbs.CheckStr(request("payid"))) rechallengeWord=trim(Mybbs.CheckStr(request("challengWord"))) retokerWord=trim(request("tokenword")) select case ErrorCode case 1000 challengeWord_key=session("challengeWord_key") if challengeWord_key=retokerWord then 'type=1订阅主题,type=2订阅论坛 'apply=1交易成功,主服务器issuc=0正在审核中 'Mybbs.execute("insert into DV_ChanOrders (O_type,O_mobile,O_Username,O_isApply,O_issuc,O_PayMoney,O_Paycode,O_BoardID) values (2,'"&remobile&"','"&Mybbs.membername&"',1,1,"&Mybbs.Board_Setting(20)&",'"&repayid&"',"&Mybbs.boardid&")") 'Response.Write "<script language=""javascript"">Dvbbs_suc('申请成功,<a href=list.asp?boardid="&Mybbs.boardid&">点击连接进入VIP版面</a>。',-3)</script>" %> <table cellpadding=3 cellspacing=1 align=center class=tableborder1> <tr> <th height=24>申请订阅认证论坛成功</th> </tr> <tr><td class=tablebody1><br> <ul><li><a href="list.asp?boardid=<%=Mybbs.BoardID%>">进入讨论区</a></li></ul> </td></tr> </table> <% exit sub else Response.redirect "showerr.asp?ErrCodes=<li>非法的提交过程。&action=OtherErr" exit sub end if case 1001 Response.redirect "showerr.asp?ErrCodes=<li>VIP没有审核通过,"&ErrorMsg&"。&action=OtherErr" exit sub case 1002 Response.redirect "showerr.asp?ErrCodes=<li>用户积分不够,"&ErrorMsg&"。&action=OtherErr" exit sub case 1003 Response.redirect "showerr.asp?ErrCodes=<li>用户不是阳光会员,"&ErrorMsg&"。&action=OtherErr" exit sub case 1004 Response.redirect "showerr.asp?ErrCodes=<li>论坛数据不合法,"&ErrorMsg&"。&action=OtherErr" exit sub case 1005 Response.redirect "showerr.asp?ErrCodes=<li>论坛ID不存在,"&ErrorMsg&"。&action=OtherErr" exit sub case 1006 Response.redirect "showerr.asp?ErrCodes=<li>站长用户名或密码不正确,"&ErrorMsg&"。&action=OtherErr" exit sub case 1007 Response.redirect "showerr.asp?ErrCodes=<li>VIP论坛已经申请正处于使用状态,"&ErrorMsg&"。&action=OtherErr" exit sub case 1008 Response.redirect "showerr.asp?ErrCodes=<li>不是有效的论坛,"&ErrorMsg&"。&action=OtherErr" exit sub case 1009 Response.redirect "showerr.asp?ErrCodes=<li>VIP论坛申请失败,"&ErrorMsg&"。&action=OtherErr" exit sub case 1010 Response.redirect "showerr.asp?ErrCodes=<li>数据操作失败,"&ErrorMsg&"。&action=OtherErr" exit sub case 1011 Response.redirect "showerr.asp?ErrCodes=<li>不明原因与管理员联系,"&ErrorMsg&"。&action=OtherErr" exit sub case 1012 Response.redirect "showerr.asp?ErrCodes=<li>积分超过上限,"&ErrorMsg&"。&action=OtherErr" exit sub case 1013 Response.redirect "showerr.asp?ErrCodes=<li>提供的挑战随机数是空,"&ErrorMsg&"。&action=OtherErr" exit sub case 1014 Response.redirect "showerr.asp?ErrCodes=<li>你已经申请过VIP论坛,但是VIP论坛没有被激活,请等待,"&ErrorMsg&"。&action=OtherErr" exit sub case else Response.redirect "showerr.asp?ErrCodes=<li>非法的提交过程,"&ErrorMsg&"。&action=OtherErr" exit sub end select %> <table cellpadding=3 cellspacing=1 align=center class=tableborder1> <tr> <th height=24>申请订阅认证论坛成功</th> </tr> <tr><td class=tablebody1><br> <ul><li>您的VIP论坛访问资格正在审批中,请等待通知<br><li><a href="index.asp">进入讨论区</a></li></ul> </td></tr> </table> <% end sub %>