我把代码帖出来了给大家看看!

wy1978 2003-11-27 10:16:03
我把代码帖出来了给大家看看!
一个管理系统出错了
请你浏览这个文件中的manage.asp　然后点击工程部，当点击下一页时却错了
提示是56行错，也就是rs.absolutepage=pageno行错了，请帮我看一看！谢谢！


这是MANAGE.ASP
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<body>
<table width="701" height="369" border="1" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="112" align="left" valign="top"> <table width="100%" border="0" cellspacing="0" cellpadding="10">
<tr>
<td align="center"><a href="show.asp?bm=工程部">工程部</a></td>
</tr>
<tr>
<td align="center"><a href="show.asp?bm=研发部">研发部</a></td>
</tr>
<tr>
<td align="center"><a href="show.asp?bm=市场部">市场部</a></td>
</tr>
<tr>
<td align="center"><a href="show.asp?bm=销售部">销售部</a></td>
</tr>
<tr>
<td align="center"><a href="show.asp?bm=行政部">行政部</a></td>
</tr>
</table></td>
<td width="583"> </td>
</tr>
</table>
</body>
</html>


这是SHOW.ASP 提示是56行错，也就是rs.absolutepage=pageno行错了，请帮我看一看！谢谢！


<%
dim bm
bm=request("bm")
set db=server.createobject("adodb.connection")
db.open"dbq="&server.mappath("jhzj.mdb")&";driver={microsoft access driver (*.mdb)};"
set rs=server.createobject("adodb.recordset")
sql="select * from manage where bm='"&bm&"'"
rs.open sql,db,1,2
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<body>
<table width="700" border="1" align="center" cellpadding="2" cellspacing="0">
<tr align="center">
<td width="150">部门计划与总结</td>
<td width="99">行政管理</td>
<td width="93">交流中心</td>
<td width="178">公共信息</td>
<td width="148">上报文件</td>
</tr>
</table>
<table width="701" height="369" border="1" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="112" align="left" valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="10">
<tr>
<td align="center"><a href="show.asp?bm=工程部">工程部</a></td>
</tr>
<tr>
<td align="center"><a href="show.asp?bm=研发部">研发部</a></td>
</tr>
<tr>
<td align="center"><a href="show.asp?bm=市场部">市场部</a></td>
</tr>
<tr>
<td align="center"><a href="show.asp?bm=销售部">销售部</a></td>
</tr>
<tr>
<td align="center"><a href="show.asp?bm=行政部">行政部</a></td>
</tr>
</table></td>
<td width="583" align="center" valign="top">

<%
pageno=cint(request.querystring("pageno"))
i=3
rs.pagesize=i
mpage=rs.pagecount
if pageno<1 or pageno="" or pageno>mpage then
pageno=1
end if
rs.absolutepage=pageno
%>
<%
do while not rs.eof and i>0
i=i-1

%>
<table width="90%" height="72" border="1" align="center" cellpadding="0" cellspacing="0">
<tr align="center">
<td height="18" colspan="6"><%=rs("lx")%></td>
</tr>
<tr>
<td width="10%" height="34">部门：</td>
<td width="22%"><%=rs("bm")%></td>
<td width="9%">经理：</td>
<td width="23%"><%=rs("manage")%></td>
<td width="13%">日期：</td>
<td width="23%"><%=rs("hbdate")%></td>
</tr>
<tr>
<td height="18" colspan="6"><%=rs("lyhb")%></td>
</tr>
</table>
<%
rs.movenext
loop

%>
<table width="90%" border="1" cellpadding="0" cellspacing="0">
<tr>
<td>



<%
if pageno>1 then
response.write"<a href=show.asp?pageno="&(pageno-1)&">上一页</a> "
end if
if pageno<mpage then
response.write"<a href=show.asp?pageno="&(pageno+1)&">下一页</a>"

end if
%>
</td>
</tr>
</table>

</td>
</tr>
</table>
</body>
</html>
...全文
78 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
wy1978 2003-11-27
  • 打赏
  • 举报
 回复
版主 你在哪里？？？？
wy1978 2003-11-27
  • 打赏
  • 举报
 回复
高手，你在哪里？？？
wy1978 2003-11-27
  • 打赏
  • 举报
 回复
看来比我还要菜
哪有这样写的？
<% <% %> %>
甘泉123 2003-11-27
  • 打赏
  • 举报
 回复
<%
if pageno>1 then
response.write"<a href=show.asp?pageno=<%=pageno-1%>>上一页</a> "
end if
if pageno<mpage then
response.write"<a href=show.asp?pageno=<%=pageno+1%>>下一页</a>"

end if
%>
yeno 2003-11-27
  • 打赏
  • 举报
 回复
你的代码有误
response.write"<a href=show.asp?pageno="&(pageno-1)&">上一页</a> "
改为
response.write"<a href="show.asp?pageno=<%=pageno-1%>">上一页</a> "

甘泉123 2003-11-27
  • 打赏
  • 举报
 回复
pageno=rs.absolutepage
怎么看懂计算机代码,程序员如何看懂别人的代码（干货，实用）
第一章 如何看懂别人的代码(上)对于IT相关从业人员来说，看别人代码是必不可少的磨难。在学习阶段，我们经常需要从书上看别人的代码以吸取宝贵经验，这是相当枯燥无趣的过程，也时常无法领会作者的意图。在实际工作中，不可避免的出现需要接手做到一半的项目或是团队合作的项目，这时候就必须看以前的工程师的代码。如果说看书上的代码用痛苦来形容的话，那么这种情况时遇到代码不够规范或者设计不合理，简直就是苦不堪言。...
4行代码计算9999的阶乘
本文来源于csdn2001年的一个帖子，题目是有谁可以用四行代码求出1000000的阶乘！！！，见 http://topic.csdn.net/t/20001226/11/52263.html，我在该帖中给出了代码。但严格的将，这个代码的行数并未控制在4行以内。这次给出一个只用4行代码计算10000以内的阶乘的完整程序，并给出代码优化（压缩）过程. 下面看看这个程序的最初形式 ...
【完整版】实证代码命令详细汇总，含OLS、DID、PSM、GMM、工具变量、中介等代码！！
其三，logit模型；其四，Tobit模型；其五，probit模型；其七，双重差分模型（DID）；其二，滞后期模型；其三，工具变量：两阶段最小二乘；费更新，已经下载本资料的用户后续更新免费领取完整版最新学习材料（即本帖的最新版）包括：其零，单变量分析；7.技术更新：由于计量代码及模型更新较快，后续每一段时间都会更新，更新的资。若咨询的问题与本帖无关，不能及时回复，还望谅解！(5)生成行业、年度虚拟变量；(3)生成新的变量；其十，个体固定效应检验；包括：其一，PSM模型（近邻匹配、核匹配、半径匹配等。
oled菜单c语言设计,震惊！OLED菜单竟只用10行代码就可以完成到完美！！！
本帖最后由 新手之帆 于 2020-11-1 17:02 编辑震惊！OLED菜单竟只用10行代码就可以完成到完美！！！相信各位在看了我上次的教程贴之后，已经略有头绪。但！这显然对小白们不怎么友好！！！毕竟，我们都是从小白过来的。所以，我花费了大概1天的时间，将菜单功能封装成了个库，其功能比我上次给出的代码强大了大概1/3。怎么样？是不是有点小激动了呢？？？首先，我还是来讲解一下该库的一些函数：vo...
整洁代码之道一书 -- 读后感【小记】
    一、序言   代码是给程序员看的，不是给领导看的，也不是给客户看的，更不是给女朋友看的！ 如果你想成为一名优秀的程序员，那么，整洁代码之道这本书，我感觉一般吧，哈哈 怎么说呢，读完本书，对怎么写好代码有了一个直观的认识，但，如果说读完本书，就能成为一名优秀的程序员，我感觉有点扯 如果你是一名至少有1W+行以上的代码工作者的话，本书可以跳着看，具体到某些地方时，可以细细品味 ...
ASP

28,407

社区成员

356,948

社区内容

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

加载中

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

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

+ 用AI写文章