<%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("static/picture/logo.jpg")if cstr(str) <> "" thenresponse.write "存在"elseresponse.write "不存在"end if%>

上一篇：asp獲取文章(zhāng)裏的(de)圖片路徑 下(xià)一篇：SEO站長(cháng)具備三個(gè)優化(huà)必備條件