conn.asp

来自「超炫电台程序开发了两个版本了」· ASP 代码 · 共 19 行

<%@LANGUAGE="VBSCRIPT"%>
<%
	'option explicit
	dim conn
	dim connstr
	dim db
	'更改数据库名字
	db="data/db1.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
%>