搜索页面的分页显示问题？

fbchenyong 2003-06-17 07:42:29
我做了一个搜索页面，搜索结果后首页可以正确显示出来，可是其他页面却无法显示，错误提示是对象关闭时，操作不被允许。 以下是我这个页面的所有源代码，请大家指正错误，谢谢！

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<!--#include file="conn.asp"-->
<html>
<head>


<title>查询系统</title>

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

</head>
<%

dim rs
dim sql
dim page
keycar=trim(request.Form("keycar"))
keyowner=trim(request.Form("keyowner"))
rado = Request("rado")
set rs=server.createobject("adodb.recordset")
if rado="Car" then
sql="SELECT S_COLOR1 where CarManage.dbo.T_car.license like '%" & keycar & "%'"
rs.open sql,conn,3,1
else
if rado="Owner" then
sql="SELECT S_COLOR1 where owner = '" & keyowner& "'"
rs.open sql,conn,3,1
end if
end if

IF not IsNumeric(Request("page")) Or IsEmpty(Request("page")) Then
page=1
Else
Page=Int(Abs(Request("page")))
End if
rs.pagesize = 1
total = rs.RecordCount
mypagesize= rs.pagesize
rs.absolutepage = page
%>

<body bgcolor="#CCCCCC" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table border="0" align="center">
<tr><td>
<%
do while not rs.eof and mypagesize>0 %>
中间部分略
<%
mypagesize=mypagesize-1
i=i+1
rs.movenext
loop
%>
<tr class="ddd">
<form action="car.asp" method="post">
<td colspan="7">
<%
If Request.form("Page") = "" Then Page=10
Page = CLng(Request("Page")) ' CLng 不可省略，用于将页码转换为长整型
If Page < 1 Then Page = 1
If Page > rs.PageCount Then Page = rs.PageCount


If Page <> 1 Then
Response.Write "<A HREF=car.asp?Page=1>第一页</A>"
Response.Write "<A HREF=car.asp?Page=" & (Page-1) & ">上一页</A>"
End If
If Page <> rs.PageCount Then
Response.Write "<A HREF=car.asp?Page=" & (Page+1) & ">下一页</A>"
Response.Write "<A HREF=car.asp?Page=" & rs.PageCount & ">最后一页</A>"
End If
%>     输入页数:
<input type="text" size="3" name="Page">
页数：<font color="#FF0000"><%=Page%>/<%=rs.PageCount%></font></td>

</form>
</tr>

</tbody>
</table>

</div></td>
</tr>
<tr>
<td height="0" align="center" valign="top">
<table border="0" align="center">
<tr>
<td valign="top" class="ddd"><img src="image/ARROW.gif" width="19" height="19">
通过车辆查询</td>
</tr>
<tr>
<td class="ddd"><img src="image/ARROW.gif" width="19" height="19"> 通过驾驶员查询</td>
</tr>
<tr>
<td class="ddd"><img src="image/ARROW.gif" width="19" height="19"> 统计车辆驾驶员</td>
</tr>
<tr>
<td class="ddd"><img src="image/ARROW.gif" width="19" height="19"> 查询历史库数据</td>
</tr>
</table>
</td>
</tr>
<tr>
<td > </td>
</tr>
<tr>
<td> </td>
<td><img src="image/line.gif" width="611" height="1"></td>
</tr>
</table>
<%
set rs=nothing
set conn=nothing
rs.close
conn.close
%>


</body>
</html>
...全文
106 10 打赏 收藏 转发到动态 举报
写回复
用AI写文章
10 条回复
切换为时间正序
请发表友善的回复…
发表回复
Gswan 2003-07-03
  • 打赏
  • 举报
 回复
又发现了一个问题
那就是输入页码浏览的问题！
希望有人能解决，我正在研究！！！
Gswan 2003-07-03
  • 打赏
  • 举报
 回复
