www.gusucode.com > QQ空间互踩整站源码asp网站源码程序 > QQ空间互踩整站源码asp网站源码程序/conn.asp

    <%@ LANGUAGE="VBSCRIPT" CODEPAGE="936" %> 
<% 	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_cutelink
dim hxcache
set hxcache=new cls_cache
hxcache.CacheName="cutelink"
hxcache.Name="js"
hxcache.Reloadtime=CacheTime

Dim SqlNowString
If IsSqlDataBase = 1 Then
	SqlNowString = "GetDate()"
Else
	SqlNowString = "Now()"
End If
%>
<!--#INCLUDE file="class.asp" -->