将SAX加入我们的ASP应用中(1)

[ 作者: hydnoahark   添加时间: 2001-7-25 20:10:21 ]

在处理大型的xml文档的时候，在服务器端直接使用xml dom的时候速度是比较慢的，当我第一次接触到sax的时候，我意识
到我们应该在服务器端将dom和sax结合起来以提高我们程序的效率。我们在asp中最常使用的就是使用com来完成这个工作
（也许你有更好的方法）。

废话少说，还是直接进入实际的代码部分了（下面只是包含了最基本的代码而已）。

首先我们创建一个dll来封装sax的功能好了。
测试环境：win2k prof.+msxml3.0 sp1+vb6
要使用sax我们必须引用（reference）microsoft xml 3.0（我的机器安装的是msxml3.0 sp1）

工程名：saxtesting

类名：clssaxtest
方法：public function myxmlparser(xml文件物理路径) as domdocument
代码：
option explicit

public function myxmlparser(byval strxmlfilepath as variant) as domdocument
   dim reader as new saxxmlreader
   dim contenthandler as new contenthandlerimpl
   dim errorhandler as new errorhandlerimpl
  
  
   set reader.contenthandler = contenthandler
   set reader.errorhandler = errorhandler
   on error goto errorhandle
   dim xmlfile as string
   xmlfile = strxmlfilepath
   reader.parseurl (xmlfile)
  
   dim xmldoc as msxml2.domdocument
   set xmldoc = createobject("msxml2.domdocument")
   xmldoc.loadxml strxml
   set myxmlparser = xmldoc
   set xmldoc = nothing
   exit function
  
errorhandle:
   err.raise 9999, "my xml parser", err.number & " : " & err.description

end function

类名:modpublic
代码：
option explicit

global strxml as string

类名：contenthandlerimpl
代码：
option explicit

implements ivbsaxcontenthandler

private sub ivbsaxcontenthandler_startelement(strnamespaceuri as string, strlocalname as string,

strqname as string, byval attributes as msxml2.ivbsaxattributes)
  
   dim i as integer
  
   intlocker = intlocker + 1
   if intlocker > 1 then
      
   end if
   strxml = strxml & "<" & strlocalname
 
   for i = 0 to (attributes.length - 1)
       strxml = strxml & " " & attributes.getlocalname(i) & "=""" & attributes.getvalue(i) &

""""
   next

   strxml = strxml & ">"
  
   if strlocalname = "qu" then
       err.raise vbobjecterror + 1, "contenthandler.startelement", "found element <qu>"
   end if

end sub

private sub ivbsaxcontenthandler_endelement(strnamespaceuri as string, strlocalname as string,