用户登入验证 <% dim username,password username=request.form("t_user") pass
word=request.form("t_pass") set rs=server.createobject("adodb.recordset") sql="select * from rsyh where t_user='"&;username&;"'" rs.open sql,conn,1,1 if rs.eof then response.write "" response.end else if rs("t_pass")<>password then response.write "" response.end end if session("admin")=username end if %> 用户注册代码 <% set str=server.CreateObject("adodb.recordset")
sql="select * from info where i_user='"&;request.form("f_user")&;"'" str.open sql,conn,1,3 if str.eof then str.addnew str("i_user")=request.form("f_user") str("i_pass")=request.form("i_pass") str("i_sex")=request.form("i_sex") str("i_age")=request.form("i_age") str("i_bm")=request.form("i_bm") str("i_adess")=request.form("i_adress") str("i_tel")=request.form("i_tel") str("i_mail")=request.form("i_mail") str("i_gh")=request.form("i_gh") str.update str.movelast str.close str.open "rsyh",conn,1,3 str.addnew str("t_user")=request.form("f_user") str("t_pass")=request.Form("i_pass") response.write("用户
注册成功,是否继续,否则返回")
str.update str.close else response.write("用户重复,请重新输入用户名") set str=nothing conn.close set conn=nothing end if '插入用户信息 %>