取字段中的指定内容
取字段中的指定内容
字段中有内容如下：
<img height= "75 " src= "/tools/loadimg.asp?FileName=200779154654641.gif " width= "250 " border= "0 " />
<img height= "75 " src= "/tools/loadimg.asp?FileName=200779154654642.gif " width= "250 " border= "0 " />
<img height= "75 " src= "/tools/loadimg.asp?FileName=200779154654643.gif " width= "250 " border= "0 " />
我想取出其中三个图片文件的文件名，
200779154654641.gif
200779154654642.gif
200779154654643.gif
怎么取。用ASP的编写。谢谢了。
[解决办法]
<%
dim str
str = " <img height= " "75 " " src= " "/tools/loadimg.asp?FileName=200779154654641.gif " " width= " "250 " " border= " "0 " " /> "
str = str& " <img height= " "75 " " src= " "/tools/loadimg.asp?FileName=200779154654642.gif " " width= " "250 " " border= " "0 " " /> "
str = str& " <img height= " "75 " " src= " "/tools/loadimg.asp?FileName=200779154654643.gif " " width= " "250 " " border= " "0 " " /> "
Dim regEx, Match, Matches ' 建立变量。
Set regEx = New RegExp ' 建立正则表达式。
regEx.Pattern = "FileName=(\d+)\.gif " ' 设置模式。
regEx.IgnoreCase = True ' 设置是否区分大小写。
regEx.Global = True ' 设置全局替换。
Set Matches = regEx.Execute(str) ' 执行搜索。
For Each Match in Matches ' 遍历 Matches 集合。
Response.Write(Replace(Match.Value, "FileName= ", " ")& " <br/> ")
Next
%>
