查看: 85|回复: 3

高手帮我看看这段动态图片连接 ASP代码

[复制链接]

平淡♀芳

电梯直达

1^#

发表于 2010-1-11 00:09:54 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

程序代码：
dim ClassP,ClassP_2
dim LoadPicP
Set tuijian=Server.CreateObject("Adodb.Recordset")
SqlT="select top 15 id,url,yl_dayin,yl_in,out,title from detail where topid>0 and yl_yesterin>100 order by out,id desc"
tuijian.open SQLT,conn,1,1
if tuijian.EOF and tuijian.BOF then
tuijianwww="暂时没有内容"
else
While (Not tuijian.EOF)
      for P=1 to 15
      ClassP=ClassP+1
      ClassP_2=(ClassP-1)*3+P
      LoadPicP=LoadPicP&"C_L"&ClassP_2&".src='css/pic/"&RndNumber((ClassP_2-1)*3+1,ClassP_2*3)&".gif';C_L"&ClassP_2&".className='loaded';"
      tuijianwww = tuijianwww &"<li><a href='"&SitePath&"open.asp?id="&tuijian("id")&"' target=_blank><img id=C_L"&ClassP_2&" src='css/load.gif' class='load' alt='"&tuijian("Title")&"'>"&tuijian("Title")&"</a></li> "
tuijian.MoveNext
      if tuijian.EOF then exit for
      next
Wend
end if
tuijian.close
Set tuijian = Nothing
strOut=Replace(strOut,"<{{tuijianwww}}>",tuijianwww)
LoadPicP="<script>"&LoadPicP&"</script>"

以上是我参照下边这段代码改的但是读取的数据只有第一个图片显示随即图片ID
后边的还是显示 css/load.gif 帮我看看问题出在哪里

程序代码：
dim IndexList,ClassList
dim ClassI,ClassI_2
dim LoadPic
Set feilei=Server.CreateObject("Adodb.Recordset")
Sql= "select classid,classname,pinyin from feilei"
feilei.open Sql,conn,1,1
if feilei.eof or feilei.bof then
IndexList="暂时没有栏目"
else
Set IRS=Server.CreateObject("Adodb.Recordset")
While (Not feilei.Eof)
ClassI=ClassI+1

if (ClassI mod 2)=1 then
      IndexList=IndexList&"<div style='clear:both;' class='film'>"
      IndexList=IndexList&"<div class='list' align='left' style='float:left;'>"
else
      IndexList=IndexList&"<div class='list' align='left' style='float:right;'>"
end if
IndexList=IndexList&"<div class='top'> <img border='0' src='images/pic_arrow.gif'> <a href="&SitePath&"HTML/"&feilei("pinyin")&"_"&feilei("classid")&".htm target=_self>"&feilei("classname")&"</A></div><div class='c' align='center'>"

SqlT="select top 3 id,title from detail where verity=1 and yl_in*3>out and classid="&feilei("classid")&" order by yl_yesterin desc,yl_intime desc,id"
IRS.open SQLT,conn,1,1
if IRS.EOF or IRS.BOF then
ClassList="暂时没有内容"
else
      for i=1 to 3
      ClassI_2=(ClassI-1)*3+i
      LoadPic=LoadPic&"C_L"&ClassI_2&".src='css/pic/"&RndNumber((ClassI_2-1)*3+1,ClassI_2*3)&".gif';C_L"&ClassI_2&".className='loaded';"
      ClassList = ClassList &"<a href='"&SitePath&"open.asp?id="&IRS("id")&"' target=_blank><img id=C_L"&ClassI_2&" src='css/load.gif' class='load' alt='"&feilei("classname")&" "&IRS("Title")&"'>"&IRS("Title")&"</a> "
      IRS.MoveNext
      if IRS.EOF then exit for
      next
end if
IndexList=IndexList&ClassList&"</div></div>"
ClassList=""

if (ClassI mod 2)=0 then
      IndexList=IndexList&"</div>"
end if

IRS.close
feilei.MoveNext
Wend
Set IRS = Nothing
if (feilei.RecordCount mod 2)=1 then
      IndexList=IndexList&"</div>"
end if
end if
feilei.Close
Set feilei=Nothing
strOut=Replace(strOut,"<{{IndexList}}>",IndexList)
LoadPic="<script>"&LoadPic&"</script>"

PS：本人菜鸟都是现学现卖高手莫笑·~~

收藏0