guest.asp

一个非常漂亮的ASP代码编写的单班级网站。管理员和密码均是 admin

          <td colspan="2"><a href="int.asp" onClick="MM_nbGroup('down','navbar1','dao_r1_c2','img/images/dao_r1_c2_f3.gif',1);" onMouseOver="MM_nbGroup('over','dao_r1_c2','img/images/dao_r1_c2_f2.gif','img/images/dao_r1_c2_f3.gif',1);" onMouseOut="MM_nbGroup('out');"><img name="dao_r1_c2" src="img/images/dao_r1_c2.gif" width="85" height="31" border="0" alt="班级简介"></a></td>
          <td colspan="2"><a href="modify.asp" onClick="MM_nbGroup('down','navbar1','dao_r1_c4','img/images/dao_r1_c4_f3.gif',1);" onMouseOver="MM_nbGroup('over','dao_r1_c4','img/images/dao_r1_c4_f2.gif','img/images/dao_r1_c4_f3.gif',1);" onMouseOut="MM_nbGroup('out');"><img name="dao_r1_c4" src="img/images/dao_r1_c4.gif" width="85" height="31" border="0" alt="资料修改"></a></td>
          <td colspan="2"><a href="note.asp" onClick="MM_nbGroup('down','navbar1','dao_r1_c6','img/images/dao_r1_c6_f3.gif',1);" onMouseOver="MM_nbGroup('over','dao_r1_c6','img/images/dao_r1_c6_f2.gif','img/images/dao_r1_c6_f3.gif',1);" onMouseOut="MM_nbGroup('out');"><img name="dao_r1_c6" src="img/images/dao_r1_c6.gif" width="85" height="31" border="0" alt="班级留言"></a></td>
          <td colspan="2"><a href="card.asp" onClick="MM_nbGroup('down','navbar1','dao_r1_c8','img/images/dao_r1_c8_f3.gif',1);" onMouseOver="MM_nbGroup('over','dao_r1_c8','img/images/dao_r1_c8_f2.gif','img/images/dao_r1_c8_f3.gif',1);" onMouseOut="MM_nbGroup('out');"><img name="dao_r1_c8" src="img/images/dao_r1_c8.gif" width="85" height="31" border="0" alt="同学名片"></a></td>
          <td colspan="2"><a href="showpic.asp" onClick="MM_nbGroup('down','navbar1','dao_r1_c10','img/images/dao_r1_c10_f3.gif',1);" onMouseOver="MM_nbGroup('over','dao_r1_c10','img/images/dao_r1_c10_f2.gif','img/images/dao_r1_c10_f3.gif',1);" onMouseOut="MM_nbGroup('out');"><img name="dao_r1_c10" src="img/images/dao_r1_c10.gif" width="85" height="31" border="0" alt="班级像册"></a></td>
          <td colspan="2"><a href="guest.asp" onClick="MM_nbGroup('down','navbar1','dao_r1_c12','img/images/dao_r1_c12_f3.gif',1);" onMouseOver="MM_nbGroup('over','dao_r1_c12','img/images/dao_r1_c12_f2.gif','img/images/dao_r1_c12_f3.gif',1);" onMouseOut="MM_nbGroup('out');"><img name="dao_r1_c12" src="img/images/dao_r1_c12.gif" width="85" height="31" border="0" alt="个人留言"></a></td>
          <td colspan="3"><a href="lt/index.asp" target="_blank" onMouseOut="MM_nbGroup('out');" onMouseOver="MM_nbGroup('over','dao_r1_c14','img/images/dao_r1_c14_f2.gif','img/images/dao_r1_c14_f3.gif',1);" onClick="MM_nbGroup('down','navbar1','dao_r1_c14','img/images/dao_r1_c14_f3.gif',1);"><img name="dao_r1_c14" src="img/images/dao_r1_c14.gif" width="96" height="31" border="0" alt="班级论坛"></a></td>
          <td><a href="flash/xinshang.htm" target="_blank" onMouseOut="MM_nbGroup('out');" onMouseOver="MM_nbGroup('over','dao_r1_c17','img/images/dao_r1_c17_f2.gif','img/images/dao_r1_c17_f3.gif',1);" onClick="MM_nbGroup('down','navbar1','dao_r1_c17','img/images/dao_r1_c17_f3.gif',1);"><img name="dao_r1_c17" src="img/images/dao_r1_c17.gif" width="85" height="31" border="0" alt="娱乐欣赏"></a></td>
          <td>&nbsp;</td>
        </tr>
      </table></td>
    <td><img src="images/spacer.gif" width="1" height="9" border="0" alt=""></td>
  </tr>
  <tr> 
    <td colspan="12"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="783" height="200">
        <param name="movie" value="images/benner.swf">
        <param name="quality" value="high">
        <embed src="images/benner.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="783" height="200"></embed></object></td>
    <td><img src="images/spacer.gif" width="1" height="202" border="0" alt=""></td>
  </tr>
  <tr> 
    <td colspan="3" valign="top" bgcolor="#FFFFFF" class="unnamed1"><table width="100%" border="0" class="unnamed1">
        <tr> 
          <td><div align="center"><a href="#" onClick="window.open('sender.asp','ToseePlay','top=0,scrollbars=1,resizable=1,height=145,width=400,left='+(screen.width-650)/2);return false;"  title="发送私人留言"><font color="#FF0000">签写私人留言</font></a></div></td>
        </tr>
        <tr> 
          <td><table width="100%" height="91" border="0" cellpadding="0" cellspacing="0" bordercolor="#111111" class="unnamed1" id="AutoNumber2" style="border-collapse: collapse">
              <tr> 
                <td width="32%" height="9"></td>
                <td width="68%" height="9"></td>
              </tr>
              <tr> 
                <td width="32%" height="19"><div align="right">用户ID:</div></td>
                <td width="68%" height="19"><%=userid%></td>
              </tr>
              <tr> 
                <td width="32%" height="11"><div align="right"></div></td>
                <td width="68%" height="11"></td>
              </tr>
              <tr> 
                <td width="32%" height="20"><div align="right">用户名:</div></td>
                <td width="68%" height="20"> <%
