left.asp

程序名称：酷虎网校友录 V1.0 （商业版）*(修改版） * 本软体为商业软件

      <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,姓名,专业 FROM 注册信息 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("姓名") & "</a>" & " -- " 
Response.Write ViewPro(RS("专业")) & "<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 班级设置 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("班级名称") & "</a>" & " -- " 
Response.Write ViewPro(RS("专业类型")) & "<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,姓名,专业 FROM 注册信息 ORDER BY 人气 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("姓名") & "</a>" & " -- " 
Response.Write ViewPro(RS("专业")) & "<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 班级设置 ORDER BY 人气 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("班级名称") & "</a>" & " -- " 
Response.Write ViewPro(RS("专业类型")) & "<BR>"
RS.Movenext
I=I+1
loop
Set RS=Nothing
%>                       
                       
      </td>
      </table>