在PHP中利用XML技术构造远程服务

＜?php
include("xmlrpc.inc");
include("xmlrpcs.inc");
function foo ($params)
{
global $xmlrpcerruser; // 引入用户错误代码值
// $params是xmlrpcval对象的一个数组
$vala=$params->params[0];
$sval=$vala->scalarval();
$ret=$sval*2;
return new xmlrpcresp(new xmlrpcval($ret, "int"));
}
$s=new xmlrpc_server( array("product" =>
array("function" => "foo")));
?＞

＜?php
include("xmlrpc.inc");
if ($http_post_vars["number"]!="") {
$f=new xmlrpcmsg(product,array(new xmlrpcval

($http_post_vars["number"], "int")));
$c=new xmlrpc_client("/xmlrpc/servfoo.php", 

"luigi.melpomenia.com.ar", 80);
$c->setdebug(0);
$r=$c->send($f);
$v=$r->value();
if (!$r->faultcode()) {
print "number ". $http_post_vars["number"] . " is " .
$v->scalarval() . "＜br＞";
print "＜hr＞来自服务器的结果!＜br＞＜pre＞" .
htmlentities($r->serialize()). "＜/pre＞＜hr＞＼n";
} else {
print "操作失败: ";
print "代码: " . $r->faultcode() .
" 原因: " .$r->faultstring()."＜br＞";
}
}
print "＜form method=＼"post＼"＞
＜input name=＼"number＼" value=＼"${number}＼"＞
＜input type=＼"submit＼" value=＼"go＼"

 name=＼"submit＼"＞＜/form＞＜p＞
输入一个数值";
?＞