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

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

全角英文轉為半角

發表時間：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> 
主站蜘蛛池模板： 视频二区日韩 | 亚州三级 | 日本成a人片在线观看网址 日本草草影院 | 在哪里看毛片 | 最新国产你懂的在线网址 | 亚洲综合色一区 | 有码 在线| 亚洲欧美日韩在线线精品 | 色一欲一性一乱一区二区三区 | 日韩生活片 | 四虎国产精品影库永久免费 | 欧美综合一区 | 亚洲精品自拍 | 最近日本韩国观看 | 三级视频欧美 | 色综合天天综合 | 亚洲福利视频一区 | 诱人的无内裤女教师bd | 视频一区二区不卡 | 日韩欧美亚洲乱码中文字幕 | 午夜影院福利 | 青春草在线观看 | 亚洲成人欧美 | 手机看片日韩 | 日本不卡视频在线视频观看 | 在线综合亚洲欧美网站天堂 | 最近最新中文字幕在线第一页 | 青草视频网 | 日本欧美一级二级三级不卡 | 三级黄色在线播放 | 四虎国产精品永久在线网址 | 日本黄视频在线播放 | 亚洲五月六月丁香激情 | 欧美笫一页 | 亚洲六月丁香六月婷婷蜜芽 | 日本不卡高清 | 天天干天天干天天色 | 四虎亚洲精品 | 综合亚洲欧美 | 日本不卡一区二区三区 | 日本免费人成在线网站 |