ASP注册登陆实例代码_ASP教程-查字典教程网

数据库位置：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"<scriptlanguage=javascript>alert('传参错误！参数"&query_name&"的值中包含非法字符串！nn');location='"&request.ServerVariables("HTTP_REFERER")&"'</Script>"

response.end

endif

reg.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"<Scriptlanguage='JavaScript'>window.alert('您输入的用户名已存在，请返回重新输入！');history.back(-1);</Script>"

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"<scriptlanguage=javascript>alert('注册成功，点击确定立即登录！');location.replace('login.asp');</script>"

response.end

endif

<html>

<head>

<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">

<title>无标题文档</title>

</head>

<tablewidth="90%"border="1"align="center"cellpadding="10"cellspacing="0">

<tr>

<td>用户注册

<formname="form1"method="post"action="?action=reg"onsubmit="returnchkform(this)">

<tablewidth="347"border="1"cellpadding="5"cellspacing="0">

<tr>

<tdwidth="142">用户名</td>

<tdwidth="179"><inputname="name"type="text"id="name"></td>

</tr>

<tr>

</tr>

<tr>

<td>密码提示问题</td>

</tr>

<tr>

<td>密码提示答案</td>

</tr>

<tr>

<tdcolspan="2"><inputtype="submit"name="Submit"value="注册">

<inputtype="reset"name="Submit"value="重置"></td>

</tr>

</table>

</form>

</td>

</tr>

</table>

</body>

</html>

top.asp

<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">

<tablewidth="90%"border="1"align="center"cellpadding="10"cellspacing="0">

<tr>

ifSession("name")=""then

<ahref="/"";reg.asp">注册</a><ahref="/"";login.asp">登陆</a>

<ahref="/"";pwd.asp">忘记密码？</a><%

else

欢迎您<%=Session("name")%>，<ahref="/"";loginout.asp">注销登陆</a>

endif

<ahref="/"";jiami.asp">加密页</a></td>

</tr>

</table>

<br>

<html>

<head>

<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">

<title>无标题文档</title>

</head>

<tablewidth="90%"border="1"align="center"cellpadding="10"cellspacing="0">

<tr>

<td>

用户登陆

ifSession("name")=""then

<formname="form1"method="post"action="loginok.asp?action=login"onsubmit="returnchkform(this)">

<tableborder="1"cellspacing="0"cellpadding="5">

<tr>

<tdwidth="116">用户名</td>

<tdwidth="116"><inputname="name"type="text"id="name"></td>

</tr>

<tr>

</tr>

<tr>

<tdcolspan="2"><inputtype="submit"name="Submit"value="登陆">

<inputtype="reset"name="Submit"value="重置"></td>

</tr>

</table>

</form>

else

<tableborder="1"cellspacing="0"cellpadding="5">

<tr>

<tdwidth="303"><%=Session("name")%>，您已经成功登陆</td>

</tr>

</table>

endif

</td>

</tr>

</table>

</body>

</html>

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

loginout.asp

session("name")=""

response.write"<scriptlanguage=javascript>alert('退出登陆成功!');location.href('index.asp');</script>"

response.end

pwd.asp

<html>

<head>

<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">

<title>无标题文档</title>

</head>

<tablewidth="90%"border="1"align="center"cellpadding="10"cellspacing="0">

<tr>

<formname="form1"method="post"action="pwd2.asp?action=pwd">

<tablewidth="398"border="1"cellpadding="5"cellspacing="0">

<tr>

<tdwidth="130">请输入用户名</td>

<tdwidth="168"><inputname="name"type="text"id="name"></td>

<tdwidth="62"><inputtype="submit"name="Submit"value="查询"></td>

</tr>

</table>

</form></td>

</tr>

</table>

</body>

</html>

pwd2.asp

<html>

<head>

<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">

<title>无标题文档</title>

</head>

<tablewidth="90%"border="1"align="center"cellpadding="10"cellspacing="0">

<tr>

<td>

找回密码

name=trim(request.form("name"))

setrs=server.createobject("adodb.recordset")

sql="select*fromuserwherename='"&name&"'"

rs.opensql,conn,1,1

ifnotrs.eofthen

<formname="form1"method="post"action="pwd3.asp">

<tablewidth="398"border="1"cellpadding="5"cellspacing="0">

<tr>

</tr>

<tr>

<tdwidth="130">密码提示问题</td>

<tdwidth="168"><%=rs("wenti")%>

</td>

<tdwidth="62"></td>

</tr>

<tr>

<td>密码提示答案</td>

</tr>

</table>

</form>

<%else

<tablewidth="413"border="1"cellpadding="5"cellspacing="0">

<tr>

<td>你输入的用户名不存在，请<ahref="/"";javascript:history.back()">返回</a>重新输入，或者<ahref="/"";reg.asp">注册</a></td>

</tr>

</table>

<%endif

</td>

</tr>

</table>

</body>

</html>

pwd3.asp

<html>

<head>

<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">

<title>无标题文档</title>

</head>

<tablewidth="90%"border="1"align="center"cellpadding="10"cellspacing="0">

<tr>

<td>

找回密码

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

<tablewidth="398"border="1"cellpadding="5"cellspacing="0">

<tr>

<tdwidth="130"><%=rs("name")%>，您的密码</td>

</td>

</tr>

</table>

<%else

<tablewidth="413"border="1"cellpadding="5"cellspacing="0">

<tr>

<td>你输入的密码提示答案不正确，请<ahref="/"";javascript:history.back()">返回</a>重新输入</td>

</tr>

</table>

<%endif

</td>

</tr>

</table>

</body>

</html>

error.asp

<html>

<head>

<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">

<title>无标题文档</title>

</head>

<tablewidth="90%"border="1"align="center"cellpadding="10"cellspacing="0">

<tr>

<td>登陆失败，请检查用户名和密码是否正确<ahref="/"";login.asp">返回</a></td>

</tr>

</table>

</body>

</html>

edit.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"<scriptlanguage=javascript>alert('编辑成功！');location.href('edit.asp');</script>"

endif

<html>

<head>

<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">

<title>无标题文档</title>

</head>

<tablewidth="90%"border="1"align="center"cellpadding="10"cellspacing="0">

<tr>

<p>

ifSession("name")=""then

对不起你还没有登陆，请<ahref="/"";login.asp">登陆</a>或者<ahref="/"";reg.asp">注册</a>

else

name=session("name")

setrs=server.createobject("adodb.recordset")

sql="select*fromuserwherename='"&name&"'"

rs.opensql,conn,1,1

</p>

<formaction="?action=edit"method="post"name="form"id="form">

<tableborder="1"cellpadding="5">

<tr>

</tr>

<tr>

</tr>

<tr>

<td>密码提示问题</td>

</tr>

<tr>

<td>密码提示答案</td>

</tr>

<tr>

<inputtype="reset"name="Submit"value="重置"></td>

</tr>

</table>

</form>

<p><%

endif

</p></td>

</tr>

</table>

</body>

</html>