仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 703|回复: 8
打印 上一主题 下一主题

[学习教程] ASP网页设计用ASP天生ZT条型码

[复制链接]
山那边是海 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 22:16:43 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
ASP是依赖组件的,能访问数据库的组件好多就有好多种,再有就是你微软的工具可是什么都要收钱的啊!<html>
<head>
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
<METANAME="Author"CONTENT="haiwa">
<title>Asp天生条形码</title>
</head>
<body>
<%
functionhaiwaocde(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
endfunction
code_H=52
code_W=2
functiondragcode(ccode)
c=ccode
c=replace(c,"_","<spanstyle=height:"&code_H&";width:"&code_w&";background:#FFFFFF></span>")
c=replace(c,"|","<spanstyle=height:"&code_H&";width:"&code_w&";background:#000000></span>")
dragcode=c
endfunction
FunctionCheckExp(patrn,str)
SetregEx=NewRegExp
regEx.Pattern=patrn
regEx.IgnoreCase=true
regEx.Global=True
CheckExp=regEx.test(str)
EndFunction
code=request("c")
ifcode=""then
code="*51windows.net*"
else
ifCheckexp("^[abcdefghijklmnopqrstuvwxyz1234567890+-*/\%$.]*$",code)then
code="*"&code&"*"
else
code="*51windows.net*"
errstr="<br><centerstyle=color:red;>含有不法字符</center>"
endif
endif
ocode=code
code=lcase(code)
%>
<center><formname="form1"method="post">正当字符:ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890+-*/%$.<br><br><inputname="c"type="text"value="<%=request("c")%>"size="25"maxlength="15"><inputtype="submit"name="Submit"value="提交"></form><center>
<divalign="center">
<center>
<tableborder="0"cellpadding="0"cellspacing="0"height="79">
<tr>
<tdheight="61"align="center"><%=dragcode(haiwaocde(code))%></td>
</tr>
<tr>
<tdheight="18"align="center"style="text-align:justify;text-justify:Distribute-all-lines;"><%=(ocode)%></td>
</tr>
</table>
</center>
</div>
<%=errstr%>
</body>
</html>
因为ASP脚本语言非常简单,因此其代码也简单易懂,结合HTML代码,可快速地完成网站的应用程序。还无法完全实现一些企业级的功能:完全的集群、负载均横。
若相依 该用户已被删除
沙发
发表于 2015-1-19 06:31:12 来自手机 | 只看该作者
还有如何才能在最短的时间内学完?我每天可以有效学习2小时,双休日4小时。
蒙在股里 该用户已被删除
板凳
发表于 2015-1-24 12:10:06 | 只看该作者
它可通过内置的组件实现更强大的功能,如使用A-DO可以轻松地访问数据库。
深爱那片海 该用户已被删除
地板
发表于 2015-2-1 10:34:57 来自手机 | 只看该作者
掌握asp的特性而且一定要知道为什么。
只想知道 该用户已被删除
5#
发表于 2015-2-7 03:53:31 | 只看该作者
Application:这个存储服务端的数据,如果不清除,会直到web应用程序结束才清除(例如重启站点)
第二个灵魂 该用户已被删除
6#
发表于 2015-2-20 12:58:55 | 只看该作者
ASP主要是用好六个对象,其实最主要的是用好其中两个:response和request,就可以随心所欲地控制网页变换和响应用户动作了。
莫相离 该用户已被删除
7#
发表于 2015-3-6 17:42:29 | 只看该作者
另外因为asp需要使用组件,所以了解一点组件的知识(ADODB也是组件)
飘灵儿 该用户已被删除
8#
发表于 2015-3-13 05:09:56 | 只看该作者
学习是为了用的,是为了让你的程序产生价值,把握住这个原则会比较轻松点。除此之外,课外时间一定要多参加一些社会实践活动,来锻炼自己的能力。
小妖女 该用户已被删除
9#
发表于 2015-3-20 13:43:40 | 只看该作者
学习是为了用的,是为了让你的程序产生价值,把握住这个原则会比较轻松点。除此之外,课外时间一定要多参加一些社会实践活动,来锻炼自己的能力。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2024-12-22 15:54

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表