asp输入条形码? - ASP技术论坛

楼主

问题点数：0 回复次数：6

asp输入条形码?

大家好:

我想问一下,我如何使图书的条形码输入到access数据表里(在asp编的动态页面里,且表里已有这个字段),还有这个字段应设为什么型?

多谢!!!1

搜索更多相关主题的帖子: 条形码　 asp　表里　字段　输入　

第 2 楼

得分:0

我有一个条形码生成程序，可是，那应该不是你要的

不过，我可以说一下我的思路

那个条形码生成程序就是把一个字符串生成条形码，只是普通字符串而已

是不是可以通过计算机把条形码还原成字符串，或者，一串01字符存到数据库里面呢？那样存的话，相信大家都会了

第 3 楼

得分:0

<% '**************************************************************************************************** '***********合法字符如下：ABCDEFGHIJKLMNOPQRSTUVWXYZ 1234567890 + - * / % $ . '**************************************************************************************************** '条形码生成程序 '海娃@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) '*************************************************************************************************** '********************输出条形码图形<%=dragcode(haiwaocde(code))%> '********************输出用户原字符<%=(ocode)%> '********************输出出错提示信息<%=errstr%> '**************************************************************************************************** %>

第 4 楼

得分:0

<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>Asp生成系形码</title> <style>  </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

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>

第 5 楼

得分:0

当然，从扫描图书的条形码到转换成字符串的过程我真的一点也不了解

只是希望能给你一点点思路

如果说得不对，呵呵，就当我没说

第 6 楼

得分:0

感谢!

非常感谢!这确实是个不错的想法

这样我可以用手输入,但我想如果我们用扫描仪(条形码)直接扫进去,那么我该怎么来编这个接口程序??

[此贴子已经被作者于2004-11-01 13:52:20编辑过]

第 7 楼

得分:0

这个怕不是ASP的能力范围内的了吧？