<%Function GetBody(url)'Set Retrieval = CreateObject("Microsoft.XMLHTTP") Retrieval.Open "Get", url, False, "", "" Retrieval.

<%Function GetBody(url)'Set Retrieval = CreateObject("Microsoft.XMLHTTP")  Retrieval.Open "Get", url, False, "", ""  Retrieval.Send() if (Retrieval.status=404) thenGetBody=""elseGetBody =Retrieval.ResponseBodyend ifEnd Functionstr = GetBody("http://www.021jz.com.cn/img/logo.jpg")if cstr(str) <> "" thenresponse.write "存在"elseresponse.write "不存在"end if%>

上一篇：asp获取文章里的图片路径 下一篇：SEO站长具备三个优化必备条件