logo资料库

用户注册及登录源码（ASP）你们懂得.doc

发布时间：2022-05-29 发布人：admin 分类：说明书 资料大小：0.06M 资料格式：doc 举报 版权申诉
第1页 / 共8页
第2页 / 共8页
第3页 / 共8页
第4页 / 共8页
第5页 / 共8页
第6页 / 共8页
第7页 / 共8页
第8页 / 共8页
资料共8页，全文预览结束
    1，（index.asp 用户登陆页面） 会员

    会员注册系统

    用户名:
    密 码:
    注册
    2，（login.asp 用户数据处理文件）
    <% '打开数据库判断用户是否存在,info 为表名,username 为字段名 set rsc=server.createobject("adodb.recordset") sqlc="select * from info where username='"&request.Form("username")&"' and 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")为空 %> 3，（change.asp 用户信息修改页面） 修改

    <% set rsc=server.createobject("adodb.recordset") sqlc="select 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") username='"&session("username")&"' and
    name="username" type="text" id="username" height="30">
    height="30">
    rows="6" cols="30" name="personalinfo"
      <% 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,rs,sql on error resume next dbpath=server.mappath("userinfo.mdb") set conn=server.createobject("adodb.connection") conn.open "PROVIDER=Microsoft.jet.OLEDB.4.0;data source="&dbpath '创建记录对象 set rs=server.createobject("adodb.recordset") %> 7，（userinfo.mdb ACCESS 数据库） 在 ACCESS 中建一个表，然后在这个表中建立字段名称 表名：info 字段名称 数据类型 id 自动编号
    username 文本 password 文本 sex 文本 quest 文本 qq 文本 mail 文本 personalinfo 文本 ntime 文本
    分享到：
    赞 收藏

    相关推荐

    资料库

    开发技术

    共收录19306份资料，累计14个分类，关注成员有19位，主要包括：Actionscript,Javascript,PHP,VB,Perl,Delphi,Python,C#,C,Java,C++,Web开发,硬件开发,其它

    热门标签

    Actionscript Javascript PHP VB Perl Delphi Python C# C Java C++ Web开发 硬件开发 其它

    最新资料