谁给我提供一个ASP分页程序急用!

Fame6688 2003-10-18 10:13:39
??????
...全文
59 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
S.F. 2003-10-28
  • 打赏
  • 举报
回复
http://expert.csdn.net/Expert/TopicView1.asp?id=2401860
Fame6688 2003-10-28
  • 打赏
  • 举报
回复
谢谢大家
hxy2003 2003-10-18
  • 打赏
  • 举报
回复
UP....
  • 打赏
  • 举报
回复
http://expert.csdn.net/Expert/topic/2365/2365782.xml?temp=.113537
aBoris 2003-10-18
  • 打赏
  • 举报
回复
给你一个分页程序,**转贴**的,挺好用的,
注意变量的保存是用隐藏html控件,
传递和接收就不说了
===============================================
<!--#include file="conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>搜索数据库列表</title>
<link rel="stylesheet" type="text/css" href="style.css">
</head>

<body>

<table width="96%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#666666">
<tr bgcolor="#CCCCCC">
<td width="16%">
<div align="center">ID编号</div></td>
<td width="32%">
<div align="center">真实姓名</div></td>
<td width="29%">
<div align="center">毕业学校</div></td>
<td width="23%">
<div align="center">所学专业</div></td>
</tr>
<%
'接收本页传递过来的变量 
didian=request("didian")
'gangwei=request("gangwei")
'shouru=request("shouru")
xueli=request("xueli")

set rs=server.createobject("adodb.recordset")
sql = "select * from person"
if len(didian)<>0 then
sql =sql & " where hka='" & didian & "'"
end if
if len(xueli)<>0 then
sql =sql & " and edu='" & xueli & "'"
end if

rs.open sql,conn,3,3
if not rs.eof then
rs.pagesize=15

page = request("page")
if cint(page)<1 or page="" then
page = 1
end if

if cint(page)>rs.pagecount then
page = rs.pagecount
end if

rs.absolutepage = page

for i = 1 to rs.pagesize
%>
<tr bgcolor="#FFFFFF">
<td> <div align="center"><%=rs("id")%></div></td>
<td> <div align="center"><a href="qnrdetail.asp?qnr_id=<%=rs("qnr_id")%>" target="_blank"><%=rs("iname")%></a></div></td>
<td> <div align="center"><%=rs("school")%></div></td>
<td><div align="center"><%=rs("zye")%></div></td>
</tr>
<%
rs.movenext
if rs.eof then exit for
next
end if
%>
</table>
<div align="center">

<br>
<%
if rs.recordcount <> 0 then
response.write "<form name='form3' action='searchpage.asp' method='post'>"
response.write"<table align='center' border=1><tr>"
'用隐藏控件保存变量
response.write "<input name='didian' type='hidden' value="& didian &">"
response.write "<input name='xueli' type='hidden' value="& xueli &">"
'把字符串作为URL格式编码为目标字符串
didian=server.URLEncode(didian)
xueli=server.URLEncode(xueli)


response.write("<td> 共"&rs.recordcount&"篇</td>")
If Cint(Page) > 1 Then
Response.Write "<td> <A HREF=searchpage.asp?didian="& didian &"&xueli="& xueli &"&page=1>首页</A></td>"
Response.Write "<td> <A HREF=searchpage.asp?didian="& didian &"&xueli="& xueli &"&page=" & (page-1) & ">上一页</A></td>"
else
response.write "<td> 首页</td>"
response.write "<td> 上一页</td>"
End If
If Page = rs.PageCount Then
response.write "<td> 下一页</td>"
response.write "<td> 尾页</td>"
else
Response.Write "<td> <A HREF=searchpage.asp?didian="& didian &"&xueli="& xueli &"&page=" & (page+1) & ">下一页</A></td>"
Response.Write "<td> <A HREF=searchpage.asp?didian="& didian &"&xueli="& xueli &"&page=" & rs.PageCount & ">尾页</A></td>"
End If
response.write "<td> <font color='#FF0000'>" & page & "</font>/" & rs.pagecount & "</td>"
response.write "<td> " & rs.pagesize & "篇/页</td>"
response.write "<td> <input type='text' name='page' size=4 class='input' value="& page &"> <input type='submit' value='转到' name='ok'></td>"
response.write "</tr></table></form>"
else
response.write "<br>暂无该信息"
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</div>

</body>
</html>
yllaji 2003-10-18
  • 打赏
  • 举报
回复
<script LANGUAGE="VBScript">
function ch_page(n)
'翻页函数
messbox.action="user_message.asp"
messbox.page.value = n
messbox.submit
end function
</script>
<%
'翻页信息
pagenum=checkStr(trim(request("page")))
if pagenum="" then pagenum=1 end if
pagenum=cint(pagenum)
maxn=20'页最多显示行数=============================
set rs=server.createobject("adodb.recordset")
%>
<%
...................
..........

rs.open sql,conn,1,1
n=0
all_num=rs.recordcount
if not (rs.eof or rs.bof) then
rs.move ((pagenum-1)*maxn)'移动到指定位置
end if
while not (rs.eof or rs.bof or n>maxn-1)
n=n+1'数据显示增加1
%>

<%
rs.movenext
wend
rs.close
m=pagenum
m=(fix2(m))*10
%>
.................
.................
<table>
<tr>
<td colspan="6" bgcolor="#F0F8FF" align=right>
<a onclick="vbscript:ch_page(<%if (m-11)<1 then%>1<%else%><%=(m-11)%><%end if%>)" style="cursor:hand"><font face=webdings color=#000000>9</font> </a>
<%
maxp=fix(all_num/maxn)+1
n=1
while not((m+n)>maxp) and n<11
%>
[<a onclick="vbscript:ch_page(<%=(m+n)%>)" style="cursor:hand"><font color=black><b><%if ((m+n)=pagenum) then%><font color=red><%=(m+n)%></font><%else%><%=(m+n)%><%end if%></b></font></a>]
<%
n=n+1
wend
%>
<a onclick="vbscript:ch_page(<%if (m+11)>maxp then%><%=maxp%><%else%><%=(m+11)%><%end if%>)" style="cursor:hand"><font face=webdings color=#000000>:</font></a> 转到:<input type="text" name="page" size=3> <input type="submit" value="GO" name="B1" style="border-style: solid; border-color: #808080"> </td>
</tr>
</table>
deathcoolcat 2003-10-18
  • 打赏
  • 举报
回复
晕 根据什么条件分页 需求也不写清楚
uusong 2003-10-18
  • 打赏
  • 举报
回复
分页的东西最好还是自已写,因为这样你可以感触更深,这样说并不等于我不会,或我没有!

28,390

社区成员

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

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