Tutorial | data | Database ASP database simple Operation tutorial
<1. Database connection (used to separate the connection file conn.asp)
<%
Set conn = Server.CreateObject ("ADODB. Connection ")
Conn. Open "Driver={microsoft Access DRIVER (*.mdb)}; Dbq= "& Server.MapPath (" \bbs\db1\user.mdb ")
% >
(Used to connect the User.mdb database in the bbs\db1\ directory)
<2 > Display database records
Principle: Display the record one by one in the database to the client browser, read out each record in the database in turn
If it's from beginning to end: Use loops and determine whether the pointer is used: not rs.eof
If it's from the end of the head: loop and determine if the pointer is to start using: Not Rs.bof
<! ---#include file=conn.asp--> (contains conn.asp to open bbs\db1\ directory for User.mdb data
Library
<%
Set Rs=server. CreateObject ("Adodb.recordset") (Create a Recordset object)
Sqlstr= "SELECT * from Message"----> (the message is a data table in the database that you want to display
Data tables that are stored in the data
Rs.Open sqlstr,conn,1,3----> (indicates how the database is opened)
Rs.movefirst----> (move pointer to first record)
While not rs.eof----> (judging whether the pointer is to the end)
Response.Write (RS ("name"))----> (Display the Name field in the data table message)
Rs.movenext----> (move pointer to next record)
Wend----> (end of Loop)
------------------------------------------------------
Rs.close
Conn.close These sentences are used to close the database
Set rs=nothing
Set conn=nothing
-------------------------------------------------------
% >
Where the response object is the information that the server sends to the client browser
<3 > Add database records
Add database records to rs.addnew,rs.update two functions
<!--#include file=conn.asp--> (contains conn.asp to open bbs\db1\ directory User.mdb data
Library
<%
Set Rs=server. CreateObject ("Adodb.recordset") (Create a Recordset object)
Sqlstr= "SELECT * from Message"----> (the message is a data table in the database that you want to display
Data tables that are stored in the data
Rs.Open sqlstr,conn,1,3----> (indicates how the database is opened)
Rs.addnew Add a new record
RS ("name") = "XX" passes the value of XX to the Name field
Rs.update Refresh the database
------------------------------------------------------
Rs.close
Conn.close These sentences are used to close the database
Set rs=nothing
Set conn=nothing
-------------------------------------------------------
% >
. <4 > Delete a record
Deleting database records is mainly used to rs.delete,rs.update
<!--#include file=conn.asp--> (contains conn.asp to open bbs\db1\ directory User.mdb data
Library
<%
Dim name
Name= "XX"
Set Rs=server. CreateObject ("Adodb.recordset") (Create a Recordset object)
Sqlstr= "SELECT * from"----> (the message is a data table in the database, that is, the data table in which the data you want to display is stored)
Rs.Open sqlstr,conn,1,3----> (indicates how the database is opened)
-------------------------------------------------------
While not rs.eof
If Rs. ("name") =name Then
Rs.delete
Rs.update the value of the Name field in the query datasheet is equal to the value "XX" of the variable name, and if it does, delete
Except
else or continue the query until the pointer is to the end
Rs.movenext
EMD IF
Wend
------------------------------------------------------
------------------------------------------------------
Rs.close
Conn.close These sentences are used to close the database
Set rs=nothing
Set conn=nothing
-------------------------------------------------------
% >
<5 > queries about the database
(a) The query field is character type
<%
Dim user,pass,qq,mail,message
User=request.form ("User")
Pass=request.form ("Pass")
Qq=request.form ("QQ")
Mail=request.form ("Mail")
Message=request.form ("message")
If Trim (user) & "x" = "x" or Trim (pass) & "x" = "x" then (detect whether the user value and pass value are NULL, you can detect
to spaces)
Response.Write ("Registration information cannot be blank")
Else
Set Rs=server. CreateObject ("Adodb.recordset")
Sqlstr= "SELECT * from user where user= '" &user& "" (Query the User field in the User data table where user
field is character type)
Rs.Open sqlstr,conn,1,3
If Rs.eof Then
Rs.addnew
RS ("user") =user
RS ("pass") =pass
RS ("QQ") =qq
RS ("Mail") =mail
RS ("message") =message
Rs.update
Rs.close
Conn.close
Set rs=nothing
Set conn=nothing
Response.Write ("Registration Successful")
End If
Rs.close
Conn.close
Set rs=nothing
Set conn=nothing
Response.Write ("Registered duplicate name")
% >
(b) The query field is a numeric type
<%
Dim num
Num=request.form ("num")
Set Rs=server. CreateObject ("Adodb.recordset")
Sqlstr= "SELECT * from Message where id=" &num (whether the value of the ID field in the query message datasheet is the same as
Num is equal, where ID is number type)
Rs.Open sqlstr,conn,1,3
If not rs.eof then
Rs.delete
Rs.update
Rs.close
Conn.close
Set rs=nothing
Set conn=nothing
Response.Write ("Delete succeeded")
End If
Rs.close
Conn.clo