set rs=server.createobject("ADODB.Recordset")
sql="select * from txluser where userid='"&userid&"' order by id desc"
rs.open sql,conn,1,1
%> 
                  <%=rs("truename")%></td>
              </tr>
              <tr> 
                <td width="32%" height="13"><div align="right"></div></td>
                <td width="68%" height="13"></td>
              </tr>
              <tr> 
                <td width="32%" height="18"><div align="right">留言数:</div></td>
                <td width="68%" height="18"><font color="#FF0000"><%=allprivate(tablename,geter)%></font> <span lang="zh-cn">条</span></td>
              </tr>
              <tr> 
                <td width="32%" height="13"><div align="right"></div></td>
                <td width="68%" height="13"></td>
              </tr>
              <tr> 
                <td width="32%" height="17"><div align="right">页现数:</div></td>
                <td width="68%" height="17"><font color="#FF0000">12</font> <span lang="zh-cn">条</span></td>
              </tr>
              <tr> 
                <td width="32%" height="13"><div align="right"></div></td>
                <td width="68%" height="13"></td>
              </tr>
              <tr> 
                <td width="32%" height="18"><div align="right">现状态:</div></td>
                <td width="68%" height="18"> <%if userid<>"" then%> <font color="#FF0000">已登录</font> 
                  <%end if%> </td>
              </tr>
            </table></td>
        </tr>
      </table></td>
    <td valign="top" background="images/index_r7_c5.gif"><img name="index_r7_c5" src="images/index_r7_c5.gif" width="5" height="553" border="0" alt=""></td>
    <td colspan="8" valign="top" bgcolor="#FFFFFF" class="unnamed1"> <table width="98%" border="0" cellpadding="0" cellspacing="0" bordercolor="#111111" class="unnamed1" id="AutoNumber3" style="border-collapse: collapse">
        <tr> 
          <td width="100%">　<span lang="zh-cn">当前位置：私人留言</span></td>
        </tr>
      </table>
      <%
