ASP连接数据库超时时怎么让它弹出一个警告窗

[wlszl]

也就是说怎么样判断ASP连接数据库是否超时？？？

[hrbwzp2]

<%

function opendb(DBPath,sessionname,dbsort)
dim conn

Set conn=Server.CreateObject("ADODB.Connection")


conn.Open("Provider=SQLOLEDB.1;Password=;User ID=sa;Initial Catalog=hawk_office;Data Source=server")

set session(sessionname)=conn

set opendb=session(sessionname)
end function
if session(sessionname)="" then
response.write "<script LANGUAGE='javascript'>alert('数据库链接超时！');history.go(-1);</script>"
end if
%>

[wlszl]

那么数据库连上后读取数据超时又该怎么判断呢？

[wlszl]

那么数据库连接上后读取数据超时该怎么判断？

[wlszl]

那么数据库连接上后读取数据超时该怎么判断？

[friendlyFour]

优化一下SQL语句好了，不行就用存储过程。这样就不应该再超时了。

[wlszl]

TO friendlyFour(web开发四人组) ：

我要达到的目的是当用户打开我的页面，如果服务器不可用（或忙）或数据库关闭或因为其他原因导致页面读取不到数据时则弹出一警告窗。

[jlh2]

On Error Resume Next
Dim sql 'SQL语句
Dim rs 'RecordSet记录集
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.ActiveConnection = conn
rs.CurSorType = 1
rs.LockType = 1
sql = "select * From [table]"
rs.Source = sql
rs.Open
IF err.num > 0 Then
response.write "<script language=javascript>alert('连接数据库操时');location.href=main.asp;</script>"
End IF

第一次发信息，没测试过，不好意思哈，不过你的问题使用错误检测可以实现，但是，建议还是优化SQL语句或使用存储过程，毕竟人家要看结果而不是错误提示：）

[wlszl]

谢谢 jlh2(兰色忧郁) ，可我用<% @Language="JavaScript" %>的该怎么写啊？