conn.asp

政府网站集成OA办公考勤新闻发布网站信息管理会员管理

<!--#INCLUDE FILE="../HXINCLUDE/datapath.ASP"-->
<%
    dim conn
    dim connstr
    dim db
    db="../"&a125db_All&""
    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
%>