<% '☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆ '★ ★ '☆ eWebEditor - eWebSoft在线文本编辑器 ☆ '★ ★ '☆ 版权所有: eWebSoft.com ☆ '★ ★ '☆ 程序制作: eWeb开发团队 ☆ '★ email:webmaster@webasp.net ★ '☆ QQ:589808 ☆ '★ ★ '☆ 相关网址: [产品介绍]http://www.eWebSoft.com/Product/eWebEditor/ ☆ '★ [支持论坛]http://bbs.eWebSoft.com/ ★ '☆ ☆ '★ 主页地址: http://www.eWebSoft.com/ eWebSoft团队及产品 ★ '☆ http://www.webasp.net/ WEB技术及应用资源网站 ☆ '★ http://bbs.webasp.net/ WEB技术交流论坛 ★ '★ ★ '☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆ %> <% '================================================ ' 显示解释函数，返回根据参数允许显示的格式字符串，具体调用方法可从后台管理获得 ' 输入参数： ' s_Content : 要转换的数据字符串 ' s_Filters : 要过滤掉的格式集，用逗号分隔多个 '================================================ Function eWebEditor_DeCode(s_Content, sFilters) Dim a_Filter, i, s_Result, s_Filters eWebEditor_Decode = s_Content If IsNull(s_Content) Then Exit Function If s_Content = "" Then Exit Function s_Result = s_Content s_Filters = sFilters ' 设置默认过滤 If sFilters = "" Then s_Filters = "script,object" a_Filter = Split(s_Filters, ",") For i = 0 To UBound(a_Filter) s_Result = eWebEditor_DecodeFilter(s_Result, a_Filter(i)) Next eWebEditor_DeCode = s_Result End Function %>