注册 登录
编程论坛 ASP技术论坛

数据库没连上 或是 断了 中文提示 怎么写?

gesongs 发布于 2012-05-14 10:11, 269 次点击
<%
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
2 回复
#2
a23208632012-05-14 15:00
不显示是连上了吧。
#3
zp9982012-05-14 15:18
不懂,帮你顶一下。
1