itemlist.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))
bbid=cint(my_request("bids",1))
set rs=conn.execute ("select txt_big_class from big_class where id="&bbid)
bname=rs(0)
rs.close
set rs=nothing

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" rowspan="2"><!--#include file="left.asp"-->　</td>
		<td width="15" valign="top" rowspan="2">　</td>
		<td width="563" valign="top">
		当前类别：<a href="index.asp">首页</a> &gt;&gt; <a href=Itemlist.asp?bids=<%=bbid%>><%=bname%></a></td>
	</tr>
	<tr>
		<td width="563" valign="top"><%
	   if flag=1 then
	   call item2(bbid,y81,"Itemlist.asp","")
	   elseif flag=2 then
	   call item(bbid,y82,x82,"Itemlist.asp","")
	   else
	   call item2(bbid,y81,"Itemlist.asp","")
	   end if
	   %></td>
	</tr>
</table>
</div>
<!--begin end-->
<%call boot()%><!--end end-->