优秀的百万级数据分页存储过程代码


<%
'平台:Win2000+IIS5.0+Sql2000
'附言:升级上一次版本,上一次版为SQL版本,没有利用上存储过程
'上一版本 :[原创]优秀的百万级数据分页代码——(忙乎了半天)(http://bbs.bc-cn.net/dispbbs.asp?BoardID=10&ID=175543)

'----------------------------------------以下代码为网页代码

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>" %>

相关内容推荐

实现多条件模糊查询SQL语句

很多网友问到如何写模糊查询语句和多条件查询,这里我整理了一下,假设以姓名、性别、电话号...作为数据库中的字段名。 通常写一个简单的模糊查询的SQL语句格式可以如下例: sq

获得当前页面地址和来路地址

当前页面地址: html="http://" html=htmlRequest.ServerVariables("Server_Name") html=htmlRequest.ServerVariables("URL") ifrequest.ServerVariables("QUERY_STRING")""then html=html"?"Request.ServerVariables("QUERY_STRING") endif session("

html中用js调用ASP文件,实现静态页面动态显示

html中用js调用ASP文件,实现静态页面动态显示,比如HMTL文章的动态新闻评论等 ---简单版[调用代码,把他放哪儿,就在哪儿显示]-------- script language="javascript" src="asdf.asp"/script-----asdf.asp文

用ASP生成Excel文件

用asp生成Excel文件不是像我认为的那么容易。我想这小段代码应该能帮助大家找到输出数据到csv和xls的方法。 %@LANGUAGE="VBSCRIPT" CODEPAGE="936"%meta http-equiv="Content-Type" content="text/html; charset=

怎样用ASP压缩文件

多数的时候我们需要压缩文件,保存到特定的位置,或者你可以使用它实现所有你想要的效果。 我们需要服务器支持WScript.Shell-多数的站长都不会允许这样的。 这里你可以获取下载链接

返回
顶部