ASP编程：asp 分页代码

因为现在数据库都使用标准的SQL语言对数据库进行管理，所以如果是标准SQL语言，两者基本上都可以通用的。SQLServer还有更多的扩展，可以用存储过程，数据库大小无极限限制。分页利用asp作器材已对照多了，可是一向没有注重这个器材，明天就花了一点工夫写了一些，便利今后利用。
<%SUBListPageMenu(objRs,intrsPageSize)
DimrsTotal,rsPageSize,rsPageCount
IfNOTISObject(objRs)ThenExitSub:EndIf
IfNOTIsNumeric(rsPageSize)ThenExitSub:EndIF
IfobjRs.EofAndobjRs.BofThenEXITSUB:ENDIF

objRs.PageSize=intrsPageSize
rsTotal=objRs.RecordCount
rsPageCount=rs.PageCount

IfrsTotal<0AND(NOT(objRs.eofANDobjrs.Bof))Then
rsTotal=0
DOWHILENOTobjRs.Eof
rsTotal=rsTotal+1
objRs.MoveNext
LOOP
EndIf

intCurrentPage=Trim(Request.QueryString("page"))GetthevalueofintCurrentPage
IfintCurrentPage=""OR(NOTIsNumeric(intCurrentPage))Then
intCurrentPage=1
Endif

DimiStart,iStop
iStart=1:iStop=1
IfCint(intCurrentPage-3)>0Then
iStart=intCurrentPage-3
Else
iStart=1
Endif
iStop=iStart+7
IfiStop>rsPageCountThen
iStop=rsPageCount
EndIf
IfiStop-7<iStartANDiStart>0Then
iStart=iStop-7
EndIf

DimstrURL
strURL=Request.ServerVariables("script_name")
IfInstr(strURL,"?")>0Then
strURL=strURL&"&page="
Else
strURL=strURL&"?page="
EndIf

DimPreviousPage,NextPage
IfintCurrentPage-1>0then
PreviousPage=intCurrentPage-1
Else
PreviousPage=1
EndIf
IfintCurrentPage+1<rsPageCountThen
NextPage=intCurrentPage+1
Else
NextPage=rsPageCount
EndIf%>
<tablewidth="98%"border="0"cellspacing="0"cellpadding="0">
<tr>
<td><ahref="<%=strURL%>1"style="text-decoration:none"><fontface="Webdings">9</font></a></td>
<td><ahref="<%=strURL&PreviousPage%>"style="text-decoration:none"><fontface="Webdings">7</font></a></td>
<td>
<%Dimi
Fori=iStarttoiStopStep1%>
<td><%response.write("<ahref="&strURL&i&"style=text-decoration:none>"&i&"</a>")%></td>
<%Next%>
</td>
<td><ahref="<%=strURL&NextPage%>"style="text-decoration:none"><fontface="Webdings">8</font></a></td>
<td><ahref="<%=strURL&rsPageCount%>"style="text-decoration:none"><fontface="Webdings">:</font></a></td>
<td></td>
<td></td>
</tr>
</table>
<%ENDSUB%>
问题是他们究竟是喜欢他们是使用软件时,速度快还是速度慢好.(当然在3秒以内).无论是他们输入资料时,查找资料时,分析资料时.

Application:这个存储服务端的数据，如果不清除，会直到web应用程序结束才清除(例如重启站点)

你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。

Response:从字面上讲是“响应”，因此这个是服务端向客户端发送东西的，例如Response.Write

完全不知道到底自己学的是什么。最后，除了教程里面说的几个例子，还是什么都不会。

交流是必要的，不管是生活还是学习我们都要试着去交流，通过交流我们可以学到很多我们自己本身所没有的知识，可以分享别人的经验甚至经历。

封装性使得代码逻辑清晰，易于管理，并且应用到ASP.Net上就可以使业务逻辑和Html页面分离，这样无论页面原型如何改变，业务逻辑代码都不必做任何改动；继承性和多态性使得代码的可重用性大大提高。

它可通过内置的组件实现更强大的功能，如使用A-DO可以轻松地访问数据库。