📄 smallclassmanage.asp
字号:
<!--#include file="Conn.ASP"-->
<!--#include file="ConnUser.asp"-->
<!--#include file="config.ASP"-->
<!--#include file="char.inc"-->
<!--#include file="chkuser.asp" -->
<%
if request.cookies(Forcast_SN)("key")<>"smallmaster" then
dim bigclassid,bigclassname,typename,typeid
bigclassid=ChkRequest(request("bigclassid"),1) '防注入
if bigclassid="" then
Show_Err("未指定参数！<br><br><a href='javascript:history.back()'>返回</a>")
response.end
else
if not IsNumeric(bigclassid) then
Show_Err("非法参数！<br><br><a href='javascript:history.back()'>返回</a>")
response.end
end if
end if
Set rs = Server.CreateObject("ADODB.Recordset")
sql="SELECT * From "& db_BigClass_Table &" 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(Forcast_SN)("name")=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 "& db_Type_Table &" 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(Forcast_SN)("name")=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(Forcast_SN)("key")="super" or request.cookies(Forcast_SN)("key")="check" or bigclassmaster5=true or request.cookies(Forcast_SN)("key")="smallmaster" or request.cookies(Forcast_SN)("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%> - 文章管理完美设计网络科技有限公司 完美政府网站管理系统 http://www.wmgov.cn</title>
<style type=text/css>
body { background:#555555; margin:0px; font-family: Verdana, Arial, sans-serif, 宋体; font-size: 9pt; text-decoration: none; color:#555555;
SCROLLBAR-FACE-COLOR: #55919A;
SCROLLBAR-HIGHLIGHT-COLOR: #cccccc;
SCROLLBAR-SHADOW-COLOR: #cccccc;
SCROLLBAR-3DLIGHT-COLOR: #cccccc;
SCROLLBAR-ARROW-COLOR: #555555;
SCROLLBAR-TRACK-COLOR: #555555;
SCROLLBAR-DARKSHADOW-COLOR: #cccccc;}
table { border:0px; }
td { font:normal 12px; }
img { vertical-align:bottom; border:0px; }
a { font:normal 12px; color:#555555; text-decoration:none; }
a:hover { color:#ff6600;text-decoration:underline; }
.sec_menu { border-left:1px solid white; border-right:1px solid white; border-bottom:1px solid white; overflow:hidden; background:#eeeeee; }
.menu_title { }
.menu_title span { position:relative; top:2px; left:8px; color:#555555; font-weight:bold; }
.menu_title2 { }
.menu_title2 span { position:relative; top:2px; left:8px; color:#ff6600; font-weight:bold; }
</style>
<script>
function IsDigit()
{
return ((event.keyCode >= 48) && (event.keyCode <= 57));
}
</script>
</head>
<body topmargin="0">
<!--#include file=Admin_Top.asp-->
<center>
<table border="1" cellpadding="3" cellspacing="0" bgcolor="#FFFFFF" style="border-collapse: collapse" bordercolor="#C0C0C0" width="100%" id="AutoNumber1">
<form method="post" action="smallclassset.asp?action=update">
<%if request.cookies(Forcast_SN)("key")<>"smallmaster" then%>
<tr class="TDtop">
<td colspan="8">
<a href=typemanage.asp >全部总栏</a>
</td>
</tr>
<tr >
<td colspan="8"class="TDtop1">
<img src=images/menu1.gif>
<b>
<a href="BigClassManage.asp?TypeID=<%=typeid%>"><font color=red><%=typename%></font></a>
</b>
其他总栏：
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql ="SELECT * From "& db_Type_Table &" 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(Forcast_SN)("name")=trim(tmaster1(i)) then
typemaster1=true
exit for
else
typemaster1=false
end if
next
end if
if (request.cookies(Forcast_SN)("key")="typemaster" and typemaster1=true) or request.cookies(Forcast_SN)("key")="super" or request.cookies(Forcast_SN)("key")="check" or request.cookies(Forcast_SN)("key")="selfreg" then%>
<a href=BigClassManage.asp?typeid=<%=rs("typeid")%>><%=rs("typename")%></a>
<%end if
rs.movenext
loop
rs.close
set rs=nothing%>
</td>
</tr>
<tr >
<td colspan="8" class="TDtop1">
<img src=images/menu1.gif>
<b>
<a href="SmallClassManage.asp?BigClassID=<%=bigclassid%>"><font color=red><%=bigclassname%></font></a>
</b>
其他大类：
<%if request.cookies(Forcast_SN)("key")<>"bigmaster" then
Set rs = Server.CreateObject("ADODB.Recordset")
sql ="SELECT * From "& db_BigClass_Table &" where typeid="&typeid&" and bigclassid<>"&bigclassid&" order by bigclassorder"
RS.open sql,Conn,3,3
do while not rs.EOF%>
<a href=SmallClassManage.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 "& db_BigClass_Table &" 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(Forcast_SN)("name")=trim(bigmaster(i)) then
bigclassmaster=true
exit for
else
bigclassmaster=false
end if
next
end if
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -