www.gusucode.com > 深度梦想整站系统(asp) 1.14.02源码程序 > admin/product/product_Manage.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
projectRootPath = "../../" '相对当前应用程序根的位置
%>
<!-- #include file="../web.config.asp"-->
<!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 name="robots" content="noindex,nofollow" />
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>管理</title>
<link href="../themes/<%=theme_Path%>/main.css" rel="stylesheet" type="text/css" />
</head>
<body id="bodyBg1">
<br />
<a href="product_Manage.asp">产品管理</a> | <a href="product_Add.asp">添加产品</a>
<hr color="#0099FF" size="1" />
<br />
<dl class="manageContent">
<dt>产品管理</dt>
<dd>
<br />
<table width="95%" class="tableBoder01">
<tr>
<th scope="col">产品名称</th>
<th scope="col">产品类别</th>
<th scope="col">精品推荐首页显示</th>
<th scope="col">显示</th>
<th scope="col">排序ID</th>
<th scope="col">管理</th>
</tr>
<%
if (request.QueryString("id")<>"")then
sql="select * from deep_Product where fclass_id="&request.QueryString("id") &" order by fOrderID"
else
sql="select * from deep_Product order by fclass_id,fOrderID"
end if
set rsProduct=conn.execute(sql)
if(rsProduct.eof and rsProduct.bof) then
Response.Write("没有记录!!")
else
while (not rsProduct.eof)
%>
<tr>
<td><%=rsProduct("fproductName")%></td>
<td><%
set rsProductClass=conn.execute("select fclass_id,fclassName from deep_ProductClass where fclass_id="& rsProduct("fclass_id"))
if (rsProductClass.eof and rsProductClass.bof)then
Response.Write("没有对应分类")
else
%>
<a href="product_Manage.asp?id=<%=rsProductClass("fclass_id")%>"><%=rsProductClass("fclassName")%></a>
<%
end if
rsProductClass.close
set rsProductClass=nothing
%>
</td>
<td><%if(rsProduct("fisCommend")=1)then%>首页显示<%end if%></td>
<td><%if(rsProduct("fisView")=0)then%>未显示<%end if%></td>
<td><%=rsProduct("fOrderID")%></td>
<td><a href="product_Update.asp?id=<%=rsProduct("fid")%>">修改</a> |
<a href="product_Del.asp?id=<%=rsProduct("fid")%>">删除</a></td>
</tr>
<%
rsProduct.moveNext
wend
end if
rsProduct.close
set rsProduct=nothing
%>
</table>
<br />
</dd>
</dl>
<br />
</body>
</html>
<%
call closeConnDB()
%>