- 1PS提示：因为图层已锁定，无法编辑图层的处理方法
- 2Adobe Illustrator CS5 序列号大全
- 3picacg苹果版怎么找不到|picacg ios版是不是下架了介绍
- 4ACDsee注册码免费分享（含ACDsee18、ACDsee10等版本）
- 5苹果iphone自动时间不准确的多种校正方法
- 6PDF浏览器能看3D文件吗？PDF浏览器看3D文件图文详细教程
- 7眼萌app怎么色弱测试 眼萌app色弱测试图文说明教程
- 8百度安全卫士好用么_百度安全卫士技巧说明
- 9Potato(马铃薯聊天)怎么注册不了|Potato不能注册处理方法介绍
- 10Potato(土豆聊天)怎么换头像|Potato app更改头像方法介绍
- 11ipad版office如何激活? office365激活的图文说明教程
- 12最新的Adobe Illustrator CS4序列号大全
[摘要]一个用asp生成条形码的例子代码。(注意：生成的图形为html代码,而非图片，打印时，请在IE的Internet选项=>高级＝》打印 选定“打印背景颜色和图像”) 演示地址：http://www.51windows.net/Asp_samples/codeflag.asp 更简单的方法就是使...
一个用asp生成条形码的例子代码。(注意：生成的图形为html代码,而非图片，打印时，请在IE的Internet选项=>高级＝》打印 选定“打印背景颜色和图像”) 演示地址：http://www.51windows.net/Asp_samples/codeflag.asp 更简单的方法就是使用条形码字体，下载：http://www.51windows.net/2004/share/font/tiaoma.rar（如果地址无法下载，请在Google上搜索"条形码 字体"）。 <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.Netfunction 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 = zfend functioncode_H = 52code_W = 2function 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 = cend functionfunction 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 = dragtextend functionFunction CheckExp(patrn,str)Set regEx=New RegExpregEx.Pattern=patrnregEx.IgnoreCase=trueregEx.Global=TrueCheckExp = regEx.test(str) End Functioncode = 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 ifend ifocode = codecode = 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>
推荐资讯 总人气榜
最新教程 本月人气
- 1炉石传说盒子封号吗？炉石传说盒子会封号吗？
- 2炉石传说盒子服务器验证失败处理方法
- 3twitter手机注册图文说明教程 推特手机如何注册步骤
- 4腾讯手机管家私密空间不见了/找不到处理方法
- 5虾米音乐离线音乐包如何用？离线音乐包下载安装图文说明教程
- 6coreldraw如何抠图？coreldraw抠图图文说明教程
- 7网易云音乐桌面歌词如何添加 桌面歌词显示方法
- 8网易云音乐如何下载mv？网易云音乐下载mv方法
- 9网易云音乐歌词在什么地方？如何看？网易云音乐显示歌词方法
- 10网易云音乐歌词分享图文说明教程 网易云音乐如何分享歌词步骤
- 11百度翻译离线翻译包下载安装图文说明教程(附百度翻译离线包下载)
- 12鲁大师手机回收是干什么的？可信吗？
相关文章
