想在conn文件屏闭一些脏字,但测试不行,屏闭的是乱码字!

[good3g]

用 Response.Write 测试要屏闭的汉字,却是这个样子!!不能正确屏闭!!

if youdz1="ַ" or youdz1="Ƶ" or youdz1="" or youdz1="" or youdz1="" or youdz1="¥" or youdz1="" or youdz1="" or youdz1="" or youdz1="У" or youdz1="ѧ" or youdz1="Է" or youdz1="" or youdz1="Ժ" or youdz1="" or youdz1="" or youdz1="" or youdz1="" or youdz1="˾"


请问有没办法解决???

[redcn2004]

'**************************************************
'函数名：CheckBadChar
'作 用：检查是否包含非法的SQL字符
'参 数：strChar-----要检查的字符
'返回值：True ----字符合法
' False ----字符不合法
'**************************************************
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
用这个函数过滤吧

[good3g]

我要过滤的不仅是文本!
还要给出提示!!!

[good3g]

但我想给出一个提示!!直接转到另一页面!

[redcn2004]

IF CheckBadChar=true then
Response.write "您所输入的含有非法字符"
Response.redirect("err.asp")
end if

[redcn2004]

[Quote=引用 4 楼 redcn2004 的回复:]
IF CheckBadChar=true then
Response.write "您所输入的含有非法字符"
Response.redirect("err.asp")
end if
[/Quote]

应该是
IF CheckBadChar(youdz1)=true then
Response.write "您所输入的含有非法字符"
Response.redirect("err.asp")
end if

[good3g]

经过测试还是不行,好像什么字都过滤了!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

[good3g]

可能是编码不对!!是在conn.asp里!!我不知到底哪出了问题!!!!