◎欢迎参与讨论，请在这里发表您的看法、交流您的观点。
专业接单黑客联系方式(这是靠谱能办事的黑客)
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\?>
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失败;
延伸阅读
- 搜索
- 最新留言
- 标签列表
-