📄 js-pl.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>");
<%
list=chkhtm(trim(request("list")))
font=chkhtm(trim(request("font")))
'color=chkhtm(trim(request("color")))
n=chkhtm(trim(request("n")))
t=trim(request("t"))
if list="" then list=10
list=int(list)
if font="" then font="9"
'if color="" then color="000000"
if n="" then n="30"
n=int(n)

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&" border=0>"
else
  icon=""
end if
%>
document.write("<table  width='100%' align='center' cellpadding='0' cellspacing='0' >");

<%
Set rs = Server.CreateObject("ADODB.RecordSet")
	rs.Open "select top "&list&" * from [newspl] where sh=1 order by id desc",conn,1,1
   
   if rs.recordcount<>0 then 
	
	 while not rs.eof
      id=rs("id")
	 'content=titleb(rs("content"),n)
	 content=glhtml(titleb(rs("content"),n))
	  newsid=(rs("newsid"))
	 
  tttt=rs("addtime")   
  nowdate=rs("addtime")   
  y=Year(nowdate)   
  m=Month(nowdate)   
  d=Day(nowdate)   
  if   len(m)=1   then   
  m="0"&m   
  end   if   
  if   len(d)=1   then   
  d="0"&d   
  end   if
 
  tttt1=y&"年"&m&"月"&d&"日"             '2006年01月01日 
  tttt2=y&"-"&m&"-"&d                    '2006-01-01
  tttt3=m&"月"&d&"日"                    '01月01日 
  tttt4=m&"-"&d                          '01-01

%>

document.write("<tr <% if bbb=1 then Response.Write "style='background-color: #F2F2F2'"%>>");
document.write("<td height='18'><font style='font-size:<%=font%>pt'><%=icon%>&nbsp;<a target='_blank' href='<%=fun_html_url(newsid)%>' style='font-size:<%=font%>pt;color=<%=color%>'><%=content%></a></td><td>");

//document.write("<td height='15' bgcolor='#f3f3f3' ><table width='100%'  border='0' cellspacing='0' cellpadding='0'><tr><td style='font-size:<%=font%>pt;'><font color='#0066CC'><%=rs("username")%></font></td><td align=right bgcolor='#f3f3f3'>");

<%
if t="1" then%>
document.write("<font color=999999 style='font-size:<%=font%>pt'><%=tttt1%></font>");
<%elseif t="2" then %>
document.write("<font color=999999 style='font-size:<%=font%>pt'><%=tttt2%></font>");
<%elseif t="3" then%>
document.write("<font color=999999 style='font-size:<%=font%>pt'>[<%=tttt3%>]</font>");
<%elseif t="4" then%>
document.write("<font color=999999 style='font-size:<%=font%>pt'>[<%=tttt4%>]</font>");
<% end if %>


//document.write("</td></tr></table></td></tr>");
////document.write("<tr><td width='100%'  height='15'><a target='_blank' href='<%=fun_html_url(newsid)%>' style='font-size:<%=font%>pt;color=<%=color%>'><%=content%></a></td>");

//document.write("<tr><td width='100%'  height='15'><a target='_blank' href='<%=fun_html_url(newsid)%>' style='font-size:<%=font%>pt'><%=content%></a></td>");
//document.write("</tr>");
document.write("</td></tr>");

<%
bbb=bbb+1
if bbb>=2 then bbb=0
rs.movenext
wend

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

<%
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
document.write("</table>");
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -