用asp與php實現(xiàn)百度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>開發(fā)網(wǎng)站的一些小技巧</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>發(fā)送Ping到:"&Url&"</p>"Response.FlushDimobjPingSetobjPing=Server.CreateObject("MSXML2.ServerXMLHTTP")objPing.SetTimeOuts10000,10000,10000,10000‘第一個數(shù)值：解析DNS名字的超時時間10秒‘第二個數(shù)值：建立Winsock連接的超時時間10秒‘第三個數(shù)值：發(fā)送數(shù)據(jù)的超時時間10秒‘第四個數(shù)值：接收response的超時時間10秒objPing.open"POST",Url&"?r="&r,FalseobjPing.setRequestHeader"Content-Type","text/xml;charset=gb2312″objPing.send(s)SendPing=objPing.ResponseBodySetobjPing=NothingEndFunction‘===============================================‘函數(shù)名：BytesToBstr‘作用：字符集轉換‘參數(shù)：body–內(nèi)容；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成功