V6.5收藏夹点击收藏不跳到会员中心只提示的改造方法

需求见:http://bbs.kesion.com/dispbbs.asp?boardid=41&id=129499

即:实现点击“收藏此文”后页面不自动跳转到会员中心，而是提示会员“成功收藏了此文”

解决方法:

 第一步请用dw打开ks_cls/kesion.label.commoncls.asp,找到以下代码段

   case "getarticleaction"
         echo "【<A href=""" & DomainStr & "plus/Comment.asp?ChannelID=" & ModelID & "&InfoID=" & ItemID & """ target=""_blank"">发表评论</A>】【<A href=""" & DomainStr & "item/SendMail.asp?m="&ModelID &"&ID=" & ItemID & """ target=""_blank"">告诉好友</A>】【<A href=""" & DomainStr & "item/Print.asp?m=" & ModelID &"&ID=" & ItemID & """ target=""_blank"">打印此文</A>】【<A href=""" & DomainStr & "User/index.asp?User_Favorite.asp?Action=Add&ChannelID=" & ModelID & "&InfoID=" & ItemID & """ target=""_blank"">收藏此文</A>】【<A href=""javascript:window.close();"">关闭窗口</A>】"
 

我们将其改成

    case "getarticleaction"
         echo "【<A href=""" & DomainStr & "plus/Comment.asp?ChannelID=" & ModelID & "&InfoID=" & ItemID & """ target=""_blank"">发表评论</A>】【<A href=""" & DomainStr & "item/SendMail.asp?m="&ModelID &"&ID=" & ItemID & """ target=""_blank"">告诉好友</A>】【<A href=""" & DomainStr & "item/Print.asp?m=" & ModelID &"&ID=" & ItemID & """ target=""_blank"">打印此文</A>】【<A href=""" & DomainStr & "User/User_Favorite.asp?Action=Add&ChannelID=" & ModelID & "&InfoID=" & ItemID & """ target=""hidframe"">收藏此文</A>】<iframe name=""hidframe"" src=""about:blank"" width=""0"" height=""0""></iframe>【<A href=""javascript:window.close();"">关闭窗口</A>】"
 

即通过建立一个隐藏的iframe来起到桥接作用.并将target指向到iframe的name值

第二步:用dw打开user/User_Favorite.asp,我们找到以下代码

     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
       response.write "<script>alert('恭喜,成功加入收藏夹!');</script>"
     Case "Cancel"
      InfoID=KS.S("InfoID")
 

增加上面红色的代码即可提示!效果如下