关于条形码的问题
每本书后面都有条形码,如果直接用图书馆提供的系统就能一扫描读取到图书信息,现在不用图书馆的系统,而是自己建立一个关于书的表,书的信息自己录入表中,但有什么方法把书后面的条形码的内容扫描出并存在自己建的表中?
PS:我想书后面的条形码的值应该也是一些数据和字母组成的吧?
[解决办法]
<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>
[解决办法]
一扫就有数据出来,也就是书后面的isbn码,也就是下面的哪排数字:)
你在获得输入焦点的任何地方一扫就相当于在哪儿用键盘录入下面的哪排isbn码的效果一样:)
