asp 条形码打印问题
当前位置:点晴教程→知识管理交流
→『 技术文档交流 』
以下是asp自动生成条码,但是无法打印,打印就显示空白,网上所说的设置 工具-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> <% '条形码生成程序 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 = "8888888888" else if Checkexp("^[abcdefghijklmnopqrstuvwxyz1234567890\+\-\*\/\%\$\.]*$",code) then code = code else code = "8888888888" 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" ><%=(ocode)%></td> </tr> </table> </center> </div> <%=errstr%> </body> </html> 该文章在 2012/9/25 0:39:08 编辑过
|
关键字查询
相关文章
正在查询... |