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

[sinfield]

有什么办法在一段HTML代码中统计出“<img src="http://192.168.1.100/tag/zy_bdx.gif" />”这双引号里面的代码的存在数目并赋值给一个ASP变量吗？

[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)
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&"张图片"
%>

[暗淡亮点]

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

[ChinaXtHuLang]

[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]
牛人来了。我闪。