LOGO OA教程 ERP教程 模切知识交流 PMS教程 CRM教程 开发文档 其他文档  
 
皇帝

Asp生成条形码

allen
2013年10月21日 21:28 本文热度 4261
一个用asp生成条形码的例子代码。(注意:生成的图形为html代码,而非图片,打印时,请在IE的Internet选项=>高级=》打印 选定“打印背景颜色和图像”) 演示地址:http://www.51windows.net/Asp_samples/codeflag.asp 更简单的方法就是使用条形码字体,下载 条形码字体 [code] Asp生成条形码 <% '条形码生成程序 '海娃@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 = "
含有非法字符
" end if end if ocode = code code = lcase(code) %>
合法字符:ABCDEFGHIJKLMNOPQRSTUVWXYZ 1234567890 + - * / % $ .

" size="25" maxlength="15">
<%=dragcode(haiwaocde(code))%>
<%=(ocode)%>
<%=errstr%> [/code]

该文章在 2013/10/21 21:56:35 编辑过
关键字查询
相关文章
正在查询...
点晴ERP是一款针对中小制造业的专业生产管理软件系统,系统成熟度和易用性得到了国内大量中小企业的青睐。
点晴PMS码头管理系统主要针对港口码头集装箱与散货日常运作、调度、堆场、车队、财务费用、相关报表等业务管理,结合码头的业务特点,围绕调度、堆场作业而开发的。集技术的先进性、管理的有效性于一体,是物流码头及其他港口类企业的高效ERP管理信息系统。
点晴WMS仓储管理系统提供了货物产品管理,销售管理,采购管理,仓储管理,仓库管理,保质期管理,货位管理,库位管理,生产管理,WMS管理系统,标签打印,条形码,二维码管理,批号管理软件。
点晴免费OA是一款软件和通用服务都免费,不限功能、不限时间、不限用户的免费OA协同办公管理系统。
Copyright 2010-2024 ClickSun All Rights Reserved