La copie de code est la suivante:
<Title> Barcode Generation </Title>
<%
Rem ======================================================================================
REM = fonction: ean13
REM = Description: Générez le code-barres standard EAN13 avec exemple (code ASP)
REM = version: 1.0.0
REM = auteur: le septième angle droit (7e / Semico)
REM = Date: 2005-08-08 11:57:06
REM = QQ: 11110785
REM = groupe QQ: 3773360
REM = applicable: générer un code-barres standard EAN13 au besoin
Rem ======================================================================================
Fonction 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")
Set dict = createObject ("scripting.dictionary")
Dict.add "A", "00011010011001001001111010101000110110110001010111011011011011011011011100010111" "
Dict.add "b", "01001110110011011010100001001001110110110010001010010010010010010010010011111"
Rencode = Array ("1110010", "1100110", "1101100", "1000010", "1011100", "10011100", "1010000", "10001000", "11101000")
cStart = "101"
cmid = "01010"
cend = "101"
Si w <2 alors w = 2
Si h <20 alors h = 20
cwidth = w'barcode width
Cheight = H'Barcode hauteur
'Vérifiez si le code-barres répond aux normes
Si Len (code) <> 13 alors réponse.Write "doit être 13 bits!": Response.end
pour i = 1 à 12
Si ISNUMIERIER (MID (CODE, I, 1)) alors
Si je mod 2 alors
rsum = rsum + int (mid (code, i, 1))
autre
lsum = lsum + int (mid (code, i, 1))
terminer si
autre
Response.Write "Doit être un code numérique!": Response.end
terminer si
suivant
Si 10 - ((lsum * 3 + rsum) mod 10) <> int (Right (code, 1)) alors réponse.Write "Ce code à barres est faux!": Response.end
'Convertir le code-barres
Barcode = CSTART
LMethod = Left (code, 1)
'Si lMethod = 0 alors lMethod = 1
pour i = 2 à 7
Barcode = Barcode & Mid (Dict (Mid (Guide (LMETHOD-1), I-1,1)), (7 * Mid (code, i, 1) +1), 7)
suivant
Barcode = Barcode & CMID
pour i = 8 à 13
Barcode = Barcode & Rencode (Mid (code, i, 1))
suivant
Barcode = Barcode & Cend
FG = "# 000000" 'Couleur de premier plan à barres
BG = "# ffffff" 'Couleur d'arrière-boue à barres
Response.Write "<div style = 'position: absolue; largeur:" & cwidth * 95 + 60 & "px; hauteur:" & cheight + 30 & "px; fond:" & bg & ";'>"
'Dessiner le code-barres
pour x = 1 à Len (Barcode)
Si x <5 ou x> 92 ou (x> 46 et x <51)
sh = 10
autre
sh = 0
terminer si
Si mi-(code-barres, x, 1) = "1" alors
bcolor = fg
autre
bcolor = bg
terminer si
Response.Write "<div style = 'position: Absolute; Left:" & (x-1) * cwidth + 30 & "px; top: 5px; largeur:" & cwidth & "px; hauteur:" & cheight + 5 + sh & "px; fond:" & bcolor & ";'> </v>"