conn.asp

来自「汕头育新学校学籍与成绩管理平台是集学籍管理与成绩管理于一体的网络互动平台。功能强」· ASP 代码 · 共 19 行

<%'Option Explicit
On Error Resume Next
Dim TimeStart
TimeStart=Timer()
     
	Dim conn
	Dim connstr
	Dim db
	db="index2.mdb"
	Set conn = Server.CreateObject("ADODB.Connection")
	connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
	conn.Open connstr

function CloseDatabase
	Conn.close
	Set conn = Nothing
End Function
%>