<!--#include file="Inc/conn.asp"-->
<!--#include file="Inc/Function_Page2.asp"-->
<!--#include file="Inc.asp"-->
<%
Dim ID
ID=Angel_aspRequest(request("id"))

set rsclass=server.createobject("adodb.recordset")
sql="select * from "&tbname&"_leixing where id="&id
rsclass.open sql,conn,1,1
if ID="" then
datitle="商城首页"
else
datitle=rsclass("Title")
end if
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta name="keywords" content="<%=datitle%> - cms.Angel_asp" />
<meta name="description" content="<%=datitle%> - cms.Angel_asp" />
<link href="<% =SitePath %>images/angel_asp.css" type=text/css rel=stylesheet>
<link href="<% =SitePath %>images/Css_angel_asp.css" ID="skin" type=text/css rel=stylesheet>
<link rel="shortcut icon" href="<%=SitePath%>images/myfav.ico" type="image/x-icon" />
<script type="text/javascript" src="<%=SitePath%>inc/main.asp"></script>
<title><%=datitle%> - Angel_asp</title>
</head>
<body>
<div class="mwall">
<%=Head%>
<%=Menu%>
<div class="mw">
	<div class="dh">
		<%=search%>
		<% if ID="" then%>
		您现在的位置：<a href="Index.asp">首页</a> >> 网站商城
		<%else%>
		您现在的位置：<a href="Index.asp">首页</a> >> <a href="<%=IIF(Html=3,"Product_"&ID&".html","Product.asp?ID="&ID&"")%>"><%=datitle%></a> >> 列表
		<%end if%>
    </div>
	<div id="nw_left">
	
		<div id="web2l">
        	<h6><%=datitle%></h6>
			<div id="content">
            	<ul id="listul">
				<%
				Set mypage=new xdownpage
				mypage.getconn=conn
				if ID="" then
				mypage.getsql="Select * from "&tbname&"_shop order by ID desc,DateAndTime desc"
				else
				mypage.getsql="Select * from "&tbname&"_shop Where ClassID="&rsclass("ID")&" order by ID desc,DateAndTime desc"
				end if
				mypage.pagesize=artlistnum
				set rs=mypage.getrs()
				for i=1 to mypage.pagesize
					if not rs.eof then
				%>
				<li style="border-bottom:1px dashed #ccc;"><a href="<%If html=1 then Response.Write("cp.asp?ID="&rs("ID")&"") else:if html=2 then Response.Write("cp.asp?ID="&rs("ID")&"") else:if html=3 then Response.Write("cp_"&rs("ID")&".html") End if%>" target="_blank"><%Response.Write(""&rs("Title")&"")%></a>
				<span style="color:#AAA;font-size:12px;">　<del>市场价：<%=rs("price")%>元</del>　<font color="#FF0000">商城价：<%=rs("sprice")%>元</font> 浏览：<%=rs("Hits")%>次　<%=FormatDate(rs("DateAndTime"),11)%></span></li>
				<%
				rs.movenext
				else
				exit for
				end if
				
				next
				%>
				</ul>
			</div>
			<div id="clear"></div>
			<div id="page">
				<ul>
				<%=mypage.showpage()%>
				</ul>
			</div>
        </div>
	</div>
	<div id="nw_right">
        <div id="web2r">
			<h5>商品分类</h5>
			<ul id="list10" style="line-height:25px; text-align:left;">
            <%
			set rs1=server.createobject("ADODB.Recordset")
			sql1="select * from "&tbname&"_leixing order by ID desc"
			rs1.open sql1,conn,1,3
			If Not rs1.Eof Then
			do while not (rs1.eof or err)
			%>
            <a href="/<%If html=3 then Response.Write("Product_"&rs1("ID")&"_1.html") else  Response.Write("Product.asp?ID="&rs1("ID")&"") End if%>"><%=rs1("Title")%></a>
			<%
			rs1.movenext
			loop
			end if
			rs1.close
			set rs1=nothing
			%>
            </ul>
  		</div>
	</div>
</div>
<%=Copy%>
<%
rsclass.close
set rsclass=nothing
%></div>
</body>
</html>