- <%
- Response.Write(Server.HTMLEncode(FixImg("<img onclick=""if(this.width>screen.width-461) window.open('qq/20082181405371.jpg');"" alt="""" border=""0"" src=""qq/20082181405371.jpg"" />")))
- %>
- <%
- '功能:将IMG代码格式化为<img src="XXX" />格式.
- Function FixImg(sString)
- Dim sReallyDo, regEx, iReallyDo
- Dim oMatches, cMatch
- Dim tStartTime, tEndTime
- If IsNull(sString) Then
- FixImg = ""
- Exit Function
- End If
- sReallyDo = sString
- On Error Resume Next
- sReallyDo = Replace(sReallyDo, vbCr, " ")
- sReallyDo = Replace(sReallyDo, vbLf, " ")
- sReallyDo = Replace(sReallyDo, vbTab, " ")
- sReallyDo = Replace(sReallyDo, "<img ", vbCrLf & "<img ", 1, -1, 1)
- sReallyDo = Replace(sReallyDo, "/>", " />", 1, -1, 1)
- sReallyDo = ReplaceAll(sReallyDo, "= ", "=", True)
- sReallyDo = ReplaceAll(sReallyDo, "> ", ">", True)
- sReallyDo = Replace(sReallyDo, "><", ">" & vbCrLf & "<")
- sReallyDo = Trim(sReallyDo)
- On Error GoTo 0
- Set regEx = New RegExp
- regEx.IgnoreCase = True
- regEx.Global = True
- '//去除onclick,onload等脚本
- regEx.Pattern = "\s[on].+?=([\""|\'])(.*?)\1"
- sReallyDo = regEx.Replace(sReallyDo, "")
- '//将SRC不带引号的图片地址加上引号
- regEx.Pattern = "<img.*?\ssrc=([^\""\'\s][^\""\'\s>]*).*?>"
- sReallyDo = regEx.Replace(sReallyDo, "<img src=""$1"" />")
- '//正则匹配图片SRC地址
- regEx.Pattern = "<img.*?\ssrc=([\""\'])([^\""\']+?)\1.*?>"
- sReallyDo = regEx.Replace(sReallyDo, "<img src=""$2"" />")
- FixImg = sReallyDo
- End Function
- %>
- <%
- '功能:返回字符串,其中指定数目的某子字符串 全部 被替换为另一个子字符串。
- '来源:http://jorkin.reallydo.com/article.asp?id=406
- '需要Bint函数:http://jorkin.reallydo.com/article.asp?id=395
- Function ReplaceAll(sExpression, sFind, sReplaceWith, bAll)
- If IsNull(sExpression) Then ReplaceAll = "" : Exit Function
- If (StrComp(bAll, "True", 1) = 0) Or (CBool(Bint(bAll)) = True) Then
- Do While InStr( 1, sExpression, sFind, 1) > 0
- sExpression = Replace(sExpression, sFind, sReplaceWith, 1, -1, 1)
- If InStr( 1, sReplaceWith , sFind , 1) >0 Then Exit Do
- Loop
- Else
- Do While InStr(sExpression, sFind) > 0
- sExpression = Replace(sExpression, sFind, sReplaceWith)
- If InStr(sReplaceWith, sFind ) > 0 Then Exit Do
- Loop
- End If
- ReplaceAll = sExpression
- End Function
- %>
- <%
- '功能:只取数字
- '来源:http://jorkin.reallydo.com/article.asp?id=395
- Function Bint(Str)
- Str = Trim(Str)
- If Str = "" Or IsNull(Str) Or Not IsNumeric(Str) Then Str = "0"
- Bint = Round(Str, 0)
- End Function
- %>
一个asp替换函数img里面多余的代码
2019-09-29 11:02asp代码网 ASP教程
一个asp替换函数img里面多余的代码
延伸 · 阅读
- 2019-09-29asp下实现字符串的补充fill()
- 2019-09-29asp事务功能简单小应用
- 2019-09-29ASP获取网页全部图片地址并保存为数组的正则
- 2019-09-29asp下计算分页的几种方法
- 2019-09-29asp在线执行sql语句的函数
- 2019-09-28asp正则html的图片,对图自动缩放大小
精彩推荐
- ASP教程
asp 输出换行的详细说明
很多朋友对于asp的换行的实现,不是很懂,不懂什么情况下该使用什么样的代码,这里脚本之家简单的为大家说下,希望对大家能有所帮助。...
- ASP教程
asp中的ckEditor的详细配置小结
ckeditor的详细配置:在网上找了好久终于找到了!O(∩_∩)O哈哈~使用方法:1、在页面head中引入ckeditor核心文件ckeditor.js;2、在使用编辑器的地方插入HTML控件textarea,感兴趣的朋友可以参考下哈...
- ASP教程
ASP实现强制图片下载函数
最近做的一个asp项目需要强制下载图片,我在网上找了很多关于下载远程图片的ASP代码,但测试结果都不行。没办法只好自己操刀了,有什么纰漏的地方还请大家指出。...
- ASP教程
ASP常用源代码的总结(上)
本文介绍的是一些ASP程序设计中经常用到的源代码。适合初学者阅读。希望对你有帮助,一起来看吧!...
- ASP教程
asp datediff 时间相减
asp时间加减运算 和转换问题 ...
- ASP教程
JScript中遍历Request表单参数集合的方法
这篇文章主要介绍了JScript中遍历Request表单参数集合的方法,本文以遍历Request.QueryString集合为例给出了实现代码,需要的朋友可以参考下...
- ASP教程
aspJpeg图片水印有杂点的完美解决方法
这里成功的关键在于:水印图片一定要是png格式的,且在去掉背景的情况下效果也一样。...
- ASP教程
ASP创建对象的两种方法比较
今天发现一篇好文章asp创建对象的效率对比,没想到创建对象还有这种方法,解决了资源,但一般不太习惯啊,呵呵,以后注意 ...