install.asp

功能强大的bbs

<!--#include file="Conn.asp"-->
<!--#include file="inc/const.asp" -->
<!--#include file="inc/chan_const.asp"-->
<!--#include file="inc/md5.asp"-->
<%
Dvbbs.LoadTemplates("")
Dvbbs.Stats="安装论坛"
Dvbbs.Nav()
Dvbbs.Showerr()
Dim Rs
If Not Dvbbs.Master Then
	Dvbbs.AddErrCode(36)
End If
Dvbbs.Showerr()
If Session("flag")="" Then
	Dvbbs.AddErrCode(36)
End If
Dvbbs.Showerr()
Set Rs=Dvbbs.Execute("select * from dv_Setup")
If rs("Forum_Isinstall")=1 Then
	If Rs("Forum_version")="7.0.0" Then
		If dvbbs.master and session("flag")<>"" Then
			If request("isnew")="1" Or request("action")<>""  Then
				dvbbs.execute("update Dv_Setup set Forum_ChallengePassword='raynetwork',Forum_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'")
				Dvbbs.Name="setup"
				Dvbbs.ReloadSetup
			Else
				Dvbbs.AddErrCode(36)
			End If
		Else
			Dvbbs.AddErrCode(36)
		End If
	Else
		Dvbbs.AddErrCode(37)
	End If
Else
	If request("action") <> "" Or Request("isnew")<>"" Then
		dvbbs.execute("update dv_Setup set Forum_ChallengePassword='raynetwork',Forum_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'")
		Dvbbs.Name="setup"
		Dvbbs.ReloadSetup
	Else
		Dvbbs.AddErrCode(36)
	End If
End If
Dvbbs.Showerr()

Select Case request("action")
	Case "apply"
		If request("isnew")="0" Then
			dvbbs.stats="填写资料"
			Dvbbs.Head_var 0,0,"安装论坛","install.asp"
			reg_2()
		Else
			dvbbs.stats="确认资料"
			Dvbbs.Head_var 0,0,"安装论坛","install.asp"
			reg_2a()
		End If
	Case "redir1"
		dvbbs.stats="提交注册"
		Dvbbs.Head_var 0,0,"安装论坛","install.asp"
		Call redir1()
	Case "redir2"
		dvbbs.stats="提交注册"
		Dvbbs.Head_var 0,0,"安装论坛","install.asp"
		call redir2()
	Case "redir3"
		dvbbs.stats="提交注册"
		Dvbbs.Head_var 0,0,"安装论坛","install.asp"
		call redir3()
	Case "redir4"
		dvbbs.stats="提交注册"
		Dvbbs.Head_var 0,0,"安装论坛","install.asp"
		call redir4()
	Case Else
		dvbbs.stats="注册协议"
		Dvbbs.Head_var 0,0,"安装论坛","install.asp"
		reg_1
End Select

Dvbbs.ActiveOnline()
Dvbbs.Footer


