del_gon.asp

来自「20041230162250801409： 浙江省丽水市公铁联运有限公司OA系」· ASP 代码 · 共 21 行

   <%
On Error Resume Next

set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("../../data.mdb")
%>


<%
   dim sql
   dim rs
   set rs=server.CreateObject("adodb.recordset")
   sql="delete  from gon where ID="& request("ID")'这里delete 后不用*号也是对的
   rs.open sql,conn,1,1
   response.Redirect ("../gon.asp")
rs.close
set rs=nothing
conn.close
set conn=nothing
%>