感谢summercat()的提醒 ！
理论上
<A HREF="car.asp?Page= Page-1 &keycar=<%=keycar%>&keyowner=<%=keyowner%> ">上一页</A>
加上就没问题了
问题的关键就在于取得返回值！
第一页 能浏览是因为开始的时候你有 keycar 和keyowner 二个返回值
而当你在浏览下一页的时候返回值只有page了，所以无法浏览，所以要加上
car.asp?Page= Page-1 &keycar=<%=keycar%>&keyowner=<%=keyowner%>这个就可以了
他的代码的确有些问题，不能在response.write中加入<%=keycar%>
我的代码是
Response.Write "<A HREF=car.asp?Page="&(Page+1)&"&keycar="&keycar&"&keyowner="&keyowner&">下一页</A>"
就可以了
我已经成功了！希望你也成功！
希望更多的人不要再受这个折磨了！！
Gswan 2003-07-03
  • 打赏
  • 举报
 回复
和我遇到的问题一样！
我也在等答案！！
fbchenyong 2003-06-17
  • 打赏
  • 举报
 回复
我已经按照你们说的修改了，可是现在连第一页都不能显示了
srl 2003-06-17
  • 打赏
  • 举报
 回复
set conn=nothing
rs.close
位置倒过来就可以了。
summercat 2003-06-17
  • 打赏
  • 举报
 回复
除了以上他们说的，程序的开始，这里改成
keycar=trim(request.Form("keycar"))
keyowner=trim(request.Form("keyowner"))
====》改
keycar=trim(request("keycar"))
keyowner=trim(request("keyowner"))
然后分页的时候。所有分页==》
<A HREF="car.asp?Page= Page-1 &keycar=<%=keycar%>&keyowner=<%=keyowner%> ">上一页</A>
...

zykj_2000 2003-06-17
  • 打赏
  • 举报
 回复
conn必须在 rs之后释放，
你可以改成,还有就是因该先关闭，再释放吧（难道我有记错)
rs.close
set rs=nothing

conn.close
set conn=nohting
CHARGING 2003-06-17
  • 打赏
  • 举报
 回复
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
CHARGING 2003-06-17
  • 打赏
  • 举报
 回复
在翻页的连接上除了加PAGE参数再加上keycar=<%=keycar%>&radio=<%=radio%>&keyowner=<%=keyowner%>
roy66 2003-06-17
  • 打赏
  • 举报
 回复
<%
set rs=nothing
set conn=nothing
rs.close
conn.close
%>

