Question

ASP调出的图片怎么换行成一行4个,然后换行?

能不能用这个代码修改呢？
x=trim(request("x"))
y=trim(request("y"))
w=trim(request("w"))
h=trim(request("h"))
n=trim(request("n"))
lm2=trim(request("lm2"))
tj=trim(request("tj"))
if lm2="" then lm2=trim(request("lm"))
if n="" then n=20
n=int(n)
open=trim(request("open"))
font=trim(request("font"))
if (not isNumeric(TJ)) then tj=0
if font="" then font=9
if open="1" then
open="_open"
else
open="_self"
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&"') "
if tj="1" then sql=sql&" and tj='推荐' "
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

id=rs("id")
title=trim(rs("title"))
pic=rs("pic")
pic=replace(pic,"border=","bo=")
pic=replace(pic,"""","")
Filename=rs("filename")
if filename="" then filename=0
if title="" then title=" "
if n<>0 then
ttt="<BR><font color="&rs("titlecolor")&">"&titleb(title,n)&"</font>"
end if
%>
document.write("<td align=center style='font-size:9pt;line-height:150%'><a href='/view.asp?nid=<%=id%>&lm=<%=lm2%>' target='<%=open%>' title='<%=title%>' ><img hspace=2 vspace=2 border=0 width=<%=w%> height=<%=h%> src='<%=pic%>'style='border: 1px solid #666666; padding: 4px; '><br><font style='font-size:9pt'><%=title%></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
%>

Answer 1

y=trim(request("y"))
w=trim(request("w"))
h=trim(request("h"))
n=trim(request("n"))
lm2=trim(request("lm2"))
tj=trim(request("tj"))
if lm2="" then lm2=trim(request("lm"))
if n="" then n=20
n=int(n)
open=trim(request("open"))
font=trim(request("font"))
if (not isNumeric(TJ)) then tj=0
if font="" then font=9
if open="1" then
open="_open"
else
open="_self"
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&"') "
if tj="1" then sql=sql&" and tj='推荐' "
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>");
document.write("<tr>");
<%
if not rs.eof then
numb=0
do while not rs.eof
numb=numb+1
id=rs("id")
title=trim(rs("title"))
pic=rs("pic")
pic=replace(pic,"border=","bo=")
pic=replace(pic,"""","")
Filename=rs("filename")
if filename="" then filename=0
if title="" then title=" "
if n<>0 then
ttt="<BR><font color="&rs("titlecolor")&">"&titleb(title,n)&"</font>"
end if
%>
document.write("<td align=center style='font-size:9pt;line-height:150%'><a href='/view.asp?nid=<%=id%>&lm=<%=lm2%>' target='<%=open%>' title='<%=title%>' ><img hspace=2 vspace=2 border=0 width=<%=w%> height=<%=h%> src='<%=pic%>'style='border: 1px solid #666666; padding: 4px; '><br><font style='font-size:9pt'><%=title%></font></a></td>");
<%

rs.movenext
if (numb mod x)=0 and numb<x*y then
%>
document.write("</tr><tr>");
<%
end if
if numb>=x*y then
exit do
%>
document.write("</tr>");
<%
end if
loop
else
%>
document.write("暂无图片信息");
<%
end if
%>
document.write("</table>");
document.write("</div>");

<%
conn.close:set conn=nothing
%>

Answer 2

你这个程序改一下真累，试试我改的这个：

<%
x=trim(request("x"))
y=trim(request("y"))
w=trim(request("w"))
h=trim(request("h"))
n=trim(request("n"))
lm2=trim(request("lm2"))
tj=trim(request("tj"))
if lm2="" then lm2=trim(request("lm"))
if n="" then n=20
n=int(n)
open=trim(request("open"))
font=trim(request("font"))
if (not isNumeric(TJ)) then tj=0
if font="" then font=9
if open="1" then
open="_open"
else
open="_self"
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&"') "
if tj="1" then sql=sql&" and tj='推荐' "
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>");
document.write("<tr>");
<%
if not rs.eof then
numb=0
do while not rs.eof
numb=numb+1
id=rs("id")
title=trim(rs("title"))
pic=rs("pic")
pic=replace(pic,"border=","bo=")
pic=replace(pic,"""","")
Filename=rs("filename")
if filename="" then filename=0
if title="" then title=" "
if n<>0 then
ttt="<BR><font color="&rs("titlecolor")&">"&titleb(title,n)&"</font>"
end if
%>
document.write("<td align=center style='font-size:9pt;line-height:150%'><a href='/view.asp?nid=<%=id%>&lm=<%=lm2%>' target='<%=open%>' title='<%=title%>' ><img hspace=2 vspace=2 border=0 width=<%=w%> height=<%=h%> src='<%=pic%>'style='border: 1px solid #666666; padding: 4px; '><br><font style='font-size:9pt'><%=title%></font></a></td>");
<%

rs.movenext
if (numb mod x)=0 and numb<x*y then
%>
document.write("</tr><tr>");
<%
end if
if numb>=x*y then
exit do
%>
document.write("</tr>");
<%
end if
loop
else
%>
document.write("暂无图片信息");
<%
end if
%>
document.write("</table>");
document.write("</div>");

<%
conn.close:set conn=nothing
%>

Answer 3

for xxxx=1 to x
下面加这个
if xxxx mod 4 =0 then
rsponse.write "<br />"
else
......// 执行下面的语句
end if