ASP怎样产生图形条码

sunsunup 2010-05-31 07:28:10

ASP怎么产生图形条码。急求。

...全文

193 12 打赏收藏转发到动态举报

写回复

用AI写文章

12 条回复

切换为时间正序

请发表友善的回复…

发表回复

e_zhiwen 2010-06-01

打赏
举报

http://www.godex.com.cn/ServiceAndSupport_OnlineBarcode.aspx

这个网站产生的条码标准。可以使用和查看。

e_zhiwen 2010-06-01

打赏
举报

barCode字体还有一个问题，如何产生不同类型的条码？又问楼主，你产生的条码要符合什么标准的？

e_zhiwen 2010-06-01

打赏
举报

BarCode 字体要客户端同时下载。

Dogfish 2010-06-01

打赏
举报

使用barcode字体。有免费的。

sunsunup 2010-06-01

打赏
举报

toury的网上可以看到，但不是图形，针式打印机打不出来
PHP中有IMAGECREATE功能，ASP没有类似的吗

sunsunup 2010-05-31

打赏
举报

没有能产生图形条码的ASP源码吗？像验证吗那样的

smartcatiboy 2010-05-31

打赏
举报

可以根据格式自己写bmp输出，但是很麻烦，没时间给你写代码。

大致如下

建立WxH的矩阵画板，然后在里面作图
然后通过ads.stream，以gbk的方式写byte数据
包括BMP头，8bit黑白调色板，水品扫描的图像矩阵
输出binary

toury 2010-05-31

打赏
举报

这个可以吗？



<html>

<head>

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

</head>

<body>

<form name="form1" method="post">

<div ALIGN="CENTER">请输入合法字符："ABCDEFGHIJKLMNOPQRSTUVWXYZ 1234567890 + - * / %$ ."<br><br>

<input name="chars" type="text" value="<%=request("chars")%>" size="25" maxlength="15">

<input type="submit" name="Submit" value="提交">

</div>

</form>

<%

Dim Chars, CodeHeight, CodeWidth

Chars = Request("chars")

CodeHeight = 52

CodeWidth = 2

Public Function BarCode(String1)

    Dim TempStr

    TempStr = String1

    TempStr = replace(TempStr,"0","_|_|__||_||_|")

    TempStr = replace(TempStr,"1","_||_|__|_|_||")

    TempStr = replace(TempStr,"2","_|_||__|_|_||")

    TempStr = replace(TempStr,"3","_||_||__|_|_|")

    TempStr = replace(TempStr,"4","_|_|__||_|_||")

    TempStr = replace(TempStr,"5","_||_|__||_|_|")

    TempStr = replace(TempStr,"7","_|_|__|_||_||")

    TempStr = replace(TempStr,"6","_|_||__||_|_|")

    TempStr = replace(TempStr,"8","_||_|__|_||_|")

    TempStr = replace(TempStr,"9","_|_||__|_||_|")

    TempStr = replace(TempStr,"a","_||_|_|__|_||")

    TempStr = replace(TempStr,"b","_|_||_|__|_||")

    TempStr = replace(TempStr,"c","_||_||_|__|_|")

    TempStr = replace(TempStr,"d","_|_|_||__|_||")

    TempStr = replace(TempStr,"e","_||_|_||__|_|")

    TempStr = replace(TempStr,"f","_|_||_||__|_|")

    TempStr = replace(TempStr,"g","_|_|_|__||_||")

    TempStr = replace(TempStr,"h","_||_|_|__||_|")

    TempStr = replace(TempStr,"i","_|_||_|__||_|")

    TempStr = replace(TempStr,"j","_|_|_||__||_|")

    TempStr = replace(TempStr,"k","_||_|_|_|__||")

    TempStr = replace(TempStr,"l","_|_||_|_|__||")

    TempStr = replace(TempStr,"m","_||_||_|_|__|")

    TempStr = replace(TempStr,"n","_|_|_||_|__||")

    TempStr = replace(TempStr,"o","_||_|_||_|__|")

    TempStr = replace(TempStr,"p","_|_||_||_|__|")

    TempStr = replace(TempStr,"r","_||_|_|_||__|")

    TempStr = replace(TempStr,"q","_|_|_|_||__||")

    TempStr = replace(TempStr,"s","_|_||_|_||__|")

    TempStr = replace(TempStr,"t","_|_|_||_||__|")

    TempStr = replace(TempStr,"u","_||__|_|_|_||")

    TempStr = replace(TempStr,"v","_|__||_|_|_||")

    TempStr = replace(TempStr,"w","_||__||_|_|_|")

    TempStr = replace(TempStr,"x","_|__|_||_|_||")

    TempStr = replace(TempStr,"y","_||__|_||_|_|")

    TempStr = replace(TempStr,"z","_|__||_||_|_|")

    TempStr = replace(TempStr,"-","_|__|_|_||_||")

    TempStr = replace(TempStr,"*","_|__|_||_||_|")

    TempStr = replace(TempStr,"/","_|__|__|_|__|")

    TempStr = replace(TempStr,"%","_|_|__|__|__|")

    TempStr = replace(TempStr,"+","_|__|_|__|__|")

    TempStr = replace(TempStr,".","_||__|_|_||_|") 

    BarCode = TempStr

