|
主题:[分享][插件]V5.5x商城实现您最近浏览过的宝贝[4-29号提供] [收藏主题] | 转到: |
支持(0) | 反对(0) 顶端 底部 |
支持(0) | 反对(0) 顶端 底部 |
支持(0) | 反对(0) 顶端 底部 |
支持(0) | 反对(0) 顶端 底部 |
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 |
|
支持(0) | 反对(0) 顶端 底部 |
支持(0) | 反对(0) 顶端 底部 |
支持(0) | 反对(0) 顶端 底部 |
支持(0) | 反对(0) 顶端 底部 |
支持(0) | 反对(0) 顶端 底部 |
支持(0) | 反对(0) 顶端 底部 |
<上一主题 | 下一主题 > |