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

30岁就改变

电梯直达

1^#

发表于 2010-1-13 06:30:21 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

菜鸟求助大侠们啊.分行列显示图片,不会啊.有部分代码,(分行列的)就是不知道怎么显示出图片啊''' 在下面这段代码加上几句数据库操作的代码就型了俺就是不会啊图片是有分类的..定义的是::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 %>

收藏0

使用道具举报

独臂神军

2^#

发表于 2010-1-13 06:30:25 | 只看该作者

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

回复支持反对

使用道具举报

爱情tp乞丐

3^#

发表于 2010-1-13 06:30:28 | 只看该作者

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

回复支持反对

使用道具举报

三弓厶

4^#

发表于 2010-1-13 06:30:32 | 只看该作者

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

回复支持反对

使用道具举报

DJ敗類ヤ傲天

5^#

发表于 2010-1-13 06:30:35 | 只看该作者

就是普通的分页

回复支持反对

使用道具举报

黑侠

6^#

发表于 2010-1-13 06:30:43 | 只看该作者

使用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-﹎呯倓

7^#

发表于 2010-1-13 06:30:47 | 只看该作者

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

回复支持反对

使用道具举报

寂寞

8^#

发表于 2010-1-13 06:30:51 | 只看该作者

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

回复支持反对

使用道具举报

惠儿雨点

9^#

发表于 2010-1-13 06:30:54 | 只看该作者

回复支持反对

使用道具举报

√wo

10^#

发表于 2010-1-13 06:31:00 | 只看该作者

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

我也是想做成这种效果

回复支持反对

使用道具举报

		自动登录	找回密码
密码			注册

浏览过的版块