productlist.asp

一个不错的个人商务网站的源码

<!--#include file="db_conn.asp"-->
<!--#include file="comm/comm.asp"-->
<!--#include file="comm/pages.asp"-->
<!--#include file="comm/my_request.asp"-->
<!--#include file="comm/sub.asp"-->
<!--#include file="comm/counst.asp"-->
<!--begin TOP-->
<%
'说明 head(a,b,c)
'a为页标题
'b为页描述
'c为页关键字
call head(r(26)&"-商品总览",r(27),r(28))
flag=my_request("flag",1)
flagp=my_request("flagp",1)
select case flagp
case 4
ord="order by addtime desc"
case 5
ord="order by addtime asc"
case 6
ord="order by p_mmoney asc"
case 7
ord="order by p_mmoney desc"
case else
ord="order by addtime desc"
end select
%>
<!--end TOP-->
<div align="center">
<table border="0" width="760" cellpadding="0" style="border-collapse: collapse">
	<tr>
		<td width="182" valign="top"><!--#include file="left.asp"-->　</td>
		<td width="15" valign="top">　</td>
		<td width="563" valign="top">
	   <%
	   if flag=1 then
	   call listpro2(8,y31,"ProductList.asp")
	   elseif flag=2 then
	   call listpro(8,y32,x32,"ProductList.asp")
	   else
	   call listpro2(8,y31,"ProductList.asp")
	   end if
	   %>
		</td>
	</tr>
</table>
</div>
<!--begin end-->
<%call boot()%><!--end end-->