仓酷云

标题: ASP网页设计用ASP天生ZT条型码 [打印本页]

作者: 山那边是海 时间: 2015-1-16 22:16
标题: ASP网页设计用ASP天生ZT条型码
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
还有如何才能在最短的时间内学完?我每天可以有效学习2小时，双休日4小时。

作者: 蒙在股里 时间: 2015-1-24 12:10
它可通过内置的组件实现更强大的功能，如使用A-DO可以轻松地访问数据库。

作者: 深爱那片海 时间: 2015-2-1 10:34
掌握asp的特性而且一定要知道为什么。

作者: 只想知道 时间: 2015-2-7 03:53
Application:这个存储服务端的数据，如果不清除，会直到web应用程序结束才清除(例如重启站点)

作者: 第二个灵魂 时间: 2015-2-20 12:58
ASP主要是用好六个对象，其实最主要的是用好其中两个：response和request，就可以随心所欲地控制网页变换和响应用户动作了。

作者: 莫相离 时间: 2015-3-6 17:42
另外因为asp需要使用组件，所以了解一点组件的知识(ADODB也是组件)

作者: 飘灵儿 时间: 2015-3-13 05:09
学习是为了用的，是为了让你的程序产生价值，把握住这个原则会比较轻松点。除此之外，课外时间一定要多参加一些社会实践活动，来锻炼自己的能力。

作者: 小妖女 时间: 2015-3-20 13:43
学习是为了用的，是为了让你的程序产生价值，把握住这个原则会比较轻松点。除此之外，课外时间一定要多参加一些社会实践活动，来锻炼自己的能力。

欢迎光临仓酷云 (http://ckuyun.com/)