Asp生成条形码

一个用asp生成条形码的例子代码。(注意：生成的图形为html代码,而非图片，打印时，请在IE的Internet选项=>高级＝》打印选定“打印背景颜色和图像”)

演示地址：http://www.51windows.net/Asp_samples/codeflag.asp

更简单的方法就是使用条形码字体，下载条形码字体

<html> <head> <meta http-equiv=”Content-Type” content=”text/html; charset=gb2312″> <meta name=”Keywords” content=”51windows.Net”> <META NAME=”Author” CONTENT=”haiwa”> <title>Asp生成条形码</title> <style> <!– * {font:menu} –> </style> </head> <body> <% ‘条形码生成程序 ‘海娃@2004-4-4 ‘http://www.51windows.Net function haiwaocde(zfstr) zf = zfstr zf = replace(zf,”0″,”_|_|__||_||_|”) zf = replace(zf,”1″,”_||_|__|_|_||”) zf = replace(zf,”2″,”_|_||__|_|_||”) zf = replace(zf,”3″,”_||_||__|_|_|”) zf = replace(zf,”4″,”_|_|__||_|_||”) zf = replace(zf,”5″,”_||_|__||_|_|”) zf = replace(zf,”7″,”_|_|__|_||_||”) zf = replace(zf,”6″,”_|_||__||_|_|”) zf = replace(zf,”8″,”_||_|__|_||_|”) zf = replace(zf,”9″,”_|_||__|_||_|”) zf = replace(zf,”a”,”_||_|_|__|_||”) zf = replace(zf,”b”,”_|_||_|__|_||”) zf = replace(zf,”c”,”_||_||_|__|_|”) zf = replace(zf,”d”,”_|_|_||__|_||”) zf = replace(zf,”e”,”_||_|_||__|_|”) zf = replace(zf,”f”,”_|_||_||__|_|”) zf = replace(zf,”g”,”_|_|_|__||_||”) zf = replace(zf,”h”,”_||_|_|__||_|”) zf = replace(zf,”i”,”_|_||_|__||_|”) zf = replace(zf,”j”,”_|_|_||__||_|”) zf = replace(zf,”k”,”_||_|_|_|__||”) zf = replace(zf,”l”,”_|_||_|_|__||”) zf = replace(zf,”m”,”_||_||_|_|__|”) zf = replace(zf,”n”,”_|_|_||_|__||”) zf = replace(zf,”o”,”_||_|_||_|__|”) zf = replace(zf,”p”,”_|_||_||_|__|”) zf = replace(zf,”r”,”_||_|_|_||__|”) zf = replace(zf,”q”,”_|_|_|_||__||”) zf = replace(zf,”s”,”_|_||_|_||__|”) zf = replace(zf,”t”,”_|_|_||_||__|”) zf = replace(zf,”u”,”_||__|_|_|_||”) zf = replace(zf,”v”,”_|__||_|_|_||”) zf = replace(zf,”w”,”_||__||_|_|_|”) zf = replace(zf,”x”,”_|__|_||_|_||”) zf = replace(zf,”y”,”_||__|_||_|_|”) zf = replace(zf,”z”,”_|__||_||_|_|”) zf = replace(zf,”-“,”_|__|_|_||_||”) zf = replace(zf,”*”,”_|__|_||_||_|”) zf = replace(zf,”/”,”_|__|__|_|__|”) zf = replace(zf,”%”,”_|_|__|__|__|”) zf = replace(zf,”+”,”_|__|_|__|__|”) zf = replace(zf,”.”,”_||__|_|_||_|”) haiwaocde = zf end function code_H = 52 code_W = 2 function dragcode(ccode) c = ccode c = replace(c,”_”,””) c = replace(c,”|”,””) dragcode = c end function function dragtext(ccode) c = ccode dragtext = “” for i=1 to len(c) dragtext = dragtext&””&mid(c,i,1)&”” next dragtext = dragtext end function Function CheckExp(patrn,str) Set regEx=New RegExp regEx.Pattern=patrn regEx.IgnoreCase=true regEx.Global=True CheckExp = regEx.test(str) End Function code = request(“c”) if code = “” then code = “*51windows.net*” else if Checkexp(“^[abcdefghijklmnopqrstuvwxyz1234567890+-*/%$.]*$”,code) then code = “*”&code&”*” else code = “*51windows.net*” errstr = “ <center style=’color:red;’>含有非法字符 </center>” end if end if ocode = code code = lcase(code) %> <center><form name=”form1″ method=”post”>合法字符：ABCDEFGHIJKLMNOPQRSTUVWXYZ 1234567890 + – * / % $ . <input name=”c” type=”text” value=”<%=request(“c”)%>” size=”25″ maxlength=”15″> <input type=”submit” name=”Submit” value=”提交”></form><center> <div align=”center”> <center> <table border=”0″ cellpadding=”0″ cellspacing=”0″ height=”79″> <tr> <td height=”61″ align=”center”><%=dragcode(haiwaocde(code))%></td> </tr> <tr> <td height=”18″ align=”center” style=”text-align:justify;text-justify:Distribute-all-lines;”><%=(ocode)%></td> </tr> </table> </center> </div> <%=errstr%> </body> </html>

站长网

作者: dawei

联系我们

作者: dawei

相关文章

ASP Access数据库的安全法则介绍

如何在ASP中显示Application集合的内容

ASP编程基础典型代码分享

值得收藏的ASP代码分享

ASP子程序的浅析

Form集合介绍

联系我们