ASP注册登陆实例代码

数据库位置：data/data.mdb

数据库表：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 "<script language=javascript>alert('传参错误！参数 "&query_name&" 的值中包含非法字符串！\n\n');location='"&request.ServerVariables ("HTTP_REFERER")&"'</Script>"
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 "<Script language='JavaScript'>window.alert('您输入的用户名已存在，请返回重新输入！');history.back(-1);</Script>"
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 "<script language=javascript> alert('注册成功，点击确定立即登录！');location.replace('login.asp');</script>"
response.end
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head> 
<body><!--＃i nclude file="top.asp"-->
<table width="90%" border="1" align="center" cellpadding="10" cellspacing="0">
<tr>
<td>用户注册
<form name="form1" method="post" action="?action=reg" onsubmit="return chkform(this)">
<table width="347" border="1" cellpadding="5" cellspacing="0">
<tr>
<td width="142">用户名</td>
<td width="179"><input name="name" type="text" id="name"></td>
</tr>
<tr>
<td>密码</td>
<td><input name="pwd" type="password" id="pwd"></td>
</tr>
<tr>
<td>密码提示问题</td>
<td><input name="wenti" type="text" id="wenti"></td>
</tr>
<tr>
<td>密码提示答案</td>
<td><input name="daan" type="text" id="daan"></td>
</tr>
<tr>
<td colspan="2"><input type="submit" name="Submit" value="注册">
<input type="reset" name="Submit" value="重置"> </td>
</tr>
</table>
</form>
</td>
</tr>
</table>
</body>
</html>

top.asp

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<table width="90%" border="1" align="center" cellpadding="10" cellspacing="0">
<tr>
<td><a href="/"";index.asp">首页</a>
<% 
if Session("name")="" then
%>
<a href="/"";reg.asp">注册</a> <a href="/"";login.asp">登陆</a>
<a href="/"";pwd.asp">忘记密码？</a> <%
else 
%>
欢迎您<%=Session("name")%>， <a href="/"";loginout.asp">注销登陆</a>
<%
end if
%> 
<a href="/"";jiami.asp">加密页</a></td>
</tr>
</table>
<br>

login.asp

<!--＃i nclude file="conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head> 
<body><!--＃i nclude file="top.asp"-->
<table width="90%" border="1" align="center" cellpadding="10" cellspacing="0">
<tr>
<td>
用户登陆
<% 
if Session("name")="" then
%>
<form name="form1" method="post" action="loginok.asp?action=login" onsubmit="return chkform(this)">
<table border="1" cellspacing="0" cellpadding="5">
<tr>
<td width="116">用户名</td>
<td width="116"><input name="name" type="text" id="name"></td>
</tr>
<tr>
<td>密码</td>
<td><input name="pwd" type="password" id="pwd"></td>
</tr>
<tr>
<td colspan="2"><input type="submit" name="Submit" value="登陆">
<input type="reset" name="Submit" value="重置"></td>
</tr>
</table>
</form>
<%
else 
%>
<table border="1" cellspacing="0" cellpadding="5">
<tr>
<td width="303"><%=Session("name")%>，您已经成功登陆</td>
</tr>
</table>

<%
end if
%>
</td>
</tr>
</table>
</body>
</html>

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 "<script language=javascript> alert('退出登陆成功!');location.href('index.asp');</script>"
response.end
%>
pwd.asp

<!--＃i nclude file="conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head> 
<body><!--＃i nclude file="top.asp"-->
<table width="90%" border="1" align="center" cellpadding="10" cellspacing="0">
<tr>
<td><p>找回密码</p>
<form name="form1" method="post" action="pwd2.asp?action=pwd">
<table width="398" border="1" cellpadding="5" cellspacing="0">
<tr>
<td width="130">请输入用户名</td>
<td width="168"><input name="name" type="text" id="name"></td>
<td width="62"><input type="submit" name="Submit" value="查询"></td>
</tr>
</table>
</form></td>
</tr>
</table>
</body>
</html>

pwd2.asp

<!--＃i nclude file="conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head> 
<body><!--＃i nclude file="top.asp"-->
<table width="90%" border="1" align="center" cellpadding="10" cellspacing="0">
<tr>
<td>
找回密码
<%

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
%>

