仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 479|回复: 9
打印 上一主题 下一主题

[学习教程] ASP教程之ASP分页显现之乱盖

[复制链接]
简单生活 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 23:35:17 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
源代码保护方面其实现在考虑得没那么多了..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则处于劣势.这可能与公司的支持以及技术的培训有关.
飘灵儿 该用户已被删除
沙发
发表于 2015-1-20 10:04:52 | 只看该作者
掌握asp的特性而且一定要知道为什么。
只想知道 该用户已被删除
板凳
发表于 2015-1-20 22:55:25 | 只看该作者
Application:这个存储服务端的数据,如果不清除,会直到web应用程序结束才清除(例如重启站点)
精灵巫婆 该用户已被删除
地板
发表于 2015-1-30 07:26:12 | 只看该作者
学习是为了用的,是为了让你的程序产生价值,把握住这个原则会比较轻松点。除此之外,课外时间一定要多参加一些社会实践活动,来锻炼自己的能力。
愤怒的大鸟 该用户已被删除
5#
发表于 2015-2-6 08:12:13 | 只看该作者
不能只是将它停留在纸上谈兵的程度上。
山那边是海 该用户已被删除
6#
发表于 2015-2-15 18:47:13 | 只看该作者
兴趣爱好,那么你无须学编程,申请一个域名和空间,在网上下载一些免费开源的CMS系统,你不用改代码,只须熟悉它们的后台操作,像office一样简单方便,很快就能建一个站点,很多站长都是这样做的
透明 该用户已被删除
7#
发表于 2015-3-4 12:48:14 | 只看该作者
如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质,我们可以在实践中不断提升自己,不断充实自己。
谁可相欹 该用户已被删除
8#
发表于 2015-3-11 19:40:39 | 只看该作者
弱类型造成潜在的出错可能:尽管弱数据类型的编程语言使用起来回方便一些,但相对于它所造成的出错几率是远远得不偿失的。
柔情似水 该用户已被删除
9#
发表于 2015-3-19 10:23:06 | 只看该作者
ASP(ActiveServerPages)是Microsfot公司1996年11月推出的WEB应用程序开发技术,它既不是一种程序语言,也不是一种开发工具,而是一种技术框架,不须使用微软的产品就能编写它的代码,能产生和执行动态、交互式、高效率的站占服务器的应用程序。
再见西城 该用户已被删除
10#
发表于 2015-3-27 18:32:25 | 只看该作者
下载一个源代码,然后再下载一个VBScript帮助,在源代码中遇到不认识的函数或是其他什么程序,都可以查帮助进行解决,这样学习效率很高。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2024-5-14 16:09

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表