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

📄 forum.asp

📁 漂亮的企业网站系统v11 1、整体修改了上一版的一些BUG。 2、修改了页面底部的统计形式。 3、修改了“公告更新”栏目
💻 ASP
字号:
🔍 
<!-- #include file="include/config_forum.asp" -->
<!-- #include file="include/conn.asp" -->
<%
tit=tit_fir
tit_fir=""

forum_mode="full"	'forum_mode设为"full"时为全屏显示,"half"
if len(trim(request.querystring("mode")))>0 then
  forum_mode=trim(request.querystring("mode"))
end if

if forum_mode="half" then
  call mode_half()
else
  call mode_full()
end if

sub mode_half()
  call web_head(0,0,1,0,0)
  '-----------------------------------center---------------------------------
  response.write ukong
  call forum_main("fk4")
  call forum_down(int(mid(web_setup,3,1)))
  '---------------------------------center end-------------------------------
  call web_center(1)
  '------------------------------------right---------------------------------
call format_login()
%>
<table border=0 width='96%' cellspacing=0 cellpadding=0 align=center>
<tr><td align=center><%call main_stat("fk4","jt1",0,5,1)%></td></tr>
<tr><td height=10></td></tr>
<tr><td align=center><%call forum_cast("fk4","jt0",10,11)%></td></tr>
<tr><td height=10></td></tr>
<tr><td align=center><%call forum_new("fk4","jt0",0,15,11,1)%></td></tr>
<tr><td height=5></td></tr>
<tr><td align=center><%response.write left_action("jt13",5)%></td></tr>
<tr><td height=10></td></tr>
</table>
<%
  '----------------------------------right end-------------------------------
  call web_end(0)
end sub

sub mode_full()
  call web_head(0,0,2,0,0)
  '-----------------------------------center---------------------------------
  response.write ukong
%>
<SCRIPT src="style/effect.js" type=text/javascript></SCRIPT>
<SCRIPT src="style/skysoft.js" type=text/javascript></SCRIPT>
<SCRIPT src="style/fader.js" type=text/javascript></SCRIPT>
<%
dim num_topic,num_data,num_reg,new_username,username,userpower,usercp,integral,emoney,renqi,bbs_counter,id
  set rs=server.createobject("adodb.recordset")
  sql="select username from user_data order by id desc"   
  rs.open sql,conn,1,1
  if not(rs.eof and rs.bof) then
    num_reg=int(rs.recordcount)
    new_username=rs("username")
  end if
  rs.close
  
  sql="select count(id) from bbs_topic"
  set rs=conn.execute(sql)
  if not(rs.eof and rs.bof) then num_topic=int(rs(0))
  rs.close
  
  sql="select count(id) from bbs_data"
  set rs=conn.execute(sql)
  if not(rs.eof and rs.bof) then num_data=int(rs(0))
  rs.close
%>
<% if int(web_var_num(web_setup,10,1))=1 then%>    
<table width="98%" border=0 cellspacing=1 cellpadding=0 align="center" bgcolor="<%response.write web_var(web_color,3)%>">
  <tr <%response.write forum_table2%>>
    <td width="100%" border="0"><%response.write img_small("fk4") %><font class=end><b>≡≡论坛中心≡≡</b></font></td>
  </tr>

<tr><td bgColor=<%response.write web_var(web_color,5)%> align=center>
<SCRIPT src="style/forum_gg.js" type=text/javascript></SCRIPT>
<DIV id=elFader style="VISIBILITY: hidden; POSITION: relative; HEIGHT: 16px"></DIV></td></tr>

  <tr>
    <td colspan=3 bgColor=#ffffff align=center><table width="98%" border="0">
  <tr> 
    <td width="29%" align="center" valign="top"> 
        <table width="100%" border="0" cellpadding="0" cellspacing="0">
          <form name=login_frm method=post action='login.asp?action=login_chk' onsubmit="return login_true()">
          <input type=hidden name=re_log value='yes'>
          <tr> 
            <td colspan="2"> 
              <% if login_username<>"" and login_mode<>"" then %>
              <font color="#006600"><img src="IMAGES/small/forum_03.gif">&nbsp; 
              <script language="javascript" src="style/time.js"></script>
              </font><b>!<font class=blue> 
              <%response.write login_username%>
              </font></b></td>
          </tr>
          <tr> 
            <td colspan="2"><font color="#006600"><img src="IMAGES/small/forum_03.gif"><B><font class=red>&nbsp;&nbsp;
			<%response.write format_power(login_mode,1)%></font></B></font><font class=red>&nbsp; </font>&nbsp;&nbsp;<a href="user_message.asp?action=write">※&nbsp;发短信&nbsp;※</a>&nbsp; 
            </td>
          </tr>
          <tr> 
            <td colspan="2"> <font color="#006600"><img src="IMAGES/small/forum_03.gif">&nbsp; 
              <%
    dim mess_dim
    if login_message>0 then
      mess_dim="red"
      response.write "<bgsound src='images/mail/message.wav' border=0>"
    else
      login_message=0:mess_dim="gray"
    end if
    response.write "<a href='user_mail.asp'><img src='images/mail/new.gif' align=absmiddle border=0>&nbsp;&nbsp;短消息箱（<font class="&mess_dim&">"&login_message&"&nbsp;新</font>）</a>"
