天碼行空

ASP调用WPS把文档转成PDF

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

<% 'On Error Resume Next dim imgfile, wps, doc, shape, result Set wps = CreateObject("kWPS.Application") response . Write("open COM+ <br>") src_filename="D:\web\\001\\ASP\\Samples\\1.doc" pdf_filename="D:\\web\\001\\ASP\\Samples\\7.9.14.pdf" response . Write("load doc<br>")    Set doc=wps.Documents.Open(src_filename)    response . Write("open doc<br>")    doc.ExportAsFixedFormat pdf_filename,17             '加上扩展名PDF后，由WPS完成转码    response . Write("doc2pdf<br>")    doc.Close()    response . Write("close doc<br>") wps.Quit() response . Write("quit COM+<br>") %>

1. 1.安装WPS.

2. 2.ASP代码

3. 3.因为调用了COM组件.所以要设计COM组件的权限.具体设置如下:
   64位系统会看不到DCOM的组件.需要按这篇来设置:
    

   window2008 64位系统没有office组件问题

   上面设置完毕后,接下来要这样设置:
   
   1.Kingsoft Spreadsheets Application Class(win7/win8的COM里没有这个组件.就不用设置了)
   2.WPS Presentation Application Class
   3.WPS Spreadsheets Application Class
   4.WPS Spreadsheets Application Class
   5.WPS Writer Application Class
   6.WPS文字 文档
   7.WPS演示 演示文稿
   8.WPS表格 工作簿
   .
   .
   .
   等等.
   在上面这些组件上设置如下:
   右击属性:
   a)常规->身份验证级别:调用
   b)标识->交互式用户
   c)安全->启动和激活权限->自定义，按编辑->增加NETWORK SERVICE和Everyone有本地启动本地激活的权限(如果还不行就增加Guests和IIS_IUSRS)
   d)安全->访问权限->自定义，按编辑->增加NETWORK SERVICE和Everyone有本地访问的权限(如果还不行就增加Guests和IIS_IUSRS)

 

就这么多.如果还不行.以后再补充新设置

[source]