modify1.asp

该系统是宿舍管理系统

<!--#include file="conn.asp"-->
<%
dim user,password,password_check,email,qq,area,kind,welcome,web,url,id
user=request("user")
password=request("password")
password_check=request("password_check")
email=request("email")
qq=request("qq")
area=request("area")
kind=request("kind")
welcome=request("welcome")
web=request("web")
url=request("url")
id=request("id")
%>
<%
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
%>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from user where id ="&request("id")
rs.open sql,conn,2,3
%>
<%
rs("user")=user
rs("password")=password
rs("email")=email
rs("web")=web
rs("url")=url
rs("qq")=qq
rs("welcome")=welcome
rs("kind")=kind
rs("area")=area
rs.update
rs.close
set rs=nothing
response.redirect "diary.asp?user=" & user
%>
<!--#include file="close.asp"-->