ASP 登录代码介绍
1(index.asp 用户登录页面)
会员注册系统
2(login.asp 用户数据处理文件) <% '打开数据库判断用户是否存在,info 为表名,username 为字段名 set rsc=server.createobject("adodb.recordset") sqlc="select * from info where username='"&;request.Form("username")&;"' password='"&;request.Form("password")&;"'" rsc.open sqlc,conn,1,1 session("username")=rsc("username") session("password")=rsc("password") session.Timeout=30 set rsc=nothing response.Redirect("change.asp") '如果用户不存在,session("username")为空 %>
and
3(change.asp 用户信息修改页面)
<% set rsc=server.createobject("adodb.recordset") sqlc="select * from info where password='"&;session("password")&;"'" rsc.open sqlc,conn,1,1 nr=rsc("password")
username='"&;session("username")&;"'
and
username=rsc("username") password=rsc("password") sex=rsc("sex") qq=rsc("qq") mail=rsc("mail") add=rsc("add") personalinfo=rsc("personalinfo") vv=rsc("ntime") set rsc=nothing if nr="" then response.Redirect("index.asp") end if if strcomp(nr,request.Form("password"))=0 then response.Write("欢迎你!"&;request.Form("username")) response.Write("你是在"&;vv&;"注册的") session("username")=request.Form("username") end if if session("username")="" then response.Redirect("index.asp") end if %> <% if strcomp(request.QueryString("ac"),"ch")=0 then set rs=server.createobject("adodb.recordset") sql="select * from info where username='"&;session("username")&;"'" rs.open sql,conn,1,3 rs("username")=request.Form("username") rs("password")=request.Form("password") rs("mail")=request.Form("mail") rs("sex")=r