📄 main.asp

📁 网页酷吧全站系统在此之前提供了一个新闻系统V1.0,反应十分热烈,并有不少网友提供了不少意见例如在线编辑器等问题,并强烈要求本部提供全部程序,顺应广大网友的强烈要求,并希望本人的QQ能够闲下来(因为实

💻 ASP

字号:

<%if session("username")="" or session("userkey")="" then
response.redirect "../../"
end if%>
<!--#include file="mozeenconn.asp"-->

<link href=../css/main.css rel=stylesheet>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="95%" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#999999">
  <tr> 
    <td height="20" bgcolor="#eeeeee">当前位置：<a href=main.asp>管理首页</a></td>
  </tr>
</table>
<table width="95%" cellspacing="1" cellpadding="5" bgcolor=#999999 align=center>
  <tr bgcolor=#dddddd height=20> 
    <td><center><b>版面名称</b></td>
    <td><center><b>版面介绍</b></td>
    <td><center><b>管理员/斑竹</b></td>
    <td><center><b>专题列表</b></td>
    <td><center><b>文章统计</b></td>
  </tr>
  <tr bgcolor=#ffffff> 
    <td colspan=5 height=15></td>
  </tr>
  <%set rs_1 = server.CreateObject ("adodb.recordset")
set rs_2 = server.CreateObject ("adodb.recordset")
sql_2 = "select * from class order by classid"
rs_2.Open sql_2,conn,1,1
do while not rs_2.Eof
%>
  <tr bgcolor=#efefef> 
    <td>【<a href=all_list.asp?classid=<%=rs_2("classid")%>&boardid=0><b><%=rs_2("classname")%></b></a>】</td>
    <td ><%=rs_2("classinfo")%> </td>
    <td><center><a href=userinfo.asp?username=<%=rs_2("classMaster")%>><%=rs_2("classMaster")%></a></td>
    <td><center><a href=topic.asp?classid=<%=rs_2("classid")%>>此类专题</a></td>
    <td>总数：<%=rs_2("classNum")%></td>
  </tr>
  <%sql_1 = "select boardid,boardname,classid,boardinfo,boardmaster,boardnum,todaynum from board where classid="&rs_2("classid")&" order by boardid"
rs_1.Open sql_1,conn,1,1
do while not rs_1.EOF 
%>
  <tr bgcolor=#ffffff> 
    <td><a href=all_list.asp?classid=<%=rs_2("classid")%>&boardid=<%=rs_1("boardid")%>><%=rs_1("boardname")%></a></td>
    <td ><%=rs_1("boardinfo")%> </td>
    <td><center><a href=userinfo.asp?username=<%=rs_1("boardmaster")%>><%=rs_1("boardmaster")%></a></td>
    <td></td>
    <td>总数：<%=rs_1("boardNum")%>&nbsp;&nbsp;今日：<%=rs_1("todayNum")%></td>
  </tr>
  <%
rs_1.MoveNext
loop
rs_1.Close 
rs_2.MoveNext 
Loop
rs_2.Close
%>
</table>

<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td height="20">&nbsp;</td>
  </tr>
</table>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -