La copia del código es la siguiente:
<title> Barcode Generation </title>
<%
Rem ======================================================================================
REM = Función: Ean13
REM = Descripción: Genere el código de barras estándar EAN13 con ejemplo (código ASP)
REM = Versión: 1.0.0
REM = Autor: el séptimo ángulo recto (7º/Semico)
REM = Fecha: 2005-08-08 11:57:06
REM = QQ: 11110785
REM = Grupo QQ: 3773360
REM = Aplicable: Genere el código de barras estándar EAN13 según sea necesario
Rem ======================================================================================
Función EAN13 (Código, W, H)
Guía dim, dict, lencode, rencode, cStart, cmid, cend, código de barras, lmethod
Guía = array ("aaaaaaaa", "aababb", "aabbab", "abaabb", "abbaab", "abbbaa", "ababab", "ababab", "ababba", "abbaba")
Establecer dict = createObject ("scripting.dictionary")
Dict.add "a", "0001101001100100100111101010100011011011000101010111011011011011011011011000111111" "
Dict.add "b", "0100111011001101101010000100100111011011001000101001001001001001001001001011111" "
Rencode = array ("1110010", "1100110", "1101100", "1000010", "1011100", "10011100", "1010000", "10001000", "11101000")
CStart = "101"
cmid = "01010"
cend = "101"
Si w <2 entonces w = 2
Si h <20 entonces h = 20
CWIDTH = W'BARCODE UNIT ANCHO
Cheight = H'BARCODE altura
'Compruebe si el código de barras cumple con los estándares
Si Len (código) <> 13 entonces Response.write "¡Debe ser 13 bits!": Respuesta.End
para i = 1 a 12
if isNumérico (medio (código, i, 1)) entonces entonces
Si yo modifico 2 entonces
rsum = rsum+int (mid (código, i, 1))
demás
lsum = lsum+int (mid (código, i, 1))
final si
demás
Response.write "¡Debe ser un código digital!": Respuesta.End
final si
próximo
Si 10-((LSUM*3+RSUM) MOD 10) <> int (derecho (código, 1)) luego respuesta.write "¡Este código de barras está mal!": Respuesta.End
'Convertir código de barras
Código de barras = CStart
Lmethod = izquierda (código, 1)
'Si lmethod = 0 entonces lmethod = 1
para i = 2 a 7
BarCode = Barcode & Mid (Dict (Mid (Guía (LMethod-1), I-1,1)), (7*Mid (Código, I, 1) +1), 7)
próximo
código de barras = código de barras y cmid
para i = 8 a 13
BarCode = Barcode & Rencode (Mid (código, i, 1))
próximo
código de barras = código de barras y cend
FG = "#00000000" 'Código de barras de primer plano Color
BG = "#fffffff" 'Código de barras de fondo
Respuesta.write "<Div style = 'Posición: Absolute; Ancho:" & CWidth*95+60 & "Px; Height:" & Cheight+30 & "Px; Background:" & Bg & ";'>"
'Dibuja un código de barras
para x = 1 a len (código de barras)
Si x <5 o x> 92 o (x> 46 y x <51) entonces
sh = 10
demás
sh = 0
final si
Si Mid (código de barras, x, 1) = "1" entonces
bcolor = fg
demás
bcolor = bg
final si
Respuesta.Write "<Div style = 'Position: Absolute; Izquierda:" & (X-1)*CWidth+30 & "Px; Top: 5px; Ancho:" & Cwidth & "Px; Height:" & Cheight+5+Sh & "Px; Background:" & Bcolor & ";'> </div>"