conn.asp

功能强大的一个b/s工作站

<%  
 dim connstr
 dim db
 db="kenatlybdatabase/kenandatabase.mdb"                   
 connstr="DBQ="+server.MapPath(db)+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};Pwd=kenannet"
 set conn=server.CreateObject("ADODB.Connection")
 conn.open connstr                                         
Sub rsclose()
    rs.close()
	set rs=nothing
End Sub
Sub connclose()
    conn.close()
	set conn=nothing
End Sub
%>