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 
‘第一個數(shù)值：解析DNS名字的超時時間10秒 
‘第二個數(shù)值：建立Winsock連接的超時時間10秒 
‘第三個數(shù)值：發(fā)送數(shù)據(jù)的超時時間10秒 
‘第四個數(shù)值：接收response的超時時間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 
‘作用：字符集轉換 
‘參數(shù)：body–內容；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：

復制代碼代碼如下:

 
?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>https://www.jb51.net/string>/value>/param> 
param>value>string>https://www.jb51.net/a/15222.html/string>/value>/param> 
param>value>string>https://www.jb51.net/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失敗"; 
} 
?> 