最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
另外一个功能更强大的函数，也是用正则表达式写的，不过加了一些东西
时间：2022-06-30 10:55:09 编辑：袖梨 来源：一聚教程网
<%
Option Explicit
Function stripHTML(strtext)
dim arysplit,i,j, strOutput
arysplit=split(strtext,"<")
if len(arysplit(0))>0 then j=1 else j=0
for i=j to ubound(arysplit)
if instr(arysplit(i),">") then
arysplit(i)=mid(arysplit(i),instr(arysplit(i),">")+1)
else
arysplit(i)="<" & arysplit(i)
end if
next
strOutput = join(arysplit, "")
strOutput = mid(strOutput, 2-j)
strOutput = replace(strOutput,">",">")
strOutput = replace(strOutput,"<","<")
stripHTML = strOutput
End Function
%>
<% if Len(Request("txtHTML")) > 0 then %>
<br /> <%=Request("txtHTML")%><br />
<% End If %>
Option Explicit
Function stripHTML(strtext)
dim arysplit,i,j, strOutput
arysplit=split(strtext,"<")
if len(arysplit(0))>0 then j=1 else j=0
for i=j to ubound(arysplit)
if instr(arysplit(i),">") then
arysplit(i)=mid(arysplit(i),instr(arysplit(i),">")+1)
else
arysplit(i)="<" & arysplit(i)
end if
next
strOutput = join(arysplit, "")
strOutput = mid(strOutput, 2-j)
strOutput = replace(strOutput,">",">")
strOutput = replace(strOutput,"<","<")
stripHTML = strOutput
End Function
%>
<% if Len(Request("txtHTML")) > 0 then %>
View of string with no HTML stripping:
View of string with HTML stripping:
<%=StripHTML(Request("txtHTML"))%>
<% End If %>
相关文章
- 啵乐腐漫app官方正版下载-啵乐漫画2026在线官网入口 02-06
- 微信文件传输助手网页版-微信文件传输助手网页版直达 02-06
- 啵乐腐漫app官方正版下载-啵乐漫画官网在线地址2026 02-06
- 雨课堂在线登录-雨课堂网页版学习入口 02-06
- 羞羞漫画-韩漫免费在线畅读 02-06
- 易漫app官网入口地址-全免费易漫画app网页版下载入口地址 02-06