一個用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 編輯過
400 186 1886
