asp注册登陆系统源代码

 时间:2018-07-01 08:00:43 贡献者:天生我才315

导读:往链点点通共享资源,了解更多请登录 www.WL566.com1, (index.asp 用户登陆页面) 会员 会员注册系统 用户名: 密 码: 注册 2, (login.asp 用户数据处理文件) 3, (change.

客服系统vb asp源代码576
客服系统vb asp源代码576

往链点点通共享资源,了解更多请登录 www.WL566.com1, (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 * 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,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 文本往链点点通共享资源-----------------------------资料说明----------------------------该资源由往链点点通搜索于网络公开资源,仅供网友浏览阅读,请勿用于商业用途; 往链点点通,是免费的新一代电脑管理、网络应用桌面软件。

通过简洁清爽并可随意切换的两种窗口操作界面,构建了用户、电脑、互联网之间顺畅 的入口平台。

为用户管理电脑、智能办公、快捷上网、玩转应用(如 游戏,,提供全方位 ) 一站式的服务。

让用户只需通过往链点点通,就能便捷到达信息时代的各个角落。

真正实现 一键直达,点点就通。

往链快搜索:无论是搜索硬盘资源、查找网络资源,还是追踪热门应用,都能享受前所 未所的快速度。

如本地文件搜索,千万文件,零秒呈现;如网络搜索, 只需输入一次关键词, 便能同步打开百度、google 等多个搜索引擎的结果页; 往链优应用:与某些软件相比,往链点点通追求绿色无广告的体验,精选最优质的网络 应用,为用户提供纯净实在的生活、工作、学习、娱乐、休闲应用空间。

往链点点通,让您用 windows 的使用习惯享受苹果的操作体验!查看和分享更多优质资源,请进入 www.WL566.com 下载往链点点通,找到您的一切网 络所需! 往链网址导航大全 www.www321.com 往链点点通,让您无障碍畅游网络世界!

 
 

微信扫一扫 送福利