仓酷云

标题: ASP编程：Asp天生条形码源码 [打印本页]

作者: 冷月葬花魂 时间: 2015-1-16 22:14
标题: ASP编程：Asp天生条形码源码
使用cdonts，可以发送、查看邮件，实现webmail的功能。结合wsh，可以实现对nt主机的管理，如nt用户管理、iis虚拟主机设置、exchange邮箱设置等等，就像管理本地机一样方便。条形码<html>
<head>
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
<metaname="Keywords"content="webjx.com">
<METANAME="Author"CONTENT="haiwa">
<title>Asp天生条形码</title>
<style>

</style>
</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
functiondragtext(ccode)
c=ccode
dragtext=""
fori=1tolen(c)
dragtext=dragtext&"<spanstyle=width:26;text-align:center>"&mid(c,i,1)&"</span>"
next
dragtext=dragtext
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最大的缺点在于网络的安全性和可靠性，企业将经营数据放在开放的平台上，最大的担忧就是如何保证这些数据不被其他人破坏。

作者: 再见西城 时间: 2015-1-17 18:40
跟学别的语言一样，先掌握变量，流程控制语句(就是ifwhileselect)等，函数/过程，数组

作者: 山那边是海 时间: 2015-1-21 07:44
多看多学多思。多看一些关于ASP的书籍，一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人，向同学老师多多学习，不论知识的大小;多思则是要将学到的知识灵活运用。

作者: 因胸联盟 时间: 2015-1-30 11:16
最近在学asp，不要问我为什么不直接学.net，因为公司网站是asp做的所以有这个需要，卖了本书asp入门到精通，对里面的六大内置对象老是记不住，还有很多属性和方法看的头晕。

作者: 不帅 时间: 2015-2-6 10:55
我们必须明确一个大方向，不要只是停留在因为学而去学,我们应有方向应有目标.

作者: 飘飘悠悠 时间: 2015-2-16 00:15
如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助:

作者: 冷月葬花魂 时间: 2015-3-4 19:23
下载一个源代码，然后再下载一个VBScript帮助，在源代码中遇到不认识的函数或是其他什么程序，都可以查帮助进行解决，这样学习效率很高。

作者: 简单生活 时间: 2015-3-11 20:47
还有如何才能在最短的时间内学完?我每天可以有效学习2小时，双休日4小时。

作者: 透明 时间: 2015-3-19 12:56
多看多学多思。多看一些关于ASP的书籍，一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人，向同学老师多多学习，不论知识的大小;多思则是要将学到的知识灵活运用。

作者: 小妖女 时间: 2015-3-28 05:21
哪些内置对象是可以跳过的，或者哪些属性和方法是用不到的?

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