34,594
社区成员
发帖
与我相关
我的任务
分享
'连接数据库
Public Function GetConnection() As ADODB.Connection
Dim con As ADODB.Connection 'ADO连接
Set con = New ADODB.Connection
con.ConnectionString = "Provider=SQLOLEDB;Server=lws-db;Initial Catalog=PL2010_back;User Id=pl;PASSWORD=pluser;timeout= 0"
Set GetConnection = con
End Function
waitfor delay '00:00:31'--等待31秒
waitfor delay '00:00:30'--等待30秒
Set Conn = Server.CreateObject("ADODB.Connection")
DSNtest="DRIVER={SQL Server};SERVER=ServerName;UID=USER;PWD=password;DATABASE=mydatabase"
Conn. Properties("Connect Timeout") = 15 '以秒为单位
Conn.open DSNtest
--手动设置查询超时,可以使用以下语句:
sp_configure 'show advanced options', 1
GO
RECONFIGURE
GO
sp_configure 'query wait', 2147483647
GO
RECONFIGURE
GO
timeout =60