您没有管理本页面的权限。"
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"
"
footer()
Response.End
End Sub
Function reg_1()
%>
<%
End Function
Function reg_3()
Response.Write ""
End Function
Function reg_2()
%>
<%
End Function
Function reg_2a()
Set Rs=Dvbbs.Execute("Select Forum_ChanName From Dv_Setup")
%>
<%
Rs.Close
Set Rs=Nothing
End Function
Function reg_2b()
Set Rs=Dvbbs.Execute("Select Forum_ChanName From Dv_Setup")
%>
<%
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)
%>
正在提交数据,请稍后……
<%
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
%>
<%
'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)
%>
正在提交数据,请稍后……
<%
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)
%>
正在提交数据,请稍后……
<%
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)
%>
正在提交数据,请稍后……
<%
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 Sub
'取回密码
Sub Redir9()
If Request("t")="t" Then
If Request("ErrorCode")="-1" Then
Response.Write "您的密码信息已成功发往您注册的邮箱,请留意查收"
Else
Response.Write "发送失败"
End If
Else
%>
<%
End If
End Sub
'检测用户
Sub Redir10()
If Request("t")="t" Then
If Request("ErrorCode")="-1" Then
Response.Write "该帐号尚未注册"
Else
Response.Write "该帐号已被注册"
End If
Else
%>