Asp获取字符串中的图片地址
'===========================================================
'获取字符串中的本地图片地址
'Typ 1 所有图片;2本地图片;3本地图片
'===========================================================
Function GetLocalPic_Url(str,Typ)
Dim Pic_Url,Temp_Url
do while ContentInnerPicTF(str,"TF")
Temp_Url=ContentInnerPicTF(str,"PicUrl")
str=Replace(str,Temp_Url,"")
Select Case Typ
Case 1
Pic_Url=Pic_Url&"|"&Temp_Url
Case 2
If instr(Temp_Url,"http://")=0 then Pic_Url=Pic_Url&"|"&Temp_Url
Case 3
If instr(Temp_Url,"http://")<>0 then Pic_Url=Pic_Url&"|"&Temp_Url
End Select
If left(trim(Pic_Url),1)="|" then Pic_Url=right(Pic_Url,len(Pic_Url)-1)
loop
GetLocalPic_Url=Pic_Url
End Function
'获取字符串中的本地图片地址
'Typ 1 所有图片;2本地图片;3本地图片
'===========================================================
Function GetLocalPic_Url(str,Typ)
Dim Pic_Url,Temp_Url
do while ContentInnerPicTF(str,"TF")
Temp_Url=ContentInnerPicTF(str,"PicUrl")
str=Replace(str,Temp_Url,"")
Select Case Typ
Case 1
Pic_Url=Pic_Url&"|"&Temp_Url
Case 2
If instr(Temp_Url,"http://")=0 then Pic_Url=Pic_Url&"|"&Temp_Url
Case 3
If instr(Temp_Url,"http://")<>0 then Pic_Url=Pic_Url&"|"&Temp_Url
End Select
If left(trim(Pic_Url),1)="|" then Pic_Url=right(Pic_Url,len(Pic_Url)-1)
loop
GetLocalPic_Url=Pic_Url
End Function
![](https://www.cnblogs.com/Images/OutliningIndicators/ContractedBlock.gif)