WPS文字怎么关闭拼写检查

sub chkIP(boardid)       dim rsIP       dim ipArr       dim ignored       dim i       dim ip       dim sql       ip=Request.ServerVariables("REMOTE_ADDR")             ignored=false       if not isempty(boardid) then                sql="select ignoreip from board where boardid="&cstr(boardid)          set rsIP=conn.execute(sql)          if not (rsIP.eof and rsIP.bof) then             if instr(cstr(rsIP("ignoreip")&""),chr(13)&chr(10)) then                iparr=split(rsIP("ignoreip"),chr(13)&chr(10))                for i=0 to ubound(iparr)                    if trim(iparr(i))"" and left(ip,len(trim(iparr(i))))=trim(iparr(i))  then                       ignored=true                       exit for                    end if                next             else                iparr=rsIP("ignoreip")                if ip=trim(iparr) then                   ignored=true                end if             end if          end if          rsIP.close       end if       if ignored then          response.write window.location.href='ignoreip.htm'"       end if   end sub