dim ErrorCode,ErrorMsg
dim reForumID,reNewPkey,rechallengeWord,retokerWord
dim challengeWord_key,rechallengeWord_key
dim Forum_Master_Reg_Temp_1,OldForumID
dim vipboardsetting,vipboardslist,vipisupdate
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.challengePassWord)
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")),"|||")
conn.execute("update dvbbs_info set challengePassWord='"&reNewPkey&"',Forum_ChanName='"&Forum_Master_Reg_Temp_1(0)&"',IsInstall=1,Version='"&Forum_Master_Reg_Temp_1(13)&"'")
Set Rs=Conn.execute("select top 1 * from Dv_ChallengeInfo")
OldForumID=rs("D_ForumID")
Rs.close
Set Rs=Nothing
conn.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=conn.execute("Select BoardID,Board_Setting From 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 conn.execute("update board set board_setting='"&vipboardslist&"' where boardid="&rs(0))
vipisupdate=false
Rs.Movenext
Loop
rs.close
Set rs=nothing
else
Dvbbs.AddErrmsg "非法的参数。"
Exit Function
end if
case 102
Dvbbs.AddErrmsg "您注册的用户名和论坛超级联盟主服务器上的用户名重复;"&ErrorMsg&""
Exit Function
case 201
Dvbbs.AddErrmsg "您填写的信息在论坛超级联盟主服务器上登录验证失败;"&ErrorMsg&""
Exit Function
case else
Dvbbs.AddErrmsg "非法的提交过程;"&ErrorMsg&"。"
Exit Function
end select
Response.Write "<script>dvbbs_install_suc_1()</script>"
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
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.challengePassWord)
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")),"|||")
conn.execute("update dvbbs_info set challengePassWord='"&reNewPkey&"',Forum_ChanName='"&Forum_Master_Reg_Temp_2(0)&"',IsInstall=1,Version='"&Forum_Master_Reg_Temp_2(5)&"'")
Set Rs=Conn.execute("select top 1 * from Dv_ChallengeInfo")
OldForumID=rs("D_ForumID")
Rs.close
Set Rs=Nothing
conn.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=conn.execute("Select BoardID,Board_Setting From 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 conn.execute("update board set board_setting='"&vipboardslist&"' where boardid="&rs(0))
vipisupdate=false
Rs.Movenext
Loop
rs.close
Set rs=nothing
Else
Dvbbs.AddErrmsg "非法的参数。"
Exit Function
end if
case 101
Dvbbs.AddErrmsg "您在论坛超级联盟注册失败,"&ErrorMsg&"。"
Exit Function
case 102
Dvbbs.AddErrmsg "您注册的用户名和论坛超级联盟主服务器上的用户名重复,"&ErrorMsg&"。"
Exit Function
case 201
Dvbbs.AddErrmsg "您填写的信息在论坛超级联盟主服务器上登录验证失败,"&ErrorMsg&"。"
Exit Function
case Else
Dvbbs.AddErrmsg "非法的提交过程,"&ErrorMsg&"。"
Exit Function
end select
Response.Write "<script>dvbbs_install_suc_2()</script>"
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
%>
<!--#include file="Conn.asp"-->
<!-- #include file="inc/const.asp" -->
<!--#include file="inc/chan_const.asp"-->
<!--#include file="inc/md5.asp"-->
<%
Dvbbs.Stats="安装论坛"
Dvbbs.Myaction=Dvbbs.Stats
Dvbbs.Nav
Navcode=1
Dim Rs
Set Rs=conn.execute("select * from dvbbs_info")
If rs("Isinstall")=1 Then
If Rs("version")="Dvbbs 6.1.0" Then
If dvbbs.master and session("flag")<>"" Then
If request("isnew")="1" And request("action")<>"" Then
conn.execute("update dvbbs_info set ChallengePassword='raynetwork',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'")
End If
Else
Dvbbs.AddErrmsg "您已经运行过本程序安装论坛。如果您要更新您的站长信息,请到论坛管理界面相关连接进行操作。"
End If
Else
Dvbbs.AddErrmsg "错误的论坛版本号"&Rs("version")
End If
Else
If request("action") <> "" Then
conn.execute("update dvbbs_info set ChallengePassword='raynetwork',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'")
End If
End If
ChkAllErr()
Dvbbs.ScriptSrc(Dvbbs.Templateurl&"js/Dvinstall.js")
Select Case request("action")
Case "apply"
If request("isnew")="0" Then
dvbbs.stats="填写资料"
Dvbbs.Head_var dvbbs.stats,"<a href=install.asp>论坛安装</a>",1
reg_2()
Else
dvbbs.stats="确认资料"
Dvbbs.Head_var dvbbs.stats,"<a href=install.asp>论坛安装</a>",1
reg_2a()
End If
Case "apply1"
dvbbs.stats="验证已注册用户"
Dvbbs.Head_var dvbbs.stats,"<a href=install.asp>论坛安装</a>",1
reg_4()
Case "redir1"
dvbbs.stats="提交注册"
Dvbbs.Head_var dvbbs.stats,"<a href=install.asp>论坛安装</a>",1
Call redir1()
ChkAllErr()
Case "redir2"
dvbbs.stats="提交注册"
Dvbbs.Head_var dvbbs.stats,"<a href=install.asp>论坛安装</a>",1
call redir2()
ChkAllErr()
Case "redir3"
dvbbs.stats="提交注册"
Dvbbs.Head_var dvbbs.stats,"<a href=install.asp>论坛安装</a>",1
call redir3()
ChkAllErr()
Case "redir4"
dvbbs.stats="提交注册"
Dvbbs.Head_var dvbbs.stats,"<a href=install.asp>论坛安装</a>",1
call redir4()
ChkAllErr()
Case Else
dvbbs.stats="注册协议"
Dvbbs.Head_var dvbbs.stats,"<a href=install.asp>论坛安装</a>",1
reg_1
End select
Dvbbs.ActiveOnline
Dvbbs.footer
Function reg_1()
Response.Write "<script>dvbbs_install_reg()</script>"
End Function
Function reg_3()
Response.Write "<script>dvbbs_install_reg_3();</script>"
End Function
Function reg_2()
Response.Write "<script>dvbbs_install_reg_1('"&Dvbbs.Get_ScriptNameUrl("install.asp")&"')</script>"
End Function
Function reg_2a()
Response.Write "<script>dvbbs_install_reg_4('"&Dvbbs.Get_ScriptNameUrl("install.asp")&"')</script>"
End Function
Function reg_4()
Response.Write "<script>dvbbs_install_reg_2('"&Dvbbs.Get_ScriptNameUrl("install.asp")&"')</script>"
End Function
Function redir1()
If request("username")="" Then
Dvbbs.AddErrmsg "请输入您的用户名。"
Exit Function
End If
If request("realname")="" Then
Dvbbs.AddErrmsg "请输入您的真实姓名。"
Exit Function
End If
If request("identityNo")="" Then
Dvbbs.AddErrmsg "请输入您的身份证号。"
Exit Function
End If
If request("sex")="" Then
Dvbbs.AddErrmsg "请选择您的性别。"
Exit Function
End If
If request("postcode")="" Then
Dvbbs.AddErrmsg "请输入您的邮政编码。"
Exit Function
End If
If request("address")="" Then
Dvbbs.AddErrmsg "请输入您的地址。"
Exit Function
End If
If request("email")="" Then
Dvbbs.AddErrmsg "请输入您的邮件地址。"
Exit Function
End If
If request("forumname")="" Then
Dvbbs.AddErrmsg "请输入您的论坛名称。"
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")) & "|||动网先锋|||Dvbbs 6.1.0"
If request("username")="" Then
Dvbbs.AddErrmsg "请输入您的用户名。"
Exit Function
End If
If request("password")="" Then
Dvbbs.AddErrmsg "请输入您的密码。"
Exit Function
End If
If request("forumname")="" Then
Dvbbs.AddErrmsg "请输入您的论坛名称。"
Exit Function
End If
session("Forum_Master_Reg_Temp_2")=checkreal(request("username")) & "|||" & checkreal(request("password")) & "|||" & checkreal(request("forumname")) & "|||" & checkreal(request("forumurl")) & "|||动网先锋|||Dvbbs 6.1.0"