易捷 > PDF教程 > PDF开发/编程技术 >

使用ASP批量将Word转换成PDF方法

分享到:
发布时间:2013-05-23 18:00   浏览次数:

老颜让我给他想想用asp把word批量转换成pdf的方法。单纯用asp肯定是实现不了的了。于是就去网上搜索一些asp组件,在google上找了很久,终于给我发现这个好东西easyPDF SDK(哈哈,这不是AD啊,因为作者与我一点关系都没有),这个组件确实很强大,基本上能想得出来的编程语言他都能支持,而且调用非常简单,官方的说法就是三条语句就能实现一些常见的格式转成PDF,还可以把PDF转成其他格式的。于是马上下载了个试用版试了一下,确实很好用,配置也简单。一下是我的实践过程:

首先到BCL官方网站下载easyPDF SDK
http://www.pdfonline.com/downloads/easypdfsdk/demos_easypdfsdk.asp
根据提示框输入一些基本信息,可以随便填,提交后会得到一个下载链接。

下载完了安装到服务器上,根据提示,如果需要重启就重启一下服务器。
完成后,需要配置一下该组件,在运行中输入dcomcnfg,在弹出的窗口中,选择组件服务-》计算机-》我的电脑-》DCOM配置,找到BCL easyPDF SDK 5 Loader,右击,选属性-》安全,在该项中的三个都添加Internet来宾帐户。
具体这样,点自定义-》编辑-》添加-》高级-》立即查找,在下面用户列表中找到IUSR_你的计算机名,确定就可以添加该用户了。然后在原来的安全性选项卡中会看到刚添加进来的用户“Internet 来宾帐户”,点中他,在下面权限栏目中把所有的允许权限选中。同意的添加访问权限和配置权限。最后点确定完成。
然后把这个Demo添加到IIS的虚拟目录或者直接把他拷到网站的根目录下,例如我建的是doc2pdf目录,然后在本地浏览器中输入http://localhost/doc2pdf/index.asp就可以访问了。把你需要转换的word文档拷到该目录的word目录中,所有生成的文档将会全部放到pdf文件夹中。

index.asp文件的内容是:
<%
sub ConvertDoc2Pdf(filename) ’文档转换函数
Dim oPrinter
Dim oPrintJob ' For ASP, instead of getting the Printer object directly,

' get it through the easyPDF SDK Loader object.

Set oLoader = Server.CreateObject("easyPDF.Loader.5")
Set oPrinter = oLoader.LoadObject("easyPDF.Printer.5")
Set oPrintJob = oPrinter.PrintJob
On Error Resume Next
response.Write(Server.MapPath("./word/"&filename)&"<br>")
response.Write(Server.MapPath("./pdf/"&filename&".pdf")&"<br>")
Call oPrintJob.PrintOut(Server.MapPath("./word/"&filename), Server.MapPath("./pdf/"&filename&".pdf"))

If Err Then
Response.Write("<B>Failed!</B> " + Err.Description + "<BR>")
Response.Write("Conversion Result: " + oPrintJob.ConversionResultMessage + "<BR>")
Response.Write("Printer Result: " + oPrintJob.PrinterResultMessage + "<BR>")
Response.End
End If
Response.Write("<B>Convert file "&filename&" Success!</B> <a href='pdf/"&filename&".pdf'>Click here to download "&filename&".pdf</a><BR>")
end sub

sub ListFolderContents(path)
set fs = CreateObject("Scripting.FileSystemObject")
set folder = fs.GetFolder(path)
for each item in folder.Files
ConvertDoc2Pdf(item.Name) ‘调用转换函数
next
end sub

call ListFolderContents(server.MapPath("word")&"\")
%>

由于下载的是使用版本,所以生成的文档下面有一个广告水印,要你购买Licence才能把广告去掉,我再去看了一下改产品的价格,oh,my god,12000RMB!!!!不得了,为了支持一下盗版市场,在网上去找破解版的,但是找了半天也没有找到,郁闷,:)难道他们打击盗版比微软做得还好?不过相信网络那么大,应该是会有的,只是我一时没能找到而已,大家如果也有同感,也喜欢这个东东,帮忙找一下注册码了,不过记得哦,找到的时候不要忘记告诉我哦。先谢啦。

 

相关文章推荐

易捷服务大全

在线PDF转换工具

Word

在线Word转PDF

http://wordtopdf.yjpdf.com
 
Excel

在线Excel转PDF

http://exceltopdf.yjpdf.com
 
PPT

在线PPT转PDF

http://ppttopdf.yjpdf.com

本类最新文章

本类本月热门

大家在关注…