js_p_t_c.asp

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

<!--#include file = admin_conn.asp -->
<!--#include file = admin/titleb.asp -->
<%
lm=trim(request("lm"))
lm2=trim(request("lm2"))
if lm="" then lm=lm2
if lm2="" then lm2=lm

n=trim(request("n"))
cn=trim(request("cn"))
picw=trim(request("picw"))
pich=trim(request("pich"))
tfont=trim(request("tfont"))
cfont=trim(request("cfont"))
titlecolor=trim(request("titlecolor"))
if n="" then n=10
if cn="" then cn=80
n=int(n)
cn=int(cn)
if picw="" then picw=50
if pich="" then pich=60
if tfont="" then tfont=9
if cfont="" then cfont=9
if titlecolor="" then titlecolor="000000"

font=trim(request("font"))
if font="" then font="9"

open=trim(request("open"))
if open="1" then
    open="_blank"
else
	open="_top"
end if
list=trim(request("list"))
if list="" then list=2
list=int(list)

sql = "select top "&list&" id,title,titlecolor,hit,content,pic,ontop,time,lm,lm2,lm3,updat,zz,file_path,file_name from news where ( pic like '%.jpg%' or pic like '%.JPG%' or pic like '%.gif%' or pic like '%.GIF%' ) and sh=1 "

if lm2<>"0" then
  sql=sql&" and (lm='"&lm2&"' or lm2='"&lm2&"' or lm3='"&lm2&"') "  
end if

 sql= sql&" order by ontop desc, updat desc, id desc"


Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1


if rs.recordcount<>0 then
while not rs.eof			   
			   
			   id=rs("id")
			   title=glhtml(titleb(rs("title"),n))	
	content=glhtml(rs("content"))
      for i=1 to 31
      	content=replace(content,chr(i),"")
      next
        content=glhtml(titleb(content,cn))   
			  
			   pic=rs("pic")			   
			   
%>
document.write("<TABLE cellSpacing=0 cellPadding=1 width='100%' border=0>");
document.write("<TR><TD vAlign=top  align='left'>");
document.write("<table cellpadding='0' cellspacing='2' bgcolor='#FFFFFF' style='border: 1px solid #cccccc'><tr><td><a href=<%=fun_html_url(id)%> target='<%=open%>' title='<%=title%>'><img border=0 width=<%=picw%> height=<%=pich%> src=<%=pic%>></a></td></tr></table></TD>");						
document.write("<td width=8></td><TD vAlign=top align=left width='80%'><TABLE cellSpacing=1 cellPadding=0 width='100%' border=0>");
document.write("<TR><TD height=20 width='100%'><a href=<%=fun_html_url(id)%> target=<%=open%> title='<%=title%>'><font color='<%=titlecolor%>' style='font-size:<%=tfont%>pt'><%=title%></font></a></TD></TR>");
document.write("<tr><TD  background='images/line.gif'height=4></TD></tr>");
document.write("<TR><TD ><%=content%><a href='<%=fun_html_url(rs("id"))%>' target='<%=open%>'>【阅读全文】</a></TD></TR>");								
document.write("</TABLE></TD></TR><tr><TD height=8 colspan=3></TD></tr></TABLE>");


<%
rs.movenext
wend


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

<%
end if
rs.close:set rs=nothing
conn.close:set conn=nothing

%>