modiperson2.asp

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

<%
  
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
  newSQL = "INSERT INTO person(name, email,age)  values('" &_
              Request("txtName") & "','" &_
              Request("txtEMail") & "','" &_
              Request("txtAge") & "')"
                          
  cnnDB.Execute newSQL
  records.close
  
  records.Open querySQL,cnnDB
  
  Response.Write "Name:"
  Response.Write records("name")
  Response.Write "\n"
  Response.Write "E Mail:"
  Response.Write records("email")
  Response.Write "\n"
  Response.Write "Age:"  
  Response.Write records("age")
end if   

records.close

set records = nothing
cnnDB.Close
set cnnDB = nothing

%>