易栈网-膘叔（Neatstudio.COM）

易栈网-膘叔

闲着无聊，用WPS生成文档

为windows的WEB服务器添加高性能的FTP组件

奶粉，不多说，看源码

Can not Input Chinese

纪念“9·18”事变

闲着无聊，用WPS生成文档

为windows的WEB服务器添加高性能的FTP组件

日志分类

热门标签

日志归档

搜索文章

最新评论

博客信息

友情链接

　　1931年9月18日晚，驻扎在我国东北的日本关东军按照精心策划的阴谋，由铁道“守备队”炸毁了沈阳柳条湖附近的南满铁路路轨，并嫁祸于中国军队。这就是所谓的“柳条湖事件”。日军以此为借口，突然向驻守在沈阳北大营的中国军队发动进攻。当时，蒋介石正集中力量进行反共反人民的内战，执行“攘外必先安内”的反动政策，对日本侵略者妥协退让。东北军执行蒋介石“不抵抗主义”的命令，未进行有组织的抵抗。当晚，日军攻占北大营，19日占领了整个沈阳城。接着，日军向辽宁、吉林和黑龙江的广大地区进攻，东北军基本上不战自溃。1932年1月3日，日军占领锦州；2月5日，占领了北满最大城市哈尔滨。至此东北三省全部沦陷。1932年3 月，在日本帝国主义卵翼下，在长春建立起傀儡政权——伪满洲国。从此，日本帝国主义把东北变成它的殖民地，全面加强政治压迫、经济掠夺、文化奴役，使我国东北3000多万同胞，惨遭涂炭，陷于水深火热之中。

　　刚刚在新浪新闻中看到：

　　今年是“九·一八”事变72周年，同时也是沈阳市定于9月18日晚上鸣响防空警报的第八个年头。据介绍，起初沈阳市鸣警报的时间定在9月18日晚10时20分，后考虑到市民的生活习惯等原因，于3年前将鸣响警报时间提前到晚上9时18分。

　　明晚9时18分，在市区道路上行驶的机动车辆要在行驶中鸣笛，当地广播电台和电视台中断正常节目，插播“勿忘国耻，振兴中华”画面和警报声音。警报解除后，节目恢复正常播出。

Tags: 918, 九一八, 纪念

Misc | 评论:0 | 阅读:17366

Submitted by gouki on 2008, September 16, 10:42 PM

不好意思，该操作只能在windows服务器上才能执行，是因为，只有windows服务器才支持COM功能，而且，必须安装wps（这点应该不难，因为WPS是免费软件）
免费软件这点太重要了，如果你要生成WORD，你不可能安装一个OFFICE吧，office太贵了。

PHP代码

<?php
$wps = new COM("WPS.Application");
$wps->Visible = false;
$doc = $wps->Documents->Add();
$doc->Range->Text = 'WPS FOR PHP test';
$doc->Paragraphs[1]->Alignment = 1;
$doc->Shapes->AddPicture("http://img.kingsoft.com/publish/kingsoft/images/gb/sy/logo.gif", 100, 50, 148, 60);
$doc->SaveAs('c:\\temp\\test1.wps');
$doc->Close();
$wps->Quit();
unset( $doc , $wps );
?>

代码很简单，只是添加了一个文字和一个图片而己。但是，证明了是可以使用这个功能。
大家别忘了，WPS的附加功能可是很多的，比如把文件转为PDF等格式。也就是说，如果是在windows服务器上，我们要生成PDF，可以不使用那些什么fpdf类库，而是使用WPS先生成一个WORD格式的文档，然后直接exportPdf就可以了。要知道OFFICE默认并不支持这种功能。黑黑

这也是一种思路嘛，思路决定出路，转换一种思路，可能就是海阔天空。

这里是WPS的开发者网站：http://wps.kingsoft.com/apply/engineer.shtml，从这里可以下载API:http://wps.kingsoft.com/download/WPSAPI.zip

