📄 bbsview.asp

📁 单班同学录一个非常漂亮的同学录哦

💻 ASP

字号:

<%@LANGUAGE="VBScript" CODEPAGE="936"%>
<!--#include file="CONN.asp" -->
<!--#include file="CHAR.asp" -->
<%
Response.Buffer = True 
Response.ExpiresAbsolute = Now() - 1 
Response.Expires = 0 
Response.CacheControl = "no-cache" 
%>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<link href="css/class.css" rel="stylesheet" type="text/css">
</head>
  <div id=scrollerContent 
style="WIDTH: 380; POSITION: absolute; height: 148px; left: 0; top: 0; z-index: 4;"> 
    <TABLE width=400 height=0 border=0 cellPadding=2 class="font1">
      <TBODY> 
        <%set rs=conn.execute("select top 5 bbs.*,user.realname from bbs inner join [user] on user.username=bbs.PostUser order by bbs.PostTime desc")
		do while not rs.eof%>
        <TR>
          &nbsp;<IMG height=16 src="images/forum.gif" width=18 border=0>
		  <strong><%=formatdate(rs("PostTime"))%></strong>&nbsp;&nbsp; 
		  <strong><FONT color=#1038a8><%=rs("Realname")%></strong></FONT>&nbsp;&nbsp;<%=rs("PostHits")%>&nbsp;&nbsp;
		  <a target="_top" href="postdisplay.asp?id=<%=rS("PostID")%>">
		  <strong><%=rs("PostTitle")%></strong></a>  
        </TR>
        <%rs.movenext
		  loop
		  rs.close
		  set rs=nothing%>
      </body>
	  </TBODY>
    </TABLE>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -