怎样确定URL路径的文件是否存在 xmlhttp的get方法,如果返回200就存在 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 多谢 net_lover能不能在说的详细一点阿,我不懂阿 利用XMLHTTP检测网址及探测服务器类型(XMLHTTP举一反三之二)<html><head><title>利用XMLHTTP检测网址及探测服务器类型</title><META http-equiv=Content-Type content="text/html; charset=gb2312"><meta name="Generator" content="EditPlus"><meta name="Author" content="JnKc"><meta name="Keywords" content=""></head><body><input type="text" id="jnkcInput" value="http://www.csdn.net" size="50"><button id="chk">检测</button><div id="jnkc_show"></div><SCRIPT LANGUAGE="VBScript">Dim i,jnkcUrl,jnkcHTML,jnkcStatus,jnkcServerFunction chk_onClick()jnkcUrl = jnkcInput.valueCall GetDetaili = i+1jnkc_show.innerHTML = "<hr><pre><font color=red>" & i & "、" & jnkcUrl & "</font><br/>" & jnkcStatus & "</pre>" & jnkc_show.innerHTMLEnd FunctionDim jnkcXMLHTTPSub GetDetail Set jnkcXMLHTTP = CreateObject("Microsoft.XMLHTTP") jnkcXMLHTTP.OnReadyStateChange = GetRef("GetStatus") jnkcXMLHTTP.Open "GET", jnkcUrl, False On Error Resume Next jnkcXMLHTTP.Send Set jnkcXMLHTTP = NothingEnd SubSub GetStatus If jnkcXMLHTTP.ReadyState <> 4 Then Exit Sub End If If jnkcXMLHTTP.Status = 404 Then jnkcStatus = "该网页不存在!" ElseIf jnkcXMLHTTP.Status < 200 Then jnkcStatus = "客户端错误,信息:" & CStr(jnkcXMLHTTP.Status) & " " & jnkcXMLHTTP.StatusText ElseIf jnkcXMLHTTP.Status < 300 Then jnkcStatus = "成功,该网页能访问。" ElseIf jnkcXMLHTTP.Status < 400 Then jnkcStatus = "重定向,信息:" & CStr(jnkcXMLHTTP.Status) & " " & jnkcXMLHTTP.StatusText ElseIf jnkcXMLHTTP.Status < 500 Then jnkcStatus = "客户端错误,信息:" & CStr(jnkcXMLHTTP.Status) & " " & jnkcXMLHTTP.StatusText ElseIf jnkcXMLHTTP.Status < 600 Then jnkcStatus = "服务器错误,信息:" & CStr(jnkcXMLHTTP.Status) & " " & jnkcXMLHTTP.StatusText Else jnkcStatus = "域名不可用或网络连接错误,信息:" & CStr(jnkcXMLHTTP.Status) & " " & jnkcXMLHTTP.StatusText End If If jnkcXMLHTTP.Status < 600 Then Call GetServerEnd SubSub GetServer jnkcServer = jnkcXMLHTTP.GetResponseHeader("Server") If jnkcServer <> "" Then jnkcStatus = jnkcStatus & "<br/>HTTP服务器:" & jnkcServer End If jnkcStatus = "<b>" & jnkcStatus & "</b><br/>所有反馈信息:<br/>"& jnkcXMLHTTP.GetAllResponseHeadersEnd Sub</SCRIPT></body></html> 用file_exists试试看这个http://yoururl/yourdir/nil或http://yoururl/yourdir/null 用fopen也行啊。不过速度可能会有点影响<?phpif (@fopen('http://www.sohu.com','r')) { echo "文件存在";} else { echo "文件不存在";}?> PHP中select下拉框的问题 还是那根据IP获取地址用正则切割问题 求PHP 执行时间问题 smarty 缓存控制问题 register_function 刚接触网页设计,看到一些效果很帅,能不能帮忙解释一下怎么实现的? 跳来跳去还是跳不出圈子 求助,急!关于php的module 高手问题~~Up者有分(300分相送) 限制手机短信验证发送次数 请教一个关于php内实现页面跳转的问题 字符串的匹配问题 求救(给予建议者皆有分,分不够一直加)!!!我想做一个公司网站,只要实现将公司的产品分页显示在页面上,并且能够查询,不需数据库,
能不能在说的详细一点阿,我不懂阿
<head>
<title>利用XMLHTTP检测网址及探测服务器类型</title>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<meta name="Generator" content="EditPlus">
<meta name="Author" content="JnKc">
<meta name="Keywords" content="">
</head>
<body>
<input type="text" id="jnkcInput" value="http://www.csdn.net" size="50">
<button id="chk">检测</button>
<div id="jnkc_show"></div>
<SCRIPT LANGUAGE="VBScript">
Dim i,jnkcUrl,jnkcHTML,jnkcStatus,jnkcServer
Function chk_onClick()
jnkcUrl = jnkcInput.value
Call GetDetail
i = i+1
jnkc_show.innerHTML = "<hr><pre><font color=red>" & i & "、" & jnkcUrl & "</font><br/>" & jnkcStatus & "</pre>" & jnkc_show.innerHTML
End Function
Dim jnkcXMLHTTP
Sub GetDetail
Set jnkcXMLHTTP = CreateObject("Microsoft.XMLHTTP")
jnkcXMLHTTP.OnReadyStateChange = GetRef("GetStatus")
jnkcXMLHTTP.Open "GET", jnkcUrl, False
On Error Resume Next
jnkcXMLHTTP.Send
Set jnkcXMLHTTP = Nothing
End Sub
Sub GetStatus
If jnkcXMLHTTP.ReadyState <> 4 Then
Exit Sub
End If
If jnkcXMLHTTP.Status = 404 Then
jnkcStatus = "该网页不存在!"
ElseIf jnkcXMLHTTP.Status < 200 Then
jnkcStatus = "客户端错误,信息:" & CStr(jnkcXMLHTTP.Status) & " " & jnkcXMLHTTP.StatusText
ElseIf jnkcXMLHTTP.Status < 300 Then
jnkcStatus = "成功,该网页能访问。"
ElseIf jnkcXMLHTTP.Status < 400 Then
jnkcStatus = "重定向,信息:" & CStr(jnkcXMLHTTP.Status) & " " & jnkcXMLHTTP.StatusText
ElseIf jnkcXMLHTTP.Status < 500 Then
jnkcStatus = "客户端错误,信息:" & CStr(jnkcXMLHTTP.Status) & " " & jnkcXMLHTTP.StatusText
ElseIf jnkcXMLHTTP.Status < 600 Then
jnkcStatus = "服务器错误,信息:" & CStr(jnkcXMLHTTP.Status) & " " & jnkcXMLHTTP.StatusText
Else
jnkcStatus = "域名不可用或网络连接错误,信息:" & CStr(jnkcXMLHTTP.Status) & " " & jnkcXMLHTTP.StatusText
End If
If jnkcXMLHTTP.Status < 600 Then Call GetServer
End Sub
Sub GetServer
jnkcServer = jnkcXMLHTTP.GetResponseHeader("Server")
If jnkcServer <> "" Then
jnkcStatus = jnkcStatus & "<br/>HTTP服务器:" & jnkcServer
End If
jnkcStatus = "<b>" & jnkcStatus & "</b><br/>所有反馈信息:<br/>"& jnkcXMLHTTP.GetAllResponseHeaders
End Sub
</SCRIPT>
</body>
</html>
http://yoururl/yourdir/nil
或
http://yoururl/yourdir/null
if (@fopen('http://www.sohu.com','r')) {
echo "文件存在";
} else {
echo "文件不存在";
}
?>