Die Codekopie lautet wie folgt:
<title> Barcode Generation </title>
<%
Rem ======================================================================================
REM = Funktion: EAN13
REM = Beschreibung: Generieren Sie EAN13 Standard Barcode mit Beispiel (ASP -Code)
Rem = Version: 1.0.0
REM = Autor: Der siebte rechte Winkel (7./Semico)
REM = Datum: 2005-08-08 11:57:06
Rem = QQ: 11110785
REM = QQ -Gruppe: 3773360
REM = anwendbar: Generieren Sie EAN13 Standard -Barcode nach Bedarf
Rem ======================================================================================
Funktion EAN13 (Code, W, H)
Dim Guide, Dict, Lencode, Rencode, Cstart, CMID, Cend, Barcode, LMethod
Guide = Array ("Aaaaaaaaa", "Aababb", "Aabbab", "Abaabb", "Abbaab", "Abbbaa", "Ababab", "Ababab", "Ababba", "Abbaba")
Setzen Sie dict = createObject ("scripting.Dictionary")
Dict.add "a", ",", 0001101001100100100111010100011011010101011101101101101101101100001011 "
Dict.add "b", "0100111011001101101000010010011101110010001010010010010010010010111"
Rencode = array ("1110010", "1100110", "1101100", "1000010", "1011100", "10011100", "1010000", "10001000", "11101000")
cstart = "101"
CMID = "01010"
Cend = "101"
Wenn w <2 dann w = 2
Wenn h <20 dann h = 20
CWIDTH = W'BARCODE Einheit Breite
Chight = H'barcode Höhe
»Überprüfen Sie, ob der Barcode die Standards erfüllt
Wenn Len (Code) <> 13 dann Antwort.Write "muss 13 Bits sein!": Antwort.end
für i = 1 bis 12
Wenn isnumerisch ist (Mid (Code, i, 1)), dann
Wenn ich mod 2 dann
rsum = rsum+int (Mid (Code, i, 1))
anders
lsum = lsum+int (Mid (Code, i, 1))
Ende wenn
anders
Antwort.Write "Muss ein digitaler Code sein!": Antwort.end
Ende wenn
nächste
Wenn 10-((lsum*3+rsum) mod 10) <> int (rechts (Code, 1)) dann Antwort.Write "Dieser Barcode ist falsch!": Antwort.end
'Barcode konvertieren
Barcode = cstart
LMethod = links (Code, 1)
'Wenn LMethod = 0 dann LMethod = 1
für i = 2 bis 7
barcode = barcode & Mid (dict (Mid (Guide (Leitfaden (LMethod-1), I-1,1)), (7*Mid (Code, I, 1) +1), 7)
nächste
barcode = barcode & cmid
für i = 8 bis 13
barcode = barcode & rencode (Mid (Code, i, 1))
nächste
barcode = barcode & cend
fg = "#000000" 'Barcode -Vordergrundfarbe
BG = "#ffffff" 'Barcode -Hintergrundfarbe
Antwort.Write "<div style = 'Position: absolut; Breite:" & cwidth*95+60 & "PX; Höhe:" & Chight+30 & "PX; Hintergrund:" & bg & ";'>"
'Barcode zeichnen
für x = 1 bis len (Barcode)
Wenn x <5 oder x> 92 oder (x> 46 und x <51) dann
Sh = 10
anders
Sh = 0
Ende wenn
Wenn mittel (Barcode, x, 1) = "1" dann
Bcolor = fg
anders
Bcolor = bg
Ende wenn
Antwort.Write "<div style = 'Position: absolut;