生成EAN13标准条码的ASP代码实例

复制代码代码如下所示：
条形码生成
<
REM =================================================================
REM =功能：EAN13
REM =描述：条码生成EAN13标准实例（ASP代码）
REM =版本：1.0.0
作者：雷=第七种直角（第七 /科）
REM =日期：2005-08-08 11:57:06
QQ = 11110785
QQ群：3773360
REM =适用：条码生成EAN13标准的需要
REM =================================================================
功能EAN13（代码，W，H）
昏暗的指南，字典，Lencode，Rencode，会造成许多障碍，五矿投资、、、条码、Lmethod
指导=阵列（aaaaaa

设置字典= CreateObject（脚本。词典）
添加，
字典中添加B

rencode =阵列（1110010

会造成许多障碍=101
五矿投资=01010
迅达=101

如果w＜2，w＝2
如果h＜20，则h＝20
宽= W条码单位宽度
cheight = H条码高度

测试条码是否符合标准
如果len（代码）<> 13 response.write必须是13位！：response.end

对于我= 1比12
如果IsNumeric（MID（代码，我，1））然后
如果我按2然后
简历=简历+ int（MID（代码，我，1））
其他的
lsum = lsum + int（MID（代码，我，1））
最后如果
其他的
response.write必须是数字代码！：response.end
最后如果
下一个
如果10（（lsum * 3 +简历）mod 10（右）<> int（代码1））然后response.write条形码错误：response.end！



转换条码
条码= C开始进行
方法=左（代码1）
如果方法= 0 = 1方法
对于我= 2比7
Barcode = barcode mid (Dict (Mid (Guide (Lmethod-1), i-1,1)) (7*mid (code, I, 1) +1), 7)
下一个
条码，条码巨细胞包涵体病
对于我= 8比13
条码=条码Rencode（MID（代码，我，1））
下一个
条码，条码、


Fg =# 000000条码的应用前景
BG =# ffffff 条形码的背景颜色
response.write
绘图条码
对于x = 1到镜头（条形码）
如果*92或（x > 46 x＜51）然后
SH = 10
其他的
SH = 0
最后如果

如果中间（条形码，x，1）= 1 ，那么
bcolor = FG
其他的
bcolor = BG
最后如果

response.write
下一个
添加可读的数字标签
response.write 左（代码1）
对于x = 1到6
response.write （代码中，X 1）
response.write （代码中，X 1）
下一个
response.write （C）2007由该公司
response.write
端功能

%>


应用：条码生成EAN13标准根据需要
下面的条形码可以测试：
九兆七千八百七十九亿零四十二万零二百零六
九兆七千八百七十八亿九千四百九十五万四千九百四十七












<
如果请求（情况）< >然后
叫EAN13（请求（情况），2100）
其他的
叫EAN13（1234567890128
最后如果

%>
版权