超链接多值问题 - 编程论坛

当我的地址栏的地址是http://localhost/sssss/files/lb.asp?typestr='鲁菜'&PageNo=1是

只有本站会员才能查看附件，请登录

大家看清楚图片我是有第二页的，但是当我点击下一页的时候地址是http://localhost/sssss/files/lb.asp?typestr='鲁菜'&PageNo=2出现

只有本站会员才能查看附件，请登录

这是什么情况
页面代码：<%
    Dim X_typestr
    X_typestr=Request.QueryString("typestr")
Dim db,strSql,rs
    Set db=Server.CreateObject("ADODB.Connection")
    db.Open "Dsn=background"
    Set rs=Server.CreateObject("ADODB.Recordset")
    strSql="Select * From news where typestr ="&X_typestr
    rs.Open strSql,db,1
    %>
    <table cellspacing="0" cellpadding="0" width="510"  background="../images/tu_di.gif" border="0">
      <tr>
        <td width="7"><img height="29" src="../images/tu(1).gif" width="7" /></td>
        <td ><font color="#ffffff"><b>列表</b></font></span></td>
        <td width="7"><img height="29" src="../images/tu1.gif" width="7" /></td>
      </tr>
    </table>
    <%
Rs.PageSize = 3
If Request("PageNo") = "" Then PageNo=1 Else PageNo = CInt(Request("PageNo"))
If PageNo < 1 Then Response.Redirect "?PageNo=1" & Qs
If PageNo > Rs.PageCount And Rs.PageCount > 0 Then Response.Redirect "?PageNo=" & Rs.PageCount & Qs
If Rs.Eof and Rs.Bof Then PageNo = 0 Else Rs.AbsOlutePage = PageNo
dim FY_i
FY_i=1
For x = 1 to Rs.PageSize
If Rs.Eof Then Exit For
if FY_i=1 or FY_i mod 3=1 then
%>
<table style="BORDER-RIGHT: #1f92ff 1px solid; BORDER-TOP: 0px; BORDER-LEFT: #1f92ff 1px solid; BORDER-BOTTOM: 0px;" cellspacing="0" width="510" border="0"  >
  <tr height="10"><%end if%>
    <td valign="top" width="170">
    <div align="left"><%
      if len(rs("title")) > 8  then
      if (InStr(rs("memo"),"<img")>0) or (InStr(rs("memo"),"<IMG")>0) then
        %><a href="zw.asp?id=<%=rs("id")%>" target="_blank"><%
         response.Write left(rs("title"),5)&" ..." %></a> <img src="../images/pic.gif" width="12" height="12"><%
         else
         %><a href="zw.asp?id=<%=rs("id")%>" target="_blank"><%
         response.Write left(rs("title"),5)&" ..."%></a><%
         end if
      else
          if (InStr(rs("memo"),"<img")>0) or (InStr(rs("memo"),"<IMG")>0)  then
          %><a href="zw.asp?id=<%=rs("id")%>" target="_blank"><%
         response.write rs("title")%></a> <img src="../images/pic.gif" width="12" height="12"><%
         else
          %><a href="zw.asp?id=<%=rs("id")%>" target="_blank"><%
            response.write rs("title")%></a><%
            end if
      end if
    %></div></td> <%
if FY_i mod 3=0 then
%>
  </tr>
  </table><% end if
FY_i=FY_i+1
rs.movenext
next
%> <table style="BORDER-RIGHT: #1f92ff 1px solid; BORDER-TOP: 0px; BORDER-LEFT: #1f92ff 1px solid; BORDER-BOTTOM: #1f92ff 1px solid" cellspacing="0" width="510" border="0" >

                <tr><td> </td></tr>
              <tr>
                <td align="center">
            总[<span class="style1">
            <% = Rs.RecordCount%>
            </span>]条<strong>|</strong> <span class="style1">
            <% = Rs.PageSize%>
            </span>条<strong>/</strong>页 <strong>|</strong> 当前<span class="style1">
            <% = PageNo%>
            </span><strong>/</strong><span class="style1">
            <% = Rs.PageCount%>
            </span>页 <a href="lb.asp?typestr='<%=rs("typestr")%>'&PageNo=<% =Rs.AbsOlutePage%>" >首页</a> <a href="lb.asp?typestr='<%=rs("typestr")%>'&PageNo=<% = PageNo - 1%><% = Qs%>">上一页</a> <a href="lb.asp?typestr='<%=rs("typestr")%>'&PageNo=<% = PageNo + 1%><% = Qs%>">下一页</a> <a href="lb.asp?typestr='<%=rs("typestr")%>'&PageNo=<% =Rs.PageCount%>">尾页</a>
            
</td>
              </tr>
            </table>