ASP应用范例-分页_代码局部

<%

dim Conn,RS,sqlStr,PageSize,RowCount,TotalPages,PageNo,Position,PageBegin,PageEnd

set Conn= Server.CreateObject("ADODB.Connection")

set RS = Server.CreateObject("ADODB.RecordSet")

Conn.open "provider=sqloledb;data source=127.0.0.1;user id=sa;password=;initial catalog=zjydata"

sqlStr="select * from Items order by iID"

RS.open sqlStr,Conn,1,1

PageSize=10

If RS.RecordCount=0 then

%>

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

<TR bgcolor=#003366 height=20px>

<TD align=center><font color=#FFFFFF>商品代码</font></TD>

<TD align=center><font color=#FFFFFF>商品名称</font></TD>

<TD align=center><font color=#FFFFFF>型号规格</font></TD>

<TD align=center><font color=#FFFFFF>计量单位</font></TD>

<TD align=center><font color=#FFFFFF>参考进价</font></TD>

<TD align=center><font color=#FFFFFF>参考售价</font></TD>

<TD align=center><font color=#FFFFFF>备注</font>

</TR>

<TR height=20px>

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

<TR>

</TABLE>

<%

else

RS.PageSize = Cint(PageSize)

TotalPages=RS.PageCount

PageNo=Request.QueryString("PageNo")

if PageNo="" or PageNo<1 Then

PageNo = 1

end if

RS.AbsolutePage = PageNo

Position=RS.PageSize*PageNo

PageBegin=Position-RS.PageSize+1

if Position <RS.RecordCount then

PageEnd=Position

else

PageEnd= RS.RecordCount

end if

%>

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

<TR>

<TD width=20%>

<%

Response.Write "页："& PageNo &" / "& TotalPages &"

关键词：ASP应用范例-分页_代码局部