<form name="form1" method="post" action="pwd3.asp">
<table width="398" border="1" cellpadding="5" cellspacing="0">
<tr>
<td><%=rs("name")%></td>
<td> </td>
<td><input name="name" type="hidden" id="name" value="<%=rs("name")%>"></td>
</tr>
<tr>
<td width="130">密码提示问题</td>
<td width="168"><%=rs("wenti")%>
</td>
<td width="62"> </td>
</tr>
<tr>
<td>密码提示答案</td>
<td><input name="daan" type="text" id="daan"></td>
<td><input type="submit" name="Submit" value="查询"></td>
</tr>
</table>
</form>
<% else 
%>
<table width="413" border="1" cellpadding="5" cellspacing="0">
<tr>
< td>你输入的用户名不存在，请<a href="/"";javascript:history.back()">返回</a>重新输入，或者<a href="/"";reg.asp">注册</a></td>
</tr>
</table>

<%end if

%> 
</td>
</tr>
</table>
</body>
</html>

pwd3.asp

<!--＃i nclude file="conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head> 
<body><!--＃i nclude file="top.asp"-->
<table width="90%" border="1" align="center" cellpadding="10" cellspacing="0">
<tr>
<td>
找回密码
<%

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
%>

<table width="398" border="1" cellpadding="5" cellspacing="0">
<tr>
<td width="130"><%=rs("name")%>，您的密码</td>
<td><%=rs("pwd")%>
</td>
</tr>

</table>

<% else 
%>
<table width="413" border="1" cellpadding="5" cellspacing="0">
<tr>
<td>你输入的密码提示答案不正确，请<a href="/"";javascript:history.back()">返回</a>重新输入</td>
</tr>
</table>

<%end if

%> 
</td>
</tr>
</table>
</body>
</html>

error.asp

<!--＃i nclude file="conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head> 
<body><!--＃i nclude file="top.asp"-->
<table width="90%" border="1" align="center" cellpadding="10" cellspacing="0">
<tr>
<td>登陆失败，请检查用户名和密码是否正确 <a href="/"";login.asp">返回</a></td>
</tr>
</table>
</body>
</html>

edit.asp

<!--＃i nclude file="conn.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 "<script language=javascript>alert('编辑成功！');location.href('edit.asp');</script>"
end if 
%> 
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head> 
<body><!--＃i nclude file="top.asp"-->
<table width="90%" border="1" align="center" cellpadding="10" cellspacing="0">
<tr>
<td><p>修改资料</p>
<p>
<% 
if Session("name")="" then
%>
对不起你还没有登陆，请<a href="/"";login.asp">登陆</a>或者<a href="/"";reg.asp">注册</a>
<%
else 
%>

<% 
name=session("name")
set rs=server.createobject("adodb.recordset")
sql="select * from user where name='"&name&"'"
rs.open sql,conn,1,1
%> 
</p>
<form action="?action=edit" method="post" name="form" id="form">
<table border="1" cellpadding="5">
<tr>
<td>用户名</td>
<td><%=rs("name")%></td>
</tr>
<tr>
<td>密码</td>
<td><input name="pwd" type="text" id="pwd" value="<%=rs("pwd")%>"></td>
</tr>
<tr>
<td>密码提示问题</td>
<td><%=rs("wenti")%></td>
</tr>
<tr>
<td>密码提示答案</td>
<td><input name="daan" type="text" id="daan" value="<%=rs("daan")%>"></td>
</tr>
<tr>
<td> </td>
<td><input type="submit" name="Submit" value="修改">
<input type="reset" name="Submit" value="重置"></td>
</tr>
</table>
</form>
<p> <%
end if
%>
</p></td>
</tr>
</table>
</body>
</html>

赞 (0)

