left.asp

完美政府版,正版网站解决方案

	menu_spacer_pic="images/spacer.gif"
	
	do while not rstype.eof
		SqlBigClass="select * from "& db_BigClass_Table & "  where typeid="& rstype("typeid") &" Order by bigclassorder"	'选择大组类
		Set rsBigClass= Server.CreateObject("ADODB.Recordset")
		rsBigClass.open SqlBigClass,conn,1,1
		if rsBigClass.bof and rsBigClass.eof then
			'总栏下无大组栏
			Type_Content=Type_Content & chr(10)
			Type_Content=Type_Content &"<DIV class=parent id=KB"& rstype("typeid") &"Parent>"& chr(10)
			Type_Content=Type_Content &"&nbsp;&nbsp;<IMG src="& menu_pic1 &">"& chr(10)
			Type_Content=Type_Content &"	<A href='BigClassManage.asp?TypeID="& rstype("typeid") &"' target=list>"& rstype("typeName") &"</A>"& chr(10)
			Type_Content=Type_Content &"</DIV>"& chr(10)
			response.write Type_Content
			Type_Content=""
		else
			'总栏下有大组栏
			Type_Content=Type_Content & chr(10)
			Type_Content=Type_Content &"<DIV class=parent id=KB"& rstype("typeid") &"Parent>"& chr(10)
			Type_Content=Type_Content &"&nbsp;&nbsp;<IMG title='展开/收缩菜单' style='CURSOR: hand' onclick='expandIt("& chr(34) &"KB"& rstype("typeid") &""& chr(34) &")' src="& menu_pic2 &">"& chr(10)
			Type_Content=Type_Content &"	<A href='BigClassManage.asp?TypeID="& rstype("typeid") &"' target=list>"& rstype("typeName") &"</A>"& chr(10)
			Type_Content=Type_Content &"</DIV>"& chr(10)
			Type_Content=Type_Content &"<DIV class=child id=KB"& rstype("typeid") &"Child>"& chr(10)
			response.write Type_Content
			Type_Content=""

			do while not rsBigClass.eof
				SqlSmallClass="select * from "& db_SmallClass_Table & "  where BigClassId="& rsBigClass("BigClassId") &" Order by smallclassorder"	'选择小组类
				Set rsSmallClass= Server.CreateObject("ADODB.Recordset")
				rsSmallClass.open SqlSmallClass,conn,1,1
				if rsSmallClass.bof and rsSmallClass.eof then
					'大组下无小组栏
					BigClass_Content=BigClass_Content &"	&nbsp;&nbsp;"& chr(10)
					BigClass_Content=BigClass_Content &"	<IMG src="& menu_pic1 &">"& chr(10)
					BigClass_Content=BigClass_Content &"	<A href='SmallClassManage.asp?BigClassID="& rsBigClass("BigClassId") &"' target=list>"& rsBigClass("BigClassName") &"</A>"& chr(10)
					BigClass_Content=BigClass_Content &"	<BR>"& chr(10)
					response.write BigClass_Content
					BigClass_Content=""
				else
					'大组下有小组栏
					BigClass_Content=BigClass_Content &"	&nbsp;&nbsp;"& chr(10)
					BigClass_Content=BigClass_Content &"	<IMG title=展开/收缩菜单 style='CURSOR: hand' onclick=showsubmenu("& rstype("typeid") & rsBigClass("BigClassId") &") src="& menu_pic2 &">"& chr(10)
					BigClass_Content=BigClass_Content &"	<A href='SmallClassManage.asp?BigClassID="& rsBigClass("BigClassId") &"' target=list>"& rsBigClass("BigClassName") &"</A>"& chr(10)
					BigClass_Content=BigClass_Content &"	<BR>"& chr(10)
					BigClass_Content=BigClass_Content &"	<DIV id=submenu"& rstype("typeid") & rsBigClass("BigClassId") &" style='DISPLAY: none'>"& chr(10)
					response.write BigClass_Content
					BigClass_Content=""
					
					rsSmallClass.movefirst
					do while not rsSmallClass.eof
						response.write "		&nbsp;&nbsp;"
						response.write "&nbsp;&nbsp;"& chr(10)
						response.write "		<IMG src="& menu_pic1 &">"& chr(10)
						response.write "		<A href='ListNews.asp?SmallClassID="& rsSmallClass("SmallClassId") &"' target=list>"& rsSmallClass("SmallClassName") &"</A>"& chr(10)
						response.write "		<BR>"& chr(10)
						rsSmallClass.movenext
					loop
					response.write "	</DIV>"& chr(10)
				end if
				rsSmallClass.close
				set rsSmallClass=nothing
				
				rsBigClass.movenext
			loop
			response.write "</DIV>"& chr(10)
		end if
		rsBigClass.close
		set rsBigClass=nothing

		rstype.movenext
	loop
