left.asp

学校用的班级网站

<link href="css.css" rel="stylesheet" type="text/css">
<form method="POST" action="login.asp">
  <table width="186" border="0" cellpadding="0" cellspacing="00" class="unnamed1">
    <tr> 
      <td width="186"><img name="left_r1_c1" src="images/left_r1_c1.gif" width="186" height="12" border="0" alt=""></td>
    </tr>
    <tr> 
      <td height="20"><img src="images/left_r2_c1.gif" width="182" height="25"> 
        <%if userid<>"" then%>
      </td>
    </tr>
    <tr> 
      <td background="images/left_r3_c1.gif"> <table width="99%" height="91" border="0" align="center" cellpadding="0" cellspacing="0" class="unnamed1">
          <tr> 
            <td width="70%" height="29" colspan="2" class="unnamed1"> 
              <%
set rs=server.createobject("ADODB.Recordset")
sql="select * from txluser where userid='"&userid&"' order by id desc"
rs.open sql,conn,1,1
%>
            </td>
          </tr>
          <tr> 
            <td width="35%" class="unnamed1"> <div align="right">用户名:</div></td>
            <td width="65%"><font color="#FF0000"><%=userid%></font></td>
          </tr>
          <tr> 
            <td width="35%" class="unnamed1"> <p align="right">昵 称: </td>
            <td width="65%"><font color="#FF0000"><%=rs("truename")%></font></td>
          </tr>
          <tr> 
            <td width="35%" class="unnamed1"> <p align="right">登 陆: </td>
            <td width="65%"><font color="#FF0000"><%=rs("logcnt")%></font></td>
          </tr>
        </table>
        <div align="center"> 
          <%if rs("manclass")=2 then%>
          <a href="admin.asp">网站管理</a> <a href="admin.asp"> 
          <%end if%>
          </a> 
          <%else%>
        </div>
        <div align="center"> 
          <table width="81%" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#111111" class="unnamed1" id="AutoNumber1" style="border-collapse: collapse">
            <tr> 
              <td width="33%"></td>
              <td width="67%"></td>
            </tr>
            <tr> 
              <td width="33%" height="34" align="right" class="unnamed1">用户名:</td>
              <td width="67%" height="34"> <input type="text" name="userid" size="8" style="border: 1px solid #000000; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1"> 
              </td>
            </tr>
            <tr> 
              <td width="33%" align="right" class="unnamed1"><div align="center">密 
                  码:</div></td>
              <td width="67%"> <input type="password" name="password" size="8" style="border: 1px solid #000000; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1"> 
              </td>
            </tr>
          </table>
          <div align="center"> 
            <%end if%>
            <%if userid<>"" then%>
            <a href="quit.asp"> <img border="0" src="images/bt_main_logout1.gif" alt="退出本站系统" width="45" height="20"></a> 
            <%else%>
            <input name="imageField" type="image" src="images/bt_main_login1.gif" border="0" height="20" width="45">
            <%end if%>
          </div>
          <table width="73%" border="0" class="unnamed1">
            <tr class="unnamed1"> 
              <td width="35%"> <div align="center"><a href="reg.asp">注册</a></div></td>
              <td width="65%"> <div align="center"><a href="#">忘记密码</a>？</div></td>
            </tr>
          </table>
        </div></td>
    </tr>
    <tr> 
      <td><img name="left_r4_c1" src="images/left_r4_c1.gif" width="182" height="25" border="0" alt=""></td>
    </tr>
    <tr> 
      <td><table width="94%" height="94" border="0" cellpadding="0" cellspacing="0" bordercolor="#111111" class="unnamed1" id="AutoNumber2" style="border-collapse: collapse">
          <tr> 
            <td width="93" height="27" class="unnamed1">　 网站流量：</td>
            <%
                set rs=Server.CreateObject("ADODB.RECORDSET")
                sql="select * from syssetup"
                rs.open sql,conn,1,1%>
            <td width="82" height="27" class="unnamed1"><font color="#FF0000"><%=rs("webcounter")%></font></td>
          </tr>
          <tr> 
            <td width="93" height="18" class="unnamed1"> <div align="center">现成员数：</div></td>
            <%
                set rs=server.createobject("ADODB.Recordset")
                sql="select truename,headpic,birthday from [txluser] where month(birthday)=month(Now())"
                rs.open sql,conn,1,1
                %>
            <td width="82" height="18" valign="bottom" class="unnamed1"><font color="#FF0000"><%=allrec("txluser")%></font></td>
          </tr>
          <tr> 
            <td width="93" height="24" class="unnamed1">　 现留言数：</td>
            <td width="82" height="24" valign="bottom" class="unnamed1"><font color="#FF0000"><%=allrec("classnote")%></font></td>
          </tr>
          <tr> 
            <td width="93" height="25" class="unnamed1">　 现相片数：</td>
            <td width="82" height="25" valign="bottom" class="unnamed1"><font color="#FF0000"><%=allphotoes("all")%></font></td>
          </tr>
        </table></td>
    </tr>
    <tr> 
      <td><img name="left_r6_c1" src="images/left_r6_c1.gif" width="182" height="24" border="0" alt=""></td>
    </tr>
    <tr> 
      <td> 
        <%
                set rs=server.createobject("ADODB.Recordset")
                sql="select truename,headpic,birthday from [txluser] where month(birthday)=month(Now())"
                rs.open sql,conn,1,1
                %>
        <%if rs.eof then
response.write"本月没有寿星"
else
set truename=rs("truename")
set headpic=rs("headpic")
do while not rs.eof
mymonth=datepart("m",rs("birthday"))&"月"&datepart("d",rs("birthday"))&"日"%>
        <table width="75%" height="26" border="0" cellpadding="0" cellspacing="0" bordercolor="#111111" class="unnamed1" style="border-collapse: collapse">
          <tr> 
            <td width="100%" height="26"><img height=16 width=16 src=<%=headpic%>> 
              <a href=# onClick="window.open('sender.asp','ToseePlay','top=0,scrollbars=1,resizable=1,height=160,width=400,left='+(screen.width-650)/2);return false;" title=给他/她写生日赠言> 
              <%=truename%>--<%=mymonth%></a></td>
          </tr>
        </table>
        <%
rs.movenext
loop
set rs=nothing
set truename=nothing
set headpic=nothing
end if%>
      </td>
    </tr>
    <tr> 
      <td><img name="left_r8_c1" src="images/left_r8_c1.gif" width="182" height="23" border="0" alt=""></td>
    </tr>
    <tr> 
      <td> 
        <%
sql="select truename,lastime,userip from online"
set rs=conn.execute(sql)
if not rs.eof then
set onname=rs("truename")
set ontime=rs("lastime")
set onip=rs("userip")
while not rs.eof%>
        <table width="97%" height="25" border="0" cellpadding="0" cellspacing="0" bordercolor="#111111" class="unnamed1" style="border-collapse: collapse">
          <tr> 
            <td width="100%"><%=onname%><font color="#008000">-</font><font color="#FF0000">IP: 
              <%
Position = InStrRev(onip, ".")
myip=mid(onip,1,position)
response.write myip&"***"
%>
              </font></td>
          </tr>
        </table>
        <%rs.movenext
wend
set rs=nothing
set onname=nothing
set notime=nothing
set onip=nothing
end if%>
      </td>
    </tr>
  </table>
</form>