正在安装论坛 有个问题 在线等....

Romantic007 2004-04-11 08:04:54
偶对论坛一窍不通
下了一个动网论坛后,就直接上传到某个空间上去了

打开那个网页后,它要我安装论坛 我就点了
它又要我注册新站长 我就填好了资料
然后又出现一个什么阳光网站的页面 要我输入站长密码
我就输呗 然后点确认后就没反映了:(
过了很久才转到我的动网论坛上
但出现的是“
您在执行“安装论坛”操作的时候发生错误

我真不知道是什么错误
昏了 大家帮帮忙啊

...全文
46 点赞 收藏 9
写回复
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
40303331 2004-04-12
看傻掉啊
回复
Iamarmy 2004-04-11
这种问题,你更应该去动网官方论坛去问。:)
回复
Romantic007 2004-04-11
还有
Get_ChallengeWord

session("challengeWord_key")=md5(Session("challengeWord") & ":" & dvbbs.challengePassWord,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="<%=Dvbbs.Get_ScriptNameUrl("install.asp")%>">
<INPUT type=hidden name="forumProvider" value="动网先锋">
<INPUT type=hidden name="version" value="Dvbbs 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
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
%>
回复
Romantic007 2004-04-11
下面是install.asp的内容
我应该怎么改才能不安装呢?

<!--#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"

Get_ChallengeWord

session("challengeWord_key")=md5(Session("challengeWord") & ":" & dvbbs.challengePassWord,32)
%>
正在提交数据,请稍后……
<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="<%=Dvbbs.Get_ScriptNameUrl("install.asp")%>">
<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="Dvbbs 6.1.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
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"
回复
diveas 2004-04-11
up
回复
Iamarmy 2004-04-11
呵呵,你在所有动网的asp文件中搜索含有"install.asp"文字的asp文件,找到那个文件,看看是在那一行出现"install.asp",把那一行注释掉。
我想应该可以,因为它肯定是在第一次访问的时候检测你是否安装,如果没有并跳转到install.asp。
回复
Romantic007 2004-04-11
upup
我刚才试了一下
install.asp 删除掉了以后 不行?
神啊
救救我吧
回复
Romantic007 2004-04-11
怎么样才能不运行install.asp 呢?
是不是在我的空间中把install.asp 文件删除掉就ok了呢?

回复
xkou 2004-04-11
不要运行install.asp 那是注册阳光短信用的
运行index.asp 就可以
回复
发动态
发帖子
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
社区公告
暂无公告