<%
Sub DelDown
Set sss = Conn.Execute("Select * From [BigClassDown] Where ID="&Cint(Request("id")))
bbb = sss("DownType")
Set bs = Conn.Execute("Delete * From [DownLoad] Where [DownType]='"&bbb&"'")
Set nn = Conn.Execute("Delete * From [BigClassDown] Where [DownType]='"&bbb&"'")
JaSys("管理员" & session("ManagerUser") & "<font color=red>删除下载类别ID"&Request("id")&"</font>成功")
Response.Redirect "Down_ClassManage.asp" 
End Sub

Sub AddDownClass
AddStr = AddStr & "<table width=100% height=40% border=0 cellpadding=0 cellspacing=0>"
AddStr = AddStr & "<tr>" 
AddStr = AddStr & "<td height=153 align=center valign=top>" 
AddStr = AddStr & "<table width=80% border=0 cellpadding=0 cellspacing=0>"
AddStr = AddStr & "<tr>" 
AddStr = AddStr & "<td align=center valign=top><br>"
AddStr = AddStr & "<strong>下 载 类 别 添 加</strong><br>" 
AddStr = AddStr & "<form name=form1 method=post action='Down_EditClass.asp?action=add' onsubmit='return checkBig()'>"
AddStr = AddStr & "<table width=350 border=0 align=center cellpadding=2 cellspacing=1 class=tableBorder>"
AddStr = AddStr & "<tr>" 
AddStr = AddStr & "<td height=25 colspan=2 align=center><strong>添加类别</strong></td>"
AddStr = AddStr & "</tr>"
AddStr = AddStr & "<tr>" 
AddStr = AddStr & "<td width=126 height=22>" 
AddStr = AddStr & "<div align=right>类别名称：</div></td>"
AddStr = AddStr & "<td width=218>"
AddStr = AddStr & "<input name='ClassName' type=text size=20 maxlength=30>"
AddStr = AddStr & "</td>"
AddStr = AddStr & "</tr>"
AddStr = AddStr & "<tr>" 
AddStr = AddStr & "<td height=22 align=center>&nbsp; </td>"
AddStr = AddStr & "<td height=30 align=center>" 
AddStr = AddStr & "<div align=left>" 
AddStr = AddStr & "<input name=Add type=submit value=' 添 加 '>"
AddStr = AddStr & "</div></td>"
AddStr = AddStr & "</tr>"
AddStr = AddStr & "</table>"
AddStr = AddStr & "</form></td>"
AddStr = AddStr & "</tr>"
AddStr = AddStr & "</table>" 
Response.Write AddStr
End Sub

Sub EditDownClass
AddStr = AddStr & "<table width=100% height=40% border=0 cellpadding=0 cellspacing=0>"
AddStr = AddStr & "<tr>" 
AddStr = AddStr & "<td height=153 align=center valign=top>" 
AddStr = AddStr & "<table width=80% border=0 cellpadding=0 cellspacing=0>"
AddStr = AddStr & "<tr>" 
AddStr = AddStr & "<td align=center valign=top><br>"
AddStr = AddStr & "<strong>下 载 类 别 修 改</strong><br>" 
AddStr = AddStr & "<form name=form1 method=post action='Down_EditClass.asp?action=down&id="&Request("id")& "' onsubmit='return checkBig()'>"
AddStr = AddStr & "<table width=350 border=0 align=center cellpadding=2 cellspacing=1 class=tableBorder>"
AddStr = AddStr & "<tr>" 
AddStr = AddStr & "<td height=25 colspan=2 align=center><strong>修改</strong></td>"
AddStr = AddStr & "</tr>"
AddStr = AddStr & "<tr>" 
AddStr = AddStr & "<td width=126 height=22>" 
AddStr = AddStr & "<div align=right>类别名称：</div></td>"
AddStr = AddStr & "<td width=218>"
      Set su = Conn.Execute("Select * From BigClassDown Where ID="&Cint(Request("id")))
      If Not su.Eof Then
      AddStr = AddStr & "<input name='ClassName' type=text size=20 value=" &su("DownType")& " maxlength=30>"
      End if 
AddStr = AddStr & "</td>"
AddStr = AddStr & "</tr>"
AddStr = AddStr & "<tr>" 
AddStr = AddStr & "<td height=22 align=center>&nbsp; </td>"
AddStr = AddStr & "<td height=30 align=center>" 
AddStr = AddStr & "<div align=left>" 
AddStr = AddStr & "<input name=Update type=submit value=' 修 改 '>"
AddStr = AddStr & "</div></td>"
AddStr = AddStr & "</tr>"
AddStr = AddStr & "</table>"
AddStr = AddStr & "</form></td>"
AddStr = AddStr & "</tr>"
AddStr = AddStr & "</table>" 
Response.Write AddStr
End Sub
%> 