e_smallclassmanage.asp

zheng fu wang zhan gong neng qi quan

if request.cookies(eChuang)("key")<>"smallmaster" then
	sql6 ="SELECT * From "& db_SmallClass_Table &" where bigclassid="&bigclassid&" order by SmallClassorder"
else
	sql6 ="SELECT * From "& db_SmallClass_Table &" order by SmallClassorder"
end if
RS6.open sql6,Conn,3,3
%>
<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="12%">小类排序<br>(必填项，数字)</td>
<td width="8%">外部链接</td>
<td width="8%">小类管理员<br>(可以多个，用|分隔)</td>
<td width="5%">删除</td>
</tr>
<%
do while not rs6.eof
	if request.cookies(eChuang)("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(eChuang)("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(eChuang)("key")<>"smallmaster" then
		sql="select * from "& db_BigClass_Table &" where typeid="&typeid&" order by bigclassorder "
	else
		sql="select * from "& db_BigClass_Table &" where bigclassid="&rs6("bigclassid")&" order by bigclassorder "
	end if
	rstype.Open sql,conn,1,3
	if request.cookies(eChuang)("key")="super" or request.cookies(eChuang)("key")="check" or (request.cookies(eChuang)("key")="typemaster" and typemaster4=true) or (request.cookies(eChuang)("key")="bigmaster") or (smallclassmaster=true and request.cookies(eChuang)("key")="smallmaster") or request.cookies(eChuang)("key")="selfreg" then%>
<tr>
<td>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<img src=images/menu1.gif>
<a href="listnews.asp?smallclassid=<%=rs6("SmallClassID")%>" title="<%if rs6("smallClasszs")<>"" then%><%=rs6("smallClasszs")%><%else%>无<%end if%>"><%=rs6("E_smallclassname")%></a></td>
<td align=center>
	<input type="hidden" name="smallclassid" value="<%=rs6("smallclassid")%>">
	<input class=text type="text" name="E_smallclassname" size="10" value="<%=rs6("E_smallclassname")%>" <%if not(request.cookies(eChuang)("key")="super" or request.cookies(eChuang)("key")="typemaster" or request.cookies(eChuang)("key")="bigmaster") 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="smallclasszs" size="10" value="<%=rs6("smallclasszs")%>" <%if not(request.cookies(eChuang)("key")="super" or request.cookies(eChuang)("key")="typemaster" or request.cookies(eChuang)("key")="bigmaster") 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>
	<select size="1" name="E_smallclassview" style="font-family: 宋体; font-size: 9pt" <%if not(request.cookies(eChuang)("key")="super" or request.cookies(eChuang)("key")="typemaster" or request.cookies(eChuang)("key")="bigmaster") then%>disabled<%end if%>>
	<option <%if rs6("E_smallclassview")="1" then%> selected <%end if%> value="1">显示</option>
	<option <%if rs6("E_smallclassview")="0" then%> <%end if%> value="0">不显示</option>                             
    </select>
</td>
<td align=center>
	<select name="bigclassid" style="font-family: 宋体; font-size: 9pt" <%if not(request.cookies(eChuang)("key")="super" or request.cookies(eChuang)("key")="typemaster" or request.cookies(eChuang)("key")="bigmaster") then%>disabled<%end if%>>
		<%if (request.cookies(eChuang)("key")="typemaster" and typemaster1=true) or request.cookies(eChuang)("key")="super" or request.cookies(eChuang)("key")="selfreg" then
			do while not rstype.EOF%>
	<option value="<%=rstype("bigclassid")%>" <%if rs6("bigclassid")=cint(rstype("bigclassid")) then%>selected<%end if%>><%=rstype("E_BigClassName")%></option>
				<%
				rstype.MoveNext
			loop
		end if
		if request.cookies(eChuang)("key")="bigmaster" then%>
	<option value="<%=bigclassid%>"><%=E_BigClassName%></option>
		<%end if
		if request.cookies(eChuang)("key")="smallmaster" and smallclassmaster=true then%>
	<option value="<%=rstype("bigclassid")%>"><%=rstype("E_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(eChuang)("key")="super" or request.cookies(eChuang)("key")="typemaster" or request.cookies(eChuang)("key")="bigmaster") 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="url" size="14" value="<%=rs6("url")%>" 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="smallclassma" size="8" value="<%=rs6("smallclassma")%>" <%if not(request.cookies(eChuang)("key")="super" or request.cookies(eChuang)("key")="typemaster" or request.cookies(eChuang)("key")="bigmaster") 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><%if request.cookies(eChuang)("key")="super" or request.cookies(eChuang)("key")="typemaster" or request.cookies(eChuang)("key")="bigmaster" then%><a href="E_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="1" height="25" align="center" bgcolor="#FFFFFF">
	<a href="javascript:window.location.reload()" target=mainmenu title="添加栏目类别后请更新左栏菜单项" style="font-family: 宋体; font-size: 9pt">刷新左栏</a>
</td>
<td colspan="7"  align="center" bgcolor="#FFFFFF">
	<input type="submit" name="Submit2" value="保存" style="font-family: 宋体; font-size: 9pt" <%if not(request.cookies(eChuang)("key")="super" or request.cookies(eChuang)("key")="typemaster" or request.cookies(eChuang)("key")="bigmaster") 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>
</tr>
</form>
<%if (request.cookies(eChuang)("key")="bigmaster") or request.cookies(eChuang)("key")="super" or (request.cookies(eChuang)("key")="typemaster" and typemaster1=true) then%>
<form method="post" action="E_SmallClassSet.asp?action=add">
<tr >
<td align="center">
添加小类
</td>
<td align=center><input class=text type="text" name="E_smallclassname" size="10"  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="smallclasszs" size="10"  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>
	<select size="1" name="E_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(eChuang)("key")="typemaster" or request.cookies(eChuang)("key")="super" then
		sql="select * from "& db_BigClass_Table &" where typeid="&typeid&" order by bigclassorder "
	else
		sql="select * from "& db_BigClass_Table &" order by bigclassorder "
	end if
	rstype.Open sql,conn,1,3%>
	<select name="bigclassid" style="font-family: 宋体; font-size: 9pt">
	<%if request.cookies(eChuang)("key")<>"bigmaster" then
		do while not rstype.EOF%>
	<option <%if bigclassid=trim(rstype("bigclassid")) then%>selected<%end if%> value="<%=rstype("bigclassid")%>"><%=rstype("E_BigClassName")%></option>
			<%rstype.MoveNext
		loop
	else%>
	<option value="<%=bigclassid%>"><%=E_BigClassName%></option>
	<%end if%>
	</select>
</td>
<td align=center>
	<input class=text type="text" name="smallclassorder" size="10" ONKEYPRESS="event.returnValue=IsDigit();"  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="url" size="14" value="0" 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="smallclassma" size="8"  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 type="hidden" name="typeid" value="<%=typeid%>"  style="font-size: 9pt;  color: #000000; background-color: #EAEAF4; solid #EAEAF4" onMouseOver ="this.style.backgroundColor='#ffffff'" onMouseOut ="this.style.backgroundColor='#EAEAF4'">
	<input type="submit" name="Submit2" value="添加" style="font-family: 宋体; font-size: 9pt"  style="font-size: 9pt;  color: #000000; background-color: #EAEAF4; solid #EAEAF4" onMouseOver ="this.style.backgroundColor='#ffffff'" onMouseOut ="this.style.backgroundColor='#EAEAF4'">
</td>
</tr>
</form>
	<%
	set rstype=nothing
end if
if request.cookies(eChuang)("key")<>"smallmaster" then
	%>
<tr >
<td colspan="8" align=center>
	<input type=button value="发表无小类文章" class=button onClick="javascript:window.open('newsadd1.asp?bigclassid=<%=bigclassid%>','_self','')"  style="font-size: 9pt;  color: #000000; background-color: #EAEAF4; solid #EAEAF4" onMouseOver ="this.style.backgroundColor='#ffffff'" onMouseOut ="this.style.backgroundColor='#EAEAF4'">
	<input type=button value="编辑无小类文章" class=button onClick="javascript:window.open('E_SmallNO.asp?bigclassid=<%=bigclassid%>','_self','')"  style="font-size: 9pt;  color: #000000; background-color: #EAEAF4; solid #EAEAF4" onMouseOver ="this.style.backgroundColor='#ffffff'" onMouseOut ="this.style.backgroundColor='#EAEAF4'">
</td>
</tr>
<%end if%>
</table>
</center>
</body>
</html>
<!--#include file=Admin_Bottom.asp-->
<%else
	Show_Err("对不起，你无权操作！<br><br><a href='javascript:history.back()'>返回</a>")
	Response.End 
end if
%>