ad_type.asp 凡人网络购物系统 2008源码程序 - ASP源码程序

www.gusucode.com > 凡人网络购物系统 2008源码程序 > Admin/ad_type.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 then
response.write "你没有这个权限!"
response.end
end if
%>
<%
if request("types")="addtypename" then
Response.Redirect "ad_ven.asp"
response.end
end if

if request("types")="mod" then
sql="update venshop_type set typename='"&request("typename")&"',xu="&request("xu")&" where id="&request("id")
conn.execute(sql)
call editok(editt,"ad_type.asp","ad_type.asp")
end if

if request("types")="del" then
sql="delete from venshop_type where id="&request("id")
conn.execute(sql)
sql1="delete from venshop_book where typeid="&request("id")
conn.execute(sql1)
call deleok(delet,"ad_type.asp")
end if 
%>
<table border="0" cellpadding="5" cellspacing="0" class="st">
<form method="post" action="ad_type.asp">
<tr><td class="sa" colspan="5">新增栏目</td></tr>
<tr><td><input type="hidden" name="types" value="addtypename">
	名称：</td><td> <input type="text" name="typename" size="20"></td><td> 排列序号：</td><td> 
	<input type="text" name="xu" maxlength="10" size="20" value="0"></td><td> 
	<input type="submit" name="addtypename" value="  增加  "></td></tr></form></table>
<br>
<table border="0" cellpadding="5" cellspacing="0" class="st">
<tr> <td colspan="5" class="sa">管理栏目</td>
</tr>
<tr> <td bgcolor="#F0F0F0" class="s0">栏目名称</td>
<td bgcolor="#F0F0F0" class="s0">排列序号</td>
<td bgcolor="#F0F0F0" class="s0">内容管理</td>
<td bgcolor="#F0F0F0" class="s0">修改</td>
<td bgcolor="#F0F0F0" class="s0">删除</td></tr>
<%set rs=server.createobject("adodb.recordset")
sql="select * from venshop_type order by xu desc,id desc"
rs.open sql,conn,1,1
if not rs.eof then
rs.movefirst
for i=1 to rs.recordcount%>
<form name="form1" method="post" action="ad_type.asp?types=mod&id=<%=rs("id")%>"><tr> 
<td class="s<%=i mod 2%>"><input type="text" name="typename" value="<%=trim(rs("typename"))%>" maxlength="10" size="20"></td>
<td class="s<%=i mod 2%>">
<input type="text" name="xu" value="<%=rs("xu")%>" maxlength="10" size="20"></td>
<td class="s<%=i mod 2%>"><a href="ad_booktype.asp?id=<%=rs("id")%>">内容管理</a></td>
<td class="s<%=i mod 2%>"><input type="submit" name="mod" value="修改"></td>
<td class="s<%=i mod 2%>"><a href="ad_type.asp?types=del&id=<%=rs("id")%>" onClick="return confirm('您确定进行删除操作吗？')">删除</a></td>
</tr></form>
<%rs.movenext
next
end if
rs.close
set rs=nothing

%></table>
<br>
<div class="help">
备注：<br>栏目列表将在网站底部显示，当删除一个栏目时，将同时删除该分类下的所有内容！
</div><!--#include file="ad_bottom.asp"-->