翻页参数该怎么传递,怎么写?

suofe 2004-04-01 04:35:39
大家顺便帮我看看这代码哪里有错
<form name="searchsoft" method="POST" action="index.asp">
<p class="text1">查找部门:
<font size="2" class="t4">
<select name="sbbcd1" size="1" class="P9" id="shibie1">
<option value="1">显示全部</option>
<option value="2">营销部</option>
......
<option value="1F">离退休管理工作部(与工会工作部合署办公)</option>
</select>
</font>
<input class=buttonface type="submit" value="查 询" name="title">
</p>
</form></td>
</tr>
<tr>
<td> 
<!--#include file="conn1.asp"-->
<%
dim PageCount
dim pgsz
dim currentpage
dim n
pgsz=10
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
%>
</td>
</tr>
<tr>
<td><table width="100%" cellpadding="0" border="0" style="border-collapse: collapse" bordercolor="#111111" cellspacing="0" align="center">
<%
if request.Form("searchsoft").value=1 then
sql="select * from job order by id desc"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
else
sql="select * from job where sbccd1='" & request.Form("searchsoft").value& "' order by id desc"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
end if
if rs.eof and rs.bof then
response.write "对不起,您查找的栏目暂时没有内容!"
else
rs.PageSize = pgsz
PageCount = rs.PageCount
If rs.PageCount < currentPage Then
rs.AbsolutePage = rs.PageCount
Else
rs.AbsolutePage = currentPage
End If
%>

<tr class="blank1">
<td height="1" colspan="2" class="blank1" background="../images/three04.gif"> </td>
</tr>

<tr >
<td height="1" colspan="2" class="blank1" background="../images/three04.gif"><table width="100%" border="1" align="center" cellpadding="5" cellspacing="0" bordercolor="#FFFFFF" bgcolor="#f6f6f6" style="border-collapse: collapse">
<tr align="center" bgcolor="#e6e6e6">
<td width="4%" rowspan="2" class="text1">序号</td>
<td colspan="3" class="text1">卡号</td>
<td width="8%" rowspan="2" class="text1">资产名称</td>
........
<td width="8%" rowspan="2" class="text1">所在具体位置</td>
</tr>
<% dim i
i=0
do while not rs.eof%>
<tr align="center" class="text1">
<td class="about01"><%=rs("id")%></td>
<td class="about01">01040000</td>
......
<td class="job01"><%=rs("sbefg")%></td>
</tr>
<% i=i+1
if i>=pgsz then exit do
rs.movenext
loop
%>
</table></td>
</tr>

<tr>
<td height="25" colspan="2" class=text1 align=right>
<%
if currentPage<2 then
response.write " 首页 | 上一页"
else
response.write "<a href=index.asp?page=1>首页</a> | "
response.write "<a href=index.asp?page="&cstr(currentPage-1)&">上一页</a>"
end if
%> | <%
if pagecount-currentPage<1 then
response.write "下一页 | 尾页"
else
response.write "<a href=index.asp?page="&curpage+1&">下一页</a> | "
response.write "<a href=index.asp?page="&pagecount&">尾页</a>"
end if
%>
这里的翻页参数该怎么写呢,传的是下拉框的选值吗,该怎么写?
...全文
86 回复 打赏 收藏 转发到动态 举报
写回复
用AI写文章
回复
切换为时间正序
请发表友善的回复…
发表回复
【更新至2025年】2001-2025年上市公司数字化转型年报词频统计(吴非、赵宸宇、甄红线)(300+年报词频统计) 1、时间:2001-2025年 2、来源:上市公司年报 3、参考文献:企业数字化转型与资本市场表现——来自股票流动性的经验证据(吴非) 数字化转型如何影响企业全要素生产率(赵宸宇) 知识产权行政保护与企业数字化转型(甄红线) 4、方法说明:(1)参考吴非老师的做法,对人工智能技术、大数据技术、云计算技术、区块链技术、数字技术运用五个维度76个数字化相关词频进行统计 (2)参考赵宸宇老师的做法,对数字技术应用、互联网商业模式、智能制造、现代信息系统四个维度99个数字化相关词频进行统计 (3)参考甄红线老师的做法,对技术分类、组织赋能、数字化应用等类别下139个数字化相关词频进行统计 5、指标:年份、股票代码、公司简称、行业名称、行业代码、全文-文本总长度、仅中英文-文本总长度、人工智能技术-吴、大数据技术-吴、云计算技术-吴、区块链技术-吴、数字技术运用-吴、数字技术应用-赵、互联网商业模式-赵、智能制造-赵、现代信息系统-赵、技术分类-人工智能技术-甄、技术分类-区块链技术-甄、技术分类-云计算技术-甄、技术分类-大数据技术-甄、组织赋能-人工智能技术-甄、组织赋能-云计算技术-甄、组织赋能-大数据技术-甄、组织赋能-广义数字技术-甄、数字化应用-技术创新-甄、数字化应用-流程创新-甄、数字化应用-业务创新-甄、人工智能、商业智能、图像理解、投资决策辅助系统、智能数据分析、智能机器人、机器学习、深度学习、语义搜索、生物识别技术、人脸识别、语音识别、身份验证、自动驾驶、自然语言处理、大数据、数据挖掘、文本挖掘、数据可视化、异构数据、征信、增强现实、混合现实、虚拟现实、云计算、流计算、图计算、内存计算、多方安全计算、类脑计算、绿色计算、认知计算等300+词频

28,404

社区成员

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

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