新微赢技术网

标题: 菜鸟求助大侠们啊.分行列显示图片.在线急等 [打印本页]

作者: 30岁就改变 时间: 2010-1-13 06: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> </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 %>

作者: 独臂神军 时间: 2010-1-13 06:30
在线吗
不是很明白你的要求

作者: 爱情tp乞丐 时间: 2010-1-13 06:30
哦在线呢. http://www3.caishow.com/colorpic.htm?chn=1000&f=0&lower_cooid=0&send_type=2 就是想实现这个样子

作者: 三弓厶 时间: 2010-1-13 06:30
我也想知道如何自动换行啊．

作者: DJ敗類ヤ傲天 时间: 2010-1-13 06:30
就是普通的分页

作者: 黑侠 时间: 2010-1-13 06:30
使用for 吧
for l=0 to 4 '这行显示行数 5行
<tr>
m=l*5
for n=m+1 to m+4
这中间显示
<td><img></td>
rs.movenext
next
</tr>
next

作者: ㄗs-﹎呯倓 时间: 2010-1-13 06:30
控制每行3个，显示3行。如何实现。。。。。。。。。。

作者: 寂寞 时间: 2010-1-13 06:30
先做好表格~~再在每个单元格写代码

作者: 惠儿雨点 时间: 2010-1-13 06:30
<table>
<tr>
<%for i=1 to 9%>
<td>哈哈</td>
<%if i mod 3 =0 then response.write("</tr><tr>")
next%>
</tr>
</table>

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

我也是想做成这种效果

欢迎光临新微赢技术网 (http://bbs.weiying.cn/)