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

 

Code
posted @ 2008-10-06 14:41  ╰⑥月の雨╮  阅读(341)  评论(0)  编辑  收藏  举报