conn.asp

多用户个人主页系统(ASP)

<%@ language=VBScript%>
<%
starttime=timer()
dim conn   
dim connstr
	on error resume next
	connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("INC/BookDB.asp")
	Set Conn=Server.CreateObject("ADODB.Connection") 
conn.Open connstr

function closeconn()
	conn.close
	set conn=nothing
end function
%>