[图文]asp登陆原代码(正确版)asp 参数不正确asp.net登陆界面

亿堂文库
当前位置:首页 » asp登陆原代码(正确版) » 正文

asp登陆原代码(正确版)

asp.net教育网站源码
asp.net教育网站源码asp登陆原代码(正确版)asp 参数不正确asp.net登陆界面

1、 (index.asp 用户登陆页面) 会员

会员注册系统

用户名:
密 码:
注册
2、 (login.asp 用户数据处理文件) <% '打开数据库判断用户是否存在,info 为表名,username 为字段名

set rsc=server.createobject("adodb.recordset") sqlc="select * from info where 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")为空 %>username='"&request.Form("username")&"'and3、 (change.asp 用户信息修改页面) 修改


<% set rsc=server.createobject("adodb.recordset") sqlc="select * from info where username='"&session("username")&"' and password='"&session("password")&"'" rsc.open sqlc,conn,1,1 nr=rsc("password") 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("se"),"y")=0 then session("username")=""&response.Redirect("index.asp")

end if %>

用户名: *
密  码: *
性  别:
QQ:
Mail:
地  址:
介绍
退出系统
<% 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")=request.Form("sex") rs("qq")=request.Form("qq") rs("add")=request.Form("add") rs("personalinfo")=request.Form("personalinfo") rs.update set rs=nothing response.Write("修改完成!") end if %>
4、 (reg.asp 新用户注册页面) 用户注册
用户注册
<% =request.QueryString("msg") %>

用户名: *
密码: *
确定密码: *
性别:
QQ:
Mail:
地址:
个人介绍

5、 (addnewdata.asp 新用户注册数据处理文件) 成功 <% ac=request.QueryString("ac") msg="注册错误信息" if request.Form("username")="" then msg=msg&"
"&"用户名不能为空" end if if strcomp(cstr(request.Form("password")),cstr(request.Form("password2")))<>0 then msg=msg&"
"&"两次密码输入不同" end if if len(request.Form("password"))<6 then msg=msg&"
"&"密码太简单" end if if strcomp(msg,"注册错误信息")>0 then response.Redirect("reg.asp?msg="&msg) end if if ac="adduser" then set rsc=server.createobject("adodb.recordset") sql="select * from info where username='"&request.Form("username")&"'" rsc.open sql,conn,1,1 ck=rsc("username") set rsc=nothing if ck<>"" then msg=msg&"
"&"用户名被人注册" response.Redirect("reg.asp?msg="&msg) end if dsql="select * from info where id is null" set rs=server.createobject("adodb.recordset") rs.open dsql,conn,1,3 rs.addnew rs("username")=request.Form("username") rs("password")=request.Form("password") rs("mail")=request.Form("mail") rs("sex")=request.Form("sex") rs("qq")=request.Form("qq") rs("add")=request.Form("add") rs("personalinfo")=request.Form("personalinfo")

rs("ntime")=now rs.update set rs=nothing %>

注册成功,点击登陆
<% end if %> 6、 (conn.asp 数据库连接文件) <% dim conn dim connstr on error resume next connstr="DBQ="+server.mappath("userinfo.mdb")+";DefaultDir=;DRIVER={Microsoft (*.mdb)};" set conn=server.createobject("ADODB.CONNECTION") conn.open connstr %> 7、 (userinfo.mdb ACCESS 数据库) 在 ACCESS 中建一个表,然后在这个表中建立字段名称 表名:info 用户名 id 自动编号 username 文本 密码 password 文本 性别 sex 文本 地址 add 文本 QQ qq 文本 Mail mail 文本 个人介绍 personalinfo 文本 时间 ntime 文本AccessDriver