@
xdeng <!--#INCLUDE FILE="inc/conn.asp"-->
<!--#INCLUDE FILE="inc/sub.asp"-->
<!--#INCLUDE FILE="inc/companyData.asp"-->
<!--#INCLUDE FILE="inc/Xdownpage.asp"-->
<%
language = "cn"
productsPartID = request("ProductsPartID")
dim strSql , strWhere, strTitle
strSql = " SELECT Productsid,pics,pic,ProductsText,ProductsName,ProductsPartID FROM RF_Products WHERE DisplayLevel > 0 AND productsName <> '' "
if productsPartID <> "" then ' 类别ID是否为空
ProductsPartID = clng(productsPartID)
StrSqlPart="select ProductsPartName from RF_ProductsPart where ProductsPartID= " & ProductsPartID
Set rsPart=conn.execute(StrSqlPart)
strTitle = rsPart("ProductsPartName")
else
ProductsPartID = 0
strTitle = "产品展示"
end if
if request("q") <> "" then '搜索关键字不空
strWhere=" AND ProductsName like '%"&request("q")&"%' OR ProductsText like '%"&request("q")&"%'"
end if
if ProductsPartID <> 0 then strWhere = strWhere &" AND ProductsPartID ="&ProductsPartID
strSql = strSql & strWhere & " order by DisplayLevel DESC , ProductsName ASC"
'Response.Write(strSql)
if sm ="" then
sm=0
else
sm=sm-1
end if
%>
<!DOCTYPE HTML>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<title><%=strTitle%>--<%=WebTitle%></title>
<META name="description" content="<%=Description%>">
<meta name="keywords" content="<%=Keywords%>">
<link rel="stylesheet" type="text/css" href="css/_main.css"/>
<!--二级菜单-->
<script type="text/javascript" src="js/subMenu.js"></script>
</head>
<body>
<!--#INCLUDE FILE="inc_header.asp"-->
<div class="wrap">
<div class="side">
<ul class="sideMenu">
<%=productClassNavBig (language,productsPartID) %>
</ul>
</div>
<div class="content">
<div class="content-head"><a href="index.asp">首页</a><span>>></span><a href="productIndex.asp">产品中心</a><span>>></span><%=strTitle%></div>
<ul class="productList">
<%
Set mypage=new xdownpage '创建对象
mypage.getconn=conn '得到数据库连接
mypage.getsql=strSql
mypage.pagesize=15 '设置每一页的记录条数据为5条
set rs=mypage.getrs() '返回Recordset
for i=1 to mypage.pagesize '接下来的操作就和操作一个普通Recordset对象一样操作
if not rs.eof then '这个标记是为了防止最后一页的溢出
response.write"<li><a href=""ProductShow.asp?ProductsPartID="&rs("ProductsPartID")&"&sm="&sm+1&"&ProductsID="&rs("Productsid")&""" target=""_blank"" ><img src=""pics/"&rs("pics")&""" alt="""&rs("ProductsName")&""" /></a><dl><dt><a href=""ProductShow.asp?ProductsPartID="&rs("ProductsPartID")&"&sm="&sm&"&ProductsID="&rs("Productsid")&""" target=""_blank"" >"&rs("ProductsName")&"</a></dt></dl></li>"& chr(10)
rs.movenext
else
exit for
end if
next
%>
</ul>
<div class="cb pl20">
<%
mypage.showpage()
%>
</div>
</div>
</div>
<!--#INCLUDE FILE="inc_footer.asp"-->
</body>
</html>
Select Language