left.asp

这是一个校友录管理系统

      <table border="0" width="100%" cellspacing="0" cellpadding="0">
        <tr>
          <td width="100%" style="border-bottom: 1 solid #000000;"><img border="0" src="<%=SmallLOGO%>"></td>
        </tr>
        <tr>
          <td bgcolor="#EDEDED" height="25" style="border-bottom: 1 solid #cccccc;">
            <table border="0" width="100%" cellspacing="0" cellpadding="0">
              <tr>
                <td width="12%">
                  <p align="right"><img border="0" src="images/sam.gif" width="15" height="16"></td>
  <center>
  <td width="88%" valign="bottom">&nbsp;<font color="#545454">最新加入的三名学生                               
    TOP3</font></td>
                </tr>
              </table>
            </center>
            </td>
        </tr>
        <tr>
          <td width="100%">
            <p style="line-height: 150%; margin-left: 5; margin-top: 2; margin-bottom: 2">
<%
SQL="SELECT TOP 3  ID,username,speciality FROM [user] ORDER BY ID DESC"
Set RS=server.Createobject("ADODB.Recordset")
RS.open SQL,Conn,1,1
DO While Not RS.EOF
AbsolutePositionReCordset
Response.Write " " & "<a href='userinfo.asp?id=" & RS("ID") & "'>" & RS("username") & "</a>" & " -- " 
Response.Write ViewPro(RS("speciality")) & "<BR>"
rs.movenext
loop
Set RS=Nothing
%>             
</td>            
        </tr>
        <tr>
          <td height="25" bgcolor="#EDEDED" style="border-top: 1 solid #cccccc; border-bottom: 1 solid #cccccc;">
            <table border="0" width="100%" cellspacing="0" cellpadding="0">
              <tr>
                <td width="12%">
                  <p align="right"><img border="0" src="images/sam.gif" width="15" height="16"></td>
                <td width="88%" valign="bottom">&nbsp;<font color="#545454">最新加入的三个班级                               
                  TOP3</font></td>
              </tr>
            </table>
          </td>
        </tr>
        <tr>
          <td width="100%">
            <p style="line-height: 150%; margin-left: 5; margin-top: 2; margin-bottom: 2">
<%
SQL="SELECT TOP 3  * FROM class ORDER BY ID DESC"
Set RS=server.Createobject("ADODB.Recordset")
RS.open SQL,Conn,1,1
DO While Not RS.EOF
AbsolutePositionReCordset
Response.Write " " & "<a href='classinfo.asp?id=" & RS("ID") & "'>" & RS("classname") & "</a>" & " -- " 
Response.Write ViewPro(RS("specialty")) & "<BR>"
rs.movenext
loop
Set RS=Nothing
%> 
          </td>
        </tr>
        <tr>
        <td height="25" bgcolor="#EDEDED" style="border-top: 1 solid #cccccc; border-bottom: 1 solid #cccccc;">
            <table border="0" width="100%" cellspacing="0" cellpadding="0">
              <tr>
                <td width="12%">
                  <p align="right"><img border="0" src="images/top.gif" width="15" height="16"></td>
                <td width="87%" valign="bottom">&nbsp;<font color="#545454">最热门的三名学生&nbsp;&nbsp;                               
                  TOP3</font></td>
              </tr>
            </table>
          </td>
          </tr>
          <td width="100%">
            <p style="line-height: 150%; margin-left: 5; margin-top: 2; margin-bottom: 2">             
<%
SQL="SELECT TOP 3  ID,username,speciality FROM [user] ORDER BY rq DESC"
Set RS=server.Createobject("ADODB.Recordset")
RS.open SQL,Conn,1,1
I=0
DO While Not RS.EOF And I<3
AbsolutePositionReCordset
Response.Write " " & "<a href='userinfo.asp?id=" & RS("ID") & "'>" &  RS("username") & "</a>" & " -- " 
Response.Write ViewPro(RS("speciality")) & "<BR>"
rs.movenext
I=I+1
Loop
Set RS=Nothing
%>            
      </td>
        <tr>
                <td height="25" bgcolor="#EDEDED" style="border-top: 1 solid #cccccc; border-bottom: 1 solid #cccccc;">
            <table border="0" width="100%" cellspacing="0" cellpadding="0">
              <tr>
                <td width="12%">
                  <p align="right"><img border="0" src="images/top.gif" width="15" height="16"></td>
                <td width="87%" valign="bottom">&nbsp;<font color="#545454">最热门的三个班级&nbsp;&nbsp;                               
                  TOP3</font></td>
              </tr>
            </table>
          </td>
          </tr>
          <td width="100%">
            <p style="line-height: 150%; margin-left: 5; margin-top: 2; margin-bottom: 2">
<%
SQL="SELECT TOP 3  * FROM class ORDER BY rq DESC"
Set RS=server.Createobject("ADODB.Recordset")
RS.open SQL,Conn,1,1
I=0
DO While Not RS.EOF And I<3
AbsolutePositionReCordset
Response.Write " " & "<a href='classinfo.asp?id=" & RS("ID") & "'>" & RS("classname") & "</a>" & " -- " 
Response.Write ViewPro(RS("specialty")) & "<BR>"
RS.Movenext
I=I+1
loop
Set RS=Nothing
%>                       
                       
      </td>
      </table>