📄 news_pl.asp

📁 Art2008 CMS是一款具有强大的功能的基于ASP语言的网站管理软件

💻 ASP

字号:

<!--#include file = admin_conn.asp -->
<!--#include file = admin/titleb.asp -->
<!--#include file = admin/language.asp -->
<head>
<title>无标题文档</title>
</head>

<body>
<%
list=chkhtm(trim(request("list")))
n=chkhtm(trim(request("n")))
titlecolor=trim(request("titlecolor"))
plcolor=trim(request("plcolor"))

if n="" then n=10
if list="" then list=10
if titlecolor="" then titlecolor="000000"
if plcolor="" then plcolor="999999"
 

Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "SELECT TOP "&list&" newspl.newsid, (select title from news where news.id=newspl.newsid) AS hotitle, count(*) AS counts FROM newspl GROUP BY newsid ORDER BY count(*) DESC , newsid DESC;",conn,1,1

while not rs.eof
  Response.Write "　·<a href="&fun_html_url(rs("newsid"))&" target=_blank><font color="&titlecolor&">"&titleb(rs("hotitle"),n)&"</font></a><font color="&plcolor&">(评论"&rs("counts")&"次)</font><BR>"
rs.movenext
wend
%>
<%
conn.close
set conn=nothing
%>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -