ASP网页登陆密码及用户名检测(VB+ACCESS)
代码太繁琐,看的时候也需要很长的时间,还是直接用标准的中国话叙述吧.login.asp设置了一个表单,用户名和密码,按妞是登陆和取消.checkmima.asp检测用户名...
代码太繁琐,看的时候也需要很长的时间,还是直接用标准的中国话叙述吧.
login.asp 设置了一个表单,用户名和密码,按妞是登陆和取消.
checkmima.asp检测用户名及密码.
我想知道如何用VBscript+ACCESS数据库实现密码的检测,网上大多是SQLserver的数据库.找不到VB的.
主要就是检测那段代码如何实现.
SELECT * FROM "数据库的名是data里边的表是zhuce,那这地就应该是填zhuce吧"
等回答了.怎么才能实现VBscript+ACCESS数据库检测用户名和密码.谢谢. 展开
login.asp 设置了一个表单,用户名和密码,按妞是登陆和取消.
checkmima.asp检测用户名及密码.
我想知道如何用VBscript+ACCESS数据库实现密码的检测,网上大多是SQLserver的数据库.找不到VB的.
主要就是检测那段代码如何实现.
SELECT * FROM "数据库的名是data里边的表是zhuce,那这地就应该是填zhuce吧"
等回答了.怎么才能实现VBscript+ACCESS数据库检测用户名和密码.谢谢. 展开
展开全部
1.建立一个access数据库保存，打开“使用表设计器创建表”详细如下：
字段名称 数据类型
id 自动编号
username 文本
password 文本
2. login.asp 文件内容如下：
<html>
<head>
<title>系统管理员登陆</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script Language="javaScript">
function login_validate()
{
if (document.myform.username.value=="")
{
alert("Error:请输入帐号！");
document.myform.username.focus();
return false ;
}
if (document.myform.password.value=="")
{
alert("Error:请输入密码！");
document.myform.password.focus();
return false ;
}
return true;
}
</script>
<style type="text/css">
<!--
body,td {
font-size: 12px;
}
-->
</style>
</head>
<body>
<p> </p>
<form action="checkmima.asp" method="post" NAME="myform" id="myform" onSubmit="return
login_validate();">
<table width="250" border="0" align="center" cellpadding="5" cellspacing="1"
style="border:1px #cccccc solid;">
<tr>
<td height=30 bgcolor="#eeeeee" align=center>∷ 管理员登陆 ∷</td>
</tr>
<tr>
<td align="center">用户名: <input name="Username" tabindex="1" type="text"
id="username"></td>
</tr>
<tr>
<td align="center">密 码: <input name="Password" tabindex="2" type="password"
id="password"></td>
</tr>
<tr>
<td align="center"><input type="submit" name="Submit" value=" 登 陆 "
tabindex="3">
<input type="reset" name="Submit2" value=" 重 置 " tabindex="4"></td>
</tr>
</table>
</form>
</body>
</html>
2. checkmima.asp 文件内容如下：
<%
db="数据库路径/数据库名称.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
'connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver(*.mdb)};"
conn.Open connstr
%>
<%
dim sql
dim rs
dim username
dim password
username=replace(trim(request("username")),"'","")
password=replace(trim(Request("password")),"'","")
sql="select username,password,flag from zhuce where password='"&password&"' and
username='"&username&"'"
set rs = conn.execute(sql)
if not(rs.bof and rs.eof) then
if password=rs(1) then
session("admin")=rs(0)
session("flag")=rs(2)
Response.Redirect "Default.asp" // 登陆成功后要跳转到的页面
else
call Error
end if
else
call Error()
end if
sub Error()
Response.Write "<script language=javascript>"
Response.Write "alert(""登陆失败! 帐号或密码错误！"");"
Response.Write "history.back(-1);"
Response.Write "</script>"
end sub
rs.close
conn.close
set rs=nothing
set conn=nothing
%>
以上信息我已经做好了一个发你邮箱 hackerbasic@126.com 里了!
字段名称 数据类型
id 自动编号
username 文本
password 文本
2. login.asp 文件内容如下：
<html>
<head>
<title>系统管理员登陆</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script Language="javaScript">
function login_validate()
{
if (document.myform.username.value=="")
{
alert("Error:请输入帐号！");
document.myform.username.focus();
return false ;
}
if (document.myform.password.value=="")
{
alert("Error:请输入密码！");
document.myform.password.focus();
return false ;
}
return true;
}
</script>
<style type="text/css">
<!--
body,td {
font-size: 12px;
}
-->
</style>
</head>
<body>
<p> </p>
<form action="checkmima.asp" method="post" NAME="myform" id="myform" onSubmit="return
login_validate();">
<table width="250" border="0" align="center" cellpadding="5" cellspacing="1"
style="border:1px #cccccc solid;">
<tr>
<td height=30 bgcolor="#eeeeee" align=center>∷ 管理员登陆 ∷</td>
</tr>
<tr>
<td align="center">用户名: <input name="Username" tabindex="1" type="text"
id="username"></td>
</tr>
<tr>
<td align="center">密 码: <input name="Password" tabindex="2" type="password"
id="password"></td>
</tr>
<tr>
<td align="center"><input type="submit" name="Submit" value=" 登 陆 "
tabindex="3">
<input type="reset" name="Submit2" value=" 重 置 " tabindex="4"></td>
</tr>
</table>
</form>
</body>
</html>
2. checkmima.asp 文件内容如下：
<%
db="数据库路径/数据库名称.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
'connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver(*.mdb)};"
conn.Open connstr
%>
<%
dim sql
dim rs
dim username
dim password
username=replace(trim(request("username")),"'","")
password=replace(trim(Request("password")),"'","")
sql="select username,password,flag from zhuce where password='"&password&"' and
username='"&username&"'"
set rs = conn.execute(sql)
if not(rs.bof and rs.eof) then
if password=rs(1) then
session("admin")=rs(0)
session("flag")=rs(2)
Response.Redirect "Default.asp" // 登陆成功后要跳转到的页面
else
call Error
end if
else
call Error()
end if
sub Error()
Response.Write "<script language=javascript>"
Response.Write "alert(""登陆失败! 帐号或密码错误！"");"
Response.Write "history.back(-1);"
Response.Write "</script>"
end sub
rs.close
conn.close
set rs=nothing
set conn=nothing
%>
以上信息我已经做好了一个发你邮箱 hackerbasic@126.com 里了!
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
<!--#include file=../include/config.asp--> '变量定义
<!--#include file=../include/conn_view.asp--> '开数据库
<!--#include file=../include/function.asp--> '检测服务器，运行环境是否正确
<%
dim user,password,strSql,rsTmp,retValue
user=request("user") '登陆页面的用户名
password=request("password") '登陆页面的用户密码
if user="" then '判断用户名是否填写
out("用户名不能为空！")
resonse.end
end if
if password="" then '判断用户密码是否填写
out("密码不能为空！")
resonse.end
end if
set rsTmp=Server.CreateObject("ADODB.RecordSet")
strSql = "select * from [你的库表名] where username='" & convertsql(user) & "'"
strSql = strSql & " and userpassword='" & convertsql(password) & "'"
rsTmp.open strSql,conn
if rsTmp.eof then
out("该用户不存在,或密码错误！")
retValue=1
else
retValue=0
'##设置session
session("adminlogin")="ok"
session("user_id")=rsTmp("user_id")
end if
rsTmp.close
set rsTmp=nothing
conn.close
set conn=nothing
'##跳转到另一页去
if retValue=0 then
response.redirect "../manage.asp" '跳转到登陆后页面
end if
%>
以上就是VBscript+ACCES数据库登陆时判断用户名及密码的详细代码
<!--#include file=../include/conn_view.asp--> '开数据库
<!--#include file=../include/function.asp--> '检测服务器，运行环境是否正确
<%
dim user,password,strSql,rsTmp,retValue
user=request("user") '登陆页面的用户名
password=request("password") '登陆页面的用户密码
if user="" then '判断用户名是否填写
out("用户名不能为空！")
resonse.end
end if
if password="" then '判断用户密码是否填写
out("密码不能为空！")
resonse.end
end if
set rsTmp=Server.CreateObject("ADODB.RecordSet")
strSql = "select * from [你的库表名] where username='" & convertsql(user) & "'"
strSql = strSql & " and userpassword='" & convertsql(password) & "'"
rsTmp.open strSql,conn
if rsTmp.eof then
out("该用户不存在,或密码错误！")
retValue=1
else
retValue=0
'##设置session
session("adminlogin")="ok"
session("user_id")=rsTmp("user_id")
end if
rsTmp.close
set rsTmp=nothing
conn.close
set conn=nothing
'##跳转到另一页去
if retValue=0 then
response.redirect "../manage.asp" '跳转到登陆后页面
end if
%>
以上就是VBscript+ACCES数据库登陆时判断用户名及密码的详细代码
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
