利用ASP实现三个强大功能之二

2、在Web上动态建立条形码

　　这篇文章讨论的是如何根据数据库的字段在web上动态地建立条形码的问题，这在如下的情况下非常有用：用户输入信
息到系统中，然后显示一个总结页面“这就是你所输入的”，这个页面可以被打印，并在日后可以用条形码进行跟踪。

　　实现这个功能的关键在于如何将数值比如“ABC”翻译为条形码。这里我们使用“代码39”，关于它的详细情况，请参
阅有关定义。我想将产生的条形码显示在web页面上，这样用户就能打印包含条形码的这个页面，然后，再在图形系统的处
理中使用它。许多用户都在系统中安装了“代码39”字体，所以我就能够在页面中改变它，但是我不想依赖它们。我想在
页面中建立，并且独立于浏览器和计算机。

　　我的解决方法是：为Code39中每一个支持的字符创建GIF图形文件。我使用Microsoft Paint软件创建Code39字体大小
的文本框，然后为每一个字符建立一个图形。接着，使用Microsoft Image Composer将它们转换为GIF格式。最后，使用扫
描软件检查这些字符，看看是否能正确地解释。下面，你将看到A、B、C以及星号（*）的条形码：

Code for A

Code for B

Code for C

Code for Asterisk

　　然后，为了在ASP页面中描绘数据库中数值的条形码，仅仅简单地遍历BarCodeText变量字符串中的每一个字符，然后
建立< IMG SRC=“...” >标记以替换字符为相应条形码图形文件。这非常简单，不需要在客户端安装字体文件。相关代码
如下：

Code 39 barcodes require an asterisk as the start and stop characters
Response.write "< IMG src="/edu/UploadPic/2007-12/2007129132853945.gif""" WIDTH=""30"" HEIGHT=""36"">"
For x = 1 to Len(Trim(rst("BarCodeText")))
Response.Write "< IMG SRC=""" & mid(rst("BarCodeText"),x,1) & _
".gif"" WIDTH=""30"" HEIGHT=""36"">"
Next

Code 39 barcodes require an asterisk as the start and stop characters
Response.write "< IMG src="/edu/UploadPic/2007-12/2007129132853945.gif""" WIDTH=""30"" HEIGHT=""36"">"


　　如果在记录集当前记录中BarCodeText的数值是“ABC”，那么执行上述代码后，HTML的结果是：

< IMG src="/edu/UploadPic/2007-12/2007129132853532.gif"" WIDTH="30" HEIGHT="36">
< IMG src="/edu/UploadPic/2007-12/2007129132854234.gif"" WIDTH="30" HEIGHT="36">
< IMG src="/edu/UploadPic/2007-12/2007129132854307.gif"" WIDTH="30" HEIGHT="36">
< IMG src="/edu/UploadPic/2007-12/2007129132854757.gif"" WIDTH="30" HEIGHT="36">
< IMG src="/edu/UploadPic/2007-12/2007129132853532.gif"" WIDTH="30" HEIGHT="36">


然后，将显示如下图形：

现在，将该页面打印后，就可以被条形码扫描器所跟踪了。

　　有2点关于条形码的注意事项：不是所有的条形码都能支持所有的字符集。Code39是很好而且很简单的一种。它具备可
变长度，支持所有的大写字符、数字、星号以及7个特殊字符。对于每个字符，它使用风格一致的5线（2宽3窄）4空（指间
隙，1宽3窄）形式。另外的字符集支持更多的，使用不同的解码方案。确认对每个字符都建立了GIF图形文件，同时，你可
以修改图形的宽度和高度属性，从而在页面上显示稍大的或者稍小的条形码。

　　另外，如果遇到特殊的字符，上面的遍历循环代码将不会工作，因为，不能将GIF文件命名为+.gif。这时，就要编写
一个接受字符Ascii数值的函数，然后使用CASE语句返回等价于文件名的字符串。如果数据库字段的数值是整型或者仅仅包