<% 'CopyRightc2002 程式製作:炎羽 '信箱:howl.fire@yahoo.com.tw '蔚藍海岸留言版v1.1 '請勿隨意拿掉版權~謝謝 rid=request("rid") session("rid")=rid Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../../../home/gbook.mdb") sql="delete * from rbook where rid="& rid conn.Execute sql Response.Redirect "index.asp" %>