asp遍历本地文件判断图片路径是否正确

<%
Function GetBody(url)'
Set Retrieval = CreateObject("Microsoft.XMLHTTP")  
Retrieval.Open "Get", url, False, "", ""  
Retrieval.Send() 
if (Retrieval.status=404) then
GetBody=""
else
GetBody =Retrieval.ResponseBody
end if
End Function

str = GetBody("http://www.my0553.com.cn/img/logo.jpg")

if cstr(str) <> "" then
response.write "存在"
else
response.write "不存在"
end if
%>

上一篇：SEO站长具备三个优化必备条件

下一篇：asp获取文章里的图片路径