📄 js-zt.asp

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

💻 ASP

字号:

<!--#include file = admin_conn.asp -->
<!--#include file = admin/titleb.asp -->
document.write("<head><meta http-equiv='Content-Language' content='zh-cn'><meta http-equiv='Content-Type' content='text/html; charset=gb2312'></head>");


<%
n=chkhtm(trim(request("n")))
list=chkhtm(trim(request("list")))
font=chkhtm(trim(request("font")))
color=chkhtm(trim(request("color")))
line=chkhtm(trim(request("line")))
icon=trim(request("icon"))
if icon="1" then 
icon="<font face=Wingdings>1</font>"
elseif icon<>"0" and icon<>"1" then 
icon="<img src="&icon&" align='absmiddle' border=0>"
else
  icon=""
end if
more=trim(request("more"))

if (not isNumeric(line)) then line=20
if (not isNumeric(font)) then font=9
if (not isNumeric(n)) then n=30
if (not isNumeric(list)) then list=20
%>



document.write("<div align=center><table border=0 cellpadding=0 cellspacing=0 width=100%>");
<%
path=trim(config("path"))

set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "select top "&list&" * from [NewsZT] order by id desc",conn,1,1
if rs.recordcount<>0 then
while not rs.EOF
title=titleb(rs("title"),n)
ztid=rs("id")
%>
document.write("<tr><td height=<%=line%> width=10><font style='font-size:<%=font%>pt'><%=icon%>&nbsp;</font></td>");
document.write("<td height=<%=line%>><a href='<%=path%>news_zt.asp?ztid=<%=ztid%>' target=_blank style='font-size:<%=font%>pt;color:<%=color%>'><%=title%></a></td></tr>");
<%
rs.movenext
 wend


if more="1" then
%>
document.write("<tr><td align=right colspan=2><a href=News_zt_more.asp target=_blank>更多专题...</a></td></tr>");
<%
end if

 else
 %>
  document.write("<tr><td width='100%'  height='15'><font style='font-size:<%=font%>pt'>暂无内容!</font></td></tr>");

<%

 
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
document.write("</table></div>");

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -