📄 newscodeztpicjs.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>");

<%
t=trim(request("t"))
hot=trim(request("hot"))
tj=trim(request("tj"))
news=trim(request("new"))
n=trim(request("n"))
more=trim(request("more"))
week=trim(request("week"))
line=trim(Request("line"))
pic=trim(Request("pic"))
zzly=trim(Request("zzly"))
hit=trim(Request("hit"))
pls=trim(Request("pls"))
lmname=trim(Request("lmname"))
font=trim(request("font"))
ztid=trim(request("ztid"))
if ztid="" then ztid="0"
if font="" then font="9"
if line="" then line="2"
if n="" then n=30
n=int(n)
open=trim(request("open"))
if open="1" then
    open="_blank"
else
	open="_top"
end if
list=trim(request("list"))
if list="" then list=10
list=int(list)

icon=trim(request("icon"))
if icon="1" then 
icon="<img src=images/icon/redarrow.gif border=0> "
elseif icon<>"0" and icon<>"1" then 
icon="<img src="&icon&" border=0>"
else
  icon=""
end if

if (not isNumeric(ztid)) then
	ztid=0
end if

path=config("path")

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

if tj="1" then sql=sql&" and tj='推荐' "

if ztid<>"0" then
  sql=sql&" and ztid="&ztid&" "
end if

if hot="1" then
 sql = sql&" order by hit desc ,  id desc"
else 
 sql= sql&" order by ontop desc ,  id desc"
end if




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

%>
document.write("<div align=center>");
document.write("<table border=0 cellpadding=0 cellspacing=0 width=100% id=tableasdaDF1>");
<%
if rs.recordcount<>0 then
for yyyy=1 to y
%>
		document.write("<tr>");
			<%
			if rs.eof then exit for
			for xxxx=1 to x
			if n<>0 then
			  ttt="<BR><font color="&rs("titlecolor")&">"&titleb(rs("title"),n)&"</font>"
			end if
			id=rs("id")
			title=rs("title")
			pic=rs("pic")
			pic=replace(pic,"border=","bo=")
			%>
			document.write("<td align=center style='font-size:<%=font%>pt;line-height:150%'><a href=<%=fun_html_url(id)%> target='<%=open%>' title='<%=title%>'><img hspace=2 vspace=2 border=0 width=<%=w%> height=<%=h%> src=<%=pic%>><font style='font-size:<%=font%>pt'><%=ttt%></font></a></td>");
			<%
			rs.movenext
			if rs.eof then exit for
			next
			%>
		document.write("</tr>");
<%
next
else
%>
document.write("暂无图片信息");
<%
end if
%>
	document.write("</table>");
document.write("</div>");
<%
conn.close:set conn=nothing
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -