Asp生成條形碼源碼
當前位置：點晴教程→知識管理交流
→『 技術文檔交流 』
一個用asp生成條形碼的例子代碼。(注意：生成的圖形為html代碼,而非圖片，打印時，請在IE的Internet選項=>高級＝》打印 選定“打印背景顏色和圖像”)
更簡單的方法就是使用條形碼字體，下載：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.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,"Array","_│_││__│_││_│") 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,"_","<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 = c end function function 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 = 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("^[abcdefghijklmnopqrstuvwxyz12345678Array0＼+＼-＼*＼/＼%＼$＼.]*$",code) then code = "*"&code&"*" else code = "*51windows.net*" errstr = "<br><center style=’color:red;’>含有非法字符 </center>" end if end if ocode = code code = lcase(code) %> <center><form name="form1" method="post">合法字符：ABCDEFGHIJKLMNOPQRSTUVWXYZ 12345678Array0 + - * / % $ .<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="7Array"> <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> 該文章在 2012/9/25 0:42:13 編輯過 |
關鍵字查詢
相關文章
正在查詢... 
|
400 186 1886
