高手请进：include文件的问题

[BAYERN]

adofunction.asp
<!--include file="adovbs.inc"-->
<%
function getrecordset(filename,tablename)
set conn=server.createobject("adodb.connection")
set conn="provider=microsoft.jet.oledb.4.0;"&"data source="&server.mappath("filename")
conn.open

set getrecordset=conn.createobject("adodb.recordset")
getrecordset.open tablename,conn,1,3
end function
%>

------------------------------------------------------------------------------------------
print.asp
<!--#include file="adofunction.asp"-->
<%
dim objrs
set objrs=getrecordset("student.mdb","学生")
'将目前指针所指到的纪录显示在浏览器画面
if not objrs.eof then
response.write"编号:"&objrs("编号")&"<br>"
response.write"姓名:"&objrs("姓名")&"<br>"
response.write"性别:"&objrs("性别")&"<br>"
else
response.write"到达数据库结尾，无法打印记录"
end if

objrs.close
set objrs=nothing
conn.close
set conn=nothing
%>

写了这么两个文件，localhost/print.asp以后，提示：您要访问的网页有错误，无法显示。

这是怎么回事啊，各位大侠指点下,谢谢！

[chouchy]

<%
function getrecordset(filename,tablename)
dim connStr，sqlCmd
set conn=server.createobject("adodb.connection")
connStr="provider=microsoft.jet.oledb.4.0;"&"data source="&server.mappath("filename")
conn.open connStr

//至此，建立了数据库连接，下面创建redordset对象,执行sql命令查询，返回记录集
set getrecordset=conn.createobject("adodb.recordset")
sqlCmd="select * from " & tablename
getrecordset.open sqlCmd,conn,1,3
end function
%>

[moodboy1982]

你尝试看上面那个你自己写的所谓连接数据库的函数放到print.asp中，不要用include包函，这样看会不会出错？估计也会错。

[chouchy]

自己没有看明白这一句是错误的吗？
conn是connection对象，而后面的字符串是connection的ConnectionString参数。
应该把 set conn="provider ..."改成这样：
set conn.ConnectionString="provider=..."

[BAYERN]

哦
对，漏了connectionstring

我下去看看

[BAYERN]

Microsoft JET Database Engine 错误 '80004005'

找不到可安装的 ISAM。

/adofunction.asp，行 7

改了以后，怎么显示这个？

是系统的问题？我是xp

[chouchy]

是连接字符串写错了。把
connStr="provider=microsoft.jet.oledb.4.0;"&"data source="&server.mappath("filename")
中的（"filename")
去掉filename外的引号

[BAYERN]

ADODB.Connection 错误 '800a0bb9'

参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。

/adofunction.asp，行 8


除掉了！又出来这个了..

哎~我真败了，怒

[chouchy]

set objrs=getrecordset("student.mdb","学生")
改为：
set objrs=getrecordset("/student.mdb","学生")

[chouchy]

仔细看看自己写的代码：print.asp

dim objrs
set objrs=server.createObject("adodb.resordset") '将objrs定义为一个recoderset对象
set objrs=getrecordset("student.mdb","学生")

[BAYERN]

这个我改过了，没用

参数错误，到底在那啊

[ybfqlyq]

学生這個應該為SQL語句的。你試著在adofuction頁面加個tablename="select * from tablename"

[dropping]

if objrs.eof and objrs.bof then
response.write"到达数据库结尾，无法打印记录"
else
do while not objrs.eof and not objrs.bof
response.write"编号:"&objrs("编号")&"<br>"
response.write"姓名:"&objrs("姓名")&"<br>"
response.write"性别:"&objrs("性别")&"<br>"
objrs.movenext
loop
end if

[shenlanshenlan]

<!--include file="adovbs.inc"-->
第二个文件没有引入呀

[wojiaogyp]

adovbs.inc
adofunction.asp
student.mdb
print.asp

这四个再同一个目录下？

[BAYERN]

4个文件都在一个目录下

[BAYERN]

我在下去试试

[BAYERN]

上面几位的法子我都试过了，还是不行，先谢了。

Microsoft VBScript 运行时错误 错误 '800a01a8'

缺少对象: '[string: "provider=microsoft.j"]'

/adofunction.asp，行 5

显示这个，什么意思？