改为
<%
rs.close
conn.close
%>
滞环控制simulink仿真模型
滞环控制simulink仿真模型
C++课程设计题目源代码
打开链接下载源码： https://pan.quark.cn/s/589796089f72 C++课程设计任务列表，涵盖以下内容：1、识别并显示10至99范围内，各位数乘积超过各位数和的数值，例如数字12不满足条件，因为1乘以2小于1加2，故不输出；而数字27满足条件，因为2乘以7大于2加7，因此需要输出该数。2、开发一个功能，用于从用户输入的任意数量实数中找出最大值与最小值：首先要求用户输入一个正整数n，代表数值的个数，随后用户可输入任意n个实数，程序需找出这n个数中的最大值和最小值并将它们展示出来。3、实现两个已排序数组的合并操作：设有数组A和B，且假设这两个数组的元素均已按照降序排列。编写程序将A和B合并成一个新的数组C，并确保C中的元素同样保持降序排列。int A[10]={123, 86,80, 49,33,15,7,0,-1,-3}；int B[10]={100,64,51,50,27,19,15,12,5,2}；4、设计一个函数，用于计算特定分数序列前n项的总和，该序列为1/2,1/3,1/4,1/5,1/6,1/7,...。要求在主程序中提示用户输入一个整数n，并验证输入的合法性（n需大于1方为有效），若输入合法，则调用求和函数并显示计算结果。5、编写一个程序，计算两个用户输入日期之间的天数差：用户需以year1，month1，day1和year2，month2，day2的格式输入两个日期，程序随后计算这两个日期之间的天数间隔，并将结果输出到屏幕上。要求编制具有如下原型的函数difs2Date：long GetDayDifference（int y1,int m1,int d1,int y2,int m2,int d2）；并在主函数中调用此函数，将计...
SAP ABAP调试器高级技术
代码下载地址： https://pan.quark.cn/s/ee8627e4e6d7 ABAP调试器是一种功能强大的工具，可用于在执行期间对ABAP代码进行检验。除了常规的核心功能（例如逐行运行代码以及检验变量、字段符号和引用的值）之外，它还提供了一些辅助性的特性，能够简化并压缩调试会话的时长。并非所有使用者都熟悉这些辅助特性。SAP ABAP调试器是处理和优化ABAP代码开发与维护工作的核心资源，它配备了多样的功能来协助开发人员在运行状态下进行检验和排除故障。此资源着重阐述了ABAP调试器的一些高级特性，涵盖了深入分析调用堆栈、系统级调试、更新会话调试以及提升调试效率的方法。 1. **深入分析调用堆栈**：除了常规的应用程序调试，开发人员有时需要对调用堆栈的内部层级进行深入调试，特别是在错误出现在异步执行的更新处理或系统级程序时。通过启用**系统级调试**，可以访问通常不公开的系统代码，但这也会导致调用堆栈的显著增加，因此需要审慎操作。 2. **系统级调试**：对于不含业务逻辑的系统级程序，开发人员通常无需进行调试。然而，在特定情形下，例如进行错误追踪时，可能需要进入系统代码。借助调试器的“系统调试启用/禁用”选项，可以赋予对系统程序的调试权限。 3. **更新会话调试**：在处理异步更新任务，例如持久化业务数据时，错误可能发生在更新任务内部。激活**更新会话调试**，在更新任务完成后，调试器将自动启动，展示执行路径。比如，在变更成本中心后，通过输入调试指令 "/h" 启动调试，保存后能够看到更新过程中的错误。 4. **分析调用堆栈**：在进行深入调试时，调用堆栈是至关重要的。通过分析调用堆栈，能够定位到引发问题的具体位置，如在VB_V2_NORMAL...
超170个最新微信小程序源码网盘链接
源码链接： https://pan.quark.cn/s/a4b39357ea24 小程序雷达 AI 驱动的小程序生态选型与风险评估工具，把微信小程序开发资源转化为可筛选、可评估、可对比的技术雷达。 线上地址 主站： Vercel： 适合谁 正在做微信小程序技术选型的产品、研发和架构团队。 需要判断 Taro、uni-app、原生小程序、组件库、云开发和 SDK 风险的团队。 需要把历史 awesome 列表转成可筛选、可对比、可验证技术雷达的维护者。 可以做什么 Radar：按推荐状态、风险等级、资源类型、分类和适用场景浏览小程序生态资源。 Quick Search：快速搜索资源并跳转常用页面。 Compare：对比 Taro、uni-app、原生小程序等核心方案。 Advisor：输入选型问题，获得推荐结论、适用/不适用条件、迁移成本、下一步和证据来源。 Doctor：粘贴小程序项目配置，识别框架依赖、过时方案和迁移风险。 Weekly：查看小程序生态周报和近期风险信号。 数据概览 当前数据集中包含 236 个小程序生态资源。 完整资源可在 Radar 页面和导出能力中查看。 核心样例 Taro ★30.6k+ - 使用 React 的方式开发小程序的框架，同时支持生成多端应用 uni-app ★36.1k+ - 使用 Vue 语法开发小程序、H5、App的统一框架 MPX ★2.1k+ - 增强型小程序框架，深度性能优化，支持跨小程序平台开发，完全兼容原生小程序组件 WePY ★21.7k+ - 支持组件化的小程序开发框架 vant-weapp ★12.3k+ - 高颜值、好用、易扩展的微信小程序 UI 库 tdesign-miniprogram ★1.3...
ASP

28,403

社区成员

356,946

社区内容

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

加载中

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

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

+ 用AI写文章