%>
               </font> </td>
          </tr>
  <tr> 
    <% call user_me()%>
	  <tr align="center"> 
        <td align="left"><font color="#006600"><img src="IMAGES/small/forum_03.gif">&nbsp;<a href='login.asp?action=logout'>退出登陆</a><a href='forum.asp'></a><a href='forum.asp'></a></td>
        <td align="left">&nbsp;<font color="#006600"><img src="IMAGES/small/forum_03.gif">&nbsp;<a href='user_main.asp'>用户中心</a></td>
	  </tr> 
  </tr>
            <tr align="left" valign="middle"> 
            <td colspan="2"> 
              <% else %>
              <font color="#FF9900"><img src="IMAGES/small/forum_05.gif">欢迎您光临『点绛唇』论坛,登陆后可看到您在本站的资料!『</font><a href="login.asp?action=register">注册</a><font color="#FF9900">』</font> 
              <hr align="center" width="100%" size="1" color="#FF6600"></td>
          </tr>
          <tr align="center" valign="middle"> 
            <td height="23" align="left" width="51%">用户名称：</td>
            <td align="left"> <input name="username" type="text" value="" size="14"></td>
          </tr>
          <tr align="center" valign="middle"> 
            <td align="left" width="51%">登陆密码：</td>
            <td align="left"> <input type=password name=password size=14 maxlength=20></td>
          </tr>
          <tr align="center" valign="middle"> 
            <td colspan="2"> 
              <input type=radio name=memery_info value='no' class=black_bg>
              不保留
              <input type=radio name=memery_info value='yes' checked class=black_bg>
              保留 
              <input name="submit" type=submit value='登 录'>
              <hr align="center" width="100%" size="1" color="#FF6600">
              <% end if %>
            </td>
          </tr>
        </form>
      </table><td align="center" valign="middle"><img src="Images/small/forum_line1.gif" width="15" height="112"></td>
    </td>
          <td width="23%" align="center" valign="top"> 
            <%call forum_new_2("fk4","jt0",0,8,25,1)%>
          </td>
          <td width="1%" align="center" valign="middle"><img src="Images/small/forum_line2.gif" width="15" height="112"></td>
          <td width="23%" align="center" valign="top"> 
            <%call forum_cast_2("fk4","jt0",8,25)%>
          </td>
          <td align="center" valign="middle"><img src="Images/small/forum_line3.gif" width="15" height="112"></td>
    <td width="23%" align="center" valign="top"> <table width="100%" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td><font color="#006600"><img src="IMAGES/small/forum_04.gif">&nbsp;注册会员：</font><font color="#FF0000"><%=conn.execute("select count(username)from user_data")(0)%></font></td>
        </tr>
        <tr> 
          <td><font color="#006600"><img src="IMAGES/small/forum_04.gif">&nbsp;新进来宾：</font><%=format_user_view(new_username,1,"")%></td>
        </tr>
        <tr> 
          <td><font color="#006600"><img src="IMAGES/small/forum_04.gif">&nbsp;主题总数：</font><font color="#FF0000"><%=num_topic%></font></td>
        </tr>
        <tr> 
          <td><font color="#006600"><img src="IMAGES/small/forum_04.gif">&nbsp;帖子总数：</font><font color="#FF0000"><%=conn.execute("select count(*)from bbs_data where id<>1")(0)%></font></td>
        </tr>
        <tr> 
          <td><font color="#006600"><img src="IMAGES/small/forum_04.gif">&nbsp;今日帖子：</font><font color="#FF0000"><%=conn.execute("select count(id) from bbs_data where tim>=#"&formatdatetime(formatdatetime(now_time,2))&"#")(0)%>
        </tr>
        <tr> 
          <td height="18"><font color="#006600"><img src="IMAGES/small/forum_04.gif">&nbsp;当前在线：</font><font color="#FF0000"><%=online_num%></font></td>
        </tr>
        <tr>
          <td><font color="#006600"><img src="IMAGES/small/forum_04.gif">&nbsp;建站天数：</font><font color="#FF0000"><%=datediff("d","2004-01-10",date())%></font>
          </td>
        </tr>
      </table></td>
  </tr>
