<%
set conn=Server.CreateObject("ADODB.Connection")
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("data.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From baoming Order By time DESC", conn, 1,3
id=Request.QueryString("id")
if rs.bof or rs.eof then
response.end
else
rs.AbsolutePosition=cint(id)
rs.delete
rs.update
response.write "<center>刪除成功！請刷新。</center>"
end if
%>