是不是类似这样的,例如:
<%
........
sub DBConnectionn()
Dim DB_ConnectString
DB_ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & .......
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open DB_ConnectString
end sub
...........
%>
以上function单独包含在一个文件中。
在其他文件中使用时,引用它:
<!--#include file=....." -->
<% Call DBConnectionn Set RS = Server.CreateObject("ADODB.RecordSet")
sql = "select * from ........"
RS.Open sql, Conn, 1, 1
%>
供参考。