- 打印本文 关闭窗口
- ADO数据与XML数据间的转换的类
- 作者:采集员 文章来源:来源于网络 点击数: 更新时间:2005/9/10 12:32:10
- 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 FunctionEnd Class
%> - 打印本文 关闭窗口