asp 刪除指定記錄程序代碼

　　這是一款asp教程 刪除指定記錄程序代碼哦實例由點擊連接到刪除頁面並且執行刪除

　　<%
數據庫教程連接
sub opendb()
set rs=serverCreateObject("adodbrecordset")
set conn=serverCreateObject("adodbconnection")
connconnectionstring="provider=microsoftjetoledb; data source="&servermappath("datasource/hhinfomdb")
connopen
end sub

　　判斷是否為登陸用戶

　　if session("username")="" and session("userpwd")="" then
responseRedirect("loginhtml")
end if
dim sqlid

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

　　id=html_encode(requestQueryString("id"))
 if id="" or not isnumeric(id) then
  responseWrite("非法操作")
 else
  sql="delete * from new where id="&id
  call opendb()
  connexecute(sql)
  if err= then
   responsewrite("<script>alert(刪除成功);location=wwwliannet/aasp;</script>")
  else
   responsewrite("<script>alert(刪除失敗服務器忙);location=newasp;</script>")
  end if
 end if
%>

　　使用方法
<a href="刪除</a>

From:http://tw.wingwit.com/Article/program/net/201311/14472.html