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

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

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











<%
'条形码生成程序
'海娃@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)
%>

合法字符：ABCDEFGHIJKLMNOPQRSTUVWXYZ 1234567890 + - * / % $ .

" size="25" maxlength="15">

<%=dragcode(haiwaocde(code))%>

<%=(ocode)%>

<%=errstr%>