IDC资讯中心
<%
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>
<tr bgcolor=#003366 height=20px>
<td align=center width=20%><font color=#ffffff>商品代码</font></td>
<td align=center width=30%><font color=#ffffff>商品名称</font></td>
<td align=center width=8%><font color=#ffffff>型号规格</font></td>
<td align=center width=8%><font color=#ffffff>计量单位</font></td>
<td align=center width=8%><font color=#ffffff>参考进价</font></td>
<td align=center width=8%><font color=#ffffff>参考售价</font></td>
<td align=center width=18%><font color=#ffffff>备注</font></tr>
<%
rowcount = rs.pagesize
dim color1,color2
color1="#dddddd"
color2="#eeeeee"
do while not rs.eof and rowcount > 0
response.write "<tr height=20px bgcolor="
%>
<%
if rowcount mod 2=0 then:response.write color1 else:response.write color2
%>
<%
response.write ">"
%>
<td><span><a href=manage.asp?id=<%=rs(0)%>><% =rs("vcode")%></a></span></td>
<td><span><% =rs("vname")%></span></td>
<td><span><% =rs("vspec")%></span></td>
<td><span><% =rs("vunit")%></span></td>
<td><span><% =rs("finprice")%></span></td>
<td><span><% =rs("foutprice")%></span></td>
<td><span><% =rs("vdescription")%></span></td>
</tr>
<%
rowcount = rowcount – 1
rs.movenext
loop
conn.close
set rs = nothing
set conn = nothing
%>
<tr bgcolor=#003366 height=20px>
<td align=center width=20%><font color=#ffffff>商品代码</font></td>
<td align=center width=30%><font color=#ffffff>商品名称</font></td>
<td align=center width=8%><font color=#ffffff>型号规格</font></td>
<td align=center width=8%><font color=#ffffff>计量单位</font></td>
<td align=center width=8%><font color=#ffffff>参考进价</font></td>
<td align=center width=8%><font color=#ffffff>参考售价</font></td>
<td align=center width=18%><font color=#ffffff>备注</font>
</tr>
<tr>
<td>
<%
for i=1 to totalpages
if cint(pageno) = cint(i) then
response.write "["&i&"]"
else
response.write " <a href=list.asp?pageno="&i&">"&i&"</a> "
end if
next
%>
</td>
</tr>
</table>
<%
end if
%>
