<!--#include file="Inc/function.asp"-->
<%
Response.ExpiresAbsolute =Now() - 1
Response.Expires=0
Response.CacheControl="no-cache" 
Response.Charset = "utf-8" 
dim db,conn,connstr
db="/xydata/xycms.mdb"
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 "数据库连接出错,请检查连接字串."
	Response.End
End If
%>
