asp登陆原代码正确版.doc
《asp登陆原代码正确版.doc》由会员分享，可在线阅读，更多相关《asp登陆原代码正确版.doc（7页珍藏版）》请在冰豆网上搜索。
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">
用户名：
">
*
|
密 码：
">
*
|
性 别：
">
|
QQ：
">
|
Mail：
">
|
地 址：
">
|
| 介绍 | <%=personalinfo%> |
| 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">
用户名：
*
|
密码：
*
|
确定密码：
展开阅读全文
相关搜索
|