bbs_main.asp

该资料包含大量网络开发的案例和源代码

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%option explicit%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="../include/datatransfer.asp"-->
<!--#include file="../include/functionjs.asp"-->
<!--#include file="../include/functionvb.asp" -->
<!--#include file="../include/dbconn.inc" -->
<!--#include file="../include/header.asp" -->
<link href="../include/main.css" rel="stylesheet" type="text/css">
<!--#include file="../include/refresh.asp"-->
  <%  
	strSQL="select * from webcount"
    objRS.open strSQL,objConn,1,1
  %>
<table width="710" border="0" cellspacing="0" cellpadding="0" align="center" class="tablestyle">
  <tr>
    <td>
  <table width="100%" height="118"  border="0" cellpadding="0" cellspacing="1" bgcolor="#BDBABD">
    <tr>
      <td height="23" colspan="2" background="../resource/images/bbs/bg.gif" bgcolor="#FFFFFF" class="tablehead">&nbsp;<img src="../resource/images/bbs/li.gif" width="9" height="9">
        <%if userid="" then%>
欢迎您访问56Blog论坛，您尚未<b>[<A href="../common/register.asp">注册</A>］</b>或<b>［<A href="../common/login.asp">登录</A>]</b>
<%else%>
<%=username%> ,欢迎您回来,<a href="../blog/blog_show.asp"><img src="../resource/images/blog/li2.gif" width="12" height="12" border="0">我的博客</a>
<a href="bbs_search.asp"><font color="#FF3399">搜索文章</font></a>
<%end if%> 
<a href="bbs_listall.asp"><font color="#FF3399">『全部帖子列表』</font></a>	  </td>
    </tr>
    <tr bgcolor="#FFFFFF">
      <td width="34%" height="95">
	  <form method="post" action="../common/login.asp?action=login&logintype=bbs" >
        <table width="100%"  border="0" cellspacing="2" cellpadding="2">
          <tr>
            <td>&nbsp;</td>
            <td>&nbsp;</td>
          </tr>
          <tr>
            <td align="right">用户姓名：</td>
            <td><input name="name" type="text" id="name" size=12 maxlength="12"></td>
          </tr>
          <tr>
            <td align="right">用户密码：</td>
            <td><input name="psw" type="password" id="psw"size=12></td>
          </tr>
          <tr>
            <td colspan="2" align="center"><input type="submit" name="Submit" class="input"value="登录">
                <input type="reset" name="resett" class="input" value="取消"></td>
            </tr>
        </table>
      </form></td>
      <td width="66%"><TABLE width="98%" align=center border=0>
        <TBODY>
          <TR>
            <TD width="34%" height=22>共有<B><%=objrs("user_ttlcnt")%></B>位Blog会员</TD>
            <TD width="37%">在线会员：<%=application("online")%></TD>
            <TD width="29%">新进Blogger[<a href="../common/userinfo.asp?UserID=<%=objRS("last_reguserid")%>" target=_blank><b><%=objRS("last_regusername")%></b></a>]</TD>
          </TR>
          <TR>
            <TD colSpan=3 height=1></TD>
          </TR>
          <TR>
            <TD>今日发帖：<B><%=objRS("BBS_tdyposCnt")%></B> 篇</TD>
            <TD>主题总数：<B><%=objRS("BBS_ttlCnt")%></B> 篇</TD>
            <TD>Blog日记：<b><%=objRS("Blog_ttlCnt")%></b>篇</TD>
          </TR>
          <TR>
            <TD>昨日发帖：<B><%=objRS("BBS_YdyPosCnt")%></B> 篇</TD>
            <TD>帖子总数：<B><%=objRS("BBS_ttlPosCnt")%></B> 篇</TD>
            <TD>Blog评论：<b><%=objRS("Blog_ttlrplCnt")%></b>篇</TD>
          </TR>
          <TR>
            <TD colSpan=2>论坛最高日发帖：<%=objRS("BBS_topCnt")%> 篇，发生时间：<%=objRS("BBS_toptime")%></TD>
            <TD>&nbsp;</TD>
          </TR>
        </TBODY>
      </TABLE></td>
    </tr>
  </table>
  <%
  objrs.close
  strSQL="select * from bbs_board"
  objRS.open strSQL,objConn,1,1
  %> <%
	do while not objrs.eof
	%>
  <table width="100%"  border="0.5" cellpadding="0" cellspacing="1" bgcolor="#BDBABD">    
   
    <tr>
      <td height="24" background="../resource/images/bbs/bg.gif" bgcolor="#FFFFFF" class="tablehead">&nbsp;</td>
    </tr>
    <tr>
      <td width="6%" height="59">
        <table width="100%"  border="0" cellpadding="0" cellspacing="1" bordercolor="#BDBABD">    
    <tr bgcolor="#FFFFFF">
      <td width="6%" height="59"><img src="../resource/images/bbs/Forum_nonews.gif" height="24" width="24"></td>
      <td width="56%">
	  <table width="100%" height="100%"  border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td>『<a href="bbs_list.asp?BoardID=<%=objRS("board_id")%>"><font color="#FF6600"><%=objRs("board_name") %></font></a>』</td>
          <td>&nbsp;</td>
        </tr>
        <tr>
          <td><img src="../resource/images/bbs/Forum_Board_Intro.gif" width="10" height="10"><%=objRs("board_intro") %></td>
          <td align="right" valign="baseline"><a href="bbs_newtopic.asp?BoardID=<%=objRS("board_id")%>">发表文章</a></td>
        </tr>
      </table>	  
      <p>&nbsp;</p></td>
      <td width="14%"><img src="../resource/images/bbs/Forum_Board<%=objRs("board_id") %>.gif" width="80" height="50"></td>
      <td width="24%"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td colspan="3">主题:<a href="bbs_show.asp?BoardID=<%=objRS("board_id")%>&TopicID=<%=objRS("last_topicid")%>" title="objRs("Last_Topicname")"><%if len(objRs("Last_Topicname"))>10 then response.Write(left(objRs("Last_Topicname"),10)&"...") else response.Write(objRs("Last_Topicname"))%></a></td>
          </tr>
        <tr>
          <td colspan="3">发帖:<a href="../comon/userinfo.asp?userid=<%=objRs("Last_userid") %>"></a><a href="../common/userinfo.asp?UserID=<%=objRs("Last_userid") %>"><%=objRs("Last_username") %></a></td>
          </tr>
        <tr>
          <td colspan="3">日期:<%=objRs("Last_pubtime") %> <a href="bbs_show.asp?Boardid=<%=objRS("board_id")%>&TopicID=<%=objRS("last_topicid")%>"><img src="../resource/images/bbs/lastpost.gif" width="10" height="10" border="0"></a></td>
          </tr>
        <tr>
          <td width="33%"><img src="../resource/images/bbs/Forum_today.gif" width="25" height="10"><%=objRS("tdycnt")%></td>
          <td width="34%"><img src="../resource/images/bbs/forum_topic.gif" width="25" height="10"><%=objRS("ttlcnt")%></td>
          <td width="33%"><img src="../resource/images/bbs/Forum_post.gif" width="25" height="10"><%=objRS("ttlposcnt")%></td>
        </tr>
      </table></td>
    </tr>
    <%
	objRs.movenext
	loop
	%>
  </table></td>
      </tr>
  </table>
	</td>
  </tr>
</table>

<!--#include file="../include/endconn.inc" -->
<!--#include file="../include/footer.asp" -->