请教一个ASP分页问题
我按照分类的形式把文件分开浏览时,当选择一个分类,点击进去之后,分页显示这个分类的总记录数和页数都没有问题,可是我点击下一页的时候,就会显示所有分类的记录,请问这个问题如何解决呢,请不吝指教,谢谢
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="include/#conn.asp"--><%
If getid>0 Then
Set rs=conn.execute("select tname,fid from "&TablePre&"_dltype where tid="&getid&"")
If rs.bof And rs.eof Then
Else
tname=rs(0)
fid=rs(1)
tnametitle=tname&" - "
End If
wherenote="> "&tname&" "
If fid=0 Then
sqlstr=" and classid in (select tid from "&TablePre&"_dltype where fid="&getid&" )"
Else
sqlstr=" and classid="&getid
End If
ElseIf getid=0 Then
wherenote=""
sqlstr=" "
fid=0
Else
response.write backmsg("参数错误!","")
End If
If fid=0 Then '大分类,读取其子分类
ttsqlstr=" where fid="&getid&" "
Else
ttsqlstr=" where fid="&fid&" "
End If
'图书分类
SQL="SELECT top 20 tid,tname FROM "&TablePre&"_dltype "&ttsqlstr&" ORDER BY orderby DESC,tid desc"
Set log_Link=Conn.Execute(SQL)
SQLQueryNums=SQLQueryNums+1
if log_Link.eof And log_Link.bof then
else
Array_bt=log_Link.GetRows()
For i=0 To Ubound(Array_bt,2)
newstypelist=newstypelist & "<li><a href=""download.asp?id="&Array_bt(0,i)&""">"&titleleft(Array_bt(1,i),30)&"</a></li>"
Next
end if
Set log_Link=Nothing
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<link rel="stylesheet" href="images/css.css" />
<script language="javascript" type="text/javascript" src="images/hd.js"></script>
<title><%=tnametitle%>教学资源下载-<%=sitename%></title>
<style type="text/css">
<!--
.STYLE5 {color: #FF0000}
-->
</style>
</head>
<body>
<!--#include file="include/inc_head.asp"-->
<!--*主体部分-->
<div id="main">
<!--*左边-->
<div class="left">
<ul>
<!--#include file="include/inc_login.asp"-->
<!--*分类浏览-->
<li class="downcategories">
<div class="title"><span class="title_d">下载分类</span><span class="title_s"><img src="images/class.gif" width="29" height="29" /></span></div>
<div class="downcategories_list">
<ul><%=newstypelist%>
</ul>
</div>
</li>
<!--分类浏览*-->
</ul>
</div>
<!--左边*-->
<!--*右边-->
<div class="right">
<div class="nowwhere" align="left">您现在的位置:首页 > <A HREF="download.asp">教学资源下载</A><%=wherenote%> <a href="/download/下载步骤提示.htm" target="_blank" ></a></div>
<div class="xiazaishuoming">下载说明:如无法下载,请将鼠标移至对应的标题或"点击下载"处,点击右键弹出快捷菜单,选择"目标另存为...",在弹出的对话框中更改文件名,然后保存即可。详细请
<a href="/download/下载提示/下载步骤提示.mht" target="_blank" >查看示例</a></div>
<%if getid>14 and getid<>17 then%>
<div class="gonggao" >听力材料更新中。</div>
<%end if%>
<div class="newscontent" align="left"><ul><%set rs2=server.CreateObject("adodb.recordset")
sql2="select * from "&TablePre&"_dl where 1=1 "&sqlstr&" order by addtime desc,did desc"
rs2.open sql2,conn,1,1
SQLQueryNums=SQLQueryNums+1
If rs2.eof and rs2.bof Then
response.write "没有啊!"
Else
rs2.PageSize = Sys_List_Num
MaxPages = rs2.PageCount
rs2.absolutepage = CurPage
Totalcount = rs2.RecordCount
for i=1 to Sys_List_Num
If not rs2.eof Then
dlurl=""
dlurl=LCase(rs2("download"))
If dlurl="" Or IsNull(dlurl) Then
dlurl="down.asp?id="&rs2("did")
ElseIf Right(dlurl,4)=".avi" Or Right(dlurl,4)=".wmv" Or Right(dlurl,4)=".asf" Then
dlurl="video.asp?id="&rs2("did")
End If
%>
<li>
<B>
<%if rs2("download")<>"" then %>
<A HREF="downloadcount.asp?id=<%=rs2("did")%>" target="_blank"><%=rs2("dlname")%></A>
<%else%>
<A HREF="downloadempty.asp" target="_self"><%=rs2("dlname")%></a>
<%end if%>
</B>
<div class="shuoming">
<%=titleleft(HTMLcode(rs2("content")),200)%>
</div>
<div class="linebottom">
<%if rs2("did")=43 then %>
<A HREF="mediaplaycount.asp?id=<%=rs2("did")%>" target="_blank">在线播放</a>
<%else %>
<%end if%>
<%if rs2("download")<>"" then %>
<A HREF="downloadcount.asp?id=<%=rs2("did")%>" target="_blank">点击下载</a> 下载次数:<%=rs2("ck")%> 发布时间:<%=rs2("addtime")%>
<%else%>
<A HREF="downloadempty.asp" target="_self">点击下载</a> 下载次数:<%=rs2("ck")%> 发布时间:<%=rs2("addtime")%>
<%end if%>
</div>
</li>
<%
rs2.MoveNext
End If
Next%><div style=" clear:both"></div><%
response.write "<div >"&viewpage(Totalcount,Sys_List_Num,5,CurPage,urlStr,"当前总数:","download.asp")&"</div>"
End if
rs2.close
set rs2=Nothing
%>
</ul>
</div>
</div>
<!--右边*-->
<div style=" clear:both"></div>
</div>
<!--主体部分*-->
<!--*底部-->
<!--#include file="include/inc_foot.asp"-->
<!--include file="inc_floatadv4.html"-->
<!--底部*-->
</body>
</html>
这一页面是正常的,不过有子分类。我把子分类去掉之后,就出现了上面的问题了。
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="include/#conn.asp"--><%
'If getid>0 Then
' Set rs=conn.execute("select tid,tname from "&TablePre&"_dltype where tid="&getid&"")
' If rs.bof And rs.eof Then
' Else
' tname=rs(0)
' fid=rs(1)
' tnametitle=tname&" - "
' End If
' wherenote="> "&tname&" "
' If fid=0 Then
' sqlstr=" and classid in (select tid from "&TablePre&"_dltype where fid="&getid&" )"
'' Else
'' sqlstr=" and tid="&getid
' End If
'ElseIf getid=0 Then
' wherenote=""
' sqlstr=" "
' fid=0
'Else
' response.write backmsg("参数错误!","")
'End If
'If fid=0 Then '大分类,读取其子分类
' ttsqlstr=" where fid="&getid&""
'Else
' ttsqlstr=" where fid=0 "
'end if
If getid<>0 Then
Set rs=conn.execute("select tid,tname from "&TablePre&"_dltype where tid="&getid&"")
If rs.bof And rs.eof Then
Else
tname=rs(0)
tnametitle=tname&" - "
End If
wherenote="> "&tname&" "
sqlstr=" and classid="&getid
End If
'图书分类
SQL="SELECT top 20 tid,tname FROM "&TablePre&"_dltype "&ttsqlstr&" ORDER BY orderby DESC,tid desc"
Set log_Link=Conn.Execute(SQL)
SQLQueryNums=SQLQueryNums+1
if log_Link.eof And log_Link.bof then
else
Array_bt=log_Link.GetRows()
For i=0 To Ubound(Array_bt,2)
newstypelist=newstypelist & "<li><a href=""download.asp?id="&Array_bt(0,i)&""">"&titleleft(Array_bt(1,i),30)&"</a></li>"
Next
end if
Set log_Link=Nothing
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<link rel="stylesheet" href="images/css.css" />
<script language="javascript" type="text/javascript" src="images/hd.js"></script>
<title><%=tnametitle%>资源下载-<%=sitename%></title>
<style type="text/css">
<!--
.STYLE5 {color: #FF0000}
-->
</style>
</head>
<body>
<!--#include file="include/inc_head.asp"-->
<!--*主体部分-->
<div id="main">
<!--*左边-->
<div class="left">
<ul>
<!--#include file="include/inc_login.asp"-->
<!--*分类浏览-->
<li class="downcategories">
<div class="title"><span class="title_d">下载分类</span></div>
<div class="downcategories_list">
<ul><%=newstypelist%>
</ul>
</div>
</li>
<!--分类浏览*-->
</ul>
</div>
<!--左边*-->
<!--*右边-->
<div class="right">
<div class="nowwhere" align="left">您现在的位置:首页 > <A HREF="download.asp">资源下载</A><%=wherenote%> <a href="/download/下载步骤提示.htm" target="_blank" ></a></div>
<div class="newscontent" align="left"><ul>
<%
set rs2=server.CreateObject("adodb.recordset")
sql2="select * from "&TablePre&"_dl where 1=1 "&sqlstr&" ORDER BY addtime desc,did desc"
rs2.open sql2,conn,1,1
SQLQueryNums=SQLQueryNums+1
If rs2.eof and rs2.bof Then
response.write "没有啊!"
Else
rs2.PageSize = Sys_List_Num
MaxPages = rs2.PageCount
rs2.absolutepage = CurPage
Totalcount = rs2.RecordCount
for i=1 to Sys_List_Num
If not rs2.eof Then
dlurl=""
dlurl=LCase(rs2("download"))
If dlurl="" Or IsNull(dlurl) Then
dlurl="down.asp?id="&rs2("did")
ElseIf Right(dlurl,4)=".avi" Or Right(dlurl,4)=".wmv" Or Right(dlurl,4)=".asf" Then
dlurl="video.asp?id="&rs2("did")
End If
%>
<li>
<B>
<%if rs2("download")<>"" then %>
<A HREF="downloadcount.asp?id=<%=rs2("did")%>" target="_blank"><%=rs2("dlname")%></A>
<%else%>
<A HREF="downloadshow.asp?id=<%=rs2("did")%>" target="_self"><%=rs2("dlname")%></a>
<%end if%>
</B>
<div class="linebottom">
<%if rs2("download")<>"" then %>
<A HREF="downloadcount.asp?id=<%=rs2("did")%>" target="_blank">点击下载</a> 下载次数:<%=rs2("ck")%> 发布时间:<%=rs2("addtime")%>
<%else%>
下载次数:<%=rs2("ck")%> 发布时间:<%=rs2("addtime")%>
<%end if%>
</div>
</li>
<%
rs2.MoveNext
End If
Next%><div style=" clear:both"></div><%
response.write "<div >"&viewpage(Totalcount,Sys_List_Num,5,CurPage,urlStr,"当前总数:","download.asp")&"</div>"
End if
rs2.close
set rs2=Nothing
%>
</ul>
</div>
</div>
<!--右边*-->
<div style=" clear:both"></div>
</div>
<!--主体部分*-->
<!--*底部-->
<!--#include file="include/inc_foot.asp"-->
<!--include file="inc_floatadv4.html"-->
<!--底部*-->
</body>
</html>
改动后的代码就出现问题了,请教如何解决呢?谢谢