save_to_favorite.asp

来自「asp制作的音乐系统,初步功能实现了用户登录」· ASP 代码 · 共 21 行

<%
if Request.cookies("user")="" then
session("refer")="save_to_favorite.asp?id="&Request("id")
Response.redirect "login.asp"
end if
%>
<%
set conn=server.createobject("ADODB.Connection")
filepath=server.mappath("db.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & filepath
strSQL = "SELECT * FROM favorite where user='" & Request.cookies("user") & "'"
Set RS = SERVER.CreateObject("ADODB.Recordset")
RS.Open strSQL,conn,1,3
RS("list")=RS("list")+","+Request("id")
RS.update
RS.close
Set RS=nothing
conn.close
Set conn=nothing
Response.Redirect "playlist.asp?user="&Request.cookies("user")
%>