index.asp

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

            style="BORDER-RIGHT: #cccccc 1px solid; BORDER-TOP: #cccccc 1px solid; BORDER-LEFT: #cccccc 1px solid; BORDER-BOTTOM: #cccccc 1px solid" 
            cellSpacing=0 cellPadding=0 width="96%" align=center 
bgColor=#ffffff>
              <TBODY>
              <TR>
                <TD><IMG height=30 src="image/m_stu.gif" width=360 
                  useMap=#Map5 border=0></TD></TR>
              <TR>
                <TD>
                  <TABLE cellSpacing=0 cellPadding=0 width="95%" align=center 
                  border=0>
                    <TBODY>
                    <TR>
					<TD width=100>
                        <DIV align=center><IMG height=80 
                        src="image/m_5.gif" 
                        width=80></DIV></TD>
                      <TD background=image/line1.gif>
					 <%
	set rs=Server.CreateObject("Adodb.Recordset")
	sql="select top 7 bbsid,title,bbsbm from bbs order by date desc"
	rs.open sql,conn,1,3
	if rs.eof then
Response.Write("还没有人留言")
else%><table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
 <%do while not rs.eof
 set rt=conn.execute ("select lbid from bbsbm where bmid ="&rs("bbsbm")&"")
 %>
  <tr>
     <td height="20"><A  
      href="bbs/view.asp?lb=<%=rt("lbid")%>&bm=<%=rs("bbsbm")%>&bbsid=<%=rs("bbsid")%>"><%=rs("title")%></a></td>
   </tr>
  <%rs.movenext
      loop
	  rs.close
	  rt.close%></table>
	  <%end if%></TD>
                    </TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR>
  <TR>
    <TD vAlign=top width=220>
      <TABLE cellSpacing=0 cellPadding=0 width="95%" align=center border=0>
        <TBODY>
        <TR>
          <TD><IMG height=8 alt="" src="index_files/stu.htm" width=1 
          name=""></TD></TR>
        <TR>
          <TD>
            <TABLE 
            style="BORDER-RIGHT: #cccccc 1px solid; BORDER-TOP: #cccccc 1px solid; BORDER-LEFT: #cccccc 1px solid; BORDER-BOTTOM: #cccccc 1px solid" 
            height=58 cellSpacing=6 cellPadding=0 width="95%" align=center 
            bgColor=#ffffff>
              <TBODY>
              <TR>
                <TD height=30><img src="image/left_grmb.jpg" width="160" height="30"></TD>
              </TR>
              <TR>
                <TD>　<a href="editreg.asp">我的资料</a>　　<a href="grphoto.asp?mmm=0&photocx=<%=session("wzname")%>">我的照片</a><BR>                  
                  　<a href="mail.asp">我的信箱</a>　　<a href="bj/ly.asp?type2=cz&type3=username&key=<%=session("wzname")%>&bj=<%=session("userclass")%>">我的留言</a><BR>      
                                    　<a href="money.asp">金钱交易</a>　　<a href="note.asp">记事本</a></TD>
              </TR></TBODY></TABLE></TD></TR>
        <TR>
          <TD><IMG height=8 alt="" src="index_files/stu.htm" width=1 
          name=""></TD></TR></TBODY></TABLE>
      <TABLE cellSpacing=0 cellPadding=0 width="95%" align=center border=0>
        <TBODY>
        <TR>
          <TD>
            <TABLE cellSpacing=0 cellPadding=0 width="95%" align=center border=0>
              <TBODY>
                <TR>
                  <TD><TABLE 
            style="BORDER-RIGHT: #cccccc 1px solid; BORDER-TOP: #cccccc 1px solid; BORDER-LEFT: #cccccc 1px solid; BORDER-BOTTOM: #cccccc 1px solid" 
            cellSpacing=5 cellPadding=0 width="95%" align=center 
bgColor=#ffffff>
                      <TBODY>
                        <TR>
                          <TD><IMG height=30 src="image/right_tw.gif" 
              width=188></TD>
                        </TR>
                        <TR>
                          <TD height="330"><%
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select top 3 photo.*,user.username,user.name from photo,user where photo.type2=3 and user.username=photo.username order by photo.pubtime desc,picid desc"
rs.open sql,conn,1,1
if rs.eof then
response.write "还没有学校相片"
else
do while not rs.eof%>
                              <TABLE cellSpacing=6 cellPadding=0 width="95%" align=center 
                  bgColor=#ffffff border=0>
                                <TBODY>
                                  <TR>
                                    <TD><a class=middle href="viewphoto.asp?picid=<%=rs("picid")%>" title="<%=rs("name")%>:<%=rs("title")%>"> <IMG class=border height=125 src="upphoto/<%=rs("pic")%>" width=152> <BR>
                                    </A></TD>
                                  </TR>
                                </TBODY>
                              </TABLE>
                              <%rs.movenext
 loop
 end if
   rs.close
	 set rs=nothing%>
                          </TD>
                        </TR>
                      </TBODY>
                  </TABLE></TD>
                </TR>
              </TBODY>
            </TABLE></TD></TR></TBODY></TABLE>
      <TABLE cellSpacing=0 cellPadding=0 width="95%" align=center border=0>
        <TBODY>
        <TR>
          <TD><IMG height=8 alt="" src="index_files/stu.htm" width=1 
          name=""></TD></TR>
        <TR>
          <TD class=4>
            <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
              <TBODY>
              <TR>
                <TD width="100%">
                  <TABLE 
                  style="BORDER-RIGHT: #cccccc 1px solid; BORDER-TOP: #cccccc 1px solid; BORDER-LEFT: #cccccc 1px solid; BORDER-BOTTOM: #cccccc 1px solid" 
                  cellSpacing=2 cellPadding=2 width="95%" bgColor=#ffffff 
                  border=0>
                    <TBODY>
                    <TR>
                      <TD width="100%"><IMG height=30 
                        src="image/right_dc.gif" width=188></TD></TR>
                    <TR>
                      <TD vAlign=top width="100%"><!--#include file="voteindex.asp"--></TD>
                    </TR>
