www.gusucode.com > QQ空间互踩联盟源码程序asp编程 > conn.asp

    <% 	option explicit
	'response.buffer = true
	dim startime
	dim conn
	dim connstr
	startime=timer()
%>
<!--#INCLUDE file="config.asp" -->
<%
	ConnectionDatabase
	Sub ConnectionDatabase
	Dim ConnStr
	ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
	'如果你的服务器采用较老版本Access驱动，请用下面连接方法
	'connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db)
	On Error Resume Next
	Set conn = Server.CreateObject("ADODB.Connection")
	conn.open ConnStr
	If Err Then
		err.Clear
		CloseDatabase
		Response.Write "网页出错，请稍后访问！"
		Response.End
	End If
	End Sub	

Sub CloseDatabase
	Conn.close
	Set conn = Nothing
End Sub

dim hx
set hx=new cls_qzonev_com
dim hxcache
set hxcache=new cls_cache
hxcache.CacheName="qzonev_com"
hxcache.Name="js"
hxcache.Reloadtime=CacheTime

Dim SqlNowString
If IsSqlDataBase = 1 Then
	SqlNowString = "GetDate()"
Else
	SqlNowString = "Now()"
End If
%>
<!-- #INCLUDE file="class.asp" -->
<SCRIPT   LANGUAGE="JavaScript">   
<!--   
if   (top.location   !=   self.location)     
{   
top.location=self.location;   
}   
//-->   
</SCRIPT>