html5/css教程

javascript教程

asp教程

php教程

jsp教程

C#/.NET教程

Python教程

网络营销

建站经验

点击排行

gbk转utf-8的方法(asp实现代码)

来源:中文源码网    浏览:441 次    日期:2024-03-28 08:56:50
Function GBtoUTF8(szInput)   
Dim wch, uch, szRet   
Dim x   
Dim nAsc, nAsc2, nAsc3   
'如果输入参数为空,则退出函数   
If szInput = "" Then  
GBtoUTF8= szInput   
Exit Function  
End If  
'开始转换   
For x = 1 To Len(szInput)   
wch = Mid(szInput, x, 1)   
nAsc = AscW(wch)   
If nAsc < 0 Then nAsc = nAsc + 65536   
If (nAsc And &HFF80) = 0 Then  
szRet = szRet & wch   
Else  
If (nAsc And &HF000) = 0 Then  
uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)   
szRet = szRet & uch   
Else  
uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _   
Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _   
Hex(nAsc And &H3F Or &H80)   
szRet = szRet & uch   
End If  
End If  
Next  
GBtoUTF8= szRet   
End Function  

精彩推荐