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

代码如下:

<title>条形码生成</title>
<%
Rem =================================================================
Rem = 函数:ean13
Rem = 说明:生成EAN13标准的条形码,有实例（ASP代码）
Rem = 版本:1.0.0
Rem = 作者:第七种直角（7th/semico）
Rem = Date:2005-08-08 11:57:06
Rem = QQ:11110785
Rem = QQ群：3773360
Rem = 适用:按照需要生成EAN13标准的条形码
Rem =================================================================
Function ean13(code,w,h)
 Dim Guide,Dict,Lencode,Rencode,cStart,cMid,cEnd,Barcode,Lmethod
 Guide = array("AAAAAA","AABABB","AABBAB","ABAABB","ABBAAB","ABBBAA","ABABAB","ABABBA","ABBABA")

Set Dict = CreateObject("Scripting.Dictionary")
 Dict.Add "A", "0001101001100100100110111101010001101100010101111011101101101110001011"
 Dict.Add "B", "0100111011001100110110100001001110101110010000101001000100010010010111"

Rencode = array("1110010","1100110","1101100","1000010","1011100","1001110","1010000","1000100","1001000","1110100")

cStart="101"
 cMid="01010"
 cEnd="101"

if w<2 then w=2
 if h<20 then h=20
 cWidth=w '条码单元宽度
 cHeight=h '条码高度

'检验条码是否符合标准
 if len(code)<>13 then response.write "必须为13位!":response.end

for i=1 to 12
  if IsNumeric(mid(code,i,1)) then
   if i mod 2 then
    rsum=rsum+int(mid(code,i,1))
   else
    lsum=lsum+int(mid(code,i,1))
   end if
  else
   response.write "必须为数字码!":response.end
  end if
 next
 if 10-((lsum*3+rsum) mod 10) <> int(right(code,1)) then response.write "此条码错误!":response.end

'转换条码
 Barcode=cStart
 Lmethod=left(code,1)
 'if Lmethod=0 then Lmethod=1
 for i=2 to 7
  barcode = barcode & mid(Dict(Mid(Guide(Lmethod-1),i-1,1)),(7*mid(code,i,1)+1),7)
 next
 barcode=barcode & cMid
 for i=8 to 13
  barcode = barcode & Rencode(mid(code,i,1))
 next
 barcode=barcode & cEnd

fg="#000000" '条码前景色
 bg="#ffffff" '条码背景色
 response.write "<div style='position:absolute;width:"&cWidth*95+60&"px; height:"&cHeight+30&"px; background:"&bg&";'>"
 '绘制条码
 for x=1 to len(barcode)
  if x<5 or x>92 or (x>46 and x<51)then
   sh=10
  else
   sh=0
  end if

if mid(barcode,x,1)="1" then
   bColor=fg
  else
   bColor=bg
  end if

response.write "<div style='position:absolute;left:"&(x-1)*cWidth+30&"px;top:5px;width:"&cWidth&"px;height:"&cHeight+5+sh&"px;background:"&bColor&";'></div>"
 next
 '加入可读数字标签
 response.write "<div style='position:absolute;left:16px;top:"&cHeight+10&"px;background:"&bg&";color:"&fg&";font:12px Verdana;'>"&left(code,1)&"</div>"
 for x=1 to 6
  response.write "<div style='position:absolute;left:"&(x*7+2)*cWidth+22&"px;top:"&cHeight+10&"px;background:"&bg&";color:"&fg&";font:12px Verdana;'>"&mid(code,x+1,1)&"</div>"
  response.write "<div style='position:absolute;left:"&(x*7+47)*cWidth+24&"px;top:"&cHeight+10&"px;background:"&bg&";color:"&fg&";font:12px Verdana;'>"&mid(code,x+7,1)&"</div>"
 next
 response.write "<div style='position:absolute; left:30px;top:"&cHeight+25&"px;width:"&cWidth*95&"px;height:10px;text-align:center;background:#ffffff;border:solid 1px #e5e5e5;font:9px verdana;'>© 2007 by elbo </div>"
 response.write "</div>"
End Function

%> 
<p style="font:12px Verdana">
<span style="text-decoration: none">
<font color="#000000">适用:按照需要生成EAN13标准的条形码</font></span><br />
可以试验以下条码:<br />
9787900420206<br />
9787894954947
</p>
<br />
<form method="post" action="ttt.asp">
 <label>
  <input type="" name="bcode" />
 </label>
 <input type="submit" value="生成条码"/>
