ASP用户登录注册代码10页精选文档.docx
- 文档编号:25584688
- 上传时间:2023-06-10
- 格式:DOCX
- 页数:8
- 大小:16.82KB
ASP用户登录注册代码10页精选文档.docx
《ASP用户登录注册代码10页精选文档.docx》由会员分享,可在线阅读,更多相关《ASP用户登录注册代码10页精选文档.docx(8页珍藏版)》请在冰豆网上搜索。
ASP用户登录注册代码10页精选文档
ASP用户登录注册代码
单靠“死”记还不行,还得“活”用,姑且称之为“先死后活”吧。
让学生把一周看到或听到的新鲜事记下来,摒弃那些假话套话空话,写出自己的真情实感,篇幅可长可短,并要求运用积累的成语、名言警句等,定期检查点评,选择优秀篇目在班里朗读或展出。
这样,即巩固了所学的材料,又锻炼了学生的写作能力,同时还培养了学生的观察能力、思维能力等等,达到“一石多鸟”的效果。
1,(index.asp用户登陆页面)
--#includefile="conn.asp"-->
--
body,td,th{
font-family:
宋体;
font-size:
14px;
}
-->
会员注册系统
2,(login.asp用户数据处理文件)
--#includefile="conn.asp"-->
<%
'打开数据库判断用户是否存在,info为表名,username为字段名
setrsc=server.createobject("adodb.recordset")
sqlc="select*frominfowhereusername='"&request.Form("username")&"'andpassword='"&request.Form("password")&"'"
rsc.opensqlc,conn,1,1
session("username")=rsc("username")
session("password")=rsc("password")
session.Timeout=30
setrsc=nothing
response.Redirect("change.asp")
'如果用户不存在,session("username")为空
%>
3,(change.asp用户信息修改页面)
--#includefile="conn.asp"-->
--
body,td,th{
font-size:
14px;
}
-->
<%
setrsc=server.createobject("adodb.recordset")
sqlc="select*frominfowhereusername='"&session("username")&"'andpassword='"&session("password")&"'"
rsc.opensqlc,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")
setrsc=nothing
ifnr=""then
response.Redirect("index.asp")
endif
ifstrcomp(nr,request.Form("password"))=0then
response.Write("欢迎你!
"&request.Form("username"))
response.Write("你是在"&vv&"注册的")
session("username")=request.Form("username")
endif
ifsession("username")=""then
response.Redirect("index.asp")
endif
%>
ac=ch"> *
*
se=y"target="_self">退出系统
<%ifstrcomp(request.QueryString("se"),"y")=0then
session("username")=""
response.Redirect("index.asp")
endif
%>
<%
ifstrcomp(request.QueryString("ac"),"ch")=0then
setrs=server.createobject("adodb.recordset")
sql="select*frominfowhereusername='"&session("username")&"'"
rs.opensql,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
setrs=nothing
response.Write("修改完成!
")
endif
%>
4,(reg.asp新用户注册页面)
--
body,td,th{
font-family:
宋体;
font-size:
14px;
}
-->
用户注册
<%
=request.QueryString("msg")
%>
ac=adduser"> *
*
*
5,(addnewdata.asp新用户注册数据处理文件)
--#includefile="conn.asp"-->
<%
ac=request.QueryString("ac")
msg="注册错误信息"
ifrequest.Form("username")=""then
msg=msg&"
"&"用户名不能为空"
endif
ifstrcomp(cstr(request.Form("password")),cstr(request.Form("password2")))<>0then
msg=msg&"
"&"两次密码输入不同"
endif
iflen(request.Form("password"))<6then
msg=msg&"
"&"密码太简单"
endif
ifstrcomp(msg,"注册错误信息")>0then
response.Redirect("reg.asp?
msg="&msg)
endif
ifac="adduser"then
setrsc=server.createobject("adodb.recordset")
sql="select*frominfowhereusername='"&request.Form("username")&"'"
rsc.opensql,conn,1,1
ck=rsc("username")
setrsc=nothing
ifck<>""then
msg=msg&"
"&"用户名被人注册"
response.Redirect("reg.asp?
msg="&msg)
endif
dsql="select*frominfowhereidisnull"
setrs=server.createobject("adodb.recordset")
rs.opendsql,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
setrs=nothing
%>
<%
endif
%>
6,(conn.asp数据库连接文件)
<%
'连接数据库开始
dimconn,rs,sql
onerrorresumenext
dbpath=server.mappath("userinfo.mdb")
setconn=server.createobject("adodb.connection")
conn.open"PROVIDER=Microsoft.jet.OLEDB.4.0;datasource="&dbpath
'创建记录对象
setrs=server.createobject("adodb.recordset")
%>
7,(userinfo.mdbACCESS数据库)
在ACCESS中建一个表,然后在这个表中建立字段名称
表名:
info
字段名称数据类型
id自动编号
username文本
password文本
sex文本
quest文本
qq文本
mail文本
personalinfo文本
ntime文本
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- ASP 用户 登录 注册 代码 10 精选 文档