UC知道ASP连接access数据库进行一个身份验证,但老一直提示出错,我的代码如下
来源：百度知道 编辑：UC知道 时间：2024/04/29 19:34:01
<HTML>
<HEAD>
<TITLE>Hello</TITLE>
<BODY BGCOLOR="#FFFFFF">
<%
na=Request.form("yname")
dp=Request.form("department")
response.cookies("cna")=na
response.cookies("cdp")=dp
dim cn , rs
set conn=server.CreateObject("adodb.connection")
Provider="Provider=Microsoft.jet.OLEDB.4.0;"
DBpath="Data Source=" & Server.MapPath("cyb.mdb")
set rs = server.createObject("adodb.recordset")
conn.open Provider & DBpath
strsql = "select*from cyb where 姓名='" & na & "' and 部门='" & dp & "'"
rs = conn.execute( strsql )
if rs.eof then
response.write "对不起,您输入的信息无法查证!请您重新输入"
else
response.redirect("bgym.htm")
end if
conn.close
set conn=nothing
set rs=nothing
%>
<HEAD>
<TITLE>Hello</TITLE>
<BODY BGCOLOR="#FFFFFF">
<%
na=Request.form("yname")
dp=Request.form("department")
response.cookies("cna")=na
response.cookies("cdp")=dp
dim cn , rs
set conn=server.CreateObject("adodb.connection")
Provider="Provider=Microsoft.jet.OLEDB.4.0;"
DBpath="Data Source=" & Server.MapPath("cyb.mdb")
set rs = server.createObject("adodb.recordset")
conn.open Provider & DBpath
strsql = "select*from cyb where 姓名='" & na & "' and 部门='" & dp & "'"
rs = conn.execute( strsql )
if rs.eof then
response.write "对不起,您输入的信息无法查证!请您重新输入"
else
response.redirect("bgym.htm")
end if
conn.close
set conn=nothing
set rs=nothing
%>
strsql = "select*from cyb where 姓名='" & na & "' and 部门='" & dp & "'"
这里错了，改为
strsql = "select * from cyb where 姓名='" & na & "' and 部门='" & dp & "'"
* 前后都要有空格
--------------------
数据库连接这么乱啊，给你一个简单明了的
db_path="cyb.mdb" '数据库文件的位置
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db_path)
conn.Open connstr
set rs = server.createObject("adodb.recordset")
conn.open Provider & DBpath
strsql = "select*from cyb where 姓名='" & na & "' and 部门='" & dp & "'"
set rs = conn.execute(strsql)
if rs.eof then
response.write "对不起,您输入的信息无法查证!请您重新输入"
else
response.redirect("bgym.htm")
end if
set rs =