📄 diaoyong.asp

📁 ASP编写的网站

💻 ASP

字号:

<!--#include file="Inc_common.asp"-->
<body topmargin="0" leftmargin="0">
<%
dim n
  n=10    'n为要显示的留言数，可自己修改之
sql="Select top "&n&" * from topic where checked=1 and whisper=0 order by usertime desc"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1

if rs.eof and rs.bof then
  Response.Write "没有留言。"
  rs.close
  set rs=nothing
else
  while not rs.eof
  Response.Write "<A HREF='index.asp' title='点击查看留言' target='_parent'>"&htmlencode(rs("usertitle"))&"</A>--"&htmlencode(rs("username"))&"<br>"
  rs.movenext
  wend
  rs.close
  set rs=nothing
end if
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -