wxzd.asp

大家好

<%@ language="vbscript" %>
<!--#include file="..\adovbs.inc"-->
<%
  custid=request("custid")  
  DbPath = SERVER.MapPath("..\bookshop.mdb")
   Set conn = Server.CreateObject("ADODB.Connection")
   conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath
   sql="delete * from  customer   where custid=cdbl('"&custid&"')  "
   conn.execute sql
   sql1="delete * from  shiplist   where custid=cdbl('"&custid&"')  "
   conn.execute sql1
conn.close
response.write "此帐单记录已被删除."
response.end 
%>