shrk_khzl_sc.asp

asp+Access开发的客户资源管理系统,用户名:admin,密码:

<%
  const adopenkeyset=1
  const adlockoptimistic=3
  
  id=request.querystring("id")
  id1=clng(id)
  set conn=server.createobject("adodb.connection")
conn.open "driver={Microsoft Access Driver (*.mdb)};pwd=webcool_2000;dbq=" & Server.MapPath("../database/customer.mdb")
  set rs=server.createobject("adodb.recordset")
  source="select * from company where id="&id1
  rs.open source,conn, adopenkeyset,adlockoptimistic
  rs.delete

if err.number>0 then
   response.write"数据删除时发生错误<br>"
   response.write"错误代码："&err.number
   response.write"<br>代码说明："&err.description
else
   response.redirect "shrk_khzl.asp"
end if
set conn=nothing
%>