<% 'CopyRightc2002 程式製作:炎羽 '信箱:howl.fire@yahoo.com.tw '蔚藍海岸留言版v1.1 '請勿隨意拿掉版權~謝謝 id=request("id") session("id")=id Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../../../home/gbook.mdb") Set rs2=Server.CreateObject("ADODB.RecordSet") rs2.open "Select * From rbook Where ID=" & ID,Conn,2,3 Do While Not rs2.Eof rs2.Delete If rs2.Eof then Exit do rs2.MoveNext Loop rs2.Close Set rs2=Nothing sql="delete * from book where id="& id conn.Execute sql Response.Redirect "index.asp" %> %>