判断一个地址（网页或图象或者其他）能否访问，谁可以给出完整的程序

能否给出完整的PHP程序代码？
我对PHP是一窍不通，呵呵，已经被M$吸进去了

我存为PHP文件
然后你们看吧
http://yubeinet.com/test.php

不推荐使用file建议你使用fopen判断具体为啥,看看两个方法的说明就晓得了

$url="www.163.com";
$fp = fsockopen($url,80);
if(!$fp) return "有错误，";
fputs($fp,"GET / HTTP/1.1 \nhost:".$url."\n\n");
   $line = fgets($fp,1024);
   if(eregi("HTTP/1.1 200",$line)) echo "====正常";
   else echo "====失败";
fclose($fp);
其中。还可以判断更详细的结果。比如是401、404、500等。
注意 $url只是服务器名。
如果你要调试
http://www.163.com/test/test.jpg
那$url='www.163.com;
这：
fputs($fp,"GET / HTTP/1.1 \nhost:".$url."\n\n");要改为
fputs($fp,"GET /test/test.jpg HTTP/1.1 \nhost:".$url."\n\n");
再加以修改还可以测试一些密码站点的密码是否可用!
(以上是我在CSDN的外女贴，希望对你有用)

能否给出个完整的程序？
再说一次，我对PHP一点都不懂
我把你们的代码保存为PHP文件，根本得不到想要的结果~~~

完整的程序，就是在代码前加 <?php  和代码后加  ?>
try1:
<?php
$url="www.163.com";
$fp = fsockopen($url,80);
if(!$fp) return "有错误，";
fputs($fp,"GET / HTTP/1.1 \nhost:".$url."\n\n");
   $line = fgets($fp,1024);
   if(eregi("HTTP/1.1 200",$line)) echo "====正常";
   else echo "====失败";
fclose($fp);
?>
try2:
<?php
$url="http://www.163.com"
if(!(file($url))){die("<br><font color=red>不能连接服务器，请稍后再试!!</font>");}
?>

有没有搞错啊，你ASP知道要加<%%>
PHP就不知道要加<??>啊，还有，你的服务器支持PHP吗

对不起，这位想做FC模拟器的朋友，我确实不知道。而且你怎么确定我是做ASP的呢？我又不一定做网络编程~~
我的服务器就是支持PHP的~~如果是支持ASP的我就不用这么麻烦来问大家了。

<?php
$url="http://www.163.com"
if(!(file($url))){die("<br><font color=red>不能连接服务器，请稍后再试!!</font>");}
?>
第三行错误
<?php
$url="www.163.com";
$fp = fsockopen($url,80);
if(!$fp) return "有错误，";
fputs($fp,"GET / HTTP/1.1 \nhost:".$url."\n\n");
   $line = fgets($fp,1024);
   if(eregi("HTTP/1.1 200",$line)) echo "====正常";
   else echo "====失败";
fclose($fp);
?>
返回空白

转载：
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
主　　题： @@利用XMLHTTP检测网址及探测服务器类型（XMLHTTP举一反三之二）@@
作　　者： jnkc (江南昆虫)
等　　级：　　
信誉值： 181
所属论坛： Web 开发 ASP
问题点数： 100
回复次数： 9
发表时间： 2003-1-10 9:16:42
这个帖子也是因 liuzxit(陷入MS...痛并快乐着) 在我上一个关于“域名查询”的帖子中提议“檢測url”而写。进一步研究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,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>

主　　题： @@利用XMLHTTP检测网址及探测服务器类型（XMLHTTP举一反三之二）@@
作　　者： jnkc (江南昆虫)
等　　级：　　
信誉值： 181
所属论坛： Web 开发 ASP
问题点数： 100
回复次数： 9
发表时间： 2003-1-10 9:16:42
这个帖子也是因 liuzxit(陷入MS...痛并快乐着) 在我上一个关于“域名查询”的帖子中提议“檢測url”而写。进一步研究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,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>

好用的，是你自己的问题了
<?php
$url="http://www.163.com";
if(!(file($url)))
{
die("不能连接服务器，请稍后再试!");
}
else
{
echo "能够打开";
}
?>
<?php
$url="www.sohu.com"; //Default isn't 80 port
$fp = fsockopen($url,80);
if(!$fp) return "有错误，";
fputs($fp,"GET / HTTP/1.1 \nhost:".$url."\n\n");
   $line = fgets($fp,1024);
   if(eregi("HTTP/1.1 200",$line)) echo "====正常";
   else echo "====失败";
fclose($fp);
?>

<?php
function openUrl($url){
@$fp = fopen($url,"r");
if($fp) {
echo "可以打开指定链接";
}else{
echo "无法打开指定链接";
}
}
if($_POST['url']) {
openUrl($_POST['url']);
echo "<br>";
}
?>
<form name="form1" method="post" action="">
<input type="text" name="url">
<input type="submit" name="Submit" value="提交">
</form>

错了，你们的一个都不行~~~你们干吗不自己test一下？明明不行的
我的PHP肯定是latest version

http://www.yubeinet.com/surfchen/test.php
你看看你的吧~~输入任何URL都echo"无法打开……";

调试易

判断一个地址（网页或图象或者其他）能否访问，谁可以给出完整的程序

解决方案 »