<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../inc/NewsConfig.asp"-->
<!--#include file="../inc/NewsFunction.asp"-->
<%	
	
		
	dim conn,connstr,DataPath
	dim tbname,SqlNowString
	
	


	db="../data/#c@o&m%.mdb"
	on error resume next
	Set conn = Server.CreateObject("ADODB.Connection")
	connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
	conn.Open connstr
	If Err Then
	err.Clear
	Set Conn = Nothing
	Response.Write "<div style='margin:100px;font-size:14px;text-align:center'>数据库连接出错，请检查Inc/Config.Asp里的数据库名称及路径是否正确。</div>"
	Response.End
	End If
	
	
	

%>