asp登陆原代码正确版Word下载.doc
- 文档编号:1448907
- 上传时间:2023-04-30
- 格式:DOC
- 页数:7
- 大小:33KB
asp登陆原代码正确版Word下载.doc
《asp登陆原代码正确版Word下载.doc》由会员分享,可在线阅读,更多相关《asp登陆原代码正确版Word下载.doc(7页珍藏版)》请在冰点文库上搜索。
/style>
/head>
body>
center>
p>
会员注册系统<
/p>
formname="
form1"
method="
post"
action="
login.asp"
tablewidth="
34%"
border="
0"
tr>
tdwidth="
33%"
height="
30"
用户名:
/td>
67%"
inputname="
username"
type="
text"
id="
size="
15"
/tr>
tdheight="
密码:
password"
tdcolspan="
2"
align="
center"
inputtype="
submit"
name="
Submit"
value="
确定"
reset"
重置"
ahref="
reg.asp"
target="
_self"
注册<
/a>
/table>
/form>
/center>
/body>
/html>
2、(login.asp用户数据处理文件)
%
'
打开数据库判断用户是否存在,info为表名,username为字段名
setrsc=server.createobject("
adodb.recordset"
)
sqlc="
select*frominfowhereusername='
"
&
request.Form("
)&
andpassword='
rsc.opensqlc,conn,1,1
session("
)=rsc("
session.Timeout=30
setrsc=nothing
response.Redirect("
change.asp"
如果用户不存在,session("
)为空
%>
3、(change.asp用户信息修改页面)
修改<
br>
nr=rsc("
username=rsc("
password=rsc("
sex=rsc("
sex"
qq=rsc("
qq"
mail=rsc("
mail"
add=rsc("
add"
personalinfo=rsc("
personalinfo"
vv=rsc("
ntime"
ifnr="
then
index.asp"
endif
ifstrcomp(nr,request.Form("
))=0then
response.Write("
欢迎你!
))
你是在"
vv&
注册的"
)=request.Form("
ifsession("
)="
change.asp?
ac=ch"
39%"
105"
>
27%"
用户名:
73%"
%=username%>
*<
密&
nbsp;
码:
%=password%>
性&
别:
%=sex%>
QQ:
%=qq%>
Mail:
%=mail%>
地&
址:
%=add%>
td>
介绍<
textareaname="
cols="
rows="
6"
%=personalinfo%>
/textarea>
<
修改"
se=y"
退出系统<
%ifstrcomp(request.QueryString("
se"
),"
y"
)=0then
endif
%>
ifstrcomp(request.QueryString("
ac"
ch"
setrs=server.createobject("
sql="
rs.opensql,conn,1,3
rs("
rs.update
setrs=nothing
修改完成!
4、(reg.asp新用户注册页面)
用户注册<
=request.QueryString("
msg"
addnewdata.asp?
ac=adduser"
密码:
确定密码:
password2"
性别:
地址:
个人介绍<
提交"
5、(addnewdata.asp新用户注册数据处理文件)
成功<
ac=request.QueryString("
msg="
注册错误信息"
ifrequest.Form("
msg=msg&
用户名不能为空"
ifstrcomp(cstr(request.Form("
)),cstr(request.Form("
)))<
0then
两次密码输入不同"
iflen(request.Form("
))<
6then
密码太简单"
ifstrcomp(msg,"
)>
reg.asp?
msg)
ifac="
adduser"
rsc.opensql,conn,1,1
ck=rsc("
ifck<
用户名被人注册"
dsql="
select*frominfowhereidisnull"
rs.opendsql,conn,1,3
rs.addnew
)=now
注册成功,点击登陆<
6、(conn.asp数据库连接文件)
dimconn
dimconnstr
onerrorresumenext
connstr="
DBQ="
+server.mappath("
userinfo.mdb"
)+"
;
DefaultDir=;
DRIVER={MicrosoftAccessDriver(*.mdb)};
setconn=server.createobject("
ADODB.CONNECTION"
conn.openconnstr
7、(userinfo.mdbACCESS数据库)
在ACCESS中建一个表,然后在这个表中建立字段名称
表名:
info
用户名
密码
性别
地址
个人介绍
时间
id
username
password
sex
add
personalinfo
ntime
自动编号
文本
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- asp 登陆 原代码 正确