" id="b1img" alt="米课”N+1“思维建站-非官方免费技术支持,Wordpress/Zencart/Opencart建站、SEO" title="米课”N+1“思维建站-非官方免费技术支持,Wordpress/Zencart/Opencart建站、SEO">
  • " alt="米课”N+1“思维建站-非官方免费技术支持,Wordpress/Zencart/Opencart建站、SEO" title="米课”N+1“思维建站-非官方免费技术支持,Wordpress/Zencart/Opencart建站、SEO" />
  • " alt="Windows/Linux服务器运维技术支持 环境搭建、应用发布、服务器管理、虚拟化、云计算" title="Windows/Linux服务器运维技术支持 环境搭建、应用发布、服务器管理、虚拟化、云计算" />
  • " alt="高校/小型企业网络运维与建设免费技术支持,网络规划、网络优化、故障排除、网络管理" title="高校/小型企业网络运维与建设免费技术支持,网络规划、网络优化、故障排除、网络管理" />

ASP分页程序

系统运维2005-11-23 itlogger阅读(500) 评论(-1)
文件说明:
1、show.asp
<!–#include file=conn.asp–>
<%
if request(“page”)=”” then
page=1
else
page=request(“page”)
end if
%>
<%
sql=”select * from user2″
set rec=server.CreateObject(“adodb.recordset”)
rec.open sql,conn,1,3
‘设置每页显示的条数
rec.PageSize = 2
count=rec.pagecount
if not (rec.bof or rec.bof )then
rec.AbsolutePage=page
pgc=0
while not ((rec.eof or rec.bof) or (rec.PageSize=pgc))
pgc=pgc+1
response.write rec(“name”)
response.write “<br>”
rec.movenext
wend
%>
<table width=”100%” border=”0″ cellspacing=”0″ cellpadding=”0″>
<tr>
<td width=”18%”><div align=”center”> </div></td>
<td width=”82%”> <div align=”center”>
<!–#include file=”page.asp”–>
</div></td>
</table>
<%end if%>
2、conn.asp

<%
db=”access001.mdb”
Set conn = Server.CreateObject(“ADODB.Connection”)
connstr=”Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & Server.MapPath(“”&db&””)
conn.Open connstr
%>
3、page.asp

<%
‘Response.Write “<tr>”
Response.Write “<form method=””GET”” action=”””&htm&”show.asp?show=33″” id=form1 name=form1>”
Response.Write “<br>记录总数:”&rec.recordcount&” ”
‘Response.Write “<td align=right colspan=3 bgcolor=#99cccc>”
if page <>1 then
Response.Write “<a href=show.asp?page=1>首頁</a>” & vbCrlf
end if
tmppage = page – 1
if tmppage <= 0 then
tmppage = 1
else
Response.Write”<a href=show.asp?page=”&tmppage&”>上一頁</a>”& vbCrlf
end if
tmppage = page + 1
if tmppage > rec.PageCount then
tmppage = page
else
Response.Write “<a href=show.asp?page=”&tmppage&”>下一頁</a>”&vbCrlf
end if
if Cstr(page) <> Cstr(rec.PageCount) then
Response.Write “<a href=show.asp?page=”&rec.PageCount&”>尾頁</a>”
end if
‘Response.Write “<font color:#ccffcc”>第” & page & “頁</font>”
‘Response.Write “<font color:#ccffcc> 总共有” & rec.PageCount & ” 頁</font>”
Response.Write ” 跳转到:第 <input type=””text”” name=””page”” value=””1″” style=””BORDER-BOTTOM: #000000 1px solid; BORDER-LEFT: #000000 1px solid; BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid; WIDTH: 20px; TEXT-ALIGN: center;height: 18px”” maxlength=””3″”>”
Response.Write ” 页 <input type=””submit”” name=””htm”” value=””GO”” src=””../images/goto.gif”” style=””BACKGROUND-COLOR: #FFE8D0; BORDER-BOTTOM: #000000 1px solid; BORDER-LEFT: #000000 1px solid; BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid;WIDTH: 17px;height: 18px””>”
Response.Write ” 页数:”&page&”/”&rec.pagecount&”页”
‘ Response.Write “</tr>”
%>
<input type=”hidden” name=”Show” value=”<%=session(“showid”)%>” style=””>
<input type=”hidden” name=”menu1″ value=”<%=session(“menu1″)%>” style=””>
<input type=”hidden” name=”menu2″ value=”<%=session(“menu2″)%>” style=””>
应用说明:把page.asp中的show.asp替换成要应用分页显示的文件名
转载请注明 :IT樵客
文章地址:http://www.itlogger.com/system/243.html
标签:
相关文章

发表评论

电子邮件地址不会被公开。 必填项已用*标注