PHP4中使用COM(Windows)--例子
时间：2007-02-17 来源：PHP爱好者
PHP4 COM的MS Word例子
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
<?php
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
#*****************************************************
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
# 这个例子来自Zend站点，并做了一点修改。
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
# 将会打开一个Word的实例，
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
# 输入一行“This is a test...”
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
# 存为“Useless test.doc”。
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
#*****************************************************
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
#实例化一个Word控件
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
$word = new COM("word.application") or die("不能实例化Word");
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
#取得并输出版本号
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
print "载入Word, 版本 {$word->Version}<BR>";
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
#用com_get取得版本号
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
$testversion = com_get($word->application,version);
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
print "用Com_get()取得的版本: $testversion <BR>";
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
#让Word可见
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
$word->Visible = 1;
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
#打开一个新文档
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
$word->Documents->Add();
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
#写
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
$word->Selection->TypeText("This is a test...");
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
#存
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
$word->Documents[1]->SaveAs("Useless test.doc");
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
#手工关闭Word，如果你想看到文档则注释下面这行
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
$word->Quit();
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
?>
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
PHP4 COM的MS Excel例子
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
<?php
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
#设置工作簿，
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
#在这里我们用Excel安装时自带的：SOLVSAMP.XLS
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
$workbook = "C:Program FilesMicrosoft officeOfficeSamplesSOLVSAMP.XLS";
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
$sheet = "Quick Tour";
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
#实例化工作表控件
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
$ex = new COM("Excel.sheet") or Die ("Did not connect");
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
#取得程序名称和版本
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
print "程序名称：{$ex->Application->value}<BR>" ;
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
print "版本：{$ex->Application->version}<BR>";
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
#打开工作簿
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
$wkb = $ex->application->Workbooks->Open($workbook) or Die ("Did not open");
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
#另存一份，这样就不会破坏原来的文件了
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
$ex->Application->ActiveWorkbook->SaveAs("Ourtest");
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
#$ex->Application->Visible = 1; #去掉注释可以让Excel可见
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
#读取一个单元格的内容（E11）
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
$sheets = $wkb->Worksheets($sheet); #选择工作表
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
$sheets->activate; #激活
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
$cell = $sheets->Cells(11,5) ; #选择单元格（行列号）
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
$cell->activate; #激活
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
print "Old Value = {$cell->value} <BR>"; #打印内容：10000
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
$cell->value = 15000; #改为15000
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
print "New value = {$cell->value}<BR> "; #打印新内容：15000
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
#最后，重新计算工作表
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
$sheets->Calculate; #当计算选项是手工时需要
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
#看看结果total cost(单元格E13)
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
$cell = $sheets->Cells(13,5) ; #选择单元格
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
$number = Number_format($cell->value);
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
print "New Total cost =$$number - was $47,732 before.<BR>";
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
#将会打印$57,809
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
#使用Excel的内置函数：
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
#Function: PMT(percent/12 months,Number of payments,Loan amount)
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
$pay = $ex->application->pmt(0.08/12,10,10000);
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
$pay = sprintf("%.2f",$pay);
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
print "Monthly payment for $10,000 loan @8% interest /10 months: $ $pay<BR>";
#将会打印monthly payment = $ -1,037.03
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
#保存改过的工作簿
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
$ex->Application->ActiveWorkbook->SaveAs("Ourtest");
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
#关闭所有工作簿
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
$ex->application->ActiveWorkbook->Close("False");
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
unset ($ex);
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
?>
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
警告/可能的问题
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
如果你的代码中有错误，你就有可能实例化了一个对象而没有关闭。结果当你改正了错误后有可能已经存在几个实例了，也许会干扰你的结果。解决：当改正了代码的错误之后，清除（<CTRL+ALT+DEL>后结束任务）所有的实例再运行新代码。同样的道理，记住在代码的末尾关闭程序断开联接。
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
当使用com_get和com_set时你可能会遇到一些奇怪的现象。例如：为Word使用$Version = Com_get($instance->Application,"Version");时产生一个Excel的错误。
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
有些对象不能在PHP4中实例化，这是因为这些对象需要一个PHP4 COM不支持的接口。
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
为什么用它？
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
希望这几个例子能给你一些启发。PHP COM允许你在PHP代码里连接许多Windows程序。这些代码比ASP更容易并且可以和PHP的数据库函数集成在一起使用。微软使用了一些不同的名称到处推广COM技术，例如COM+, ADO, OLE DB, OWC, Windows DNA等等。PHP和Apache给这些混淆提供了一个开放的解决方案。
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
--Alain
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
原文有三个例子，最后一个因为自己对PDF不是很熟所以没有翻译。
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
译自：http://www.phpbuilder.com/columns/alain20001003.php3
php爱好者站 http://www.phpfans.net 网页制作|网站建设|数据采集.
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
<?php
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
#*****************************************************
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
# 这个例子来自Zend站点，并做了一点修改。
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
# 将会打开一个Word的实例，
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
# 输入一行“This is a test...”
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
# 存为“Useless test.doc”。
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
#*****************************************************
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
#实例化一个Word控件
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
$word = new COM("word.application") or die("不能实例化Word");
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
#取得并输出版本号
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
print "载入Word, 版本 {$word->Version}<BR>";
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
#用com_get取得版本号
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
$testversion = com_get($word->application,version);
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
print "用Com_get()取得的版本: $testversion <BR>";
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
#让Word可见
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
$word->Visible = 1;
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
#打开一个新文档
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
$word->Documents->Add();
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
#写
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
$word->Selection->TypeText("This is a test...");
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
#存
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
$word->Documents[1]->SaveAs("Useless test.doc");
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
#手工关闭Word，如果你想看到文档则注释下面这行
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
$word->Quit();
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
?>
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
PHP4 COM的MS Excel例子
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
<?php
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
#设置工作簿，
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
#在这里我们用Excel安装时自带的：SOLVSAMP.XLS
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
$workbook = "C:Program FilesMicrosoft officeOfficeSamplesSOLVSAMP.XLS";
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
$sheet = "Quick Tour";
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
#实例化工作表控件
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
$ex = new COM("Excel.sheet") or Die ("Did not connect");
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
#取得程序名称和版本
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
print "程序名称：{$ex->Application->value}<BR>" ;
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
print "版本：{$ex->Application->version}<BR>";
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
#打开工作簿
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
$wkb = $ex->application->Workbooks->Open($workbook) or Die ("Did not open");
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
#另存一份，这样就不会破坏原来的文件了
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
$ex->Application->ActiveWorkbook->SaveAs("Ourtest");
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
#$ex->Application->Visible = 1; #去掉注释可以让Excel可见
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
#读取一个单元格的内容（E11）
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
$sheets = $wkb->Worksheets($sheet); #选择工作表
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
$sheets->activate; #激活
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
$cell = $sheets->Cells(11,5) ; #选择单元格（行列号）
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
$cell->activate; #激活
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
print "Old Value = {$cell->value} <BR>"; #打印内容：10000
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
$cell->value = 15000; #改为15000
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
print "New value = {$cell->value}<BR> "; #打印新内容：15000
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
#最后，重新计算工作表
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
$sheets->Calculate; #当计算选项是手工时需要
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
#看看结果total cost(单元格E13)
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
$cell = $sheets->Cells(13,5) ; #选择单元格
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
$number = Number_format($cell->value);
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
print "New Total cost =$$number - was $47,732 before.<BR>";
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
#将会打印$57,809
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
#使用Excel的内置函数：
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
#Function: PMT(percent/12 months,Number of payments,Loan amount)
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
$pay = $ex->application->pmt(0.08/12,10,10000);
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
$pay = sprintf("%.2f",$pay);
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
print "Monthly payment for $10,000 loan @8% interest /10 months: $ $pay<BR>";
#将会打印monthly payment = $ -1,037.03
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
#保存改过的工作簿
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
$ex->Application->ActiveWorkbook->SaveAs("Ourtest");
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
#关闭所有工作簿
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
$ex->application->ActiveWorkbook->Close("False");
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
unset ($ex);
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
?>
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
警告/可能的问题
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
如果你的代码中有错误，你就有可能实例化了一个对象而没有关闭。结果当你改正了错误后有可能已经存在几个实例了，也许会干扰你的结果。解决：当改正了代码的错误之后，清除（<CTRL+ALT+DEL>后结束任务）所有的实例再运行新代码。同样的道理，记住在代码的末尾关闭程序断开联接。
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
当使用com_get和com_set时你可能会遇到一些奇怪的现象。例如：为Word使用$Version = Com_get($instance->Application,"Version");时产生一个Excel的错误。
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
有些对象不能在PHP4中实例化，这是因为这些对象需要一个PHP4 COM不支持的接口。
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
为什么用它？
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
希望这几个例子能给你一些启发。PHP COM允许你在PHP代码里连接许多Windows程序。这些代码比ASP更容易并且可以和PHP的数据库函数集成在一起使用。微软使用了一些不同的名称到处推广COM技术，例如COM+, ADO, OLE DB, OWC, Windows DNA等等。PHP和Apache给这些混淆提供了一个开放的解决方案。
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
--Alain
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
原文有三个例子，最后一个因为自己对PDF不是很熟所以没有翻译。
chi na it p owe r .comm3Md9ocYc0XZYWGnwVCayPlIx
译自：http://www.phpbuilder.com/columns/alain20001003.php3
php爱好者站 http://www.phpfans.net 网页制作|网站建设|数据采集.
相关阅读 更多 +
