存储过程分页实例(含有分页代码asp)
'//分页存储过程
set ANSI_NULLS OFF
set QUOTED_IDENTIFIER"100%"" border=""0"" cellspacing=""1"" cellpadding=""0"">"
str_html=str_html & "<form name=""pagelistform"" action="""&pagename&""" method=""post"" >"
str_html=str_html & "<tr>"
str_html=str_html & "<td class=""b-12"">"
if page>1 then
str_html=str_html & "<a href="""&pagename&"&page=1"">首页</a> "
str_html=str_html & "<a href="""&pagename&"&page="&page-1&"""></a> "
str_html=str_html & "<a href="""&pagename&"&page="&spagecount&""">末页</a> "
else
str_html=str_html & "下一页 末页 "
end if
str_html=str_html & "共"&sRecordCount&"条记录，分"&spagecount&"页显示，当前第"&page&"页 "
str_html=str_html & "转到第<input name=page type=text class=""input1"" value="""&page&""" size=4>页"
if cint(page)=1 and cint(page)=cint(spagecount) then
str_html=str_html & "<input type=submit name=submit value=GO disabled=true>"
else
str_html=str_html & "<input type=submit name=submit value=GO>"
end if
str_html=str_html & "</td>"
str_html=str_html & "</tr>"
str_html=str_html & "</form>"
str_html=str_html & "</table>"
PageList= str_html
end function
Public Function NewsPageList(spagesize,page,strField,stablename,orderName,strwhere,pagename,connstr)
'新闻列表函数
'spagesize,每页显示新闻数量
'page,需显示页码
'strField，需显示字段
'stablename,数据表名称
'ordername，排序字段
'strwhere,查询条件
'pagename,当前页面名称
Dim cmdTemp,sRecordCount,rs
'创建数据库连接
Set cmdTemp=server.CreateObject("ADODB.Command")
cmdTemp.ActiveConnection =connstr
cmdTemp.CommandType=4
cmdTemp.CommandText ="page"
'创建输出参数
cmdTemp.Parameters.Append cmdTemp.CreateParameter("@RecordCount",3,2,4)
cmdTemp.Parameters.append cmdTemp.CreateParameter("@QueryStr",200,1,40,stablename)
cmdTemp.Parameters.append cmdTemp.CreateParameter("@PageSize",3,1,4,spagesize)
cmdTemp.Parameters.append cmdTemp.CreateParameter("@PageCurrent",3,1,4,page)
cmdTemp.Parameters.append cmdTemp.CreateParameter("@FdShow",200,1,400,strField)
cmdTemp.Parameters.append cmdTemp.CreateParameter("@IdentityStr",200,1,40,orderName)
cmdTemp.Parameters.append cmdTemp.CreateParameter("@WhereStr",200,1,400,strwhere)
set rs=cmdTemp.Execute
spagecount=0
if not rs.eof then
do while not rs.eof
str_titler=rs("title")
'格式化日期
if idate=1 then
str_date="["&formatdatetime(rs("AddDate"))&"]"
else
str_date=""
end if
str_titler="·<a href=""News_show.asp?Newsid="&rs("articleid")&""" target=""_blank"" class=""b12-h"">"&str_titler&"</a>"&str_date&"<br>"
str_html=str_html & "<table width=""100%"" height=""22"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">"
str_html=str_html & "<tr> "
str_html=str_html & "<td class=""b-12""><span class=""b12-h"">"
str_html=str_html & str_titler & "</span></td>"
str_html=str_html & " </tr>"
str_html=str_html & " </table>"
str_html=str_html & "<table width=""608"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"" background=""../images/xian.jpg"">"
str_html=str_html & " <tr> "
str_html=str_html & " <td height=""1""> </tr>"
str_html=str_html & "</table>"
rs.movenext
loop
rs.close
set rs=nothing
sRecordCount=cmdTemp.Parameters("@RecordCount")
spagecount=formatnumber((clng(sRecordCount)/clng(spagesize))+0.5,0)
str_html=str_html & "<table width=""100%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">"
str_html=str_html & "<tr> "
str_html=str_html & "<td class=""b-12"">" & PageList(pagename,page,spagecount,sRecordCount)&" </td>"
str_html=str_html & "</tr>"
str_html=str_html & "</table>"
set cmdTemp=nothing
end if
NewsPageList = str_html
end Function
%>
- 最新文章
- 存储过程生成随机数[01-09]
- 一个简单触发器，实现计票功能[01-09]
- PowerDesigner设计数据库[01-09]
- Java连接各种数据库的实例[01-09]
- 一个简单的酒店系统的数据库设计[01-09]
- 绝对主力 XML数据库[01-09]
- 相关文章
- ASP-PHP-JSP-NET-CF[01-08]
- 在ASP程序中访问Access数据库[01-08]
- 讲解MySQL数据库与ASP.NET如何强强联手[01-07]
- ASP实现access随机显示不重复记录解决方案[01-07]
- 用DELPHI为ASP开发文件上载组件[01-04]
- 用Delphi开发报表打印的ASP组件[01-04]
