📄 reg.asp

📁 本源代码为网雷弹窗联盟程序的源代码,欢迎大家的下载,学习与交流
💻 ASP
字号:
<html>
<%
if Cint(request("id"))<>"" and Cint(request("id"))<>0 then
	response.cookies("ComeId")=Cint(request("id"))
	Response.Cookies("ComeId").Expires= DateAdd("d",365,now()) 
end if
%>

<!--#include file="head.asp"-->
<title><%=NetName%> - 申请</title>

<body>
<%
if Session("Id")<>"" and Session("UserName")<>"" then
	session("Errmsg") = session("Errmsg")+"&nbsp;&nbsp;&nbsp;- 你已经登陆，如果你继续注册，当前登陆将被注销。<br>"
end if
%>

<%
if trim(request("action"))="reg" then
	uname=trim(request("uname"))
	pass1=trim(request("pass1"))
	email=trim(request("email"))
	qq=trim(request("qq"))
	sitename=trim(request("sitename"))
	siteurl=trim(request("siteurl"))
	outtype=int(request("outtype"))
	intype=int(request("intype"))
	sitetype=int(request("sitetype"))
	sxid=(request("sxid"))
	CheckCode=trim(request("CheckCode"))
	
	if uname="" then
		response.write "<script>alert('请输入用户名称');window.history.back();</script>"	
		response.End()
	end if
	if pass1="" then
		response.write "<script>alert('请输入帐号密码');window.history.back();</script>"	
		response.End()
	end if
	
	if Trim(Request("CheckCode"))="" or isnull(Request("CheckCode")) then
		response.write "<script>alert('请输入附加码');window.history.back();</script>"	
		response.End()
	elseif session("Num")="" then
		response.write "<script>alert('请不要重复提交，如需重新登陆请返回登陆页面');window.history.back();</script>"	
		response.End()
	elseif Trim(Request("CheckCode"))<>session("Num") then
		response.write "<script>alert('你输入的附加码和系统产生的不符');window.history.back();</script>"	
		response.End()
	end if
		
	sql="select * from Users where UserName='"&uname&"'"
	rs.open sql,conn,1,3
	if rs.eof then
		rs.addnew
		rs("UserName")=uname
		rs("PassWord")=md5(pass1)
		rs("Email")=email
		rs("QQ")=qq
		rs("SiteName")=sitename
		rs("SiteUrl")=siteurl
		rs("OutType")=outtype
		rs("InType")=intype
		
		rs("SiteType")=sitetype
		rs("SxId")=int(sxid)
		
		rs("SignTime")=now()
		rs("LastLogin")=now()
		rs("LastLoginIP")=Request.ServerVariables("LOCAL_ADDR")
		
		rs.update
	else
		response.write "<script>alert('这个用户名已经有人使用,请更换一个用户名');window.history.back();</script>"	
		response.End()
	end if
	
	'清空已登录标记
	session("Errmsg") = ""
	Session("Id")=""
	Session("UserName")=""
	session("Num")=""
	Response.Write("<script>alert(""恭喜您,申请成功"");location.href=""login.asp"";</script>")
	Response.End()

end if
%>
<!--#include file="toper.asp"-->
<table width="750" height="5" border="0" align="center" cellpadding="0" cellspacing="0">
	<tr>
		<td></td>
	</tr>
</table>
<table width="750" height="10" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td align=left><%
	if Session("Id")<>"" and Session("UserName")<>"" then
	  response.write "<br>"
	  call ShowMenu
	  response.write "<br>"
	end if%></td>
  </tr>
</table>
<table cellspacing="0" cellpadding="0" width="500" align="center" border="0">
	<form name="f" onSubmit="return xxg()" action="reg.asp?action=reg" method="post">
		<tr>
			<td style="line-height:200%">
			<p><%=ShowContent%><br><br>
			<%
			if session("Errmsg") <> "" then
				response.write "· 在尝试处理您的注册请求时发生了以下错误:<br>"
				response.write "<font color=red>"
				
				response.write session("Errmsg")
				response.write "</font>"
				session("Errmsg") = ""
			end if
			%></p>
			<p style="MARGIN: 16px 0px 6px;">　 用 户 名:
			<input size="16" name="uname" /> 
			(可使用数字、英文字母和中文，4～16个字符。) <br />
			　 密　　码: <input type="password" size="16" name="pass1" /> (仅限数字和英文字母，4～16个字符。)<br />
			　 确认密码: <input type="password" size="16" name="pass2" /> <br />
			　 电子邮件: <input size="30" name="email" /> <br />
			　 站 长Q Q: <input size="30" name="qq" /> <br />
			　 网站名称: <input size="30" name="sitename" /> <br />
			　 网站地址: <input size="30" value="http://" name="siteurl" />
			<span class="red"> 注意：必须加http://</span><br />
			　 
			   积分模式: <SELECT size=1 name=intype> 
        				<OPTION value=0 selected>积分交换</OPTION>
						<OPTION value=1>积分累积</OPTION>
						</SELECT> <br />
			　 网站类型: <select size="1" name="sitetype"><%OptionList(-1)%></select> <br />
			　 推荐人ID: <input readonly name="sxid" size="6" value=<%=ComeId%> > <br />
			　 验 证 码: <input size="6" name="CheckCode" /> 请输入<img src="GetCode.asp" /></p>
			<p>　 <input type="checkbox" checked value="1" name="rule" /> 我同意并承诺遵守《<a href="rule.asp" target="_blank" style="COLOR: #000000">“<%=NetName%>”用户守则</a> 》的全部条款。</p>
			<p>　 
			  <input type="hidden" name="action" value=1>
			  <input type="submit" value="　申 请　" name="submit1" /> <br />
			<br />
			</p></td>
		</tr>
	</form>
</table>
<table width="750" height="5" border="0" align="center" cellpadding="0" cellspacing="0">
	<tr>
		<td></td>
	</tr>
</table>
<!--#include file="foot.asp"-->

</body>

</html>
<%
Function ShowContent ()
	sql="select Reg from Notice"
	set rs=conn.execute (sql)
	if not rs.eof then
		response.write rs(0)
		rs.close
	end if
End Function
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -