国产毛片午夜福利,国产黄网,国产亚洲天堂,97国产精品

    • 

  • 

    • 






    
  
    
    
    
      
    
        



    
  
    
    
    
  
    

    


            		
        
    
    
    		
  
    

    

    
  
    
    




    
  
    

    


    
  
    
     
  
    

    


    
  
    
            
            慧網(wǎng)動態(tài)        
            
            常見問題        
            
            網(wǎng)絡營銷        
            
            網(wǎng)站設計        
            
            行業(yè)動態(tài)        
            
            網(wǎng)站優(yōu)化        
      
    

    


    
  
    
    ASP處理XSLT轉(zhuǎn)換XML的實現(xiàn)  
    

    


    
  
    
    發(fā)布時間：2008-05-12　　　瀏覽次數(shù)：1183462  
    

    


    
  
    
    
    
      
    ASP處理XSLT轉(zhuǎn)換XML的實現(xiàn)
    

    使用ASP處理XSLT轉(zhuǎn)換XML比較簡單，思路如下：創(chuàng)建一個XSLTemplate的對象，再創(chuàng)建一個XMLDOM對象，然后在家Xml文件和XSLT文件，使用方法transform即可，包含到類里面，具體代碼如下： 
    

    

    


    
以下是引用片段：
    Class Cls_Xml_Transform 
        Private lInput,XSLTemplate 
        Private p_Output 
        Public Property Get Output() 
            Output = p_Output 
        End Property 
        Private Property Let Output(ByVal strInfo) 
            p_Output = strInfo 
        End Property 
        Public Property Let Input(ByVal vNewValue) 
            If IsObject(vNewValue) Then Set lInput=vNewValue 
        End Property 
        Public Property Let XSLTemplatefile(ByVal vNewValue) 
            Dim StyleSheet 
            Dim vNewValue_ 
            vNewValue_ = vNewValue 
            If Not InStr(vNewValue,":\") > 0 Then 
                vNewValue  = Server.MapPath(vNewValue) 
            End If 
            Set XSLTemplate=Server.CreateObject("Msxml2.XSLTemplate") 
            Set StyleSheet=Server.CreateObject("Microsoft.FreeThreadedXMLDOM") 
            StyleSheet.load vNewValue 
            XSLTemplate.StyleSheet=StyleSheet 
        End Property 
        Public Sub Transform() 
            Dim proc 
            Set proc = XSLTemplate.createProcessor() 
            proc.input=linput 
            proc.transform() 
            Output=proc.output 
            Set proc=Nothing 
        End Sub 
    End Class
    

          使用范例：
    

    

    


    
以下是引用片段：
    Set XMLDOM = Server.CreateObject("Microsoft.FreeThreadedXMLDOM") 
    XMLDOM.async = false 
    XMLDOM.load(Server.MapPath("bi2.xml")) 
    Set o=new Cls_IO_Transform 
    o.XSLTemplatefile="bi2.xsl" 
    o.Input=XMLDOM 
    o.Transform() 
    response.write o.Output()

          這里處理的直接是XmlDom對象了，如果需要，靈活可以修改。
        
    
    
    
        
        
    
    
  
    

    


    
  
    
    
    
      
      
      立即預約