<%
if request.cookies("userid")="" then
response.end
end if
rid=request("id")
if rid<>request.cookies("id") then
response.end
end if
PgSz=20'设定开关,指定每一页所显示的帖子数目,默认为20帖一页
set rs=server.createobject("adodb.recordset")
sql="select * from product where member_id="&request("id")
rs.open sql,conn,1,3
if rs.eof and rs.bof then
response.write "<p align='center'><br><br> 还没有任何产品,请先添加!</p>"
else
RS.PageSize = Cint(PgSz) '设定PageSize属性的值
Total=INT(RS.recordcount / PgSz * -1)*-1 '计算可显示页面的总数
PageNo=Request("pageno")
if PageNo="" Then
PageNo = 1
else
PageNo=PageNo+1
PageNo=PageNo-1
end if
ScrollAction = Request("ScrollAction")
if ScrollAction = " 上一页 " Then
PageNo=PageNo-1
end if
if ScrollAction = " 下一页 " Then
PageNo=PageNo+1
end if
if PageNo < 1 Then
PageNo = 1
end if
n=1
RS.AbsolutePage = PageNo
Response.Write "<CENTER>"
position=RS.PageSize*PageNo
pagebegin=position-RS.PageSize+1
if position < RS.RecordCount then
pagend=position
else
pagend= RS.RecordCount
end if
Response.Write "<P><font color='Navy'><B>数据查询结果:</B>"
Response.Write "(共有"&RS.RecordCount &"条符合条件的信息, 显示"&pagebegin&"-"&pagend&")</font></p>"
%>
<form name="news_modi" method="post" action="modi_price_proc.asp">
<table width="18%" height="24" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="23"><div align="center"><font color="#143D87">产品管理:</font></div></td>
</tr>
</table>
<%
'Do while not (RS is nothing)
RowCount = RS.PageSize
Do While Not RS.EOF and rowcount > 0
If n=1 then
Response.Write "<TR BGCOLOR=#FFFFFF>"
ELSE
Response.Write "<TR BGCOLOR=#EEEEEE>"
End If
n=1-n
%>