www.gusucode.com > 中网景企业网站源码时尚版 2009.73码程序 > admin/product_class.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="opendb.asp" -->
<%
Call CheckAdmin()
'Call CnkAdminRight(31)
dim del
del=Trim(Request.QueryString("del"))
if del="allclass" then
Call AdminRight("DelAdmin",3,session("admin"))
conn.execute("delete from cnk_products")
conn.execute("delete from cnk_ProductClass")
end if
if del="allpro" then
Call AdminRight("DelAdmin",3,session("admin"))
conn.execute("delete from cnk_products")
end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<link href="classtreestyle.css" rel="stylesheet" type="text/css">
<link href="admin.css" rel="stylesheet" type="text/css">
<script language="javascript" src="classtree.js"></script>
<script language=javascript>
function IsDigit()
{
return ((event.keyCode >= 48) && (event.keyCode <= 57));
}
function cform(){
if(!confirm("您确认删除吗? 请注意删除后无法恢复!"))
return false;
}
</script>
<style type="text/css">
<!--
.STYLE1 {
color: #FF0000;
font-weight: bold;
}
-->
</style>
</head>
<body>
<div class="cnkbox">
<div class="title">产品类别管理</div>
<div class="content" style="background-color:#FFFFFF">
<span class="redfont">注意：</span><br />
<span class="redfont">■</span> 在添加产品之前，请设置好类别。<br />
<span class="redfont">■</span> 添加产品：展开要添加所在的类别，点击[添加产品] <br />
<span class="redfont">■</span> 修改产品：展开要添加所在的类别，直接点击有<img src="images/file.gif" width="34" height="17">的类别名称进入修改该类产品<br>
<br>
<br>
<table width="100%" border="0">
<tr>
<td><span class="bluefont">■</span> <a href="product.asp">全部产品列表（按最新更新时间排序）</a></td>
</tr>
<tr>
<td class="content"><span class="bluefont">■</span> 快速清空：[<a href="?del=allclass" onClick="return cform()">快速删除全部产品类别</a>] [<a href="?del=allpro" onClick="return cform()">快速清空全部产品</a>] （请慎用这项功能） </td>
</tr>
<tr>
<form id="searchform" name="searchform" method="post" action="product.asp" onSubmit="return searchkey();">
<td width="37%">
<span class="bluefont">■</span> 搜索：
<input type="radio" name="SearchType" value="PModel" id="PModel" checked="checked">
<label for="PModel">产品型号</label>
<input type="radio" name="SearchType" value="PDes" id="PDes">
<label for="PDes">产品介绍内容</label>
<label for="Manufacturer"></label>
<input name="keywords" type="text" class="input" id="keywords" />
<input name="Submit3" type="submit" class="button" value="搜索" /></td>
</form>
</tr>
</table>
<br>
<a href="product_class.asp?action=add" class="STYLE1">>>> 添加一级产品类别 </a><br>
<%Dim action
action=request.QueryString("action")
select case action
case "del"
Call AdminRight("DelAdmin",3,session("admin"))
delclass request.QueryString("classid")
response.Redirect("product_class.asp")
case "save"
saveclass
response.Redirect("product_class.asp")
case "add"
Call AdminRight("AddAdmin",3,session("admin"))
addclass
case "edit"
Call AdminRight("ModiAdmin",3,session("admin"))
editclass
case else
classmenu 0
end select
'Call closedb()
'列出所有节点
function classmenu(classid)
Dim rsm,i,sql,ChildCount,classtype,classname,onmouseup,listtype
set rsm=server.CreateObject("adodb.recordset")
sql="select * from cnk_ProductClass where upclassid="&classid&" order by paixu"
rsm.open sql,conn,1,1
response.write("<table border=""0"" cellspacing=""0"" cellpadding=""0"">")
i=1
while not rsm.eof
ChildCount=conn.execute("select count(*) from cnk_ProductClass where upclassid="&rsm("classid"))(0)
if ChildCount=0 then
if i=rsm.recordcount then
classtype="file1"
else
classtype="file"
end if
classname="<a href=""product.asp?classid="&rsm("classid")&""">"&rsm("classname")&" "&rsm("classname_en")&"</a> <a href=""product.asp?classid="&rsm("classid")&"&action=add""><font color=""#FF0000"">[添加产品]</font></a>"
onmouseup=""
classname_en=""
else
if i=rsm.recordcount then
classtype="menu3"
listtype="list1"
onmouseup="change1('a"&rsm("classid")&"','b"&rsm("classid")&"');"
else
classtype="menu1"
listtype="list"
onmouseup="change2('a"&rsm("classid")&"','b"&rsm("classid")&"');"
end if
classname=rsm("classname")
classname_en=rsm("classname_en")
end if
%>
<tr><td id="b<%= rsm("classid")%>" class="<%= classtype%>" onMouseUp="<%= onmouseup%>"><%= classname &" "&classname_en%> <a href="product_class.asp?action=edit&classid=<%= rsm("classid")%>&upclassid=<%= rsm("upclassid")%>"><font color="#FF0066">[修改]</font></a> | <a href="product_class.asp?action=del&classid=<%= rsm("classid")%>"><font color="#9933FF">[删除]</font></a></td></tr>
<%
if ChildCount>0 then
%>
<tr id="a<%= rsm("classid")%>" style="display:none"><td class="<%= listtype%>"><%classmenu(rsm("classid"))%></td></tr>
<%
end if
rsm.movenext
i=i+1
wend
response.write("</table>")
rsm.close
set rsm=nothing
end function
'删除节点
function delclass(classid)
Dim rsm
set rsm=conn.execute("select classid from cnk_ProductClass where upclassid="&classid)
while not rsm.eof
delclass rsm("classid")
rsm.movenext
wend
conn.execute("delete from cnk_ProductClass where classid="&classid)
conn.execute("delete from cnk_products where classid="&classid)
end function
'保存节点
function saveclass()
Dim rsm,classid,upclassid,paixu,classname,image,ChildCount,url
action=request.Form("action")
classid=request.Form("classid")
upclassid=request.Form("upclassid")
paixu=request.Form("paixu")
classname=request.Form("classname")
classname_en=request.Form("classname_en")
image=request.Form("image")
select case action
case "edit"
ChildCount=conn.execute("select count(*) from cnk_ProductClass where upclassid="&classid)(0)
if ChildCount>0 then url=""
conn.execute("update cnk_ProductClass set upclassid="&upclassid&",paixu="&paixu&",classname='"&classname&"',classname_en='"&classname_en&"',[image]='"&image&"' where classid="&classid)
case "add"
'conn.execute("update cnk_ProductClass set url='' where classid="&upclassid)
conn.execute("insert into cnk_ProductClass (upclassid,paixu,classname,classname_en,[image]) values ("&upclassid&","&paixu&",'"&classname&"','"&classname_en&"','"&image&"')")
end select
end function
'添加节点
function addclass()
dim classid,upclassid
classid=request.QueryString("classid")
if classid="" then classid=0
action="add"
classform 0,classid,action
end function
'修改节点
function editclass()
dim classid,upclassid
classid=request.QueryString("classid")
upclassid=request.QueryString("upclassid")
action="edit"
classform classid,upclassid,action
end function
'菜单表单
function classform(classid,upclassid,action)
Dim rsm,classname,image,paixu
if action="edit" then
set rsm=conn.execute("select * from cnk_ProductClass where classid="&classid)
paixu=rsm("paixu")
classname=rsm("classname")
classname_en=rsm("classname_en")
image=rsm("image")
end if
if paixu="" then paixu=0
%>
<form name="form1" method="post" action="product_class.asp?action=save">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="7%">排序号：</td>
<td width="93%"><input name="paixu" type="text" id="paixu" value="<%= paixu%>" size="30" onkeypress="event.returnValue=IsDigit();">
只能填数字</td>
</tr>
<% If Lang=0 or Lang=2 Then %>
<tr>
<td width="7%">名称(中文)：</td>
<td width="93%"><input name="classname" type="text" id="classname" value="<%= classname%>" size="30"></td>
</tr>
<% End If %>
<% If Lang=1 or Lang=2 Then %>
<tr>
<td>名称(英文)：</td>
<td><input name="classname_en" type="text" id="classname_en" value="<%= classname_en%>" size="30"></td>
</tr>
<% End If %>
<tr>
<td>类别图片：</td>
<td><input name="image" type="text" id="image" value="<%= image %>" size="30">
<span class="t2">
<input name="Submit44" type="button" class="input" onClick="window.open('upload_flash.asp?formname=form1&editname=image&uppath=upfiles&filelx=jpg','','status=no,scrollbars=no,top=20,left=110,width=420,height=165')" value="上传">
根据设计要求上传图片尺寸，默认172*50</span></td>
</tr>
<tr>
<td> </td>
<td>ClassID:<input name="classid" type="text" value="<%= classid %>" size="4"><input name="action" type="hidden" id="action" value="<%= action%>"></td>
</tr>
<!--tr>
<td>URL：</td>
<td><input name="url" type="text" id="url" value="<%'= url%>" size="80"></td>
</tr-->
<tr>
<td> </td>
<td><input type="submit" name="Submit" value="提交">
<input type="reset" name="Submit2" value="重置"></td>
</tr>
</table>
</form>
<%
end function
%>
</div>
</div>
<% Call Foot()%>