100分求一维条形码生成程序
谢谢了 问题点数：90、回复次数：6Top
1 楼moodboy1982（老鹰）回复于 2005-03-01 14:52:50 得分 0
我看到过，有这样的文档，但一时说不起来了．
Top
2 楼philcc（一包中华）回复于 2005-03-01 14:53:42 得分 90
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>
<form name="form1" method="post">
<div ALIGN="CENTER">请输入合法字符："ABCDEFGHIJKLMNOPQRSTUVWXYZ 1234567890 + - * / %$ ."<br><br>
<input name="chars" type="text" value="<%=request("chars")%>" size="25" maxlength="15">
<input type="submit" name="Submit" value="提交">
</div>
</form>
<%
Dim Chars, CodeHeight, CodeWidth
Chars = Request("chars")
'指定条形码的高和宽
CodeHeight = 52
CodeWidth = 2
'将String1转化为特殊字符串
Public Function BarCode(String1)
Dim TempStr
TempStr = String1
TempStr = replace(TempStr,"0","_|_|__||_||_|")
TempStr = replace(TempStr,"1","_||_|__|_|_||")
TempStr = replace(TempStr,"2","_|_||__|_|_||")
TempStr = replace(TempStr,"3","_||_||__|_|_|")
TempStr = replace(TempStr,"4","_|_|__||_|_||")
TempStr = replace(TempStr,"5","_||_|__||_|_|")
TempStr = replace(TempStr,"7","_|_|__|_||_||")
TempStr = replace(TempStr,"6","_|_||__||_|_|")
TempStr = replace(TempStr,"8","_||_|__|_||_|")
TempStr = replace(TempStr,"9","_|_||__|_||_|")
TempStr = replace(TempStr,"a","_||_|_|__|_||")
TempStr = replace(TempStr,"b","_|_||_|__|_||")
TempStr = replace(TempStr,"c","_||_||_|__|_|")
TempStr = replace(TempStr,"d","_|_|_||__|_||")
TempStr = replace(TempStr,"e","_||_|_||__|_|")
TempStr = replace(TempStr,"f","_|_||_||__|_|")
TempStr = replace(TempStr,"g","_|_|_|__||_||")
TempStr = replace(TempStr,"h","_||_|_|__||_|")
TempStr = replace(TempStr,"i","_|_||_|__||_|")
TempStr = replace(TempStr,"j","_|_|_||__||_|")
TempStr = replace(TempStr,"k","_||_|_|_|__||")
TempStr = replace(TempStr,"l","_|_||_|_|__||")
TempStr = replace(TempStr,"m","_||_||_|_|__|")
TempStr = replace(TempStr,"n","_|_|_||_|__||")
TempStr = replace(TempStr,"o","_||_|_||_|__|")
TempStr = replace(TempStr,"p","_|_||_||_|__|")
TempStr = replace(TempStr,"r","_||_|_|_||__|")
TempStr = replace(TempStr,"q","_|_|_|_||__||")
TempStr = replace(TempStr,"s","_|_||_|_||__|")
TempStr = replace(TempStr,"t","_|_|_||_||__|")
TempStr = replace(TempStr,"u","_||__|_|_|_||")
TempStr = replace(TempStr,"v","_|__||_|_|_||")
TempStr = replace(TempStr,"w","_||__||_|_|_|")
TempStr = replace(TempStr,"x","_|__|_||_|_||")
TempStr = replace(TempStr,"y","_||__|_||_|_|")
TempStr = replace(TempStr,"z","_|__||_||_|_|")
TempStr = replace(TempStr,"-","_|__|_|_||_||")
TempStr = replace(TempStr,"*","_|__|_||_||_|")
TempStr = replace(TempStr,"/","_|__|__|_|__|")
TempStr = replace(TempStr,"%","_|_|__|__|__|")
TempStr = replace(TempStr,"+","_|__|_|__|__|")
TempStr = replace(TempStr,".","_||__|_|_||_|")
BarCode = TempStr
End Function
'将BarCode1显示为条形码
Public Function ShowCode(BarCode1)
Dim Chars
Chars = BarCode1
Chars = replace(chars,"_","<span style='height:"&CodeHeight&";width:"&CodeWidth&";background:#FFFFFF'></span>")
Chars = replace(chars,"|","<span style='height:"&CodeHeight&";width:"&CodeWidth&";background:#000000'></span>")
ShowCode = Chars
End Function
'使用正则表达式验证String1是否匹配Pattern
Public Function Validation(Pattern, String1)
Dim RegExp1, Matches
'建立正则表达式
Set RegExp1 = New RegExp
'设置模式
RegExp1.Pattern = Pattern
'设置是否区分字符大小写
RegExp1.IgnoreCase = True
'设置全局可用性
RegExp1.Global = True
Matches = RegExp1.Test(String1)
Validation = Matches
End Function
'验证用户输入数据的合法性
If Chars <> "" Then
If Validation("^[abcdefghijklmnopqrstuvwxyz1234567890\+\-\*\/\%\$\.]*$",Chars) Then
'用户输入数据的合法，显示条形码
TempChars = Chars
Chars = LCase(Chars)
%>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" height="79">
<tr>
<td height="61" align="center"><%=ShowCode(BarCode(Chars))%></td>
</tr>
<tr>
<td height="18" align="center"><%=(TempChars)%></td>
</tr>
</table>
</center>
</div>
<%
Else
'用户输入数据的非法，提示错误
Response.Write("<br><center style='color:red;'>含有非法字符 </center>")
End If
End If
%>
</body>
</html>Top
3 楼bluemoon0001（小天--追梦浪子）回复于 2005-03-01 15:14:21 得分 0
楼上的，我用你的代码测试，我把我的一包香烟上的条件码输上去，结果生成的和我香烟上的不一样，呵呵。Top
4 楼ljlyy（亮亮）回复于 2005-03-01 16:44:55 得分 0
生是可以生成，不知道能不能用。
Top
5 楼philcc（一包中华）回复于 2005-03-01 16:54:38 得分 0
to:bluemoon0001(小天--追梦浪子)
要是相同的用这个有什么用啊，就是因为没个条形码所代表的字符不一样，所以才能防伪。Top
6 楼bluemoon0001（小天--追梦浪子）回复于 2005-03-03 09:48:56 得分 0
to:philcc(一包中华)
不好意思，我对条型码真的不太了解，我想问题一下，相同的字符组合，生成的条型码是否相同，条型码，有什么规则吗？
谢谢。Top
