一个去掉HTML格式的ASP函数

转载 2006年06月12日 16:44:00

<%
'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,"&nbsp;","")
  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
%>

 

相关文章推荐

一个能生成动态HTML格式的PHP库

  • 2001年04月08日 00:00
  • 26B
  • 下载

ASP.NET时间函数及其格式转换

在SQL中DateTime为8位长度日期的指定形式为2003-12-31 ////获取星期·············································· publi...

linux_c语言函数HTML格式

  • 2012年02月20日 12:54
  • 75KB
  • 下载

新编WIN32 API函数大全HTML格式

  • 2010年09月06日 17:07
  • 662KB
  • 下载

asp.net应用程序html化的一个想法

====================================================== 注:本文源代码点此下载 =============================...

asp.net函数 WORD格式

  • 2008年12月15日 14:37
  • 28KB
  • 下载

一个关于asp.net的常用函数表

  • 2009年04月08日 13:06
  • 31KB
  • 下载

一个显示日历的页面代码(后缀格式为html)

摘自百度的JavaScript+HTML日历 - www.6a8a.com             body,td,.p1,.p2,.i{font-family:arial} ...

asp.net 去除HTML的标签的一个方法

  • 2011年06月13日 15:43
  • 128KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:一个去掉HTML格式的ASP函数
举报原因:
原因补充:

(最多只允许输入30个字)