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

<%
x=trim(request("x"))
y=trim(request("y"))
w=trim(request("w"))
h=trim(request("h"))
n=trim(request("n"))
lm2=trim(request("lm2"))
if lm2="" then lm2=trim(request("lm"))
if n="" then n=20
n=int(n)
open=trim(request("open"))
font=trim(request("font"))
if font="" then font=9
if open="1" then
  open="_blank"
else
  open="_top"
end if
if w="" then w=100
if h="" then h=100
if x="" then x=1
if y="" then y=1
x=int(x)
y=int(y)
xy=x*y

if (not isNumeric(lm2)) then
	lm2=0
end if
path=config("path")

sql = "select top "&xy&" * 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&"') "
sql=sql&" order by ontop desc , updat desc , id desc"
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")
			%>
			//document.write("<td align=center style='font-size:<%=font%>pt;line-height:150%'><a href=<%=path%>news_view.asp?newsid=<%=id%> target='<%=open%>' title='<%=title%>'><img border=0 width=<%=w%> height=<%=h%> src=<%=pic%>><font style='font-size:<%=font%>pt'><%=ttt%></font></a></td>");
			//豪-2006-9-14修改为静态新闻输出.
             document.write("<td align=center style='font-size:<%=font%>pt;line-height:150%'><a href=<%=fun_html_url(id)%> target='<%=open%>' title='<%=title%>'><img border=0 width=<%=w%> height=<%=h%> src=<%=pic%>><font style='font-size:<%=font%>pt'><%=ttt%></font></a></td>");
			//使用下面可以在图片上加边框
			//document.write("<td align=center style='font-size:<%=font%>pt;line-height:80%'><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=<%=w%> height=<%=h%> src=<%=pic%>></a></td></tr></table><a href=<%=fun_html_url(id)%> target='<%=open%>' title='<%=title%>'><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("<font style='font-size:9pt'>暂无图片信息!</font>");
<%
end if
%>
	document.write("</table>");
document.write("</div>");
<%
conn.close:set conn=nothing
%>
⌨️ 快捷键说明

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