index.asp

一对一校友录多班级而且非常漂亮http://free.cnyys.com/my/yhe/DEFAULT.ASP

<!--#include file="top.asp"-->
<TABLE style="BORDER-COLLAPSE: collapse" height=28 cellSpacing=0 cellPadding=0 
width="778" align=center bgColor=#f9f8f2 border=1>
  <TBODY>
  <TR>
    <TD width="50%">&nbsp;&nbsp;<IMG src="image/fle.gif" border=0> 你的位置：
     <A href="../index.asp"><%Set rs=conn.execute ("select sitename from siteinfo")
response.write rs(0)
rs.close%>首页</A> － <a href="index.asp">学校论坛</a></TD>
    <TD width="50%"> 　<a href="search3.asp">论坛搜索</a> | <a href="search.asp">我发表的帖子</a> | <a href="search2.asp">我参与的帖子</a></TD>
</TR></TBODY></TABLE>
<BR>
<TABLE style="BORDER-COLLAPSE: collapse" cellSpacing=0 cellPadding=0 width="778" 
align=center bgColor=#ffffff border=1>
  <TBODY>
  <TR>
    <TD class=td1 width="100%" background=image/lbg.gif bgColor=#000000 
    height=26>&nbsp; <IMG src="image/gl.gif" border=0> <font color=#000000>论坛信息</font></TD>
  </TR>
  <TR>
    <TD width="100%">
      <TABLE style="BORDER-COLLAPSE: collapse" borderColor=#f9f8f2 cellSpacing=0 
      cellPadding=0 width="100%" border=1>
        <FORM name=user action=chklogin.asp method=post><TBODY>
        <TR><%dim ll
		set rs=conn.execute ("select count(*) from bbs")
		set re=conn.execute ("select count(*) from bbs2")
		ll=rs(0)+re(0)%>
          <TD width="14%" height=26>&nbsp;总帖数：<b><%=""&ll&""%></b></TD>
          <TD width="14%">&nbsp;主题数：<b><%=rs(0)%></b></TD>
		  <%set rs=conn.execute ("select count(*) from bbs where datediff('d',date,now())=0")
		  set re=conn.execute ("select count(*) from bbs2 where datediff('d',date,now())=0")
		  ll=rs(0)+re(0)%>
          <TD width="14%">&nbsp;今日帖数：<B><%=""&ll&""%></B></TD>
		  <%set rs=conn.execute ("select bbsjob,bbscount,name from user where username='"&session("wzname")&"'")%>
          <TD width="58%"><%if Session("wzname")="" then%>会员名:<INPUT name=username class=input id="username" size=12>&nbsp;密码:<INPUT name=userpassword type=password class=input id="userpassword" size=12>
		    <input type="submit" name="Submit" value="提交">
		    <input type="reset" name="Submit" value="重置">
		    　<a href="reg.asp">还没有注册呢</a>
		    <%else%> &nbsp;欢迎<%=rs("name")%>先生的光临，你已发了<%=rs("bbscount")%>个帖子，你是论坛的<%=rs("bbsjob")%>　<a href="logout.asp"><font color="#FF0000">退出</font></a><%End if%></TD>
        </TR>
        <TR>
          <%set rs=conn.execute ("select content from gg where class='bbs'")%>
          <TD height=26><img src="image/gonggao.gif" border=0> 论坛公告：</TD>
          <TD colspan="3"><marquee scrollAmount=3 scrollDelay=120 onmouseover='this.stop()' onmouseout='this.start()'><%=rs("content")%></marquee></TD>
</TR></TBODY></FORM></TABLE></TD></TR></TBODY></TABLE><BR>
<%Set re=conn.execute ("select * from bbslb order by lbpx")
While not re.eof%>
<TABLE style="BORDER-COLLAPSE: collapse" cellSpacing=0 cellPadding=0 width="778" 
align=center border=1>
  <TBODY>
  <TR>
<TD class=td1 width="97%" background=image/lbg.gif bgColor=#799ae8 
    height=26>&nbsp;&nbsp;<SPAN style="CURSOR: hand"><IMG 
      src="image/fl.gif" border=0></SPAN>　<font color=#000000><%=re("lbname")%></font></TD></TR></TBODY></TABLE>
