一个去掉HTML格式的ASP函数

最新推荐文章于 2021-06-10 16:11:22 发布

转载最新推荐文章于 2021-06-10 16:11:22 发布 · 1.5k 阅读

文章标签：

#html #asp #function

ASP 专栏收录该内容

5 篇文章

订阅专栏

本文介绍了一种将HTML内容转换为纯文本的方法，通过去除HTML标签并针对特定字符进行处理，确保转换后的文本清晰易读。该过程涉及多个步骤，包括截取、替换和循环检查等，最终提供了一个简洁且易于使用的函数。

<%
'Content--->用户输入的需要转换的字符串
'Number1--->没转换时切取的字符数量
'Number2--->转换后切取的字符数量
Function HtmlToStr(Content,Number1,Number2)
dim Str,Html,Num1,Num2,i
Html=trim(Content)
Num1=Number1
Num2=Number2
if Num1>0 then
 Html=left(Html,Num1)
else
 Num1=len(Html)
end if
Html=replace(Html," ","")
for i=1 to Num1
 if mid(Html,i,1)="<" then
 while (mid(Html,i,1)<>">") and (i<=Num1)
 i=i+1
 wend
else
 select case mid(Html,i,1)
 case chr(34) : Str=Str
 case chr(13) : Str=Str
 case chr(9) : Str=Str
 case chr(32) : Str=Str
 case else : Str=Str+mid(Html,i,1)
 end select
end if
next
if Num2>0 then Str=left(Str,Num2)
HtmlToStr=Str
End Function
%>