function PostToHost($url, $data) {

$url = parse_url($url);

if (!$url) return "couldn\'t parse url";

if (!isset($url[\'port\'])) { $url[\'port\'] = ""; }

if (!isset($url[\'query\'])) { $url[\'query\'] = ""; }

$encoded = "";

while (list($k,$v) = each($data)) {

$encoded .= ($encoded ? "&" : "");

$encoded .= rawurlencode($k)."=".rawurlencode($v);

$port = $url[\'port\'] ? $url[\'port\'] : 80;

$fp = fsockopen($url[\'host\'], $port, $errno, $errstr);

if (!$fp) return "Failed to open socket to $url[host] $port ERROR: $errno - $errstr";

fputs($fp, sprintf("POST %s%s%s HTTP/1.0\\n", $url[\'path\'], $url[\'query\'] ? "?" : "", $url[\'query\']));

fputs($fp, "Host: $url[host]\\n");

fputs($fp, "Content-type: application/x-www-form-urlencoded\\n");

fputs($fp, "Content-length: " . strlen($encoded) . "\\n");

fputs($fp, "Connection: close\\n\\n");

fputs($fp, "$encoded\\n");

$line = fgets($fp,1024);

if (!eregi("^HTTP/1\\.. 200", $line)) return;

$results = ""; $inheader = 1;

while(!feof($fp)) {

$line = fgets($fp,1024);

if ($inheader && ($line == "\\n" || $line == "\\r\\n")) {

$inheader = 0;

elseif (!$inheader) {

$results .= $line;

fclose($fp);

return $results;

}/* end function PostToHost */

?>相关阅读:

jQuery 添加/移除CSS类实现代码

设置Proxy Server和SQL Server实现互联网上数据库的

asp.net 半角全角转化工具

在JavaScript中，为什么要尽可能使用局部变量？

ASP.NET入门教程:DataList控件

SQL Server 2008新特性面面观

Linux安全防护十大招数

Oracle DDL,DML,DCL,TCL 入门概念

Z-Blog 文件复制插件

将后台数据从Berkeley的文件DB转到MySQL

使用jQuery实现dropdownlist的联动效果(sharepoint 2007)

Vista中Office2007字体不能正常显示

帝国ecms教程:一些常用的技巧大全

EJB3.0之实体Bean的继承