ASP读取数据库 UTF8编码

ASP读取数据库 UTF8编码

Function UTF2GB(s)
Dim sm
Set sm = Server.CreateObject("ADODB.Stream")
With sm
.Type = 2
.Mode = 3
.Open
.CharSet = "UTF-8"
.WriteText s
.Position = 0
.CharSet = "GB2312"
UTF2GB = .ReadText(-1)
.Close
End With
Set sm = Nothing
End Function

你先尝试一下，将你的ASP文件用记事本打开，然后重新另存为一下，但这里要注意的是将编码选择为：utf-8，如果还不行尝试在页面加入，如果问题还不能解决，你再补充一下。

你是Ajax发送数据的吧，试试将输出值进行编码了再写出。js获取后会自动进行解码，然后输出就是原样了提供个asp的编码函数你试试，可以将它包含的公共文件中Function jsEncode(str)
Dim i, j, aL1, aL2, c, p
aL1 = Array(&h22, &h5C, &h2F, &h08, &h0C, &h0A, &h0D, &h09)
aL2 = Array(&h22, &h5C, &h2F, &h62, &h66, &h6E, &h72, &h74)
For i = 1 To Len(str)
p = True
c = Mid(str, i, 1)
For j = 0 To 7
If c = Chr(aL1(j)) Then
jsEncode = jsEncode & "\" & Chr(aL2(j))
p = False
Exit For
End If
Next
If p Then
Dim a
a = AscW(c)
If a > 31 And a < 127 Then
jsEncode = jsEncode & c
ElseIf a > -1 Or a < 65535 Then
jsEncode = jsEncode & "\u" & String(4 - Len(Hex(a)), "0") & Hex(a)
End If
End If
Next
End Function Response.Write("Text=汉字&UserID=0001&UserName=" & jsEncode( rs("username")))