conn.asp

来自「南鄂电子商务学校网: 学校概况、校园动态、师资力量、教学成果、师生论坛、友情链接」· 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("hbtcn@#^eswx^x00hao.asp" )
	conn.Open connstr
	
function CloseDatabase

	Conn.close
	Set conn = Nothing

End Function
%>