ASP网页编程之全角英文转为半角

只看该作者 · 发表于 2015-1-16 23:20:08

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

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

x

大家可以自己去看一看.可以说看得想呕吐.以前有次下了个动网来看.里面连基本内置函数的保护措施(函数没防御性)都没有.难怪经常补这个补那个了.可能现在.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="ＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺ＇"
tstrbig="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
strsma="ａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚ"
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">
Ａｌａｄｙｓａｉｄｔｏｈｅｒｆｒｉｅｎｄｔｈａｔｔｈｅｓｕｎｉｓｔｈｅｍｏｓｔｂｅａｕｔｉｆｕｌａｎｄｕｓｅｆｕｌｂｏｄｙ。
Ａｇｅｎｔｌｍａｎａｎｓｗｅｒｅｄ：“Ｙｅｓ，Ｍａｄａｍ，ｔｈｅｓｕｎｉｓａｖｅｒｙｆｉｎｅｂｏｄｙ，ｂｕｔｉｎｍｙｏｐｉｎｉｏｎ，ｉｔｉｓｎｏｔｓｏｕｓｅｆｕｌａｓｔｈｅｍｏｏｍ.”
“Ｗｈｙ？”ａｓｋｅｄｔｈｅｌａｄｙ.
“Ｂｅｃａｕｓｅ，”ｒｅｐｌｉｅｄｔｈｅｇｅｎｔｌｅｍａｎ，“ｔｈｅｍｏｏｎａｆｆｏｒｄｓｕｓｌｉｇｈｔｉｎｔｈｅｍｉｇｈｔ－ｔｉｍｅ，ｗｈｅｎｗｅｒｅａｌｌｙｗａｎｔｉｔ，ｗｈｅｒｅａｓｗｅｈａｖｅｔｈｅｓｕｎａｌｗａｙｓｗｉｔｈｕｓｉｎｔｈｅｄａｙ－ｔｉｍｅ，ｗｈｅｎｗｅｈａｖｅｎｏｔｓｏｍｕｃｈｍｅｅｄｏｆｉｔ.”</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为移动电话互联网客户服务。

只看该作者 · 发表于 2015-1-20 07:23:56

它可通过内置的组件实现更强大的功能，如使用A-DO可以轻松地访问数据库。

只看该作者 · 发表于 2015-1-24 15:42:42

掌握asp的特性而且一定要知道为什么。

只看该作者 · 发表于 2015-1-25 22:23:25

Request:从字面上讲就是“请求”，因此这个是处理客户端提交的东东的,例如Resuest.Form，Request.QueryString,或者干脆Request("变量名")

只看该作者 · 发表于 2015-2-4 06:25:09

兴趣爱好，那么你无须学编程，申请一个域名和空间，在网上下载一些免费开源的CMS系统，你不用改代码，只须熟悉它们的后台操作，像office一样简单方便，很快就能建一个站点，很多站长都是这样做的

只看该作者 · 发表于 2015-2-9 17:32:16

ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。　　因为ASP脚本语言非常简单，因此其代码也简单易懂，结合HTML代码，可快速地完成网站的应用程序。

只看该作者 · 发表于 2015-2-27 12:54:18

交流是必要的，不管是生活还是学习我们都要试着去交流，通过交流我们可以学到很多我们自己本身所没有的知识，可以分享别人的经验甚至经历。

只看该作者 · 发表于 2015-3-9 04:38:40

那么，ASP.Net有哪些改进呢？

只看该作者 · 发表于 2015-3-16 20:40:35

Session:这个存储跟客户端会话过程的数据，默认20分钟失效

只看该作者 · 发表于 2015-3-23 00:29:17

封装性使得代码逻辑清晰，易于管理，并且应用到ASP.Net上就可以使业务逻辑和Html页面分离，这样无论页面原型如何改变，业务逻辑代码都不必做任何改动；继承性和多态性使得代码的可重用性大大提高。

		自动登录	找回密码
密码			立即注册

[学习教程] ASP网页编程之全角英文转为半角

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

相关帖子