⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 note.asp

📁 一个非常漂亮的ASP代码编写的单班级网站。管理员和密码均是 admin
💻 ASP
📖 第 1 页 / 共 2 页
字号:
          <td><img src="img/images/spacer.gif" alt="" name="undefined_2" width="1" height="1" border="0"></td>
        </tr>
        <tr> 
          <td><a href="index.asp" onClick="MM_nbGroup('down','navbar1','dao_r1_c1','img/images/dao_r1_c1_f3.gif',1);" onMouseOver="MM_nbGroup('over','dao_r1_c1','img/images/dao_r1_c1_f2.gif','img/images/dao_r1_c1_f3.gif',1);" onMouseOut="MM_nbGroup('out');"><img name="dao_r1_c1" src="img/images/dao_r1_c1.gif" width="84" height="31" border="0" alt="班级首页"></a></td>
          <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="780" 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="780" 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="98%" border="0" class="unnamed1">
        <tr> 
          <td>签写留言:</td>
        </tr>
        <tr> 
          <td><form name=form1 method=post action=notecon.asp language=javascript onSubmit="return form1_onsubmit()">
              <table width="100%" border="0" cellpadding="0" cellspacing="0" bordercolor="#111111" class="unnamed1" id="AutoNumber2" style="border-collapse: collapse">
                <tr> 
                  <td width="5%"></td>
                  <td width="87%" style="border: 1px solid #008000; "> <textarea style="font-size: 9pt; overflow: auto; width: 153; height: 200; border: 0px solid #008000; background-color: white" name="content" rows="18" cols="12"><%if key="modify"then
set rsm=server.createobject("ADODB.Recordset")
msql="select * from classnote where id="&id
rsm.open msql,conn,1,1
response.write rsm("content")
end if%></textarea> 
                  </td>
                  <td width="8%"> </td>
                </tr>
                <tr> 
                  <td width="5%"> </td>
                  <td width="87%" height="25"> <p align="center">(留言不超过500字)</td>
                  <td width="8%"> </td>
                </tr>
                <tr> 
                  <td width="5%"> </td>
                  <td width="87%" height="30"><div align=center> 
                      <input type=submit name=Submit value=提交 style="border:1 solid #000000">
                      &nbsp;&nbsp; 
                      <%if key="modify"then%>
                      <input type=hidden name=flag value=<%=rsm("id")%>>
                      <%rsm.close
set rsm=nothing
else%>
                      <input type=hidden name=flag value=add>
                      <%end if%>
                      <input type=reset name=Reset value=重写 style="border:1 solid #000000">
                    </div></td>
                  <td width="8%"> </td>
                </tr>
              </table>
            </form></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="100%" border="0" class="unnamed1">
        <tr> 
          <td><span lang="zh-cn">当前位置:班级留言</span></td>
        </tr>
        <tr> 
          <td class="unnamed1"> <%set rs=server.createobject("ADODB.Recordset")
sql="select * from classnote order by posttime desc"
rs.open sql,conn,1,1
if rs.eof then%>
            暂时没有班级留言 
            <%else
Rs.Pagesize=8
Pageno=CLng(Request("page"))
If Pageno<1 Then Pageno=1
If Pageno>Rs.PageCount Then Pageno=Rs.PageCount
If pageNo=""Then Pageno=1
%> <%
Sub Showpage(Rs,pageno)
Rs.AbsolutePage=Pageno
for I=1 To Rs.PageSize
%> <div align="center"> 
              <center>
                <table width="95%" border="0" cellpadding="4" cellspacing="4" bordercolor="#EFEFEF" class="unnamed1" id="AutoNumber4">
                  <tr> 
                    <td width="100%" bgcolor="#EFEFEF" class="unnamed1"><img src=IMAGES/dot2.gif width=4 height=8><%=rs("posttime")%>&nbsp; <font color=#FD890D><a title=<%=rs("truename")%>><%=rs("truename")%></a></font> <%if rs("userid")=userid then%> <a href=note.asp?key=modify&id=<%=rs("id")%> title=修改><img src=IMAGES/pen.gif width=12 height=14 border=0></a> 
                      <a href=note.asp?key=del&id=<%=rs("id")%> title=删除><img src=IMAGES/char2.gif width=9 height=9 border=0></a> 
                      <%end if%> </td>
                  </tr>
                  <tr> 
                    <td width="100%" bgcolor="#EFEFEF"> <p style="line-height: 150%">&nbsp; 
                        <%=rs("content")%></td>
                  </tr>
                  <%
Rs.Movenext
If Rs.Eof Then Exit For
Next
end sub
%>
                  <%showpage rs,pageno%>
                </table>
              </center>
            </div>
            <table width="100%" height="25" border="0" cellpadding="0" cellspacing="0" bordercolor="#111111" class="unnamed1" style="border-collapse: collapse">
              <tr> 
                <td width="100%"> </td>
              </tr>
            </table>
            <table width="100%" height="30" border="0" cellpadding="0" cellspacing="0" bordercolor="#111111" class="unnamed1" id="AutoNumber5" style="border-collapse: collapse">
              <tr class="unnamed1"> 
                <td width="46%" align="right"> <%
If Pageno<>1 Then
Response.Write"&nbsp;<A href=note.asp>首页</A>&nbsp;"
Response.Write"&nbsp;<A href=note.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=note.asp?page="&(Pageno+1)&">后页</A>&nbsp;"
Response.Write"&nbsp;<A href=note.asp?page="&(Rs.PageCount)&">末页</A>&nbsp;"
Else
Response.Write"&nbsp;后页&nbsp;"
Response.Write"&nbsp;末页&nbsp;"
End If
%> </td>
                <td width="13%" align="right" valign="top"> <form method=get name=select action=note.asp>
                    <select name=page>
                      <%
For I=1 To Rs.PageCount
Response.Write"<option>"&I&"</option>"
Next
%>
                    </select>
                    页&nbsp; 
                    <input name="submit" type=submit value=GO>
                  </form></td>
                <td width="9%" align="right">位置<%=pageno%>/<%=rs.pagecount%> </td>
            </table>
            <%end if%> </td>
        </tr>
      </table></td>
    <td><img src="images/spacer.gif" width="1" height="553" border="0" alt=""></td>
  </tr>
</table>
<table width="783" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td width="993" align="center" bgcolor="#FFFFFF"> 
      <hr width="99%" noshade style="border:1 green dotted"> 
    </td>
  </tr>
  <tr> 
    <td><img src="images/index_r8_c1.gif" width="783" height="71"></td>
  </tr>
</table>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -