<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Response.buffer = True
Dim St
Dim Conn
Dim ConnStr
Dim Db_Source	'數(shù)據(jù)庫(kù)連接地址
Dim Db_UID		'用戶名
Dim Db_Pwd		'用戶密碼
Dim Db_Name		'數(shù)據(jù)庫(kù)名稱
St = Timer()

	Db_Source = "211.90.225.62" 
	Db_Uid = "pms"  				
	Db_Pwd = "pms" 			
	Db_Name = "repeatertest"

ConnStr = "provider=sqloledb;data source="&Db_Source&";uid="&Db_Uid&";pwd="&Db_Pwd&";database="&Db_Name&""

On Error Resume Next

Set Conn=Server.CreateObject("Adodb.Connection")
	Conn.Open ConnStr

		If Err.Number <> "0" Then
			err.Clear
			Set Conn = Nothing
			Response.Write "系統(tǒng)維護(hù)中，請(qǐng)稍候訪問。"
			Response.End
		End If
		'Response.Write("OK!")
Function Rsclose()
	Rs.close
	Set Rs = Nothing
End Function

Function Connclose()
	Conn.Close
	Set Conn = Nothing
End Function
%>