去除内容中的html

2016-02-19 13:59 12 1 收藏

今天图老师小编要跟大家分享去除内容中的html,精心挑选的过程简单易学,喜欢的朋友一起来学习吧!

【 tulaoshi.com - Web开发 】

%
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


%

form method="post" id=form1 name=form1
bEnter an HTML String:/bbr
textarea name="txtHTML" cols="50" rows="8" wrap="virtual"%=Request("txtHTML")%/textarea
p
input type="submit" value="Strip HTML Tags!" id=submit1 name=submit1
/form

% if Len(Request("txtHTML")) 0 then %
phrp
buView of string iwith no/i HTML stripping:/u/bbr
xmp
%=Request("txtHTML")%
/xmpp
buView of string iwith/i HTML stripping:/u/bbr
pre
%=StripHTML(Request("txtHTML"))%
/pre
% End If %

来源:https://www.tulaoshi.com/n/20160219/1605899.html

延伸阅读
标签: Web开发
 if语句的代码的语法非常简单,就是一个 if 判断语句来判断浏览器的类型和版本,使用类似 !--[if lte IE 6] 和 ![endif]-- 语法结构包含起来,代表如果浏览器是 IE 并且版本号低于或等于 6.0 则进行提示。类似的语法还有: !--[if IE] 这样使用IE浏览器(全部版本)的人都看得到。 ![endif]-- !--[if IE 6] 这样IE 6.0版本会看得到,只...
meta是用来在HTML文档中模拟HTTP协议的响应头报文。meta 标签用于网页的与中,meta 标签的用处很多。meta 的属性有两种:name和http-equiv。name属性主要用于描述网页,对应于content(网页内容),以便于搜索引擎机器人查找、分类(目前几乎所有的搜索引擎都使用网上机器人自动查找meta值来给网页分类)。这其中最重要的是description(站点在...
标签: ASP
  <% Function GetPage(url) dim Retrieval Set Retrieval = CreateObject("Microsoft.XMLHTTP") With Retrieval .Open "Get", url, False ', "", "" .Send GetPage = BytesToBstr(.ResponseBody) End With Set Retrieval = Nothing End Function Function BytesToBstr(body) dim objstream set objstream = Server.CreateObj...
标签: Web开发
META标签是HTML语言head区的一个辅助性标签,它用来描述一个HTML网页文档的属性,例如作者、日期和时间、网页描述、关键词、页面刷新等。它有两个属性,分别是HTTP标题信息(HTTP-EQUIV)和页面描述信息(NAME)。不同的属性又有不同的参数值,这些不同的参数值就实现了不同的网页功能。 我们在对网站进行搜索引擎优化(SEO)的时候,通常...
标签: Web开发
script language=vbscript Function bytes2BSTR(vIn)     strReturn = ""     For i = 1 To LenB(vIn)         ThisCharCode = AscB(MidB(vIn,i,1))        ...

经验教程

364

收藏

31
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部