nErrCode_ReadData
   sXSLStr = "读取数据库数据发生错误！ " & "<BR>"
   sXSLStr = sXSLStr & " 请检查 " & " "
   sXSLStr = sXSLStr & "1.数据库是否已连接 " & " "
   sXSLStr = sXSLStr & "2.语句是否正确 "

  Case m_nErrCode_WriteData
   sXSLStr = "写入数据库数据发生错误！ " & "<BR>"
   sXSLStr = sXSLStr & " 请检查 " & " "
   sXSLStr = sXSLStr & "1.数据库是否已连接 " & " "
   sXSLStr = sXSLStr & "2.SQL语句是否正确 " & "<BR>"
   sXSLStr = sXSLStr & "SQL语句 " & "<BR><BR>"
   sXSLStr = sXSLStr & "" & m_sImportSQL
  
  Case m_nErrCode_Save
   sXSLStr = "不能保存XML文档，请检查是否对该目录或文件有' 写入权限 ' ！"

  Case m_nErrCode_EnsFile
   sXSLStr = "不能读取XM数据，XML文件不存在 ' ！"
   sXSLStr = sXSLStr & "文件：" & m_sXMLFile
  

  Case m_nErrCode_ErrFile
   sXSLStr = "不能读取XM数据，XML文件格式错误 ' ！"
   sXSLStr = sXSLStr & "文件：" & m_sXMLFile
 
  Case Else
   sXSLStr = "未知错误 ！"

 End Select
 

 GetErrExegesis = "<BR>" & sXSLStr & "<BR>"
 
End Function

End Class
%>

上一页  [1] [2] [3]