国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > ASP > 正文

ASP實例教程:全角半角轉換

2024-05-04 11:06:56
字體:
來源:轉載
供稿:網友

我們都知道我們在輸入文字和標點的時候有全角和半角可以切換,那么在ASP編程中又如何進行轉換呢?本文ASP實例教程,教你在全角半角間轉換。

javascript轉換部分:

<SCRIPT>
/*
****************************
* 建站學參數說明:
* str:要轉換的字符串
* flag:標記,為0時半轉全,為非0時全轉半
* 返回值類型:字符串

****************************
*/
function DBC2SBC(str,flag) {
var i;
var result='';
if (str.length<=0) {alert('字符串參數出錯');return false;}
for(i=0;i<str.length;i++)
{ str1=str.charCodeAt(i);
if(str1<125&&!flag)
result+=String.fromCharCode(str.charCodeAt(i)+65248);
else
result+=String.fromCharCode(str.charCodeAt(i)-65248);
}
return result;
}
</script>
//示例:
<script>
alert(DBC2SBC("AAabc",0));
document.write(DBC2SBC("abcdefg",0))

</script>

asp轉換部分:

<%
'****************************
'* 建站學參數說明:
'* str:要轉換的字符串
'* flag:標記,為0時半轉全,為非0時全轉半
'* 返回值類型:字符串
'****************************
function DBC2SBC(str,flag)
dim i
if len(str)<=0 then
msgbox '字符串參數出錯'
exit function
end if
for i=1 to len(str)
str1=asc(mid(str,i,1))
if str1>0 and str1<=125 and not flag then
dbc2sbc=dbc2sbc&chr(asc(mid(str,i,1))-23680)
else
dbc2sbc=dbc2sbc&chr(asc(mid(str,i,1))+23680)
end if
next
end function
%>


發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 英吉沙县| 常山县| 肃宁县| 红河县| 镇康县| 灯塔市| 崇仁县| 彰化市| 枣庄市| 平顶山市| 巴彦县| 尚义县| 贵定县| 武山县| 华安县| 清河县| 乌恰县| 蓝山县| 阿巴嘎旗| 盘山县| 澄江县| 峨眉山市| 新宾| 建平县| 平昌县| 溧水县| 合肥市| 深圳市| 若羌县| 曲靖市| 壤塘县| 郧西县| 措美县| 拉孜县| 边坝县| 岳西县| 乌拉特前旗| 宜宾县| 万州区| 会泽县| 正宁县|