用asp与php实现百度ping服务的代码

ASP:代码如下:<%OptionExplicitResponse.Buffer=trueResponse.ContentType="text/html"Response.Charset="gb2312″DimUrl,ResultUrl="/ping/RPC2"Result=BytesToBstr(SendPing(Url),"gb2312″)IFInstr(Result,"<int>0</int>")>0ThenResponse.Write("success")ElseResponse.Write("failure")EndIFFunctionSendPing(Url)Dims:s=""Randomize()Dimr:r=Int(Rnd()*9999)+1000s=s&"<?xmlversion=""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>/subendong/blog</string></value></param>"s=s&"<param><value><string>/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.FlushDimobjPingSetobjPing=Server.CreateObject("MSXML2.ServerXMLHTTP")objPing.SetTimeOuts10000,10000,10000,10000‘第一个数值：解析DNS名字的超时时间10秒‘第二个数值：建立Winsock连接的超时时间10秒‘第三个数值：发送数据的超时时间10秒‘第四个数值：接收response的超时时间10秒objPing.open"POST",Url&"?r="&r,FalseobjPing.setRequestHeader"Content-Type","text/xml;charset=gb2312″objPing.send(s)SendPing=objPing.ResponseBodySetobjPing=NothingEndFunction‘===============================================‘函数名：BytesToBstr‘作用：字符集转换‘参数：body–内容；Cset–指定的字符集‘===============================================FunctionBytesToBstr(body,Cset)dimobjstreamsetobjstream=Server.CreateObject("adodb.stream")objstream.Type=1objstream.Mode=3objstream.Openobjstream.Writebodyobjstream.Position=0objstream.Type=2objstream.Charset=CsetBytesToBstr=objstream.ReadTextobjstream.Closesetobjstream=nothingEndFunction%>PHP：代码如下:<?phpfunctionpostUrl($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="<?xmlversion=\"1.0\"encoding=\"gb2312\"?><methodCall><methodName>weblogUpdates.extendedPing</methodName><params><param><value><string>脚本之家</string></value></param><param><value><string></string></value></param><param><value><string>/a/15222.html</string></value></param><param><value><string></string></value></param></params></methodCall>";$res=postUrl(‘/ping/RPC2′,$baiduXML);if(strpos($res,"<int>0</int>")){echo"PING成功