📄 admin_class.asp
字号:
<!--#include file=conn.asp-->
<!--#include file=admin_chkpass.asp-->
<!-- POWERED BY 7wap Enterprise Mobile Infomation System ●<%=now()%>-->
<html>
<head>
<title><%=ewap_name%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="Generator" content="<%=ewap_name%>">
<meta name="copyright" content="sunyanqing">
<link rel='stylesheet' href='Ewap.css' type='text/css'>
</head>
<body>
<div class=main>
<%
Dim action
action=Request.QueryString("action")
select case action
'增加分类
case "add"
If trim(request("class_n"))="" then
response.write"<script>alert('"&ewap_(34)&"');window.document.location.href='Admin_Class.asp'</script>"
response.end
end if
Dim sql5,rs5
set rs5=server.createobject("ADOdb.Recordset")
sql5="select * from class where class_name='"&trim(request("class_n"))&"' and p_class="&int(request("p"))
rs5.open sql5,cn,1,3
If rs5.eof and rs5.bof then
insql="insert into class(class_name,p_class) values('"&trim(request("class_n"))&"','"&int(request("p"))&"')"
cn.execute insql
If not err then
response.write"<script>alert('"&ewap_(30)&"');window.document.location.href='Admin_Class.asp'</script>"
else
response.write"<script>alert('"&ewap_(34)&"');window.document.location.href='Admin_Class.asp'</script>"
End If
else
response.write"<script>alert('"&ewap_(65)&"');window.document.location.href='Admin_Class.asp'</script>"
response.end
End If
rs5.close
set rs5=nothing
'删除分类
case "delete"
dim rs21,sql21
set rs21=server.createobject("ADOdb.Recordset")
sql21="select * from class where p_class="&int(request("cid"))
rs21.open sql21,cn,1,1
If not rs21.eof then
rs21.close
set rs21=nothing
response.write"<script>alert('"&ewap_(67)&"');window.document.location.href='Admin_Class.asp'</script>"
response.end
end If
dim rs26,sql26
set rs26=server.createobject("ADOdb.Recordset")
sql26="select * from news where nclass="&int(request("cid"))
rs26.open sql26,cn,1,1
If not rs26.eof then
rs26.close
set rs26=nothing
response.write"<script>alert('"&ewap_(68)&"');window.document.location.href='Admin_Class.asp'</script>"
response.end
end If
dim rs2,sql2
set rs2=server.createobject("ADOdb.Recordset")
sql2="select * from class where id="&int(request("cid"))
rs2.open sql2,cn,1,3
rs2.delete
rs2.update
If not err then
response.write"<script>alert('"&ewap_(30)&"');window.document.location.href='Admin_Class.asp'</script>"
else
response.write"<script>alert('"&ewap_(34)&"');window.document.location.href='Admin_Class.asp'</script>"
End If
rs2.close
set rs2=nothing
case "edit"
%>
<span class=title><%=ewap_(63)%></span>
<div class=body>
<%
dim rs3,rs4,sql4,sql3,c_n,nclass
nclass=int(request("cid"))
set rs3=server.createobject("ADOdb.Recordset")
sql3="select * from class where id="&nclass
rs3.open sql3,cn,1,1
c_n=rs3("class_name")
p_n=rs3("p_class")
rs3.close
set rs3=nothing
If p_n<>0 then
set rs6=server.createobject("ADOdb.Recordset")
sql6="select * from class where id="&p_n
rs6.open sql6,cn,1,1
c=rs6("class_name")
rs6.close
set rs6=nothing
set rs4=server.createobject("ADOdb.Recordset")
sql4="select * from class where (id<>"&nclass&" and id <>"&p_n&") and p_class=0"
rs4.open sql4,cn,1,1
%>
<form action="Admin_Class_Edit.asp" Method="POST">
<input name="cid" type=hidden value="<%=request("cid")%>">
<%=ewap_(59)%><br/>
<input name="class_n" value=<%=c_n%> type="text" size="14"><br/>
<%=ewap_(60)%><br/>
<select name="p"><option value="<%=p_n%>" checked><%=c%></option>
<option value="0"><%=ewap_(64)%></option>
<%
else
set rs4=server.createobject("ADOdb.Recordset")
sql4="select * from class where id<>"&nclass&" and p_class=0"
rs4.open sql4,cn,1,1
%>
<form action="Admin_Class_Edit.asp" Method="POST">
<input name="cid" type=hidden value="<%=request("cid")%>">
<%=ewap_(59)%><br/>
<input name="class_n" value=<%=c_n%> type="text" size="14"><br/>
<%=ewap_(60)%><br/>
<select name="p">
<option value="0"><%=ewap_(64)%></option>
<%
end if
do while not rs4.eof
%>
<option value="<%=rs4("id")%>"><%=rs4("class_name")%></option>
<%
rs4.movenext
loop
rs4.close
set rs4=nothing
%>
</select>
<br/>
<input type="submit" value="<%=ewap_(13)%>">
</form></div>
<%
case else
%>
<span class=title><%=ewap_(61)%></span>
<div class=body>
<%
dim rs,sql
set rs=server.createobject("ADOdb.Recordset")
sql="select * from class where p_class=0"
rs.open sql,cn,1,1
%>
<form action="Admin_Class.asp?action=add" Method="POST">
<%=ewap_(59)%><br/><input name="class_n" value="" type="text" size="14" ><br/>
<%=ewap_(60)%><br/>
<select name="p"><option value="0"><%=ewap_(64)%></option>
<%
do while not rs.eof
%>
<option value="<%=rs("id")%>"><%=rs("class_name")%></option>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
</select><br/>
<input type="submit" value="<%=ewap_(13)%>">
</form>
</div>
<span class=title><%=ewap_(62)%></span>
<div class=body>
<%
dim rs1,sql1
set rs1=server.createobject("ADOdb.Recordset")
sql1="select * from class where p_class=0"
rs1.open sql1,cn,1,1
If rs1.eof then
response.write "暂无栏目分类"
else
do while not rs1.eof
%>
〓<%=rs1("class_name")%> <a href="?action=edit&cid=<%=rs1("id")%>">『<%=ewap_(4)%>』</a><a href="?action=delete&cid=<%=rs1("id")%>">『<%=ewap_(3)%>』</a><br/>
<%
dim rs11,sql11
set rs11=server.createobject("ADOdb.Recordset")
sql11="select * from class where p_class="&rs1("id")
rs11.open sql11,cn,1,1
do while not rs11.eof
%>
<%=rs11("class_name")%> <a href="?action=edit&cid=<%=rs11("id")%>">『<%=ewap_(4)%>』</a><a href="?action=delete&cid=<%=rs11("id")%>">『<%=ewap_(3)%>』</a><br/>
<%
rs11.movenext
loop
%>
<%
rs1.movenext
loop
rs11.close
set rs11=nothing
rs1.close
set rs1=nothing
end If
%>
</div>
<%
end select
cn.close
set cn=nothing
%>
<!--#include file=admin_menu.asp--> </div>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -