conn.asp

来自「程序介绍： 1、内嵌式投票系统」· ASP 代码 · 共 13 行

<%
dim conn,rs,rSub,sql
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("admin/TXSite.mdb")
set rs=server.createobject("adodb.recordset")     '主程序用
set rSub=server.createobject("adodb.recordset")   '子程序用
Sub objend()
set rSub=nothing
set rs=nothing
conn.close
set conn=nothing
End Sub
%>