코드 사본은 다음과 같습니다.
<title> 바코드 생성 </title>
<%
rem =================================================================================================================================
REM = 기능 : EAN13
REM = 설명 : 예제 (ASP 코드)와 함께 EAN13 표준 바코드 생성
REM = 버전 : 1.0.0
REM = 저자 : 일곱 번째 직각 (7 번째/세미코)
REM = 날짜 : 2005-08-08 11:57:06
REM = QQ : 11110785
REM = QQ 그룹 : 3773360
REM = 적용 가능 : 필요에 따라 EAN13 표준 바코드를 생성합니다
rem =================================================================================================================================
함수 EAN13 (Code, W, H)
Dim Guide, Dict, Lencode, Rencode, Cstart, CMID, CEND, BARCODE, LMETHOD
가이드 = 배열 ( "aaaaaaaa", "aababb", "aabbab", "abaabb", "abbaab", "abbbaa", "ababab", "ababab", "ababba", "abbaba"))
set dict = createobject ( "scripting.dictionary")
Dict.add "A", "000110100110010010010011110110110110001011101101101101101101101100010111" "
dict.add "b", "0100111011001101101101001001001111011100100100100100100100100100100100101111"
Rencode = array ( "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 (Code) <> 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))
끝 If
또 다른
response.write "디지털 코드 여야합니다!": response.end
끝 If
다음
10- ((lsum*3+rsum) mod 10) <> int (오른쪽 (코드, 1)) 그런 다음 응답. "이 바코드가 잘못되었습니다!": respons.end.
'바코드를 변환하십시오
바코드 = cstart
lmethod = 왼쪽 (코드, 1)
'lmethod = 0이면 lmethod = 1입니다
i = 2 ~ 7의 경우
Barcode = Barcode & Mid (dict (mid (mid (lmethod-1), i-1,1)), (7*Mid (Code, I, 1) +1), 7)
다음
바코드 = 바코드 및 CMID
i = 8 ~ 13의 경우
바코드 = 바코드 & Rencode (MID (Code, I, 1))
다음
바코드 = 바코드 및 end
fg = "#000000" '바코드 전경 색상
bg = "#ffffff" '바코드 배경색
응답. "<div style = '위치 : 절대; 너비 :"& cwidth*95+60 & "px; 높이 :"& cheight+30 & "px; 배경 :"& bg & ";'>"
'바코드를 그리십시오
x = 1에서 Len (바코드)
x <5 또는 x> 92 또는 (x> 46 및 x <51)이면
sh = 10
또 다른
sh = 0
끝 If
Mid (바코드, x, 1) = "1"인 경우
bcolor = fg
또 다른
bcolor = bg
끝 If
응답. "<div style = '위치 : 절대; 왼쪽 :"& (x-1)*cwidth+30 & "px; 상단 : 5px; 너비 :"& cwidth & "px; height :"& cheight+5+sh & "px; 배경 :"& bcolor & ";'</div."