www.gusucode.com > cso中国seo优化html整站源码程序 > include/conn.asp

    <%
Response.Expires = 0  
Response.ExpiresAbsolute = Now() - 1  
Response.cachecontrol = "no-cache" 
response.buffer = true
dim db,connstr,conn
db="/mdb/mdb.mdbkkjjjhhzzxaa"
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
Set conn = Server.CreateObject("ADODB.Connection")
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

set rs = server.createobject("adodb.recordset")
%>