56770_pingjia.asp

本实例为一个完整的网上购物商城的完整例子程序,里面有所以的源代码.希望对大家学习有用.

<%
dim page
dim maxPerPage '每页显示的产品数
dim num_row '每行显示的产品个数
dim rows '显示的产品行数
num_row=2 '每行放置的产品数
rows=6 '放置的产品行数
maxperpage=num_row*rows
page=Request("page")
if(page="" or isempty(page))then page=1
        thisUrl="pingjia.asp"
session("oldUrl")=thisUrl&"?page="&page
set rs=server.createobject("adodb.recordset")
sql="select * from 56770_product where etj=true order by day desc"
rs.open sql, conn, 1, 1
rs.pagesize=MaxPerPage
%>
<script language=Javascript>
<!--
function jumpTo(i)
{ 
        if(i == 1)
        {
                this.document.location="<%=thisUrl%>";
        }
        if(i == 2)
        {
                this.document.location="<%=thisUrl%>?page=<%=page-1%>";
        }
        if(i == 3)
        {
                this.document.location="<%=thisUrl%>?page=<%=page+1%>";
        }
        if(i == 4)
        {
                this.document.location="<%=thisUrl%>?page=<%=rs.pageCount%>";
        }
}
//-->
</script>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%
j=1
if not(rs.eof or err)then rs.move(page-1)*maxPerPage
        do while not(rs.eof or err)
if(j mod num_row)=1 then
        %>
<tr><td colspan="<%=(num_row*2-1)%>">
<TABLE align=center bgcolor="#FFE7E9" border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR>
<TD><IMG height=1 src="images/spacer.gif" width="1"></TD>
</TR></TBODY></TABLE>
</td></tr>
<%
response.write "<tr>"
end if
%>
<td width="<%=(100/num_row)%>%" align=center>
<table width="98%" border="0" cellspacing="0" cellpadding="5" align="center">
<tr>
<td width=100>
<div align="center"> <a href="showproduct.asp?id=<%=rs("id")%>"">
<%if rs("pic")<>"" then%>
<img border="0" src="pic/<%=rs("pic")%>" hspace="5" vspace="5" width="70" height="80" alt="点击查看详情">
<%else%>
<img ssrc="pic/nopic.jpg" border="0" width="70" height="80">
<%end if%>
</a></div>
</td>
<td width="200"><a href="showproduct.asp?id=<%=rs("id")%>""><font color="#FF9933"><b> <% if len(rs("product_name"))>11 then%><%=left(rs("product_name"),10)%>..<%else%><%=rs("product_name")%><%end if%></b><font color="#FF6600"></font></font></a>
<br>
<strike><font color="#666666">市场价: <s><%=rs("sprice")%>.00</s></font></strike>
<br> 商城价: <%=rs("price")%>.00<br>
<%
info = replace(rs("info"), chr(13), "<br>")
info = replace(info, chr(32), "&nbsp;")
%>
<% if len(info)>50 then%>
<%=left(info, 45)%>...
<%else%>
<%=info%>
<%end if%></td>
</tr>
</table>
</td>
<%
if(j mod num_row)=0 then
        response.write "</tr>"
else %>
        <TD bgcolor="#FFE7E9" width="1"><IMG height=1 src="images/spacer.gif" width="1"></TD>
<%
end if
j=j+1
if j>maxperpage then exit do
        rs.moveNext
loop
dim k
k=(j-1)mod num_row
if not(k=0)then
        response.write "<td colspan="&(num_row-k)&" width="&(cint(100/num_row)*(num_row-k))&">&nbsp;</td>"
response.write "</tr>"
end if
%>
<tr><td colspan="<%=(num_row*2-1)%>">
<TABLE align=center bgcolor="#FFE7E9" border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR>
<TD><IMG height=1 src="images/spacer.gif" width=1></TD>
</TR></TBODY></TABLE>
</td></tr>
</table><br>

<div align="right">共<%=rs.recordCount%>个商品　第<%=page%>/<%=rs.pageCount%>页　
<%if page>1 then%>
<input type="button" name="Submit3" value="|&lt;&lt; " title="首页" onClick="Javascript:jumpTo(1)" style="font-size: 9pt; border: 1px solid #7D85A2; background-color:  #ffffff">

<input type="button" name="Submit4" value=" &lt;" title="上页" onClick="Javascript:jumpTo(2)" style="font-size: 9pt; border: 1px solid #7D85A2; background-color:  #ffffff">
<%else%>

<input type="button" name="Submit3" value="|&lt;&lt; " style="font-size: 9pt; border: 1px solid #7D85A2; background-color: #ffffff" disabled>

<input type="button" name="Submit4" value=" &lt;" style="font-size: 9pt; border: 1px solid #7D85A2; background-color:  #ffffff" disabled>
<%end if
if rs.recordCount>page*maxPerPage then%>
        
<input type="button" name="Submit5" value=" &gt;" title="下页" onClick="Javascript:jumpTo(3)" style="font-size: 9pt; border: 1px solid #7D85A2; background-color:  #ffffff">

<input type="button" name="Submit6" value="&gt;&gt; |" title="尾页" onClick="Javascript:jumpTo(4)" style="font-size: 9pt; border: 1px solid #7D85A2; background-color:  #ffffff">
<%else%>

<input type="button" name="Submit5" value=" &gt;" style="font-size: 9pt; border: 1px solid #7D85A2; background-color:  #ffffff" disabled>

<input type="button" name="Submit6" style="font-size: 9pt;border: 1px solid #7D85A2; background-color:  #ffffff" value="&gt; &gt; |" disabled>
<%end if%>
</div><br></TD></TR>
</TBODY></TABLE></center>
</div>
</TD></TR></TBODY></TABLE>