<%@ LANGUAGE = VBScript%>
<%
'/////FDF ToolKit for ActiveX を用いたPDFの作り方-2005.4.13 ////////////////////////////////////////'
'１．テンプレート用FDFが不要です。
'２．PDF（FDF）の出力方法には３通りあります
' （１）ダウンロード：クライアントにFDFファイルを名を付けてアタッチメント（ダウンロード画面表示）
' （２）ファイル作成：サーバにFDFファイルを名を付けて保存（HTMLにハイパーリンク表示）
' （３）画面表示：PDFを画面に直接表示
'///////////////////////////////////////////////////////////////////////////////////////////////////'
Dim ransuu,dates,times,fdfoutname
'--入力フォームデータ
p=request("p") '機能区分 p=f(入力フォーム） p=fdf(FDF作成）
out=request("out") '出力方法 dload(ダウンロード） file(サーバにファイル作成） gamen（画面に直接表示）
p_kenmei=request("f_kenmei")
p_kianbi=request("f_kianbi")
p_kiansya=request("f_kiansya")
p_naiyo=request("f_naiyo")
'--入力フォーム表示
if p = "" then
call informdisp()
Response.End
end if
'以下FDF処理
'--出力ファイル名作成 ファイル名：fdfsave-yymmddhhmmss-4桁の乱数.fdf
dates=Date '年月日yymmdd
times=Time '時分秒hhmmss
yymmdd=Replace(dates,"/","") 'yy/mm/dd の/を削除し数字のみにする
hhmmss=Replace(times,":","") 'hh:mm:ss の:を削除し数字のみにする
Randomize '乱数の初期化
ransuu = int(10000*Rnd) '乱数 出力ファイル名の一部に使用(ファイル名の重複をさける）
fdfoutname="fdfsave-" & yymmdd & hhmmss & CStr(ransuu) & ".fdf" 'FDFファイル名
Dim FdfAcx,resFDF
'--FDF出力方法の振り分け
Select Case out
Case "dload"
call dload_fdfout() 'FDFファイルダウンロード。ダウンロード画面表示。
Case "file"
call file_fdfout() 'サーバにファイル保存。画面にハイパーリンクを表示。クリックでPDF表示。
Case "gamen"
call gamen_fdfout() 'PDF画面表示
End Select
'###サブルーチン###
'FDFファイルをクライアントにダウンロードする----------------------------------------
sub dload_fdfout()
'FDF ActiveX オブジェクトの定義
Set FdfAcx = Server.CreateObject("FdfApp.FdfApp")
'テンプレートFDFオープン（入力FDFの指定方法１）
'Mypath = server.mappath("./pdf/ringisyo-templatefdf.fdf") 'テンプレートFDFのURL（相対パス）
'Set resFDF = FdfAcx.FDFOpenFromFile(Mypath)
'新しいFDF生成 （入力FDFの指定方法２）
Set resFDF = FdfAcX.FDFCreate
'テンプレートFDF内の変数(/V key)に値を設定
resFDF.FDFSetValue "p_kenmei",p_kenmei,False
resFDF.FDFSetValue "p_kianbi",p_kianbi,False
resFDF.FDFSetValue "p_kiansya",p_kiansya,False
resFDF.FDFSetValue "p_naiyo",p_naiyo,False
resFDF.FDFSetFile "http://127.0.0.1/actxfdf/pdf/ringisyo-form.pdf" 'テンプレートPDFのURL（フルパスが望ましい）
'設定結果のFDFをファイル名を付けてクライアントでダウンロード
Response.ContentType = "application/vnd.fdf" 'MIMEタイプ FDF
Response.AddHeader "Content-Disposition","attachment; filename=" & fdfoutname 'アタッチメント ファイル名の設定
Response.BinaryWrite resFDF.FDFSaveToBuf 'FDFデータをバッファーに出力
'クローズ
resFDF.FDFClose
set resFDF = nothing
set FdfAcx = nothing
End sub
'FDFファイルをサーバに保存する------------------------------------------
sub file_fdfout()
'FDF ActiveX オブジェクトの定義
Set FdfAcx = Server.CreateObject("FdfApp.FdfApp")
'テンプレートFDFオープン（入力FDFの指定方法１）
'Mypath = server.mappath("./pdf/ringisyo-templatefdf.fdf") 'テンプレートFDFのURL（相対パス）
'Set resFDF = FdfAcx.FDFOpenFromFile(Mypath)
'新しいFDF生成 （入力FDFの指定方法２）
Set resFDF = FdfAcX.FDFCreate
'テンプレートFDF内の変数(/V key)に値を設定
resFDF.FDFSetValue "p_kenmei",p_kenmei,False
resFDF.FDFSetValue "p_kianbi",p_kianbi,False
resFDF.FDFSetValue "p_kiansya",p_kiansya,False
resFDF.FDFSetValue "p_naiyo",p_naiyo,False
resFDF.FDFSetFile "http://127.0.0.1/actxfdf/pdf/ringisyo-form.pdf" 'テンプレートPDFのURL（フルパスが望ましい）
'設定結果のFDFをファイル名を付けて保存
resFDF.FDFSavetoFile "C:\Inetpub\wwwroot\actxfdf\tmp\" & fdfoutname 'FDFファイルの保存物理パス（フルパス）
'クローズ
resFDF.FDFClose
set resFDF = nothing
set FdfAcx = nothing
'HTMLにハイパーリンクを表示
Call htmlheader
Response.write "<body style=""font-size:15px"">" & chr(13)
Response.write "<p align=center style=""font-size:15px"">FDFファイルを作成しました・・・ファイル名をクリックして下さい。<br><br>" & chr(13)
Response.write "<a href=""http://127.0.0.1/actxfdf/tmp/" & fdfoutname & """>" & fdfoutname & "</a></p>" & chr(13) '保存FDFファイルのハイパーリンク
Response.write "</body></html>" & chr(13)
End sub
'PDFをクライアントの画面に直接表示する----------------------------------------
sub gamen_fdfout()
'FDF ActiveX オブジェクトの定義
Set FdfAcx = Server.CreateObject("FdfApp.FdfApp")
'テンプレートFDFオープン（入力FDFの指定方法１）
'Mypath = server.mappath("./pdf/ringisyo-templatefdf.fdf") 'テンプレートFDFのURL（相対パス）
'Set resFDF = FdfAcx.FDFOpenFromFile(Mypath)
'新しいFDF生成 （入力FDFの指定方法２）
Set resFDF = FdfAcX.FDFCreate
'テンプレートFDF内の変数(/V key)に値を設定
resFDF.FDFSetValue "p_kenmei",p_kenmei,False
resFDF.FDFSetValue "p_kianbi",p_kianbi,False
resFDF.FDFSetValue "p_kiansya",p_kiansya,False
resFDF.FDFSetValue "p_naiyo",p_naiyo,False
resFDF.FDFSetFile "http://127.0.0.1/actxfdf/pdf/ringisyo-form.pdf" 'テンプレートPDFのURL（フルパスが望ましい）
'設定結果のFDFをファイル名を付けてクライアントでダウンロード
Response.ContentType = "application/vnd.fdf" 'MIMEタイプ FDF
'Response.AddHeader "Content-Disposition","attachment; filename=" & fdfoutname '画面表示の場合ファイル名不要
Response.BinaryWrite resFDF.FDFSaveToBuf 'FDFデータをバッファーに出力
'クローズ
resFDF.FDFClose
set resFDF = nothing
set FdfAcx = nothing
End sub
'入力フォーム画面-------------------------------------------
sub informdisp()
Call htmlheader
Response.write "<body style=""font-size:15px"">" & chr(13)
Response.write " <form method=post action=""generatefdf-sample.asp"" name=f target='_self'>" & chr(13)
Response.write " <input type=hidden name=p value=""fdf"">" & chr(13)
Response.write " <TABLE cellpadding=0 cellspacing=0 bgcolor=navy border=0><TR><TD>" & chr(13)
Response.write " <table style='font-size:15px' cellpadding=3 cellspacing=1><caption style='font-weight:bold;font-size:16px;color:#ffffff'>稟議書作成</caption>" & chr(13)
Response.write " <tr bgcolor=lightcyan><td nowrap>件名</td><td><input type=text name=f_kenmei value="""" size=60 maxlength=80></td></tr>" & chr(13)
Response.write " <tr bgcolor=lightcyan><td nowrap>起案日</td><td nowrap>" & chr(13)
Response.write " <input type=text name=f_kianbi value="""" size=40 maxlength=20></td></tr>" & chr(13)
Response.write " <tr bgcolor=lightcyan><td nowrap>起案者</td><td nowrap>" & chr(13)
Response.write " <select name=f_busyo>" & chr(13)
Response.write " <option>総務課" & chr(13)
Response.write " <option>広報課" & chr(13)
Response.write " <option>営業部" & chr(13)
Response.write " <option>システム開発部１課" & chr(13)
Response.write " <option>システム開発部２課" & chr(13)
Response.write " </slect><input type=text name=f_kiansya value="""" size=40 maxlength=40><small>（所属部署、氏名</small>" & chr(13)
Response.write " </td></tr>" & chr(13)
Response.write " <tr bgcolor=lightcyan><td nowrap>内容<br><small>（1000文字以内）</small></td><td><textarea name=f_naiyo rows=6 cols=76 wrap=hard></textarea></td></tr>" & chr(13)
Response.write " <tr bgcolor=lightcyan> <td colspan=2 align=center nowrap>" & chr(13)
Response.write " <input type=radio name=out value=""dload"">ダウンロード<input type=radio name=out value=""file"" >FDFファイル作成<input type=radio name=out value=""gamen"" >画面直接表示 " & chr(13)
Response.write " <input type=button name=subm value=""作 成"" CLASS=botan1 onClick=""form_check()"">" & chr(13)
Response.write " <input type=reset name=subm value=""リセット"" CLASS=botan1></td></tr>" & chr(13)
Response.write " </table>" & chr(13)
Response.write " </TD></TR></TABLE>" & chr(13)
Response.write " </form>" & chr(13)
Response.write " </body></html>" & chr(13)
End sub
'HTML ヘッダー---------------------------------------------
sub htmlheader() '入力フォーム画面
Response.write "<html>" & chr(13)
Response.write "<head>" & chr(13)
Response.write "<title>稟議書入力フォーム</title>" & chr(13)
Response.write "<meta http-equiv=""Content-Type"" content=""text/html; charset=Shift_JIS"">" & chr(13)
Response.write "<SCRIPT language=javascript>" & chr(13)
Response.write "<!--" & chr(13)
Response.write "function form_check(){" & chr(13)
Response.write " document.f.submit() " & chr(13)
Response.write "}" & chr(13)
Response.write "//-->" & chr(13)
Response.write "</SCRIPT>" & chr(13)
Response.write "</head>" & chr(13)
End sub
%>
|
（２） *2,*3,*4：処理結果 OUT①（*2）：PDFをクライアント画面に表示します。 OUT②（*3）：処理結果のFDFファイルをサーバーに保存します。クライアント画面には、ハイパーリンクを 表示します。クリックによりPDFをクライアント画面に表示します。 このFDFファイルは削除されず残ります。 OUT③（*4）：処理結果のFDFファイルのダウンロード画面をクライアントに表示します。 （３） *5：FDFファイル（\tmpフォルダに保存） 例. fdfsave-200505131454206414.fdf fdfsave-：固定 200505131454206414：年月日＋時分秒＋4桁の乱数（重複を避けるため） （４） *6：テンプレートPDF（\pfdフォルダに保存） ・様式：>ringisyo-form.pdfを参照 ・テンプレートPDFの作成方法は、「PerlでPDF文書を作成する～超簡単、PDF文書を作成する！」を参照 （５）サンプルASPのファイル構成（このファイル全体をダウンロードできます）
>FDF ToolKit インストール方法
（注２）Adobe Acrobat4.0以上が必要です
最終更新日：2008.8.25(Toolkit download site 変更）