用Asp生成条形码
来源:互联网 发布:淘宝9.9疯抢领红包链接 编辑:程序博客网 时间:2024/05/01 03:38
一个用asp生成条形码的例子代码。(注意:生成的图形为html代码,而非图片,打印时,请在ie的internet选项=>高级=》打印 选定“打印背景颜色和图像”)
=================================================
<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=gb2312">
<meta name="keywords" content="51windows.net">
<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>
- 用Asp生成条形码
- 用Asp生成条形码
- 用Asp生成条形码
- 用Asp生成条形码
- Asp生成条形码
- Asp生成条形码
- asp.net生成条形码
- ASP.net生成条形码
- ASP.net生成条形码
- asp.net生成条形码
- ASP.NET生成条形码
- asp.net 生成条形码
- ASP.net生成条形码
- ASP.NET中生成条形码
- asp.net(c#)生成条形码
- ASP.NET中生成条形码
- ASP.net(c#)生成条形码
- ASP.net(c#)生成条形码
- SQL Server Oracle DB2 三种数据库性能比较
- javaScript脚本 编码与解码函数
- SP业务
- 全正则的检测IP是否合法的函数
- 备份及恢复
- 用Asp生成条形码
- 垃圾清理势在必行——Java垃圾收集算法
- 无刷新随时取得用户当前活动信息
- 将j2ee程序部置到portal上去!
- java 反射机制
- ASP导出Excel数据的四种方法
- 一个简单的子集产生算法
- Linux那些事儿 之 戏说USB(35)驱动的生命线(三)
- 用asp实现QQ在线查询