这样对吗？？？？？？？

   Function codepass()
       Dim CodeStr
       CodeStr = Trim(request("CodeStr"))
       If CStr(Session("CheckCode")) = CStr(CodeStr) And CodeStr <> "" Then
         codepass = True
         'Session("CheckCode")=empty
       Else
         codepass = False
         'Session("CheckCode")=empty
       End If
End Function

看着像是对的 测试下就知道了吧