conn.asp

来自「功能简介: 1) 首页投票调查系统 2）FLASH导航清新直观（带FLA源文件」· ASP 代码 · 共 17 行

<%
	dim startime
	dim conn
	dim connstr
	startime=timer()
	
Set conn = Server.CreateObject("ADODB.Connection")
	connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("data/youthfly.mdb" )
	conn.Open connstr
	
function CloseDatabase

	Conn.close
	Set conn = Nothing

End Function
%>