全角半角转换代码

ASP教程 2025-08-30

推荐:ASP调用web servicesASP调用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转换:

//示例:

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

%>

分享: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