全角英文转为半角
日期：2013-02-15 浏览次数：20942 次
<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><
<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><
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
