易截截图软件、单文件、免安装、纯绿色、仅160KB

ASP 里面有内置的字符编码转换方法吗?

如题~现在遇到一个 GB 转 UTF-8 的问题……
非学术人员,能凑合用就好~~
忆经注解的很详细的!!!

VB code:
'GB转UTF8
Function toUTF8(szInput)
Dim wch, uch, szRet
Dim x
Dim nAsc, nAsc2, nAsc3
'如果输入参数为空,则退出函数
If szInput = "" Then
toUTF8 = szInput
Exit Function
End If
'开始转换
For x = 1 To Len(szInput)
'利用mid函数分拆GB编码文字
wch = Mid(szInput, x, 1)
'利用ascW函数返回每一个GB编码文字的Unicode字符代码
'注:asc函数返回的是ANSI 字符代码,注意区别
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
'GB编码文字的Unicode字符代码在0800 - FFFF之间采用三字节模版
uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _
Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _
Hex(nAsc And &H3F Or &H80)


相关问答:

ASP降序问题

    <%
  Sql="select top 8 * from NewsData where d_classid in (select classid from NewsClass where ParentID=16)"
Rs.Open Sql, conn, 1,1
Do Until Rs.Eof ......

关于ASP批量修改文件名的问题

请问为什么我这段代码可以显示已修改成功pic文件夹中的图片,但实际上文件夹中的文件名称还是好好的。望高手帮忙改改啊。
<%
Set fs = Server.CreateObject("Scripting.FileSystemObject")
S ......

关于ASP的Replace函数

Replace函数如何默认是从左端替换,如何使其从右边开始替换,即替换一个字符串的最后一个字符,替换次数为1次,谢谢

引用
VBScript code <%
Response.Write ReplaceRev("abcdefXXXghi"," ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号