希望高手指点我一下!
这段代码存在个问题:点翻页按纽时!数据不更新,总是在开始那一页上,大家帮忙看看吧!我很着急的
<%@ 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"-->