diary_new1.asp

该系统是宿舍管理系统

<!--#include file="conn.asp"-->
<%
dim user,password,area,password_check,email,web,url,qq,welcome,ip,addtime,kind
area=request("area")
user=request("user")
password=request("password")
password_check=request("password_check")
email=request("email")
web=request("web")
url=request("url")
qq=request("qq")
welcome=request("welcome")
ip=request("ip")
addtime=request("addtime")
kind=request("kind")
%>
<%
if user ="" then
response.write("<script>alert('对不起，用户名必须填写！');history.go(-1)</script>") 
server.transfer("diary_new.asp")
end if
if password ="" then
response.write("<script>alert('对不起，密码必须填写！');history.go(-1)</script>") 
server.transfer("diary_new.asp")
end if
if password_check ="" then
response.write("<script>alert('对不起，重复密码必须填写！');history.go(-1)</script>") 
server.transfer("diary_new.asp")
end if
if password <> password_check then
response.write("<script>alert('对不起，您两次输入的密码不相同！');history.go(-1)</script>") 
server.transfer("diary_new.asp")
end if
if email ="" then
response.write("<script>alert('对不起，您的E-mail必须填写！');history.go(-1)</script>") 
server.transfer("diary_new.asp")
end if
if qq ="" then
response.write("<script>alert('对不起，您的QQ必须填写！');history.go(-1)</script>") 
server.transfer("diary_new.asp")
end if
if qq < 10000 then
response.write("<script>alert('好像没有四位以下的QQ吧！');history.go(-1)</script>") 
server.transfer("diary_new.asp")
elseif qq > 9999999999 then
response.write("<script>alert('好像没有十一位以上的QQ吧！');history.go(-1)</script>") 
server.transfer("diary_new.asp")
end if
%>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from user where user='"&request("user")&"'"
rs.open sql,conn,1,1
if rs.eof or rs.bof then
set rs1=server.createobject("adodb.recordset")
sql1="select * from user"
rs1.open sql1,conn,2,3

%>
<%
Rs1.AddNew
rs1("area")=area
rs1("user")=user
rs1("password")=password
rs1("email")=email
rs1("web")=web
rs1("url")=url
rs1("qq")=qq
rs1("welcome")=welcome
rs1("ip")=ip
rs1("addtime")=addtime
rs1("kind")=kind
rs1.update
rs1.close
set rs1=nothing
response.redirect "diary_new2.asp?user="&user&""
else
response.write("<script>alert('对不起，这个用户名已经存在！');history.go(-1)</script>") 
server.transfer("diary_new.asp")
end if
rs.close
set rs=nothing
%>
<!--#include file="close.asp"-->