用asp生成条形码

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

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

更简单的方法就是使用条形码字体，下载：http://www.51windows.net/2004/share/font/tiaoma.rar（如果地址无法下载，请在google上搜索"条形码字体"）。

<<a href="/list/html/index.html" title="html" target="_blank"><acronym>html</acronym></a>><head><meta http-equiv="content-type" content="text/<a href="/list/html/index.html" title="html" target="_blank"><acronym>html</acronym></a>; charset=gb2312"><meta name="keywords" content="51windows<a href="/list/net/index.html" title=".net" target="_blank"><acronym>.net</acronym></a>"><meta name="author" content="haiwa"><title><a href="/list/asp/index.html" title="asp" target="_blank"><acronym>asp</acronym></a>生成条形码</title><style></style></head><body><%'条形码生成程序'海娃@2004-4-4'http://www.51windows<a href="/list/net/index.html" title=".net" target="_blank"><acronym>.net</acronym></a>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 = zfend functioncode_h = 52code_w = 2function dragcode(ccode) c = ccode c = replace(c,"_","<span style='height:"&code_h&";width:"&code_w&";background:#ffffff'></span>") c = replace(c,"","<span style='height:"&code_h&";width:"&code_w&";background:#000000'></span>") dragcode = cend functionfunction dragtext(ccode) c = ccode dragtext = "" for i=1 to len(c) dragtext = dragtext&"<span style='width:26;text-align:center'>"&mid(c,i,1)&"</span>" next dragtext = dragtextend functionfunction checkexp(patrn,str)set regex=new regexpregex.pattern=patrnregex.ignorecase=trueregex.global=truecheckexp = regex.test(str) end functioncode = request("c")if code = "" then code = "*51windows<a href="/list/net/index.html" title=".net" target="_blank"><acronym>.net</acronym></a>*"else if checkexp("^[abcdefghijklmnopqrstuvwxyz1234567890\+\-\*\/\%\$\.]*$",code) then code = "*"&code&"*" else code = "*51windows<a href="/list/net/index.html" title=".net" target="_blank"><acronym>.net</acronym></a>*" errstr = "<br><center style='color:red;'>含有非法字符 </center>" end ifend ifocode = codecode = lcase(code)%><center><form name="form1" method="post">合法字符：abcdefghijklmnopqrstuvwxyz 1234567890 + - * / % $ .<br><br><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></<a href="/list/html/index.html" title="html" target="_blank"><acronym>html</acronym></a>>

ICP备案编号:粤ICP备06052964号

www.sosof.com

选择显示字体大小

用asp生成条形码

关键字本文所属关键字

相关与本文相关文章

分类所有文章关键字导航

源码编程相关

SQL数据库相关

手机无线相关

网页设计制作相关

网站建设推广相关

操作系统/服务器相关

图形图像多媒体相关

标准网站致力的规范

www.sosof.com

选择显示字体大小

用asp生成条形码

shouchang();

关键字 本文所属关键字

相关 与本文相关文章

分类 所有文章关键字导航

源码编程相关

SQL数据库相关

手机无线相关

网页设计制作相关

网站建设推广相关

操作系统/服务器相关

图形图像多媒体相关

标准 网站致力的规范

关键字本文所属关键字

相关与本文相关文章

分类所有文章关键字导航

标准网站致力的规范