主頁 > 知識(shí)庫 > 用asp與php實(shí)現(xiàn)百度ping服務(wù)的代碼

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

熱門標(biāo)簽:地圖標(biāo)注植物名稱 地圖標(biāo)注審核工作怎么樣注冊(cè) 去哪里辦卡 熱血傳奇沃瑪森林地圖標(biāo)注 福建ai電銷機(jī)器人加盟公司 無錫電銷機(jī)器人銷售 招聘信息 鄭州中國(guó)移動(dòng)400電話申請(qǐng) 揭陽外呼系統(tǒng)公司 南召400電話辦理資費(fèi)
ASP:
復(fù)制代碼 代碼如下:

%
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>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失敗";
}
?>
您可能感興趣的文章:
  • php實(shí)現(xiàn)的ping端口函數(shù)實(shí)例
  • php使用百度ping服務(wù)代碼實(shí)例
  • php模擬ping命令(php exec函數(shù)的使用方法)
  • PHP的博客ping服務(wù)代碼
  • Ping服務(wù)的php實(shí)現(xiàn)方法,讓網(wǎng)站快速被收錄
  • php實(shí)現(xiàn)ping
  • PHP 獲取 ping 時(shí)間的實(shí)現(xiàn)方法

標(biāo)簽:文山 南昌 黔南 東莞 鹽城 景德鎮(zhèn) 宣城 桂林

巨人網(wǎng)絡(luò)通訊聲明:本文標(biāo)題《用asp與php實(shí)現(xiàn)百度ping服務(wù)的代碼》,本文關(guān)鍵詞  用,asp,與,php,實(shí)現(xiàn),百度,;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題,煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們,我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《用asp與php實(shí)現(xiàn)百度ping服務(wù)的代碼》相關(guān)的同類信息!
  • 本頁收集關(guān)于用asp與php實(shí)現(xiàn)百度ping服務(wù)的代碼的相關(guān)信息資訊供網(wǎng)民參考!
  • 推薦文章