付録1-3 ASP

ASPをを使用している場合のプログラム例は、次のとおりです。

<%@ LANGUAGE="VBSCRIPT" %>

<html>
<head>
<title>ASP Sample2</title>
</head>
<body  bgcolor="#FFFFFF">
</body>
</html>
<%
ydmhms=Trim(cstr(year(now)) & (Right("00" & month(now),2)) & cstr(Right("00" & day(now),2)) & cstr(Right("00" & month(now),2)) & cstr(Right("00" & minute(now),2)) & cstr(Right("00" & second(now),2)))
	 filnm = "demo-" & Request.Form("in_d2") & "-" & ydmhms & ".pdf"
%>
<%

'**************** オブジェクト生成 ****************************
Set VFRCompX1=Server.CreateObject("vfreport.client").VrConnect("localhost")

'----- 初期化
hndl = VFRCompX1.VrInit

ret = VFRCompX1. VrSetPrinter("PDF","PDF")

ret = VFRCompX1.VrSetSpoolFileName2("C:\Inetpub\wwwroot\demo\pdf\" & filnm)

'----- 様式指定
ret = VFRCompX1.VrSetForm("C:\Inetpub\wwwroot\demo\HACHUSHO.xml", 4)

'----- ヘッダー
ret = VFRCompX1.VrsOut("発注日付", "2013/12/08")
ret = VFRCompX1.VrsOut("発注番号", "1")
ret = VFRCompX1.VrsOut("会社名", "ZZコンピューター株式会社")
ret = VFRCompX1.VrsOut("郵便番号", "111-1111")
ret = VFRCompX1.VrsOut("住所2", "東京都品川区")
ret = VFRCompX1.VrsOut("住所3", "大川町1-1-1")
ret = VFRCompX1.VrsOut("住所4", "大川ビル1F")
ret = VFRCompX1.VrsOut("電話番号", "03-1234-5678")
ret = VFRCompX1.VrsOut("支払条件", "納入翌月末現金払")
ret = VFRCompX1.VrsOut("出荷先郵便番号", "162-0184")
ret = VFRCompX1.VrsOut("出荷先住所市", "東京都新宿区")
ret = VFRCompX1.VrsOut("出荷先住所1", "小川町XX-X")
ret = VFRCompX1.VrsOut("出荷先住所2", "ニューリバービル7F")
ret = VFRCompX1.VrsOut("発注書番号", "1000522")
ret = VFRCompX1.VrsOut("納品住所1", "東京都新宿区")
ret = VFRCompX1.VrsOut("納品CITY", "新小川町X-XX")

'----- 明細
ret = VFRCompX1.VrsOut("商品名", "Super Visual Formade設計部")
ret = VFRCompX1.VrrOut("単価", 700000.00)
ret = VFRCompX1.VriOut("数量", 2)
ret = VFRCompX1.VrrOut("金額", 1400000.00)
ret = VFRCompX1.VrsOut("明細番号", "SVF01")
ret = VFRCompX1.VrEndRecord()

'----- 印刷実行
ret = VFRCompX1.VrPrint()

'----- 後処理
ret = VFRCompX1.VrQuit()

Set VFRCompX1= Nothing

%>
<SCRIPT LANGUAGE = "VBSCRIPT">

Window.Location.Href = "http://localhost/DEMO/PDF/<%=filnm%>"

'----- クライアントにロケーションを返す
</SCRIPT>
参考

Ver. 1.XのASPコネクトとの違い

  • API関数使用時にハンドルがなくなります。
  • Server.CreateObject("VFRASPX.VFRCompX")というオブジェクト作成時に使用していた設定が、Server.CreateObject("vfreport.client").VrConnect("localhost")という指定に変わります。
  • オブジェクト作成時にVrConnect関数にてHOSTを指定します。
  • 最後にオブジェクトインスタンスをNothingで開放します。
  • .NET版SVF実行部の場合は「SvfrServer.exe」を、Java版SVF実行部を使用している場合は「svf.jar」をあらかじめ起動しておく必要があります。