相关推荐

  • ASP 连接Access数据库的登陆系统

    ASP 连接Access数据库的登陆系统

    一.基本目标 首先在Access数据库Database.mdb中存在着用户信息表test: 编写一个登陆系统,如果用户输入的用户名在表中没有,则提示"查无此人",如果输入密码错误,则提示"密码错误" 如果用户输入的用户名与密码都正确,则跳转到登陆成功页 登陆成功页在普通情况下,不允许通过输入网址就能访问 二.基本思想 使用asp的session对象确保了用户名与密码的传递. 弹出部分使用了javascript的脚本语言,使用asp对用户信息表进行查询. 站点的基本结

  • PHP登陆后跳转到登陆前页面实现思路及代码

    最近手上一个小项目让我接触到PHP编程,简单的登陆功能已经OK.可是在实际使用的时候发现一个问题:用户A发送一个链接给用户B,B打开时页面提示登陆,可是登陆成功后,却跳转到了首页,而并不是A发送的链接.为了有更好的用户体验,B登陆成功后应该自动跳转到登陆前的链接.查了PHP帮助手册,利用$_SERVER全局变量可以实现这个功能. $_SERVER是PHP的一个超全局变量,关于$_SERVER变量的详细解释可以参考:http://www.php.net/manual/zh/reserved.var

  • 用Net User命令恢复系统登陆用户密码

    如果你安装的是Windows XP操作系统,不慎忘记了系统登录用户"*****"的密码,你可以NET命令来解决问题: Windows XP中提供了"net user"命令,该命令可以添加.修改用户账户信息,其语法格式为:   net user [UserName [Password | *] [options]] [/domain] net user [UserName {Password | *} /add [options] [/domain] net user

  • JAVA实现简单系统登陆注册模块

    JAVA实现简单系统登陆注册模块

    前期准备 首先要先明确有个大体的思路,要实现什么样的功能,了解完成整个模块要运用到哪些方面的知识,以及从做的过程中去发现自己的不足.技术方面的进步大都都需要从实践中出来的. 功能:用户注册功能+系统登录功能+生成验证码 知识:窗体设计.数据库设计.JavaBean封装属性.JDBC实现对数据库的连接.验证码(包括彩色验证码)生成技术,还有就些比如像使用正则表达式校验用户注册信息.随机获得字符串.对文本可用字符数的控制等 设计的模块预览图: 彩色验证码预览图: 所用数据库:MySQL 数据库设计

  • Android仿QQ登陆窗口实现原理

    Android仿QQ登陆窗口实现原理

    今天根据腾讯qq,我们做一个练习,来学习如何制作一个漂亮的布局.首先看一下官方图片 还是一个启动画面,之后进入登录页面,导航页面就不介绍了,大家可以参考微信的导航页面.首先程序进入SplashActivity,就是启动页面,Activity代码如下: 复制代码 代码如下: package com.example.imitateqq; import android.app.Activity; import android.content.Intent; import android.os.Bund

  • python模拟新浪微博登陆功能(新浪微博爬虫)

    1.主函数(WeiboMain.py): 复制代码 代码如下: import urllib2import cookielib import WeiboEncodeimport WeiboSearch if __name__ == '__main__':    weiboLogin = WeiboLogin('×××@gmail.com', '××××')#邮箱(账号).密码    if weiboLogin.Login() == True:        print "登陆成功!" 前

  • 用户"sa"登陆失败 SQLServer 错误18456的解决方法

    用windows账号还是可以登录的. 查找问题的过程: 第一步: 启动所有与SQL有关的服务,问题依旧: 第二步: 查看windows防火墙,被默认启动了,不启动选择项被Disabled.两个提示"由于安全考虑,某些设置由组策略控制""Windows防火墙正在使用您的域设置",先用gpedit.msc打组策略编辑器,机算机配置--管理模板--网络--网络连接--Windows防火墙--标准配置文件,查看右边各选项属性,都是未配置状态,问题不在这里. 另外一个提示中提

  • 一个简单的网页密码登陆php代码

    复制代码 代码如下: <?php $password = "1234"; // 这里是密码 $p = ""; if(isset($_COOKIE["isview"]) and $_COOKIE["isview"] == $password){ $isview = true; }else{ if(isset($_POST["pwd"])){ if($_POST["pwd"] == $

  • 解决最近Hotmail无法登陆，hotmail不能登陆的最新解决方法总结

    这两天很多人都不能登录,无法登录hotmail.使到很多人有意见.现提供登录方法. 大家可以用下面的hotmail的秘密通道登录hotmail,这样就可以解决我们不能登录hotmail的问题了 一.无法登录Hotmail的"秘密通道": http://mobile.msn.com/hm/folder.aspx [mobile.msn.com] 这个是微软为手机用户定制的手机登陆PDA网页,界面简单,速度很快.可以解决燃眉之急. 二.无法登录MSNSpace的"秘密通道&quo

  • qq防止别人登陆如何禁止别人登陆qq

    qq防止别人登陆如何禁止别人登陆qq

    即时通讯软件QQ拥有越来越多的用户,而QQ号也成为人们继手机号之后又一主要联系方式.但如果你不想让你同事.同学.亲戚和朋友利用你机器中的QQ神聊瞎侃和传输不良信息,不妨试试如下方法: 当然,如果你是在公司局域网禁止别人qq登录,限制上班qq聊天的行为,则推荐你使用专业的网络管理软件--聚生网管(下载地址:http://www.grabsun.com/wangguan.html)就可以了,你只需要将聚生网管安装在局域网一台电脑上,比如你自己或者经理的电脑上,就可以扫描到局域网所有电脑,点点鼠标就可

随机推荐