www.gusucode.com > 运动用品商城网站系统源代码程序 > feyok/ad_sort.asp
<!--#include file="conn.asp"-->
<!--#include file="ad_chk.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href=inc/css.css rel=STYLESHEET type=text/css>
<body topmargin="5" leftmargin="5" rightmargin="5" bottommargin="5">
<%
if Request.Cookies("venshop")("admin_class")<>0 and Request.Cookies("venshop")("admin_class")<>1 then
response.write "你没有这个权限!"
response.end
end if
%>
<%
host=lcase(request.servervariables("HTTP_HOST"))
set rs=server.createobject("adodb.recordset")
sql="select top 1 skin,allskin from venshop_system"
rs.open sql,conn,1,1
skin=rs("skin")
allskin=split(rs("allskin"),"##")
askin=split(allskin(0),"/")
bskin=split(allskin(1),"/")
rs.close
set rs=nothing
sort_id=request("sort_id")
nsort_id=request("nsort_id")
if request("action")="adda" then
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from venshop_sort",conn,1,3
rs.AddNew
rs("sort_name")=request("sort_name")
rs("sort_xu")=request("sort_xu")
rs("sort_skin")=request("sort_skin")
rs("ziduan")="##################################################################################################"
rs.Update
rs.Close
set rs=nothing
call addok(addt,"ad_sort.asp","ad_sort.asp")
end if
if request("action")="addb" then
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from venshop_nsort",conn,1,3
rs.AddNew
rs("nsort_name")=request("nsort_name")
rs("sort_id")=request("sort_id")
rs("nsort_xu")=request("nsort_xu")
rs.Update
rs.Close
set rs=nothing
call addok(addt,"ad_sort.asp","ad_sort.asp")
end if
if request("action")="edita" then
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from venshop_sort where sort_id="&sort_id&"",conn,1,3
rs("sort_name")=request("sort_name")
rs("sort_xu")=request("sort_xu")
rs("sort_skin")=request("sort_skin")
rs.update
rs.close
set rs=nothing
call editok(editt,"ad_sort.asp","ad_sort.asp")
end if
if request("action")="editb" then
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from venshop_nsort where nsort_id="&nsort_id&"",conn,1,3
rs("nsort_name")=request("nsort_name")
rs("sort_id")=request("sort_id")
rs("nsort_xu")=request("nsort_xu")
rs.update
rs.close
set rs=nothing
call editok(editt,"ad_sort.asp","ad_sort.asp")
end if
if request("action")="dela" then
conn.execute "delete from venshop_sort where sort_id="&sort_id&""
conn.execute "delete from venshop_nsort where sort_id="&sort_id&""
conn.execute "delete from venshop_hw where sort_id="&sort_id&""
call deleok(delet,"ad_sort.asp")
end if
if request("action")="delb" then
conn.execute "delete from venshop_nsort where nsort_id="&nsort_id&""
conn.execute "delete from venshop_hw where nsort_id="&nsort_id&""
call deleok(delet,"ad_sort.asp")
end if
%>
<SCRIPT language=javascript1.2 src="inc/menu.js"></SCRIPT>
<table border="0" cellpadding="5" cellspacing="0" class=st>
<tr><td align="center" class="sa" height="30"><b>分类管理</b></td>
<td align="center" class="sa" height="30"><b>风格</b></td>
<td align="center" class="sa" height="30"><b>序号 <img border="0" src="Img/ad_help.gif" class="helpimg" alt="序号越大排列越靠前，只允许数字"></b></td>
<td align="center" class="sa" height="30"><b>商品参数 <img border="0" src="Img/ad_help.gif" class="helpimg" alt="该分类下商品的参数属性"></b></td>
<td align="center" class="sa" height="30"><b>小类 <img border="0" src="Img/ad_help.gif" class="helpimg" alt="管理该大类下小类"></b></td>
<td align="center" class="sa" height="30"><b>操作</b></td>
</tr>
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from venshop_sort order by sort_xu desc,sort_id desc",conn,1,1
xx=0
do while not rs.eof
xx=xx+1
sort_id=rs("sort_id")%><form method="post" action="ad_sort.asp?action=edita&sort_id=<%=rs("sort_id")%>">
<tr><td align="center" bgcolor="#FFFFFF" class="s<%=xx mod 2%>">
<input name="sort_name" type="text" size="20" value="<%=rs("sort_name")%>"></td>
<td align="center" bgcolor="#FFFFFF" class="s<%=xx mod 2%>"><select size="1" name="sort_skin">
<option value=""<%if rs("sort_skin")="" then%> selected<%end if%>>与首页统一</option>
<%for i=0 to ubound(askin)%>
<option value="<%=askin(i)%>"<%if rs("sort_skin")=askin(i) then%> selected<%end if%>><%=bskin(i)%></option>
<%next%>
</select></td>
<td align="center" bgcolor="#FFFFFF" class="s<%=xx mod 2%>"><input name="sort_xu" type="text" size="2" value="<%=rs("sort_xu")%>"></td>
<td align="center" bgcolor="#FFFFFF" class="s<%=xx mod 2%>"><a href="ad_ziduan.asp?sort_id=<%=rs("sort_id")%>">修改</a></td>
<td align="center" bgcolor="#FFFFFF" onclick="menuclick(submenu<%=rs("sort_id")%>,bar<%=rs("sort_id")%>)" id=bar<%=rs("sort_id")%> class="s<%=xx mod 2%>">
<font color="#0000FF" style="cursor:hand"><u>管理小类</u></font></td>
<td align="center" bgcolor="#FFFFFF" class="s<%=xx mod 2%>">
<input type="submit" name="Submit3" value="修改">
<a href=ad_sort.asp?action=dela&sort_id=<%=rs("sort_id")%> onClick="return confirm('您确定进行删除操作吗？')">删除</a>
</td>
</tr></form>
<tr id=submenu<%=rs("sort_id")%> style="DISPLAY: none;">
<td align="center" colspan="6" bgcolor="#FFFFB3">
<table border="0" cellspacing="0" cellpadding="2" width="100%">
<tr><td align="center">名称</td><td align="center">所属大类</td><td align="center">排序</td><td align="center">操作</td></tr>
<%
set rsn=server.CreateObject("adodb.recordset")
rsn.open "select * from venshop_nsort where sort_id="&sort_id&"",conn,1,1
if rsn.eof and rsn.bof then
response.write "还没有商品分类信息，请添加！"
else
do while not rsn.eof%><form method="post" action="ad_sort.asp?action=editb&nsort_id=<%=rsn("nsort_id")%>">
<tr><td align="center"><input name="nsort_name" type="text" size="20" value="<%=rsn("nsort_name")%>"></td>
<td align="center"><select size="1" name="sort_id">
<%
set rsc=server.CreateObject("adodb.recordset")
rsc.open "select * from venshop_sort",conn,1,1
do while not rsc.eof%>
<%if rsc("sort_id")=rs("sort_id") then%>
<option selected value="<%=rsc("sort_id")%>"><%=rsc("sort_name")%></option>
<%else%>
<option value="<%=rsc("sort_id")%>"><%=rsc("sort_name")%></option>
<%end if%>
<%
rsc.movenext
loop
rsc.close
set rsc=nothing
%>
</select></td>
<td align="center">
<input name="nsort_xu" type="text" size="2" value="<%=rsn("nsort_xu")%>"></td>
<td align="center"><input type="submit" name="Submit" value="修改"> <a href=ad_sort.asp?action=delb&nsort_id=<%=rsn("nsort_id")%> onClick="return confirm('您确定进行删除操作吗？')">删除</a></td></tr></form>
<%
rsn.movenext
loop
end if
rsn.close
set rsn=nothing%>
</table>
</td></tr>
<%
rs.movenext
loop
rs.close
set rs=nothing%>
<tr><td colspan="6" height="20"><font color="#FF0000">删除一级分类，将同时被删除该分类下所有二级分类和商品</font></td></tr>
</table>
<br>
<table border="0" cellpadding="5" cellspacing="0" class="st">
<form method="post" action="ad_sort.asp?action=adda">
<tr>
<td align="center" bgcolor="#FFFFFF" width="20%"><font color="#FF0000"><b>一级分类添加：</b></font></td>
<td align="center" bgcolor="#FFFFFF" width="30%">名称：<input name="sort_name" type="text" size="20"></td>
<td align="center" bgcolor="#FFFFFF">
页面风格：<select size="1" name="sort_skin">
<option value="">与首页统一</option>
<%for i=0 to ubound(askin)%>
<option value="<%=askin(i)%>"><%=bskin(i)%></option>
<%next%>
</select></td>
<td align="center" bgcolor="#FFFFFF" width="10%">
序号：<input name="sort_xu" type="text" size="5" value="0"></td>
<td align="center" bgcolor="#FFFFFF" width="10%">
<input type="submit" name="Submit2" value="添 加"></td>
</tr>
</form></table>
<br>
<table border="0" cellpadding="5" cellspacing="0" class="st">
<form method="post" action="ad_sort.asp?action=addb">
<tr>
<td align="center" bgcolor="#FFFFFF" width="20%"><font color="#FF0000"><b>二级分类添加：</b></font></td>
<td align="center" width="30%">名称：<input name="nsort_name" type="text" size="20"></td>
<td align="center" bgcolor="#FFFFFF">所属大类：<select size="1" name="sort_id">
<%
set rsc=server.CreateObject("adodb.recordset")
rsc.open "select * from venshop_sort",conn,1,1
do while not rsc.eof%>
<option value="<%=rsc("sort_id")%>"><%=rsc("sort_name")%></option>
<%
rsc.movenext
loop
rsc.close
set rsc=nothing
%>
</select></td>
<td align="center" width="10%">序号：<input name="nsort_xu" type="text" size="5" value="0"></td>
<td align="center" width="10%">
<input type="submit" name="Submit2" value="添 加"></td>
</tr>
</form></table>
</body>
</html><!--#include file="ad_bottom.asp"-->