问题仍未解决！！！！！！专家快来看看

cc9638895 2003-08-21 08:31:54
还是昨天的一段程序，经过几次修改，翻页时记录不更新的问题还没有解决啊！
我看是不是 zdb_onclick()这个函数有问题，里面的var parm=window.zdt.value;
是什么？zdt不应该是变量吧！还有curpage的传值问题！
请高人给我明确指出哪里错了！我都把这个代码段上传4次了！问题还没解决！
谢谢！


<%@ 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
%>

<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"-->



...全文
24 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
119311canoe 2003-09-27
  • 打赏
  • 举报
 回复
怎么出现了2个打开rs记录的代码？
去掉一个看看
conner 2003-08-21
  • 打赏
  • 举报
 回复
比你那个简单多了
<%dim page,pagesize
pagesize=10
if request("page")="" then
page=1
else
page=clng(Request("page"))
end if
%>
<%
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("***.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
sql="select * from record order by id desc"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3
if not rs.EOF then
rs.PageSize = pagesize
if page<1 then page=1
if page> rs.PageCount then page=rs.PageCount
rs.AbsolutePage = page
for ipage=1 to rs.PageSize
%>

这里显示内容

<%rs.movenext
if rs.EOF then exit for
next
%></div>

<form action="default.asp" method="get" align="right" id="form1" name="form1">
<div align="right"><p><%
If Page <> 1 Then
Response.Write "<A HREF=default.asp?Page=1>第一页</A>"
Response.Write "<A HREF=default.asp?Page=" & (Page-1) & ">上一页</A>"
End If
If Page <> rs.PageCount Then
Response.Write "<A HREF=default.asp?Page=" & (Page+1) & ">下一页</A>"
Response.Write "<A HREF=default.asp?Page=" & rs.PageCount & ">最后一页</A>"
End If
%> 页数：<font color="#ff0000"><%=Page%> /<%=rs.PageCount%></font> </p>
</div>
</form>
<%end if%>
xxrl 2003-08-21
  • 打赏
  • 举报
 回复
调用时候这样写
<%=dim RowCount
RowCount = 10
Call TurnPage(rs,RowCount)
%>
。。。。。。。。。。。。。。。。。
。。。。。。。。。。。。。。。。
<%
while not rs.eof and RowCount>0
................
...................
..............
RowCount = RowCount-1
rs.movenext
wend
%>
xxrl 2003-08-21
  • 打赏
  • 举报
 回复
你的分页程序太麻烦了，我记得好像给一个帖子回复过一个分页通用程序，不知道是不是你。

<%
'+++++++++++++++++++++++++++++++++++++
'◆模块名称： 公共翻页模块
'◆文 件 名： TurnPage.asp
'◆传入参数： Rs_tmp (记录集), PageSize (每页显示的记录条数)
'◆输 出： 记录集翻页显示功能
'+++++++++++++++++++++++++++++++++++++
'
Sub TurnPage(byref Rs_tmp,PageSize) 'Rs_tmp 记录集 ; PageSize 每页显示的记录条数;
Dim TotalPage '总页数
Dim PageNo '当前显示的是第几页
Dim RecordCount '总记录条数

Rs_tmp.PageSize = PageSize
RecordCount = Rs_tmp.recordcount
TotalPage = INT(RecordCount / PageSize * -1)*-1
PageNo = Request.QueryString ("PageNo")
'直接输入页数跳转；
If Request.Form("PageNo")<>"" Then PageNo = Request.Form("PageNo")
'如果没有选择第几页，则默认显示第一页；
If PageNo = "" then PageNo = 1
If RecordCount <> 0 then
Rs_tmp.AbsolutePage = PageNo
End If

'获取当前文件名，使得每次翻页都在当前页面进行；
Dim fileName,postion
fileName = Request.ServerVariables("script_name")
postion = InstrRev(fileName,"/")+1
'取得当前的文件名称，使翻页的链接指向当前文件；
fileName = Mid(fileName,postion)
%>
<table border=0 width='100%'>
<tr>
<td align=left> 总页数：<font color=#ff3333><%=TotalPage%></font>页
当前第<font color=#ff3333><%=PageNo%></font>页</td>
<td align="right">
<%If RecordCount = 0 or TotalPage = 1 Then
Response.Write "首页|前页|后页|末页"
Else%>
<a href="<%=fileName%>?PageNo=1">首页|</a>
<%If PageNo - 1 = 0 Then
Response.Write "前页|"
Else%>
<a href="<%=fileName%>?PageNo=<%=PageNo-1%>">前页|</a>
<%End If

If PageNo+1 > TotalPage Then
Response.Write "后页|"
Else%>
<a href="<%=fileName%>?PageNo=<%=PageNo+1%>">后页|</a>
<%End If%>

<a href="<%=fileName%>?PageNo=<%=TotalPage%>">末页</a>
<%End If%></td>
</tr>
</table>
<%End Sub%>

cc9638895 2003-08-21
  • 打赏
  • 举报
 回复
没人理我呀？55555555555555555。。。。。
xxrl 2003-08-21
  • 打赏
  • 举报
 回复
在函数里面不是已经接受了吗？你好好看看，是PageSize
flygoocn 2003-08-21
  • 打赏
  • 举报
 回复
zdt是你页面内的一个<input>的名字啊
cc9638895 2003-08-21
  • 打赏
  • 举报
 回复
TO xxrl :
RowCount是什么？你也没定义过啊！是不是ROwcount=pagesize?
Google开发专家带你学 AI：入门到实战（Keras/Tensorflow）（附源码）
长远来看，越快将 AI 用于自己的工作中就能越早体会到AI带来的收益。 【讲师介绍】 彭靖田 Google Developer Experts。 曾为 TensorFlow Top级 的贡献者，著书《深入理解TensorFlow》，是国内第一本深度剖析 ...
蚂蚁金服的暴富还未开始，Zoom的神话却仍在继续！
袁征也因此大受启发，由于当时国内还没有多少人懂互联网，于是他决心去美国看看，然后再回去。只不过普通话发音都不标准的袁征的出国之旅并不顺利，由于不会说英语，在申请美国签证时，袁征被连续拒绝多达8次。 ...
每年15万美元！这是开发人员解决构造问题的总成本！
如果你正在阅读这本书，你会对上述两个问题作出肯定的回答。不过，许多软件开发人员却对自己编写的程序是如何编译出来的兴趣寥寥，大多数人只想简单地点击按钮，把源代码转变成可执行程序即可。如果他们需要修复缺陷...
电脑任务栏没反应但是桌面有反应怎么办？快速解决（4个方法）
你也遇到过明明电脑用得好好的，但突然就变得电脑任务栏没反应但是桌面有反应的情况吗？今天小编就来跟大家分享一些解决这个问题的正确操作方法，快来看看吧！
软件需求与问题解决
软件需求与问题解决
ASP

28,390

社区成员

357,068

社区内容

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

加载中

查看更多榜单
社区公告
暂无公告

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

+ 用AI写文章