example:
<!--#include file="XXX.inc" --> 'XXX.inc为你的inc的相对路径
<%
sql="select * from table_name"
set rs=conn.Execute(sql) ' 这里的conn就是XXX.inc中建立的Connection对象
do while not rs.EOF
for i=0 to rs.Fields.Count-1
response.Write rs(i)
next
Loop
rs.Close
set rs=nothing
conn.Close
set conn=nothing
%>
dbconn.inc
<%
option explicit
'response.buffer=true
dim conn
dim connstr
dim db
db="../news/article.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open connstr
if err.number <>0 then
err.Clear
Response.Write "数据库链接错误!"
end if
sub closedatabase
conn.close
set conn = nothing
end sub
%>
sql1 = "select * from table1"
set rs1 = server.createobject("adodb.recordset")
rs1.open sql1 ,conn,3,1
sql2 = "select * from table2"
set rs2 = server.createobject("adodb.recordset")
rs2.open sql2 ,conn,3,1
rs1.close
rs2.close
set rs1 = nothing
set rs2 = nothing
closedababase