菜鸟求助大侠们啊.分行列显示图片.在线急等

30岁就改变

菜鸟求助大侠们啊.分行列显示图片,不会啊.有部分代码,(分行列的)就是不知道怎么显示出图片啊''' 在下面这段代码加上几句数据库操作的代码就型了 俺就是不会啊 图片是有分类的..定义的是::class=1(图片总类) nclass=11,12,13,14......(各种类型的图片如美女,风景,动物 ,卡通) <% Dim ss,const_txl_HomeUrl,errstr,a,page set rs=server.createobject("adodb.recordset")
sql="select * from photo where Isok=1 order by dateandtime desc,id desc" rs.open sql,conn,1,1 dim RecordCount2,LinkFile,displaypagenum,PageSize2,k,PageCount2 page=Request.QueryString("page") if page="" or (not isnumeric(page)) Then page=1 end if page=Cint(page) RecordCount2=rs.recordcount LinkFile="?" displaypagenum=12 pagesize2=12 rs.pagesize=PageSize2 PageCount2=rs.pagecount If not rs.eof then rs.absolutepage=page end if a=0 %>
<% dim trflag,trflag2,clos clos=3 k=0 ss=RecordCount2 if ss>0 then Response.Write"<table width=""100%"" align=""center"" border=""1"" cellspacing=""0"" cellpadding=""0"" style=""border-collapse:collapse;text-align:center;font-family:Verdana;"">" while k<ss and a<pagesize2 and not rs.eof a=a+1 trflag=false trflag2=false if k mod 3=0 then trflag=true if trflag then Response.Write("<tr>") Response.Write("<td width=149>") %> <% Response.Write("</td>") rs.movenext k=k+1 if k mod clos=0 then trflag2=true if trflag2 then Response.Write("</tr>") wend if ss mod clos<>0 then for k=1 to (clos-ss mod clos) Response.Write("<td>&nbsp;</td>") next Response.Write("</tr>") end if Response.Write("</table>") end if rs.close set rs=nothing %>
<% i=i+1 if i>=index_perpage then exit do rs.movenext loop %>

独臂神军

在线吗
不是很明白你的要求

爱情tp乞丐

哦在线呢. http://www3.caishow.com/colorpic.htm?chn=1000&f=0&lower_cooid=0&send_type=2 就是想实现这个样子

三弓厶

我也想知道如何自动换行啊．

DJ敗類ヤ傲天

就是普通的分页

黑侠

使用for 吧
for l=0 to 4 '这行显示行数 5行
&lt;tr&gt;
  m=l*5
  for n=m+1 to m+4
   这中间显示
   &lt;td&gt;&lt;img&gt;&lt;/td&gt;
   rs.movenext
   next
&lt;/tr&gt;
next

ㄗs-﹎呯倓

控制每行3个，显示3行。如何实现。。。。。。。。。。

寂寞

先做好表格~~再在每个单元格写代码

惠儿雨点

&lt;table&gt;
&lt;tr&gt;
&lt;%for i=1 to 9%&gt;
&lt;td&gt;哈哈&lt;/td&gt;
&lt;%if i mod 3 =0 then response.write("&lt;/tr&gt;&lt;tr&gt;")
next%&gt;
&lt;/tr&gt;
&lt;/table&gt;

√wo

sub ArticleContent(intTitleLen)
    dim i,strTemp
    i=0
do while not rsArticle.eof
  strTemp=""
  'strTemp = strTemp &amp; ""
  strTemp= strTemp &amp; "&lt;table width=100% border=0 cellspacing=3 cellpadding=0&gt;"
                strTemp= strTemp &amp; "&lt;tr&gt;"
                strTemp= strTemp &amp; "&lt;td width=25% rowspan=5&gt;"
                strTemp= strTemp &amp; "&lt;div align=center&gt;&lt;a href=ArticleShow.asp?ArticleID=" &amp; rsArticle("articleid") &amp; "&gt;"
                strTemp= strTemp &amp; "&lt;img border=0 src=" &amp; rsArticle("DefaultPicUrl") &amp; " width=100 height=120&gt;"
                strTemp= strTemp &amp; "&lt;/a&gt;&lt;/div&gt;&lt;/td&gt;"
                strTemp= strTemp &amp; "&lt;td width=12% height=18&gt;"
                strTemp= strTemp &amp; "产品名称：&lt;/td&gt;"
                strTemp= strTemp &amp; "&lt;td&gt;"
                strTemp= strTemp &amp; "&lt;a href=ArticleShow.asp?ArticleID=" &amp; rsArticle("articleid") &amp; "&gt;" &amp; rsArticle("Title") &amp; ""
                strTemp= strTemp &amp; "&lt;/a&gt;&lt;/td&gt;"
                strTemp= strTemp &amp; "&lt;/tr&gt;&lt;tr&gt;"
                strTemp= strTemp &amp; "&lt;td height=18&gt;"
                strTemp= strTemp &amp; "产品类别：&lt;/td&gt;"
                strTemp= strTemp &amp; "&lt;td&gt;&lt;a href=Product.asp?BigClassName=" &amp; rsArticle("BigClassName") &amp; "&gt;" &amp; rsArticle("BigClassName") &amp; "&lt;/a&gt; → "
                strTemp= strTemp &amp; "&lt;a href=Product.asp?BigClassName=" &amp; rsArticle("BigClassName") &amp; "&amp;SmallClassName=" &amp; rsArticle("SmallClassName") &amp; "&gt;" &amp; rsArticle("SmallClassName") &amp; ""
                strTemp= strTemp &amp; "&lt;/a&gt;&lt;/td&gt;"
                strTemp= strTemp &amp; "&lt;/tr&gt;&lt;tr&gt;"
                strTemp= strTemp &amp; "&lt;td height=18&gt;"
                strTemp= strTemp &amp; "产品编号：&lt;/td&gt;"
                strTemp= strTemp &amp; "&lt;td&gt;" &amp; rsArticle("Product_Id") &amp; "&lt;/td&gt;"
                strTemp= strTemp &amp; "&lt;/tr&gt;&lt;tr&gt;"
                strTemp= strTemp &amp; "&lt;td height=18&gt;产品信息：&lt;/td&gt;"
                strTemp= strTemp &amp; "&lt;td&gt;"
                strTemp= strTemp &amp; "&lt;a href=ArticleShow.asp?ArticleID=" &amp; rsArticle("articleid") &amp; "&gt;&lt;img src=Images/arrow_7.gif border=0&gt;&lt;/a&gt;&lt;/td&gt;"
                strTemp= strTemp &amp; "&lt;/tr&gt;&lt;tr&gt;"
                strTemp= strTemp &amp; "&lt;td colspan=2&gt;"
                strTemp= strTemp &amp; "&lt;table width=100% border=0 cellpadding=0 cellspacing=0&gt;"
                strTemp= strTemp &amp; "&lt;tr&gt;"
                strTemp= strTemp &amp; "&lt;td width=50% height=18&gt;"
                strTemp= strTemp &amp; "&lt;div align=center&gt;&lt;/div&gt;&lt;/td&gt;"
                strTemp= strTemp &amp; "&lt;td width=50% height=18&gt;"
                strTemp= strTemp &amp; "&lt;/td&gt;"
                strTemp= strTemp &amp; "&lt;/tr&gt;"
                strTemp= strTemp &amp; "&lt;/table&gt;"
                strTemp= strTemp &amp; "&lt;/td&gt;"
                strTemp= strTemp &amp; "&lt;/tr&gt;"
                strTemp= strTemp &amp; "&lt;/table&gt;"
  response.write strTemp
  rsArticle.movenext
  i=i+1
  if i&gt;=MaxPerPage then exit do
loop
end sub



我也是想做成这种效果