用户信息
帖子内容
1 楼
shadoweb
钻石会员
积分 738
注册 2014-11-27
     
asp版jtbc清除html代码函数及使用方法
sp清除html代码函数及使用方法
1.common\incfiles\inc.asp添加以下代码

function nohtml(str)     
dim re     
Set re=new RegExp     
re.IgnoreCase =true     
re.Global=True     
re.Pattern="(\<.[^\<]*\>)"     
str=re.replace(str," ")     
re.Pattern="(\<\/[^\<]*\>)"     
str=re.replace(str," ")     
nohtml=str     
set re=nothing     
end function     
2.使用方法
标题清除代码
{$=nohtml(rstvle('topic'))}
调用简介方法
<p>{$=ileft(nohtml(rstvle('content')), 550)}...</p>

本帖由 shadoweb 于 2016-09-23 17:03:55 编辑过
2016-09-23 17:03:42 影子互联承接JTBC建站,模板定制,二次开发, QQ925474725 网址www.shadoweb.cn