gusucode.com > ASP+ACCESS学生论坛设计与实现(源代码+论文+开题报告) > ASP+ACCESS学生论坛设计与实现(源代码+论文+开题报告)\13学生论坛ASPAC\BBS\install.asp
<!--#include file="Conn.asp"--> <!--#include file="inc/const.asp" --> <!--#include file="inc/chan_const.asp"--> <!--#include file="inc/md5.asp"--> <% Mybbs.LoadTemplates("") Mybbs.Stats="安装论坛" Mybbs.Nav() Mybbs.Showerr() Dim Rs If Not Mybbs.Master Then Mybbs.AddErrCode(36) End If Mybbs.Showerr() If Session("flag")="" Then Mybbs.AddErrCode(36) End If Mybbs.Showerr() Set Rs=Mybbs.Execute("select * from dv_Setup") If rs("Forum_Isinstall")=1 Then If Rs("Forum_version")="7.0.0" Then If Mybbs.master and session("flag")<>"" Then If request("isnew")="1" Or request("action")<>"" Then Mybbs.execute("update Dv_Setup set Forum_ChallengePassword='raynetwork',Forum_isinstall=0,Forum_ChanSetting='1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1'") Mybbs.Name="setup" Mybbs.ReloadSetup Else Mybbs.AddErrCode(36) End If Else Mybbs.AddErrCode(36) End If Else Mybbs.AddErrCode(37) End If Else If request("action") <> "" Or Request("isnew")<>"" Then Mybbs.execute("update dv_Setup set Forum_ChallengePassword='raynetwork',Forum_isinstall=0,Forum_ChanSetting='1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1'") Mybbs.Name="setup" Mybbs.ReloadSetup Else Mybbs.AddErrCode(36) End If End If Mybbs.Showerr() Select Case request("action") Case "apply" If request("isnew")="0" Then Mybbs.stats="填写资料" Mybbs.Head_var 0,0,"安装论坛","install.asp" reg_2() Else Mybbs.stats="确认资料" Mybbs.Head_var 0,0,"安装论坛","install.asp" reg_2a() End If Case "redir1" Mybbs.stats="提交注册" Mybbs.Head_var 0,0,"安装论坛","install.asp" Call redir1() Case "redir2" Mybbs.stats="提交注册" Mybbs.Head_var 0,0,"安装论坛","install.asp" call redir2() Case "redir3" Mybbs.stats="提交注册" Mybbs.Head_var 0,0,"安装论坛","install.asp" call redir3() Case "redir4" Mybbs.stats="提交注册" Mybbs.Head_var 0,0,"安装论坛","install.asp" call redir4() Case Else Mybbs.stats="注册协议" Mybbs.Head_var 0,0,"安装论坛","install.asp" reg_1 End Select Mybbs.ActiveOnline() Mybbs.Footer Function reg_1() %> <SCRIPT LANGUAGE="JavaScript"> <!-- function submitclick() { if(dvform.isnew[0].checked==false&&dvform.isnew[1].checked==false) { alert('注册注意事项:\n1、请仔细阅读注册协议,您必须选择“新站长注册”或“已注册,重新确认资料”。\n2、如果您的网站从来没有注册过,请在注册类型中选择“新站长注册”\n3、如果您已经注册过阳光论坛站长,只是改变了地址或者重新安装,可以在注册类型中选择“已注册,重新确认资料” ') } else { dvform.submit() } } //--> </SCRIPT> <table cellpadding=3 cellspacing=1 align=center class=tableborder1><form name="dvform" action="install.asp?action=apply" method=post> <tr><th align=center colSpan=2>服务条款和声明</td></tr> <tr><td class=tablebody1 align=left colSpan=2> <b>继续安装我的论坛前请先阅读相关论坛协议</b> <BR><BR> 我的论坛和阳光论坛系列软件为所有的论坛站长提供了各种丰富的互动服务,同时由此带来的相关服务收益,将由阳光加信和站长分享。<BR><BR> 越多的中国移动全球通用户使用您推荐的阳光短信产品,您获得的回报便越多。如果本月您推荐的用户发送的短信超过2000元,您便并可以成为本月的超级论坛,享受30%的收益比例。<BR><BR> <B>收益比例</B> <BR><BR> 申请使用"我的论坛和阳光论坛系列软件",初始收益比例为25%。<BR> 如果您当月发送的短信达到2000元,便可在当月按照超级论坛进行结算,享受30%的高比例收益。 <BR><BR> <B>使用流程</B> <BR><BR> 在论坛建立时,请认真填写站长注册表单,即可成为"我的论坛和阳光论坛系列软件"的用户。(用户个人信息务必填写清楚,否则会导致汇款单不能正确投递,或者部分业务无法使用。) <BR><BR> 会员登录到本论坛的管理中心。在管理中心,可以进行论坛收益查询,用户资料、密码修改等操作。 <BR><BR> 全球通用户在使用您页面上的阳光短信服务时,每成功发送一次短信,您就可以从发送金额中获得高比例收益。 <BR><BR> <B>收益结算</B><BR><BR> 我的论坛和阳光论坛收益计费周期以自然月为计费周期。 <BR> 结算时,如果您的会员帐面余额超过最低支付收益限额:100元(含100元),我们会在每个月20日左右通过邮局汇款的方式支付给您。 <BR><BR> 结算时,如果您的会员帐面余额未达到100元,则自动累计到下个月,直至余额累计达到最低支付收益限额为止 <BR><BR> 每月支付收益无封顶上限,邮局汇款需要事先扣除邮资及相关税金。 <BR><BR> 最终收益结算将以每月与移动运营商核对相关数据为准。 <BR> 如发现作弊行为将停止付费并取消其会员资格,同时保留进一步追究法律责任的权利。 <BR><BR> 请自觉遵守《全国人大常委会关于维护互联网安全的决定》及中华人民共和国其他各项法律法规,禁止任何境内境外色情或反我的论坛站使用"我的论坛和阳光论坛系列软件",一经发现,立即解除所有服务关系,扣发所有收益,并且该会员将承担由此产生的一切后果。 <BR><BR> 您使用"我的论坛和阳光论坛系列软件"成为注册软件用户, 即表示您已经阅读并接受如上所有条款。<BR><BR> </td></tr> <TR align=middle> <Th colSpan=2 height=24>请选择注册类型</TD> </TR> <tr> <td width=40% align=center class=tablebody1 height=24> <input type="radio" name="isnew" value="0"><b>新站长注册</b></td> <td width=60% align=center class=tablebody1 height=24> <input type="radio" name="isnew" value="1" ><b>已注册,重新确认资料</b></td> </TR> <TR align=middle> <td align=center class=tablebody2 colSpan=2><input type="button" value="我同意" Onclick="submitclick();"></td></tr> </form></table> <% End Function Function reg_3() Response.Write "<script>dvbbs_install_reg_3();</script>" End Function Function reg_2() %> <FORM name=theForm action=install.asp?action=redir1 method=post> <table cellpadding=3 cellspacing=1 align=center class=tableborder1> <TR align=middle> <Th colSpan=2 height=24>新站长资料填写</TD> </TR> <TR> <TR> <Td colSpan=2 class=tablebody1>说明:在此安装过程中,将默认您同意加入论坛短信互动服务,所有资料将提交至主服务器进行确认,在填写前请确认您填写的相关资料是否正确,这将影响到您今后在服务中具体利益的体现,必须完成此步操作才能继续安装论坛。</TD> </TR> <TR> <TD width=40% class=tablebody1><B>*用户名</B>:</TD> <TD width=60% class=tablebody1> <INPUT type=text size=30 name="username"></TD> </TR> <TR> <TD width=40% class=tablebody1><B>*真实姓名</B>:</TD> <TD width=60% class=tablebody1> <INPUT type=text size=30 name="realname"></TD> </TR> <TR> <TD width=40% class=tablebody1><B>*身份证号</B>:</TD> <TD width=60% class=tablebody1> <INPUT type=text size=30 name="identityNo"></TD> </TR> <TR> <TD width=40% class=tablebody1><B>*性别</B>:<BR>请选择您的性别</font></TD> <TD width=60% class=tablebody1> <INPUT type=radio CHECKED value="F" name=sex> 男 <INPUT type=radio value="M" name=sex> 女 <INPUT type=radio value="N" name=sex> 保密</TD> </TR> <TR> <TD width=40% class=tablebody1><B>*邮编</B>:</TD> <TD width=60% class=tablebody1> <INPUT type=text size=30 name="postcode"></TD> </TR> <TR> <TD width=40% class=tablebody1><B>*地址</B>:</TD> <TD width=60% class=tablebody1> <INPUT type=text size=30 name="address"></TD> </TR> <INPUT type=hidden name="receiver"><TR> <TD width=40% class=tablebody1><B>*邮件地址</B>:<br>为了能成功安装论坛,请务必填写真实有效的Email地址</TD> <TD width=60% class=tablebody1> <INPUT type=text size=30 name="email"></TD> </TR> <TR> <TD width=40% class=tablebody1><B>电话</B>:</TD> <TD width=60% class=tablebody1> <INPUT type=text size=30 name="telephone"></TD> </TR> <TR> <TD width=40% class=tablebody1><B>手机</B>:</TD> <TD width=60% class=tablebody1> <INPUT type=text size=30 name="mobile"></TD> </TR> <TR> <TD width=40% class=tablebody1><B>银行全称</B>:</TD> <TD width=60% class=tablebody1> <INPUT type=text size=30 name="bankname"></TD> </TR> <TD width=40% class=tablebody1><B>银行帐号</B>:</TD> <TD width=60% class=tablebody1> <INPUT type=text size=30 name="bankid"></TD> </TR> <TR> <TD width=40% class=tablebody1><B>*论坛名称</B>:</TD> <TD width=60% class=tablebody1> <INPUT type=text size=30 name="forumname"></TD> </TR> <TR> <TD width=40% class=tablebody1><B>*论坛地址</B>:</TD> <TD width=60% class=tablebody1> <INPUT type=hidden value="<%=Mybbs.Get_ScriptNameUrl%>" name="forumUrl"> <%=Mybbs.Get_ScriptNameUrl%></TD> </TR> <TR align=middle> <Th colSpan=2 height=24>论坛资料填写</TD> </TR> <TR> <TD width=40% class=tablebody1><B>*论坛提供者</B>:</TD> <TD width=60% class=tablebody1> 我的论坛</TD> </TR> <TR> <TD width=40% class=tablebody1><B>*论坛版本</B>:</TD> <TD width=60% class=tablebody1> Mybbs 7.0.0</TD> </TR> <TR> <TD width=40% class=tablebody1><B>ICP号</B>:</TD> <TD width=60% class=tablebody1> <INPUT type=text size=30 name="icp"></TD> </TR> <TR> <TD width=40% class=tablebody1><B>网站内容介绍</B>:</TD> <TD width=60% class=tablebody1> <textarea class=smallarea cols=100 name=web_intro rows=7 wrap=VIRTUAL> </textarea> </TD> </TR> </tbody> </table> </td></tr></tbody></table> <table cellpadding=0 cellspacing=0 border=0 width='+Mybbs.Forum_Body[12]+' align=center> <tr> <td width=50% height=24> </td> <td width=50% ><input type=submit value="注 册" name=Submit><input type=reset value="清 除" name=Submit2></td> </tr></table> </form> <% End Function Function reg_2a() %> <SCRIPT LANGUAGE="JavaScript"> <!-- function MM_openBrWindow(theURL,winName,features) { //v2.0 window.open(theURL,winName,features); } //--> </SCRIPT> <FORM name=theForm action=install.asp?action=redir2 method=post> <table cellpadding=3 cellspacing=1 align=center class=tableborder1> <TR align=middle> <Th colSpan=2 height=24>原注册站长验证资料填写</TD> </TR> <TR> <TR> <Td colSpan=2 class=tablebody1>说明:如果您已经注册过短信互动服务,请直接在此填写您的认证信息提交至主服务器进行验证,验证通过后可以继续安装论坛。</B></TD> </TR> <TR> <TD width=40% class=tablebody1><B>用户名</B>:</TD> <TD width=60% class=tablebody1> <INPUT type=text size=30 name="username"> 您注册的时候使用的用户名</TD> </TR> <TR> <TD width=40% class=tablebody1><B>密码</B>:</TD> <TD width=60% class=tablebody1> <INPUT type=password size=30 name="password"> <a style="CURSOR:hand" onclick="MM_openBrWindow('http://bbs.ray5198.com/forgetpass.html','getpass','width=300,height=100')">忘记密码</a></TD> </TR> <TR> <TD width=40% class=tablebody1><B>论坛名称</B>:</TD> <TD width=60% class=tablebody1> <INPUT type=text size=30 name="forumname"></TD> </TR> <TR> <TD width=40% class=tablebody1><B>论坛地址</B>:</TD> <TD width=60% class=tablebody1> <INPUT type=hidden value="<%=Mybbs.Get_ScriptNameUrl%>" name="forumUrl"> <%=Mybbs.Get_ScriptNameUrl%></TD> </TR> <TR> <TD width=40% class=tablebody1><B>论坛提供者</B>:</TD> <TD width=60% class=tablebody1> 我的论坛</TD> </TR> <TR> <TD width=40% class=tablebody1><B>论坛版本</B>:</TD> <TD width=60% class=tablebody1> Mybbs 7.0.0 </TD> </TR> </tbody> </table> </td></tr></tbody></table> <table cellpadding=0 cellspacing=0 border=0 width='+Mybbs.Forum_Body[12]+' align=center> <tr> <td width=50% height=24> </td> <td width=50% ><input type=submit value="注 册" name=Submit><input type=reset value="清 除" name=Submit2></td> </tr></table> </form> <% End Function Function redir1() If request("username")="" Then Response.Redirect "showerr.asp?action=OtherErr&ErrCodes=<li>请输入您的用户名。" Exit Function End If If request("realname")="" Then Response.Redirect "showerr.asp?action=OtherErr&ErrCodes=<li>请输入您的真实姓名。" Exit Function End If If request("identityNo")="" Then Response.Redirect "showerr.asp?action=OtherErr&ErrCodes=<li>请输入您的身份证号。" Exit Function End If If request("sex")="" Then Response.Redirect "showerr.asp?action=OtherErr&ErrCodes=<li>请选择您的性别。" Exit Function End If If request("postcode")="" Then Response.Redirect "showerr.asp?action=OtherErr&ErrCodes=<li>请输入您的邮政编码。" Exit Function End If If request("address")="" Then Response.Redirect "showerr.asp?action=OtherErr&ErrCodes=<li>请输入您的地址。" Exit Function End If If request("email")="" Then Response.Redirect "showerr.asp?action=OtherErr&ErrCodes=<li>请输入您的邮件地址。" Exit Function End If If request("forumname")="" Then Response.Redirect "showerr.asp?action=OtherErr&ErrCodes=<li>请输入您的论坛名称。" Exit Function End If session("Forum_Master_Reg_Temp_1")=checkreal(request("username")) & "|||" & checkreal(request("realname")) & "|||" & checkreal(request("identityNo")) & "|||" & checkreal(request("sex")) & "|||" & checkreal(request("postcode")) & "|||" & checkreal(request("address")) & "|||" & checkreal(request("receiver")) & "|||" & checkreal(request("email")) & "|||" & checkreal(request("forumname")) & "|||" & checkreal(request("forumurl")) & "|||" & checkreal(request("telephone")) & "|||" & checkreal(request("mobile")) & "|||我的论坛|||7.0.0" Get_ChallengeWord %> 正在提交数据,请稍后…… <form name="redir" action="http://bbs.ray5198.com/registerAdminAndForum.jsp" method="post"> <INPUT type=hidden name="username" value="<%=checkreal(request("username"))%>"> <INPUT type=hidden name="realname" value="<%=checkreal(request("realname"))%>"> <INPUT type=hidden name="identityNo" value="<%=checkreal(request("identityNo"))%>"> <INPUT type=hidden name="sex" value="<%=checkreal(request("sex"))%>"> <INPUT type=hidden name="postcode" value="<%=checkreal(request("postcode"))%>"> <INPUT type=hidden name="address" value="<%=checkreal(request("address"))%>"> <INPUT type=hidden name="receiver" value="<%=checkreal(request("realname"))%>"> <INPUT type=hidden name="email" value="<%=checkreal(request("email"))%>"> <INPUT type=hidden name="forumName" value="<%=checkreal(request("forumname"))%>"> <INPUT type=hidden name="forumUrl" value="<%=Mybbs.Get_ScriptNameUrl%>"> <INPUT type=hidden name="telephone" value="<%=checkreal(request("telephone"))%>"> <INPUT type=hidden name="mobile" value="<%=checkreal(request("mobile"))%>"> <INPUT type=hidden name="bankname" value="<%=checkreal(request("bankname"))%>"> <INPUT type=hidden name="bankid" value="<%=checkreal(request("bankid"))%>"> <INPUT type=hidden name="forumProvider" value="我的论坛"> <INPUT type=hidden name="version" value="Mybbs 7.0.0"> <INPUT type=hidden name="icpNo" value="<%=checkreal(request("icpNO"))%>"> <INPUT type=hidden name="web_intro" value="<%=checkreal(request("web_intro"))%>"> <input type=hidden value="<%=Session("challengeWord")%>" name="challengeWord"> <input type=hidden value="install.asp?action=redir3" name="dirPage"> </form> <script LANGUAGE=javascript> <!-- redir.submit(); //--> </script> <% End Function Function redir2() If request("username")="" Then Response.Redirect "showerr.asp?action=OtherErr&ErrCodes=<li>请输入您的用户名。" Exit Function End If If request("password")="" Then Response.Redirect "showerr.asp?action=OtherErr&ErrCodes=<li>请输入您的密码。" Exit Function End If If request("forumname")="" Then Response.Redirect "showerr.asp?action=OtherErr&ErrCodes=<li>请输入您的论坛名称。" Exit Function End If session("Forum_Master_Reg_Temp_2")=checkreal(request("username")) & "|||" & checkreal(request("password")) & "|||" & checkreal(request("forumname")) & "|||" & checkreal(request("forumurl")) & "|||我的论坛|||7.0.0" Get_ChallengeWord session("challengeWord_key")=md5(Session("challengeWord") & ":" & Mybbs.CacheData(21,0),32) %> 正在提交数据,请稍后…… <form name="redir" action="http://bbs.ray5198.com/popRegAdmin.jsp" method="post"> <INPUT type=hidden name="username" value="<%=checkreal(request("username"))%>"> <INPUT type=hidden name="password" value="<%=checkreal(request("password"))%>"> <INPUT type=hidden name="forumName" value="<%=checkreal(request("forumname"))%>"> <INPUT type=hidden name="forumUrl" value="<%=Mybbs.Get_ScriptNameUrl%>"> <INPUT type=hidden name="forumProvider" value="我的论坛"> <INPUT type=hidden name="version" value="Mybbs 6.1.0"> <input type=hidden value="<%=Session("challengeWord")%>" name="challengeWord"> <input type=hidden value="install.asp?action=redir4" name="dirPage"> </form> <script LANGUAGE=javascript> <!-- redir.submit(); //--> </script> <% End Function Function redir3() Dim ErrorCode,ErrorMsg Dim reForumID,reNewPkey,rechallengeWord,retokerWord Dim challengeWord_key,rechallengeWord_key Dim Forum_Master_Reg_Temp_1,OldForumID Dim vipboardsetting,vipboardslist,vipisupdate,i vipisupdate=false ErrorCode=trim(request("ErrorCode")) ErrorMsg=trim(request("ErrorMsg")) reForumID=trim(Mybbs.CheckStr(request("ForumID"))) reNewPkey=trim(Mybbs.CheckStr(request("NewPkey"))) rechallengeWord=trim(Mybbs.CheckStr(request("challengeWord"))) retokerWord=trim(request("tokenWord")) 'rechallengeWord_key=md5_32(rechallengeWord & ":" & Mybbs.CacheData(21,0)) Select Case ErrorCode Case 100 challengeWord_key=session("challengeWord_key") If challengeWord_key=retokerWord Then Forum_Master_Reg_Temp_1=split(Mybbs.CheckStr(session("Forum_Master_Reg_Temp_1")),"|||") Mybbs.Execute("update dv_Setup set Forum_challengePassWord='"&reNewPkey&"',Forum_ChanName='"&Forum_Master_Reg_Temp_1(0)&"',Forum_IsInstall=1,Forum_Version='"&Forum_Master_Reg_Temp_1(13)&"'") Set Rs=Mybbs.Execute("select top 1 * from Dv_ChallengeInfo") OldForumID=rs("D_ForumID") Rs.close Set Rs=Nothing Mybbs.Execute("update Dv_ChallengeInfo set D_ForumID='"&reForumID&"',D_UserName='"&Forum_Master_Reg_Temp_1(0)&"',D_Password='"&reNewPkey&"',D_RealName='"&Forum_Master_Reg_Temp_1(1)&"',D_identityNo='"&Forum_Master_Reg_Temp_1(2)&"',D_sex='"&Forum_Master_Reg_Temp_1(3)&"',D_postcode='"&Forum_Master_Reg_Temp_1(4)&"',D_address='"&Forum_Master_Reg_Temp_1(5)&"',D_receiver='"&Forum_Master_Reg_Temp_1(6)&"',D_email='"&Forum_Master_Reg_Temp_1(7)&"',D_forumname='"&Forum_Master_Reg_Temp_1(8)&"',D_forumurl='"&Forum_Master_Reg_Temp_1(9)&"',D_telephone='"&Forum_Master_Reg_Temp_1(10)&"',D_mobile='"&Forum_Master_Reg_Temp_1(11)&"',D_forumProvider='"&Forum_Master_Reg_Temp_1(12)&"',D_version='"&Forum_Master_Reg_Temp_1(13)&"',D_challengePassWord='"&OldForumID&"'") Set Rs=Mybbs.Execute("Select BoardID,Board_Setting From Dv_Board") Do While Not Rs.Eof vipboardsetting=split(rs("Board_Setting"),",") For i=0 to UBound(vipboardsetting) If i=0 Then vipboardslist=vipboardsetting(i) Else '认证论坛还原 If i=2 and vipboardsetting(2)=1 and vipboardsetting(46)>0 Then vipboardslist=vipboardslist & ",0" vipisupdate=true Else vipboardslist=vipboardslist & "," & vipboardsetting(i) End If End If Next if vipisupdate then Mybbs.Execute("update dv_board set board_setting='"&vipboardslist&"' where boardid="&rs(0)) vipisupdate=false Rs.Movenext Loop rs.close Set rs=nothing Mybbs.Name="setup" Mybbs.ReloadSetup Else Response.Redirect "showerr.asp?action=OtherErr&ErrCodes=<li>非法的参数。" Exit Function End If Case 102 Response.Redirect "showerr.asp?action=OtherErr&ErrCodes=<li>您注册的用户名和短信互动服务主服务器上的用户名重复;"&ErrorMsg&"。" Exit Function Case 201 Response.Redirect "showerr.asp?action=OtherErr&ErrCodes=<li>您填写的信息在短信互动服务主服务器上登录验证失败;"&ErrorMsg&"。" Exit Function Case Else Response.Redirect "showerr.asp?action=OtherErr&ErrCodes=<li>非法的提交过程;"&ErrorMsg&"。" Exit Function End Select Emp_ChallengeWord session("Forum_Master_Reg_Temp_1")="" %> <table cellpadding=3 cellspacing=1 align=center class=tableborder1> <tr> <th height=24>注册成功:您在论坛短信互动服务注册成功</th> </tr> <tr><td class=tablebody1><br> <ul><li><B>请删除论坛中install.asp文件后进入您的论坛</B>。</li><li>论坛默认管理员帐号是:用户名admin,密码admin888,前后台一样</li><li><a href="index.asp">进入您的论坛</a></li></ul> </td></tr> </table> <% End Function Function redir4() Dim ErrorCode,ErrorMsg Dim reForumID,reNewPkey,rechallengeWord,retokerWord Dim challengeWord_key,rechallengeWord_key Dim Forum_Master_Reg_Temp_2,OldForumID,i ErrorCode=trim(request("ErrorCode")) ErrorMsg=trim(request("ErrorMsg")) reForumID=trim(Mybbs.CheckStr(request("ForumID"))) reNewPkey=trim(Mybbs.CheckStr(request("NewPkey"))) rechallengeWord=trim(Mybbs.CheckStr(request("challengeWord"))) retokerWord=trim(request("tokenWord")) 'rechallengeWord_key=md5_32(rechallengeWord & ":" & Mybbs.CacheData(21,0)) Dim vipboardsetting,vipboardslist,vipisupdate vipisupdate=false Select Case ErrorCode Case 100 challengeWord_key=session("challengeWord_key") If challengeWord_key=retokerWord Then Forum_Master_Reg_Temp_2=split(Mybbs.CheckStr(session("Forum_Master_Reg_Temp_2")),"|||") Mybbs.Execute("update dv_Setup set Forum_challengePassWord='"&reNewPkey&"',Forum_ChanName='"&Forum_Master_Reg_Temp_2(0)&"',Forum_IsInstall=1,Forum_Version='"&Forum_Master_Reg_Temp_2(5)&"'") Set Rs=Mybbs.Execute("select top 1 * from Dv_ChallengeInfo") OldForumID=rs("D_ForumID") Rs.close Set Rs=Nothing Mybbs.Execute("update Dv_ChallengeInfo set D_ForumID='"&reForumID&"',D_UserName='"&Forum_Master_Reg_Temp_2(0)&"',D_Password='"&reNewPkey&"',D_forumname='"&Forum_Master_Reg_Temp_2(2)&"',D_forumurl='"&Forum_Master_Reg_Temp_2(3)&"',D_forumProvider='"&Forum_Master_Reg_Temp_2(4)&"',D_version='"&Forum_Master_Reg_Temp_2(5)&"',D_challengePassWord='"&OldForumID&"'") Set Rs=Mybbs.Execute("Select BoardID,Board_Setting From dv_Board") Do While Not Rs.Eof vipboardsetting=split(rs("Board_Setting"),",") For i=0 to UBound(vipboardsetting) If i=0 Then vipboardslist=vipboardsetting(i) Else '认证论坛还原 If i=2 and vipboardsetting(2)=1 and vipboardsetting(46)>0 Then vipboardslist=vipboardslist & ",0" vipisupdate=true Else vipboardslist=vipboardslist & "," & vipboardsetting(i) End If End If Next if vipisupdate then Mybbs.Execute("update dv_board set board_setting='"&vipboardslist&"' where boardid="&rs(0)) vipisupdate=false Rs.Movenext Loop rs.close Set rs=nothing Mybbs.Name="setup" Mybbs.ReloadSetup Else Response.Redirect "showerr.asp?action=OtherErr&ErrCodes=<li>非法的参数。" Exit Function End If Case 101 Response.Redirect "showerr.asp?action=OtherErr&ErrCodes=<li>您在短信互动服务主服务器注册失败,"&ErrorMsg&"。" Exit Function Case 102 Response.Redirect "showerr.asp?action=OtherErr&ErrCodes=<li>您注册的用户名和短信互动服务主服务器上的用户名重复,"&ErrorMsg&"。" Exit Function Case 201 Response.Redirect "showerr.asp?action=OtherErr&ErrCodes=<li>您填写的信息在短信互动服务主服务器上登录验证失败,"&ErrorMsg&"。" Exit Function Case Else Response.Redirect "showerr.asp?action=OtherErr&ErrCodes=<li>非法的提交过程,"&ErrorMsg&"。" Exit Function End Select Emp_ChallengeWord session("Forum_Master_Reg_Temp_2")="" %> <table cellpadding=3 cellspacing=1 align=center class=tableborder1> <tr> <th height=24>成功信息:您在论坛短信互动服务信息更新成功</th> </tr> <tr><td class=tablebody1><br> <ul><li><a href="index.asp">进入您的论坛</a></li></ul> </td></tr> </table> <% End Function function checkreal(v) Dim w if not isnull(v) then w=replace(v,"|||","§§§") checkreal=w end if end function %>