</form>
<p align="center"></p>

<p align="center">

<%
if request("bcode")<>"" then
 call ean13(request("bcode"),2,100)
else
 call ean13("1234567890128",2,100)
end if

%>
</br></a>版权所有 </p>

赞 (0)

相关推荐

  • ASP.net(c#)生成条形码 code39条码生成方法

    这几天一直在弄128条码的事情,找了相关的资料,也没找到.后来没办法只能改成code39的条码.现在把它写出来,与大家分享 1.先下载一种免费的 code39条码字体 2.建个类 为 code39 并写入以下代码 复制代码 代码如下: public sealed class Code39 { #region private variables /// <summary> /// The Space Between each of Title, BarCode, BarCodeString //

  • python利用elaphe制作二维条形码实现代码

    手机上的二维码识别程序已经做的很好了,"我查查"用起来很不错的 我搜集了几个二维条码生成网站: http://www.morovia.com/free-online-barcode-generator/qrcode-maker.php http://qrencode.sinaapp.com/ http://www.mayacode.com/ 作为一个程序猿,我们也要懂得如何制作二维条形码 python的elaphe模块帮我们解决了问题 复制代码 代码如下: from elaphe im

  • BarCode条形码基于C# GDI+ 的实现方法详解

    条形码在生活中的应用非常广泛,具体的条形码知识大家自行百度,了解条形码知识对理解下面的代码是必要的.如果只是应用的话,直接拿去就可以用了.废话不多说,上代码 复制代码 代码如下: public Bitmap GetCode39(string sourceCode)         {             int leftMargin = 5;             int topMargin = 0;             int thickLength = 2;            

  • 手把手教你做超酷的条形码效果第1/3页

    原创作品,转载请注明出处By dknt From bbs.blueidea.com声明:1.这篇文章教你在web页面上实现条形码效果,体现的是利用网页制作技术综合解决问题的思路.旨在使对HTML, JavaScript,PhotoShop具有入门级水平的人巩固入门级水平.2.若有问题不能及时回复,麻烦请担待,不胜感激.3.高手免进. 制作条形码总共分几步? 第一步,把冰箱门儿打开--使用PhotoShop绘制小图片 我们需要制作出一个含有16个元素的条形码图片. 首先打开Photoshop,本篇

  • asp.net用Zxing库实现条形码输出的具体实现

    asp.net用Zxing库实现条形码输出的具体实现

    这个简单的问题,困扰了我将近两个小时,主要是再官方文档上没有找到demo,那只能用搜索引擎了,看看其他程序员写的程序,但是发现处处是坑,看了四五个例子,没有一个可以正常运行的,全部报错,经过一个多小时的尝试,才最终搞定.不多说了,直接上截图和代码. 首先要在项目中添加zxing.dll引用(zxing.dll下载地址http://www.jb51.net/dll/zxing.dll.html) 其次就是建立aspx文件,在后台中代码如下 复制代码 代码如下: using ZXing.Common

  • php实现在线生成条形码示例分享(条形码生成器)

    php实现在线生成条形码示例分享(条形码生成器)

    复制代码 代码如下: <?phpdefine('IN_CB',true);include('header.php'); $keys = array('0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z','-','.',' ','$','/','+','%'); $n

  • php生成EAN_13标准条形码实例

    下面的就是生成EAN_13标准的条码的PHP方法,需要php+gd 环境    复制代码 代码如下: <? function EAN_13($code) {   //一个单元的宽度   $lw = 2;   //条码高    $hi = 100;   // the guide code is no coding,is used to show the left part coding type//   // Array guide is used to record the EAN_13 is

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

    复制代码 代码如下: <title>条形码生成</title><%Rem =================================================================Rem = 函数:ean13Rem = 说明:生成EAN13标准的条形码,有实例(ASP代码)Rem = 版本:1.0.0Rem = 作者:第七种直角(7th/semico)Rem = Date:2005-08-08 11:57:06Rem = QQ:11110785Rem

  • python 数据生成excel导出（xlwt,wlsxwrite）代码实例

    这篇文章主要介绍了python 数据生成excel导出(xlwt,wlsxwrite)代码实例,文中通过示例代码介绍的非常详细,对大家的学习或者工作具有一定的参考学习价值,需要的朋友可以参考下 话不多说,看代码: from xlwt import * import StringIO from apps.song.models import Song def excel_ktvsong(request):
 """
导出excel表格
"""
 _

  • PHP生成短网址的3种方法代码实例

    短网址服务,可能很多朋友都已经不再陌生,现在大部分微博.手机邮件提醒等地方已经有很多应用模式了,并占据了一定的市场.估计很多朋友现在也正在使用. 看过新浪的短连接服务,发现后面主要有6个字符串组成. 太多算法的东西,也没必要去探讨太多,最主要的还是实现,下面是三种方法的代码: <?php //纯随机生成方法 function random($length, $pool = '') { $random = ''; if (empty($pool)) { $pool = 'abcdefghkmnpq

  • Python3 pyecharts生成Html文件柱状图及折线图代码实例

    代码如下 pip3 install pyechatrs #! /usr/bin/python3 from pyecharts.charts import Bar, Page from pyecharts import options as opts x = [ 'python数据可视化库 a1','python数据可视化库 b1','python数据可视化库 c1' ] y1 = [ 1140,520,270 ] y2 = [1000,300,500] bar = Bar() #设置x轴 bar

  • ASP与Excel结合生成数据表和Chart图的代码

    目录 一. 环境配置 二. ASP对Excel的基本操作 三. ASP操作Excel生成数据表 四. ASP操作Excel生成Chart图 五. 服务器端Excel文件浏览.下载.删除方案 六. 附录 正文 一. 环境配置 服务器端的环境配置从参考资料上看,微软系列的配置应该都行,即: 1．Win9x+PWS+Office 2．Win2000 Professional+PWS+Office 3．Win2000 Server+IIS+Office 目前笔者测试成功的环境是后二者.Office的版本

  • php生成条形码的图片的实例详解

    php生成条形码的图片的实例详解 因为用户的需要  写了一个条形码:用php生成一个条形码的图片  这个大家应该比我要好很多的吧,在自己项目的根目录下建立一个测试文件(直接把下面的代码放进去运行一下看看,我也是抄袭别人的),在实际的项目中你可以将下面的代码封装到一个公共类文件下的一个函数,然后调用. class testinfo{ function UPCAbarcode($code) { $trans_code = $code; $lw = 2.2; $hi = 40; $Lencode =

  • 关于Asp代码与页面的分离模板技术第1/3页

    在使用ASP制作一个站点的时候,常常会出现一个ASP文件中,程序代码和HTML代码混合的情况.这样子做有许多缺点: 1.编程时就要对页面布局进行设计和编排,造成代码混乱难懂,不规范; 2.当需要改变页面外观时,你不仅要改变HTML部份,也需要改变ASP代码,不易维护. 那么,要如何才能避免这些麻烦呢? 答案就是使用模板文件,将ASP代码和HTML页面分开,一切问题就都解决了.使用模板有以下好处: 1.在很短的时间内可以替换整个站点的外观; 2.使程序员可以抽象编程,而无须接触HTML代码; 3.

  • 使用模板实现ASP代码与页面分离

    每个进行过较大型的ASP-Web应用程序设计的开发人员大概都有如下的经历:ASP代码与页面HTML混淆难分,业务逻辑与显示方式绞合,使得代码难以理解.难以修改:程序编写必须在美工之后,成为项目瓶颈:整合的程序代码和HTML静态页面时,花费大量的时间才能得到理想的效果,兼作了美工.的确,用脚本语言开发Web应用不容易将数据的处理和数据的显示分开,但在多人合作的情况下,如果无法将数据和显示分开,将大大影响开发的效率,专业分工的发挥. 其它的脚本语言,如JSP.PHP都有自己的解决方案,ASP的后一代

  • ASP代码的对象化

    提起asp很多人就认为是一堆html脚本和被括在<%和%>之中的一些代码还有就是一些javascript脚本等筹在一起的一些代码的集合,这样的代码,再加上各类的不同格式的注释,看起来就一个字:乱.也不管别人能不能看得懂,只要是能实现自己的目的就可以了,因为asp的代码也是脚本,给了客户也不可能不被人看到其中的内容,经多包容在dll中一部分业务逻辑,但是还是觉得asp代码是最不值钱的代码,没有人回去购买,可以随时从别人的网站中查看源码的形式得到别人辛辛苦苦编写出来的独特风格的东东.这些原因使as

随机推荐