install.asp

公司企业网站管理系统全站源码,用于企业内部对网站的管理

<!--#include file="../Conn.asp"-->
<!--#include file="inc/const.asp" -->
<!--#include file="../inc/chan_const.asp"-->
<!--#include file="../inc/md5.asp"-->
<%
Head()
CheckAdmin(",")
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()
Footer()
'页面错误提示信息
Sub dvbbs_error1()
	Response.Write"<br>"
	Response.Write"<table cellpadding=3 cellspacing=1 align=center width=""100%"">"
	Response.Write"<tr align=center>"
	Response.Write"<th width=""100%"" height=25 colspan=2>错误信息"
	Response.Write"</td>"
	Response.Write"</tr>"
	Response.Write"<tr>"
	Response.Write"<td width=""100%"" class=""td1"" colspan=2>"
	Response.Write ErrMsg
	Response.Write"</td></tr>"
	Response.Write"<tr>"
	Response.Write"<td class=""td1"" valign=middle colspan=2 align=center><a href=""javascript:history.go(-2)""><<返回上一页</a></td></tr>"
	Response.Write"</table>"
	footer()
	Response.End 
End Sub 

Function reg_1()
%>
<SCRIPT LANGUAGE="JavaScript">
<!--
function submitclick()
{
	if(dvform.isnew[0].checked==false&&dvform.isnew[1].checked==false&&dvform.isnew[2].checked==false)
	{
		alert('注册注意事项：\n1、请仔细阅读注册协议，您必须选择“新站长注册”或“已注册，重新确认资料”。\n2、如果您的网站从来没有注册过，请在注册类型中选择“新站长注册”\n3、如果您已经注册过阳光论坛站长，只是改变了地址或者重新安装，可以在注册类型中选择“已注册站长绑定新网站或已注册站长更新资料” ')
	}
	else
	{
		dvform.submit()
	}
}
//-->
</SCRIPT>
<table cellpadding=3 cellspacing=1 align=center width="100%"><form name="dvform"  action="install.asp?action=apply" method=post>
<tr><th align=center colSpan=2>服务条款和声明</td></tr>
<tr><td class=td1 align=left colSpan=2>
<iframe src="http://bbs.ray5198.com/bbsapp/protocol.jsp" height=400 width="100%" MARGINWIDTH=0 MARGINHEIGHT=0 HSPACE=0 VSPACE=0 FRAMEBORDER=0></iframe>
</td></tr>
<TR align=middle>
<Th colSpan=2 height=24>请选择注册类型</TD>
</TR>
<tr>
<td  width=100% align=center  class=td1  height=24> <input type="radio" class="radio" name="isnew" value="0"><b>新站长注册</b>&nbsp;&nbsp;&nbsp;&nbsp; <input type="radio" class="radio" name="isnew" value="1" ><b>已注册站长绑定新网站</b>&nbsp;&nbsp;&nbsp;&nbsp; <input type="radio" class="radio" name="isnew" value="2" ><b>已注册站长更新资料</b></td>
</TR>
<TR align=middle>
<td align=center class=td2 colSpan=2><input type="button" class="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()
%>
<SCRIPT LANGUAGE="JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0

  window.open(theURL,winName,features);

}
//-->
</SCRIPT>
<FORM name=theForm action=install.asp?action=redir1 method=post>
<table cellpadding=3 cellspacing=1 align=center width="100%">
<TR align=middle>
<Th colSpan=2 height=24>新站长资料填写</TD>
</TR>
<TR>
<TR>
<Td colSpan=2 class=td1>说明：在此安装过程中，将默认您同意加入论坛短信互动服务，所有资料将提交至主服务器进行确认，在填写前请确认您填写的相关资料是否正确，这将影响到您今后在服务中具体利益的体现。</TD>
</TR>
<TR>
<TD width=40% class=td1><B>用户名</B>：<br>不超过20位的字母或数字的组合</TD>
<TD width=60%  class=td1>
<INPUT type=text size=30 name="username">&nbsp;<B>*</B> <a style="CURSOR:hand" onclick="MM_openBrWindow('install.asp?action=redir10','getpass','width=300,height=100')">检测用户</a></TD>
</TR>
<TR>
<TD width=40% class=td1><B>用户密码</B>：<br>8-20位的字母或数字的组合</TD>
<TD width=60%  class=td1>
<INPUT type=password size=30 name="password">&nbsp;<B>*</B></TD>
</TR>
<TR>
<TD width=40% class=td1><B>重复密码</B>：</TD>
<TD width=60%  class=td1>
<INPUT type=password size=30 name="repassword">&nbsp;<B>*</B></TD>
</TR>
<%GetUserInput()%>
</tbody>
</table>
</td></tr></tbody></table>
<table cellpadding=0 cellspacing=0 border=0 width="100%" align=center>
<tr>
<td width=50% height=24> </td>
<td width=50% ><input type=submit class="button" value="注 册" name=Submit>