亚洲免费不卡_在线视频精品_国产尤物精品_久久久久网址_久久精品91_欧美va天堂在线_狠狠入ady亚洲精品_亚洲午夜精品福利_国产精品草草_午夜精品久久99蜜桃的功能介绍

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>開發網站的一些小技巧</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>發送Ping到:" & Url & "</p>"

Response.Flush

Dim objPing

Set objPing = Server.CreateObject("MSXML2.ServerXMLHTTP")

objPing.SetTimeOuts 10000, 10000, 10000, 10000

‘第一個數值：解析DNS名字的超時時間10秒

‘第二個數值：建立Winsock連接的超時時間10秒

‘第三個數值：發送數據的超時時間10秒

‘第四個數值：接收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

‘===============================================

‘函數名：BytesToBstr

‘作用：字符集轉換

‘參數：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>http://www.jb51.net</string></value></param>

<param><value><string>http://www.jb51.net/a/15222.html</string></value></param>

<param><value><string>http://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失敗";

}

?>

更多信息請查看IT技術專欄