当前位置: 首页 > 图文教程 > 网络编程 > ASP > 自动去除字符中含有html代码的几个ASP函数

ASP
ASP系列讲座（十）ASP 内建对象
ASP系列讲座（十一）ActiveX 组件
ASP系列讲座（十二）向浏览器发送内容
ASP系列讲座（十三）向浏览器传送脚本
ASP系列讲座（十四）包含文件
ASP系列讲座（十五）使用 HTML 表格
ASP系列讲座（十六）访问数据库
ASP系列讲座（十七）调试 ASP 脚本
ASP系列讲座（十八）管理应用程序
ASP系列讲座（十九）管理会话
ASP系列讲座（二十）维护 ASP 应用程序的安全
ASP系列讲座（二十一）创建事务性脚本
ASP系列讲座（二十二）使用国际站点
ASP系列讲座（二十三）编写跨平台应用程序
利 用 ISAPI 实 现 向 数 据 库 中 添 加 记 录 （一）
利 用 ISAPI 实 现 向 数 据 库 中 添 加 记 录 （二）
利 用 ISAPI 实 现 向 数 据 库 中 添 加 记 录 （三）
利 用 ISAPI 实 现 向 数 据 库 中 添 加 记 录 （四）
利 用 ISAPI 实 现 向 数 据 库 中 添 加 记 录 （五）
利 用 ISAPI 实 现 向 数 据 库 中 添 加 记 录 （六）

No. « 154 155 156 157 »

技术文章搜索

关键字

自动去除字符中含有html代码的几个ASP函数

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-08-14   浏览: 149 ::
收藏到网摘: n/a

以下为引用的内容：
Function stripHTML(strHTML)
'Strips the HTML tags from strHTML
Dim objRegExp, strOutput
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "<.+?>"
'Replace all HTML tag matches with the empty string
strOutput = objRegExp.Replace(strHTML, "")
'Replace all < and > with < and >
strOutput = Replace(strOutput, "<", "<")
strOutput = Replace(strOutput, ">", ">")
stripHTML = strOutput 'Return the value of strOutput
Set objRegExp = Nothing
End Function

以下为引用的内容：
Public Function Replacehtml(Textstr)
Dim Str,re
Str=Textstr
Set re=new RegExp
re.IgnoreCase =True
re.Global=True
re.Pattern="<(.[^>]*)>"
Str=re.Replace(Str, "")
Set Re=Nothing
Replacehtml=Str
End Function

以下为引用的内容：
function nohtml(str)
dim re
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern="(\<.[^\<]*\>)"
str=re.replace(str," ")
re.Pattern="(\<\/[^\<]*\>)"
str=re.replace(str," ")
nohtml=str
set re=nothing
end function

以下为引用的内容：
Function stripHTML(strHTML)
'Strips the HTML tags from strHTML
Dim objRegExp, strOutput
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "<.+?>"
'Replace all HTML tag matches with the empty string
strOutput = objRegExp.Replace(strHTML, "")
'Replace all < and > with < and >
strOutput = Replace(strOutput, "<", "<")
strOutput = Replace(strOutput, ">", ">")
stripHTML = strOutput 'Return the value of strOutput
Set objRegExp = Nothing
End Function