收藏本站腾讯微博新浪微博

经典论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

蓝色理想 最新研发动态 网站开通淘帖功能 - 蓝色理想插件 论坛内容导读一页看论坛 - 给官方提建议

论坛活动及任务 地图和邮件任务 请多用悬赏提问 热夏来袭,选一款蓝色理想的个性T恤吧!

手机上论坛,使用APP获得更好体验 急需前端攻城狮,获得内部推荐机会 论坛开通淘帖功能,收藏终于可以分类了!

搜索
查看: 1413|回复: 4

[asp] 序号分页排序问题(我是新手)

[复制链接]
发表于 2010-4-3 08:29:27 | 显示全部楼层 |阅读模式
<%
dim m,n
key1=request("key1") '接上一页表单的参数
'set rs=server.createobject("adodb.recordset")
'sql="select * from abc Where 要查询的字段名 Like '%"&SSNR&"%' order by id desc"
'rs.open sql,conn,1,1

set cn=server.CreateObject("ADODB.Connection")
fn=server.MapPath("1121webdb.mdb")
cn.open "driver={Microsoft Access Driver (*.mdb)};dbq="& fn

set rs=server.CreateObject("ADODB.Recordset")
searhsql="select * from khxx where sh like '%"&key1&"%' or qymc like '%"&key1&"%' or dz like '%"&key1&"%' or lxr like '%"&key1&"%' or lxdh like '%"&key1&"%' or fj like '%"&key1&"%' or blsj like '%"&key1&"%' or syqx like '%"&key1&"%' or azsj like '%"&key1&"%' or bb like '%"&key1&"%' or bz like '%"&key1&"%'"
rs.open searhsql,cn,1,1

If rs.EOF Then
response.redirect "khwhSearchexcel.asp?msg=没有满足条件的记录,或输入有误!"
end if
'---------分页代码----------
rs.pagesize=5 '定义一页显示的记录数目
If page < 1 Then page = 1
If page > rs.PageCount Then page = rs.PageCount
if not rs.eof then rs.AbsolutePage =page
tatalrecord=rs.recordcount '获取记录总数目
tatalpages=rs.pagecount '获取分页的数目
rs.movefirst
nowpage=request("page") '用request获取当前页数,注意page是自己定义的变量并非函数
if nowpage&""="" then
nowpage=1
else
nowpage=cint(nowpage)
end if
rs.absolutepage=nowpage '将指针移动到当前显示页的第一条记录
%>


<!------------循环代码----------->

<table style="border-collapse:collapse;" border="1">
<tr>
<td>序号</td> <td>税号</td> <td>企业名称</td> <td>地址</td> <td>联系人</td> <td>联系电话</td><td>分局</td> <td>办理时间</td> <td>使用期限</td> <td>安装时间</td> <td>版本</td> <td>备注</td> <td>修改</td>
</tr>

<%do while not rs.eof And n<rs.pagesize%>
<tr>
<td><%=n+1%></td><td><%=rs("sh")%></td> <td><%=rs("qymc")%></td> <td><%=rs("dz")%></td><td><%=rs("lxr")%></td> <td><%=rs("lxdh")%></td> <td><%=rs("fj")%></td><td><%=rs("blsj")%></td> <td><%=rs("syqx")%></td> <td><%=rs("azsj")%></td><td><%=rs("bb")%></td><td><%=rs("bz")%></td><td><a href="khwhchange.asp?sh=<%=rs("sh")%>">修改</a></td>
</tr>
<%
n=n+1
rs.movenext
loop
%>
</table>


共<%=tatalpages%>页 当前为第<%=nowpage%>页
<%if nowpage>1 then%>
<a href="khwhsearchexcelPage.asp?page=<%=nowpage-1%>&key1=<%=(key1)%>">上一页</a>
<%else%>
上一页
<%end if%>
<%for k=1 to tatalpages%>
<%if k<>nowpage then %>
<a href="khwhsearchexcelPage.asp?page=<%=k%>&key1=<%=(key1)%>"><%=k%></a>
<%else%>
<%=k%>
<%end if%>
<%next%>
<%if nowpage < tatalpages then%>
<a href="khwhsearchexcelPage.asp?page=<%=nowpage+1%>&key1=<%=(key1)%>">下一页</a>
<%else%>
下一页
<%end if%>
<%if nowpage<>1 then%>
<a href="khwhsearchexcelPage.asp?page=<%=1%>&key1=<%=(key1)%>"> 首页</a>
<%else%>
首页
<%end if%>
<%if nowpage<>tatalpages then %>
<a href="khwhsearchexcelPage.asp?page=<%=tatalpages%>&key1=<%=(key1)%>">末页</a>
<%else%>
末页
<%end if%>


