<!--#include file="conn.asp" -->
<% adm_power_page=3 '分配本页的用户访问权限 %>
<!--#include file="admin_dn.asp" -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>:::管理页面:::</title>
<link href="css.css" rel="stylesheet" type="text/css">
<% 
if Trim(Request.QueryString("w"))="d" then
 sql="delete from paget_2 where id="&request("id")
 conn.execute(sql)



 %>
 <script language="VBScript" type="text/VBScript">
msgbox "删除小类成功!!!"
</script>

 <% end if %>
</head>

<body leftmargin="2" topmargin="0">
<p>网站推广管理 </p>
<table width="90%" height="65" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr bgcolor="#E4E4E4"> 
    <td height="17" colspan="4"> <font color="#990000"><strong>网站推广项目 </strong></font></td>
  </tr>
  <% 
  dim title(10),id1(10)
  i=0
  rs.open "paget_1",conn,1,1
  while not rs.eof 
  i=i+1
  title(i)=rs("title")
  id1(i)=rs("id")
  rs.movenext
  wend 
  rs.close
  
  for s=1 to i
  
   %>
  
  <tr bgcolor="#F3F3F3"> 
    <td height="21" colspan="3"> 　<img src="images/def1.gif" width="7" height="7">　 
      <%= title(s) %>
    </td>
    <td>[<a href="adm_13.asp?w=del&did=<%=id1(s)%>">删除</a>] 
      [<a href="adm_13_e.asp?id=<%=id1(s)%>">编辑</a>] 
      [<a href="adm_13_x.asp?id=<%=id1(s)%>&title=<%= title(s) %>">增加小类</a>]</td>
  </tr>
  <% 
 rs.open "select * from paget_2 where bh="&id1(s),conn,1,1
  while not rs.eof 
  
   %>
  <tr> 
    <td width="6%">&nbsp;</td>
    <td width="3%"><div align="center"><img src="images/def2.gif" width="5" height="8"></div></td>
    <td width="28%"><%=rs("title")  %></td>
    <td width="63%"> 　　　　　　　　　[<a href="adm_13_edit.asp?w=d&id=<%=rs("id")%>">删除</a>] 
      [<a href="adm_13_x1.asp?id=<%=rs("id")%>">编辑</a>]</td>
  </tr>
  <% 
  rs.movenext
  wend
  rs.close
  next
   %>
  
  
</table>
<p>&nbsp;</p>
<p><font color="#FF0000">注：删除大类时将会把下面的所有小类删除</font> </p>
</body>
</html>
