📄 smallclass.asp
字号:
<!--#include file="Conn.ASP"--><!--#include file="char.inc"-->
<!--#include file="../include/config.ASP"--><!--#include file="chkuser.asp" -->
<%
IF not(request.cookies("KEY")="super" or request.cookies("key")="check" or request.cookies("key")="typemaster" or request.cookies("key")="bigmaster" or request.cookies("key")="smallmaster" or request.cookies("key")="selfreg") THEN
response.redirect "index_face.asp"
response.end
else
usernamecookie=CheckStr(request.cookies("UserName"))
passwdcookie=replace(trim(Request.cookies("passwd")),"'","''")
KEYcookie=replace(trim(request.cookies("KEY")),"'","''")
if usernamecookie="" or passwdcookie="" then
response.redirect "login.asp"
response.end
else
'判断用户的合法性
set rs=server.createobject("adodb.recordset")
sql="select * from admin where username='"&usernamecookie&"'"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.redirect "login.asp"
response.end
end if
IF passwdcookie<>rs("passwd") THEN
response.redirect "login.asp"
response.end
END IF
'下面判断用户级别实际在有用户级别是都应该判断
if KEYcookie<>rs("OSKEY") then
response.redirect "index_face.asp"
response.end
end if
rs.close
set rs=nothing
END IF
END IF
%>
<%if request.cookies("key")<>"smallmaster" then
dim bigclassid,bigclassname,typename,typeid
bigclassid=request("bigclassid")
if bigclassid="" then
Response.Write "<script>alert('未指定参数');history.back()</script>"
response.end
else
if not IsNumeric(bigclassid) then
response.write "<script>alert('非法参数');history.back()</script>"
response.end
else
end if
end if
Set rs = Server.CreateObject("ADODB.Recordset")
sql="SELECT * From bigclass where bigclassid="&bigclassid
RS.open sql,Conn,3,3
bigclassname=rs("bigclassname")
typeid=rs("typeid")
master5=rs("bigclassmaster")
if master5<>"" then
bigmaster5=split(master5,"|")
for i=0 to ubound(bigmaster5)
if request.cookies("username")=trim(bigmaster5(i)) then
bigclassmaster5=true
exit for
else
bigclassmaster5=false
end if
next
end if
Set rs1 = Server.CreateObject("ADODB.Recordset")
sql1="SELECT * From type where typeid="&typeid
RS1.open sql1,Conn,3,3
typename=rs1("typename")
master4=rs1("typemaster")
if master4<>"" then
tmaster4=split(master4,"|")
for i=0 to ubound(tmaster4)
if request.cookies("username")=trim(tmaster4(i)) then
typemaster4=true
exit for
else
typemaster4=false
end if
next
end if
rs1.close
set rs1=nothing
rs.close
set rs=nothing
end if
if typemaster4=true or request.cookies("key")="super" or request.cookies("key")="check" or bigclassmaster5=true or request.cookies("key")="smallmaster" or request.cookies("key")="selfreg" then
%>
<html>
<META HTTP-EQUIV="Pragma" CONTENT="no-cache">
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href=site.css rel=stylesheet>
<title><%=copyright%><%=version%> <%=ver%> - 文章管理</title>
<script>
function IsDigit()
{
return ((event.keyCode >= 48) && (event.keyCode <= 57));
}
</script>
</head>
<body topmargin="0"><!--#include file=top.asp--><br>
<center>
<table border="1" width="750" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="<%=border%>" bgcolor=<%=m_top%>>
<form method="post" action="smallclassset.asp?action=update">
<%if request.cookies("key")<>"smallmaster" then%>
<tr height=25><td colspan="8"> <a href=typemanage.asp>全部总栏</a>
</td></tr>
<tr height=25><td colspan="8"> <img src=images/menu1.gif><b><a href="bigclass.asp?typeid=<%=typeid%>"><font color=red><%=typename%></font></a></b>
其他总栏：
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql ="SELECT * From type where typeid<>"&typeid&" order by typeorder"
RS.open sql,Conn,3,3
do while not rs.EOF
master1=rs("typemaster")
if master1<>"" then
tmaster1=split(master1,"|")
for i=0 to ubound(tmaster1)
if request.cookies("username")=trim(tmaster1(i)) then
typemaster1=true
exit for
else
typemaster1=false
end if
next
end if
if (request.cookies("key")="typemaster" and typemaster1=true) or request.cookies("key")="super" or request.cookies("key")="check" or request.cookies("key")="selfreg" then
%><a href=bigclass.asp?typeid=<%=rs("typeid")%>><%=rs("typename")%></a>
<%end if
rs.movenext
loop
rs.close
set rs=nothing%></td></tr>
<tr height=25><td colspan="8"> <img src=images/menu1.gif><b><a href="smallclass.asp?bigclassid=<%=bigclassid%>"><font color=red><%=bigclassname%></font></a></b>
其他大类：
<%if request.cookies("key")<>"bigmaster" then
Set rs = Server.CreateObject("ADODB.Recordset")
sql ="SELECT * From bigclass where typeid="&typeid&" and bigclassid<>"&bigclassid&" order by bigclassorder"
RS.open sql,Conn,3,3
do while not rs.EOF
%><a href=smallclass.asp?bigclassid=<%=rs("bigclassid")%>><%=rs("bigclassname")%></a>
<%rs.movenext
loop
rs.close
set rs=nothing
else
Set rs = Server.CreateObject("ADODB.Recordset")
sql ="SELECT * From bigclass where bigclassid<>"&bigclassid&" order by bigclassorder"
RS.open sql,Conn,3,3
do while not rs.EOF
master=rs("bigclassmaster")
if master<>"" then
bigmaster=split(master,"|")
for i=0 to ubound(bigmaster)
if request.cookies("username")=trim(bigmaster(i)) then
bigclassmaster=true
exit for
else
bigclassmaster=false
end if
next
end if
if (bigclassmaster=true and request.cookies("key")="bigmaster") then
%><a href=smallclass.asp?bigclassid=<%=rs("bigclassid")%>><%=rs("bigclassname")%></a>
<%end if
rs.movenext
loop
rs.close
set rs=nothing
end if
%>
</td>
</tr>
<%end if
Set rs6 = Server.CreateObject("ADODB.Recordset")
if request.cookies("key")<>"smallmaster" then
sql6 ="SELECT * From SmallClass where bigclassid="&bigclassid&" order by SmallClassorder"
else
sql6 ="SELECT * From SmallClass order by SmallClassorder"
end if
RS6.open sql6,Conn,3,3
%>
<tr align=center height=25><td></td>
<td>小类名称</td>
<td>小类注释</td>
<td>小类显示</td>
<td>属于大类</td>
<td>小类排序<br>(必填项，数字)</td>
<td>小类管理员<br>(可以多个，用|分隔)</td>
<td>删除</td></tr>
<%
do while not rs6.eof
if request.cookies("key")="smallmaster" then
dim smallclassmaster,smallmaster,master2
master2=rs6("smallclassma")
if master2<>"" then
smallmaster=split(master2,"|")
for i=0 to ubound(smallmaster)
if request.cookies("username")=trim(smallmaster(i)) then
smallclassmaster=true
exit for
else
smallclassmaster=false
end if
next
end if
end if
%>
<%
set rstype=createobject("adodb.recordset")
if request.cookies("key")<>"smallmaster" then
sql="select * from bigclass where typeid="&typeid&" order by bigclassorder "
else
sql="select * from bigclass where bigclassid="&rs6("bigclassid")&" order by bigclassorder "
end if
rstype.Open sql,conn,1,3
%>
<%if request.cookies("key")="super" or request.cookies("key")="check" or (request.cookies("key")="typemaster" and typemaster4=true) or (request.cookies("key")="bigmaster") or (smallclassmaster=true and request.cookies("key")="smallmaster") or request.cookies("key")="selfreg" then%>
<tr height=25><td>
<img src=images/menu1.gif>
<a href="listnews.asp?smallclassid=<%=rs6("SmallClassID")%>" title="<%if rs6("smallClasszs")<>"" then%><%=rs6("smallClasszs")%><%else%>无<%end if%>"><%=rs6("smallClassName")%></a></td>
<td align=center><input type="hidden" name="smallclassid" value="<%=rs6("smallclassid")%>">
<input class=text type="text" name="smallclassname" size="10" value="<%=rs6("smallclassname")%>" <%if not(request.cookies("key")="super" or request.cookies("key")="typemaster" or request.cookies("key")="bigmaster") then%>disabled<%end if%>></td>
<td align=center><input class=text type="text" name="smallclasszs" size="10" value="<%=rs6("smallclasszs")%>" <%if not(request.cookies("key")="super" or request.cookies("key")="typemaster" or request.cookies("key")="bigmaster") then%>disabled<%end if%>></td>
<td align=center><select size="1" name="smallclassview" style="font-family: 宋体; font-size: 9pt" <%if not(request.cookies("key")="super" or request.cookies("key")="typemaster" or request.cookies("key")="bigmaster") then%>disabled<%end if%>>
<option <%if rs6("smallclassview")="1" then%> selected <%end if%> value="1">显示</option>
<option <%if rs6("smallclassview")="0" then%> selected <%end if%> value="0">不显示</option>
</select></td>
<td align=center>
<select name="bigclassid" style="font-family: 宋体; font-size: 9pt" <%if not(request.cookies("key")="super" or request.cookies("key")="typemaster" or request.cookies("key")="bigmaster") then%>disabled<%end if%>>
<%if (request.cookies("key")="typemaster" and typemaster1=true) or request.cookies("key")="super" or request.cookies("key")="selfreg" then
do while not rstype.EOF%>
<option value="<%=rstype("bigclassid")%>" <%if rs6("bigclassid")=cint(rstype("bigclassid")) then%>selected<%end if%>
><%=rstype("bigclassname")%></option>
<%
rstype.MoveNext
loop
end if
if request.cookies("key")="bigmaster" then
%>
<option value="<%=bigclassid%>"><%=bigclassname%></option>
<%end if
if request.cookies("key")="smallmaster" and smallclassmaster=true then
%>
<option value="<%=rstype("bigclassid")%>"><%=rstype("bigclassname")%></option>
<%end if%>
</select></td>
<td align=center><input class=text type="text" name="smallclassorder" size="10" value="<%=rs6("smallclassorder")%>" ONKEYPRESS="event.returnValue=IsDigit();" <%if not(request.cookies("key")="super" or request.cookies("key")="typemaster" or request.cookies("key")="bigmaster") then%>disabled<%end if%>></td>
<td align=center><input class=text type="text" name="smallclassma" size="10" value="<%=rs6("smallclassma")%>" <%if not(request.cookies("key")="super" or request.cookies("key")="typemaster" or request.cookies("key")="bigmaster") then%>disabled<%end if%>></td>
<td align=center><%if request.cookies("key")="super" or request.cookies("key")="typemaster" or request.cookies("key")="bigmaster" then%><a href="smallclasskill.asp?smallclassid=<%=rs6("smallclassid")%>">删除</a><%end if%></td></tr>
<%end if
RS6.MoveNext
Loop
set rstype=nothing
rs6.close
set rs6=nothing
%>
<tr>
<td colspan="8" height=25 align="center" width="100%" bgcolor="#FFFFFF"><input type="submit" name="Submit2" value="保存" style="font-family: 宋体; font-size: 9pt" <%if not(request.cookies("key")="super" or request.cookies("key")="typemaster" or request.cookies("key")="bigmaster") then%>disabled<%end if%>></td>
</tr></form>
<%if (request.cookies("key")="bigmaster") or request.cookies("key")="super" or (request.cookies("key")="typemaster" and typemaster1=true) then%>
<form method="post" action="smallclassset.asp?action=add">
<tr height=25><td> <img src=images/menu1.gif>添加小类
</td>
<td align=center><input class=text type="text" name="smallclassname" size="10"></td>
<td align=center><input class=text type="text" name="smallclasszs" size="10"></td>
<td align=center><select size="1" name="smallclassview" style="font-family: 宋体; font-size: 9pt">
<option selected value="1">显示</option>
<option value="0">不显示</option>
</select></td>
<td align=center><%
set rstype=createobject("adodb.recordset")
if request.cookies("key")="typemaster" or request.cookies("key")="super" then
sql="select * from bigclass where typeid="&typeid&" order by bigclassorder "
else
sql="select * from bigclass order by bigclassorder "
end if
rstype.Open sql,conn,1,3
%>
<select name="bigclassid" style="font-family: 宋体; font-size: 9pt">
<%if request.cookies("key")<>"bigmaster" then
do while not rstype.EOF%>
<option <%if bigclassid=trim(rstype("bigclassid")) then%>selected<%end if%> value="<%=rstype("bigclassid")%>"><%=rstype("bigclassname")%></option>
<%
rstype.MoveNext
loop
else
%>
<option value="<%=bigclassid%>"><%=bigclassname%></option>
<%end if%>
</select>
</td>
<td align=center><input class=text type="text" name="smallclassorder" size="10" ONKEYPRESS="event.returnValue=IsDigit();"></td>
<td align=center><input class=text type="text" name="smallclassma" size="10"></td>
<td align=center><input type="hidden" name="typeid" value="<%=typeid%>"><input type="submit" name="Submit2" value="添加" style="font-family: 宋体; font-size: 9pt"></td>
</tr>
</form>
<%
set rstype=nothing
end if
if request.cookies("key")<>"smallmaster" then
%>
<tr height=25><td colspan="8" align=center><input type=button value="在此大类发表新文章" class=button onclick="javascript:window.open('newsadd1.asp?bigclassid=<%=bigclassid%>','_self','')">
<input type=button value="本大类中的无小类的文章" class=button onclick="javascript:window.open('smallno.asp?bigclassid=<%=bigclassid%>','_self','')">
</td></tr>
<%end if%>
</table>
</center>
</body>
</html>
<%else
response.write "<script>alert('对不起，你无权操作！');history.go(-1);</Script>"
Response.End
end if
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -