ASP教程之ASP使用典范-分页_代码部分

ASP是依赖组件的，能访问数据库的组件好多就有好多种,再有就是你微软的工具可是什么都要收钱的啊！分页<%

dimConn,RS,sqlStr,PageSize,RowCount,TotalPages,PageNo,Position,PageBegin,PageEnd

setConn=Server.CreateObject("ADODB.Connection")

setRS=Server.CreateObject("ADODB.RecordSet")

Conn.open"provider=sqloledb;datasource=127.0.0.1;userid=sa;password=;initialcatalog=zjydata"

sqlStr="select*fromItemsorderbyiID"

RS.opensqlStr,Conn,1,1

PageSize=10

IfRS.RecordCount=0then

%>

<TABLEWIDTH=100%BORDER=0CELLPADDING=1CELLSPACING=1style=font-size:9pt>

<TRbgcolor=#003366height=20px>

<TDalign=center><fontcolor=#FFFFFF>商品代码</font></TD>

<TDalign=center><fontcolor=#FFFFFF>商品称号</font></TD>

<TDalign=center><fontcolor=#FFFFFF>型号规格</font></TD>

<TDalign=center><fontcolor=#FFFFFF>计量单元</font></TD>

<TDalign=center><fontcolor=#FFFFFF>参考进价</font></TD>

<TDalign=center><fontcolor=#FFFFFF>参考售价</font></TD>

<TDalign=center><fontcolor=#FFFFFF>备注</font>

</TR>

<TRheight=20px>

<TDalign=center>没有任何商品信息!</TD>

<TR>

</TABLE>

<%

else

RS.PageSize=Cint(PageSize)

TotalPages=RS.PageCount

PageNo=Request.QueryString("PageNo")

ifPageNo=""orPageNo<1Then

PageNo=1

endif

RS.AbsolutePage=PageNo

Position=RS.PageSize*PageNo

PageBegin=Position-RS.PageSize+1

ifPosition<RS.RecordCountthen

PageEnd=Position

else

PageEnd=RS.RecordCount

endif

%>

<TABLEWIDTH=100%BORDER=0CELLPADDING=1CELLSPACING=1style=font-size:9pt>

<TR>

<TDwidth=20%>

<%

Response.Write"页："&PageNo&"/"&TotalPages&"|纪录："&PageBegin&"-"&PageEnd&"/"&RS.RecordCount

%>

</TD>

<TDalign=right>

<%

ifPageNo>1Then

response.write"<ahref=list.asp?PageNo=1>首页</a><ahref=list.asp?PageNo="&(PageNo-1)&">上页</a>"

endif

ifTotalPages>1andcint(PageNo)cint(TotalPages)then

response.write"<ahref=list.asp?PageNo="&(PageNo+1)&">下页</a><ahref=list.asp?PageNo="&TotalPages&">末页</a>"

endif

%>

</TD>

</TR>

<TRbgcolor=#003366height=20px>

<TDalign=centerwidth=20%><fontcolor=#FFFFFF>商品代码</font></TD>

<TDalign=centerwidth=30%><fontcolor=#FFFFFF>商品称号</font></TD>

<TDalign=centerwidth=8%><fontcolor=#FFFFFF>型号规格</font></TD>

<TDalign=centerwidth=8%><fontcolor=#FFFFFF>计量单元</font></TD>

</p>源代码保护方面其实现在考虑得没那么多了..NET也可以反编译.ASP写得复杂的话别人能看得懂的话.他也有能力自己写了.这方面担心的倒不太多.纵观现在网上可以下载的那些所谓BBS还有什么网站等等的源代码

虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家，只是从一个例子告诉你怎么用。不会深入讨论，更不会将没有出现在例子里的方法都一一列举出来。

ASP.Net和ASP的最大区别在于编程思维的转换，而不仅仅在于功能的增强。ASP使用VBS/JS这样的脚本语言混合html来编程，而那些脚本语言属于弱类型、面向结构的编程语言，而非面向对象，这就明显产生以下几个问题：

不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍

最近在学asp，不要问我为什么不直接学.net，因为公司网站是asp做的所以有这个需要，卖了本书asp入门到精通，对里面的六大内置对象老是记不住，还有很多属性和方法看的头晕。

Session:这个存储跟客户端会话过程的数据，默认20分钟失效

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

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

虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家，只是从一个例子告诉你怎么用。不会深入讨论，更不会将没有出现在例子里的方法都一一列举出来。