全角半角转换代码_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 [email protected]/email /record records NO.2--建立对象CreateObject 建立data.xml的对象先 set xmldoc=server.createobjcet(microsoft.xmldom) xmld