</table>

    <table width="100%" border="0">
     <tr> 
          <td width="16%" valign="middle">&nbsp;&nbsp;<img src="IMAGES/SMALL/forum_06.gif">&nbsp;&nbsp;<font color="#9900FF">新浪滚动新闻：</font></td>
          <td width="66%" valign="middle"><iframe name=sina_roll src=http://news.sina.com.cn/o/allnews/input/index.html height=15 width=97% Frameborder=No Border=0 Marginwidth=0 Marginheight=0 Scrolling=No></iframe></td>
          <td><img src="IMAGES/SMALL/forum_07.gif">&nbsp;<a href="http://news.sina.com.cn">新浪新闻</a></td>
          <td><img src="IMAGES/SMALL/forum_07.gif">&nbsp;<a href="http://news.163.com">网易新闻</a></td>
                    </tr>
      </table>
	 <table width="100%" border="0">
	  <tr> 
          <td width="16%" valign="middle">&nbsp;&nbsp;<img src="IMAGES/SMALL/forum_06.gif">&nbsp;&nbsp;<font color="#9900FF">全天气象预报：</font></td>
          <td width="84%" valign="middle"><iframe name=hqFrame src=http://weather.bbn.com.cn/china/china10citynew.asp height=15 width=97% Frameborder=No Border=0 Marginwidth=0 Marginheight=0 Scrolling=No></iframe></td>
		  </tr> 
      </table> 
	</td>
  </tr>
</table>
<%else%>
<table width="98%" border=0 cellspacing=1 cellpadding=0 bgcolor="<%response.write web_var(web_color,3)%>">
  <tr <%response.write forum_table2%>>
    <td class=td width="100%"><%response.write img_small("fk4") %><font class=end><b>论坛中心</b></font></td>
  </tr>
  <tr>
    <td colspan=3 bgColor=#ffffff align=center><table width="100%" border="0">
  <tr> <td align=center width='6%' height=28><img src='images/small/forum_stat.gif' border=0></td> <td width='94%'>主题总数： <font class=red><%=num_topic%></font> &nbsp;<font class=gray>|</font>&nbsp;贴子总数： <font class=red><%=conn.execute("select count(*)from bbs_data where id<>1")(0)%></font> &nbsp;<font class=gray>|</font>&nbsp;今日帖子：<font color="#FF0000"><%=conn.execute("select count(id) from bbs_data where tim>=#"&formatdatetime(formatdatetime(now_time,2))&"#")(0)%></font>&nbsp;<font class=gray>|</font>&nbsp;当前在线：<font color="#FF0000"><%=online_num%></font>&nbsp;<font class=gray>|</font>&nbsp;建站天数：<font color="#FF0000"><%=datediff("d","2003-10-18",date())%></font>&nbsp;<font class=gray>|</font>&nbsp;新进来宾：<%=format_user_view(new_username,1,"")%></td></tr>
<tr><td align=center height=28><img src='images/small/forum_cast.gif' border=0></td><td><SCRIPT language=JavaScript type=text/javascript>
prefix="";
arNews = ["<%call forum_cast1("fk_minus","jt0",1,50)%>","","欢迎光临<%response.write web_var(web_config,1)%>论坛","",
"严禁恶意使用粗言秽语，违者经劝告无效，立即封ID。",""]
</SCRIPT>
<DIV id=elFader style="VISIBILITY: hidden; POSITION: relative; HEIGHT: 16px"></DIV>
</td></tr>
<tr><td align=center height=28><img src='images/small/forum_user.gif' border=0></td><td><%call format_forum()%></td></tr>

	   <table width="100%" border="0">
        <tr> 
          <td width="16%" valign="middle">&nbsp;&nbsp;<img src="IMAGES/SMALL/forum_06.gif">&nbsp;&nbsp;<font color="#9900FF">新浪滚动新闻：</font></td>
          <td width="66%" valign="middle"><iframe name=sina_roll src=http://news.sina.com.cn/o/allnews/input/index.html height=15 width=97% Frameborder=No Border=0 Marginwidth=0 Marginheight=0 Scrolling=No></iframe></td>
          <td><img src="IMAGES/SMALL/forum_07.gif">&nbsp;<a href="http://news.sina.com.cn">新浪新闻</a></td>
          <td><img src="IMAGES/SMALL/forum_07.gif">&nbsp;<a href="http://news.163.com">网易新闻</a></td>
                    </tr>
      </table>
	  <table width="100%" border="0">
	  <tr> 
          <td width="16%" valign="middle">&nbsp;&nbsp;<img src="IMAGES/SMALL/forum_06.gif">&nbsp;&nbsp;<font color="#9900FF">全天气象预报：</font></td>
          <td width="84%" valign="middle"><iframe name=hqFrame src=http://weather.bbn.com.cn/china/china10citynew.asp height=15 width=97% Frameborder=No Border=0 Marginwidth=0 Marginheight=0 Scrolling=No></iframe></td>
		  </tr> 
      </table>

</table>
 <%end if%>

<table width=98% border=0 cellspacing=0 cellpadding=0 bgcolor="<%response.write web_var(web_color,3)%>"><tr><td>
<%call forum_tools()%>
</td></tr></table>
<%
response.write kong
  call forum_main("fk4")
  call user_birthday()
  call links_main("yqlt",6)

  call forum_down(int(mid(web_setup,3,1)))
  '---------------------------------center end-------------------------------
  call web_end(0)
end sub
%>

⌨️ 快捷键说明

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