我们经常在一些购物网站看到您最近浏览的宝贝,如当当网.刚又看到网友在论坛求助并考虑到这功能挻有实用性的,在此我就特意开发了一个小插件了,现在就跟我来实现一下这种效果吧

原理是利用cookies技术,把当前浏览的ID值,通过cookies记录在客户机子上,每浏览过一件商品,就判断当前商品的id值有没有在cookies中,如果没有就推进去,每个id 值用逗号分开.

主要代码如下:

Dim IDList:IDList=KS.C("View" & ChannelID)            '取得cookies值
If KS.FoundInArr(IDList,ID,",")=False Then
 If IDList="" Then
  IDList=ID
 Else
  IDList=ID&"," & IDList
 End If
 Dim IDArr,T_Str
 IDArr=Split(IDList,",")
 For I=0 To Ubound(IDArr)
   If I<Num Then
     If T_Str="" Then
   T_Str=IDArr(i)
  Else
   T_Str=T_Str & "," & IDArr(i)
  End If
   End If
 Next
  Response.Cookies(KS.SiteSN)("View" & ChannelID)=T_Str             '重新记入cookies
End If

记录cookies值后,我们就可以写对应的查询语句,从数据库中动态查询出商品了

主要代码如下:

str=""
 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 & "<div class=""sidepd"">"
    str=str & "<a class=""sidepdleft"" href=""" & Url & """ target=""_blank""><img width=""65"" height=""65"" src=""" & SQL(4,K) & """ border=""0""></a>"
    str=str & "<h2><a href=""" & URL & """ target=""_blank"">" & KS.Gottopic(SQL(1,K),38) & "</a></h2><h3><span>￥</span>" & SQL(5,K) & "</h3>"
    str=str & "</div>"
   Next
   Erase SQL
 End If

看了以上两段代码后,如果你对asp代码了解,也许你已经明白了.接下来我就还要将以上代码转换成javascript语法的格式,因为我们商品内容页是通过<script脚本的方式调用的

转换脚本代码如下:

Response.Write("document.writeln('"& str & "');")

完整代码插件下载:

下载信息  [文件大小：1.18 KB 下载次数： 次]

点击下载文件:browsing

以下内容只有回复后才可以浏览,请先登录！

使用中有什么疑问请此跟帖!

这是个很常用也很不错的插件，要顶。

　╭╩═╮╔════╗╔════╗╔════╗╔════╗╔════╗╔════════╗
　╭GOΣ╠╣ 支持楼主╠ ╣ 再接再厉╠ ╣ 雁过留声╠╣ 人过留帖╠ ╣ 惠鹅影音╠╣www.hehifi.com╣..
　⊙═⊙╯╚◎══◎╝╚◎══◎╝╚◎══◎╝╚◎══◎╝╚◎══◎╝╚◎═◎═◎═◎╝.....

 好东西啊

了解