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>
<!--
*{font:menu}
-->
</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("^*$",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最大的缺点在于网络的安全性和可靠性，企业将经营数据放在开放的平台上，最大的担忧就是如何保证这些数据不被其他人破坏。 跟学别的语言一样，先掌握变量，流程控制语句(就是ifwhileselect)等，函数/过程，数组 多看多学多思。多看一些关于ASP的书籍，一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人，向同学老师多多学习，不论知识的大小;多思则是要将学到的知识灵活运用。 最近在学asp，不要问我为什么不直接学.net，因为公司网站是asp做的所以有这个需要，卖了本书asp入门到精通，对里面的六大内置对象老是记不住，还有很多属性和方法看的头晕。 我们必须明确一个大方向，不要只是停留在因为学而去学,我们应有方向应有目标. 如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助: 下载一个源代码，然后再下载一个VBScript帮助，在源代码中遇到不认识的函数或是其他什么程序，都可以查帮助进行解决，这样学习效率很高。 还有如何才能在最短的时间内学完?我每天可以有效学习2小时，双休日4小时。 多看多学多思。多看一些关于ASP的书籍，一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人，向同学老师多多学习，不论知识的大小;多思则是要将学到的知识灵活运用。 哪些内置对象是可以跳过的，或者哪些属性和方法是用不到的?
页:
[1]