全角英文转为半角

2022-07-15 80酷酷网 80kuku.com

　　<html>
<head>
<title>将全角转为半角，半角转为全角</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<body bgcolor="#FFFFFF">

<%
'---------------------------------------
'编写：johnsun Email:zjsdagongbao.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),"
")
    if direction="1" then
        content=replace(content,"　"," ")
    else
        content=replace(content," ","　")
    end if
'-------------------------------------------
    contentstr=content
    if direction="1" then
        response.write "大写转小写：
"
    else
        response.write "小写转大写：
"
    end if
    response.write contentstr & "
"
end function
%>
<form action='d.asp' method="post">
大写转小写：
  <textarea name="contentA" rows="8" cols="30">
Ａｌａｄｙｓａｉｄｔｏｈｅｒｆｒｉｅｎｄｔｈａｔｔｈｅｓｕｎｉｓｔｈｅｍｏｓｔｂｅａｕｔｉｆｕｌａｎｄｕｓｅｆｕｌｂｏｄｙ。
Ａｇｅｎｔｌｍａｎａｎｓｗｅｒｅｄ：“Ｙｅｓ，Ｍａｄａｍ，ｔｈｅｓｕｎｉｓａｖｅｒｙｆｉｎｅｂｏｄｙ，ｂｕｔｉｎｍｙｏｐｉｎｉｏｎ，ｉｔｉｓｎｏｔｓｏｕｓｅｆｕｌａｓｔｈｅｍｏｏｍ.”
“Ｗｈｙ？”ａｓｋｅｄｔｈｅｌａｄｙ.
“Ｂｅｃａｕｓｅ，”ｒｅｐｌｉｅｄｔｈｅｇｅｎｔｌｅｍａｎ，“ｔｈｅｍｏｏｎａｆｆｏｒｄｓｕｓｌｉｇｈｔｉｎｔｈｅｍｉｇｈｔ－ｔｉｍｅ，ｗｈｅｎｗｅｒｅａｌｌｙｗａｎｔｉｔ，ｗｈｅｒｅａｓｗｅｈａｖｅｔｈｅｓｕｎａｌｗａｙｓｗｉｔｈｕｓｉｎｔｈｅｄａｙ－ｔｉｍｅ，ｗｈｅｎｗｅｈａｖｅｎｏｔｓｏｍｕｃｈｍｅｅｄｏｆｉｔ.”</textarea>


  小写转大写：
  <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>


  <input type="submit" name="Submit" value="Submit">
</form>
</body>
</html>