www.gusucode.com > 深度梦想整站系统(asp) 1.14.02源码程序 > admin/product/productClass_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="productClass_Manage.asp">产品分类管理</a> | <a href="productClass_Add.asp">添加分类</a>
<hr color="#0099FF" size="1" />
<br />
<dl class="manageContent">
<dt>产品分类管理</dt>
<dd>
<br />
<table width="95%" class="tableBoder01">
<tr>
<th>分类名称</th>
<th>是否显示</th>
<th>排序ID</th>
<th>管理</th>
</tr>
<%
sql="select * from deep_ProductClass order by fOrderID"
set rsProductClass=conn.execute(sql)
if (rsProductClass.eof and rsProductClass.bof) then
else
while (not rsProductClass.eof)
%>
<tr>
<td><%=rsProductClass("fclassName")%></td>
<td><%if (rsProductClass("fisView")=0) then
response.Write("<font color='#ff0000'>未显示</font>")
end if%>
</td>
<td><%=rsProductClass("fOrderID")%></td>
<td><a href="productClass_Update.asp?id=<%=rsProductClass("fclass_id")%>">修改</a> |
<%if (rsProductClass("fisSys")=0) then
response.Write("<font color='#CCCCC'>删除</font>")
else%>
<a href="productClass_Del.asp?id=<%=rsProductClass("fclass_id")%>">删除</a>
<%end if%>
</td>
</tr>
<%
rsProductClass.moveNext
wend
end if
rsProductClass.close
set rsProductClass=nothing
%>
</table>
<br />
</dd>
</dl>
<br />
</body>
</html>
<%
call closeConnDB()
%>