关于ASP的数据采集程序在IIS6.0里测试
本人有一个像数据采集的ASP程序,做好放在自己电脑(FAT32)的IIS6.0里测试正常,但放到其它的服务器(NTFS)不能正常显示,他那台服务器和我的也是win2003里的IIS6.0,试用了很多什么权限设置的都不行。测试的错误提示是:
Error Code: -2146697209
Error Reason: 系统错误: -2146697209。
Error Line: 0装载XML文件错误!
数据采集程序像这样的
Function LeatherHRXml(strXmlFile, strXslFile)
Dim objXml, objXsl
strXslFile = Server.MapPath(strXslFile)
Set objXml = Server.CreateObject("MSXML2.DOMDocument")
Set objXsl = Server.CreateObject("MSXML2.DOMDocument")
objXML.Async = False '设定是否要异步传输数据
If objXml.Load(strXmlFile) Then '读取
objXsl.Async = False
objXsl.ValidateonParse = False
If objXsl.Load(strXslFile) Then
On Error Resume Next ' 捕获transformNode方法的错误
LeatherHRXml = objXml.transformNode(objXsl)
If objXsl.parseError.errorCode <> 0 Then
Response.Write "<br><hr>"
Response.Write "Error Code: " & objXsl.parseError.errorCode
Response.Write "<br>Error Reason: " & objXsl.parseError.reason
Response.Write "<br>Error Line: " & objXsl.parseError.line
LeatherHRXml = "<span class=""alert"">格式化XML文件错误!!</span>"
End If
Else
Response.Write "<br><hr>"
Response.Write "Error Code: " & objXsl.parseError.errorCode
Response.Write "<br>Error Reason: " & objXsl.parseError.reason
Response.Write "<br>Error Line: " & objXsl.parseError.line
FormatXml = "<span class=""alert"">装载XSL文件错误!</span>"
End If
Else
Response.Write "<br><hr>"
Response.Write "Error Code: " & objXml.parseError.errorCode
Response.Write "<br>Error Reason: " & objXml.parseError.reason
Response.Write "<br>Error Line: " & objXml.parseError.line
LeatherHRXml = "<span class=""alert"">装载XML文件错误!</span>"
End If
Set objXsl = Nothing
Set objXml = Nothing
End Function
就是用这个,奇怪的是我找了一台XP系统的IIS5.1,在所有任务---权限向导---从模板选择新的安全性设置里可以设置成功,测试正常显示我所要的数据,我觉得程序是没有问题是,就是不知IIS6.0怎样去设置,请高手指点下,谢谢