大家帮我看看这个程序错在哪里,如何修改?谢谢!!
先给出运行结果:
Microsoft JET Database Engine 错误 '80040e07'
标准表达式中数据类型不匹配。
/123456789/dlchuli.asp，行 21
<% response.Buffer=true %>
<html>
<head>
<title>登陆处理</title>
</head>
<body>
<%
n1=trim(request.Form("name"))
n2=trim(request.Form("word"))
if n1="" or n2="" then
response.write"<p align=center>出错提示：用户名、密码不能为空！</p>"
response.write"<p align=center><a href=index.asp>返回重新登陆</a></p>"
response.end
end if
dim filepath,cn1,sq1,rs
filepath=server.MapPath("wangzhan.mdb")
set cn1=server.createobject("adodb.connection")
cn1.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&filepath&";Persist Security Info=False"
sq1="select * from yonghu where 用户名='"&n1&"'and 密码='"&n2&"'"
set rs=server.createobject("adodb.recordset")
rs.open sq1,cn1,1,1
if cn1.eof then
response.write"<p align=center>出错提示：用户名不存在或用户名、密码不正确！</p>"
response.write"<p align=center><a href=index.asp>返回重新登陆</a></p>"
else
response.write"<p align=center>登陆成功！</a></p><br><br>"
response.write"<p align=center><a href=yonghu.asp>点击这里进入用户页</a></p>"
cn1.close
set cn1=nothing
end if
%>
</body>
</html>
[ 本帖最后由 过傻过天真 于 2008-7-16 23:13 编辑 ]
先给出运行结果:
Microsoft JET Database Engine 错误 '80040e07'
标准表达式中数据类型不匹配。
/123456789/dlchuli.asp，行 21
<% response.Buffer=true %>
<html>
<head>
<title>登陆处理</title>
</head>
<body>
<%
n1=trim(request.Form("name"))
n2=trim(request.Form("word"))
if n1="" or n2="" then
response.write"<p align=center>出错提示：用户名、密码不能为空！</p>"
response.write"<p align=center><a href=index.asp>返回重新登陆</a></p>"
response.end
end if
dim filepath,cn1,sq1,rs
filepath=server.MapPath("wangzhan.mdb")
set cn1=server.createobject("adodb.connection")
cn1.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&filepath&";Persist Security Info=False"
sq1="select * from yonghu where 用户名='"&n1&"'and 密码='"&n2&"'"
set rs=server.createobject("adodb.recordset")
rs.open sq1,cn1,1,1
if cn1.eof then
response.write"<p align=center>出错提示：用户名不存在或用户名、密码不正确！</p>"
response.write"<p align=center><a href=index.asp>返回重新登陆</a></p>"
else
response.write"<p align=center>登陆成功！</a></p><br><br>"
response.write"<p align=center><a href=yonghu.asp>点击这里进入用户页</a></p>"
cn1.close
set cn1=nothing
end if
%>
</body>
</html>
[ 本帖最后由 过傻过天真 于 2008-7-16 23:13 编辑 ]
2008-7-15 23:07
