การคัดลอกรหัสมีดังนี้:
<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: 3773360
REM = ใช้ได้: สร้างบาร์โค้ดมาตรฐาน EAN13 ตามต้องการ
rem ===================================================================================================
ฟังก์ชั่น EAN13 (รหัส, W, H)
Dim Guide, dict, lencode, rencode, cstart, cmid, cend, บาร์โค้ด, lmethod
Guide = Array ("Aaaaaaaa", "Aababb", "Aabbab", "Abaabb", "Abbaab", "Abbbaa", "Ababab", "Ababab", "Ababba", "Abbaba")
ตั้งค่า dict = createObject ("Scripting.dictionary")
dict.add "A", "00011010011001001001111010101000110110110001010111011011011011011011011011011101100011111111111111011011011011011011011011011011000101111111111111111111111
dict.add "b", "01001110110011011010101000010010011101101100100010100100100100100100100100100100101111111100100010010010010010010010010010010010010111"
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 (รหัส) <> 13 แล้วตอบกลับเขียน "ต้องเป็น 13 บิต!": response.end
สำหรับ i = 1 ถึง 12
ถ้า isnumeric (mid (code, i, 1)) แล้ว
ถ้าฉัน mod 2 แล้ว
rsum = rsum+int (mid (รหัส, i, 1))
อื่น
lsum = lsum+int (mid (รหัส, i, 1))
สิ้นสุดถ้า
อื่น
Response.write "ต้องเป็นรหัสดิจิตอล!": response.end
สิ้นสุดถ้า
ต่อไป
ถ้า 10-((lsum*3+rsum) mod 10) <> int (ขวา (รหัส, 1)) จากนั้น response.write "บาร์โค้ดนี้ผิด!": response.end
'แปลงบาร์โค้ด
บาร์โค้ด = CSTART
lmethod = ซ้าย (รหัส, 1)
'ถ้า lmethod = 0 แล้ว lmethod = 1
สำหรับ i = 2 ถึง 7
บาร์โค้ด = บาร์โค้ด & mid (dict (mid (คู่มือ (lmethod-1), i-1,1)), (7*mid (รหัส, i, 1) +1), 7), 7), 7), 7), 7), 7)
ต่อไป
บาร์โค้ด = บาร์โค้ดและ CMID
สำหรับ i = 8 ถึง 13
BARCODE = BARCODE & RENCODE (MID (รหัส, i, 1))
ต่อไป
บาร์โค้ด = บาร์โค้ด & cend
fg = "#000000" 'สีพื้นหน้าบาร์โค้ด
bg = "#ffffff" 'สีพื้นหลังของบาร์โค้ด
Response.write "<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
สิ้นสุดถ้า
ถ้ากลาง (บาร์โค้ด, x, 1) = "1" แล้ว
bcolor = fg
อื่น
bcolor = bg
สิ้นสุดถ้า
Response.write "<div style = 'ตำแหน่ง: สัมบูรณ์; ซ้าย:" & (x-1)*cwidth+30 & "px; top: 5px; ความกว้าง:" & cwidth & "px; ความสูง:" & cheight+5+sh & "px;