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