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 + -
显示快捷键?