Dim r : r = Int(Rnd() * 9999) + 1000
s = s & <?xml version=1.0″ encoding=gb2312″?>
s = s &
s = s & weblogUpdates.ping
s = s &
s = s & 开发网站的一些小技巧
s = s & http://hi.baidu.com/subendong/blog
s = s & http://hi.baidu.com/subendong/blog/item/6cd9468d243e8c07b21bba5e.html
s = s &
s = s &
s = s &
Response.Write

发送Ping到: & Url &

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
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\?>

weblogUpdates.extendedPing

脚本之家
https://www.jb51.net
https://www.jb51.net/a/15222.html
https://www.jb51.net

;
$res = postUrl(‘http://ping.baidu.com/ping/RPC2′, $baiduXML);
if ( strpos($res, 0) )
{
echo PING成功;
}
else
{
echo PING失败;