<table width="100%" border="0" align="center" cellpadding="3" cellspacing="1" >
  <tr>
    <td align="center"> <p><br>
      <p>

<a href=?excel=yesdo&key1=<%=key1%>>导出最新excel文件</a>

<%
if request("excel")="yesdo" then
'导出到excel
Set rs = Server.CreateObject("ADODB.RecordSet")
sqlstr= searhsql '这里是你的查询语句
'response.write sqlstr
'response.end
rs.open sqlstr,cn,1,3
%>

<%
response.ContentType ="application/vnd.ms-Excel"
Set fs = server.CreateObject("scripting.filesystemobject")
'--假设你想让生成的EXCEL文件做如下的存放
filename="log.xls"
temp=filename
filename=Request.ServerVariables("APPL_PHYSICAL_PATH")&"\"+filename
'--如果原来的EXCEL文件存在的话删除它
if fs.FileExists(filename) then
fs.DeleteFile(filename)
end if
'--创建EXCEL文件
set myfile = fs.CreateTextFile(filename,true)
dim strLine,responsestr

'strLine=""
'For each x in rs.fields
'if x.name <> "id" then
'strLine= strLine & x.name & chr(9)
'end if
'Next

strLine="税号" & chr(9) & "企业名称" & chr(9) & "地址" & chr(9) & "联系人" & chr(9) & "联系电话" & chr(9) & "分局" & chr(9) & "办理时间" & chr(9) & "使用期限" & chr(9) & "安装时间" & chr(9) & "版本" & chr(9) & "备注" & chr(9)

'--将表的列名先写入EXCEL
myfile.writeline strLine
while not rs.eof
strLine=""
for each x in rs.Fields
if x.name <> "id" then
strLine= strLine & "="""&x.value &""""& chr(9)
end if
next


'--将表的数据写入EXCEL
myfile.writeline strLine
rs.movenext
wend
response.redirect "../log.xls"
'link="<A HREF=\" & temp & " title=将数据保存至Eecel表中><font color=red><b>导出excel文件</b></font></a>"
'Response.write link
set myfile = nothing
Set fs=Nothing
'rs.close
end if
%>
    </td>
  </tr>
</table>

<%
rs.close
cn.close
set rs=nothing
set cn=nothing
%>


序号分页后不连续排列,序号分页后还是12345...

序号分页后还是12345

序号分页后还是12345
发表于 2010-4-3 11:20:20 | 显示全部楼层
<table style="border-collapse:collapse;" border="1">
<tr>
<td>序号</td> <td>税号</td> <td>企业名称</td> <td>地址</td> <td>联系人</td> <td>联系电话</td><td>分局</td> <td>办理时间</td> <td>使用期限</td> <td>安装时间</td> <td>版本</td> <td>备注</td> <td>修改</td>
</tr>

<%do while not rs.eof And n<rs.pagesize%>
<tr>
<td><%=n+1+rs.pagesize*(rs.absolutepage-1)%></td><td><%=rs("sh")%></td> <td><%=rs("qymc")%></td> <td><%=rs("dz")%></td><td><%=rs("lxr")%></td> <td><%=rs("lxdh")%></td> <td><%=rs("fj")%></td><td><%=rs("blsj")%></td> <td><%=rs("syqx")%></td> <td><%=rs("azsj")%></td><td><%=rs("bb")%></td><td><%=rs("bz")%></td><td><a href="khwhchange.asp?sh=<%=rs("sh")%>">修改</a></td>
</tr>
<%
n=n+1
rs.movenext
loop
%></table>
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-4-3 19:12:11 | 显示全部楼层
变成这样了~!还是不行呀~!
未命名1.JPG
回复 支持 反对

使用道具 举报

发表于 2010-4-3 22:19:57 | 显示全部楼层
那还真怪,莫非absolutepage是从0开始计算的!

<%=n+1+rs.pagesize*(rs.absolutepage-1)%>
中的“-1”去掉试试看吧!<%=n+1+rs.pagesize*rs.absolutepage%>
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-4-4 09:51:12 | 显示全部楼层
兄弟 还是不行啊.还有他到下一页的时候序号还是不变呀~!

2010-04-04_094613.png
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|小黑屋|Archiver|手机版|blueidea.com ( 湘ICP备12001430号 )  

GMT+8, 2020-11-26 20:28 , Processed in 0.093512 second(s), 11 queries , Gzip On, Memcache On.

Powered by Discuz! X3.2 Licensed

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表