用asp與php實(shí)現(xiàn)百度ping服務(wù)的代碼

更新時(shí)間：2012年02月04日 14:13:54 作者：

分別用asp與php實(shí)現(xiàn)百度ping服務(wù)的代碼，需要的朋友可以參考下

ASP:

 
<% 
Option Explicit 
Response.Buffer = true 
Response.ContentType = "text/html" 
Response.Charset = "gb2312″ 
Dim Url, Result 
Url = "http://ping.baidu.com/ping/RPC2" 
Result = BytesToBstr(SendPing(Url), "gb2312″) 
IF Instr(Result, "<int>0</int>") > 0 Then 
Response.Write("success") 
Else 
Response.Write("failure") 
End IF 
Function SendPing(Url) 
Dim s : s = "" 
Randomize() 
Dim r : r = Int(Rnd() * 9999) + 1000 
s = s & "<?xml version=""1.0″" encoding=""gb2312″"?>" 
s = s & "<methodCall>" 
s = s & "<methodName>weblogUpdates.ping</methodName>" 
s = s & "<params>" 
s = s & "<param><value><string>開發(fā)網(wǎng)站的一些小技巧</string></value></param>" 
s = s & "<param><value><string>http://hi.baidu.com/subendong/blog</string></value></param>" 
s = s & "<param><value><string>http://hi.baidu.com/subendong/blog/item/6cd9468d243e8c07b21bba5e.html</string></value></param>" 
s = s & "<param><value><string></string></value></param>" 
s = s & "</params>" 
s = s & "</methodCall>" 
Response.Write "<p>發(fā)送Ping到:" & Url & "</p>" 
Response.Flush 
Dim objPing 
Set objPing = Server.CreateObject("MSXML2.ServerXMLHTTP") 
objPing.SetTimeOuts 10000, 10000, 10000, 10000 
‘第一個(gè)數(shù)值：解析DNS名字的超時(shí)時(shí)間10秒 
‘第二個(gè)數(shù)值：建立Winsock連接的超時(shí)時(shí)間10秒 
‘第三個(gè)數(shù)值：發(fā)送數(shù)據(jù)的超時(shí)時(shí)間10秒 
‘第四個(gè)數(shù)值：接收response的超時(shí)時(shí)間10秒 
objPing.open "POST", Url & "?r=" & r, False 
objPing.setRequestHeader "Content-Type", "text/xml; charset=gb2312″ 
objPing.send(s) 
SendPing = objPing.ResponseBody 
Set objPing = Nothing 
End Function 
‘=============================================== 
‘函數(shù)名：BytesToBstr 
‘作用：字符集轉(zhuǎn)換 
‘參數(shù)：body–內(nèi)容；Cset–指定的字符集 
‘=============================================== 
Function BytesToBstr(body, Cset) 
dim objstream 
set objstream = Server.CreateObject("adodb.stream") 
objstream.Type = 1 
objstream.Mode =3 
objstream.Open 
objstream.Write body 
objstream.Position = 0 
objstream.Type = 2 
objstream.Charset = Cset 
BytesToBstr = objstream.ReadText 
objstream.Close 
set objstream = nothing 
End Function 
%> 

PHP：

復(fù)制代碼代碼如下:

 
<?php 
function postUrl($url, $postvar) 
{ 
$ch = curl_init(); 
$headers = array( 
"POST ".$url." HTTP/1.0″, 
"Content-type: text/xml; charset=\"gb2312\"", 
"Accept: text/xml", 
"Content-length: ".strlen($postvar) 
); 
curl_setopt($ch, CURLOPT_URL, $url); 
curl_setopt($ch, CURLOPT_RETURNTRANSFER,1); 
curl_setopt($ch, CURLOPT_POST, 1); 
curl_setopt($ch, CURLOPT_HTTPHEADER, $headers); 
curl_setopt($ch, CURLOPT_POSTFIELDS, $postvar); 
$res = curl_exec ($ch); 
curl_close ($ch); 
return $res; 
} 
$baiduXML = "<?xml version=\"1.0\" encoding=\"gb2312\"?> 
<methodCall> 
<methodName>weblogUpdates.extendedPing</methodName> 
<params> 
<param><value><string>腳本之家</string></value></param> 
<param><value><string>http://www.dhdzp.com</string></value></param> 
<param><value><string>http://www.dhdzp.com/a/15222.html</string></value></param> 
<param><value><string>http://www.dhdzp.com</string></value></param> 
</params> 
</methodCall>"; 
$res = postUrl(‘http://ping.baidu.com/ping/RPC2′, $baiduXML); 
if ( strpos($res, "<int>0</int>") ) 
{ 
echo "PING成功"; 
} 
else 
{ 
echo "PING失敗"; 
} 
?> 