Asp注册与登入代码.docx
- 文档编号:2460561
- 上传时间:2022-10-29
- 格式:DOCX
- 页数:10
- 大小:16.87KB
Asp注册与登入代码.docx
《Asp注册与登入代码.docx》由会员分享,可在线阅读,更多相关《Asp注册与登入代码.docx(10页珍藏版)》请在冰豆网上搜索。
Asp注册与登入代码
数据库位置:
data/data.mdb
数据库表:
user
id
name
pwd
wenti
daan
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"-->
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- Asp 注册 代码
![提示](https://static.bdocx.com/images/bang_tan.gif)