Tags: php, wps, com, wps application

PHP | 评论:1 | 阅读:30750

Submitted by gouki on 2008, September 16, 10:13 PM

在windows服务器里面，如果我们要用FTP函数，速度应该是很慢的，而且效率不高，如果有大量文件需要上传，用自带的FTP函数，恐怕是要死人的吧。
windows服务器，windows哦，可以装N多软件的windows哦。虽然不建议在服务器上装上很多软件，但是也可以装一些FTP软件的嘛。这里以cuteftp举例。
cuteftp安装完毕后，会在软件目录里有一个Scripts目录，现在的版本不象很久以前的了，如今的版里只有一个Sample.vbs，记得几年前的cuteftp里面会有各种各样的vbs文件的。
闲话不多说，打开vbs文件，内容为：

ASP/Visual Basic代码

'This default template script is in VBScript. You can write scripts in your language of choice and save them with the proper extension, or use your an editor specific to that language.
'See the TESDK help file for more details on how the scripting feature works and for information on each supported method and property.
'You must have Windows Scripting Host installed for the COM enabled engine to work. Run the Transfer Engine once to register it (as a COM object) on the target system.
'If you're having problems with running scripts while not logged in, or when trying to run them using MS scheduler, refer to our online knowledgebase for help (http://www.globalscape.com/support)
'Look into c:\temp folder to observe local activity (for testing purposes) or right click on the Transfer Engine icon in the systray and select "show current transfers"
'This sample script performs an anonymous login to ftp://ftp.globalscape.net
'First declare a variable called Mysite. This will hold the reference to the TE COM object.
Dim MySite
'Create a connection object and assign it to the variable
Set MySite = CreateObject("CuteFTPPro.TEConnection")
' Now set each property for the site connection
' You can omit this section to use the default values, but you should at least specify the Host
'The default Protocol is FTP, however SFTP (SSH2), FTPS (SSL), HTTP, and HTTPS can also be used)
MySite.Protocol = "FTP"
MySite.Host = "ftp.globalscape.com"
'following lines are optional since the default is anonymous if no login and password are defined
MySite.Login = "anonymous"
MySite.Password = "user@user.com"
'if necessary, use the UseProxy method and ProxyInfo or SocksInfo properties to connect through a proxy server
MySite.UseProxy = "BOTH"
'now connect to the site (also called called implicitly when most remote methods are called)
MySite.Connect
'perform some logic to verify that the connection was made successfully
If (Not Cbool(MySite.IsConnected)) Then
MsgBox "Could not connect to: " & MySite.Host & "!"
Quit(1)
End If
'The script will now check to see if the local folder c:\temp exists and will create it if necessary
If (Not (MySite.LocalExists("c:\temp"))) Then
MySite.CreateLocalFolder "c:\temp"
End If
'Change TE's local working folder to to c:\temp
MySite.LocalFolder = "c:\temp"
'Check for existence of remote folder "/pub/cuteftp"
b = MySite.RemoteExists("/pub/cuteftp/")
If (Not CBool(b)) Then
'Verify existence of remote folder
MsgBox "Remote folder not found!. Please make sure that the Pub folder exists on the remote site"
Quit(1)
End If
'Now download the index file to the local destination folder
MySite.Download "/pub/cuteftp/index.txt"
'Complete. Show the status of this transfer.
MsgBox "Task done, final status is '" + MySite.Status + "'"
MySite.Disconnect
MySite.Close
'End of sample script. You can save you script and then run it by either selecting it from the Tools > Run Script menu or by double clicking on the script file in Windows

看到这样的文件，你应该知道如何调用一些FTP软件自带的方法了吧？现在，我们用PHP模拟一遍。。。。。
请看详细内容

» 阅读全文

Tags: ftp, com, windows, cuteftp, vbs

PHP | 评论:0 | 阅读:22214

Records:54‹1 2 345 6 7 8 9 10 ›»

« 2008年09月 »