转换中文为unicode 转换unicode到正常文本
2015-01-24信息快讯网
'//转换中文为unicode function URLEncoding(vstrIn) dim i dim strReturn,ThisChr,innerCode,Hight8,Low8 strReturn = "" for i = 1 to Len(vstrIn) ThisChr = Mid(vStrIn,i,1) If Abs(Asc(ThisChr)) < &HFF then strReturn = strReturn & ThisChr else innerCode = Asc(ThisChr) If innerCode < 0 then innerCode = innerCode + &H10000 end If Hight8 = (innerCode and &HFF00)\ &HFF Low8 = innerCode and &HFF strReturn = strReturn & "%" & Hex(Hight8) & "%" & Hex(Low8) end If next URLEncoding = strReturn end function '//转换unicode到正常文本 function bytes2BSTR(vIn) dim i dim strReturn,ThisCharCode,nextCharCode strReturn = "" for i = 1 to LenB(vIn) ThisCharCode = AscB(MidB(vIn,i,1)) If ThisCharCode < &H80 then strReturn = strReturn & Chr(ThisCharCode) else nextCharCode = AscB(MidB(vIn,i+1,1)) strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(nextCharCode)) i = i + 1 end If next bytes2BSTR = strReturn end function function getText(oReq,url) on error resume next '//创建XMLHTTP对象 if oReq is nothing then set oReq = CreateObject("MSXML2.XMLHTTP") end if if not oReq is nothing then oReq.open "get",url,false oReq.send if oReq.status = 200 then getText = bytes2BSTR(oReq.responseBody) else getText = "" end if else getText = "" end if end function
弄了个检测传输的参数是否为数字的Function
ADODB结合SMARTY使用~超级强
ADODB类使用
用PHP实现将GB编码转换为UTF8
用PHP实现ODBC数据分页显示一例
PHP3 safe_mode 失效漏洞
繁体转换的class
用php和MySql来与ODBC数据连接
繁体中文转换为简体中文的PHP函数
简体中文转换为繁体中文的PHP函数
使用网络地址转换实现多服务器负载均衡
怎样在UNIX系统下安装php3
怎样在UNIX系统下安装MySQL
一个ubbcode的函数,速度很快.
用Zend Encode编写开发PHP程序
PHP - Html Transfer Code
phpBB BBcode处理的漏洞
用php实现gb2312和unicode间的编码转换
玩转图像函数库―常见图形操作
生成静态页面的PHP类
“厕所革命”彰显农村发展内涵转换
特斯拉全新SUV Model X 将亮相法兰克福
上海无人机公司Yuneec获英特尔6000万美元投资