在ASP中GB2312与UTF8互转的代码

最新推荐文章于 2023-07-04 20:05:56 发布

niwo365

最新推荐文章于 2023-07-04 20:05:56 发布

阅读量296

点赞数

文章标签： ASP

本文介绍了一个使用VBS脚本实现的GB2312编码到UTF-8编码的转换方法。该脚本通过逐字符分析并转换GB2312编码的文字为相应的UTF-8格式。特别地，脚本能够处理包括汉字在内的GB2312字符集，但对于特殊符号如引号等则无法直接转换。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

这个可以汉字GB2312替换成 UFT-8 是没问题的

可特殊符号 ' " #@ ... 这些是不能替换,很难...

<%
search = Request("search")

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)
szRet = szRet & uch
End If
End If
Next

toUTF8 = szRet
End Function

search_utf8=toUTF8(search)

%>