建站常识

<%
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.021jianzhan.com/img/logo.jpg")

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