<%@LANGUAGE="JAVASCRIPT" CODEPAGE="936"%>
签定项目工程—北京雷石科技有限公司
<%
dim conn
dim connstr
connstr="Driver={SQL Server};Server=(local);UID=MaxtoneDB;PWD=MaxtoneDB2007;Database=MaxtoneDB"
'connstr="Driver={SQL Server};Server=211.147.251.104;UID=TianHuiUser;PWD=tianhui2006;Database=TianhuiDB"
If connstr<>"" Then
on error resume next
set conn = Server.CreateObject("ADODB.Connection")
'连接超时(秒,0为无穷大)
'conn.connectiontimeout=0
conn.Open connstr
if err then
err.Clear
Set conn = Nothing
Response.Write "插件数据库连接出错，请检查连接字串。"'注释，需要把这几个字翻译成英文。
Response.End
end if
End If
'函数功能：错误处理，根据不同的错误代码信息处理不同的出错信息
'参数说明：错误代码（errnum）,打开数据库连接代码（sqlLink）
'使用范例：dealwitherror(0,conn),dealwitherror(1,conn1)
'范例说明：处理错误信息，显示友好出错提示。
'编写日期：2005/06/02
'程序编写：岑恩武
'---------------------------------------------------------
Function dealwitherror(ByVal errNum,ByVal sqlLink)
IF ERR.NUMBER<>0 THEN
RESPONSE.CLEAR
SELECT CASE errNum
CASE 0
RESPONSE.WRITE "
应用程序错误，请联系管理员！
"
CASE ELSE '一般错误
IF ISOBJECT(sqlLink) THEN
IF sqlLink.ERRORS.COUNT>0 THEN
RESPONSE.WRITE "数据库连接失败错误： "
FOR intLOOP = 0 TO sqlLink.ERRORS.COUNT-1
RESPONSE.WRITE "错误代码"&intLoop&":"&sqlLink.ERRORS(intLOOP).number&" "
RESPONSE.WRITE "错误描述"&intLoop&":"&sqlLink.ERRORS(intLOOP).description&" "
RESPONSE.WRITE "错误来源"&intLoop&":"&sqlLink.ERRORS(intLOOP).Source&" "
RESPONSE.WRITE "本地错误信息"&intLoop&":"&sqlLink.ERRORS(intLOOP).NativeError&" "
NEXT
END IF
END IF
IF ERR.NUMBER<>0 THEN
RESPONSE.WRITE "页面错误： "
RESPONSE.WRITE "错误代码"&intLoop&":"&err.number&" "
RESPONSE.WRITE "错误描述"&intLoop&":"&err.description&" "
RESPONSE.WRITE "错误来源"&intLoop&":"&err.Source&" "
RESPONSE.WRITE "错误行代码"&intLoop&":"&err.Line&" "
END IF
END SELECT
END IF
End Function
%>
粤ICP备06111184号