UC知道ASP连接ACCESS 实现登陆
来源：百度知道 编辑：UC知道 时间：2024/05/22 13:10:16
现在的问题是ASP连ACCESS数据库能连通,也能登陆,只有当userpass和username都为空时,才转到zhuce.html,username和userpass都填并且为任意值时都可以登陆,并且出现:"登陆成功！"从不出现"登陆错误" 而我想实现username和userpass只要有一个为错时,会出现"登陆错误" ,都为正确时会出现:"登陆成功！",也就是完全正确的登陆模式。
1.conn.asp的代码如下
<%
dim conn
dim connstr
db="C:\Inetpub\wwwroot\ASP2\zhuce.mdb" '数据库文件位置
on error resume next
connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
if err then
err.clear
else
conn.open connstr
end if
%>
2.index.html(登陆界面)的代码如下:
登陆页面
<html>
<body>
<form method="post"action="register.asp">
<p>姓名：<input type="text"name="Name"size="10"></p>
<p>密码：<in
1.conn.asp的代码如下
<%
dim conn
dim connstr
db="C:\Inetpub\wwwroot\ASP2\zhuce.mdb" '数据库文件位置
on error resume next
connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
if err then
err.clear
else
conn.open connstr
end if
%>
2.index.html(登陆界面)的代码如下:
登陆页面
<html>
<body>
<form method="post"action="register.asp">
<p>姓名：<input type="text"name="Name"size="10"></p>
<p>密码：<in
<%
dim username,userpwd
username=trim(replace(request("Name"),"'",""))
userpwd=trim(Request.Form("Password"))
if username="" then
%>
<script language=javascript>
alert( "错误：请输入管理帐号！" );
location.href = "javascript:history.back()"
</script>
<%end if
if userpwd="" then%>
<script language=javascript>
alert( "错误：请输入管理密码！" );
location.href = "javascript:history.back()"
</script>
<%end if%>
先让他们不为空
<%
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "="Select*Form t_user where d_user='"&username&"'", conn, 3,3
%>
<%if rs.bof then %>
<script language=javascript>
alert( "错误：此用户名不存在！" );
location.href = "javascript:histo