End Function

Public Function ShowCode(BarCode1)

    Dim Chars

    Chars = BarCode1

    Chars = replace(chars,"_","<span style='height:"&CodeHeight&";width:"&CodeWidth&";background:#FFFFFF'></span>")

    Chars = replace(chars,"|","<span style='height:"&CodeHeight&";width:"&CodeWidth&";background:#000000'></span>")

    ShowCode = Chars

End Function

Public Function Validation(Pattern, String1)

    Dim RegExp1, Matches

    Set RegExp1 = New RegExp

    RegExp1.Pattern = Pattern

    RegExp1.IgnoreCase = True

    RegExp1.Global = True 

    Matches = RegExp1.Test(String1)

    Validation = Matches

End Function



If Chars <> "" Then

    If Validation("^[abcdefghijklmnopqrstuvwxyz1234567890\+\-\*\/\%\$\.]*$",Chars) Then

        '用户输入数据的合法，显示条形码

        TempChars = Chars

        Chars = LCase(Chars)

%>

<div align="center">

<center>

  <table border="0" cellpadding="0" cellspacing="0" height="79">

    <tr>

      <td height="61" align="center"><%=ShowCode(BarCode(Chars))%></td>

    </tr>

    <tr>

      <td height="18" align="center"><%=(TempChars)%></td>

    </tr>

  </table>

  </center>

</div>

<%

    Else

        '用户输入数据的非法，提示错误

        Response.Write("<br><center style='color:red;'>含有非法字符 </center>")

    End If

End If

%>

</body>

</html>

kohoko 2010-05-31

打赏
举报

用这么多呀！！！！！

mrshelly 2010-05-31

打赏
举报

建议使用客户端字体...

sunsunup 2010-05-31

打赏
举报

楼上的这个是模拟，还是达不到效果，有些打印机打印不了。有没有像PHP的imagecreate那样直接产生图形的ASP功能？直接产生了图形，什么打印机都可以打印了

碧海情天-赵亮 2010-05-31

打赏
举报

至少有三种方法。
1.用第三方控件，客户端在打开页面时，如果检测到客户端没有该控件，会自动提示用户进行在线安装。具体地可参照控件的使用说明。
2.ＡＳＰ直接操作图形。
3.ＡＳＰ生成ＨＴＭＬ代码模拟来图形效果（因为条码图形较简单）。比如运行一下下面的代码看看（至于数字与图形的对应关系，请参阅条码的规范说明，不同的位数的条码有不同标准）：
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" height="79">
<tr>
<td height="61" align="center"></td>
</tr>
</table>
</center>
</div>

文件代码很简单，也很实用，今天拿来共享了～

ASP.net生成条形码-二维码控件，使用与条形码技术和二维码技术

ASP源码，压缩包解压密码：www.cqlsoft.com

asp.net输出条形码的demo。生成并存储条形码为JPG图片。

Asp.net 条形码生成类，类库源程序运行于VS2008，程序演示运行于.NET3.5环境