chkzi2对象类型不对

[huruihappy]

s.asp

<scrpit LANGUAGE="vbScript" >

Function CheckExp(patrn, strng)
Dim regEx, Match
Set regEx = New RegExp
regEx.Pattern = patrn
regEx.IgnoreCase = true
regEx.Global = True
Matches = regEx.test(strng)
CheckExp = matches
End Function


Function chkzi2(f_Str)
if Not IsNull(f_Str) Then
if CheckExp("^[^\u4E00-\u9FA5]+$", f_Str)=True then
chkzi2=False
Else
chkzi2=True
End If
End If
End Function
</script>
判断 输入的字符是否包含中文

调用这个函数 判断 输入的字符是否包含中文
有中文则跳1个链接，没中文则跳到另外1个连接。
但是怎么调用者个老提示 chkzi2对象类型不对

<% if chkzi2(request("q")) then %>
<FRAME class=a src="http://www.google.com/search?hl=en&q=<%=request("q")%>&start=0&num=10" name=popforum bordercolor="#3E77B3" target="right">
<% else %>
<FRAME class=a src="http://www.google.com/search?hl=zh-CN&ie=GB2312&q=<%=request("q")%>&start=0&num=10" name=popforum bordercolor="#3E77B3" target="right">
<% end if %>

[hookee]

要指定是服务器端脚本
<scrpit LANGUAGE="vbScript" runat="Server">
或者
<%Function CheckExp(patrn, strng)
...
%>