<%
Function TestConnection(strconn)
On Error Resume Next
set conn=Server.CreateObject("ADODB.Connection")
conn.ConnectionTimeout=10'这里设定连接超时为10秒
conn.Open strconn
If conn.Errors.Count = 0 Then
TestConnection="0"'链接成功
conn.close
Else
TestConnection ="1"
End If
set conn=nothing
End Function


 Dim Conn
 Dim ConnStr
 Set Conn = Server.CreateObject("ADODB.Connection")
 ConnStr = "Provider=OraOLEDB.Oracle.1;Password=56520;Persist Security Info=True;User ID=label;Data Source=MESTEST"
 Conn.Open ConnStr
if TestConnection(ConnStr)=1 then
response.write("数据库连接错误")
response.End()
end if

%>
上述语句 数据 通的情况下 没问题
但是 我稍作 改动 它 就不 中文提示  请指教（label 该成 labcl）
希望实现的功能是 数据库 连不上  就中文 提示
修改如下：
 Dim Conn
 Dim ConnStr
 Set Conn = Server.CreateObject("ADODB.Connection")
 ConnStr = "Provider=OraOLEDB.Oracle.1;Password=56520;Persist Security Info=True;User ID=labcl;Data Source=MESTEST"
 Conn.Open ConnStr
if TestConnection(ConnStr)=1 then
response.write("数据库连接错误")
response.End()
end if

不显示是连上了吧。

不懂，帮你顶一下。