conn_counter.asp

QQ呱唧网

<%
dim conn_counter,db_counter
db_counter="../count/counter.mdb"      '访问统计数据库文件的位置

call OpenConn_Counter()

sub OpenConn_Counter()
	On Error Resume Next
	dim ConnStr
	ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db_counter)
	Set conn_counter = Server.CreateObject("ADODB.Connection")
	conn_counter.Open connstr
	If Err Then
		err.Clear
		Set conn_counter = Nothing
		Response.Write "数据库连接出错，请检查Conn_Counter.asp文件中的SQL数据库参数设置。"
		Response.End
	End If
end sub

sub CloseConn_Counter()
	On Error Resume Next
	If IsObject(conn_counter) Then
		conn_counter.close
		set conn_counter=nothing
	end if
end sub

%>