user_manager.asp

2002年夏天为一个同学制作得班级同学录程序

<!--#include file="conn.asp" -->
<%

userid=trim(request("userid"))
pwd=trim(request("pwd"))
email=trim(request("email"))
tel=trim(request("tell"))
mob_tell=trim(request("mob_tel"))
realname=trim(request("name"))
address=trim(request("address"))
sex=request("sex")
rights=request("rights")


set userinfo=Server.CreateObject("ADODB.Recordset")
sql_user="select * from user where userid='"&userid&"' "
userinfo.Open sql_user,conn,3,2


userinfo("userid")=userid
userinfo("name")=realname
userinfo("password")=pwd
userinfo("email")=email
userinfo("tel")=tel
userinfo("address")=address
userinfo("mob_tel")=mob_tell
userinfo("rights")=rights
userinfo("sex")=sex
userinfo.update

response.write("恭喜您!!注册成功了")
%>
<a href="manage.asp">返回控制面板</a></p>