📄 admin_class.asp
字号:
<!--#include file="md5.asp" -->
<!--#include file="conn.asp" -->
<!--#include file="sub.asp" -->
<head>
<link href="css.css" rel="stylesheet" type="text/css" />
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title><%=webname%></title>
</head>
<%
Response.Buffer = True
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
if session("user")="" and session("zdqx")<>"alladmin" then
response.write"<script language=javascript>alert('你不能执行该操作,可能原因\n\n1、不是管理员\n\n2、你还没有登陆\n\n3、或者登陆超时\n\n4、没有该操作权限');location.href='index.asp' </script>"
response.End()
end if
if request.QueryString("act")="addclass" then '添加分类
if trim(request.Form("c_name"))="" then
mgbox"添加分类名字不能为空"
response.End()
end if
set rst=server.createobject("adodb.recordset")
rst.open "select * from zdfl ",conn,1,3
rst.addnew
rst("f_name")=trim(request.Form("c_name"))
rst.update
rst.close
response.write"<script language=javascript>alert('分类添加成功！');location.href='admin_class.asp?act=edit' </script>"
response.End()
end if
if request.QueryString("act")="editclass" then '修改分类
if trim(request.Form("c_name1"))="" then
mgbox"分类名字不能为空"
response.End()
end if
set rs1=server.createobject("adodb.recordset")
rs1.open "select * from zdfl where cint(f_id)='"&request.Form("c_id")&"'",conn,1,3
rs1("f_name")=trim(request.Form("c_name1"))
rs1.update
rs1.close
response.write"<script language=javascript>alert('分类修改成功！');location.href='admin_class.asp?act=edit' </script>"
response.End()
end if
if request.QueryString("act")="delclass" then '删除分类
set rs1=server.createobject("adodb.recordset")
rs1.open "select * from zdfl where cint(f_id)='"&request.Form("c_id2")&"'",conn,1,3
rs1.delete
rs1.close
rs1.open "select * from zdi where cint(m_flid)='"&cint(request.Form("c_id2"))&"'",conn,1,3
do while not rs1.eof
rs1.delete
rs1.movenext
loop
rs1.close
response.write"<script language=javascript>alert('分类删除成功！');location.href='admin_class.asp?act=del' </script>"
response.End()
end if
%>
<body>
<table width="100%" border="0" align="center" cellpadding="3" cellspacing="0" >
<% if request.QueryString("act")="add" then%>
<tr bordercolor="#0099CC" bgcolor="#0099CC">
<td align="center" class="dhzi" >分类添加</td>
</tr>
<tr bordercolor="#0099CC" >
<td align="right" >
<form name="form1" method="post" action="admin_class.asp?act=addclass">
<table width="100%" border="0" cellpadding="3" cellspacing="0">
<tr onMouseOver="this.bgColor='#E1F8FF';" onMouseOut="this.bgColor='#ffffff';">
<td width="28%" align="right" class="biaogebiankuang">分类名字：</td>
<td width="33%" align="left" class="biaogebiankuang"><input name="c_name" type="text" id="c_name" value="" size="30"></td>
<td width="39%" class="biaogebiankuang"><input type="submit" name="Submit2" value="添 加" style="BACKGROUND-COLOR: #2071a0; BORDER-BOTTOM: 1px double; BORDER-LEFT: 1px double; BORDER-RIGHT: 1px double; BORDER-TOP: 1px double; COLOR: #eeeeee; TEXT-ALIGN: center" onMouseOver="this.style.color='#ffff00'"onMouseOut="this.style.color='#eeeeee'" /></td>
</tr>
<tr>
<td colspan="3" align="center" bgcolor="#0099CC" class="biaogebiankuang"><span class="dhzi">已有分类</span></td>
</tr>
<%
set rsc=server.createobject("adodb.recordset")
rsc.open "select * from zdfl",conn,1,1
do while not rsc.eof
%>
<tr>
<td colspan="3" align="center" class="biaogebiankuang"><%=rsc("f_name")%></td>
</tr>
<%
rsc.movenext
loop
rsc.close
%>
</table>
</form> </td>
</tr>
<%end if%>
<%if request.QueryString("act")="edit" then%>
<tr bordercolor="#0099CC" bgcolor="#0099CC" >
<td align="center" class="biaogebiankuang" ><span class="dhzi">分类修改</span></td>
</tr>
<tr bordercolor="#0099CC" >
<%
set rsc=server.createobject("adodb.recordset")
rsc.open "select * from zdfl",conn,1,1
%>
<td align="right" class="biaogebiankuang" >
<%do while not rsc.eof%>
<form name="form2" method="post" action="admin_class.asp?act=editclass">
<table width="100%" border="0" align="center" cellpadding="3" cellspacing="0" >
<tr bordercolor="#0099CC" onMouseOver="this.bgColor='#E1F8FF';" onMouseOut="this.bgColor='#ffffff';">
<td width="28%" align="right" class="biaogebiankuang" ><p>分类名字：</p></td>
<td width="33%" align="left" class="biaogebiankuang" ><input name="c_name1" type="text" id="c_name1" value="<%=rsc("f_name")%>" size="30">
<input name="c_id" type="hidden" id="c_id" value="<%=rsc("f_id")%>"></td>
<td width="39%" align="left" class="biaogebiankuang" ><input type="submit" name="Submit23" value="修 改" style="BACKGROUND-COLOR: #2071a0; BORDER-BOTTOM: 1px double; BORDER-LEFT: 1px double; BORDER-RIGHT: 1px double; BORDER-TOP: 1px double; COLOR: #eeeeee; TEXT-ALIGN: center" onMouseOver="this.style.color='#ffff00'"onMouseOut="this.style.color='#eeeeee'" /></td>
</tr>
</table>
</form>
<%rsc.movenext
loop
rsc.close
set rsc=nothing%></td>
</tr>
<% end if%>
<%if request.QueryString("act")="del" then%>
<tr bordercolor="#0099CC" bgcolor="#0099CC" onMouseOver="this.bgColor='#E1F8FF';" onMouseOut="this.bgColor='#ffffff';">
<td align="center" bgcolor="#0099CC" class="biaogebiankuang" ><span class="dhzi">删除分类</span></td>
</tr>
<tr bordercolor="#0099CC" >
<td align="left" class="biaogebiankuang" ><font color="#FF0000">*删除分类将会删除该分类下的所有文章。</font></td>
</tr>
<tr bordercolor="#0099CC" >
<%
set rsc=server.createobject("adodb.recordset")
rsc.open "select * from zdfl",conn,1,1
%>
<td align="right" class="biaogebiankuang" ><%do while not rsc.eof%>
<form name="form2" method="post" action="admin_class.asp?act=delclass">
<table width="100%" border="0" align="center" cellpadding="3" cellspacing="0" >
<tr bordercolor="#0099CC" onMouseOver="this.bgColor='#E1F8FF';" onMouseOut="this.bgColor='#ffffff';">
<td width="28%" align="right" class="biaogebiankuang" ><p>分类名字：</p></td>
<td width="33%" align="center" class="biaogebiankuang" ><%=rsc("f_name")%><input name="c_id2" type="hidden" id="c_id2" value="<%=rsc("f_id")%>"></td>
<td width="39%" align="left" class="biaogebiankuang" ><input type="submit" name="Submit23" value="删 除" style="BACKGROUND-COLOR: #2071a0; BORDER-BOTTOM: 1px double; BORDER-LEFT: 1px double; BORDER-RIGHT: 1px double; BORDER-TOP: 1px double; COLOR: #eeeeee; TEXT-ALIGN: center" onMouseOver="this.style.color='#ffff00'"onMouseOut="this.style.color='#eeeeee'" /></td>
</tr>
</table>
</form>
<%
rsc.movenext
loop
rsc.close
set rsc=nothing
%>
</td>
</tr>
<%end if%>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -