新手问下怎么修改以下分页程序,过滤非法字符呢

新手问下如何修改以下分页程序,过滤非法字符呢?
<%
page=cint(request( "page "))

Set   rs=Server.CreateObject( "ADODB.RecordSet ")  
sql= "select   *   from   company   order   by   compno "  
rs.Open   sql,conndb,1,1  
if   rs.eof   and   rs.bof   then
        response.Write( "没有记录 ")
else
rs.PageSize=15
if   page=0   then   page=1  
      pages=rs.pagecount
if   page   >   pages   then   page=pages
rs.AbsolutePage=page  

for   n=1   to   rs.PageSize  
%>
    <tr   height= "40 "   align= "center "   bgcolor= "#FFFFFF "   onMouseOver= "this.bgColor= '#cccccc '; "   onMouseOut= "this.bgColor= '#FFFFFF '; ">
        <td   > <%=rs( "compno ")%> </td>
        <td   > <%=rs( "compname ")%> </td>
        <td   > <%=rs( "province ")%> </td>
        <td   > <%=rs( "city ")%> </td>
        <td   > <%=rs( "phone ")%> </td>
        <td   > <%=rs( "fax ")%> </td>
<td   > <%=rs( "address ")%> </td>
<td   > <%=rs( "manager ")%> </td>
        <td   width= "36 "   > <a   href= "companymod.asp?compno= <%=rs( "compno ")%> "> <font   color=red> 修改 </font> </a> </td>
<td   width= "28 "   > <a   href= "javascript:deleteMe( ' <%=rs( "compno ")%> ') "> <font   color=red> 删除 </font> </a> </td>
    </tr>

<%
rs.movenext
if   rs.eof   then   exit   for
next
%>
</table>

<table   width= "774 "   border= "0 "   align= "center "   cellpadding= "0 "   cellspacing= "0 ">
    <tr>
        <td> &nbsp; </td>
    </tr>
    <tr   bgcolor= "#FFFFFF ">  
<form   method=Post   action= "course.asp ">    
            <td   height= "30 "   align= "right ">  
        <%if   Page <2   then            
        response.write   "首&nbsp;&nbsp;页|   上一页&nbsp; "
    else
        response.write   " <a   href=company.asp?page=1> 首&nbsp;&nbsp;页 </a> "
        response.write   "| <a   href=company.asp?page= "   &   Page-1   &   "> 上一页 </a> &nbsp; "
    end   if
    if   rs.pagecount-page <1   then
        response.write   "|下一页&nbsp;尾&nbsp;&nbsp;页 "
    else

        response.write   "| <a   href=company.asp?page= "   &   (page+1)   &   "> "
        response.write   "下一页 </a>   | <a   href=company.asp?page= "&rs.pagecount& "> 尾&nbsp;&nbsp;页 </a> "
    end   if
      response.write   "&nbsp;|页次： <strong> <font   color=red> "&Page& " </font> / "&rs.pagecount& " </strong> 页   "
        response.write   "&nbsp;共 <b> <font   color= '#FF0000 '> "&rs.recordcount& " </font> </b> 条记录   <b> "&rs.pagesize& " </b> 条记录/页 "
     

response.write   "   转到： <input   type= 'text '   name= 'page '   size=4   maxlength=10   class=input   value= "&page& "> "
      response.write   "   <input   class=input   type= 'submit '     value= '   跳转   '     name= 'cndok '> </span> </p> "          
%>
            </td> </form>
    </tr>
</table>
<%  
end   if
rs.close
set   rs=nothing
%>

就是在http://localhost/****/course.asp?page=2

若在后面加个 ',就是提示类型转换错误..
怎么过滤这些信息呢?

[解决办法]
page=request( "page ")
if not isnumeric(page) then page = 1 else page = clng(page)