📄 admin_cate.asp
字号:
<!--#include file="Config.asp" -->
<HTML><HEAD><TITLE>大类管理 </TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<meta name=keywords content="视听新时空（网络电视，网络广播，免费电影：全球最大的中文网络电视，广播网站）">
<link rel="stylesheet" href="admin.css" type="text/css">
</HEAD>
<SCRIPT LANGUAGE=javascript>
<!--
function Juge(myform)
{
if (myform.CateName.value == "")
{
alert("大类名称不能为空！");
myform.CateName.focus();
return (false);
}
}
function SelectAll() {
for (var i=0;i<document.selform.selCateID.length;i++) {
var e=document.selform.selCateID[i];
e.checked=!e.checked;
}
}
//-->
</script>
<BODY leftMargin=0>
<% dim sql,rs
if not isnull(UserName) and UserName<>"" then
if chkMaster(UserName) then
select case request("action")
case "add"
call SaveAdd()
case "modify"
call SaveModify()
case "del"
call delCate()
case "edit"
isEdit=True
call myform(isEdit)
case else
isEdit=False
call myform(isEdit)
end select
else
msgtitle="大类管理"
msginfo="<li>操作错误，你不是系统管理员，没有权限进行此项操作！</li>"
call Sysmsg(msgtitle,msginfo)
end if
else
msgtitle="大类管理"
msginfo="<li>操作错误，你没有登录系统！<li><a href=""User.Asp"" >点此登录系统</a></li>"
call Sysmsg(msgtitle,msginfo)
end if
sub SaveAdd
msgtitle="添加大类"
if trim(request("CateName"))="" then
msginfo="添加时出现错误，大类名称不能为空！"
else
set rs=server.createobject("adodb.recordset") '检查版面是否重名
rs.open "select * from "&CategoryName&"_Cate where CateName='" & trim(request("CateName")) & "'",conn,1,1
if not(rs.bof and rs.eof) then
msginfo="添加时出现错误，已经有相同名称的大类已存在！"
else
sql="insert into "&CategoryName&"_Cate(CateName) values('" & trim(request("CateName")) & "')"
conn.execute sql
msginfo="添加成功，<a href=""Admin_Cate.asp"">点此继续添加分类</a>！"
end if
rs.close
set rs=nothing
end if
call Sysmsg(msgtitle,msginfo)
end sub
sub SaveModify()
msgtitle="修改大类"
if trim(request("CateName"))="" then
msginfo="修改大类时出现错误，大类名称不能为空！"
else
set rs=server.createobject("adodb.recordset") '检查版面是否重名
rs.open "select * from "&CategoryName&"_Cate where CateName='" & trim(request("CateName")) & "'",conn,1,1
if not(rs.bof and rs.eof) then
msginfo="修改大类时出现错误，已经有相同名称的大类已存在！"
else
sql="update "&CategoryName&"_Cate set CateName='" & trim(request("CateName")) & "' where CateID=" & cstr(request("CateID"))
conn.execute sql
msginfo="修改成功，<a href=""Admin_Cate.asp"">点此返回大类管理页面</a>！"
end if
rs.close
set rs=nothing
end if
call Sysmsg(msgtitle,msginfo)
end sub
sub delCate()
msgtitle="删除大类"
conn.execute("delete from "&CategoryName&"_Cate where CateID in ("&Request.Form("selCateID")&")")
'删除该分类下的全部子分类及节目
conn.execute("delete from "&CategoryName&"_SubCate where CateID in ("&Request.Form("selCateID")&")")
conn.execute("delete from "&CategoryName&"_SoftInfo where CateID in ("&Request.Form("selCateID")&")")
msginfo="删除操作成功，该分类相关信息已全部删除，<a href=""Admin_Cate.asp"">点此返回大类管理页面</a>！"
call Sysmsg(msgtitle,msginfo)
end sub
%> <% sub myform(isEdit) %>
<table width="85%" border="0" align="center" cellpadding="3" cellspacing="1" class="tableBorder">
<tr>
<th height="23" colspan="2">
<%
set rs=server.createobject("adodb.recordset")
if isedit then
rs.open "select * from "&CategoryName&"_Cate where CateID=" & request("CateID"),conn,1,1
response.write "编辑大类"
else
response.write "添加大类"
end if %></th>
</tr>
<form name="myform" method="post" action="Admin_Cate.asp" onSubmit="return Juge(this)" >
<tr>
<td colspan="2" align="center" class="forumRow">
<input type="Hidden" name="action" value='<% If isedit then%>modify<% Else %>add<% End If %>'>
<%If isedit then%> <input type="Hidden" name="CateID" value='<%=request("CateID")%>'>
<%End If%>
大类名称：
<input type="text" name="CateName" maxlength=40 size="20" value='<% if isedit then
response.write rs("CateName")
rs.close
end if %>'> <input name="submit" type=submit value="确 定">
</td>
</tr>
</form>
<form name="selform" method="post" action="Admin_Cate.asp" >
<tr>
<td width="15%" align="center" class="forumRowHighlight">ID</td>
<td width="85%" class="forumRow">版面名称 </td>
</tr>
<%
rs.open "select * from "&CategoryName&"_Cate order by CateID asc",conn,1,1
if rs.bof and rs.eof then
response.write "目前没有任何版面"
else
do while not rs.eof %>
<tr>
<td width="15%" align="center" class="forumRowHighlight" ><%=rs("CateID")%></td>
<td width="85%" class="forumRow" >
<input name="selCateID" type="checkbox" id="selCateID" value="<%=rs("CateID")%>">
<a href="Admin_Cate.Asp?CateID=<%=rs("CateID")%>&action=edit" class="ArticleList"><%=rs("CateName")%></a></td>
</tr>
<% rs.movenext
loop
end if
rs.close
set rs=nothing
%>
<tr>
<td width="15%" align="center" class="forumRowHighlight">管理操作</td>
<td width="85%" class="forumRow"> 选择/反选
<input type="checkbox" name="checkbox" value="checkbox" onClick="javascript:SelectAll()">
<input onClick="{if(confirm('此操作同时将删除该分类下的全部子分类及节目！\n\n确定要执行此项操作吗？')){this.document.selform.submit();return true;}return false;}" type=submit value=删除 name=action2>
<input type="Hidden" name="action" value='del'> <font color="#FF0000">此操作同时将删除该分类下的全部子分类及节目</font></td>
</tr>
</form>
</table>
<% end sub
sub Sysmsg(msgtitle,msginfo)
%> <br> <table width="85%" border="0" align="center" cellpadding="3" cellspacing="1" class="tableBorder" >
<tr>
<th><%=msgtitle%></th>
</tr>
<tr>
<td class="forumRow"><%=msginfo%></td>
</tr>
<tr>
<td height="22" align="center" class="forumRowHighlight"><a href="javascript:history.go(-1)" ><<
返回上一页</a></td>
</tr>
</table>
<br>
<%end sub %>
</BODY></HTML>
<%
CloseDatabase
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -