/// <summary> /// 去除HTML标记 /// </summary> /// <param name="strHtml">包括HTML的源码 </param> /// <returns>已经去除后的文字</returns> public static string StripHTML(string strHtml) { string [] aryReg ={ @"<script[^>]*?>.*?</script>", @"<(\/\s*)?!?((\w+:)?\w+)(\w+(\s*=?\s*(([""])(\\[""tbnr]|[^\7])*?\7|\w+)|.{0})|\s)*?(\/\s*)?>", @"([\r\n])[\s]+", @"&(qu...
过滤超级链接 代码如下:Function RegRemoveHref(HTMLstr) Set ra = New RegExp ra.IgnoreCase = True ra.Global = True ra.Pattern = "<A[^>]+>(.+?)<\/A>" RegRemoveHref = ra.replace(HTMLstr,"$1") END Function 过滤所有HTML代码 代码如下:Function RemoveHTML(strHTML) Dim objRegExp, Match, Matches Set objRegExp = New Regexp objRegExp.IgnoreCase = True objRegExp.Global = True '取闭合的<> objRegExp.Pattern = "<...
存成.asp文件，执行，你用ASPHTTP抓内容的时候用这个很爽，当然自己要改进一下了<%Option ExplicitFunction 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 al...
这个函数是必需要的，很多黑客来捣乱，黑掉数据库，会注入大量的病毒js，在存储和展示文本数据的时候，使用此函数过滤一下，可避免不少麻烦 clearhtml代码 清除HTML代码 function clearhtml(content)content=replacehtml("&#[^>]*;","",content)content=replacehtml("</?marquee[^>]*>","",content)content=replacehtml("</?object[^>]*>","",content)content=replacehtml("</?param[^>]*>","",content)content=replacehtml("</?em...
下面这段代码，不会替换ld<sad中间的<，所以内容仍然是正常的 代码如下:<% 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," ") str=replace(str," ","") str=replace(str," ","") nohtml=str set re=nothing end function str="<title>sadjksjdl脚本之家欢迎你sajdljsald<sadsadsad<br...
代码如下:Function CutStrX(ByVal Str,ByVal StrLen) Dim l,t,c,i,r 过滤全部HTML标记 Set r=New RegExp r.Global=True r.MultiLine=True r.Pattern="(</?[A-Za-z][A-Za-z0-9]*[^>]*>)" str=r.Replace(str," ") Set r=Nothing l=Len(str) t=0 For i=1 To l c=AscW(Mid(str,i,1)) If c<0 Or c>255 Then t=t+2 Else t=t+1 IF t>=StrLen Then CutStrX=Left(Str,i)&"..." Exit For Else CutStrX=Str End If Next End Function
代码如下:'============================== '格式化HTML，SDCMS加强版 '============================== Function Nohtml(ByVal t0) IF Len(t0)=0 Or IsNull(t0) Then Nohtml="" Exit Function End IF Dim Regs,Matches,Match Set Regs=New Regexp Regs.Ignorecase=True Regs.Global=True '过滤掉JS,Iframe Regs.pattern ="<script.+?/script>" t0=Regs.Replace(t0,"") Regs.pattern ="<iframe.+?/iframe>" t0=Regs.Replace(t0,"")...
这最近在PJ的function库里看到的这个函数，感觉思路差了点，不过相对比较完美，只是闭合标签时的顺序问题，呵呵 修改一下数组arrTags里的各元素内容，可以达到闭合任何标签的功能。 在此，我给增加了一些注释，方便大家一起学习学习 代码如下:Function closeUBB(strContent) ************************************* 自动闭合UBB ************************************* Dim arrTags, i, OpenPos, ClosePos, re, strMatchs, j, Mat...
代码如下:<% '/* 函数名称：Zxj_ReplaceHtml ClearHtml '/* 函数语言：VBScript Language '/* 作 用：清除文件HTML格式函数 '/* 传递参数：Content (注：需要进行清除的内容) '/* 函数作者：张晓军(古城童话) QQ:382511147 '/* 函数说明：正则匹配(正则表达式)模式进行数据匹配替换 Function ClearHtml(Content) Content=Zxj_ReplaceHtml("&#[^>]*;", "", Content) Content=Zxj_ReplaceHtml("</?marquee[^>]*>", "", Content)...
代码如下:Function htmll(mulu,htmlmulu,FileName,filefrom,htmla,htmlb,htmlc,htmld) if mulu="" then mulu="/" if htmlmulu="" then htmlmulu="/" mulu=replace(SysRootDir&mulu, "//", "/") htmlmulu=replace(SysRootDir&htmlmulu, "//", "/") FilePath=Server.MapPath(mulu)&"\"&FileName Do_Url="http://" Do_Url=Do_Url&Request.ServerVariables("server_name")&htmlmulu&filefrom Do_Url=Do_Url&"?"&htmla&htmlb&"&"&htmlc&...
Function closeUBB(strContent) '************************************* '自动闭合UBB '************************************* Dim arrTags, i, OpenPos, ClosePos, re, strMatchs, j, Match Set re = New RegExp '申明re对象 re.IgnoreCase = True '设置是否区分字符大小写 re.Global = True '设置全局可用性 arrTags = Array("code", "quote", "list", "color", "align", "font", "size", "b", "i", "u", "html") '建立数组，存...
'去掉html中的table代码 Function OutTable(str) dim a,re set re=new RegExp re.pattern="\<[^>]+()\>" re.global=true a=str OutTable=re.replace(a,"") End Function
函数名:getHTMLContent参数:NO-->要取得的字符数, txtContent-->要处理的字符串 功能: 从字符串里截取N个带HTML的字符,现在的实现方法还不完善,过程是:从字符串里找各种控件的开始,然后依些分开,放到数组里,然后一个一个数组的加上来看看字符是否大于给定的字符如果是,那么,返回这个数组. 作者:柳永法 时间:2007-6-1 20:03 :)Function getHTMLContent(NO, txtContent) If Len(txtContent)<= NO Then getHTMLContent = txtContent ...
'================================================== '函数名：ScriptHtml '作 用：过滤html标记 '参 数：ConStr ------ 要过滤的字符串 '================================================== Function ScriptHtml(Byval ConStr,TagName,FType) Dim Re Set Re=new RegExp Re.IgnoreCase =true Re.Global=True Select Case FType Case 1 Re.Pattern="<" & TagName & "([^>])*>" ConStr=...
'================================================== '函数名：FpHtmlEnCode '作 用：标题过滤 '参 数：fString ------字符串 '================================================== Function FpHtmlEnCode(fString) If IsNull(fString)=False or fString<>"" or fString<>"$False$" Then fString=nohtml(fString) fString=FilterJS(fString) fString = Replace(fString," "," ") fString = Re...