<form id="hz9zz"></form>
    • <form id="hz9zz"></form>
    

      

      <nobr id="hz9zz"></nobr>
      <form id="hz9zz"></form>
      3.   
          
      明輝手游網中心：是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺！
                   
        
                           
        
                        		  
        
                 
              
                
      全角英文轉為半角
                
                  發表時間：2024-01-19             來源：明輝站整理相關軟件相關文章人氣：          
              
      [摘要]<html><head><title>將全角轉為半角，半角轉為全角</title><meta http-equiv="Content-Type" content="text/html; charset=gb2312...

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


              
              
                 
              
                                            
                              		       
                          
                           		  
        
                            
      
日韩精品一区二区三区高清