</TABLE></TD></TR></TABLE></TD></TR></TABLE></TD></TR></TBODY></TABLE>
</TD></TR></TBODY></TABLE>
<TABLE width=780 align=center>
  <TBODY>
  <TR>
    <TD align=center>
      <TABLE 
      style="BORDER-RIGHT: #cccccc 1px solid; BORDER-TOP: #cccccc 1px solid; BORDER-LEFT: #cccccc 1px solid; BORDER-BOTTOM: #cccccc 1px solid" 
      cellSpacing=0 cellPadding=0 width="100%" align=center bgColor=#ffffff>
        <TBODY>
        <TR>
          <TD><IMG height=30 src="image/m_wzxx.gif" width=360 
          border=0></TD></TR>
        <TR>
          <TD>
            <TABLE id=AutoNumber10 style="BORDER-COLLAPSE: collapse" 
            cellSpacing=0 cellPadding=3 width="100%" align=center border=0>
              <TBODY>
                <TR>
                  <TD vAlign=top 
                  height=46>〖<B>最近登录</B>〗
                      <%Set rs=conn.execute ("select top 14 username,name,lastlogin from user order by lastlogin desc")
	if rs.eof then
	response.write "没有成员"
	else
	While not rs.eof%>
                      <a href="datum.asp?username=<%=rs("username")%>" title="俺在<%=rs("lastlogin")%>来过"><%=rs("name")%></a>
                      <%Rs.movenext
	Wend
	end if
	Rs.close%>
                      <BR>
        〖<STRONG>最新注册</STRONG>〗
        <%Set rs=conn.execute ("select top 14 username,name,joindate from user order by joindate desc")
	if rs.eof then
	response.write "没有成员"
	else
	While not rs.eof%>
        <a href="datum.asp?username=<%=rs("username")%>" title="俺是在<%=rs("joindate")%>加入的"><%=rs("name")%></a>
        <%Rs.movenext
	Wend
	end if
	Rs.close%>
        <BR>
        〖<STRONG>富翁排行</STRONG>〗
        <%Set rs=conn.execute ("select top 14 username,name,money from user order by money desc")
	if rs.eof then
	response.write "没有成员"
	else
	do While not rs.eof%>
        <a href="datum.asp?username=<%=rs("username")%>" title="俺有家产<%=rs("money")%>元"><%=rs("name")%></a>
        <%Rs.movenext
	loop
	end if
	Rs.close%>
        <BR>
        〖<STRONG>优秀记者</STRONG>〗
        <%Set rs=conn.execute ("select top 14 username,name,newscount from user order by newscount desc")
	if rs.eof then
	response.write "没有成员"
	else
	do While not rs.eof%>
        <a href="datum.asp?username=<%=rs("username")%>" title="俺已经发布<%=rs("newscount")%>条新闻了"><%=rs("name")%></a>
        <%Rs.movenext
	loop
		end if
	Rs.close%>
        <BR>
        〖<STRONG>在线会员</STRONG>〗
        <%Set rs=conn.execute ("select user.name,online.* from user,online where user.username=online.sname order by online.newtime desc")
if rs.eof then
	response.write "没有成员"
	else
	While not rs.eof%>
        <a href="datum.asp?username=<%=rs("sname")%>" title="俺是在<%=rs("entertime")%>来的"><%=rs("name")%></a>
        <%Rs.movenext
	Wend
	end if
	Rs.close
	Set Rs=Nothing%></TD>
                </TR>
              </TBODY>
            </TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
	
<TABLE width="778" border=0 align=center cellPadding=0 cellSpacing=0>
        <TBODY>
        <TR>
          <TD width="21" height=40 bgcolor="#000000"><div align="center"><font color="#ffffff">友<BR>
              情</font><br>
          </div></TD>
          <TD width="634">
  <table width="100%"  border="0" cellspacing="0" cellpadding="0">
    <tr><td> <div align="center">
	<marquee scrollamount='3' scrolldelay='10' border='0' onmouseover='this.stop()' onmouseout='this.start()'>
	<%Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from link order by id"
rs.open sql,conn,1,1
if rs.eof then
response.write "<td>还没有友情链接，欢迎你加入</td>"
else
do while not rs.eof%>
     <a href="<%=rs("sitehttp")%>" target="_blank"><img src="<%=rs("sitelogo")%>" title="<%=rs("sitename")%>" border=0 width=88 height=31></a>　
     <%rs.movenext
	 loop
	 end if
	 rs.close%></marquee>
	  </div></td></tr>
  </table></TD>
          <TD width="102"><div align="center"><img src="image/logo.gif" width="88" height="31" border="0">
          </div></TD>
       
          <TD width="22" bgcolor="#000000"><div align="center"><font color="#ffffff">链<br>
接</font>
  </div></TD>
        </TR></TBODY></TABLE>
<!--#include file="bottom.asp"-->
</BODY></HTML>