ASP分页函数代码,ASP代码库,德仔网

代码语言
代码分类
【ASP】 ASP分页函数
作者:Dezai.CN / 发布于2013/7/16/ 1850

	<%
	set rs=server.CreateObject("adodb.recordset")' //(建立recordset对象)
	sqlstr="select * from soft order by id asc"
	if request("act")="search" then
	sqlstr="select * from soft where name like '%"&request("name")&"%'"
	end if
	rs.cursorlocation=3'有时rs.pagecount和rs.recordcount会出现-1情况,此句可消除
	rs.open sqlstr,conn,1,1
	if rs.pagecount>0 then '判断记录集是否为空
	rs.PageSize=10'每页显示记录数目
	page=cint(request.QueryString ("page"))
	pagecount=rs.PageCount
	'处理不满一页的情况
	if page<=0 or page="" then
	page=1
	end if
	'处理当处在末页时，用户仍然点击下一页的情况。
	if page>=pagecount then
	page=pagecount
	end if
	'处理最后一页不满时的情况。
	if page=pagecount then
	x=rs.recordcount-rs.pagesize*(pagecount-1)
	else
	x=rs.pagesize
	end if
	rs.AbsolutePage=page
	for i=1 to x
	%>
	<tr align="center">
	<td><%=rs("IP")%></td>
	<td><%=rs("Engine")%></td>
	<td><%=rs("Keyword")%></td>
	<td><%=rs("URL")%></td>
	<td><%=rs("visittime")%></td>
	</tr>
	<%
	rs.movenext
	next
	Call ShowPages(Filename,page,pagecount,"")'调用导航条显示函数
	else'如果记录集为空
	response.Write "<tr align=center><td bgColor=#ffffff colspan=6>Sorry,目前还没有任何记录！</td></tr>"
	end if
	rs.close
	set rs=nothing

	'函数功能：页面导航条
	Function ShowPages(filename,currentpage,totalpages,parmstr)
	response.Write "<table width=300 height=10 border=0 cellpadding=0 cellspacing=0 align=right>"
	response.write "<tr align=right><td align=right>"
	if parmstr="" then
	response.Write "<a href=?page=1>| 首页 </a><a href=?page="&currentpage-1&"> 上一页 </a><a href=?page="&currentpage+1&"> 下一页 </a><a href=?page="&totalpages&"> 末页 </a> | 共"&totalpages&"页 第"&currentpage&"页 |"
	else
	response.Write "<a href=?"&parmstr&"&page=1>| 首页 </a><a href=?"&parmstr&"&page="&currentpage-1&"> 上一页 </a><a href=?"&parmstr&"&page="&currentpage+1&"> 下一页 </a><a href=?"&parmstr&"&page="&totalpages&"> 末页 </a> | 共"&totalpages&"页 第"&currentpage&"页 |"
	end if
	response.write "</tr></td>"
	response.Write "</table>"
	End Function

	'函数功能：防sql注入

	Function ChkStr(Str)
	If IsNull(Str) Or IsEmpty(Str) Then
	 Str = ""
	End If
	ChkStr = Replace(Str,";","")
	ChkStr = Replace(ChkStr,"'","")
	ChkStr = Replace(ChkStr,"&","")
	ChkStr = Replace(ChkStr," ","")
	ChkStr = Replace(ChkStr,"　","")
	ChkStr = Replace(ChkStr,"%20","")
	ChkStr = Replace(ChkStr,"--","")
	ChkStr = Replace(ChkStr,"==","")
	ChkStr = Replace(ChkStr,"<","")
	ChkStr = Replace(ChkStr,">","")
	ChkStr = Replace(ChkStr,"%","")
	End Function

	%>
试试其它关键字
　分页函数　
同语言下
可能有用的
Dezai.CN贡献的其它代码(4037)