かなり以前に公開していたアルバムのスクリプトです。
最近は、ほとんど使わないので、詳細は忘れました。
<%@ LANGUAGE = VBScript%>
<%
'*** acrobat read de siyou ***
'Response.ContentType = "text/html"
Response.ContentType = "application/vnd.fdf"
%>
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
'Create an FDF object
Set FdfAcX = Server.CreateObject("FdfApp.FdfApp")
Set FDF = FdfAcX.FDFCreate
'Parse Incoming Data
'Set FDFin = FdfAcX.FDFOpenFromBuf(Request.BinaryRead(Request.TotalBytes))
'title = FDF.FDFGetValue("title")
title=Request.Form("title")
'Fill in the FDF
'INSERT PHOTO
'Const FDFNormalAP = 0
FDF.FDFSetAPRef "photo1", FDFNormalAP, ""&title&".pdf", "logo1"
FDF.FDFSetAPRef "photo2", FDFNormalAP, ""&title&".pdf", "logo2"
'FDF.FDFSetAPRef "photo1", FDFNormalAP, "syobu.pdf", "logo1"
'FDF.FDFSetAPRef "photo2", FDFNormalAP, "syobu.pdf", "logo2"
'Set the PDF file to return to browser
FDF.FDFSetFile "http://pdf.sytes.net/album/album.pdf"
'Send the fdf to the browser
Response.BinaryWrite FDF.FDFSaveToBuf
'Close the FDF Object
'OBJdbConnection.Close
'FDF.Close
'Set OBJdbConnection = Nothing
'Set client = Nothing
Set FdfAcX = Nothing
Set FDF = Nothing
'Set FDFin = Nothing
</SCRIPT>
<%@ LANGUAGE = VBScript%>
<%
'*** acrobat read de siyou ***
'Response.ContentType = "text/html"
Response.ContentType = "application/vnd.fdf"
%>
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
'Create an FDF object
Set FdfAcX = Server.CreateObject("FdfApp.FdfApp")
Set FDF = FdfAcX.FDFCreate
'Parse Incoming Data
'Set FDFin = FdfAcX.FDFOpenFromBuf(Request.BinaryRead(Request.TotalBytes))
'title = FDF.FDFGetValue("title")
title = Request.Form("title")
'title2 = Request.Form("title2")
if title = "bairin" then title2 = "梅林"
if title = "syobu" then title2 = "菖蒲"
if title = "ajisai" then title2 = "あじさい"
if title = "aki" then title2 = "里の秋"
if title = "cosmos" then title2 = "コスモス"
'Fill in the FDF
'INSERT PHOTO
'Const FDFNormalAP = 0
FDF.FDFSetAPRef "photo", FDFNormalAP, ""&title&"ERG.pdf", "logo1"
'FDF.FDFSetAPRef "photo1", FDFNormalAP, "syobu.pdf", "logo1"
'FDF.FDFSetAPRef "photo2", FDFNormalAP, "syobu.pdf", "logo2"
FDF.FDFSetValue "title2", title2, False
'Set the PDF file to return to browser
FDF.FDFSetFile "http://pdf.sytes.net/album/albumERG.pdf"
'Send the fdf to the browser
Response.BinaryWrite FDF.FDFSaveToBuf
'Close the FDF Object
'OBJdbConnection.Close
'FDF.Close
'Set OBJdbConnection = Nothing
'Set client = Nothing
Set FdfAcX = Nothing
Set FDF = Nothing
'Set FDFin = Nothing
</SCRIPT>
[2004年1月13日 20時47分38秒]