Dim r : r = Int(Rnd() * 九 九 九 九) + 一000s = s & "<必修xml version="" 一.0″" encoding=""gb 二 三 一 二″"必修>"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.百度.com/subendong/blog</string></value></param>"s = s & "<param><value><string>http://hi.百度.com/subendong/blog/item/ 六cd 九 四 六 八d 二 四 三e 八c0 七b 二 一bba 五e.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.FlushDim objPingSet objPing = Server.CreateObject("MSXML 二.ServerXMLHTTP")objPing.SetTimeOuts 一0000, 一0000, 一0000, 一0000‘第一个数值：解析DNS名字的超不时 间 一0秒‘第两个数值：树立 Winsock衔接 的超不时 间 一0秒‘第三个数值：领送数据的超不时 间 一0秒‘第四个数值：吸收 response的超不时 间 一0秒objPing.open "POST", Url & "必修r=" & r, Fal搜索引擎优化 bjPing.setRequestHeader "Content-Type", "text/xml; charset=gb 二 三 一 二″objPing.send(s)SendPing = objPing.ResponseBodySet objPing = NothingEnd Function‘===============================================‘函数名：BytesToBstr‘感化 ：字符散变换‘参数：body–内容；Cset–指定的字符散‘===============================================Function BytesToBstr(body, Cset)dim objstreamset objstream = Server.CreateObject("adodb.stream")objstream.Type = 一objstream.Mode = 三objstream.Openobjstream.Write bodyobjstream.Position = 0objstream.Type = 二objstream.Charset = CsetBytesToBstr = objstream.ReadTextobjstream.Closeset objstream = nothingEnd Function%>
PHP：
<必修phpfunction postUrl($url, $postvar){$ch = curl_init();$headers = array("POST ".$url." HTTP/ 一.0″,"Content-type: text/xml; charset=\"gb 二 三 一 二\"","Accept: text/xml","Content-length: ".strlen($postvar));curl_setopt($ch, CURLOPT_URL, $url);curl_setopt($ch, CURLOPT_RETURNTRANSFER, 一);curl_setopt($ch, CURLOPT_POST, 一);curl_setopt($ch, CURLOPT_HTTPHEADER, $headers);curl_setopt($ch, CURLOPT_POSTFIELDS, $postvar);$res = curl_exec ($ch);curl_close ($ch);return $res;}$百度XML = "<必修xml version=\" 一.0\" encoding=\"gb 二 三 一 二\"必修><methodCall><methodName>weblogUpdates.extendedPing</methodName><params><param><value><string>剧本 之野</string></value></param><param><value><string>https://www.jb 五 一.net</string></value></param><param><value><string>https://www.jb 五 一.net/a/ 一 五 二 二 二.html</string></value></param><param><value><string>https://www.jb 五 一.net</string></value></param></params></methodCall>";$res = postUrl(‘http://ping.百度.com/ping/RPC 二′, $百度XML);if ( strpos($res, "<int>0</int>") ){echo "PING胜利 ";}else{echo "PING掉 败";