A cópia do código é a seguinte:
<title> Geração de código de barras </ititle>
<%
Rem ============================================================================================
REM = Função: EAN13
REM = Descrição: Gere EAN13 Código de barras padrão com exemplo (código ASP)
Rem = versão: 1.0.0
REM = Autor: O sétimo ângulo reto (7º/semico)
Rem = Data: 2005-08-08 11:57:06
REM = QQ: 11110785
Rem = Grupo QQ: 3773360
REM = aplicável: gerar EAN13 Código de barras padrão conforme necessário
Rem ============================================================================================
Função ean13 (código, w, h)
Dim Guide, Dict, Lencode, Rencode, CStart, Cmid, Cend, Barcode, Lmethod
Guia = array ("aaaaaaaaa", "aababb", "aabbab", "abaabb", "abbaab", "abbbaa", "ababab", "ababab", "ababba", "abbaba")
Set dict = createObject ("script.dictionary")
Dict.add "A", "000110100110010010011110101010001101101110101011101101101101101101101101100010111"
Dict.add "b", "01001110110011011010100100100100111011011001000101001001001001001001001001001010111"
Rencode = Array ("1110010", "1100110", "1101100", "1000010", "1011100", "10011100", "1010000", "10001000", "11101000"))
cstart = "101"
cmid = "01010"
CEND = "101"
Se w <2 então w = 2
Se h <20 então h = 20
cwidth = w'Barcode Unit Warth
Cheight = H'Barcode Altura
'Verifique se o código de barras atende aos padrões
Se Len (código) <> 13 então a resposta.Write "deve ser de 13 bits!": Response.END
para i = 1 a 12
Se fornumérico (MID (código, i, 1)) então
Se eu mode 2 então
rsum = rsum+int (mid (código, i, 1))
outro
lsum = lsum+int (mid (código, i, 1))
final se
outro
Response.Write "Deve ser um código digital!": Response.END
final se
próximo
Se 10-((lsum*3+rsum) mod 10) <> int (direita (código, 1)) então Response.Write "Este código de barras está errado!": Response.END
'Converta o código de barras
Código de barras = cstart
Lmethod = esquerda (código, 1)
'Se lmethod = 0 então lmethod = 1
para i = 2 a 7
BARCODE = BARCODE & MID (DICT (MID (Guia (Lmethod-1), I-1,1)), (7*MID (Código, I, 1) +1), 7)
próximo
BARCODE = BARCODE & CMID
para i = 8 a 13
BARCODE = BARCODE & RENCODE (MID (Código, I, 1))
próximo
BARCODE = BARCODE & CEND
FG = "#000000" 'cor de primeiro plano do código de barras
bg = "#ffffff" 'cor de fundo de código de barras
Response.Write "<Div Style = 'Posição: Absoluto; Largura:" & CWidth*95+60 & "PX; Hight:" & Cheight+30 & "Px; Background:" & BG & ";'>"
'Desenhe um código de barras
para x = 1 a len (código de barras)
Se x <5 ou x> 92 ou (x> 46 e x <51) então
sh = 10
outro
sh = 0
final se
Se MID (código de barras, x, 1) = "1" então
bcolor = fg
outro
bcolor = bg
final se
Response.Write "<Div Style = 'Posição: Absolute; esquerda:" & (X-1)*CWidth+30 & "PX; TOP: 5px; largura:" & cWidth & "PX; Height:" & Cheight+5+Sh & "Px; Background:" & Bcolor & ";'> </div>" "