piccodejs.asp

强大的后台文章编辑器的功能

<!--#include file = admin_conn.asp -->
<!--#include file = titleb.asp -->
<%
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 n="" then n=20
n=int(n)
open=trim(request("open"))
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
sql = "select top "&xy&" * from news where pic<>'' and (lm='"&lm2&"' or lm2='"&lm2&"') order by ontop 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>"&titleb(rs("title"),n)
			end if
			%>
			document.write("<td><a href=news_view.asp?newsid=<%=rs("id")%> target='<%=open%>' title='<%=rs("title")%>'><img border=0 width=<%=w%> height=<%=h%> src=<%=rs("pic")%>><%=ttt%></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>");