登录注册模块代码.doc
- 文档编号:1704692
- 上传时间:2022-10-23
- 格式:DOC
- 页数:11
- 大小:44KB
登录注册模块代码.doc
《登录注册模块代码.doc》由会员分享,可在线阅读,更多相关《登录注册模块代码.doc(11页珍藏版)》请在冰豆网上搜索。
conn.asp
<%
db="data/data.mdb" '数据库存放目录
on error resume next
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath(db)
if err then
err.clear
set conn = nothing
response.write "数据库连接出错,请检查conn.asp中的连接字符串。
"
response.end
end if
function closedb
conn.close
set conn=nothing
end function
%>
<%
dim badword
badword="'|and|select|update|chr|delete|%20from|;|insert|mid|master.|set|chr(37)|="
if request.querystring<>"" then
chk=split(badword,"|")
for each query_name in request.querystring
for i=0 to ubound(chk)
if instr(lcase(request.querystring(query_name)),chk(i))<>0 then
response.write ""
response.end
end if
next
next
end if
%>
reg.asp
--#i nclude file="conn.asp"-->
<%
if request("action")="reg" then
set rs=server.createobject("adodb.recordset")
rs.open "select * from user where name='"&trim(request("name"))&"'",conn,1,1
if rs.recordcount>0 then
response.write ""
response.end()
end if
sql="select * from user"
set rs=server.createobject("adodb.recordset")
rs.open sql,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
set rs=nothing
response.write ""
response.end
end if
%>
--#i nclude file="top.asp"-->
用户注册 |
top.asp
首页 <% if session("name")="" then %> <% else %> 欢迎您<%=session("name")%>, 注销登陆 <% end if %> |
login.asp
--#i nclude file="conn.asp"-->
--#i nclude file="top.asp"-->
用户登陆 <% if session("name")="" then %> <% else %>
<% end if %> |
loginok.asp
--#i nclude file="conn.asp"-->
<%
session.timeout=30
if request("action")="login" then
name=trim(request.form("name"))
pwd=trim(request.form("pwd"))
if name="" or pwd="" then
response.redirect ("login.asp")
end if
set rs=server.createobject("adodb.recordset")
sql="select * from user where name='"&name&"'and pwd='"&pwd&"'"
rs.open sql,conn,1,1
if not rs.eof then
session("name")=name
response.redirect"edit.asp"
else
response.redirect"error.asp"
response.end
end if
end if
%>
loginout.asp
<%
session("name")=""
response.write ""
response.end
%>
pwd.asp
--#i nclude file="conn.asp"-->
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 登录 注册 模块 代码