gusucode.com > 爱美尔女性商城源码 1.0源码程序 > wen/Product.asp
<!--#include file="Inc/conn.asp"-->
<!--#include file="Inc/Function_Page2.asp"-->
<!--#include file="Inc.asp"-->
<%
Dim ID
ID=LaoYRequest(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.8586.com.cn" />
<meta name="description" content="<%=datitle%> - cms.8586.com.cn" />
<link href="<%=SitePath%>images/8586<%=Css%>.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%> - cms.8586.com.cn</title>
</head>
<body>
<div class="mwall">
<%=Head%>
<%=Menu%>
<div class="mw">
<div class="dh">
<% if ID="" then%>
您现在的位置：<a href="<%=SitePath%>">首页</a> >> 网站商城
<%else%>
您现在的位置：<a href="<%=SitePath%>">首页</a> >> <a href="<%=SitePath%><%=IIF(Html=3,"product/Product_"&ID&"_1.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="<%=SitePath%><%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("product/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="<%=SitePath%><%If html=3 then Response.Write("product/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>