<% Head() If Not Dvbbs.Master Or Session("flag")="" Then Errmsg=ErrMsg + "
  • 本页面为管理员专用,请登录后进入。
  • 您没有管理本页面的权限。" Dvbbs_Error1() Else Select Case request("action") Case "apply" If request("isnew")="0" Then reg_2() ElseIf request("isnew")="1" Then reg_2a() Else reg_2b() End If Case "redir1" Call redir1() Case "redir2" call redir2() Case "redir3" call redir3() Case "redir4" call redir4() Case "redir5" call redir5() Case "redir6" call redir6() Case "redir7" call redir7() Case "redir8" call redir8() Case "redir9" call redir9() Case "redir10" call redir10() Case Else reg_1 End Select If Errmsg<>"" Then Dvbbs_Error1() End If Footer() '页面错误提示信息 Sub dvbbs_error1() Response.Write"
    " Response.Write"" Response.Write"" Response.Write"" Response.Write"" Response.Write"" Response.Write"" Response.Write"" Response.Write"
    错误信息" Response.Write"" Response.Write"
    " Response.Write ErrMsg Response.Write"
    <<返回上一页
    " footer() Response.End End Sub Function reg_1() %>
    服务条款和声明
    请选择注册类型
    新站长注册     已注册站长绑定新网站     已注册站长更新资料
    <% End Function Function reg_3() Response.Write "" End Function Function reg_2() %>
    <%GetUserInput()%>
    新站长资料填写
    说明:在此安装过程中,将默认您同意加入论坛短信互动服务,所有资料将提交至主服务器进行确认,在填写前请确认您填写的相关资料是否正确,这将影响到您今后在服务中具体利益的体现。
    用户名
    不超过20位的字母或数字的组合
     * 检测用户
    用户密码
    8-20位的字母或数字的组合
     *
    重复密码  *
    
    <% End Function Function reg_2a() Set Rs=Dvbbs.Execute("Select Forum_ChanName From Dv_Setup") %>
    已注册站长绑定新网站
    说明:如果您已经注册过短信互动服务,请直接在此填写您的认证信息提交至主服务器进行验证。
    用户名
    不超过20位的字母或数字的组合
    您注册的时候使用的用户名 检测用户
    用户密码
    8-20位的字母或数字的组合
    忘记密码
    论坛名称
    论坛地址 " name="forumUrl"> <%=Replace(Dvbbs.Get_ScriptNameUrl,Lcase(Dvbbs.CacheData(33,0)),"")%>
    论坛提供者 动网先锋
    论坛版本 Dvbbs 7.1.0
    
    <% Rs.Close Set Rs=Nothing End Function Function reg_2b() Set Rs=Dvbbs.Execute("Select Forum_ChanName From Dv_Setup") %>
    已注册站长更新资料
    说明:如果您已经注册过短信互动服务,请直接在此填写您的认证信息提交至主服务器进行验证。
    用户名
    不超过20位的字母或数字的组合
    检测用户
    密码 忘记密码
    
    <% Rs.Close Set Rs=Nothing End Function Function redir5() If request("username")="" Then Errmsg=ErrMsg + "
  • 请输入您的用户名。" Exit Function End If If request("password")="" Then Errmsg=ErrMsg + "
  • 请输入您的用户密码。" Exit Function End If Get_ChallengeWord session("challengeWord_key")=md5(Session("challengeWord") & ":raynetwork",32) %> 正在提交数据,请稍后……
    "> "> " name="challengeWord"> " name="forumUrl">
    <% End Function '已注册站长重新注册网站返回结果页面 Function redir6() 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")) rechallengeWord=trim(Dvbbs.CheckStr(request("challengeWord"))) retokerWord=trim(request("tokenWord")) 'rechallengeWord_key=md5_32(rechallengeWord & ":" & Dvbbs.CacheData(21,0)) Dim vipboardsetting,vipboardslist,vipisupdate vipisupdate=false Select Case ErrorCode Case 100 challengeWord_key=session("challengeWord_key") 'If challengeWord_key=retokerWord Then %>
    <%GetUserInput()%>
    更新站长资料
    用户名
    不超过20位的字母或数字的组合
    "> * 检测用户
    用户密码
    8-20位的字母或数字的组合
    "> * 忘记密码
    
    <% 'Else ' Errmsg=ErrMsg + "
  • 验证失败,非法的参数。" ' Exit Function 'End If Case 101 Errmsg=ErrMsg + "
  • 您在短信互动服务主服务器注册失败,"&ErrorMsg&"。" Exit Function Case 102 Errmsg=ErrMsg + "
  • 您注册的用户名和短信互动服务主服务器上的用户名重复,"&ErrorMsg&"。" Exit Function Case 201 Errmsg=ErrMsg + "
  • 您填写的信息在短信互动服务主服务器上登录验证失败,"&ErrorMsg&"。" Exit Function Case Else Errmsg=ErrMsg + "
  • 非法的提交过程,"&ErrorMsg&"。" Exit Function End Select Emp_ChallengeWord session("Forum_Master_Reg_Temp_2")="" End Function Function redir7() If request("username")="" Then Errmsg=ErrMsg + "
  • 请输入您的用户名。" Exit Function End If If request("password")="" Then Errmsg=ErrMsg + "
  • 请输入您的用户密码。" Exit Function End If If request("realname")="" Then Errmsg=ErrMsg + "
  • 请输入您的真实姓名。" Exit Function End If If request("identityNo")="" Then Errmsg=ErrMsg + "
  • 请输入您的身份证号。" Exit Function End If If request("sex")="" Then Errmsg=ErrMsg + "
  • 请选择您的性别。" Exit Function End If If request("postcode")="" Then Errmsg=ErrMsg + "
  • 请输入您的邮政编码。" Exit Function End If If request("address")="" Then Errmsg=ErrMsg + "
  • 请输入您的地址。" Exit Function End If If request("email")="" Then Errmsg=ErrMsg + "
  • 请输入您的邮件地址。" Exit Function End If If request("forumname")="" Then Errmsg=ErrMsg + "
  • 请输入您的论坛名称。" Exit Function End If If request("bankname")="" Then Errmsg=ErrMsg + "
  • 请选择您的开户银行。" Exit Function End If If request("bankid")="" Then Errmsg=ErrMsg + "
  • 请输入您的银行帐号。" Exit Function End If If request("bankaddress")="" Then Errmsg=ErrMsg + "
  • 请输入您的银行地址。" Exit Function End If If request("telephone")="" Then Errmsg=ErrMsg + "
  • 请输入您的联系电话。" Exit Function End If If request("receiver")="" Then Errmsg=ErrMsg + "
  • 请输入您的收款人。" Exit Function End If session("Forum_Master_Reg_Temp_1")=checkreal(request("username")) & "|||" & checkreal(request("email")) & "|||" & checkreal(request("forumname")) & "|||" & checkreal(request("forumurl")) & "|||动网先锋|||7.1.0" Get_ChallengeWord session("challengeWord_key")=md5(Session("challengeWord") & ":raynetwork",32) %> 正在提交数据,请稍后……
    "> "> "> "> "> "> "> "> "> "> "> "> "> "> "> "> "> "> " name="challengeWord">
    <% End Function Function redir8() 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")) rechallengeWord=trim(Dvbbs.CheckStr(request("challengeWord"))) retokerWord=trim(request("tokenWord")) 'rechallengeWord_key=md5_32(rechallengeWord & ":" & Dvbbs.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(Dvbbs.CheckStr(session("Forum_Master_Reg_Temp_2")),"|||") Else Errmsg=ErrMsg + "
  • 验证失败,非法的参数。" Exit Function End If Case 101 Errmsg=ErrMsg + "
  • 您在短信互动服务主服务器注册失败,"&ErrorMsg&"。" Exit Function Case 102 Errmsg=ErrMsg + "
  • 您注册的用户名和短信互动服务主服务器上的用户名重复,"&ErrorMsg&"。" Exit Function Case 201 Errmsg=ErrMsg + "
  • 您填写的信息在短信互动服务主服务器上登录验证失败,"&ErrorMsg&"。" Exit Function Case Else Errmsg=ErrMsg + "
  • 非法的提交过程,"&ErrorMsg&"。" Exit Function End Select Emp_ChallengeWord session("Forum_Master_Reg_Temp_2")="" Dim iForum_ChanSetting,mForum_ChanSetting Set Rs=Dvbbs.Execute("Select Forum_ChanSetting,Forum_challengePassWord From Dv_Setup") iForum_ChanSetting = Rs(0) iForum_ChanSetting = Split(iForum_ChanSetting,",") For i = 0 To Ubound(iForum_ChanSetting) If i = 0 Then mForum_ChanSetting = 1 Else Select Case i Case 1 mForum_ChanSetting = mForum_ChanSetting & ",1" Case 13 mForum_ChanSetting = mForum_ChanSetting & ",1" Case Else mForum_ChanSetting = mForum_ChanSetting & "," & iForum_ChanSetting(i) End Select End If Next Dvbbs.Execute("Update Dv_Setup Set Forum_ChanSetting='"&Dvbbs.CheckStr(mForum_ChanSetting)&"'") Dvbbs.loadSetup() %>
    成功信息:您在论坛短信互动服务信息更新成功

    <% End Function Function redir1() If request("username")="" Then Errmsg=ErrMsg + "
  • 请输入您的用户名。" Exit Function End If If request("password")="" Then Errmsg=ErrMsg + "
  • 请输入您的用户密码。" Exit Function End If If request("repassword")="" Then Errmsg=ErrMsg + "
  • 请输入您的确认密码。" Exit Function End If If Lcase(request("password"))<>Lcase(request("repassword")) Then Errmsg=ErrMsg + "
  • 您输入的密码和确认密码不一致。" Exit Function End If If request("realname")="" Then Errmsg=ErrMsg + "
  • 请输入您的真实姓名。" Exit Function End If If request("identityNo")="" Then Errmsg=ErrMsg + "
  • 请输入您的身份证号。" Exit Function End If If request("sex")="" Then Errmsg=ErrMsg + "
  • 请选择您的性别。" Exit Function End If If request("postcode")="" Then Errmsg=ErrMsg + "
  • 请输入您的邮政编码。" Exit Function End If If request("address")="" Then Errmsg=ErrMsg + "
  • 请输入您的地址。" Exit Function End If If request("email")="" Then Errmsg=ErrMsg + "
  • 请输入您的邮件地址。" Exit Function End If If request("forumname")="" Then Errmsg=ErrMsg + "
  • 请输入您的论坛名称。" Exit Function End If If request("bankname")="" Then Errmsg=ErrMsg + "
  • 请选择您的开户银行。" Exit Function End If If request("bankid")="" Then Errmsg=ErrMsg + "
  • 请输入您的银行帐号。" Exit Function End If If request("bankaddress")="" Then Errmsg=ErrMsg + "
  • 请输入您的银行地址。" Exit Function End If If request("telephone")="" Then Errmsg=ErrMsg + "
  • 请输入您的联系电话。" Exit Function End If If request("receiver")="" Then Errmsg=ErrMsg + "
  • 请输入您的收款人。" Exit Function End If session("Forum_Master_Reg_Temp_1")=checkreal(request("username")) & "|||" & checkreal(request("email")) & "|||" & checkreal(request("forumname")) & "|||" & checkreal(request("forumurl")) & "|||动网先锋|||7.1.0" Get_ChallengeWord Session("challengeWord_key")=md5(Session("challengeWord") & ":raynetwork",32) %> 正在提交数据,请稍后……
    "> "> "> "> "> "> "> "> "> "> "> "> "> "> "> "> "> "> " name="challengeWord">
    <% End Function Function redir2() If request("username")="" Then Response.Redirect "showerr.asp?action=OtherErr&ErrCodes=
  • 请输入您的用户名。" Exit Function End If If request("password")="" Then Response.Redirect "showerr.asp?action=OtherErr&ErrCodes=
  • 请输入您的密码。" Exit Function End If If request("forumname")="" Then Response.Redirect "showerr.asp?action=OtherErr&ErrCodes=
  • 请输入您的论坛名称。" Exit Function End If session("Forum_Master_Reg_Temp_2")=checkreal(request("username")) & "|||" & checkreal(request("password")) & "|||" & checkreal(request("forumname")) & "|||" & checkreal(request("forumurl")) & "|||动网先锋|||7.1.0" Get_ChallengeWord session("challengeWord_key")=md5(Session("challengeWord") & ":raynetwork",32) %> 正在提交数据,请稍后……
    "> "> "> "> " name="challengeWord">
    <% 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(Dvbbs.CheckStr(request("ForumID"))) reNewPkey=trim(Dvbbs.CheckStr(request("NewPkey"))) rechallengeWord=trim(Dvbbs.CheckStr(request("challengeWord"))) retokerWord=trim(request("tokenWord")) 'rechallengeWord_key=md5_32(rechallengeWord & ":" & Dvbbs.CacheData(21,0)) Select Case ErrorCode Case 100 challengeWord_key=Session("challengeWord_key") If challengeWord_key=retokerWord Then Forum_Master_Reg_Temp_1=split(Dvbbs.CheckStr(session("Forum_Master_Reg_Temp_1")),"|||") Dim iForum_ChanSetting,mForum_ChanSetting Set Rs=Dvbbs.Execute("Select Forum_ChanSetting,Forum_challengePassWord From Dv_Setup") iForum_ChanSetting = Rs(0) iForum_ChanSetting = Split(iForum_ChanSetting,",") For i = 0 To Ubound(iForum_ChanSetting) If i = 0 Then mForum_ChanSetting = 1 Else Select Case i Case 1 mForum_ChanSetting = mForum_ChanSetting & ",1" Case 13 mForum_ChanSetting = mForum_ChanSetting & ",1" Case Else mForum_ChanSetting = mForum_ChanSetting & "," & iForum_ChanSetting(i) End Select End If Next Dvbbs.Execute("update dv_Setup set Forum_challengePassWord='"&reNewPkey&"',Forum_ChanSetting='"&Dvbbs.CheckStr(mForum_ChanSetting)&"',Forum_ChanName='"&Forum_Master_Reg_Temp_1(0)&"',Forum_IsInstall=1,Forum_Version='"&Forum_Master_Reg_Temp_1(5)&"'") Set Rs=Dvbbs.Execute("select top 1 * from Dv_ChallengeInfo") OldForumID=rs("D_ForumID") Rs.close Set Rs=Nothing 'session("Forum_Master_Reg_Temp_1")=checkreal(request("username")) & "|||" & checkreal(request("email")) & "|||" & checkreal(request("forumname")) & "|||" & checkreal(request("forumurl")) & "|||动网先锋|||7.1.0" Dvbbs.Execute("update Dv_ChallengeInfo set D_ForumID='"&reForumID&"',D_UserName='"&Forum_Master_Reg_Temp_1(0)&"',D_Password='"&reNewPkey&"',D_email='"&Forum_Master_Reg_Temp_1(1)&"',D_forumname='"&Forum_Master_Reg_Temp_1(2)&"',D_forumurl='"&Forum_Master_Reg_Temp_1(3)&"',D_forumProvider='"&Forum_Master_Reg_Temp_1(4)&"',D_version='"&Forum_Master_Reg_Temp_1(5)&"',D_challengePassWord='"&OldForumID&"'") Dvbbs.loadSetup() Else Response.Write retokerWord Response.Write "
    " Response.Write challengeWord_key Response.end 'Errmsg=ErrMsg + "
  • 验证失败,非法的参数。" 'Exit Function End If Case 101 Errmsg=ErrMsg + "
  • 注册失败;"&ErrorMsg&"。" Exit Function Case 102 Errmsg=ErrMsg + "
  • 您注册的用户名和短信互动服务主服务器上的用户名重复;"&ErrorMsg&"。" Exit Function Case 201 Errmsg=ErrMsg + "
  • 您填写的信息在短信互动服务主服务器上登录验证失败;"&ErrorMsg&"。" Exit Function Case Else Errmsg=ErrMsg + "
  • 非法的提交过程;"&ErrorMsg&"。" Exit Function End Select Emp_ChallengeWord Session("Forum_Master_Reg_Temp_1")="" %>
    注册成功:您在论坛短信互动服务注册成功

    • 您成功的开启了论坛手机短信服务功能。
    <% 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(Dvbbs.CheckStr(request("ForumID"))) reNewPkey=trim(Dvbbs.CheckStr(request("NewPkey"))) rechallengeWord=trim(Dvbbs.CheckStr(request("challengeWord"))) retokerWord=trim(request("tokenWord")) 'rechallengeWord_key=md5_32(rechallengeWord & ":" & Dvbbs.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(Dvbbs.CheckStr(session("Forum_Master_Reg_Temp_2")),"|||") Dim iForum_ChanSetting,mForum_ChanSetting Set Rs=Dvbbs.Execute("Select Forum_ChanSetting,Forum_challengePassWord From Dv_Setup") iForum_ChanSetting = Rs(0) iForum_ChanSetting = Split(iForum_ChanSetting,",") For i = 0 To Ubound(iForum_ChanSetting) If i = 0 Then mForum_ChanSetting = 1 Else Select Case i Case 1 mForum_ChanSetting = mForum_ChanSetting & ",1" Case 13 mForum_ChanSetting = mForum_ChanSetting & ",1" Case Else mForum_ChanSetting = mForum_ChanSetting & "," & iForum_ChanSetting(i) End Select End If Next Dvbbs.Execute("update dv_Setup set Forum_challengePassWord='"&reNewPkey&"',Forum_ChanSetting='"&Dvbbs.CheckStr(mForum_ChanSetting)&"',Forum_ChanName='"&Forum_Master_Reg_Temp_2(0)&"',Forum_IsInstall=1,Forum_Version='"&Forum_Master_Reg_Temp_2(5)&"'") Set Rs=Dvbbs.Execute("select top 1 * from Dv_ChallengeInfo") OldForumID=rs("D_ForumID") Rs.Close Set Rs=Nothing Dvbbs.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&"'") Dvbbs.loadSetup() Else Errmsg=ErrMsg + "
  • 验证失败,非法的参数。" Exit Function End If Case 101 Errmsg=ErrMsg + "
  • 您在短信互动服务主服务器注册失败,"&ErrorMsg&"。" Exit Function Case 102 Errmsg=ErrMsg + "
  • 您注册的用户名和短信互动服务主服务器上的用户名重复,"&ErrorMsg&"。" Exit Function Case 201 Errmsg=ErrMsg + "
  • 您填写的信息在短信互动服务主服务器上登录验证失败,"&ErrorMsg&"。" Exit Function Case Else Errmsg=ErrMsg + "
  • 非法的提交过程,"&ErrorMsg&"。" Exit Function End Select Emp_ChallengeWord session("Forum_Master_Reg_Temp_2")="" %>
    成功信息:您在论坛短信互动服务信息更新成功

    <% End Function function checkreal(v) Dim w if not isnull(v) then w=replace(v,"|||","§§§") checkreal=w end if end function Sub GetUserInput() %> 真实姓名"> * 身份证号
    支持15位和18位号码 "> * 性别
    请选择您的性别 > 男    > 女 * 邮编"> * 地址"> * 邮件地址
    为了能成功安装论坛,请务必填写真实有效的Email地址 "> * 备用邮件"> 论坛名称"> * 论坛地址" name="forumUrl"> <%=Replace(Dvbbs.Get_ScriptNameUrl,Lcase(Dvbbs.CacheData(33,0)),"")%> 电话
    为了方便我们及时和您联系,请如实填写 "> * 手机"> 银行名称  * 银行地址
    XX省XX市/县。例:湖北省武汉市 "> * 银行帐号
    为确保您能收到款项,请仔细填写,中间不要加空格 "> * 收款人姓名(开户人):
    为确保您能收到款项,请仔细填写 "> * 论坛资料填写 论坛提供者: 动网先锋 论坛版本: Dvbbs 7.1.0 网站内容介绍 <% End Sub '取回密码 Sub Redir9() If Request("t")="t" Then If Request("ErrorCode")="-1" Then Response.Write "您的密码信息已成功发往您注册的邮箱,请留意查收" Else Response.Write "发送失败" End If Else %>
    忘记密码

    请输入您的用户名: <%=Dvbbs.CacheData(33,0)%>install.asp?action=redir9&t=t" name="dirPage">
    <% End If End Sub '检测用户 Sub Redir10() If Request("t")="t" Then If Request("ErrorCode")="-1" Then Response.Write "该帐号尚未注册" Else Response.Write "该帐号已被注册" End If Else %>
    检测用户是否存在

    请输入您要注册的用户名: <%=Dvbbs.CacheData(33,0)%>install.asp?action=redir10&t=t" name="dirPage">
    <% End If End Sub %>