网站制作学习网ASP→正文:ASP获得代码中第一张图片地址
字体:

ASP获得代码中第一张图片地址

ASP 2007/12/28 15:57:20  点击:不统计

http://%77w%77%2E%66%6F%72%61%73%70%2E%63n网站制作学习

把pattern 又修改了下
'code要检测的代码
'leixing html 或者ubb
'nopic 代码没有图片时默认值
function toppic(code,leixing,nopic)
set regex = new regexp
regex.ignorecase = true
regex.global = true
if leixing = "html" then
regex.pattern = "<img(.*?)srcs?=s?(u0022?)([^u0022/>]+)"
else
regex.pattern = "[img]([^u005B]+)“
end if
set matches = regex.execute(code)
if regex.test(code) then
 if leixing = "html" then
 toppic = matches(0).submatches(3)
 else
 toppic = matches(0).submatches(0)
 end if
else
 toppic = nopic
end if
end function
code1 = "<img src=""1.gif"">"
pic = toppic(code1,"html","nopic.gif")
response.Write pic

或者
函数名:GetImg
‘作 用:取得文章中第一张图片
‘参 数:str ------ 文章内容
‘参 数:strpath ------ 保存图片的路径
‘==================================================
Function GetImg(str,strpath)
set objregEx = new RegExp
objregEx.IgnoreCase = true
objregEx.Global = true
zzstr=""&strpath&"(.+?)\.(jpg|gif|png|bmp)"
objregEx.Pattern = zzstr
set matches = objregEx.execute(str)
for each match in matches
retstr = retstr &"|"& Match.Value
next
if retstr<>"" then
Imglist=split(retstr,"|")
Imgone=replace(Imglist(1),strpath,"")
GetImg=Imgone
else
GetImg=""
end if
end function
%>
来源于网络,ASP获得代码中第一张图片地址


http://%77%77%77%2E%66%6F%72%61%73%70%2E%63%6E

·上一篇:ASP下实现多条件模糊查询SQL语句 >>    ·下一篇:关于RecordCount等-1的问题 >>
推荐文章
最新文章