<% fileid = Request("fileid") Set conn = Server.CreateObject("ADODB.Connection") DBPath = Server.MapPath("../fpdb/download.mdb") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath ' 刪除資料 SET rs = Server.CreateObject("ADODB.Recordset") rs.Open "Select * From download WHERE (fileid= " & fileid & ")", conn,1,3 CONN.EXECUTE "DELETE From download WHERE fileid= " & fileid & "" SET CONN = NOTHING Response.Redirect ("download.asp") %>