统计某一句HTML代码存在的数目并赋值给一个ASP变量

sinfield 2010-07-08 08:42:31
有什么办法在一段HTML代码中统计出“<img src="http://192.168.1.100/tag/zy_bdx.gif" />”这双引号里面的代码的存在数目并赋值给一个ASP变量吗?
...全文
86 点赞 收藏 3
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
ChinaXtHuLang 2010-07-08
[Quote=引用 1 楼 lzp4881 的回复:]

<%
Function ShowPic(str)
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "<img.+?>"
strs=trim(str)
Set Matches =objRegExp.Execute(strs)
Fo……
[/Quote]
牛人来了。我闪。
回复
暗淡亮点 2010-07-08
Function GetUrlCount(content)
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "<img src="http://192.168.1.100/tag/zy_bdx.gif" />"
strs=trim(str)
Set Matches =objRegExp.Execute(content)
var i=0
For Each Match in Matches
i=i+1
Next
ShowPic = iEnd Function
End Function
回复
lzp4881 2010-07-08
<%
Function ShowPic(str)
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "<img.+?>"
strs=trim(str)
Set Matches =objRegExp.Execute(strs)
For Each Match in Matches
RetStr = RetStr &getimgs( Match.Value )
Next
ShowPic = RetStr
End Function

Function getimgs(str)
getimgs=""
Set objRegExp1 = New Regexp
objRegExp1.IgnoreCase = True
objRegExp1.Global = True
objRegExp1.Pattern = "http://.+?"""
set mm=objRegExp1.Execute(str)
For Each Match1 in mm
getimgs=getimgs&left(Match1.Value,len(Match1.Value)-1)&"||"
next
End Function
%>

<%
str="<P align=center><IMG style=""WIDTH: 193px; HEIGHT: 175px"" height=285 src=""http://192.168.1.100/tag/zy_bdx.gif"" width=337 border=0></P><img src=""http://192.168.1.100/tag/zy_bdx.gif"" />sdfsdf<img src=""http://192.168.1.100/img/zybdx.gif"" />"
arr=split(showpic(str),"||")
n=0
for i=0 to ubound(arr)-1
if arr(i)="http://192.168.1.100/tag/zy_bdx.gif" then n=n+1
next
response.write "共有"&n&"张图片"
%>
回复
发动态
发帖子
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
社区公告
暂无公告