谁有条码生成程序愿意以200分相送！急用！ 可以另外开贴！
看看这个程序！ 谁能为我提供，谢谢！
http://www.argox.com.cn/asp/code/code.asp
问题点数：100、回复次数：26Top
1 楼xaodoudou（我不想做潜水员）回复于 2004-04-04 20:07:40 得分 0
ASP 下面实现起来有点困难
PHP 就简单多了，直接用GD库就行了
ASP 下 你可以用VC或VB 写一个组件，然后放在服务器端调用
你给的那个例子后台可能有一个组件，他们的程序和ASP 用的是同一个Top
2 楼QQgenie（妖魔鬼怪）回复于 2004-04-04 20:40:07 得分 0
就是由0和1组成的图形，下面加一行数字。不会难的。
Top
3 楼er1981（从ASP向ASP.NET过度）回复于 2004-04-04 20:42:51 得分 0
谁有样的代码，发给我mfdzzz1981@163.com
小弟必有重写！原理我知道不是很难的！Top
4 楼lawdoor（【风语者】）回复于 2004-04-04 20:47:57 得分 0
到这里下载吧：
http://www.bokai.com/download.htmTop
5 楼loveweb（洗洗睡了）回复于 2004-04-04 20:49:18 得分 0
http://expert.csdn.net/Expert/topic/2143/2143612.xml?temp=.6820795
有下载地址的Top
6 楼er1981（从ASP向ASP.NET过度）回复于 2004-04-04 20:50:01 得分 0
这里都是试用版本的！Top
7 楼51windows（海娃）回复于 2004-04-04 21:12:54 得分 0
0101001101101
每个数字都是一个图片
下面是转换代码
zf = repalce("0","0101001101101")
zf = repalce("1","0110100101011")
zf = repalce("2","0101100101011")
zf = repalce("3","0110110010101")
zf = repalce("4","0101001101011")
zf = repalce("5","0110100110101")
zf = repalce("7","0101001011011")
zf = repalce("6","0101100110101")
zf = repalce("8","0110100101101")
zf = repalce("9","0101100101101")
zf = repalce("a","0110101001011")
zf = repalce("b","0101101001011")
zf = repalce("c","0110110100101")
zf = repalce("d","0101011001011")
zf = repalce("e","0110101100101")
zf = repalce("f","0101101100101")
zf = repalce("g","0101010011011")
zf = repalce("h","0110101001101")
zf = repalce("i","0101101001101")
zf = repalce("j","0101011001101")
zf = repalce("k","0110101010011")
zf = repalce("l","0101101010011")
zf = repalce("m","0110110101001")
zf = repalce("n","0101011010011")
zf = repalce("o","0110101101001")
zf = repalce("p","0101101101001")
zf = repalce("r","0110101011001")
zf = repalce("q","0101010110011")
zf = repalce("s","0101101011001")
zf = repalce("t","0101011011001")
zf = repalce("u","0110010101011")
zf = repalce("v","0100110101011")
zf = repalce("w","0110011010101")
zf = repalce("x","0100101101011")
zf = repalce("y","0110010110101")
zf = repalce("z","0100110110101")
zf = repalce("-","0100101011011")
zf = repalce("*","0100101101101")
zf = repalce("/","0100100101001")
zf = repalce("%","0101001001001")
zf = repalce("+","0100101001001")
Top
8 楼atao98（为了梦，爱一生）回复于 2004-04-04 21:17:49 得分 0
我以前做过，是用条形码的图形做的，你也可以用条形码字体试试Top
9 楼51windows（海娃）回复于 2004-04-04 21:20:21 得分 0
低级错误，repalce都写错了Top
10 楼atao98（为了梦，爱一生）回复于 2004-04-04 21:21:15 得分 0
把电子邮件给我，我发给你Top
11 楼er1981（从ASP向ASP.NET过度）回复于 2004-04-04 21:22:44 得分 0
mfdzzz1981@sohu.com 最好是网络版的！Top
12 楼lsaturn（土星-站了一晚）回复于 2004-04-04 21:37:25 得分 0
我自己做了个39码的,附送原代码
不知道你看得上不
lsaturn@163.netTop
13 楼51windows（海娃）回复于 2004-04-04 22:12:31 得分 0
看一下这个怎么样
http://www.51windows.net/myfile/asp/codeflag.aspTop
14 楼lsaturn（土星-站了一晚）回复于 2004-04-04 23:24:02 得分 0
娃,你的那个是假的吧?Top
15 楼cxty（沉酗天涯）回复于 2004-04-04 23:30:50 得分 0
51windows(海娃)
我就看了怪怪的～
替换？？？？？
zf = repalce("0","0101001101101")
？？？？？不懂哦～～～～～～～～～～～～Top
16 楼cxty（沉酗天涯）回复于 2004-04-04 23:32:18 得分 0
51windows(海娃)
你那个不错！！！！
呵呵～可以楼主要的应该生成图片的！Top
17 楼QQgenie（妖魔鬼怪）回复于 2004-04-04 23:44:49 得分 10
用51windows(海娃)的做了一个：
0.jpg,1.jpg到这里下载：http://www.argox.com.cn/asp/code/0.jpg
http://www.argox.com.cn/asp/code/1.jpg
放在image下
<center><form name="form1" method="post">合法字符：ABCDEFGHIJKLMNOPQRSTUVWXYZ 1234567890 + - * / % $ .<br>
<br><input name="zf" type="text" value="123" size="25" maxlength="15">
<input type="submit" name="Submit" value="生成">
</form>
<center>
<%
zf1="*"&ucase(request("zf"))&"*"
zf=zf1
zf = replace(zf,"0","0101001101101")
zf = replace(zf,"1","0110100101011")
zf = replace(zf,"2","0101100101011")
zf = replace(zf,"3","0110110010101")
zf = replace(zf,"4","0101001101011")
zf = replace(zf,"5","0110100110101")
zf = replace(zf,"7","0101001011011")
zf = replace(zf,"6","0101100110101")
zf = replace(zf,"8","0110100101101")
zf = replace(zf,"9","0101100101101")
zf = replace(zf,"A","0110101001011")
zf = replace(zf,"B","0101101001011")
zf = replace(zf,"C","0110110100101")
zf = replace(zf,"D","0101011001011")
zf = replace(zf,"E","0110101100101")
zf = replace(zf,"F","0101101100101")
zf = replace(zf,"G","0101010011011")
zf = replace(zf,"H","0110101001101")
zf = replace(zf,"I","0101101001101")
zf = replace(zf,"J","0101011001101")
zf = replace(zf,"K","0110101010011")
zf = replace(zf,"L","0101101010011")
zf = replace(zf,"M","0110110101001")
zf = replace(zf,"N","0101011010011")
zf = replace(zf,"O","0110101101001")
zf = replace(zf,"P","0101101101001")
zf = replace(zf,"R","0110101011001")
zf = replace(zf,"Q","0101010110011")
zf = replace(zf,"S","0101101011001")
zf = replace(zf,"T","0101011011001")
zf = replace(zf,"U","0110010101011")
zf = replace(zf,"V","0100110101011")
zf = replace(zf,"W","0110011010101")
zf = replace(zf,"X","0100101101011")
zf = replace(zf,"Y","0110010110101")
zf = replace(zf,"Z","0100110110101")
zf = replace(zf,"-","0100101011011")
zf = replace(zf,"*","0100101101101")
zf = replace(zf,"/","0100100101001")
zf = replace(zf,"%","0101001001001")
zf = replace(zf,"+","0100101001001")
%>
<table border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td> <font size="2">
<%
i=1
do while i<=len(zf)
num=mid(zf,i,1)
response.write "<img src=""image/"&num&".jpg"" width=""2"" height=""50"">"
i=i+1
loop
%>
</font></td></tr></table>
<table border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<%
i=1
do while i<=len(zf1)
str=mid(zf1,i,1)
response.write "<td width=""26"" align=""center""><font size=""2"">"&str&"</font></td>"
i=i+1
loop
%>
</tr>
</table>Top
18 楼er1981（从ASP向ASP.NET过度）回复于 2004-04-05 08:28:21 得分 0
QQgenie(妖魔鬼怪) 你的
0.jpg,1.jpg到这里下载：http://www.argox.com.cn/asp/code/0.jpg
http://www.argox.com.cn/asp/code/1.jpg
连接地址也不好使啊！Top
19 楼qiao198（乔本）回复于 2004-04-05 08:37:32 得分 0
发给我，我要
qiao198@hotmail.comTop
20 楼er1981（从ASP向ASP.NET过度）回复于 2004-04-05 08:47:53 得分 0
zf = replace(zf,"0","0101001101101")
这是什么意思啊！Top
21 楼lsaturn（土星-站了一晚）回复于 2004-04-05 09:40:30 得分 10
ok
查收Top
22 楼er1981（从ASP向ASP.NET过度）回复于 2004-04-05 10:17:43 得分 0
不好使阿！Top
23 楼lsaturn（土星-站了一晚）回复于 2004-04-05 10:47:23 得分 0
代码都给你了
自己改啊
本来就做了一个刚好够用的东东Top
24 楼er1981（从ASP向ASP.NET过度）回复于 2004-04-05 11:53:44 得分 0
QQgenie(妖魔鬼怪) 代码有些问题如果我输入0的话你的条形码就会变化了！ 看看这应该怎么解决阿！Top
25 楼51windows（海娃）回复于 2004-04-05 12:07:42 得分 0
图片也可以，但很麻烦
http://www.blueidea.com/bbs/archivecontent.asp?id=1096040Top
26 楼51windows（海娃）回复于 2004-04-05 12:09:57 得分 80
我把0的问题解决了，代码：
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="Keywords" content="51windows.Net">
<META NAME="Author" CONTENT="haiwa">
<title>New Document -51windows.Net</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>Top
