ASP教程之ASP分页显现之乱盖

源代码保护方面其实现在考虑得没那么多了..NET也可以反编译.ASP写得复杂的话别人能看得懂的话.他也有能力自己写了.这方面担心的倒不太多.纵观现在网上可以下载的那些所谓BBS还有什么网站等等的源代码分页|显现第一次写这类贴子：)
团体以为功效不错，完整自创，尽无剽窃，如有相同，纯属偶合！
申明：
.pagesize界说每页显现纪录数
.recordcount纪录总数
.pagecount总页数
.absolutepage以后页码（页面）
index.asp未到场任何版面计划，故有点乱。功效俺也没测试，实际上是能够完成的（除俺敲错键）。……
index.asp示例程序以下：

<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%>
<%
optionexplicit强迫请求界说变量
onerrorresumenext

dimpage界说页码变量
page=Request.QueryString("page")猎取地点栏页码
ifIsNumeric(page)then页码为整数
page=cint(page)
ifpage<1thenpage=1
else
page=1
endif

dimstrSql界说sql语句
mtest表名
file1字段（这里例出一个字段，实践中通常为多个字段）
strSql="selectfile1frommtest"

dimobjConn,strConn,objRs
setobjConn=server.CreateObject("ADODB.connection")
strConn="DRIVER={MicrosoftAccessDriver(*.mdb)};DBQ="&server.MapPath("db.mdb")
objConn.OpenstrConn
setobjRs=server.CreateObject("ADODB.recordset")
objRs.openstrSql,objConn,1,1

ifobjRs.eoforobjRs.bofthen表内的纪录情形
以下一段为实时封闭、开释资本
objRs.close
setobjRs=nothing
objConn.close
setobjConn=nothing
response.write"未无数据"
else
objRs.pagesize=20一页显现的纪录数
dimintReCun,intPaCun
intReCun=objRs.Recordcount总纪录数
intPaCun=objRs.pagecount总页数
ifpage>intPaCunthenpage=intPaCun以后页码于总页数对照
objRs.absolutepage=page

response.write"共:"&intReCun&"页以后为:"&intPaCun&"页"
dimstrFile1,i
setstrFile1=objRs("file1")创建工具（这里例出一个字段，实践中通常为多个字段）
i=1
这里应当用工具
dowhilenotobjRs.eofandi<=20此时的20为是一页显现的纪录数objRs.pagesize
response.write(strFile1&"<br>")
i=i+1
objRs.movenext下移一名
loop
以下一段为实时封闭、开释资本
objRs.close
setobjRs=nothing
objConn.close
setobjConn=nothing
setstrFile1=nothing
%>

<table>
<formaction="index.asp"method="get"name="PostTopic">
<tr>
<tdheight="18"align="center"><ahref="index.asp">第一页</a>
<ahref="index.asp?page=<%=page-1%>">上一页</a>
<inputname="page"type="text"id="page"value="<%=page%>"size="6"maxlength="4">

<inputname=cmdConfromtype=submitid="cmdConfrom"value=提交>
<ahref="index.asp?page=<%=page+1%>">下一页</a><ahref="index.asp?page=<%=intPaCun%>">最初一页</a>
</td>
</tr>
</form>
</table>
<%
endif
%></p>asp,jsp,php是web开发的三大技术,asp简单易用且有microsoft做靠山,jsp功能强大是因为有java支持,php则开源跨平台.在国内,asp应用范围最广,jsp发展势头最猛,php则处于劣势.这可能与公司的支持以及技术的培训有关.