這是一款asp教程 刪除指定記錄程序代碼哦，實(shí)例由點(diǎn)擊連接到刪除頁面，并且執(zhí)行刪除，

<%
數(shù)據(jù)庫教程連接
sub opendb()
set rs=server.CreateObject("adodb.recordset")
set conn=server.CreateObject("adodb.connection")
conn.connectionstring="provider=microsoft.jet.oledb.4.0; data source="&server.mappath("datasource/hhinfo.mdb")
conn.open
end sub

判斷是否為登陸用戶

if session("username")="" and session("userpwd")="" then
response.Redirect("login.html")
end if
dim sql,id

獲取Id由地址欄傳過來的值

id=html_encode(request.QueryString("id"))
 if id="" or not isnumeric(id) then
  response.Write("非法操作")
 else
  sql="delete * from new where id="&id
  call opendb()
  conn.execute(sql)
  if err=0 then
   response.write("<script>alert('刪除成