main.asp

商机网站8.0,比教完整,可以自己二次开发!

<!-- #include file="conn.asp" -->
<!-- #include file="head.asp" -->

<table width="100%" border="0" cellspacing="3" cellpadding="3"><tr><td height="20">当前位置：<a href=main.asp>管理首页</a></td></tr></table>
<%
tempbid=request("bid")
if request("bid")="" then%>
<table width="95%" cellspacing="1" cellpadding="5" bgcolor=#999999 align=center>
<tr bgcolor=#cccccc><td colspan=5><center><b>一级分类版面列表</b></td></tr>
  <tr bgcolor=#ffffff><td height=20 colspan=4></td></tr>
  <tr bgcolor=#ffcc00 height=20><td><center><b>版面名称</b></td><td><center><b>版面介绍</b></td><td width=150><center><b>操作</b></td><td><center><b>文章统计</b></td></tr>
<%
set rs_2 = server.CreateObject ("adodb.recordset")
sql_2 = "select * from big order by bid"
rs_2.Open sql_2,conn,1,1
do while not rs_2.Eof
%>
<tr><td colspan=4 height=10 bgcolor=ffffff></td></tr>
<tr bgcolor=#dddddd><td>【<a href=all_list.asp?bid=<%=rs_2("bid")%>&sid=0><b><%=rs_2("bname")%></b></a>】[<%=rs_2("bid")%>]</td><td ><%=rs_2("binfo")%> </td><td><center><a href=main.asp?bid=<%=rs_2("bid")%>><font color=blue>版面列表</a></a> | <a href=fastadd.asp?bid=<%=rs_2("bid")%>&sid=0><font color=red>快速发表</font></a></td><td>总数：<%=rs_2("bNum")%></td></tr>
<%rs_2.MoveNext 
Loop
rs_2.Close
%>
</table>
<%else%>
<table width="95%" cellspacing="1" cellpadding="5" bgcolor=#999999 align=center>
<tr bgcolor=#cccccc><td colspan=5><center><b>所有版面列表</b></td></tr>
  <tr bgcolor=#ffffff><td height=20 colspan=4></td></tr>
  <tr bgcolor=#ffcc00 height=20><td><center><b>版面名称</b></td><td><center><b>版面介绍</b></td><td width=150><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 big where bid="&tempbid&" order by bid"
rs_2.Open sql_2,conn,1,1
do while not rs_2.Eof
%>
<tr bgcolor=#dddddd><td>【<a href=all_list.asp?bid=<%=rs_2("bid")%>&sid=0><b><%=rs_2("bname")%></b></a>】</td><td ><%=rs_2("binfo")%> </td><td><center><a href=fastadd.asp?bid=<%=rs_2("bid")%>&sid=0><font color=red>快速发表</font></a></td><td>总数：<%=rs_2("bNum")%></td></tr>
<%sql_1 = "select sid,sname,bid,sinfo,snum from small where bid="&rs_2("bid")&" order by sid"
rs_1.Open sql_1,conn,1,1
do while not rs_1.EOF 
%>
<tr bgcolor=#ffffff><td><a href=all_list.asp?bid=<%=rs_2("bid")%>&sid=<%=rs_1("sid")%>><%=rs_1("sname")%></a></td><td ><%=rs_1("sinfo")%> </td><td><center><a href=fastadd.asp?bid=<%=rs_2("bid")%>&sid=<%=rs_1("sid")%>><font color=blue>快速发表</font></a></td><td>总数：<%=rs_1("sNum")%></td></tr>
<%
rs_1.MoveNext
loop
rs_1.Close 
rs_2.MoveNext 
Loop
rs_2.Close
%>
</table>








<%end if%>