哪位高手能帮我看一下,我的程序哪里出错了???
----CheckUser.asp
<!--#include file="conn.asp"-->

<% if request.Form("username")="" then
response.Write"<script language=javascript>alert('请输入用户名');history.back(-1);</script>"
response.End()
end if
if request.Form("password")="" then
response.Write"<script language=javascript>alert('请输入密码');history.back(-1);</script>"
response.End()
end if

username=trim(request.Form("username"))
password=trim(request.Form("password"))
sql="select * from users where username='"&username&"' and password='"&password&"'"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1

if rs.eof then
response.Write"<script language=javascript> alert('无此用户');history.back(-1);</script>"
response.End()
else
session("username")=rs("username")
response.Redirect"index.asp"
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>


-----conn.asp

<!--数据库连接-->
<%
set conn=server.createObject("ADODB.Connection")
dbpath=server.mappath("User.mdb")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq="&dbpath
%>

错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)
ODBC 驱动程序不支持所需的属性。
/CheckUser.asp, 第 16 行

你把sql用response.write打印出来看看

还是出现一样的错误提示!

dbpath=server.mappath("User.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&dbpath&"")
conn.Open connstr


换成oledb的试下

检查一下你的conn.asp文件是否可以运行？
然后看看数据库表中这2个字段是不是不允许为空
把你最上边的2条IF语句改成这样看看：
if trim(request.Form("username"))="" then
response.Write"<script language=javascript>alert('请输入用户名');history.back(-1);</script>"
response.End()
end if
if trim(request.Form("password"))="" then
response.Write"<script language=javascript>alert('请输入密码');history.back(-1);</script>"
response.End()
end if

谢谢大家的帮助!
现在程序已不再出错了,很奇怪的是,我什么也没改了~
昨晚一直搞不好的程序,今天却好好的,问题出在哪里还是不知道~~

汗