conn1.asp

单片机控制cdma模块发短信

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Response.buffer = True
Dim St
Dim Conn
Dim ConnStr
Dim Db_Source	'数据库连接地址
Dim Db_UID		'用户名
Dim Db_Pwd		'用户密码
Dim Db_Name		'数据库名称
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 "系统维护中，请稍候访问。"
			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
%>