标题:请问网站首页如何调用图片栏目中的分栏目内容
只看楼主
zhbawa
Rank: 1
等 级:新手上路
帖 子:12
专家分:1
注 册:2011-12-2
 问题点数:0 回复次数:6 
请问网站首页如何调用图片栏目中的分栏目内容
'首页
 function PhotoDex()
  dim rs,sql,i
  set rs = server.createobject("adodb.recordset")
  sql="select * from zhi_rui_e_po where ViewFlag=1 order by id desc"
  rs.open sql,conn,1,1
  response.write"<div class=""newpic_list"">"
  if rs.bof and rs.eof then
    response.write "<tr><td align='center'>暂无相关信息</td></tr>"
  else
    response.write"<ul>"
    for i=1 to 12' rs.recordcount
      if rs.eof then exit for
      response.write"<li><div class=""newpic_pic"">"
      response.write"<a  href='Photo_Show.asp?InfoId="&rs("ID")&"&ClassId="&rs("ClassId")&"&Topid="&rs("TopID")&"'><img src='"&rs("BigPic")&"' border=""0"" width=100 height=85></a></div>"
      response.write"<div class=""newpic_title"">"&left(rs("PhotoName"),10)&"</div></li>"
    if i mod 6 = 0 then
    response.write"</ul>"
    end if
      rs.movenext
    next
  end if
  response.write "</div>"
  rs.close
  set rs=nothing
end function


这段代码我实在修改不了了。谢谢!
搜索更多相关主题的帖子: sql class function center where 
2011-12-02 09:49
zhbawa
Rank: 1
等 级:新手上路
帖 子:12
专家分:1
注 册:2011-12-2
得分:0 
Function.rar (9.2 KB)
2011-12-02 09:51
zhbawa
Rank: 1
等 级:新手上路
帖 子:12
专家分:1
注 册:2011-12-2
得分:0 
上边是这个文件。谢谢!!!首页调用的是PhotoDex()。是最新图片,我想调用图片频道分栏目的图片。

http://www. 就是这里演示。
2011-12-02 09:53
zhbawa
Rank: 1
等 级:新手上路
帖 子:12
专家分:1
注 册:2011-12-2
得分:0 
数据库图片

[local]1[/local]
2011-12-05 16:49
zhbawa
Rank: 1
等 级:新手上路
帖 子:12
专家分:1
注 册:2011-12-2
得分:0 


这是数据库图片

[ 本帖最后由 zhbawa 于 2011-12-5 16:52 编辑 ]
2011-12-05 16:51
zhbawa
Rank: 1
等 级:新手上路
帖 子:12
专家分:1
注 册:2011-12-2
得分:0 
什么呢!!!!
2011-12-06 12:47
zhbawa
Rank: 1
等 级:新手上路
帖 子:12
专家分:1
注 册:2011-12-2
得分:0 
我自己弄好了!!!!!这里真是没用的地方!!!!
2011-12-06 13:46



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-356741-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.947576 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved