调试程序!

cc9638895 2003-08-20 04:01:55
这段代码存在个问题:点翻页按纽时!数据不更新,总是在开始那一页上,大家帮忙看看吧!我很着急的
问题很可能出在curpage这个变量上,但如何修改,请给我详细的答案!!
我在这先谢谢大家了
<%@ Language=VBScript %>
<%
set rs=server.CreateObject("ADODB.recordset")
sql="select * from bookcity_book"
rs.Open sql,application("cn"),3,1
rs.PageSize=10


dim curpage

curpage=Request.QueryString("curpage")

if isnull(curpage) or isempty(curpage) or curpage="" then

curpage=rs.PageCount

end if


rs.AbsolutePage=curpage

%>
<!--#include file="..\_private\onclick.asp"-->
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>
<!--

function button1_onclick() {
window.location.href="addbook.asp";
}

function button2_onclick() {

var i;
var parm;

parm="";

if (window.checkbox1!=null)
{
if (window.checkbox1.length!=null)
{
for(i=0;i<window.checkbox1.length;i++)
{
if (window.checkbox1.item(i).checked==true)
{
parm=parm+","+window.checkbox1.item(i).value;
}
}
}
else
{
parm=","+window.checkbox1.value;
}
}
else
{
return false;
}

if (parm=="")
{
window.alert("请选择图书")
}
else
{
if(!(confirm("确实要删除吗?"))){return false;}
//window.alert(parm);
window.location.href="delete_result.asp?parm="+parm;
}
}


function button3_onclick() {

var i;
var parm;

parm="";

if (window.checkbox1!=null)
{
if (window.checkbox1.length!=null)
{
for(i=0;i<window.checkbox1.length;i++)
{
if ((parm=="")&&(window.checkbox1.item(i).checked==true))
{
parm=window.checkbox1.item(i).value;
}
}
}
else
{
parm=window.checkbox1.value;
}
}
else
{
return false;
}

if (parm=="")
{
window.alert("请选择图书")
}
else
{

//window.alert(parm);
window.location.href="modify_doing.asp?parm="+parm;
}


}
function zdb_onclick() {

var parm=window.zdt.value;

window.location.href="bookcity_admin.asp?curpage="+parm;


}

//-->
</SCRIPT>
</HEAD>
<BODY>
<link rel=stylesheet type="text/css" href="../style.css">
<FORM action="" method=POST id=form1 name=form1>
</FORM>
<P align=center>图书信息管理</P>
<% set rs=server.CreateObject("ADODB.RecordSet")
strsql="select * from bookcity_book"
rs.open strsql,application("cn"),3
%>
<script language="JavaScript">
function search()
{
if(form2.keyword.value=="")
{
alert("对不起,查询关键字不能为空!");
}
else
{
document.form2.submit();
}
}
</script>
<form name="form2" method="post" action="delete_show.asp">
<table width="54%" border="0" align="center">
<tr>
<td width="24%"><div align="center">查询关键字:</div></td>
<td width="38%"><div align="center">
<input name="keyword" type="text" id="keyword">
</div></td>
<td width="20%"><div align="center">
<select name="kind" id="kind">
<option value="book_name">书名</option>
<option value="book_writer">作者</option>
<option value="book_publish">出版社</option>
<option value="book_isbn">ISBN</option>
</select>
</div></td>
<td width="18%"><div align="center">
<input type="button" name="Button" value="查询" onClick="search();">
</div></td>
</tr>
</table>
</form>

<P align=center>
<TABLE class=Report <%=stReportTable%> align=center width="75%">

<TR>
<TD align=middle vAlign=top nowrap class=ReportHead>选择</TD>
<TD align=middle vAlign=top nowrap class=ReportHead>类别</TD>
<TD align=middle vAlign=top nowrap class=ReportHead>编号</TD>
<TD align=middle vAlign=top nowrap class=ReportHead>书名</TD>
<TD align=middle vAlign=top nowrap class=ReportHead>作者</TD>
<TD align=middle vAlign=top nowrap class=ReportHead>出版社</TD>
<TD align=middle vAlign=top nowrap class=ReportHead>价格</TD>
<TD align=middle vAlign=top nowrap class=ReportHead>ISBN</TD>
<TD align=middle vAlign=top nowrap class=ReportHead>是否推荐</TD>
</TR>
<%
dim rowcount
rowcount=0
if rs.RecordCount>0 then
do while not rs.EOF and rowcount<rs.pagesize
%>
<TR>
<TD align=middle vAlign=top><INPUT type="checkbox" id=checkbox1 name=checkbox1 value=<%=rs("book_id")%>></TD>
<TD align=middle vAlign=top><%=rs("class_id")%></TD>
<TD align=middle vAlign=top><%=trim(rs("book_id"))%></TD>
<TD align=middle vAlign=top><%=trim(rs("book_name"))%></TD>
<TD align=middle vAlign=top><%if trim(rs("book_writer"))<>"" then response.write trim(rs("book_writer")) else response.write " " %></TD>
<TD align=middle vAlign=top><%if trim(rs("book_publish"))<>"" then response.write trim(rs("book_publish")) else response.write " " %></TD>
<TD align=middle vAlign=top><%if trim(rs("book_price"))<>"" then response.write trim(rs("book_price")) else response.write " " %></TD>
<TD align=middle vAlign=top><%=trim(rs("book_isbn"))%></TD>
<TD align=middle vAlign=top>
<%
select case trim(rs("special"))

case "true"
Response.Write "是"
case "false"
Response.Write "否"
case else
Response.Write "未知"
end select
%>
</TD>
</TR>
<%
rowcount=rowcount+1
rs.MoveNext
loop
end if


%>
<TR>
<TD align=middle vAlign=top nowrap class=ReportHead colspan=16>
总共[ <%=rs.RecordCount%> ]条记录
每页至多[ <%=rs.PageSize%> ]条记录
总共[ <%=rs.PageCount%> ]页
目前位第[ <%=curpage%> ]页

<%if cint(curpage)=1 then%>
<A href="bookcity_admin.asp?curpage=
<%
curpage=cint(curpage)+1
Response.Write curpage
%>">下一页</A>
<% elseif cint(curpage)=rs.PageCount then%>
<A href="bookcity_admin.asp?curpage=
<%
curpage=cint(curpage)-1
Response.Write curpage
%>">上一页</A>
<% else%>
<A href="bookcity_admin.asp?curpage=
<%
curpage=Request.QueryString("curpage")
if cint(curpage)<rs.PageCount then curpage=cint(curpage)+1
Response.Write curpage
%>">下一页</A>
<A href="bookcity_admin.asp?curpage=
<%
curpage=Request.QueryString("curpage")
curpage=cint(curpage)-1
Response.Write curpage
%>">上一页</A>
<%end if%>
转到
<INPUT type="text" id=zdt name=zdt style="HEIGHT: 22px; WIDTH: 50px">

<INPUT type="button" value="Go!" id=zdb name=zdb LANGUAGE=javascript onclick="return zdb_onclick()">
</TD>
</TR>
</TABLE>
</P>
<P align=center>
<img src="..\IMAGES\zbook_5.gif" border=0 id=button1 name=button1 LANGUAGE=javascript onclick="return button1_onclick()" >
<img src="..\IMAGES\zbook_3.gif" border=0 id=button2 name=button2 LANGUAGE=javascript onclick="return button2_onclick()">
<img src="..\IMAGES\zbook_4.gif" border=0 id=button3 name=button3 LANGUAGE=javascript onclick="return button3_onclick()">
</P>
</BODY>
<%
rs.Close
set rs=nothing
%>
</HTML>
<!--#include file="../_private/tail.asp"-->
...全文
25 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
tylike 2003-10-25
  • 打赏
  • 举报
回复
up之
ygghost 2003-10-25
  • 打赏
  • 举报
回复
set rs=server.CreateObject("ADODB.recordset")
sql="select * from bookcity_book"
rs.Open sql,application("cn"),3,1
打开记录语句写了2遍做什么??去掉看看
pp4u 2003-08-20
  • 打赏
  • 举报
回复
怀疑是curpage没有传值
把curpage传值改成<input name="page" type="hidden" value="<%=curpage%>">用隐藏字段来传。

28,390

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