<%@ Language=VBScript %>
<%
Dim BarcodeText
BarcodeText = "123456789" 'Barkod olarak üretmek istediğiniz metin
Response.ContentType = "image/png" 'Barkodu görüntü olarak çıktı alacağımız için, MIME tipi olarak image/png belirliyoruz.
Set objFSO = Server.CreateObject("Scripting.FileSystemObject") 'Dosya sistemi nesnesini oluşturuyoruz.
Set objFontFile = objFSO.GetFile(Server.MapPath("barcode_font.ttf")) 'Yazı tipi dosyasının yolu.
Set objImage = Server.CreateObject("FreeBarcode.FontImage") 'FreeBarcode kütüphanesinden FontImage nesnesini oluşturuyoruz.
objImage.Text = BarcodeText 'Barkod metnini belirliyoruz.
objImage.FontPath = objFontFile.Path 'Yazı tipi dosyasının yolunu belirliyoruz.
objImage.Save Response 'Barkodu görüntü olarak çıktı alıyoruz.
Set objImage = Nothing 'Nesneyi yok ediyoruz.
Set objFontFile = Nothing 'Nesneyi yok ediyoruz.
Set objFSO = Nothing 'Nesneyi yok ediyoruz.
%>
<img src="barkod.asp">