分享你我的心得.
共乘一片美好网络.

用Asp生成条形码

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

请在Google上搜索"条形码 字体"

<html> 
<head> 
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> 
<meta name="Keywords" content="3zha.com"> 
<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,"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,"_","<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("^[abcdefghijklmnopqrstuvwxyz1234567890\+\-\*\/\%\$\.]*$",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 1234567890 + – * / % $ .<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="79"> 
    <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> 

赞(0)
未经允许不得转载:小叶白龙博客 » 用Asp生成条形码
分享到: 更多 (0)

评论 抢沙发

评论前必须登录!