账号通
    

账号  

密码  

1308

查看

1

回复
主题:好心的朋友进入帮帮忙啦,这个问题烦了我几天了 [收藏主题]  
msy168 当前离线

315

主题

0

广播

0

粉丝
添加关注
级别:三年级

用户积分:2400 分
登录次数:190 次
注册时间:2008/3/30
最后登录:2014/11/15
msy168 发表于:2009/1/13 10:24:00   | 显示全部帖子 查看该作者主题 楼主 
做在线知识付费 选科汛云开店

就是会员中心的"我的收藏夹",我现在是想当用户点击文章“加入收藏”时,就往数据库中表User_Favorite加入"栏目ID"和自定义字段"KS_LXY"(文本型)这两个字段的内容,以便SQL查询,看了下代码,不知怎样搞,有请路过的朋友出手帮忙了,谢谢了!

 

代码(User\User_Favorite.asp):

    <%
    Select Case KS.S("Action")
     Case "Add"
       Dim RSAdd
       InfoID=KS.ChkClng(KS.S("InfoID"))
       Set RSAdd=Server.CreateObject("Adodb.Recordset")
       ChannelID=KS.ChkClng(KS.S("ChannelID"))
       RSADD.Open "Select * From KS_Favorite Where ChannelID=" & ChannelID & " And InfoID=" & InfoID & " And UserName='" &KSUser.UserName & "'",Conn,1,3
       IF RSADD.Eof And RSADD.Bof Then
      RSADD.AddNew
      RSAdd(1)=KSUser.UserName
      RSAdd(2)=ChannelID
      RSAdd(3)=InfoID
      RSAdd(4)=Now
       RSAdd.Update
       End IF
       RSADD.Close:SET RSADD=Nothing
     Case "Cancel"
      InfoID=KS.S("InfoID")
      InfoID=Replace(InfoID," ","")
      InfoID=KS.FilterIDs(InfoID)
      If InfoID="" Then
       Response.Write "<script>alert('您没有选择要取消收藏的信息!');history.back();</script>"
       Response.End
      End If
      Conn.Execute("Delete From KS_Favorite Where ID In(" & InfoID & ") And UserName='" & KSUser.UserName & "'")
    End Select
     %>

 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
<上一主题 | 下一主题 >
Powered By KesionCMS Version X1
厦门科汛软件有限公司 © 2006-2016 页面执行0.07910秒 powered by KesionCMS 9.0