end if

rstype.close
set rstype=nothing

conn.close
set conn=nothing

response.write "	<!--==========================-->"& chr(10)
response.write "	<!--      栏目菜单结束        -->"& chr(10)
response.write "	<!--==========================-->"
%>
					</TD>
					</TR>	
<tr>
<td height=20><a target=list href="newsaddd1.asp">文章发布</a> | <a target=list href="newsaddd1.asp">发布</a></td>
</tr>
<tr>
<td height=20><a target=list href="MyNews.asp">我的发文</a> </td>
</tr>

</table>
</div>
<div  style="width:158">
<table cellpadding=0 cellspacing=0 align=center width=130>
<tr><td height=20></td></tr>
</table>
</div>
</td>
  </tr>
 
</table>
<%end if%>

<!--发文管理结束-->


<!--审核检索-->
<%if (request.cookies(Forcast_SN)("KEY")="super" or request.cookies(Forcast_SN)("KEY")="bigmaster" or request.cookies(Forcast_SN)("KEY")="check" or request.cookies(Forcast_SN)("key")="typemaster") then%>
<table cellpadding=0 cellspacing=0 width=158 align=center>
  <tr>
        <td height=25 class=menu_title onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title'; background="images/Admin_left_1.gif" id=menuTitle41 onClick="showsubmenu(3)" style="cursor:hand;"> 
          <span>审核检索</span> </td>
  </tr>
<%if Request.cookies(Forcast_SN)("ManageUserName")<>"" then%>
  <tr>
    <td style="display:" id='submenu3'>
<div class=sec_menu style="width:158">
<table cellpadding=0 cellspacing=0 align=center width=130>
<tr>
<td height=20><a href="CheckNews1.asp" target=list>发文审核</a> | <a href="CheckNews1.asp" target=list>审核</a></td>
</tr>
<tr>
<td height=20><a target=list href="allnewsmanage.asp">文章检索</a> | <a target=list href="allnewsmanage.asp">检索</a></td>
</tr>


</table>
</div>
<div  style="width:158">
<table cellpadding=0 cellspacing=0 align=center width=130>
<tr><td height=20></td></tr>
</table>
</div>
</td>
  </tr>
<%else%>
<TR>
	<TD  height=20>
	&nbsp;&nbsp;&nbsp;&nbsp;<A href="Manage.asp" class="middle" target=list><font color="#ffffff">┊ 管理登录 ┊</font></A>
	</TD>
</TR>
<%end if%>  
</table>
<%end if%>

<!--审核检索结束-->


<!--互动交流开始-->
<%if (request.cookies(Forcast_SN)("KEY")="super" or request.cookies(Forcast_SN)("KEY")="bigmaster" or request.cookies(Forcast_SN)("KEY")="check" or request.cookies(Forcast_SN)("key")="typemaster") then%>
<table cellpadding=0 cellspacing=0 width=158 align=center>
  <tr>
        <td height=25 class=menu_title onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title'; background="images/Admin_left_1.gif" id=menuTitle41 onClick="showsubmenu(4)" style="cursor:hand;"> 
          <span>互动交流平台管理</span> </td>
  </tr>
<%if Request.cookies(Forcast_SN)("ManageUserName")<>"" then%>
  <tr>
    <td style="display:" id='submenu4'>
<div class=sec_menu style="width:158">
<table cellpadding=0 cellspacing=0 align=center width=130>
<tr>
<td height=20><a href="ReViewManage.asp" target=list>评论管理</a> | <a href="ReViewManage.asp" target=list>管理</a></td>
</tr>
<tr>
<td height=20><a target=list href="GuestReview.asp">留言管理</a> | <a target=list href="GuestReview.asp">管理</a></td>
</tr>
<tr>
<td height=20><a target=list href="WmCms_WorkReView.asp">办事管理</a> | <a target=list href="WmCms_WorkReView.asp">管理</a></td>
</tr>
<tr>
<td height=20><a target=list href="WmCms_ldmailReView.asp">信箱管理</a> | <a target=list href="WmCms_ldmailReView.asp">管理</a></td>
</tr>
<tr>
<td height=20><a target=list href="WmCms_ComplainReView.asp">投诉管理</a> | <a target=list href="WmCms_ComplainReView.asp">管理</a></td>
</tr>
<tr>
<td height=20><a target=list href="WmCms_OpinionReView.asp">献策管理</a> | <a target=list href="WmCms_OpinionReView.asp">管理</a></td>
</tr>
<tr>
<td height=20><a target=list href="VoteManage.asp">调查投票</a> | <a target=list href="VoteManage.asp">管理</a></td>
</tr>

</table>
</div>
<div  style="width:158">
<table cellpadding=0 cellspacing=0 align=center width=130>
<tr><td height=20></td></tr>
</table>
</div>
</td>
  </tr>
<%else%>
<TR>
	<TD  height=20>
	&nbsp;&nbsp;&nbsp;&nbsp;<A href="Manage.asp" class="middle" target=list><font color="#ffffff">┊ 管理登录 ┊</font></A>
	</TD>
</TR>
<%end if%>  
</table>
<%end if%>

<!--互动交流结束-->

<!--论坛管理开始-->
<%if (request.cookies(Forcast_SN)("KEY")="super" or request.cookies(Forcast_SN)("KEY")="bigmaster" or request.cookies(Forcast_SN)("KEY")="check" or request.cookies(Forcast_SN)("key")="typemaster") then%>
<table cellpadding=0 cellspacing=0 width=158 align=center>
  <tr>
        <td height=25 class=menu_title onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title'; background="images/Admin_left_1.gif" id=menuTitle41 onClick="showsubmenu(4)" style="cursor:hand;"> 
          <span>论坛管理</span> </td>
  </tr>
<%if Request.cookies(Forcast_SN)("ManageUserName")<>"" then%>
  <tr>
    <td style="display:" id='submenu4'>
<div class=sec_menu style="width:158">
<table cellpadding=0 cellspacing=0 align=center width=130>

<tr>
<td height=20><a  href="bbs/admin/index.asp" target="_top">论坛管理</a> | <a  href="bbs/admin/index.asp" target="_top">管理</a></td>
</tr>

</table>
</div>
<div  style="width:158">
<table cellpadding=0 cellspacing=0 align=center width=130>
<tr><td height=20></td></tr>
</table>
</div>
</td>
  </tr>
<%else%>
<TR>
	<TD  height=20>
	&nbsp;&nbsp;&nbsp;&nbsp;<A href="Manage.asp" class="middle" target=list><font color="#ffffff">┊ 管理登录 ┊</font></A>
	</TD>
</TR>
<%end if%>  
</table>
<%end if%>

<!--论坛管理结束-->



<!-专题管理-->
<%if (request.cookies(Forcast_SN)("KEY")="super" or request.cookies(Forcast_SN)("KEY")="bigmaster" or request.cookies(Forcast_SN)("KEY")="check" or request.cookies(Forcast_SN)("key")="typemaster") then%>
<table cellpadding=0 cellspacing=0 width=158 align=center>
  <tr>
        <td height=25 class=menu_title onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title'; background="images/Admin_left_1.gif" id=menuTitle41 onClick="showsubmenu(5)" style="cursor:hand;"> 
          <span>专题管理</span> </td>
  </tr>
<%if Request.cookies(Forcast_SN)("ManageUserName")<>"" then%>
  <tr>
    <td style="display:" id='submenu5'>
<div class=sec_menu style="width:158">
<table cellpadding=0 cellspacing=0 align=center width=130>
<tr>
<td height=20><a href="SpecialManage.asp" target=list>专题管理</a> | <a href="SpecialManage.asp" target=list>添加</a></td>
</tr>
</table>
</div>
<div  style="width:158">
<table cellpadding=0 cellspacing=0 align=center width=130>
<tr><td height=20></td></tr>
</table>
</div>
</td>
  </tr>
<%else%>
<TR>
	<TD  height=20>
	&nbsp;&nbsp;&nbsp;&nbsp;<A href="Manage.asp" class="middle" target=list><font color="#ffffff">┊ 管理登录 ┊</font></A>
	</TD>
</TR>
<%end if%>  
</table>
<%end if%>

<!--专题管理结束-->

<!--附件管理开始-->
<%if (request.cookies(Forcast_SN)("KEY")="super" or request.cookies(Forcast_SN)("KEY")="bigmaster" or request.cookies(Forcast_SN)("KEY")="check" or request.cookies(Forcast_SN)("key")="typemaster") then%>
<table cellpadding=0 cellspacing=0 width=158 align=center>
  <tr>
        <td height=25 class=menu_title onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title'; background="images/Admin_left_1.gif" id=menuTitle41 onClick="showsubmenu(6)" style="cursor:hand;"> 
          <span>附件管理</span> </td>
  </tr>
<%if Request.cookies(Forcast_SN)("ManageUserName")<>"" then%>
  <tr>
    <td style="display:" id='submenu6'>