savereg.asp

asp程序,自动投稿系统,也可以用来学生交作业,原创程序.

<!--#include file="conn.asp"-->
<%'===========================验证表单内容是否合法(开始)====================================================================%>
<%
username=trim(request.form("username"))
password=trim(request.form("password"))
password2=trim(request.form("password2"))
name=trim(request.form("name"))
tel=trim(request.form("tel"))
shouji=trim(request.form("shouji"))
youbian=trim(request.form("youbian"))
mail=trim(request.form("mail"))
dizhi=trim(request.form("dizhi"))
danwei=trim(request.form("danwei"))


if username="" or password="" or password2="" or name="" or tel="" or shouji="" or youbian="" or mail="" or dizhi=""  or danwei="" then
     response.write "<SCRIPT language=JavaScript>alert('为了保证编辑部能和您成功联系，所有项目必须认真填写');"
     Response.Write"this.location.href='vbscript:history.back()';</SCRIPT>"
     Response.End
end if

if instr(Request("username")," ")>0 or instr(Request("username"),"'")>0 then
     response.write "<SCRIPT language=JavaScript>alert('用户名中含有非法字符');"
     Response.Write"this.location.href='vbscript:history.back()';</SCRIPT>"
     Response.End
end if

if  len(username)>8 or len(username)<2 then
     response.write "<SCRIPT language=JavaScript>alert('用户名不能大于8小于2');"
     Response.Write"this.location.href='vbscript:history.back()';</SCRIPT>"
     Response.End
end if


if  len(password)>16 or len(password)<6 then
     response.write "<SCRIPT language=JavaScript>alert('密码长度为6-16个字符');"
     Response.Write"this.location.href='vbscript:history.back()';</SCRIPT>"
     Response.End
end if


	if password<>password2 then
     response.write "<SCRIPT language=JavaScript>alert('密码和确认密码不一致');"
     Response.Write"this.location.href='vbscript:history.back()';</SCRIPT>"
     Response.End
	end if



  if not(isnumeric(shouji)) then 
     response.write "<SCRIPT language=JavaScript>alert('手机号码必须是数字');"
     Response.Write"this.location.href='vbscript:history.back()';</SCRIPT>"
     Response.End
  end if


if not(isnumeric(youbian)) or len(youbian)<>6  then
     response.write "<SCRIPT language=JavaScript>alert('请正确输入邮编');"
     Response.Write"this.location.href='vbscript:history.back()';</SCRIPT>"
     Response.End
end if


  if not(isnumeric(youbian)) then 
     response.write "<SCRIPT language=JavaScript>alert('邮编必须是数字');"
     Response.Write"this.location.href='vbscript:history.back()';</SCRIPT>"
     Response.End
  end if

 if len(dizhi)<10 then 
     response.write "<SCRIPT language=JavaScript>alert('请填写详细地址');"
     Response.Write"this.location.href='vbscript:history.back()';</SCRIPT>"
     Response.End
  end if

  if len(dizhi)>60 then 
     response.write "<SCRIPT language=JavaScript>alert('地址不能大于30字');"
     Response.Write"this.location.href='vbscript:history.back()';</SCRIPT>"
     Response.End
  end if


if instr(Request("mail"),"@")=0 or instr(Request("mail"),".")=0 then
	response.write "<SCRIPT language=JavaScript>alert('请按正确格式填写E-mail地址！');"
	response.write "this.location.href='vbscript:history.back()';</SCRIPT>"
	response.end
end if	



'===================验证表单内容是否合法(结束)======================


'===============================验证是否有重复申请(开始)===============
set rs=server.CreateObject("adodb.recordset")
sql="select * from user where username='"&cstr(username)&"'"

rs.open sql,conn,1,2
 

if rs.recordcount>0 then
response.write "<script language=javascript>"
response.write "alert('已经有此用户了!');"
response.write "javascript:history.go(-1);"
response.write "</script>"
Response.end
else
 
         set rs=server.CreateObject("adodb.recordset")
         rs.open "select * from user where mail='"&mail&"'" ,conn,1,1

         if rs.recordcount>0 then
         response.write "<script language=javascript>"
         response.write "alert('同一用户只可申请一个!');"
         response.write "javascript:history.go(-1);"
         response.write "</script>"
         Response.end
         else
'========================验证是否有重复申请(结束)以下是将表单的内容插入到数据库中============================

set rs=server.createobject("adodb.recordset")
sql="select * from user"
rs.open sql,conn,1,2
rs.addnew

rs("username")=username
rs("name")=name
rs("password")=password
rs("tel")=tel
rs("youbian")=youbian
rs("dizhi")=dizhi
rs("mail")=mail
rs("shouji")=shouji
rs("danwei")=danwei

rs("date")=date()'=在数据库里插入当前的时间,格式为年,月,日

rs.update
rs.close
conn.close
set rs=nothing
end if
  end if

'===========================================插入结束=============================
%>
<html>
<head>
<link href="style.css" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="refresh" content="1;URL=index.asp">
<style type="text/css">
<!--
body,td,th {
	font-family: Arial, Helvetica, sans-serif;
	font-size: 16px;
}
a {
	font-family: Arial, Helvetica, sans-serif;
	font-size: 16px;
}
-->
</style></head>
<body>
<div align="center">会员申请成功</div>
</body>
</html>