È«½ÇÓ¢ÎÄתΪ°ë½Çº¯Êý

<%
---------------------------------------
±àд£º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=a.asp method="post">
´óдתСд£º<br />

  <textarea name="contentA" rows="8" cols="30">
£Á £ì£á£ä£ù £ó£á£é£ä £ô£ï £è£å£ò £æ£ò£é£å£î£ä £ô£è£á£ô £ô£è£å £ó£õ£î £é£ó £ô£è£å £í£ï£ó£ô £â£å£á£õ£ô£é£æ£õ£ì £á£î£ä £õ£ó£å£æ£õ£ì £â£ï£ä£ù¡£
£Á £ç£å£î£ô£ì£í£á£î £á£î£ó£÷£å£ò£å£ä£º¡°£Ù£å£ó£¬£Í£á£ä£á£í£¬£ô£è£å £ó£õ£î £é£ó £á £ö£å£ò£ù £æ£é£î£å £â£ï£ä£ù£¬£â£õ£ô £é£î £í£ù £ï£ð£é£î£é£ï£î£¬£é£ô £é£ó £î£ï£ô £ó£ï £õ£ó£å£æ£õ£ì £á£ó £ô£è£å £í£ï£ï£í.¡±
¡°£×£è£ù£¿¡±£á£ó£ë£å£ä £ô£è£å £ì£á£ä£ù.
¡°£Â£å£ã£á£õ£ó£å£¬¡±£ò£å£ð£ì£é£å£ä £ô£è£å £ç£å£î£ô£ì£å£í£á£î£¬¡°£ô£è£å £í£ï£ï£î £á£æ£æ£ï£ò£ä£ó £õ£ó £ì£é£ç£è£ô £é£î £ô£è£å £í£é£ç£è£ô£­£ô£é£í£å£¬£÷£è£å£î £÷£å £ò£å£á£ì£ì£ù £÷£á£î£ô £é£ô£¬£÷£è£å£ò£å£á£ó £÷£å £è£á£ö£å £ô£è£å £ó£õ£î £á£ì£÷£á£ù£ó £÷£é£ô£è £õ£ó £é£î £ô£è£å £ä£á£ù£­£ô£é£í£å£¬£÷£è£å£î £÷£å £è£á£ö£å £î£ï£ô £ó£ï £í£õ£ã£è £í£å£å£ä £ï£æ £é£ô.¡±</textarea>
  <br>
  Сдת´óд£º <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©t
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>