adduser.asp

来自「2002年夏天为一个同学制作得班级同学录程序」· ASP 代码 · 共 52 行

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

username=trim(request("name"))
nikename=trim(request("nikename"))
pwd=trim(request("psw"))
pwd2=trim(request("pswc"))
email=trim(request("e_mail"))
tell=trim(request("tell"))
mob_tell=trim(request("mob_tell"))
realname=trim(request("realname"))
address=trim(request("address"))
sex=Cint(request("sex"))

if pwd<>pwd2 then
%>

<font size=4 >用户名或密码错误,请确认后再登陆!!</font><br>
<a href="javascript:history.go(-1)">返回</a></p>
 

 


<%
response.end
end if

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

userinfo.addnew

userinfo("userid")=username
userinfo("nikename")=nikename
userinfo("name")=realname
userinfo("password")=pwd
userinfo("email")=email
userinfo("address")=address
userinfo("mob_tel")=mob_tell
if sex=1 then
userinfo("sex")="男"
else
userinfo("sex")="女"
end if

userinfo.update

response.write("恭喜您!!注册成功了")
%>
<a href="index.asp">返回首页</a></p>