ASP网站制作之ASP通用分页类源码

因为ASP脚本语言非常简单，因此其代码也简单易懂，结合HTML代码，可快速地完成网站的应用程序。还无法完全实现一些企业级的功能：完全的集群、负载均横。分页<%
===================================================================
XDOWNPAGEASP版本
版本1.00
Codebyzykj2000
Email:zykj_2000@163.net
BBS:http://bbs.513soft.net
本程序能够无偿使用、修正，但愿我的程序能为您的事情带来便利
但请保存以上请息

程序特性
本程序次要是对数据分页的部分举行了封装，而数据显现部分完整由用户自界说，
撑持URL多个参数

利用申明
程序参数申明
PapgeSize界说分页每页的纪录数
GetRS前往经由分页的Recordset此属性只读
GetConn失掉数据库毗连
GetSQL失掉查询语句
程序办法申明
ShowPage显现分页导航条,独一的公用办法

===================================================================

ConstBtn_First="<fontface=""webdings"">9</font>"界说第一页按钮显现款式
ConstBtn_Prev="<fontface=""webdings"">3</font>"界说前一页按钮显现款式
ConstBtn_Next="<fontface=""webdings"">4</font>"界说下一页按钮显现款式
ConstBtn_Last="<fontface=""webdings"">:</font>"界说最初一页按钮显现款式
ConstXD_Align="Center"界说分页信息对齐体例
ConstXD_Width="100%"界说分页信息框巨细

ClassXdownpage
PrivateXD_PageCount,XD_Conn,XD_Rs,XD_SQL,XD_PageSize,Str_errors,int_curpage,str_URL,int_totalPage,int_totalRecord,XD_sURL


=================================================================
PageSize属性
设置每页的分页巨细
=================================================================
PublicPropertyLetPageSize(int_PageSize)
IfIsNumeric(Int_Pagesize)Then
XD_PageSize=CLng(int_PageSize)
Else
str_error=str_error&"PageSize的参数不准确"
ShowError()
EndIf
EndProperty
PublicPropertyGetPageSize
IfXD_PageSize=""or(not(IsNumeric(XD_PageSize)))Then
PageSize=10
Else
PageSize=XD_PageSize
EndIf
EndProperty

=================================================================
GetRS属性
前往分页后的纪录集
=================================================================
PublicPropertyGetGetRs()
SetXD_Rs=Server.createobject("adodb.recordset")
XD_Rs.PageSize=PageSize
XD_Rs.OpenXD_SQL,XD_Conn,1,1
Ifnot(XD_Rs.eofandXD_RS.BOF)Then
Ifint_curpage>XD_RS.PageCountThen
int_curpage=XD_RS.PageCount
EndIf
XD_Rs.AbsolutePage=int_curpage
EndIf
SetGetRs=XD_RS
EndProperty

================================================================
GetConn失掉数据库毗连

================================================================
PublicPropertyLetGetConn(obj_Conn)
SetXD_Conn=obj_Conn
EndProperty

================================================================
GetSQL失掉查询语句

================================================================
PublicPropertyLetGetSQL(str_sql)
XD_SQL=str_sql
EndProperty



==================================================================
Class_Initialize类的初始化
初始化以后页的值

==================================================================
PrivateSubClass_Initialize
========================
设定一些参数的a认值
========================
XD_PageSize=10设定分页的默许值为10
========================
猎取以后面的值
========================
Ifrequest("page")=""Then
int_curpage=1
ElseIfnot(IsNumeric(request("page")))Then
int_curpage=1
ElseIfCInt(Trim(request("page")))<1Then
int_curpage=1
Else
Int_curpage=CInt(Trim(request("page")))
EndIf

EndSub

====================================================================
ShowPage创立分页导航条
有首页、前一页、下一页、末页、另有数字导航

====================================================================
PublicSubShowPage()
Dimstr_tmp
XD_sURL=GetUrl()
int_totalRecord=XD_RS.RecordCount
Ifint_totalRecord<=0Then
str_error=str_error&"总纪录数为零，请输出数据"
CallShowError()
EndIf
Ifint_totalRecord=""then
int_TotalPage=1
Else
Ifint_totalRecordmodPageSize=0Then
int_TotalPage=CLng(int_TotalRecord/XD_PageSize*-1)*-1
Else
int_TotalPage=CLng(int_TotalRecord/XD_PageSize*-1)*-1+1
EndIf

EndIf

IfInt_curpage>int_TotalpageThen
int_curpage</p>ASP一般认为只能运行在IIS上，正如前面所提到的，这并不是十分正确，事实上，ASP也能运行在Apache上。ApacheASP可在任意Apache服务器上运行有限的ASP功能，所需做的，只需打开mod_perl。

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

多看多学多思。多看一些关于ASP的书籍，一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人，向同学老师多多学习，不论知识的大小;多思则是要将学到的知识灵活运用。

我可以结合自己的经验大致给你说一说，希望对你有所帮助，少走些弯路。

运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中，便可快速完成网站的应用程序，无需编译，可在服务器端直接执行。容易编写，使用普通的文本编辑器编写，如记事本就可以完成。由脚本在服务器上而不是客户端运行，ASP所使用的脚本语言都在服务端上运行。

接下来就不能纸上谈兵了，最好的方法其实是实践。实践，只能算是让你掌握语言特性用的。而提倡做实际的Project也不是太好，因为你还没有熟练的能力去综合各种技术，这样只能使你自己越来越迷糊。

接下来就不能纸上谈兵了，最好的方法其实是实践。实践，只能算是让你掌握语言特性用的。而提倡做实际的Project也不是太好，因为你还没有熟练的能力去综合各种技术，这样只能使你自己越来越迷糊。

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

以HTML语言整合(HTML负责界面上，ASP则负责功能上)形成一个B/S(浏览器/服务器)模式的网页程序。