登录注册模块代码.docx
- 文档编号:5635925
- 上传时间:2022-12-29
- 格式:DOCX
- 页数:15
- 大小:17.11KB
登录注册模块代码.docx
《登录注册模块代码.docx》由会员分享,可在线阅读,更多相关《登录注册模块代码.docx(15页珍藏版)》请在冰豆网上搜索。
登录注册模块代码
conn.asp
<%
db="data/data.mdb"'数据库存放目录
onerrorresumenext
setconn=server.createobject("adodb.connection")
conn.open"driver={microsoftaccessdriver(*.mdb)};dbq="&server.mappath(db)
iferrthen
err.clear
setconn=nothing
response.write"数据库连接出错,请检查conn.asp中的连接字符串。
”
response.end
endif
functionclosedb
conn.close
setconn=nothing
endfunction
%>
<%
dimbadword
badword="'|and|select|update|chr|delete|%20from|;|insert|mid|master.|set|chr(37)|
_n
ifrequest.querystring<>""then
chk=split(badword,T)
foreachquery_nameinrequest.querystring
fori=0toubound(chk)
ifinstr(lcase(request.querystring(query_name)),chk(i))<>0then
response.write"
参
数"&query_name&"的值中包含非法字符串!
\n\n');location='"&request.servervariables("http_referer")&"'"
response.end
endif
next
next
endif
%>
reg.asp
--#includefile="conn.asp"-->
<%
ifrequest("action")="reg"then
setrs=server.createobject("adodb.recordset")
rs.open"select*fromuserwherename='"&trim(request(”name"))&""',conn,1,1
ifrs.recordcount>0then
response.write"
请返回重新输入!
');history.back(-1);"
response.end()
endif
sql="select*fromuser"
setrs=server.createobject("adodb.recordset")
rs.opensql,conn,1,3
rs.addnew
rs("name")=trim(request.form("name"))
rs("pwd")=trim(request.form("pwd"))
rs("wenti")=trim(request.form("wenti"))
rs("daan")=trim(request.form("daan"))
rs.update
rs.close
setrs=nothing
response.write"
');location.replace('login.asp');"
response.end
endif
%>
--#ineludefile="top.asp"-->
> action=reg"onsubmit="returnchkform(this)">用户注册 密码
注册">
top.asp
> <% ifsession(”name")=""then %> else %> 欢迎您<%=session(”name")%〉 <% endif %>
login.asp
--#ineludefile="conn.asp"-->
注册
忘记密码?
<%
加密页
登陆
注销登陆
--#ineludefile="top.asp"-->
> 用户登陆 <% ifsession(”name")=""then %> action=login"onsubmit="returnchkform(this)">密码
登陆">
<%
else
%>
<%
endif
%>
loginok.asp
--#ineludefile="conn.asp"-->
<%
session.timeout=30
ifrequest("action")="login"then
name=trim(request.form("name"))
pwd=trim(request.form("pwd"))
ifname=""orpwd=""then
response.redirect("login.asp")
endif
setrs=server.createobject("adodb.recordset")
sql="select*fromuserwherename='"&name&"'andpwd='"&pwd&""'
rs.opensql,conn,1,1
ifnotrs.eofthen
session(”name")=name
response.redirect"edit.asp"
else
response.redirect"error.asp"
response.end
endif
endif
%>
loginout.asp
<%
session(”name")=""
response.write"
功!
');location.href('index.asp');"
response.end
%>
pwd.asp
--#includefile="conn.asp"-->
--#includefile="top.asp"-->
> 找回密码 action=pwd">
pwd2.asp
--#includefile="conn.asp"-->
--#includefile="top.asp"-->
> 找回密码 <% name=trim(request.form(”name")) setrs=server.createobject("adodb.recordset") sql="select*fromuserwherename='"&name&""' rs.opensql,conn,1,1 ifnotrs.eofthen %> ><%=rs("name")%x/td>
<%else
%>
返回
history.back()">
重新输入,或者
<%endif
%>
pwd3.asp
--#ineludefile="conn.asp"-->
--#includefile="top.asp"-->
> 找回密码 <%name=trim(request.form("name"))daan=trim(request.form("daan")) setrs=server.createobject("adodb.recordset") sql="select*fromuserwherename='"&name&"'anddaan="'&daan&""' rs.opensql,conn,1,1 ifnotrs.eofthen %><%=rs("pwd")%>
<%else
%>
history.back()">
返回重新输入
<%endif
%>
error.asp
--#ineludefile="conn.asp"__>
--#includefile="top.asp"-->
> 返回登陆失败,请检查用户名和密码是否正确
edit.asp
--#ineludefile="conn.asp"__>
<%
ifrequest("action")="edit"then
name=session(”name")
setrs=server.createobject("adodb.recordset")sql="select*fromuserwherename='"&name&""'rs.opensql,conn,3,2rs("pwd")=trim(request.form("pwd"))rs("daan")=trim(request.form("daan"))rs.updaters.close
编辑成功!
setrs=nothing
response.write"
');location.href('edit.asp');"
endif
%>
--#includefile="top.asp"-->
> 修改资料 <% ifsession(”name")=""then %> 对不起你还没有登陆,请 <% else %> <% name=session(”name") setrs=server.createobject("adodb.recordset") sql="select*fromuserwherename='"&name&""' rs.opensql,conn,1,1 %> vformaction=”? action=edit"method="post"name="form"id="form">用户名 <%=rs("name")%x/td>
>
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 登录 注册 模块 代码