第二个文本编辑器

前台文本编辑器修改:

 <%
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)%>

第二个修改:

<%
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)%>

后台文本编辑器:

修改页面
======================  

 <%

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)%>

添加页面

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

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