一个asp数组的应用
Google谷歌 拼音输入法
2007/03/09 11:44 | by
这里有两个函数一个放在记录前,一个放在记录尾
这个是记录前的函数
这个是记录后显示分页的函数
实际应用
作者：Else 's Blog
地址：http://www.aixq.com/post/641/
版权所有。转载时必须链接形式注明作者和原始出处及本声明！ 在
中查看更多“asp的分页函数”相关内容
在
中查看更多“asp的分页函数”相关内容
在
中查看更多“asp的分页函数”相关内容
在
中查看更多“asp的分页函数”相关内容
在
中查看更多“asp的分页函数”相关内容
在
中查看更多“asp的分页函数”相关内容
最后编辑： Else 编辑于2007/03/09 11:49
这个是记录前的函数
function SplicitPage_Top(byref nowpage,byval n,byref rs)
nowpage=Request("page")
if nowpage="" then nowpage=1
nowpage=int(nowpage)
if nowpage<1 then nowpage=1
rs.pagesize=n
if nowpage>rs.pagecount then nowpage=rs.pagecount
if rs.recordcount<>0 then rs.absolutepage=nowpage
end function
nowpage=Request("page")
if nowpage="" then nowpage=1
nowpage=int(nowpage)
if nowpage<1 then nowpage=1
rs.pagesize=n
if nowpage>rs.pagecount then nowpage=rs.pagecount
if rs.recordcount<>0 then rs.absolutepage=nowpage
end function
这个是记录后显示分页的函数
function splitpage_end(byval nowpath,byref rs)
if rs.bof then
firstpage=0
else
firstpage=page
end if
if rs.pagecount=0 then
lastpage=0
else
lastpage=rs.pagecount
end if
nowpagenext=nowpage+1
nowpageprevious=nowpage-1
if nowpage=1 or rs.recordcount=0 then
Response.Write("<font color='#808080'>首页 上一页</font> ")
else
response.write "<a href='" &nowpath &"page=1'>首页</a> <a href='" &nowpath &"page=" &nowpageprevious & "'>上一页</a> "
end if
if nowpage=rs.pagecount then
Response.Write("<font color='#808080'> 下一页 末页 </font>")
else
response.write " <a href='" &nowpath &"page="&nowpagenext&"'>下一页</a> <a href='" &nowpath &"page=" &rs.pagecount& "'>末页</a> "
end if
response.write "当前<font color='#A20000'>" &nowpage &"/" &rs.pagecount &"</font>页 <font color='#A20000'>" &rs.RecordCount &"</font>条记录 "
response.write "转到:<select name='nowpage' style='color:#A20000' onchange=" &chr(34) &"window.open(this.options[this.selectedIndex].value,'_self')"&chr(34) &">"
for i=1 to rs.pagecount
response.write "<option value='" &nowpath &"page=" &i &"'"
if nowpage=i then response.write " selected"
response.write ">" &i &"页</option>"
next
response.write "</select>"
end function
if rs.bof then
firstpage=0
else
firstpage=page
end if
if rs.pagecount=0 then
lastpage=0
else
lastpage=rs.pagecount
end if
nowpagenext=nowpage+1
nowpageprevious=nowpage-1
if nowpage=1 or rs.recordcount=0 then
Response.Write("<font color='#808080'>首页 上一页</font> ")
else
response.write "<a href='" &nowpath &"page=1'>首页</a> <a href='" &nowpath &"page=" &nowpageprevious & "'>上一页</a> "
end if
if nowpage=rs.pagecount then
Response.Write("<font color='#808080'> 下一页 末页 </font>")
else
response.write " <a href='" &nowpath &"page="&nowpagenext&"'>下一页</a> <a href='" &nowpath &"page=" &rs.pagecount& "'>末页</a> "
end if
response.write "当前<font color='#A20000'>" &nowpage &"/" &rs.pagecount &"</font>页 <font color='#A20000'>" &rs.RecordCount &"</font>条记录 "
response.write "转到:<select name='nowpage' style='color:#A20000' onchange=" &chr(34) &"window.open(this.options[this.selectedIndex].value,'_self')"&chr(34) &">"
for i=1 to rs.pagecount
response.write "<option value='" &nowpath &"page=" &i &"'"
if nowpage=i then response.write " selected"
response.write ">" &i &"页</option>"
next
response.write "</select>"
end function
实际应用
引用
<%
sql="select * from sitenews order by uptop=true asc,id desc"
set rs=server.CreateObject("adodb.recordset")
rs.Open sql,conn,1,1
SplicitPage_Top nowpage,30,RS
while not rs.eof
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="middle" height="26" background="images/ad_bg1.gif"><img src="images/article_common.gif" width="9" height="15"> 〖<%= rs("newstype") %>〗
<a href="show.asp?id=<%= rs("id") %>" target="_blank"><%= rs("title") %></a>
<%if rs("uptop")=true then %><font color=red>推荐</font><% end if %></td>
</tr>
</table>
<%
rs.movenext
wend
%> <div align="center"><%splitpage_end "new.asp?",rs %></div></div>
<%
rs.close
set rs=Nothing
%></td>
sql="select * from sitenews order by uptop=true asc,id desc"
set rs=server.CreateObject("adodb.recordset")
rs.Open sql,conn,1,1
SplicitPage_Top nowpage,30,RS
while not rs.eof
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="middle" height="26" background="images/ad_bg1.gif"><img src="images/article_common.gif" width="9" height="15"> 〖<%= rs("newstype") %>〗
<a href="show.asp?id=<%= rs("id") %>" target="_blank"><%= rs("title") %></a>
<%if rs("uptop")=true then %><font color=red>推荐</font><% end if %></td>
</tr>
</table>
<%
rs.movenext
wend
%> <div align="center"><%splitpage_end "new.asp?",rs %></div></div>
<%
rs.close
set rs=Nothing
%></td>
作者：Else 's Blog
地址：http://www.aixq.com/post/641/
版权所有。转载时必须链接形式注明作者和原始出处及本声明！
中查看更多“asp的分页函数”相关内容中查看更多“asp的分页函数”相关内容中查看更多“asp的分页函数”相关内容中查看更多“asp的分页函数”相关内容中查看更多“asp的分页函数”相关内容中查看更多“asp的分页函数”相关内容最后编辑： Else 编辑于2007/03/09 11:49
