注册登陆代码.docx
- 文档编号:12613720
- 上传时间:2023-04-20
- 格式:DOCX
- 页数:17
- 大小:16.95KB
注册登陆代码.docx
《注册登陆代码.docx》由会员分享,可在线阅读,更多相关《注册登陆代码.docx(17页珍藏版)》请在冰豆网上搜索。
注册登陆代码
数据库位置:
data/data.mdb
数据库表:
user
idnamepwdwentidaan
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)|="
ifrequest.QueryString<>""then
chk=split(badword,"|")
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
%>
--#includefile="top.asp"-->
action=reg"onsubmit="returnchkform(this)">
top.asp
<%
ifSession("name")=""then
%>
<%
else
%>
欢迎您<%=Session("name")%>,
<%
endif
%>
login.asp
--#includefile="conn.asp"-->
--#includefile="top.asp"-->
用户登陆
<%
ifSession("name")=""then
%>
action=login"onsubmit="returnchkform(this)">
<%
else
%>
<%
endif
%>
loginok.asp
--#includefile="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
%>
<%else
%>
history.back()">返回重新输入,或者
<%endif
%>
pwd3.asp
--#includefile="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
%>
<%else
%>
history.back()">返回重新输入
<%endif
%>
error.asp
--#includefile="conn.asp"-->
--#includefile="top.asp"-->
edit.asp
--#includefile="conn.asp"-->
<%
ifrequest("action")="edit"then
name=session("name")
setrs=server.createobject("adodb.recordset")
sql="select*fromuserwherename='"&name&"'"
rs.opensql,conn,3,2
rs("pwd")=trim(request.Form("pwd"))
rs("daan")=trim(request.Form("daan"))
rs.update
rs.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
%>
action=edit"method="post"name="form"id="form">用户名 <%=rs("name")%>
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 注册 登陆 代码
![提示](https://static.bdocx.com/images/bang_tan.gif)