prodlist.asp

广告策划中心整站程序

<table width="99%" border="0" align="center" cellpadding=2 cellspacing=1 bgcolor="#fefefe">
<tr><td>当前位置：
<% 
if SubLar<>"" then
	response.write SubLar & " >> "
 	
else 
	if SubMid<>"" then
	response.write SubMid 
	else
	response.write "所有产品中的:<b>" &Keywords&"</b>"
	end if
end if
%>
</td></tr><tr><td width="572" align="center" height="1" background="images/bg_xg_01.gif"></td></tr>

<%	if not isempty(request("page")) then   
	pagecount=cint(request("page"))   
	else   
	pagecount=1
	end if
	rsprod.pagesize=8
	rsprod.AbsolutePage=pagecount

%>

<%
Do While Not rsprod.eof			
%> 
<table cellspacing=1 cellpadding=2 width="540" border=0 class="new" bgcolor="#F5F5F5">
	<tr bgcolor="#FFFFFF"> <td rowspan="4" align="center" valign="middle" width="161"><a href="prodshow.asp?ProdId=<%=rsprod("ProdId")%>"><img src='<%=rsprod("ImgPrev")%>' width='<%=rsprod("ImgPrevWidth")%>' height='<%=rsprod("ImgPrevheight")%>' border=0>
			</a></td>
		<td width="239">名称：<a href='prodshow.asp?ProdId=<%=rsprod("ProdId")%>'><%=rsprod("ProdName")%></a>&nbsp;</td><td >型号：<%=rsprod("Model")%></td></tr>
		<tr><td height=5 colspan="2" bgcolor="#FFFFFF">简介：<%=rsprod("ProdDisc")%>
		  </td></tr>
       <tr><td class=bodycontent colspan="2" bgcolor="#FFFFFF">价格：
	   <%if rsprod("PriceList")=0 then
			response.write "<b><font color=red>请咨询客服订购...</font></b></td></tr>"
		else
		%>
		<b><font color=red><%=rsprod("PriceList")%> 元</font></b></td></tr>		
<tr align="right"><td height="21" colspan="2" bgcolor="#FFFFFF"><a href="#" onClick="window.open('order/add.asp?ProdId=<%=rsprod("ProdId")%>','blank_','scrollbars=yes,resizable=no,width=650,height=450')"><img src="images/mybuy_02.gif" width="98" height="17" border=0></a></td></tr>
</table>
<%
end if
n=n+1
rsprod.movenext
if n>=rsprod.pagesize then exit do
loop
%>

<table width=99% border="0" cellspacing="1" cellpadding="2" align="center" bgcolor=#cfcfcf>
<form action="<%=pageurl%>" method="post" >
        <tr>
          <td height="22">
              <div align="center">页次: <b><font color=red><%=pagecount%></font>/<%=rsprod.pagecount%></b> 
                <% if pagecount=1 and rsprod.pagecount<>pagecount and rsprod.pagecount<>0 then%>
                <a href="<%=pageurl%>?LarCode=<%=SubLar%>&MidCode=<%=SubMid%>&page=<%=cstr(pagecount+1)%>"> 
                下一页</a> 
                <% end if %>
                <% if rsprod.pagecount>1 and rsprod.pagecount=pagecount then %>
                <a href="<%=pageurl%>?LarCode=<%=SubLar%>&MidCode=<%=SubMid%>&page=<%=cstr(pagecount-1)%>"> 
                上一页</a> 
                <%end if%>
                <% if pagecount<>1 and rsprod.pagecount<>pagecount then%>
                <a href="<%=pageurl%>?LarCode=<%=SubLar%>&MidCode=<%=SubMid%>&page=<%=cstr(pagecount-1)%>"> 
                上一页</a> <a href="<%=pageurl%>?LarCode=<%=SubLar%>&MidCode=<%=SubMid%>&page=<%=cstr(pagecount+1)%>"> 
                下一页</a> 
                <% end if%>
                &nbsp; 转到第 
                <select name="page">
                <%for i=1 to rsprod.pagecount%> 
                <option value="<%=i%>"><%=i%></option>
                <%next%> 
              </select>
              页 
              <input type="submit" name="go" value="Go">
              <input type="hidden" name="LarCode" value="<%=SubLar%>">
              <input type="hidden" name="MidCode" value="<%=SubMid%>">
            </div>
          </td>
        </tr>
    </form>
</table>

<%
rsprod.close
set rsprod=nothing
%> 
</table>