ASP网页编程之全角英文转为半角
大家可以自己去看一看.可以说看得想呕吐.以前有次下了个动网来看.里面连基本内置函数的保护措施(函数没防御性)都没有.难怪经常补这个补那个了.可能现在.NET版会好点吧<html><head>
<title>将全角转为半角,半角转为全角</title>
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
</head>
<bodybgcolor="#FFFFFF">
<%
---------------------------------------
编写:johnsunEmail:zjs@dagongbao.com
言语:ASP+VBScript转摘请保存版权申明
direction:"1"年夜写转小写;"-1"小写转年夜写
---------------------------------------
dimcontentA,contentB
contentA=request.form("contentA")
ifcontentA""then
CALLcontentstr(contentA,"1")
endif
contentB=request.form("contentB")
ifcontentB""then
CALLcontentstr(contentB,"-1")
endif
functioncontentstr(content,direction)
dimstrbig,tstrbig,strsma,tstrsma
strbig="ABCDEFGHIJKLMNOPQRSTUVWXYZ'"
tstrbig="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
strsma="abcdefghijklmnopqrstuvwxyz"
tstrsma="abcdefghijklmnopqrstuvwxyz"
dimb(26),tb(26),s(25),ts(25)
fori=1to26
b(i-1)=mid(strbig,i,1)
tb(i-1)=mid(tstrbig,i,1)
ifdirection="1"then
content=replace(content,b(i-1),tb(i-1))
elseifdirection="-1"then
content=replace(content,tb(i-1),b(i-1))
endif
s(i-1)=mid(strsma,i,1)
ts(i-1)=mid(tstrsma,i,1)
ifdirection="1"then
content=replace(content,s(i-1),ts(i-1))
elseifdirection="-1"then
content=replace(content,ts(i-1),s(i-1))
endif
next
-------------------------------------------
content=replace(content,chr(13)&chr(10),"<br>")
ifdirection="1"then
content=replace(content," ","")
else
content=replace(content,""," ")
endif
-------------------------------------------
contentstr=content
ifdirection="1"then
response.write"年夜写转小写:<br>"
else
response.write"小写转年夜写:<br>"
endif
response.writecontentstr&"<BR>"
endfunction
%>
<formaction=d.aspmethod="post">
年夜写转小写:
<textareaname="contentA"rows="8"cols="30">
Aladysaidtoherfriendthatthesunisthemostbeautifulandusefulbody。
Agentlmananswered:“Yes,Madam,thesunisaveryfinebody,butinmyopinion,itisnotsousefulasthemoom.”
“Why?”askedthelady.
“Because,”repliedthegentleman,“themoonaffordsuslightinthemight-time,whenwereallywantit,whereaswehavethesunalwayswithusintheday-time,whenwehavenotsomuchmeedofit.”</textarea>
<br>
小写转年夜写:
<textareaname="contentB"rows="8"cols="30">
ArcticExplorerBoy:Dad,whenIgrowupIwanttobeanArcticExplorer.
Father:That'sfine,Bill.
Boy:ButIwanttogointotrainingatonce.
Father:Andsot
Boy:Well,Iwantadollaradayforice-creamsoI'llgetusedtothecold.
</textarea>
<br>
<inputtype="submit"name="Submit"value="Submit">
</form>
</body>
</html></p>强大的可扩展性。ASP具有强大的扩展性,可以实现与多种网络、硬件设备的连接:通过专用的通讯线路远程接入企业;通过远程拨号服务器为远程拨号客户提供服务;通过WAP为移动电话互联网客户服务。 它可通过内置的组件实现更强大的功能,如使用A-DO可以轻松地访问数据库。 掌握asp的特性而且一定要知道为什么。 Request:从字面上讲就是“请求”,因此这个是处理客户端提交的东东的,例如Resuest.Form,Request.QueryString,或者干脆Request("变量名") 兴趣爱好,那么你无须学编程,申请一个域名和空间,在网上下载一些免费开源的CMS系统,你不用改代码,只须熟悉它们的后台操作,像office一样简单方便,很快就能建一个站点,很多站长都是这样做的 ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。 因为ASP脚本语言非常简单,因此其代码也简单易懂,结合HTML代码,可快速地完成网站的应用程序。 交流是必要的,不管是生活还是学习我们都要试着去交流,通过交流我们可以学到很多我们自己本身所没有的知识,可以分享别人的经验甚至经历。 那么,ASP.Net有哪些改进呢? Session:这个存储跟客户端会话过程的数据,默认20分钟失效 封装性使得代码逻辑清晰,易于管理,并且应用到ASP.Net上就可以使业务逻辑和Html页面分离,这样无论页面原型如何改变,业务逻辑代码都不必做任何改动;继承性和多态性使得代码的可重用性大大提高。
页:
[1]