shownote.asp

来自「希望这个班级源码能够帮那些需要帮助的朋友」· ASP 代码 · 共 35 行

<!--#include file="inc/DB.INC"-->
<!--#include file="inc/func.INC"-->
<!--#include file="inc/chkonline.asp"-->
<%call online()%>

<LINK href="jscs/frame.CSS" type=text/css rel=stylesheet>

<table width="345" border="0" align="center" cellpadding="3" cellspacing="0">
             <%set rs=server.createobject("ADODB.Recordset")
	sql="select * from classnote order by posttime desc"
	rs.open sql,conn,1,1
	for i=1 to 8
		if rs.eof then
		exit for
		end if%>
        <tr> 
          <td bgcolor="#FFFFFF"><img src="IMAGES/dot2.gif" width="4" height="8"><%=FormatDateTime(rs("posttime"),2)%>&nbsp;<%=FormatDateTime(rs("posttime"),4)%>&nbsp;
<font color=#FD890D><a title="<%=rs("truename")%>"><%=rs("userid")%></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 bgcolor="#FFFFFF"><%=rs("content")%></td>
        </tr>
        <%rs.movenext
		next%>
       <%rs.close
set rs=nothing
set conn=nothing%>
      </table>