我要死了,大家都来看看!

cc9638895 2003-08-21 03:17:08
这段表格翻页的程序问题出在哪啊!怎么该动!!
帮帮我吧!急死我了!!!主要看<table>以外的就可以了!!

——————— bookcity.asp ———————————-
<BODY>
<link rel=stylesheet type="text/css" href="../style.css">
<P align=center>图书信息管理</P>
<%
dim page,pagesize
pagesize=10
if request("page")="" then
page=1
else
page=clng(Request("page"))
end if
%>
<%
set rs=server.CreateObject("ADODB.recordset")
sql="select * from bookcity_book order by book_id desc"
rs.Open sql,application("cn"),3,1
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 page=1 to rs.PageSize
%>
<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>
<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>
</TABLE>
<%
rs.movenext
if rs.EOF then exit for
next
%></div>

<form action="bookcity_admin.asp" method="get" align="right" id="form1" name="form1">
<div align="right"><p>
<%
If Page <> 1 Then
Response.Write "<A HREF=bookcity_admin.asp?Page=1>第一页</A>"
Response.Write "<A HREF=bookcity_admin.asp?Page=" & (Page-1) & ">上一页</A>"
End If
If Page <> rs.PageCount Then
Response.Write "<A HREF=bookcity_admin.asp?Page=" & (Page+1) & ">下一页</A>"
Response.Write "<A HREF=bookcity_admin.asp?Page=" & rs.PageCount & ">最后一页</A>"
End If
页数:<font color="#ff0000"><%=Page%> /<%=rs.PageCount%></font>
%>
</p></div>
</form>
<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>
...全文
25 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
cc9638895 2003-08-21
  • 打赏
  • 举报
回复
提示我说是
页数:<font color="#ff0000"><%=Page%> /<%=rs.PageCount%></font>
%>
有错误啊!!
jiejifeng 2003-08-21
  • 打赏
  • 举报
回复
for page=1 to rs.PageSize

大概是这儿错误, 你不用page,换个变更量试吧,因你下面要以page为值为数据啊!!(分页中)

28,390

社区成员

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

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