ASP把UTF8转换GB2312国标码的函数

'个人代码风格注释（变量名中第一个小写字母表表示变量类型 一个网 yige.org） 
'i:为Integer型; 
's:为String; 
Function U2UTF8(Byval a_iNum) 
Dim sResult,sUTF8 
Dim iTemp,iHexNum,i 

iHexNum = Trim(a_iNum) 

If iHexNum = “” Then 
Exit Function 
End If 

sResult = “” 

If (iHexNum < 128) Then 
sResult = sResult & iHexNum 
ElseIf (iHexNum < 2048) Then 
sResult = ChrB(&H80; + (iHexNum And &H3F;)) 
iHexNum = iHexNum \ &H40; 
sResult = ChrB(&HC0; + (iHexNum And &H1F;)) & sResult 
ElseIf (iHexNum < 65536) Then 
sResult = ChrB(&H80; + (iHexNum And &H3F;)) 
iHexNum = iHexNum \ &H40; 
sResult = ChrB(&H80; + (iHexNum And &H3F;)) & sResult 
iHexNum = iHexNum \ &H40; 
sResult = ChrB(&HE0; + (iHexNum And &HF;)) & sResult 
End If 

U2UTF8 = sResult 
End Function 

Function GB2UTF(Byval a_sStr) 
Dim sGB,sResult,sTemp 
Dim iLen,iUnicode,iTemp,i 

sGB = Trim(a_sStr) 
iLen = Len(sGB) 
For i = 1 To iLen 
sTemp = Mid(sGB,i,1) 
iTemp = Asc(sTemp) 

If (iTemp>127 OR iTemp<0) Then 
iUnicode = AscW(sTemp) 
If iUnicode<0 Then 
iUnicode = iUnicode + 65536 
End If 
Else 
iUnicode = iTemp 
End If 

sResult = sResult & U2UTF8(iUnicode) 
Next 

GB2UTF = sResult 
End Function 

'调用方法 
Response.BinaryWrite(GB2UTF(“中国人”)) 

相关文章

• asp小偷：获取微软安全更新列表 2012/05/11
• ASP去前后空格函数trim,ltrim,rtrim 2012/05/11
• ASP获取ACCESS数据库表名和结构的代码 2012/05/11
• asp过滤HTML标签的函数 2012/05/11
• ASP在线备份与恢复sqlserver数据库 2012/05/11
• ASP伪静态下实现utf-8文件缓存 2012/05/11
• ASP用iframe批量生成静态页面的写法 2012/05/11
• ASP读取远程文件并保存到本地的代码 2012/05/11
• 出现msxml3.dll 错误 '800c0005'解决方法 2012/05/11
• ASP中获取当前页面的地址与参数的函数 2012/05/11