被一个简单的问题卡住了,帮帮啊!!!
定义了一个函数
<%
Function t_opendb(dbname)
strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ= " & Server.MapPath(dbname)
set conn = server.createobject( "adodb.connection ")
conn.open strconn
t_opendb= conn
End Function
%>
在主程序中调用出错啊
<%
conn=t_opendb ( "\user\id.mdb ")
set rs= server.createobject( "adodb.recordset ")
sql= "select * from manager where 用户名= ' "& loginame & " ' and 密码= ' "& passwd & " ' "
Set rs= conn.Execute(sql)
...
%>
提示Set rs= conn.Execute(sql)出错啊!!!
错误类型：
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: 'Provider=MSDASQL.1;E '
/check_login.asp, 第 28 行
[解决办法]
function中
t_opendb= conn
改为
set t_opendb= conn
调用
set conn=t_opendb ( "\user\id.mdb ")
