分页出现的异常，请帮忙，

分页出现的错误，请帮忙，在线等。
三个标签：企业动态       行业动态       明星动态      
我点击“行业动态”，跳到第几页，然后再点击“企业动态”，就跳到“企业动态”的第几页，请问点击“企业动态”后如何让它还是显示第一页？
地址：http://top2.12.71china.com/twhqt/news.asp?id=2

---------pages4.inc如下:
<!--   ****   翻页的ASP标准代码:   pages4.inc   ****-->

<!--   Existing   connection   name:   "conn "   -->

<%
rs.pagesize   =   12

pageno   =   trim(request( "pageno "))

if   isnumeric(pageno)   then
        pageno   =   clng(pageno)
        if   pageno   <   1   or   pageno   >   rs.pagecount   then
                pageno   =   1
        end   if
        session( "pageno ")   =   pageno
else
        if   isEmpty(session( "pageno "))   or   session( "pageno ")= " "   then  
                pageno   =   1
        else  
                pageno   =   session( "pageno ")
        end   if
end   if

if   rs.recordcount   >   0   then   rs.absolutepage   =   pageno


'   ------------   显示翻页按钮函数   --------------

Sub   ShowPageNavigator(pageno,despage)

  if   CLng(pageno)   <=   1   then
    dFirst   =   "disabled "
    dPrev   =   "disabled "
  end   if
 
  if   CLng(pageno)   > =   rs.pagecount   then
    dNext   =   "disabled "
    dLast   =   "disabled "
  end   if  
 
%>

<center>
<%
response.write   " <font   class=chinese_MT> 第 "   &   CStr(pageno)   &   "页/共 "   &   CStr(rs.PageCount)   &   "页 "
response.write   "( "   &   CStr(rs.RecordCount)   &   "条记录) "
%>
&nbsp;&nbsp;
<%   if   dFirst= "disabled "   then   %> <font   class=1pxborder> 最前页 </font> <%   else   %> <a   href= ' <%=despage%> &pageno=1 ' "     class=1pxborder> 最前页 </a> <%   end   if   %> &nbsp;
<%   if   dPrev= "disabled "   then   %> <font   class=1pxborder> 上一页 </font> <%   else   %> <a   href= ' <%=despage%> &pageno= <%=pageno-1%> ' "   class=1pxborder> 上一页 </a> <%   end   if   %> &nbsp;
<%   if   dNext= "disabled "   then   %> <font   class=1pxborder> 下一页 </font> <%   else   %> <a   href= ' <%=despage%> &pageno= <%=pageno+1%> ' "   class=1pxborder> 下一页 </a> <%   end   if   %> &nbsp;
  <%   if   dLast= "disabled "   then   %> <font   class=1pxborder> 最后页 </font> <%   else   %> <a   href= ' <%=despage%> &pageno= <%=rs.pagecount%> ' "   class=1pxborder> 最后页 </a> <%   end   if   %>

<%
End   Sub
%>
</center>
------------------------

这边是引用这个文件的asp文件部分代码，如下：
<td>    
      <%   set   rs=server.createobject( "adodb.recordset ")
      sql= "select   *   from   News   where   typeid= "&id& "   order   by   NewsID   desc "
      rs.open   sql,conn,1,1
      %>
               
<!--#include   file= "include/pages4.inc "-->
      <table   width= "480 "   border= "0 "   cellspacing= "0 "   cellpadding= "0 ">
    <%For   i   =   1   to   rs.pagesize  
            if   rs.eof   then   exit   For  
    %>
                                        <tr   class= "dian ">  
<%   Title=rs( "Title ")
  if   len(Title)> 40   then  
  Title=mid(Title,1,40)& "...... "
  end   if   %>
                                           
                                          <td   width= "430 "   valign= "bottom "   class= "dian "> <font   color= "#E4E4E4 "> · </font> &nbsp; <a   href= "shownews.asp?id= <%=rs( "NewsID ")%> "   target= "_blank "> <%=Title%> </a>
  </td>
                                        </tr> <%   rs.movenext
  NEXT
    %>
     
    <tr   class= "news "> <TD   align= "left "   rowspan= "2 "> <%Call   ShowPageNavigator(pageno, "news.asp?id= "&id)%> </TD> </tr>
                                    </table> <%   rs.close
    set   conn=nothing   %> </td>

