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

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

全角英文轉為半角

[摘要]<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="ABCDEFGHIJKLMNOPQRSTUVWXYZ'"
    tstrbig="ABCDEFGHIJKLMNOPQRSTUVWXYZ'"
    strsma="abcdefghijklmnopqrstuvwxyz"
    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">
A lady said to her friend that the sun is the most beautiful and useful body。
A gentlman answered:“Yes,Madam,the sun is a very fine body,but in my opinion,it is not so useful as the moom.”
“Why?”asked the lady.
“Because,”replied the gentleman,“the moon affords us light in the might-time,when we really want it,whereas we have the sun always with us in the day-time,when we have not so much meed of it.”</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> 


主站蜘蛛池模板: 思思久久99热只有精品 | 亚洲图片一区 | 日日操狠狠干 | 日韩操比视频 | 午夜视频在线看 | 香蕉毛片a | 日韩欧美国产视频 | 日韩a级毛片免费观看 | 亚洲wwww| 午夜视频久久久久一区 | 三级黄色影院 | 青草下载 | 天天看天天射天天视频 | 色女人综合 | 青青青国产在线手机免费观看 | 欧美亚洲人成网站在线观看刚交 | 小泽玛利亚久久一区二区三区 | 午夜影库 | 中文国产成人久久精品小说 | 小小的日本在线观看中文 | 亚洲va精品中文字幕 | 一级做性色a爰片久久毛片 一级做受视频免费是看美女 | 欧美专区欧美吧 | 亚洲男人的天堂久久无 | 亚洲丁香婷婷综合久久小说 | 中文www新版资源在线 | 新午夜影院 | 宅男午夜视频在线观看 | 青青青青爽极品在线视频 | 日本大蕉香蕉大视频在线观看 | 日韩网站在线观看 | 日韩在线观看一区二区三区 | 网络色综合久久 | 欧美中文字幕视频 | 亚洲午夜一区 | 亚洲影院在线播放 | 午夜成年免费观看视频 | 日韩在线视频在线观看 | 午夜性刺激在线观看视频 | 午夜影院免费视频 | 色综合九九 |