delete.asp

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

<%
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
list=RS("list")
playlist=split(list,",")
count=ubound(playlist)
list=playlist(0)
for i=1 to count
if not playlist(i)=Request("id") then list=list+","+playlist(i)
next
RS("list")=list
RS.update
RS.close
Set RS=nothing
conn.close
Set conn=nothing
Response.Redirect "playlist.asp?user="&Request.cookies("user")
%>