日期:2014-05-16 浏览次数:21068 次
<%
RunPdfPath = "D:\wwwroot\ziliao\a.pdf"
RunSwfPath = "D:\wwwroot\ziliao\b.swf"
strCmd = "C:\FlashPaper\FlashPrinter.exe "&RunPdfPath&" -o "&RunSwfPath&""
Set Shell = Server.CreateObject("WScript.Shell")
Runcode = Shell.Run(strCmd,0,True)
Set Shell=Nothing
Response.Write strCmd
If Not isempty(Runcode) And Runcode=0 Then
Response.Write("操作成功执行<br>")
ElseIf Not isempty(Runcode) Then
Response.Write("操作执行失败<br>")
Else
End If
%>
<%
Dim strpdfFile ' pdf的文件名
Dim strswfFile ' swf的文件名
Dim strCmd ' 命令行
strpdfFile = "D:\wwwroot\a.pdf"
strswfFile = "D:\wwwroot\m.swf"
'命令行
strCmd = "C:\Program Files\SWFTools\pdf2swf "&strpdfFile&" -o "&strswfFile&" -T 9 -f -s languagedir=C:\Program Files\SWFTools\xpdf\xpdf-
chinese-simplified"
'执行命令行
Dim objShell
Dim intSecceed
Set objShell = Server.CreateObject("WScript.Shell")
Response.Write(strCmd & "<hr>")
intSecceed = objShell.Run(strCmd,0,True)
If intSecceed = 0 Then
Response.Write("命令成功执行,返回码:" & intSecceed)
Else
Response.Write("命令执行失败,返回码:" & intSecceed)
End If
%>