%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <%option explicit%> <% '**************************************************** ' Software name:Kesion CMS 7.0 ' Email: service@kesion.com . QQ:111394,9537636 ' Web: http://www.kesion.com http://www.kesion.cn ' Copyright (C) Kesion Network All Rights Reserved. '**************************************************** Dim KSCls Set KSCls = New User_Favorite KSCls.Kesion() Set KSCls = Nothing Class User_Favorite Private KS,KSUser Private CurrentPage,totalPut Private RS,MaxPerPage Private ChannelID Private TempStr,SqlStr Private InfoIDArr,InfoID Private Sub Class_Initialize() MaxPerPage =10 Set KS=New PublicCls Set KSUser = New UserCls End Sub Private Sub Class_Terminate() Set KS=Nothing Set KSUser=Nothing End Sub %> <% Public Sub loadMain() Call KSUser.Head() Call KSUser.InnerLocation("我的收藏夹") KSUser.CheckPowerAndDie("s16") %>
<%
Select Case KS.S("Action")
Case "Add"
Dim RSAdd
InfoID=KS.ChkClng(KS.S("InfoID"))
If InfoID=0 Then
Response.Write ""
Response.End()
End If
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 ""
Response.End
End If
Conn.Execute("Delete From KS_Favorite Where ID In(" & InfoID & ") And UserName='" & KSUser.UserName & "'")
End Select
If KS.S("page") <> "" Then
CurrentPage = CInt(KS.S("page"))
Else
CurrentPage = 1
End If
Dim Param:Param=" Where UserName='"& KSUser.UserName &"'"
If ChannelID="" or not isnumeric(ChannelID) Then ChannelID=0
IF ChannelID<>0 Then Param= Param & " and ChannelID=" & ChannelID
%>
|