|
<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>
|
