asp如何去除html标记
方法一 : 禁用HTML
最简单的方法是直接禁用html标签而不用移除它们. 可以使用Replace()函数. 例如:
strText = Replace(strText, "<script", "<script", 1, -1, 1)
或者直接禁用所有的html:
strText = Replace(strText, "<", "<")
这样做虽然很安全,但显得不够友好.(用户提交的文本会变得难以阅读)
方法二: 使用"<"和">"
怎样使得html标签从文本中消失呢? 我们可以去掉"<"和">"中间的所有内容
在JavaScript中这很简单:
function RemoveHTML( strText )
{
var regEx = /<[^>]*>/g;
return strText.replace(regEx, "");
}
现在回到VBScript, 对于Scripting引擎5.0或更高版本(可以通过调用ScriptEngineMajorVersion和ScriptEngineMinorVersion函数来检验版本),我们也可以使用RegExp物体:
Function RemoveHTML( strText )
Dim RegEx
Set RegEx = New RegExp
RegEx.Pattern = "<[^>]*>"
RegEx.Global = True
RemoveHTML = RegEx.Replace(strText, "")
End Function
若不用正则表达式,下面的函数可以达到同样的目的:
Function RemoveHTML( strText )
Dim nPos1
Dim nPos2
nPos1 = InStr(strText, "<")
Do While nPos1 > 0
nPos2 = InStr(nPos1 + 1, strText, ">")
If nPos2 > 0 Then
strText = Left(strText, nPos1 - 1) & Mid(strText, nPos2 + 1)
Else
Exit Do
End If
nPos1 = InStr(strText, "<")
Loop
&nbs
相关文档：
<%
Const maxPagesize=1000 '设置分页字数
Function InsertPageBreak(strText)
Dim strPagebreak,s,ss
Dim i,IsCount,c,iCount,strTemp,Temp_String,Temp_Array
strPagebreak="[hiweb_break]"
s=strText
If Len(s)<maxPagesize Then
InsertPageBreak=s
End If
s=Repl ......
一般来说编数据库类的程序主要要解决的问题无非是添加，删除，修改和查询。这类编程都非常的简单。接下来我利用一点空余时间发一个函数里面包含和添加和删除功能。实验的架构可以使用IIS.5WEB服务器ACCESS数据库。这个我其实不用说的很详细了，因为大家都应该知道的。我就直接把函数贴出来。大家只要稍� ......
在ASP中，把带有返回值的这样的一段代码叫做函数。例如通过编写一段代码计算出一个自然数是否是质数，返回给调用程序，由于调用程序需要知道那个自然数是否是质数，所以必须要返回一个值。
1，日期/时间函数
这些函数包括对“年”、“月”、“日”、“时”、“分 ......
在asp页面中，我们常常使用include命令来包含公共文件，比如说页首、页尾的部分，使用公共文件非常方便，但在HTML页面里使用include根本就不起作用。这是因为，include是VBScript的命令，因此可以在asp页面里使用。而HTML静态页面被调用的时候并不经过asp解释器，而是直接发送到用户浏览器，因此include命令就无效了。
对� ......
