user_favorite.asp

依蓝旅游网站管理系统Elan2008.SP2

<%
Option Explicit
Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
%>
<!--#Include File="../Conn.asp"-->
<!--#Include File="../Inc/Const.asp"-->
<%
On Error Resume Next

If EL_User.UserIsLogin = False Then
   Response.Redirect InstallDir &"User/User_Login.asp?url="& EL_Common.ServerURLEncode(Request.ServerVariables("HTTP_REFERER"))
End If

Select Case Action
   Case "Add": Call AddFavorite()
End Select
Call EL_Common.ShowScriptError()
Call ApplicationTerminate()

Sub AddFavorite()
   Dim FavoriteCmd
   Dim InfoID, ChannelID, InfoURL
   
   InfoID = EL_Common.ELRequest("InfoID", 2)
   ChannelID = EL_Common.ELRequest("ChannelID", 2)
   InfoURL = Request.ServerVariables("HTTP_REFERER")
   
   Call EL_Common.InitCommand(FavoriteCmd, "EL_SP_Favorite")
   With FavoriteCmd
      .Parameters.Append .CreateParameter("@Type", 3, 1, 4, 0)
	  .Parameters.Append .CreateParameter("@UserID", 3, 1, 4, EL_User.UserID)
	  .Parameters.Append .CreateParameter("@ChannelID", 3, 1, 4, ChannelID)
	  .Parameters.Append .CreateParameter("@InfoID", 3, 1, 4, InfoID)
	  .Parameters.Append .CreateParameter("@InfoURL", 200, 1, 100, InfoURL)
	  .Execute()
   End With
   Set FavoriteCmd = Nothing
   EL_Common.ShowScriptError()
   EL_Common.ShowSuccessMsg("<p>已添加到收藏夹</p><p><a href='"& InstallDir &"User/User_Index.asp?t=favorite'>【查看我的收藏夹】</a></p>")
End Sub
%>