Salinan kode adalah sebagai berikut:
<Title> generasi barcode </iteme>
<%
Rem ==================================================================================================================
REM = Fungsi: EAN13
Rem = Deskripsi: Hasilkan Barcode Standar EAN13 dengan contoh (Kode ASP)
Rem = Versi: 1.0.0
REM = Penulis: Sudut Kanan Ketujuh (7/SemiCo)
REM = Tanggal: 2005-08-08 11:57:06
REM = QQ: 11110785
Rem = QQ Group: 3773360
Rem = Berlaku: Hasilkan Barcode Standar EAN13 sesuai kebutuhan
Rem ==================================================================================================================
FUNGSI EAN13 (Kode, W, H)
Panduan Dim, Dikt, Lencode, Rencode, CStart, CMID, Cend, Barcode, LMethod
Panduan = array ("aaaaaaa", "aababb", "aabbab", "abaabb", "abbaab", "abbbaa", "ababab", "ababab", "ababba", "abbaba")
Set Dict = CreateObject ("Scripting.Dictionary")
Dict.add "a", "00011010011001001001110101010110110110001010111011011011011011011011.00010111" "
Dict.add "B", "010011101100110110100001001001110110110010001010010010010010010010010010111" "
Rencode = array ("1110010", "1100110", "1101100", "1000010", "1011100", "10011100", "1010000", "10001000", "11101000")
cStart = "101"
cmid = "01010"
cend = "101"
Jika w <2 maka w = 2
Jika h <20 maka h = 20
cwidth = lebar unit w'barcode
Cheight = tinggi h'barcode
'Periksa apakah kode bar memenuhi standar
jika len (kode) <> 13 maka response.write "harus 13 bit!": response.end
untuk i = 1 hingga 12
if isNumeric (mid, i, 1)) lalu
Jika saya mod 2
rsum = rsum+int (mid (kode, i, 1))
kalau tidak
lsum = lsum+int (mid (kode, i, 1))
akhiri jika
kalau tidak
response.write "Harus menjadi kode digital!": response.end
akhiri jika
Berikutnya
Jika 10-((lsum*3+rsum) mod 10) <> int (kanan (kode, 1)) lalu respons.write "Barcode ini salah!": Response.end
'Konversi Barcode
Barcode = CStart
Lmethod = kiri (kode, 1)
'Jika lmethod = 0 maka lMethod = 1
untuk i = 2 hingga 7
Barcode = Barcode & Mid (Dict (Mid (Guide (LMethod-1), I-1,1)), (7*Mid (Code, I, 1) +1), 7)
Berikutnya
Barcode = Barcode & CMID
untuk i = 8 hingga 13
Barcode = Barcode & Rencode (Mid (Code, I, 1))
Berikutnya
Barcode = Barcode & Cend
FG = "#000000" 'Warna latar depan barcode
bg = "#ffffff" 'Warna latar belakang barcode
response.write "<div style = 'position: absolute; lebar:" & cwidth*95+60 & "px; tinggi:" & cheight+30 & "px; latar belakang:" & bg & ";'>"
'Gambar barcode
untuk x = 1 ke len (barcode)
Jika x <5 atau x> 92 atau (x> 46 dan x <51) maka
sh = 10
kalau tidak
sh = 0
akhiri jika
Jika mid (barcode, x, 1) = "1" lalu
BCOLOR = FG
kalau tidak
BCOLOR = BG
akhiri jika
response.write "<div style = 'Posisi: absolute; kiri:" & (x-1)*cwidth+30 & "px; atas: 5px; lebar:" & cwidth & "px; tinggi:" & cheight+5+sh & "px; latar belakang:" & bcolor & ";'> </div>" "