set rs=server.createobject("ADODB.Recordset")
sql="select * from private where geter='"&geter&"' order by id desc"
rs.open sql,conn,1,1
Rs.Pagesize=12
Pageno=CLng(Request("page"))
If Pageno<1 Then Pageno=1
If Pageno>Rs.PageCount Then Pageno=Rs.PageCount
If pageNo=""Then Pageno=1%> <%if rs.eof then
else%> <%
Sub Showpage(Rs,pageno)
Rs.AbsolutePage=Pageno
for I=1 To Rs.PageSize
if i mod 2=0 then
col="#E4E8EF"
else
col="#ffffff"
end if%> <div align="center"> 
        <center>
          <table border="0" cellpadding="2" bordercolor="#F6F6F6" width="95%" id="AutoNumber4" bgcolor="#FFFFFF">
            <tr> 
              <td width="100%" bgcolor="#EFEFEF" class="unnamed1"><FONT color=#003300> 
                <IMG 
      src="images/arrow.gif" width="4" height="8"> <B><%=rs("writer")%> 在<%=rs("posttime")%> 对你写道：</B> 
                <%myid=rs("id")%>
                <a href="#" onclick="window.open('sender.asp?id=<%=myid%>','ToseePlay','top=0,scrollbars=1,resizable=1,height=160,width=400,left='+(screen.width-650)/2);return false;"  title="回复私人留言"><img src="IMAGES/preply.gif" width="47" height="18" align="absmiddle" border=0></a>&nbsp;<a href="guest.asp?id=<%=rs("id")%>"><font color=#000000>删除</font></a></font></td>
            </tr>
            <tr> 
              <td width="100%" bgcolor="#EFEFEF" class="unnamed1"><%=rs("content")%></td>
            </tr>
            <tr> 
              <td width="100%" class="unnamed1">　</td>
            </tr>
          </table>
        </center>
      </div>
      <%
Rs.Movenext
If Rs.Eof Then Exit For
Next
end sub
%> <%showpage rs,pageno%> 
      <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="98%">
        <tr> 
          <td width="100%" height="25" align="right" class="unnamed1"> <font color="#000000"> 
            <%
If Pageno<>1 Then
Response.Write"&nbsp;<A href=guest.asp>首页</A>&nbsp;"
Response.Write"&nbsp;<A href=guest.asp?page="&(Pageno-1)&">前页</A>&nbsp;"
Else
Response.Write"&nbsp;首页&nbsp;"
Response.Write"&nbsp;前页&nbsp;"
End If
If Pageno<>rs.PageCount Then
Response.Write"&nbsp;<A href=guest.asp?page="&(Pageno+1)&">后页</A>&nbsp;"
Response.Write"&nbsp;<A href=guest.asp?page="&(Rs.PageCount)&">末页</A>&nbsp;"
Else
Response.Write"&nbsp;后页&nbsp;"
Response.Write"&nbsp;末页&nbsp;"
End If
%>
            <span class="unnamed1">位置</span><%=pageno%>/<%=rs.pagecount%>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </font></td>
        </tr>
      </table>
      <%end if%> </td>
    <td><img src="images/spacer.gif" width="1" height="553" border="0" alt=""></td>
  </tr>
  <tr> 
    <td colspan="12" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td align="center" bgcolor="#FFFFFF"> <hr width="100%" noshade style="border:1 green dotted"> 
          </td>
        </tr>
      </table>
      <img src="images/index_r8_c1.gif" width="784" height="71"></td>
    <td><img src="images/spacer.gif" width="1" height="71" border="0" alt=""></td>
  </tr>
</table>
</body>
</html>
<%
set rs=Server.CreateObject("ADODB.RECORDSET")
sql="select * from [syssetup]"
rs.open sql,conn,1,1
webname=rs("webname")
classname=rs("classname")
webcounter=rs("webcounter")
mysql="update [syssetup] set webcounter=webcounter+1"
conn.execute(mysql)
set rs=nothing
set conn=nothing
%>