- 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:[email protected]
'語言：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隨星播如何直播？隨星播直播圖文說明教程
相關文章
