百万级asp分页存储过程代码(ver2.0)

作者:天涯听雨 来源:编程中国 时间:2007-12-17 13:13:00 


出自: 编程中国  http://www.bc-cn.net
作者: 天涯听雨    E-mail:qcfy2005#163.com    
时间: 2007-10-25  编程论坛首发
声明: 尊重作者劳动,转载请保留本段文字

平台:Win2000+IIS5.0+Sql2000

附言:一个优秀的百万级数据asp分页存储过程源代码,版本ver2.0,升级上一次版本,上一次版为SQL版本,没有利用上存储过程。

以下代码为网页代码


<%
Response.Buffer = True
Dim SqlLocalName,SqlUsername,SqlPassword,SqlDatabaseName
Dim ConnStr,Conn
'''''''''''''''''''''''''''''''''SQL数据库 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
SqlLocalName   ="(local)"        '连接IP  [ 本地用 (local) 外地用IP ]
SqlUsername    ="sa"             '数据库用户名 
SqlPassword    ="XXXXXX"         '用户密码 
SqlDatabaseName="NewsTable"       '数据库名
ConnStr = "Provider=Sqloledb;User ID=" & SqlUsername & "; Password=" & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source=" & SqlLocalName & ";"
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
On Error Resume Next
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.open ConnStr
If Err Then
   err.Clear
   Set Conn = Nothing
   Response.Write "<div style='font-size:14px;color=#ff0000' align='center'>数据库连接出错,请检查数据库连接字串</div>"
   Response.End
End If
'本类进行实例化代码,不将所有可能性条件分页考虑进去。本类仅作参考
'--------------------------------------------------------------------------------------------
'PageNo-当前页;PageSizeX-分页大小;PageCountX-总页数;FieldCount-总记录数;StrWhere-查询条件
Dim PageNo,PageSizeX,PageCountX,FieldCount,StrWhere
'进行赋值
PageNo=trim(Request.Querystring("PageNo"))
PageSizeX=30                            '定义分页大小
if isnumeric(PageNo) or PageNo="" then  '如果没有Page值,进行初始化值
   PageNo=abs(PageNo)
   if PageNo=0 then PageNo=1
else
   PageNo=1
end if
StrWhere="(ClassCode=0101 and Hits>20)"  '注意,此处注意字符的长度
set recom = server.createobject("adodb.command")
recom.activeconnection = Conn
recom.commandtype = 4
recom.commandtext = "News_Class"
recom.Parameters.Append  recom.CreateParameter("@StrWhere",202,1,100,StrWhere)
recom.Parameters.Append  recom.CreateParameter("@PageSize",3,1,,PageSizeX)
recom.Parameters.Append  recom.CreateParameter("@PageIndex",3,1,,PageNo)
set rs = recom.execute ()
if rs.eof then
   set rs=nothing : set recom=nothing  : Conn.Close : set Conn=nothing
   response.write "<script LANGUAGE='Javascript'>alert('当前没有找到任何记录,请返回重新操作!');history.go(-1);</script>"
   response.end
end if
'显示数据 
do while not rs.eof
   response.write""&rs("Title")&"&nbsp;&nbsp;&nbsp;添加时间:"&rs("AddTime")&"<br/>"
rs.movenext
loop
'取得记录总数,计算页数
set rs = rs.NextRecordset
if rs("countx") > 0 then
   FieldCount=rs("countx")
else
   FieldCount=0
end if
if (FieldCount mod PageSizeX)>0 then
   PageCountX=((FieldCount - (FieldCount mod PageSizeX))/ PageSizeX)+1
else
   PageCountX= (FieldCount / PageSizeX)
end if
'进行关闭和释放相关资源
set rs=nothing : set recom=nothing  : Conn.Close : set Conn=nothing
'显示分页
if PageNo<=1 then
   Response.Write "<font color='#FF0000'>[首页] [上一页]</font>"
else
   Response.Write"[<a href='?PageNo=1' target='_self' title='首页'><font color='#FF0000'>首页</font></a>] "
   Response.Write"[<a href='?PageNo="&(PageNo-1)&"' target='_self' title='上一页'><font color='#FF0000'>上一页</font></a>] "
end if
if PageNo>=PageCountX then
    Response.Write "<font color='#FF0000'>[下一页] [尾页]</font>"
else
    Response.Write"[<a href='?PageNo="&(PageNo+1)&"'  target='_self' title='下一页'><font color='#FF0000'>下一页</font></a>] "
    Response.Write"[<a href='?PageNo="&PageCountX&"' target='_self' title='尾页'><font color='#FF0000'>尾页</font></a>]"
end if
Response.Write"[页次 第<font color=red>"&PageNo&"</font>页/共<font color=red>" & PageCountX &"</font>页]"
Response.Write" [共<font color=red>"&FieldCount&"</font>条 <font color=red>"& PageSizeX & "</font>条/页]"
Response.Write"转到" & "<input id=zhuanpage name=zhuanpage size=2 value="&PageNo&">" & "页<input type=submit value=""Go"" onclick=""gotoPage()"">"
Response.Write"</td></tr></table>"
Response.Write"<script>function gotoPage(){var pg=document.getElementById('zhuanpage').value;if(isNaN(pg)||pg>"&PageCountX&"||pg<0){window.alert('请正确输入页码,只能为正整数!且不能大于"&PageCountX&"');return false;}else{window.location.href='?PageNo='+document.getElementById('zhuanpage').value+'';return true;}}</script>"
%>


以下代码为存储过程代码


CREATE procedure  News_Class
--资讯新闻百万级分页
(
@StrWhere     varchar(100),
@PageSize     int,        
@PageIndex    int       
)
AS
declare  @strSQL        varchar(2000)     -- 主语句
declare  @strCountSQL   varchar(2000)     -- 总记录主语句
declare  @strTmp        varchar(1000)     -- 临时变量
Set @strTmp =" Select top " + str(@PageSize) + " Title,AddTime from Tb_News "  --此处注意,需几个字段读几个字段
if @StrWhere<>'' 
   Begin
   Set @strSQL=@strTmp + " where ID < (select min(ID) from (select top " + str((@PageIndex-1)*@PageSize)+" ID from Tb_News Where "+@StrWhere+"  order by ID desc)  as tblTmp ) and "+@StrWhere+" order by ID desc"
   set @strCountSQL="select count(ID) as countx from Tb_News Where "+@StrWhere+" "
   End
else
   Begin
   Set @strSQL=@strTmp + " where ID < (select min(ID) from (select top " + str((@PageIndex-1)*@PageSize)+" ID from Tb_News order by ID desc)  as tblTmp ) order by ID desc"
   set @strCountSQL="select count(ID) as countx from Tb_News "
   End
if @PageIndex = 1
   if @StrWhere<>''
      Begin
      Set @strSQL=@strTmp +" Where "+@StrWhere+" order by ID desc"
      
      End
   else
      Begin
      Set @strSQL=@strTmp +" order by ID desc"
   
      End
exec (@strSQL)
exec (@strCountSQL)
GO


标签:分页,存储过程,asp
0
投稿

猜你喜欢

  • 火遍全网的Python二次元特效轻松掌握

    2022-01-29 22:01:32
  • Go语言Zap库Logger的定制化和封装使用详解

    2024-04-25 15:18:52
  • python设计模式之装饰器模式

    2023-04-28 07:55:40
  • 详解python itertools功能

    2022-12-05 23:07:31
  • PHP实现图片批量打包下载功能

    2024-05-11 09:47:21
  • python list数据等间隔抽取并新建list存储的例子

    2023-12-30 13:10:04
  • Python简单实现阿拉伯数字和罗马数字的互相转换功能示例

    2021-08-29 08:52:57
  • python字符串操作的15种方法汇总

    2023-10-27 00:40:34
  • asp DateDiff实现文字在特定时间后消失

    2011-03-11 11:11:00
  • Golang Socket Server自定义协议的简单实现方案

    2024-04-25 13:17:40
  • python调用fortran模块

    2023-12-22 23:36:40
  • Python实现MySQL操作的方法小结【安装,连接,增删改查等】

    2024-01-16 07:02:33
  • 对Python发送带header的http请求方法详解

    2022-02-06 11:44:59
  • Python实现的三层BP神经网络算法示例

    2021-05-16 19:21:05
  • python在windows下创建隐藏窗口子进程的方法

    2021-05-19 14:44:51
  • Facebook的特别之处是什么?

    2008-08-04 12:57:00
  • Python面向对象之继承原理与用法案例分析

    2021-06-28 02:07:53
  • 将imagenet2012数据为tensorflow的tfrecords格式并跑验证的详细过程

    2024-01-01 12:04:35
  • python scipy 稀疏矩阵的使用说明

    2022-06-22 16:20:48
  • MySQL基于DOS命令行登录操作实例(图文说明) <font color=red>原创</font>

    2024-01-16 13:54:21
  • asp之家 网络编程 m.aspxhome.com