<%
Dim Conn, ConnStr
Set Conn = Server.CreateObject("Adodb.Connection")
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(""&SysRootDir&"Database/Data_2016#Keyicms#Conn.keyicms.asp")
Conn.Open ConnStr
If Err Then
    Err.Clear
    Set Conn = Nothing
    Response.Write "数据库连接错误，请检查连接参数！"
    Response.End
End If

Sub CloseConn()
	Conn.close
	set Conn=nothing
End Sub


%>
<!--#include file="Development.asp" -->
<!--#include file="Function.Asp" -->
<!--#include file="Base.Asp" -->
