在ASP删除内容HTML标记的三个函数函数
复制代码代码如下所示：==============================
功能描述：HTML标记的常规删除
未保留和用户定义
==============================
用正则式除去HTML标记（fstring）
昏暗的重
集重=新的正则表达式
re.ignorecase =真
模式
fstring =重新更换（fstring，）
设置否
描述：用正则除去HTML标记= fstring
端功能
==============================
功能描述：删除HTML标记
未保留和用户定义
==============================
功能remove_html（STR）
昏暗的ilen1，ilen2
做指导（1，STR，0
ilen1 =仪器（1，STR，<
ilen2 =仪器（1，STR，>
STR =左（STR，ilen1 - 1）中（STR，ilen2 + 1）
环
remove_html = str
端功能
==============================
功能描述：删除HTML标记
删除自定义标记，速度可能有点慢。
==============================
功能removehtml（strtext）
昏暗的使用
使用=；-一个DOCTYPE；！！；缩写；地址；程序；面积；B；基础；基本字形；_
BGSOUND；大；力；身体；BR；按钮；字幕；中心；引用；代码；_
Col；COLGROUP；评论；DD；德尔；DFN；目录；div；DL；DT；EM；嵌入；中；_
字体；形式；框架；框架；头；H1 H2 H3 H4；；；；H5；H6；人力资源；HTML；我；iframe；IMG；_
输入；插件；isindex；大骨节病；标签；层；系浮标的投弃货物；李；链接；上市；地图；帐篷；_
菜单；元；NOBR；noframes>；Noｓｃｒｉｐｔ；对象；醇；期权；P；参数；明文；_
预；Q；S；SAMP；脚本；选择；小；跨度；罢工；强；风格；子；支持；_
表；tfoot>；TD；文本；很大；日；螺纹；标题；TR；TT；U；UL；标题；；
const blocktaglist = ；程序；嵌入；框架；头；noframes>；Noｓｃｒｉｐｔ；对象；脚本；风格；
昏暗的npos1
昏暗的npos2
昏暗的npos3
昏暗的strresult
昏暗的strtagname
昏暗的bremove
昏暗的bsearchforblock
npos1 =仪器（strtext，<）
而npos1 > 0
npos2 =仪器（npos1 + 1，strtext，>）
如果npos2 > 0
strtagname =中（strtext，npos1 + 1，npos2 - npos1 - 1）
strtagname =替换（替换（strtagname，妙用，），vblf，）
npos3 =仪器（strtagname，）
如果npos3 > 0
strtagname =左（strtagname，npos3 - 1）
最后如果
如果左（strtagname，1）= /
strtagname =中（strtagname，2）
bsearchforblock = false
其他的
bsearchforblock =真
最后如果
如果仪器（1，使用，；strtagname ；
bremove =真
如果bsearchforblock然后
如果仪器（1，blocktaglist，；strtagname ；
npos2 = Len（strtext）
npos3 =仪器（npos1 + 1，strtext，< / strtagname，vbtextcompare）
如果npos3 > 0
npos3 =仪器（npos3 + 1，strtext，>）
最后如果
如果npos3 > 0
npos2 = npos3
最后如果
最后如果
最后如果
其他的
bremove = false
最后如果
如果bremove然后
strresult = strresult左（strtext，npos1 - 1）
strtext =中（strtext，npos2 + 1）
其他的
strresult = strresult左（strtext，npos1）
strtext =中（strtext，npos1 + 1）
最后如果
其他的
strresult = strresult strtext
strtext =
最后如果
npos1 =仪器（strtext，<）
环
strresult = strtext strresult
strresult =取代（strresult，CHR（9），）
strresult =取代（strresult，CHR（32），）
strresult =取代（strresult，CHR（13），）
strresult =取代（strresult，CHR（10），）
strresult =取代（strresult，vbcrlf，）
removehtml = strresult
端功能