ASP+XML实例演练编程代码第1/3页(4)

　　　　FormatXml = "＜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 
　　FormatXml = "＜span class=""alert""＞装载XML文件错误！＜/span＞" 
　End If 
　Set objXsl = Nothing 
　Set objXml = Nothing 
End Function