Кода -копия выглядит следующим образом:
<title> генерация штрих -кода </title>
<%
Rem =======================================================================================
REM = функция: EAN13
REM = Описание: генерировать стандартный штрих -код EAN13 с примером (код ASP)
Rem = версия: 1.0.0
Rem = автор: седьмой прямой угол (7th/semiCo)
REM = Дата: 2005-08-08 11:57:06
REM = QQ: 11110785
Rem = QQ Group: 3773360
REM = применимо: генерируйте стандартный штрих -код EAN13 по мере необходимости
Rem =======================================================================================
Функция EAN13 (Code, W, H)
Dim Guide, Dict, Lencode, Rencode, CSTART, CMID, CEND, BALCODE, LMETHOD
Guide = Array ("aaaaaaaaa", "aababb", "aabbab", "abaabb", "abbaab", "Abbbaa", "Ababab", "Ababab", "Абабба", "Аббаба")
Установить dict = createObject ("scripting.dictionary")
DICT.Add "A", "00011010011001001001111010101000110110110001010111011011011011011011011000101111"
Dict.add "b", "01001110110011011010100001001111101101100100010100100100100100100100110101111"
Rencode = массив ("1110010", "1100110", "1101100", "1000010", "1011100", "10011100", "1010000", "10001000", "11101000")
cStart = "101"
cmid = "01010"
cend = "101"
Если w <2, то W = 2
Если H <20, то H = 20
CWIDTH = W'Barcode Ширина
cheight = h'barcode высота
'Проверьте, соответствует ли штрих -код стандартам
Если Len (код) <> 13, то response.write "должен быть 13 бит!": response.end
для i = 1-12
Если isnumeric (mid (code, i, 1)) тогда
Если я мод 2, тогда
rsum = rsum+int (mid (code, i, 1))
еще
lsum = lsum+int (mid (code, i, 1))
конец, если
еще
response.write "Должен быть цифровой код!": response.end
конец, если
следующий
Если 10-((lsum*3+rsum) mod 10) <> int (right (код, 1)), затем response.write "Этот штрих-код неверен!": response.end
'Преобразовать штрих -код
Штрих -код = cStart
Lmethod = слева (код, 1)
'Если lmethod = 0, то lmethod = 1
для i = 2-7
Штрих-код = штрих-код и середина (DICT (Mid (Guide (Lmethod-1), I-1,1)), (7*Mid (Code, I, 1) +1), 7)
следующий
Штрих -код = штрих -код и CMID
для i = от 8 до 13
Barcode = Barcode & Rencode (Mid (Code, I, 1)))
следующий
Штриховой код = штрих -код и Кенд
fg = "#000000" 'Barkcode Barkcode
bg = "#ffffff" 'Фон штрих -кода
response.write "<div style = 'position: absolute; width:" & cwidth*95+60 & "px; height:" & cheight+30 & "px; фон:" & bg & ";'>"
'Нарисуйте штрих -код
для x = 1 до Лена (штрих -код)
Если x <5 или x> 92 или (x> 46 и x <51), тогда
SH = 10
еще
sh = 0
конец, если
Если середина (штрих -код, x, 1) = "1", тогда
bcolor = fg
еще
bcolor = bg
конец, если
response.write "<div style = 'position: absolute; слева:" & (x-1)*cwidth+30 & "px; top: 5px; width:" & cwidth & "px; height:" & cheight+5+sh & "px; фон:" & bcolor & ";> </div>"