[解决办法]
三个标签：企业动态 行业动态 明星动态
我点击“行业动态”，跳到第几页，然后再点击“企业动态”，就跳到“企业动态”的第几页，请问点击“企业动态”后如何让它还是显示第一页？
---------------------
我觉得问题在于
rs.pagesize = 12

pageno = trim(request( "pageno "))

你直接在每个标签里加入超链接试试！比如:
<a href= "hangye.asp "> 行业动态 </a> 让他直接跳转别传递什么页面设置的参数，
[解决办法]
[个人意见，仅供参考]

试验一下：在“企业动态”等标签的链接加上pageno参数

比如
<a href= "xxx.asp?pageno=1 "> 企业动态 </a>
[解决办法]
如果要修改应该是
if isnumeric(pageno) then
'该部分不执行
else

这部分可以去掉
end If
[解决办法]
'-------------- show page
function showpage(inteam,pagenow,countpage,totlecount, sort)
'inteam是每组页数,pagenow是(rs.absolutepage)现在页面,countpage是 rs.pagecount页面总数,totlecount共有多少记录，sort其他要传递的参数,调用方法call showpage(10,page,countpage,totle,sort)
dim page,team

team = cint(inteam) '设定每组页数
page = cint(pagenow)
dim pagefirst,pagelast,pageback,pagenext
if page> team then
if page mod team = 0 then
pagefirst=(page\team-1)*team+1
else
pagefirst=(page\team)*team+1
end if
else
pagefirst=1
end if
if (page\team)*team+team > countpage then
if page mod team = 0 then
pagelast=(page\team-1)*team+team
else
pagelast=countpage
end if
else
if page mod team = 0 then
pagelast=(page\team-1)*team+team
else
pagelast=(page\team)*team+team
end if
end if
if page> team then
pageback=page-team
else
pageback=1
end if
if page+team <=countpage then
pagenext=page+team
else
pagenext=countpage
end if
'response.write " <br> "&pagefirst& " "&pageback& " "&pagenext& " "&pagelast& " <br> "
Dim htmlstr
htmlstr = " "
htmlstr = htmlstr & " <font style= 'font-size:9pt;color:#222222; '> 共有记录 "&totlecount& "&nbsp;条，分&nbsp; "&countpage& "&nbsp;页，&nbsp;&nbsp;当前页面第&nbsp; "&page& " </font> &nbsp;页&nbsp;&nbsp; "
If page = 1 Then
htmlstr = htmlstr & " <font style= 'font-size:9pt;font-family:webdings; '> 9 </font> "
Else
htmlstr = htmlstr & " <a href= '?page=1&sort= "&sort& " ' title= '首页 '> <font style= 'font-size:9pt;font-family:webdings; '> 9 </font> </a> "
End If

If page <= team Then
htmlstr = htmlstr & " <font style= 'font-size:9pt;font-family:webdings; '> 7 </font> "
Else
htmlstr = htmlstr & " <a href= '?page= "&pageback& "&sort= "&sort& " ' title= '上 "&team& "页 '> <font style= 'font-size:9pt;font-family:webdings; '> 7 </font> </a> "
End If

For i=pagefirst to pagelast
If i=page Then
htmlstr = htmlstr & " <font style= 'font-size:9pt;color:#222222; '> <b> "&i& " </b> </font> "
Else
htmlstr = htmlstr & " <font style= 'font-size:9pt; '> <a href= '?page= "&i& "&sort= "&sort& " ' title= '第 "&i& "页 '> "&i& " </a> </font> "
End If
Next

If pagefirst+team <countpage Then
htmlstr = htmlstr & " <a href= '?page= "&pagenext& "&sort= "&sort& " ' title= '下 "&team& "页 '> <font style= 'font-size:9pt;font-family:webdings; '> 8 </font> </a> "
Else
htmlstr = htmlstr & " <font style= 'font-size:9pt;font-family:webdings; '> 8 </font> "
End If

If page = countpage Then
htmlstr = htmlstr & " <font style= 'font-size:9pt;font-family:webdings; '> : </font> "
Else

htmlstr = htmlstr & " <a href= '?page= "&countpage& "&sort= "&sort& " ' title= '未页 '> <font style= 'font-size:9pt;font-family:webdings; '> : </font> </a> "
End If

showpage = htmlstr
response.write showpage

End Function