Question

求 从MS SQL 数据库中 某个表 某个字段里 字符串中提取 图片地址的 ASP 代码 越详细越好

Answer 1

<%
strtemp="这里是字符串ssss<img  alt=""sss"" src=""http://www.test.com/test.jpg"" /><img  alt=""sss"" src=""http://www.test.com/test.png"" /><img  alt=""sss"" src=""http://www.test.com/test.bmp"" /><img  alt=""sss"" src=""http://www.test.com/test.gif"" />ddddddddddssss<img src=""http://www.test.com/test2.gif""  alt=""sss"" />dddddddddd"
find_img(strtemp)
function find_img(strtemp)
dim arrtemp
dim i,url_gif,num_gif,url_jpg,num_jpg,url_png,num_png,url_other,num_other
arrtemp=split(strtemp,"<img")
if Ubound(arrtemp)<=0 then response.Write "没有检测到图片标识" : exit function
response.Write "一共检测到图片标识数量:"&Ubound(arrtemp)&"<br>"
for i=1 to Ubound(arrtemp)
 temp=cutstr(cutstr(cutstr(arrtemp(i),"right"," />"),"left","src="""),"right","""")
 ext=Ucase(right(temp,4))
 select case ext
       case ".GIF"
      url_gif =  url_gif&"|"&temp
      num_gif = num_gif + 1
    case ".JPG"
      url_jpg =  url_jpg&"|"&temp
     num_jpg = num_jpg + 1
    case ".PNG"
      url_png = url_png&"|"&temp
      num_png = num_png + 1
    case else
      url_other = url_other&"|"&temp
      num_other = num_other + 1
 end select
next
  response.Write "<font color=green>返回统计:</font><br>"
  response.Write "<hr><font color=blue>1)过滤GIF格式图片共"&num_gif&"张</font><br>"&replace(url_gif,"|","<br>")
  response.Write "<hr><font color=blue>2)过滤JPG格式图片共"&num_jpg&"张</font><br>"&replace(url_jpg,"|","<br>")
  response.Write "<hr><font color=blue>3)过滤PNG格式图片共"&num_png&"张</font><br>"&replace(url_png,"|","<br>")
  response.Write "<hr><font color=blue>4)其他格式图片(BMP格式等)共"&num_other&"张</font><br>"&replace(url_other,"|","<br>")

end function
  
function cutstr(temp,direct,str)
 if direct="right" then '剪去标识符右边的内容(包括标识符)
  cutstr = left(temp,instr(temp,str)-1)
 else '剪去标识符左边的内容(包括标识符)
  cutstr = right(temp,len(temp)-instr(temp,str)-len(str)+1)
 end if
end function

%>

这是几年前我也遇到类似问题时提问，别人的一个回答，，，测试过可以用。。。你自己稍稍修改字符串就可以了。

Answer 2

是不是内容中含有图片地址要提取?还是纯图片地址字段?

追问

我要的是 提取一张 图片 地址 来当缩略图
就在上传的 内容中 提取 第一张 图片来做 缩略图