<%

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 &" | 记录："& PageBegin & " - " & PageEnd & " / " &RS.RecordCount

%>

</TD>

<TD align=right>

<%

if PageNo > 1 Then

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

end if

if TotalPages > 1 and cint(PageNo) <> cint(TotalPages) then

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

end if

%>

</TD>

</TR>