Question

sub调用，请帮帮忙！谢谢！

我的conn.asp中是这样写的：response.buffer=true
sub dblink()
strconn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("date/body.mdb")
set conn=server.createobject("adodb.connection")
conn.open strconn
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查连接字串。"
Response.End
End If
end sub
我要怎样才能在index.asp.中调用sub打开数据库
还是不行啊大哥
2 call dblink()
3 set rs=Server.CreateObject("adodb.recordset")
4 sql="SELECT * FROM list"
5 rs.Open sql,conn,1,3
6 response.write"<div id='menu'><ul>"
7 do while not rs.eof
8 Response.Write"<li><a href=""#"">"&rs(1)&"</a></li><li class=""menudiv""><img src=""images/s1/sg-3.jpg"" height=25 width=5></li>"
9 rs.movenext
10 loop
11 rs.close
12 conn.close
13 response.write"</ul></div>"
结果：ADODB.Recordset 错误 '800a0bb9'

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

/inc/title.asp，行 5
这个结果应该是说明了数据库没有连接！我换了所有参数就是没一个有用的

Answer 1

在index.asp上的最上面加上

<!--#include file = "conn.asp"-->

之后

要打开数据库，写上

call dblink

以下为两个asp文件的内容
conn.asp：
<%
response.buffer=true
sub dblink()
On Error Resume Next
dim strconn
strconn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("date/body.mdb")
set conn=server.createobject("adodb.connection")
conn.open strconn
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查连接字串。"
Response.End
End If
end sub
%>

index.asp:

<%option explicit%>
<!--#include file = "conn.asp"-->
<%dim conn,rs,sql
call dblink()
set rs=Server.CreateObject("adodb.recordset")
sql="SELECT * FROM list"
rs.Open sql,conn,1,3

'.
'.
'.

%>

应该不会出错了吧

要是回答的内容有问题，或认为不妥，请发送百度消息给我，消息内容加上本页网址哦。。

Answer 2

修改如下(只是去掉一句而已)
sub dblink()
strconn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("date/body.mdb")
set conn=server.createobject("adodb.connection")
conn.open strconn
If Err Then
err.Clear
'Set Conn = Nothing '把这句去掉就可以了
Response.Write "数据库连接出错，请检查连接字串。"
Response.End
End If
end sub