第二個(gè)文本編輯器

前臺(tái)文本編輯器修改:

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

 
  


  
<%=htmlspecialchars(htmlData)%>

第二個(gè)修改:

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

  
  
   
<%=htmlspecialchars(htmlData1)%>

后臺(tái)文本編輯器:

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

 <%

Dim htmlData
htmlData = rso("content")

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

  <%=htmlspecialchars(htmlData)%>

添加頁面

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

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