|
一个用asp生成条形码的例子代码。(注意：生成的图形为html代码,而非图片，打印时，请在IE的Internet选项=>高级＝》打印 选定“打印背景颜色和图像”) 演示地址：http://www.51windows.net/Asp_samples/codeflag.asp 更简单的方法就是使用条形码字体，下载：http://www.51windows.net/2004/share/font/tiaoma.rar（如果地址无法下载，请在Google上搜索"条形码 字体"）。 <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.Netfunction 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.net*"else if Checkexp("^[abcdefghijklmnopqrstuvwxyz1234567890\+\-\*\/\%\$\.]*$",code) then code = "*"&code&"*" else code = "*51windows.net*" 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></html>
|