<%set rs=conn.execute ("select * from bbsbm where lbid ="&re("lbid")&" order by bmpx")
While not rs.eof
%>
<DIV id=tbtype1 align=center>
<TABLE style="BORDER-COLLAPSE: collapse" cellSpacing=0 cellPadding=0 width="778" 
bgColor=#ffffff border=1>
  <TBODY>
  <TR>
    <TD align=middle width=50><IMG src="image/type0.gif" border=0></TD>
    <TD>
      <TABLE style="BORDER-COLLAPSE: collapse" cellSpacing=0 cellPadding=0 
      width="100%" border=0>
        <TBODY>
        <TR>
          <TD bgColor=#f9f8f2>
            <P style="MARGIN: 4px"><A 
            href="show.asp?lb=<%=""&rs("lbid")&""%>&bm=<%=""&rs("bmid")&""%>"><font color="#0066FF"><%=rs("bmname")%></font></A></P></TD>
          <TD align=middle bgColor=#f9f8f2><A title=在本版发新帖 
            href="hf.asp?lb=<%=""&rs("lbid")&""%>&bm=<%=""&rs("bmid")&""%>"><IMG 
            src="image/fabiao1.gif" border=0></A>&nbsp; <A title=查看精华帖 
            href="show.asp?lb=<%=""&rs("lbid")&""%>&bm=<%=""&rs("bmid")&""%>&cz=good"><IMG 
            src="image/good1.gif" border=0></A></TD>
			 <%set ry=conn.execute ("select count(*) from bbs where datediff('d',lastdate,now())=0 and bbsbm="&rs("bmid")&"")
		 %>
          <TD bgColor=#f9f8f2>总贴数：<%=rs("count")%>&nbsp;&nbsp;&nbsp; 今日主题数：<FONT 
            color=red><%=""&ry(0)&""%></FONT></TD></TR>
        <TR>
          <TD vAlign=top>
            <P style="MARGIN: 4px"><IMG src="image/tl.gif" border=0> <%=rs("bmsm")%></P></TD>
          <TD align=middle width=120 rowSpan=2></TD>
          <TD width=300 rowSpan=2>
            <P style="MARGIN: 4px">作者：<%
	set rd=conn.execute ("select name from user where username = '"&rs("lastuser")&"'")
	if rd.eof then 
	response.write "暂无"
	else%>
	<A href="../datum.asp?username=<%=rs("lastuser")%>"><%=rd("name")%></A> 
	<%end if%>
            <BR>时间：<%=rs("lastdate")%><BR>主题：<A 
            href="view.asp?lb=<%=""&rs("lbid")&""%>&bm=<%=""&rs("bmid")&""%>&bbsid=<%=rs("lastbbsid")%>"><%=rs("lasttitle")%></A></P></TD></TR>
        <TR>
          <TD>
  <P 
style="MARGIN: 4px">版主:<%
	if rs("bmadmin")<>"" then
	set rd=conn.execute ("select name from user where username = '"&rs("bmadmin")&"'")%>
	<A href="../datum.asp?username=<%=rs("bmadmin")%>"><%=rd("name")%></A>
  <%else
	response.write "本版面还没有版主"
	end if%></P></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
</DIV><%Rs.movenext
	Wend%><BR>
	<%Re.movenext
	Wend%>
<TABLE style="BORDER-COLLAPSE: collapse" cellSpacing=0 cellPadding=0 width="778" 
align=center border=1>
  <TBODY>
  <TR>
    <TD class=td1 width="100%" background=image/lbg.gif bgColor=#799ae8 
    height=26>&nbsp;<IMG src="image/gl.gif" border=0> <font color=#000000>在线统计</font></TD>
  </TR><%set rs=conn.execute ("select count(*) from online")%>
  <TR>
    <TD width="100%" bgColor=#f9f8f2>
<P style="MARGIN: 5px">目前在线<B><%=rs(0)%></B>人,会员：<%Set rs=conn.execute ("select user.name,online.* from user,online where user.username=online.sname order by online.newtime desc")
While not rs.eof%>
<a href="datum.asp?username=<%=rs("sname")%>" title="俺是在<%=rs("entertime")%>来的"><%=rs("name")%></a>
<%Rs.movenext
	Wend
	Rs.close
	Set Rs=Nothing%></P></TD></TR></TBODY></TABLE>
<!--#include file="../bottom.asp" -->
</BODY></HTML>