📄 e_bigclassmanage.asp
字号:
<!--#include file="Conn.ASP"-->
<!--#include file="ConnUser.asp"-->
<!--#include file="config.asp"-->
<!--#include file="char.inc"-->
<!--#include file="chkuser.asp" -->
<%
if request.cookies(eChuang)("KEY")="smallmaster" then
response.redirect "E_SmallClassManage.asp"
response.end
else
if request.cookies(eChuang)("key")<>"bigmaster" then
dim typeid,typename
typeid=ChkRequest(request("typeid"),1) '防注入
if typeid="" then
Show_Err("未指定参数！<br><br><a href='javascript:history.back()'>返回</a>")
response.end
else
if not IsNumeric(typeid) 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_Type_Table &" where typeid="&typeid
RS.open sql,Conn,3,3
typename=rs("typename")
master=rs("typemaster")
if master<>"" then
tmaster=split(master,"|")
for i=0 to ubound(tmaster)
if request.cookies(eChuang)("username")=trim(tmaster(i)) then
typemaster=true
exit for
else
typemaster=false
end if
next
end if
rs.close
set rs=nothing
end if
if typemaster=true or request.cookies(eChuang)("key")="super" or request.cookies(eChuang)("key")="check" or request.cookies(eChuang)("key")="bigmaster" or request.cookies(eChuang)("key")="selfreg" then%>
<html>
<head>
<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">
<title><%=copyright%><%=version%> <%=ver%> - 大类管理_建站铺修正版_bbs.jzpu.com</title>
<script>
function IsDigit()
{
return ((event.keyCode >= 48) && (event.keyCode <= 57));
}
</script>
</head>
<LINK href=site.css rel=stylesheet>
</head>
<body topmargin="0">
<!--#include file=Admin_Top.asp-->
<table border="1" cellpadding="3" cellspacing="0" style="border-collapse: collapse" bordercolor="#FFDFBF" width="100%" id="AutoNumber1">
<%Set rs6 = Server.CreateObject("ADODB.Recordset")
if request.cookies(eChuang)("key")<>"bigmaster" then
sql6 ="SELECT * From "& db_BigClass_Table &" where typeid="&typeid&" order by BigClassorder"
else
sql6 ="SELECT * From "& db_BigClass_Table &" order by BigClassorder"
end if
RS6.open sql6,Conn,3,3
%>
<form method="post" action="E_BigClassSet.asp?action=update">
<%if request.cookies(eChuang)("key")<>"bigmaster" then%>
<tr class="TDtop">
<td colspan="9"><a href=E_TypeManage.asp >全部总栏</a></td>
</tr>
<tr class="TDtop1">
<td colspan="9"> <img src=images/menu1.gif>
<b>
<a href=E_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(eChuang)("username")=trim(tmaster1(i)) then
typemaster1=true
exit for
else
typemaster1=false
end if
next
end if
if (typemaster1=true and request.cookies(eChuang)("key")="typemaster") or request.cookies(eChuang)("key")="super" or request.cookies(eChuang)("key")="check" or request.cookies(eChuang)("key")="selfreg" then%>
<a href=E_BigClassManage.asp?typeid=<%=rs("typeid")%>><%=rs("typename")%></a>
<%end if
rs.movenext
loop
rs.close
set rs=nothing%>
</td></tr>
<%end if%>
<tr align=center >
<td width="25%"><b>请选择大类目录</b></td>
<td width="12%">大类名称</td>
<td width="12%">大类模板</td>
<td width="9%">大类显示</td>
<td width="9%">属于总栏</td>
<td width="13%">大类排序<br>(必填项，数字)</td>
<td width="8%">外部链接</td>
<td width="8%">大类管理员<br>(可以多个，用|分隔)</td>
<td width="5%">删除</td>
</tr>
<%
do while not rs6.eof
dim bigclassmaster,bigmaster,master
master=rs6("bigclassmaster")
if master<>"" then
bigmaster=split(master,"|")
for i=0 to ubound(bigmaster)
if request.cookies(eChuang)("username")=trim(bigmaster(i)) then
bigclassmaster=true
exit for
else
bigclassmaster=false
end if
next
end if
set rstype=createobject("adodb.recordset")
sql="select * from "& db_Type_Table &" order by typeorder"
rstype.Open sql,conn,1,3
if bigclassmaster=true or request.cookies(eChuang)("key")="super" or request.cookies(eChuang)("key")="check" or (typemaster=true and request.cookies(eChuang)("key")="typemaster") or request.cookies(eChuang)("key")="selfreg" then
%>
<tr >
<td>
<img src=images/menu1.gif>
<a href="E_SmallClassManage.asp?BigClassID=<%=rs6("BigClassID")%>" ><%=rs6("E_BigClassName")%></a></td>
<td align=center>
<input type="hidden" name="bigclassid" value="<%=rs6("bigclassid")%>" style="font-size: 9pt; color: #000000; background-color: #EAEAF4; solid #EAEAF4" onMouseOver ="this.style.backgroundColor='#ffffff'" onMouseOut ="this.style.backgroundColor='#EAEAF4'">
<input class=text type="text" name="E_BigClassName" size="10" value="<%=rs6("E_BigClassName")%>" <%if not(request.cookies(eChuang)("key")="super" or request.cookies(eChuang)("key")="typemaster") then%>disabled<%end if%> style="font-size: 9pt; color: #000000; background-color: #EAEAF4; solid #EAEAF4" onMouseOver ="this.style.backgroundColor='#ffffff'" onMouseOut ="this.style.backgroundColor='#EAEAF4'">
</td>
<!--
<td align=center>
<input class=text type="text" name="bigclasszs" size="10" value="<%=rs6("bigclasszs")%>" <%if not(request.cookies(eChuang)("key")="super" or request.cookies(eChuang)("key")="typemaster") then%>disabled<%end if%> style="font-size: 9pt; color: #000000; background-color: #EAEAF4; solid #EAEAF4" onMouseOver ="this.style.backgroundColor='#ffffff'" onMouseOut ="this.style.backgroundColor='#EAEAF4'">
</td>
-->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -