⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 top2.asp

📁 庐江二中
💻 ASP
字号:
🔍 
<%
Response.Buffer = True
'Response.Expires = 0
'Response.CacheControl = "no-cache"

session.timeout=Time_out
dim where,adminurl
adminurl="<a class=top4 href=admin_index.asp>管理首页</a> >"
select case PageName
case "default" 
 where="本站首页"
case "BigClass" 
 where=request_BigClassName
case "SmallClass" 
 where="<a class=top4 href=""BigClass.asp?BigClassName="& request_BigClassName & "&BigClassType=" & request_BigClassType & """>" & request_BigClassName &"</a> > "&request_SmallClassName
case "MoreAnnounce" 
 where="更多公告"
case "Search" 
 where="搜索"
case "shownews" 
 where="信息内容"
case "gbook" 
 where="评论"
case "SpecialList" 
 where="专题列表"
case "Special" 
 where="<a class=top4 href=Special.asp>专题</a> > "&request_SpecialName
case "SpecialList" 
 where="专辑列表"
case "ImageList" 
 where="图片列表"
case "hottxt" 
 where="热点列表"
case "goodnews" 
 where="推荐列表"
case "focusnews" 
 where="焦点列表"   
case "UserReg" 
 where="注册会员第一步"
case "UserReg2" 
 where="注册会员第二步"
case "UserRegPost" 
 where="成功注册会员"
case "UserLogin" 
 where="会员登陆"
case "UserList" 
 where="按时间显示用户列表"
case "UserList2" 
 where="按积分显示用户列表"
case "UserListgirl" 
 where="显示女同胞用户列表"
case "UserListboy" 
 where="显示男同胞用户列表"
case "UserModify" 
 where="会员修改资料"
case "UserSave" 
 where="会员修改资料成功"

case "admin" 
 where="管理首页"
case "admin_AdminMana" 
 where=adminurl & " 管理站内管理员"
case "admin_AdMana" 
 where=adminurl & " 广告管理"
case "admin_AnnounceMana" 
 where=adminurl & " 管理公告"
case "admin_ConstModify" 
 where=adminurl & " 修改网站资料"
case "admin_FriendSiteMana" 
 where=adminurl & " 友情站点管理"
case "admin_GBookMana" 
 where=adminurl & " 评论管理"
case "admin_login" 
 where="管理员登陆"
case "admin_AllySiteMana" 
 where=adminurl & " 资源中心管理"
case "admin_ResearchMana" 
 where=adminurl & " 管理网站调查"
case "admin_Search" 
 where=adminurl & " 管理员搜索"
case "admin_NewsAdd" 
 where=adminurl & " 文章添加"
case "admin_NewsMana" 
 where=adminurl & " 文章管理"
case "admin_NewsManaList" 
 where=adminurl & " 文章列表"
case "admin_NewsModify" 
 where=adminurl & " 文章修改"
case "admin_NewsDel" 
 where=adminurl & " 文章删除"
case "admin_BigClassMana" 
 where=adminurl & " 大类管理"
case "admin_SmallClassMana" 
 where=adminurl & " 小类管理"
case "admin_SpecialMana" 
 where=adminurl & " 专题管理"
case "admin_upload" 
 where=adminurl & " 上传"
case "admin_StatisticModify" 
 where=adminurl & " 修改统计数据"
case "admin_MenuMana" 
 where=adminurl & " 目录管理"
case "admin_SiteColorMana" 
 where=adminurl & " 网站颜色管理"
case "admin_UserMana" 
 where=adminurl & " 注册用户管理"
case "admin_UserGradeModify" 
 where=adminurl & " 会员等级管理"
case "admin_changepass" 
 where=adminurl & " 管理员修改密码"
case "admin_mail" 
 where=adminurl & " 发送邮件"
case "admin_zero" 
 where=adminurl & " 系统初始化"
case else
 where="未知"
end select
%>
<html>
<head>
<meta http-equiv=Content-Type content=text/html; charset=gb2312>
<title><%=WebTitle%></title>
<!--#include file="Style.asp"-->
</head>
<body topmargin=0 leftmargin=0 bgcolor="<%=BgColor%>" background="<%=bgImg%>">
<div align=center>
<%if Left(PageName,5)<>"admin" then%>
	<table style="BORDER-TOP: <%=TopBColor%> 1px double;BORDER-LEFT: <%=TopBColor%> 1px double;BORDER-RIGHT: <%=TopBColor%> 1px double;" border=0 width=<%=TableWidth%> cellspacing=0 cellpadding=0 bgcolor=<%=Top1bgColor%> background="<%=HHB1_img%>">
	<tr>
	<td width=25><img src="images/TOPL.gif" width=12 height=10 hspace=3 border=0></td>
	<td><a class=top1 href="default.asp"><%=WebTitle%></a></td>
	<td align=right class=top1>
	<%if ShowUserLogin=1 then%>
	<img src="IMAGES/top3.gif" width="13" height="12"> <a class=top3 href=UserLogin.asp>会员登陆</a> <img src="IMAGES/top2.gif" width="13" height="12"> <a class=top1 href=UserLogOut.asp>会员退出</a> <img src="IMAGES/top1.gif" width="13" height="12"> <a class=top1 href=UserReg.asp>会员注册</a> <img src="IMAGES/top3.gif" width="13" height="12"> <a class=top1 href=UserList.asp>会员列表</a>
	<%end if%>
	</td>
	<td width=25 align=right><img src="images/TOPR.gif" width=12 height=10 hspace=3 border=0></td>
	</tr>
	</table>	
<table style="BORDER-TOP: <%=TopBColor%> 1px double;BORDER-LEFT: <%=TopBColor%> 1px double;BORDER-RIGHT: <%=TopBColor%> 1px double" border=0 width=<%=TableWidth%> cellspacing=0 cellpadding=0 bgcolor="<%=Top2bgColor%>">
  <tr><td valign=middle width=100% align=center><script src="Ad.asp"></script></td></tr>
	</table>
	<TABLE cellPadding=0 cellSpacing=0 width=<%=TableWidth%> bgcolor=<%=Top2bgColor%>>
	<tr>
	<td width=100% align=right>
		<table width=100% border=0 cellspacing=1 cellpadding=0 BGCOLOR=<%=Out1Color%>>
		<tr>
			<%
			dim i,rseof
			sql="select * from BigClass order by BigClassID"
			rs.open sql,conn,1,1
			i=1
			if not rs.EOF then rseof=1
			Dim ArrayBigClassID(50),ArrayBigClassName(50),ArrayBigClassView(50),ArrayBigClassType(50)
			dim RecordCount,BigClassView,BigClassType,BigClassName
			while not rs.EOF
			RecordCount=rs.RecordCount
			if i mod 12=0 then Response.Write  "</tr><tr><td align=center style='WORD-WRAP: break-word' class=top3>"   '本句设定超过多少个自动换行
			%><td align=center height=25 bgColor=<%=Top3bgColor%> background="<%=HHB3_img%>" background= style="WORD-WRAP: break-word" class=top3>
			<a class=top3 href="BigClass.asp?BigClassName=<%=rs(5)%>&BigClassType=<%=rs(4)%>"><%=rs(5)%></a>&nbsp;</td>
			<%
			ArrayBigClassView(i)=rs(3)
			ArrayBigClassName(i)=rs(5)
			arrayBigClassType(i)=rs(4)
			i=i+1			
			rs.MoveNext
			wend
			rs.close
			%>
			</tr>
		</table>
		</tr>
	</table>
	
	<table width=<%=TableWidth%> border=0 cellspacing=0 cellpadding=0 BGCOLOR=<%=Out2Color%>>
	<tr>
	<TD BGCOLOR=<%=Out1Color%> WIDTH=1></TD>
	<TD WIDTH=<%=out2width%> BGCOLOR=<%=Out2Color%>>
	<td style="BORDER-BOTTOM: <%=Out1Color%> 1px double" width=20 align=center><img src=images/008.gif width="12" height="10" border=0></td>
    <td style="BORDER-BOTTOM: <%=Out1Color%> 1px double" height=24 align=left class=top4>当前位置：<a class=top4 href=default.asp><%=WebTitle%></a> > <%=where%></td>		
	<td style="BORDER-BOTTOM: <%=out1color%> 1px double" height=24 align=right>
	<a href="SpecialList.asp" class=top4>专题</a>&nbsp;
	<a href="HottxtList.asp" class=top4>热点</a>&nbsp;
	<a href="FocusNewsList.asp" class=top4>焦点</a>&nbsp;
	<a href="GoodNewsList.asp" class=top4>推荐</a>&nbsp;
	<a href="ImageList.asp" class=top4>图片</a>&nbsp;
	<%if PageName="shownews" then%>
		</td><td WIDTH=20><a href="javascript:window.print()"><img src="images/printer.gif" width=16 height=14 border=0 alt="打印本页"></a>
	<%end if%>
	</td>
	<TD WIDTH=<%=out2width%> BGCOLOR=<%=Out2Color%>></TD>
	<TD BGCOLOR=<%=Out1Color%> WIDTH=1></TD>	
	</tr>
	</table>
<%else%>
	
<table width="<%=TableWidth%>" border=0 cellspacing=0 cellpadding=0 bgcolor=<%=Out2Color%>>
  <tr>
	<td height=18 class=top4> &nbsp;<img src="images/008.gif" width="12" height="10" border=0>&nbsp;当前位置：<a class=top4 href="default.asp"><%=WebTitle%></a> 
      > <%=where%></td>
	</tr>
	</table>
<%end if%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -