仓酷云

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

[学习教程] ASP网页设计在asp中经由过程getrows完成数据库纪录分页...

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

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

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

x
asp对于服务器的要求较高,一般的服务器如果访问量一大就垮了,不得不重启。分页|数据|数据库<%@Language=VBSCRIPT%>
<%OptionExplicit%>
<%
rem在asp中经由过程getrows完成数据库纪录分页的一段代码
DimiStart,iOffset
iStart=Request("Start")
iOffset=Request("Offset")

ifNotIsNumeric(iStart)orLen(iStart)=0then
iStart=0
else
iStart=CInt(iStart)
endif

ifNotIsNumeric(iOffset)orLen(iOffset)=0then
iOffset=30
else
iOffset=Cint(iOffset)
endif

Response.Write"Viewing"&iOffset&"recordsstartingatrecord"&iStart&"<BR>"

DimobjConn,objRS
SetobjConn=Server.CreateObject("ADODB.Connection")
objConn.Open"DSN=MP3"
dimconnstr
dimdb
db="csnjimageman.mdb"
connstr="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&Server.MapPath(""&db&"")
objconn.Openconnstr

SetobjRS=Server.CreateObject("ADODB.Recordset")
objRS.Open"SELECT*FROMimageinfo",objConn

DimaResults
aResults=objRS.GetRows

objRS.Close
SetobjRS=Nothing

objConn.Close
SetobjConn=Nothing


DimiRows,iCols,iRowLoop,iColLoop,iStop
iRows=UBound(aResults,2)
iCols=UBound(aResults,1)

IfiRows>(iOffset+iStart)Then
iStop=iOffset+iStart-1
Else
iStop=iRows
EndIf

ForiRowLoop=iStarttoiStop
ForiColLoop=0toiCols
Response.WriteaResults(iColLoop,iRowLoop)&""
Next
Response.Write"<BR>"
Next

Response.Write"<P>"
ifiStart>0then
ShowPrevlink
Response.Write"<AHREF=""GetRows.asp?Start="&iStart-iOffset&_
"&Offset="&iOffset&""">Previous"&iOffset&"</A>"
endif

ifiStop<iRowsthen
ShowNextlink
Response.Write"<AHREF=""GetRows.asp?Start="&iStart+iOffset&_
"&Offset="&iOffset&""">Next"&iOffset&"</A>"
endif
%>

</p>ASP由于使用了COM组件所以它会变的十分强大,但是这样的强大由于WindowsNT系统最初的设计问题而会引发大量的安全问题。只要在这样的组件或是操作中一不注意,哪么外部攻击就可以取得相当高的权限而导致网站瘫痪或者数据丢失;
金色的骷髅 该用户已被删除
沙发
发表于 2015-1-20 08:55:45 | 只看该作者
掌握asp的特性而且一定要知道为什么。
飘灵儿 该用户已被删除
板凳
 楼主| 发表于 2015-1-20 08:55:45 | 只看该作者
没有坚实的理论做基础,那么我们连踏入社会第一步的资本都没有,特别对于计算机专业的学生学好专业知识是置关重要的。在这里我侧重讲一下如何学习ASP,从平时的学习过程中。
透明 该用户已被删除
地板
发表于 2015-1-25 14:01:02 | 只看该作者
弱类型造成潜在的出错可能:尽管弱数据类型的编程语言使用起来回方便一些,但相对于它所造成的出错几率是远远得不偿失的。
柔情似水 该用户已被删除
5#
发表于 2015-2-1 23:01:36 | 只看该作者
没有坚实的理论做基础,那么我们连踏入社会第一步的资本都没有,特别对于计算机专业的学生学好专业知识是置关重要的。在这里我侧重讲一下如何学习ASP,从平时的学习过程中。
小女巫 该用户已被删除
6#
发表于 2015-2-7 16:00:27 | 只看该作者
那么,ASP.Net有哪些改进呢?
admin 该用户已被删除
7#
发表于 2015-2-22 13:18:22 | 只看该作者
在平时的学习过程中要注意现学现用,注重运用,在掌握了一定的基础知识后,我们可以尝试做一些网页,也许在开始的时候我们可能会遇到很多问题,比如说如何很好的构建基本框架。
飘飘悠悠 该用户已被删除
8#
发表于 2015-3-7 00:31:45 | 只看该作者
Request:从字面上讲就是“请求”,因此这个是处理客户端提交的东东的,例如Resuest.Form,Request.QueryString,或者干脆Request("变量名")
小魔女 该用户已被删除
9#
发表于 2015-3-13 23:08:19 | 只看该作者
交流是必要的,不管是生活还是学习我们都要试着去交流,通过交流我们可以学到很多我们自己本身所没有的知识,可以分享别人的经验甚至经历。
再现理想 该用户已被删除
10#
发表于 2015-3-20 21:18:49 | 只看该作者
那么,ASP.Net有哪些改进呢?
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2025-1-8 05:06

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

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