<% id=request("id") Dim StrSQL StrSQL="delete from gb where id="& id conn.Execute StrSQL response.write "已经成功删除该纪录" response.write "若浏览器没有自动返回，请点击这里" Response.Redirect("gb.asp") %>