delperson.asp

来自「Java移动通信程序设计」· ASP 代码 · 共 25 行

<%
  
Set cnnDB = Server.CreateObject("ADODB.Connection")
cnnDB.Open "MIDPDB"

querySQL = "SELECT * FROM person where name='" & request("txtName") & "'"

set records = Server.CreateObject("ADODB.Recordset")
records.Open querySQL,cnnDB

if records.EOF then
   Response.Write "Not found"
else
   delSQL = "DELETE * FROM person where name='" & request("txtName") & "'"
   cnnDB.Execute delSQL
   Response.Write "deletion ok"
end if

set records = nothing
cnnDB.Close
set cnnDB = nothing

%>