1. 
            
             
        
      2. 
    
      

    

      







      
    
      
        
      
            
      網站前臺后臺的文本編輯器的調用方法
      
            
            
      2012-04-12
      
            
      前臺文本編輯器:                   
      

       
       
       
       
       
        
        
        
        
        
      


      第二個文本編輯器
      

       
      


      

      前臺文本編輯器修改:
      

       <%
      Dim htmlData
      htmlData = rs("q9")
      Function htmlspecialchars(str)
       str = Replace(str, "&", "&")
       str = Replace(str, "<", "<")
       str = Replace(str, ">", ">")
       str = Replace(str, """", """)
       htmlspecialchars = str
      End Function
      %>
      






       
        


        
      

      第二個修改:
      

      <%
      Dim htmlData1
      htmlData1 = rs("q11")
      Function htmlspecialchars(str)
       str = Replace(str, "&", "&")
       str = Replace(str, "<", "<")
       str = Replace(str, ">", ">")
       str = Replace(str, """", """)
       htmlspecialchars = str
      End Function
      %>

        
        
         
      


      后臺文本編輯器:
      

      修改頁面
      ======================  
      


       <%
      

      Dim htmlData
      htmlData = rso("content")
      

      Function htmlspecialchars(str)
       str = Replace(str, "&", "&")
       str = Replace(str, "<", "<")
       str = Replace(str, ">", ">")
       str = Replace(str, """", """)
       htmlspecialchars = str
      End Function
      %>
      


       
      

       
       
       
       
       
       
       
      

        
      

      添加頁面
      


      =================
      

       
      

       
       
       
       
       
       
       
       
      


      


      ================================================