conn.asp

来自「带OA办公的动态源码网站」· ASP 代码 · 共 15 行

<!--#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
%>