全角半角转换代码_ASP教程

推荐：ASP调用web services
ASP调用web services % Function CallWebServices(sUrl, sMethodName, soapMessage, XmlString) CallWebServices = false Set xmlhttp = CreateObject(MSXML2.XMLHTTP) xmlhttp.Open POST,sUrl, False xmlhttp.SetRequestHeader Content-Type,text/xm

javascript转换：

<SCRIPT>
/*
****************************
*　参数说明:
* str:要转换的字符串
* flag:标记，为０时半转全，为非０时全转半
* 返回值类型：字符串
****************************
*/
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("AＡabc",0));
document.write(DBC2SBC("abcdefg",0))

</script>

asp转换：

<%
'****************************
'*　参数说明:
'* str:要转换的字符串
'* flag:标记，为０时半转全，为非０时全转半
'* 返回值类型：字符串
'****************************
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
%>

分享：asp控制xml数据库的6条实用代码
NO.1--建立一个XML数据库data.xm ?xml version=1.0? records record namecaca/name qq154222225/qq emailroot@3ney.com/email /record records NO.2--建立对象CreateObject 建立data.xml的对象先 set xmldoc=server.createobjcet(microsoft.xmldom) xmld