标题:【求助】ASP程序如何设定滚动产品的数量值?
只看楼主
zpfree
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2012-11-15
结帖率:0
已结贴  问题点数:20 回复次数:1 
【求助】ASP程序如何设定滚动产品的数量值?
本人是超级新手菜鸟。(本人扣 扣:315-957-274,如能帮我解决,有酬谢。)
产品向上滚动的程序,共有60多个产品,现在是全部向上滚动。
现在要设定 滚动产品的数量值,是哪一个参数?


下图的源程序,是否表明是所有产品是一个循环??



Function ScrollProduct(g_num,w,h)
对应的下图中的: <%=ScrollProduct(6,3,3)%>
那三个参数是什么意义???



附:代码原文:

'过程名:ScrollProduct                                                               
'作  用:显示产品流动图片
'参  数:rows - 个数
Function ScrollProduct(g_num,w,h)
    Records = 0
    Set rs = Server.CreateObject("Adodb.Recordset")
    rs.Open ("SELECT P.[ID],P.[Title],P.[BPictures] "&_
    " FROM [ProductInfo] P Where P.[Locked]='0'  "&_
    " Order by P.[OIndex] DESC "),conn,1,1
    if rs.bof or rs.eof then
   
        ShowLinkTXT = "暂无信息"
    else         
        ShowLinkTXT = ""
        Records = rs.RecordCount
        P_NUM = 1
        do while not rs.eof
            ID = rs("ID")
            Pic = rs("BPictures")
            Title = rs("Title")
            ShowStr = "<a href='ProductDetail.asp?ID="&ID&"'><img src='UploadFile/"&Pic&"' width='170' hspace='5' border='0'></a><br><br>"
            ShowLinkTXT = ShowLinkTXT & ShowStr
            rs.Movenext
            P_NUM = P_NUM + 1
        loop
    end if
    rs.Close
    Set rs=Nothing
    response.write ShowLinkTXT
End Function

====== 我==的 ==分隔符======
第二段代码:

 <td ><marquee onmouseover="this.stop();"
                        onmouseout="this.start();" scrollamount="2" scrolldelay="1"
                        direction="up"
                        height="180">
      <div align="center"><%=ScrollProduct(6,3,3)%> </div>
      </marquee>    </td>



[ 本帖最后由 zpfree 于 2012-11-15 23:56 编辑 ]
搜索更多相关主题的帖子: 源程序 如何 
2012-11-15 23:50
bujngyijian
Rank: 2
等 级:论坛游民
帖 子:1
专家分:20
注 册:2012-11-16
得分:20 
可以尝试在where中限制一下查找个数吧·····       不过感觉这个没有定义呢?     同样是菜鸟····搞不懂
2012-11-16 00:25



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




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

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