diaoyong.asp

来自「ASP编写的网站」· ASP 代码 · 共 22 行

ASP
22
字号
<!--#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 + =
减小字号Ctrl + -
显示快捷键?