如何检查用户输入的是全角还是半角？

lgcandywen 2006-06-15 04:40:15

如何检查用户输入的是全角还是半角？

...全文

247 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

AppleBBS 2006-06-15

打赏
举报

全角英文转为半角

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

lgcandywen 2006-06-15