asp条码生成源码

条码在平常生活中或者公司防卫标志有可能会使用吧，可能大家在办理一些证件照片时使用得比较多一些。或者超市商场的商品中。
一个用asp生成条形码的例子代码。(注意：生成的图形为html代码,而非图片，打印时，请在IE的Internet选项=>高级＝》打印 选定“打印背景颜色和图像”)

<%
'条形码生成程序
'alike@elvo.cn
'http://www.elvo.cn
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 = "