xmlwriter,asp的xml生成类

< %
' ///////////////////////////////调 用 实 例///////////////////////////////
'                                                            xmlWrite.asp
'                                                            powerBy yans chen
'         调用实例1:以数据集写入
'         set rs = conn.execute("select * from [option] where Sid = " & id)
'         set xw = new xmlWrite
'         xw.init()
'         xw.textColumn = "Content"
'         xw.writeWithRs(rs)
'         set xw = nothing
'
'         调用实例2:自行建字段写入
'         set xw = new xmlWrite
'         xw.init()
'         xw.add("a","1")
'         xw.add("b","2")
'         xw.text = "haha"
'         xw.feed()
'         set xw = nothing
' ////////////////////////////////////////////////////////////////////////

class xmlWrite

     private  T        ' Dictionary
     private  Text_, documentName_, childName_, textColumn_, a, i

     public   property   get  count()
        count  =  T.Count
     end property
    
     public   property   get  documentName()           ' 文档主节点名
        documentName  =  documentName_
     end property
     public   property   let  documentName(byval val)
        documentName_  =  val
     end property
     public   property   get  childName()              ' 文档子节点名
        childName  =  childName_
     end property
     public   property   let  childName(byval val)
        childName_  =  val
     end property
     public   property   get  text()
        text  =  Text_
     end property
     public   property   let  text(byval val)
        Text_  =  val
     end property
     public   property   get  textColumn()
        textColumn  =  textColumn_
     end property
     public   property   let  textColumn(byval val)
        textColumn_  =  val
     end property
    
     public   function  add(name, value)         ' 添加新值
         if  T.Exists(name)  then
            T.Item(name)  =   trim (value)
         else
            T.Add name,  trim (value)
         end   if
        add  =  noErr()
     end function
    
     public   function  getValue(name)
         if  T.Exists(name)  then
            getValue  =  T.Item(name)
         end   if
     end function

     public   function  del(name)
         if  T.Exists(name)  then
            T.Remove(name)
         end   if
        del  =  noErr()
     end function

     public   function  removeAll()
        T.RemoveAll()
        removeAll  =  noErr()
     end function
    
     public   function  feed()
        a  =  T.Keys
        w  " < "   &  childName_  &   "   "
         for  i  =   0   to  T.Count  -   1
             if  T.Item(a(i))  <>   ""   then
                w a(i)  &   " ="" "   &  server.HTMLEncode(T.Item(a(i)))  &   " ""  "
             else
                w a(i)  &   " =""""  "
             end   if
         next
        w  " > "   &  server.HTMLEncode(Text_)  &   " </ "   &  childName_  &   " > "
     end function
    
     public   function  writeWithRs(rs)      ' 使用记录集写成xml
         while   not  rs.eof
             for  i  =   0   to  rs.Fields.count  -   1
                 if   trim (rs.Fields(i).Name)  =  textColumn_  then
                    text_  =  rs.Fields(i).Value
                 else
                    add rs.Fields(i).Name,  trim (rs.Fields(i).Value)
                 end   if
             next
            feed()
            rs.movenext
         wend
     end function

     public   function  Init()
        w  " <?xml version=""1.0"" encoding=""gb2312"" ?> "
        w  " < "   &  documentName_  &   "   "
        a  =  T.Keys
         for  i  =   0   to  T.Count  -   1
             if  T.Item(a(i))  <>   ""   then
                w a(i)  &   " ="" "   &  server.HTMLEncode(T.Item(a(i)))  &   " ""  "
             else
                w a(i)  &   " =""""  "
             end   if
         next
        w  " > "
        removeAll()
     end function
     private   function  noErr()
         if  err.number  <>   0   then
            noErr  =   true
            err.Clear()
         else
            noErr  =   false
         end   if
     end function  
     private   sub  Class_Initialize     '  设置 Initialize 事件。[类的初始化]
         set  T  =  server.CreateObject( " Scripting.Dictionary " )
        Text_  =   ""
        textColumn_  =   ""
        documentName_  =   " yans "
        childName_  =   " yansChild "
     end sub
     private   sub  Class_Terminate      '  设置 Terminate 事件。 [类的结束化]
        w  " </ "   &  documentName_  &   " > "
         set  T  =   nothing
         set  Text_  =   nothing
     end sub
     private   function  w(param)
        response.Write(param)
     end function  
end  class

% >