asp mysql登录_asp登陆 连接到数据库

展开全部

会员登陆代码data/data.mdb

数据62616964757a686964616fe58685e5aeb931333238653364库表：user

id name pwd wenti daan

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

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

%>

无标题文档

用户注册 用户名 密码 密码提示问题 密码提示答案

top.asp

首页 if Session("name")="" then %> 注册 登陆 忘记密码？ else %> 欢迎您， 注销登陆 end if %> 加密页

login.asp

无标题文档

用户登陆 if Session("name")="" then %> 用户名 密码 else %> ，您已经成功登陆 end if %>

loginok.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

无标题文档

找回密码 请输入用户名

pwd2.asp

无标题文档

找回密码 name=trim(request.form("name")) set rs=server.createobject("adodb.recordset") sql="select * from user where name='"&name&"'" rs.open sql,conn,1,1 if not rs.eof then %> "> 密码提示问题 密码提示答案 %> < td>你输入的用户名不存在，请返回重新输入，或者注册

%>

pwd3.asp

无标题文档

找回密码 name=trim(request.form("name")) daan=trim(request.form("daan")) set rs=server.createobject("adodb.recordset") sql="select * from user where name='"&name&"' and daan='"&daan&"'" rs.open sql,conn,1,1 if not rs.eof then %> ，您的密码 %> 你输入的密码提示答案不正确，请返回重新输入 %>

error.asp

无标题文档

登陆失败，请检查用户名和密码是否正确 返回

edit.asp

if request("action")="edit" then

name=session("name")

set rs=server.createobject("adodb.recordset")

sql="select * from user where name='"&name&"'"

rs.open sql,conn,3,2

rs("pwd")=trim(request.Form("pwd"))

rs("daan")=trim(request.Form("daan"))

rs.update

rs.close

set rs=nothing

response.write ""

end if

%>

无标题文档

修改资料 if Session("name")="" then %> 对不起你还没有登陆，请登陆或者注册 else %> name=session("name") set rs=server.createobject("adodb.recordset") sql="select * from user where name='"&name&"'" rs.open sql,conn,1,1 %> 用户名 密码 "> 密码提示问题 密码提示答案 "> end if %>

本回答由提问者推荐

已赞过

已踩过<

你对这个回答的评价是？

评论

收起