V5.5x商城实现您最近浏览过的宝贝-领先建站CMS提供服务商我们专注于CMS建站产品的研发

47688 查看	111 回复

主题：[分享][插件]V5.5x商城实现您最近浏览过的宝贝[4-29号提供] [收藏主题]

转到：

zjpa3 当前离线

250 主题	21 广播	2 粉丝

级别:二年级

用户积分:2924 分
登录次数:322 次
注册时间:2007/11/22
最后登录:2024/2/22

zjpa3 发表于：2009/5/3 9:06:00 | 显示全部帖子查看该作者主题楼主

有生源找课程就上科汛课堂街!

    str=""
    str=str & "<div class=""goodscookies""><ul>"
Set RS=Server.CreateObject("ADODB.RECORDSET")
RS.Open "Select Top " & Num & " ID,Title,Tid,Fname,PhotoUrl,Price_member From KS_Product Where ID In(" & KS.R(KS.C("View" & ChannelID)) & ") order by id desc",conn,1,1
If Not RS.Eof Then SQL=RS.GetRows(-1):RS.Close:Set RS=Nothing
If IsArray(SQL) Then
   For K=0 To Ubound(SQL,2)
    Url=KS.GetInfoUrl(ChannelID,sql(2,k),sql(0,k),sql(3,k),0,0,0)
    str=str & "<li><a href=""" & Url & """ target=""_blank""><img width=""65"" height=""65"" src=""" & SQL(4,K) & """ border=""0""></a>"
    str=str & "<br><a href=""" & URL & """ target=""_blank"">" & KS.Gottopic(SQL(1,K),10) & "</a><span>￥</span>" & SQL(5,K) & "</li>"
   Next
   Erase SQL
       str=str & "</ul></div>"
End If

做考试题库就用#科汛在线考试系统!