不能正确处理中文数据字符!

[good3g]

不能正确处理中文数据字符!


Function CheckBadChar(strChar)
Dim strBadChar, arrBadChar, i
strBadChar = "是,中,日,(,), <,>,[,],{,},/,\,;,:," & Chr(34) & ",--"
arrBadChar = Split(strBadChar, ",")
If strChar = "" Then
CheckBadChar = False
Else
For i = 0 To UBound(arrBadChar)
If InStr(strChar, arrBadChar(i)) > 0 Then
CheckBadChar = False
Exit Function
End If
Next
End If
CheckBadChar = True
End Function

是不是数据库出来的字编码和这里的不一样?
数据库在utf-8里能正确显示!
但是这个却过滤不了
请问要怎么处理？

[szh214]

看下这段代码所在的页面头，加个编码约束一下，然后保存的时候也存成u8的。