نسخة الكود كما يلي:
<title> جيل الباركود </title>
<٪
REM =================================================================================
REM = الدالة: EAN13
REM = الوصف: قم بإنشاء الباركود القياسي EAN13 مع مثال (رمز ASP)
REM = الإصدار: 1.0.0
REM = المؤلف: الزاوية اليمنى السابعة (7/Semico)
REM = التاريخ: 2005-08-08 11:57:06
REM = QQ: 11110785
REM = QQ Group: 3773360
REM = قابلة للتطبيق: إنشاء رمز باركود قياسي EAN13 حسب الحاجة
REM =================================================================================
وظيفة ean13 (الكود ، ث ، ح)
دليل خافت ، قوله ، lencode ، rencode ، cstart ، cmid ، cend ، barcode ، lmethod
دليل = صفيف ("AAAAAAA" ، "Aababb" ، "Aabbab" ، "Abaabb" ، "Abbaab" ، "Abbaa" ، "Ababab" ، "Ababab" ، "Ababba" ، "Abbaba")
تعيين dict = createObject ("scripting.dictionary")
dict.Add "A" ، "0001101001100100100111101010101101101010101011101101101101101101101100010111"
dict.Add "B" ، "0100111011001101101100100100111110110110010001010010010010010010010010011111"
rencode = صفيف ("1110010" ، "1100110" ، "1101100" ، "1000010" ، "1011100" ، "10011100" ، "1010000" ، "10001000" ، "11101000")
CSTART = "101"
CMID = "01010"
cend = "101"
إذا كان w <2 ثم w = 2
إذا ح <20 ثم H = 20
cwidth = عرض وحدة w'barcode
كتف = ارتفاع H'barcode
تحقق مما إذا كان الرمز الباركود يفي بالمعايير
إذا كان LEN (CODE) <> 13 ، فإن الاستجابة. "يجب أن يكون 13 بت!": Response.end
لأني = 1 إلى 12
إذا isnumeric (منتصف (رمز ، i ، 1)) ثم
إذا قمت بالتعديل 2 ثم
rsum = rsum+int (mid (رمز ، i ، 1))
آخر
lsum = lsum+int (mid (رمز ، i ، 1))
إنهاء إذا
آخر
استجابة. write "يجب أن يكون رمزًا رقميًا!": Response.end
إنهاء إذا
التالي
إذا كان 10-((lsum*3+rsum) mod 10) <> int (يمين (رمز ، 1)) ثم استجابة.
"تحويل الباركود
الباركود = CSTART
lmethod = اليسار (رمز ، 1)
إذا lmethod = 0 ثم lmethod = 1
لأني = 2 إلى 7
barcode = barcode & mid (dict (mid (limethod-1) ، i-1،1)) ، (7*mid (code ، i ، 1) +1) ، 7)
التالي
الباركود = الباركود و CMID
لأني = 8 إلى 13
barcode = barcode & rencode (mid (code ، i ، 1))
التالي
الباركود = الباركود و cend
Fg = "#000000" "لون الباركود الأمامي
bg = "#ffffff" لون خلفية الباركود
reponse.write "<div style = 'الموضع: absolute ؛ العرض:" & cwidth*95+60 & "px ؛ height:" & cheight+30 & "px ؛ background:" & bg & "؛'>"
ارسم الباركود
لـ x = 1 إلى Len (barcode)
إذا كانت x <5 أو x> 92 أو (x> 46 و x <51)
sh = 10
آخر
sh = 0
إنهاء إذا
إذا كان منتصف (الباركود ، x ، 1) = "1" ثم
bcolor = fg
آخر
bcolor = bg
إنهاء إذا
Response.write "<div style = 'الموضع: absolute ؛ اليسار:" & (x-1)*cwidth+30 & "px ؛ top: 5px ؛ width:" & cwidth & "px ؛ height:" & cheight+5+sh & "px ؛ background:" & bcolor & "> </div>"