一个用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)
%>
<%=dragcode(haiwaocde(code))%> |
<%=(ocode)%> |
<%=errstr%>
[/code]
该文章在 2013/10/21 21:56:35 编辑过