- 1PS提示：因为图层已锁定，无法编辑图层的处理方法
- 2Adobe Illustrator CS5 序列号大全
- 3picacg苹果版怎么找不到|picacg ios版是不是下架了介绍
- 4ACDsee注册码免费分享（含ACDsee18、ACDsee10等版本）
- 5苹果iphone自动时间不准确的多种校正方法
- 6眼萌app怎么色弱测试 眼萌app色弱测试图文说明教程
- 7PDF浏览器能看3D文件吗？PDF浏览器看3D文件图文详细教程
- 8百度安全卫士好用么_百度安全卫士技巧说明
- 9Potato(马铃薯聊天)怎么注册不了|Potato不能注册处理方法介绍
- 10Potato(土豆聊天)怎么换头像|Potato app更改头像方法介绍
- 11ipad版office如何激活? office365激活的图文说明教程
- 12最新的Adobe Illustrator CS4序列号大全
[摘要]<html><head><title>将全角转为半角，半角转为全角</title><meta http-equiv="Content-Type" content="text/html; charset=gb2312...
<html>
<head>
<title>将全角转为半角，半角转为全角</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="#FFFFFF">
<%
'---------------------------------------
'编写：johnsun Email:zjs@dagongbao.com
'语言：ASP+VBScript 转摘请保留版权说明
'direction:"1"大写转小写；"-1"小写转大写
'---------------------------------------
dim contentA,contentB
contentA=request.form("contentA")
if contentA<>"" then
CALL contentstr(contentA,"1")
end if
contentB=request.form("contentB")
if contentB<>"" then
CALL contentstr(contentB,"-1")
end if
function contentstr(content,direction)
dim strbig,tstrbig,strsma,tstrsma
strbig="ＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺ＇"
tstrbig="ABCDEFGHIJKLMNOPQRSTUVWXYZ'"
strsma="ａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚ"
tstrsma="abcdefghijklmnopqrstuvwxyz"
dim b(26),tb(26),s(25),ts(25)
for i=1 to 26
b(i-1)=mid(strbig,i,1)
tb(i-1)=mid(tstrbig,i,1)
if direction="1" then
content=replace(content,b(i-1),tb(i-1))
elseif direction="-1" then
content=replace(content,tb(i-1),b(i-1))
end if
s(i-1)=mid(strsma,i,1)
ts(i-1)=mid(tstrsma,i,1)
if direction="1" then
content=replace(content,s(i-1),ts(i-1))
elseif direction="-1" then
content=replace(content,ts(i-1),s(i-1))
end if
next
'-------------------------------------------
content=replace(content,chr(13)&chr(10),"<br>")
if direction="1" then
content=replace(content,""," ")
else
content=replace(content," ","")
end if
'-------------------------------------------
contentstr=content
if direction="1" then
response.write "大写转小写：<br>"
else
response.write "小写转大写：<br>"
end if
response.write contentstr & "<BR>"
end function
%>
<form action='d.asp' method="post">
大写转小写：
<textarea name="contentA" rows="8" cols="30">
Ａ ｌａｄｙ ｓａｉｄ ｔｏ ｈｅｒ ｆｒｉｅｎｄ ｔｈａｔ ｔｈｅ ｓｕｎ ｉｓ ｔｈｅ ｍｏｓｔ ｂｅａｕｔｉｆｕｌ ａｎｄ ｕｓｅｆｕｌ ｂｏｄｙ。
Ａ ｇｅｎｔｌｍａｎ ａｎｓｗｅｒｅｄ：“Ｙｅｓ，Ｍａｄａｍ，ｔｈｅ ｓｕｎ ｉｓ ａ ｖｅｒｙ ｆｉｎｅ ｂｏｄｙ，ｂｕｔ ｉｎ ｍｙ ｏｐｉｎｉｏｎ，ｉｔ ｉｓ ｎｏｔ ｓｏ ｕｓｅｆｕｌ ａｓ ｔｈｅ ｍｏｏｍ.”
“Ｗｈｙ？”ａｓｋｅｄ ｔｈｅ ｌａｄｙ.
“Ｂｅｃａｕｓｅ，”ｒｅｐｌｉｅｄ ｔｈｅ ｇｅｎｔｌｅｍａｎ，“ｔｈｅ ｍｏｏｎ ａｆｆｏｒｄｓ ｕｓ ｌｉｇｈｔ ｉｎ ｔｈｅ ｍｉｇｈｔ－ｔｉｍｅ，ｗｈｅｎ ｗｅ ｒｅａｌｌｙ ｗａｎｔ ｉｔ，ｗｈｅｒｅａｓ ｗｅ ｈａｖｅ ｔｈｅ ｓｕｎ ａｌｗａｙｓ ｗｉｔｈ ｕｓ ｉｎ ｔｈｅ ｄａｙ－ｔｉｍｅ，ｗｈｅｎ ｗｅ ｈａｖｅ ｎｏｔ ｓｏ ｍｕｃｈ ｍｅｅｄ ｏｆ ｉｔ.”</textarea>
<br>
小写转大写：
<textarea name="contentB" rows="8" cols="30">
Arctic Explorer Boy：Dad，when I grow up I want to be an Arctic Explorer．
Father：That＇s fine，Bill．
Boy：But I want to go into training at once．
Father：And so﹖
Boy：Well，I want a dollar a day for ice－cream so I＇ll get used to the cold．
</textarea>
<br>
<input type="submit" name="Submit" value="Submit">
</form>
</body>
</html>
推荐资讯 总人气榜
最新教程 本月人气
- 1photoshop新版本本是什么？
- 2来电显示是什么？
- 3拉黑是什么意思？
- 4dllhost.exe是什么进程？
- 5白苹果是什么意思？
- 6什么是外挂？
- 7enterprise是什么版本？
- 8bios升级有什么用？
- 9qq邮箱积分有什么用？
- 10yy是什么意思？
- 11什么是ie浏览器？
- 12什么浏览器好用稳定速度快？
- 1防范PPTV网络电视偷跑P2P流量的方法_pptv网络电视_下载之家
- 217app如何注册 17app注册方法流程
- 3Cool Edit提示：resample.xfm文件失去怎么办？
- 4爱奇艺会员号共享（更新日期：2016年9月28日）
- 5豆瓣app下载地址 豆瓣app官方版下载
- 6用XML与ASP完成购物车
- 7remoteview如何用？remoteview使用方法
- 8百度抢票宝验证码不显示如何办？百度抢票不显示验证码处理方法
- 9人生日历抢票如何用？人生日历抢票插件使用图文说明教程
- 10柚子相机如何用？柚子相机使用方法
- 11搜狗输入法如何设置快捷键？搜狗输入法设置快捷键图文说明教程
- 12随星播如何直播？随星播直播图文说明教程
相关文章