Function reg_1()
%>
<SCRIPT LANGUAGE="JavaScript">
<!--
function submitclick()
{
	if(dvform.isnew[0].checked==false&&dvform.isnew[1].checked==false)
	{
		alert('注册注意事项：\n1、请仔细阅读注册协议，您必须选择“新站长注册”或“已注册，重新确认资料”。\n2、如果您的网站从来没有注册过，请在注册类型中选择“新站长注册”\n3、如果您已经注册过阳光论坛站长，只是改变了地址或者重新安装，可以在注册类型中选择“已注册，重新确认资料” ')
	}
	else
	{
		dvform.submit()
	}
}
//-->
</SCRIPT>
<table cellpadding=3 cellspacing=1 align=center class=tableborder1><form name="dvform"  action="install.asp?action=apply" method=post>
<tr><th align=center colSpan=2>服务条款和声明</td></tr>
<tr><td class=tablebody1 align=left colSpan=2>
<b>继续安装动网论坛前请先阅读相关论坛协议</b>
<BR><BR>
动网论坛和阳光论坛系列软件为所有的论坛站长提供了各种丰富的互动服务，同时由此带来的相关服务收益，将由阳光加信和站长分享。<BR><BR>
越多的中国移动全球通用户使用您推荐的阳光短信产品，您获得的回报便越多。如果本月您推荐的用户发送的短信超过2000元，您便并可以成为本月的超级论坛，享受30％的收益比例。<BR><BR>
<B>收益比例</B>   <BR><BR>
申请使用"动网论坛和阳光论坛系列软件"，初始收益比例为25％。<BR>
如果您当月发送的短信达到2000元，便可在当月按照超级论坛进行结算，享受30%的高比例收益。  <BR><BR>
<B>使用流程</B>   <BR><BR>
在论坛建立时，请认真填写站长注册表单，即可成为"动网论坛和阳光论坛系列软件"的用户。（用户个人信息务必填写清楚，否则会导致汇款单不能正确投递，或者部分业务无法使用。）  <BR><BR>
会员登录到本论坛的管理中心。在管理中心，可以进行论坛收益查询，用户资料、密码修改等操作。  <BR><BR>
全球通用户在使用您页面上的阳光短信服务时，每成功发送一次短信，您就可以从发送金额中获得高比例收益。  <BR><BR>
<B>收益结算</B><BR><BR>
动网论坛和阳光论坛收益计费周期以自然月为计费周期。 <BR>
结算时，如果您的会员帐面余额超过最低支付收益限额：100元（含100元），我们会在每个月20日左右通过邮局汇款的方式支付给您。 <BR><BR>
结算时，如果您的会员帐面余额未达到100元，则自动累计到下个月，直至余额累计达到最低支付收益限额为止 <BR><BR>
每月支付收益无封顶上限，邮局汇款需要事先扣除邮资及相关税金。  <BR><BR>
最终收益结算将以每月与移动运营商核对相关数据为准。  <BR>
如发现作弊行为将停止付费并取消其会员资格，同时保留进一步追究法律责任的权利。  <BR><BR>
请自觉遵守《全国人大常委会关于维护互联网安全的决定》及中华人民共和国其他各项法律法规，禁止任何境内境外色情或反动网站使用"动网论坛和阳光论坛系列软件"，一经发现，立即解除所有服务关系，扣发所有收益，并且该会员将承担由此产生的一切后果。  <BR><BR>
您使用"动网论坛和阳光论坛系列软件"成为注册软件用户， 即表示您已经阅读并接受如上所有条款。<BR><BR>
</td></tr>
<TR align=middle>
<Th colSpan=2 height=24>请选择注册类型</TD>
</TR>
<tr>
<td  width=40% align=center  class=tablebody1  height=24> <input type="radio" name="isnew" value="0"><b>新站长注册</b></td>
<td width=60% align=center  class=tablebody1  height=24> <input type="radio" name="isnew" value="1" ><b>已注册，重新确认资料</b></td>
</TR>
<TR align=middle>
<td align=center class=tablebody2 colSpan=2><input type="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()
%>
<FORM name=theForm action=install.asp?action=redir1 method=post>
<table cellpadding=3 cellspacing=1 align=center class=tableborder1>
<TR align=middle>
<Th colSpan=2 height=24>新站长资料填写</TD>
</TR>
<TR>
<TR>
<Td colSpan=2 class=tablebody1>说明：在此安装过程中，将默认您同意加入论坛短信互动服务，所有资料将提交至主服务器进行确认，在填写前请确认您填写的相关资料是否正确，这将影响到您今后在服务中具体利益的体现，必须完成此步操作才能继续安装论坛。</TD>
</TR>
<TR>
<TD width=40% class=tablebody1><B>*用户名</B>：</TD>
<TD width=60%  class=tablebody1>
<INPUT type=text size=30 name="username"></TD>
</TR>
<TR>
<TD width=40% class=tablebody1><B>*真实姓名</B>：</TD>
<TD width=60%  class=tablebody1>
<INPUT type=text size=30 name="realname"></TD>
</TR>
<TR>
<TD width=40% class=tablebody1><B>*身份证号</B>：</TD>
<TD width=60%  class=tablebody1>
<INPUT type=text size=30 name="identityNo"></TD>
</TR>
<TR>
<TD width=40%  class=tablebody1><B>*性别</B>：<BR>请选择您的性别</font></TD>
<TD width=60%  class=tablebody1> <INPUT type=radio CHECKED value="F" name=sex>
男 &nbsp;&nbsp;&nbsp;&nbsp;
<INPUT type=radio value="M" name=sex>
女 &nbsp;&nbsp;&nbsp;&nbsp;
<INPUT type=radio value="N" name=sex>
保密</TD>
</TR>
<TR>
<TD width=40% class=tablebody1><B>*邮编</B>：</TD>
<TD width=60%  class=tablebody1>
<INPUT type=text size=30 name="postcode"></TD>
</TR>
<TR>
<TD width=40% class=tablebody1><B>*地址</B>：</TD>
<TD width=60%  class=tablebody1>
<INPUT type=text size=30 name="address"></TD>
</TR>
<INPUT type=hidden name="receiver"><TR>
<TD width=40% class=tablebody1><B>*邮件地址</B>：<br>为了能成功安装论坛，请务必填写真实有效的Email地址</TD>
<TD width=60%  class=tablebody1>
<INPUT type=text size=30 name="email"></TD>
</TR>
<TR>
<TD width=40% class=tablebody1><B>电话</B>：</TD>
<TD width=60%  class=tablebody1>
<INPUT type=text size=30 name="telephone"></TD>
</TR>
<TR>
<TD width=40% class=tablebody1><B>手机</B>：</TD>
<TD width=60%  class=tablebody1>
<INPUT type=text size=30 name="mobile"></TD>
</TR>
<TR>
<TD width=40% class=tablebody1><B>银行全称</B>：</TD>
<TD width=60%  class=tablebody1>
<INPUT type=text size=30 name="bankname"></TD>
</TR>
<TD width=40% class=tablebody1><B>银行帐号</B>：</TD>
<TD width=60%  class=tablebody1>
<INPUT type=text size=30 name="bankid"></TD>
</TR>
<TR>
<TD width=40% class=tablebody1><B>*论坛名称</B>：</TD>
<TD width=60%  class=tablebody1>
<INPUT type=text size=30 name="forumname"></TD>
</TR>
<TR>
<TD width=40% class=tablebody1><B>*论坛地址</B>：</TD>
<TD width=60%  class=tablebody1>
<INPUT type=hidden value="<%=Dvbbs.Get_ScriptNameUrl%>" name="forumUrl">
<%=Dvbbs.Get_ScriptNameUrl%></TD>
</TR>
<TR align=middle>
<Th colSpan=2 height=24>论坛资料填写</TD>
</TR>
<TR>
<TD width=40% class=tablebody1><B>*论坛提供者</B>：</TD>
<TD width=60%  class=tablebody1>
动网先锋</TD>
</TR>
<TR>
<TD width=40% class=tablebody1><B>*论坛版本</B>：</TD>
<TD width=60%  class=tablebody1>
Dvbbs 7.0.0</TD>
</TR>
<TR>
<TD width=40% class=tablebody1><B>ICP号</B>：</TD>
<TD width=60%  class=tablebody1>
<INPUT type=text size=30 name="icp"></TD>
</TR>
<TR>
<TD width=40% class=tablebody1><B>网站内容介绍</B>：</TD>
<TD width=60%  class=tablebody1>
<textarea class=smallarea cols=100 name=web_intro rows=7 wrap=VIRTUAL>
</textarea>
</TD>
</TR>
</tbody>
</table>
</td></tr></tbody></table>
<table cellpadding=0 cellspacing=0 border=0 width='+Dvbbs.Forum_Body[12]+' align=center>
<tr>
<td width=50% height=24> </td>
<td width=50% ><input type=submit value="注 册" name=Submit>