惯性聚合 高效追踪和阅读你感兴趣的博客、新闻、科技资讯
阅读原文 在惯性聚合中打开

推荐订阅源

L
LINUX DO - 热门话题
Stack Overflow Blog
Stack Overflow Blog
B
Blog
WordPress大学
WordPress大学
Project Zero
Project Zero
P
Palo Alto Networks Blog
阮一峰的网络日志
阮一峰的网络日志
博客园 - 司徒正美
有赞技术团队
有赞技术团队
S
SegmentFault 最新的问题
freeCodeCamp Programming Tutorials: Python, JavaScript, Git & More
小众软件
小众软件
T
Tailwind CSS Blog
Forbes - Security
Forbes - Security
F
Full Disclosure
SecWiki News
SecWiki News
钛媒体:引领未来商业与生活新知
钛媒体:引领未来商业与生活新知
Hacker News: Ask HN
Hacker News: Ask HN
C
Check Point Blog
Microsoft Security Blog
Microsoft Security Blog
Threat Intelligence Blog | Flashpoint
Threat Intelligence Blog | Flashpoint
F
Fortinet All Blogs
Cisco Talos Blog
Cisco Talos Blog
G
Google Developers Blog
J
Java Code Geeks
Google DeepMind News
Google DeepMind News
人人都是产品经理
人人都是产品经理
CTFtime.org: upcoming CTF events
CTFtime.org: upcoming CTF events
Recorded Future
Recorded Future
O
OpenAI News
Spread Privacy
Spread Privacy
MongoDB | Blog
MongoDB | Blog
H
Hackread – Cybersecurity News, Data Breaches, AI and More
C
Cybersecurity and Infrastructure Security Agency CISA
S
Securelist
V
Vulnerabilities – Threatpost
Y
Y Combinator Blog
IT之家
IT之家
U
Unit 42
腾讯CDC
S
Security Affairs
C
Cisco Blogs
Schneier on Security
Schneier on Security
The Last Watchdog
The Last Watchdog
B
Blog RSS Feed
宝玉的分享
宝玉的分享
cs.AI updates on arXiv.org
cs.AI updates on arXiv.org
S
Security @ Cisco Blogs
Cyberwarzone
Cyberwarzone
T
The Blog of Author Tim Ferriss

博客园 - 无声雨

远程桌面不能复制粘贴到本地的解决办法 操作文件或者文件夹做硬连接 使用Google Map获取地址坐标 SharePoint2010 安装时报“未能启动数据库服务 MSSQL$Sharepoint"解决办法 解决OracleDBConsoleorcl服务无法启动问题[转帖] oracle10g dbconsole 重建步骤(转帖) 做个记号,VS2008中选择默认环境 SQLServer2005SP2安装时提示KB921896错误 Asp.Net2.0中TreeView使用javascript客户端实现选择节点联动的脚本 WindowsXp系统时services.exe占用内存和CPU资源的问题 EXT中GRID自动适应宽与高 Grid使用动态数据源的问题 IE6下PNG图片对象以及其作为背景透明的处理 关于韩文等文字存储乱码的问题 EXT中的语言包 Ext中tree的研究 IE地址栏javascript代码(转) 设置双网卡同时访问内外网 BAT文件的妙用(转)
使用ASP生成条形码(转)
无声雨 · 2007-09-04 · via 博客园 - 无声雨

一个用ASP生成条形码的例子代码。(注意:生成的图形为Html代码,而非图片,打印时,请在IE的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>
<%
'条形码生成程序
'
海娃@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)
= ccode
= replace(c,"_","<span style='height:"&code_H&";width:"&code_w&";background:#FFFFFF'></span>")
= replace(c,"|","<span style='height:"&code_H&";width:"&code_w&";background:#000000'></span>")
dragcode 
= c
end function
function dragtext(ccode)
= 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 functionFunction 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>