counter_conn.asp

依蓝旅游网站管理系统Elan2008.SP2

<%
Dim StrConnection, Conn

'数据库参数设置
Const SqlUsername = "EL_UserName"          'SQL数据库用户名
Const SqlPassword = "EL_Password"          'SQL数据库用户密码
Const SqlDatabaseName = "ELDatabase2008"   'SQL数据库名
Const SqlLocalName = "127.0.0.1"           'SQL主机IP地址（本地可用“127.0.0.1”或“(local)”，非本机请用真实IP）

StrConnection = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"

Sub OpenConnection()
   On Error Resume Next
   Set Conn = Server.CreateObject("ADODB.Connection")
   Conn.Open StrConnection
   If Err Then
      Err.Clear
	  Set Conn=Nothing	  
      Response.Write " 网站流量统计数据库连接出错，请检查Count/Counter_Conn.asp文件中的数据库参数设置。"
      Response.End()
   End If
End Sub

Sub CloseConn()
  On Error Resume Next
  If IsObject(Conn) Then
     Conn.close()
	 Set Conn = Nothing
  End If
End Sub
%>