六月婷婷综合激情-六月婷婷综合-六月婷婷在线观看-六月婷婷在线-亚洲黄色在线网站-亚洲黄色在线观看网站

明輝手游網中心：是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺！

全角英文轉為半角

發表時間：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:[email protected]
'語言：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> 
主站蜘蛛池模板： 天天摸天天澡天天碰天天弄 | 视频在线观看91 | 日本免费一区二区在线观看 | 亚洲高清视频一区 | 在线不卡 | 日韩怡春院 | 色欧美在线 | 亚洲a级片在线观看 | 诱人的无内裤女教师bd | 日韩精品视频免费观看 | 亚洲a人 | 影音先锋色图 | 日本成人福利视频 | 日本一区二区三区欧美在线观看 | 日韩欧美黄色 | 三级中文有码中文字幕 | 日韩黄色免费观看 | 日韩激情淫片免费看 | 最新精品女神在线观看 | 亚色网站| 五月激情婷婷丁香 | 青青青国产在线观看免费网站 | 欧美一区二区不卡视频 | 亚洲自偷自偷图片在线高清 | 日韩一级在线播放免费观看 | 视频一区在线播放 | 欧美亚洲日本在线 | 日本在线观看网址 | 日本a级片免费观看 | 最近最新中文字幕1页 | 日韩在线视频精品 | 奇米色888| 欧美一级视频免费 | 一级在线视频 | 欧美在线视频免费播放 | 日本欧美一级 | 婷婷在线免费视频 | 天天舔天天爱 | 日韩中文字| 日韩精品手机在线 | 色噜噜狠狠狠狠色综合久 |