宣告條碼的網頁 pdf417.asp 內容
Dim arr
Dim obj
Dim pdf

pdf = "我是二維碼"
Set obj = CreateObject("LGBar.PDF417")
arr = obj.WebPDF(Pdf)

Response.ContentType = "image/png"
Response.AddHeader "Content-Disposition","filename=pdf417.png"
Response.BinaryWrite arr
Set obj = Nothing

以圖形方式使用 PDF-417 網頁條碼的語法
<img src="pdf417.asp">