<!--#Include File="SysTem.Asp"-->
<!--#Include File="Config.Asp"-->
<!--#Include File="MelyySoft.Common.Asp"-->
<!--#Include File="MelyySoft.VerSion.Asp"-->
<!--#Include File="Conn_DbFile.Asp"-->
<%
dim conn
dim connstr
dim db
db=Installdir&dbpath&"/"&dbname
connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
on error resume next
conn.open connstr
if err then
Err.Clear
		Call CloseConn()
		Response.Write "数据库连接出错，请打开conn.asp文件检查连接字串。<br>请运行安装文件<a href='Install.asp'>Install.asp</a>"
		Response.End
end if

Function CloseConn()
	conn.close
	set conn=nothing
End Function
If Prevent_SqlIn="Yes" then
%>
<!--#Include File="../Sqlin/SqlIn.Asp"-->
<%
End If
Dim FoundErr,ErrMsg
FoundErr=False
%>