Giới thiệu về ASP

có thể truy xuất dữ liệu từ bản Customers trong CSDL Northwind như sau : 
4. Một số ví dụ. 
Hiển thị tên Field và giá trị của Field 
Chúng ta có thể truy xuất dữ liệu từ bản Customers trong CSDL Northwind như sau : 
<% 
set conn=Server.CreateObject("ADODB.Connection") 
conn.Provider="Microsoft.Jet.OLEDB.4.0" 
conn.Open "c:/webdata/northwind.mdb" 
set rs=Server.CreateObject("ADODB.recordset") 
rs.Open "Select * from Customers", conn 
%> 
<% 
set conn=Server.CreateObject("ADODB.Connection") 
conn.Provider="Microsoft.Jet.OLEDB.4.0" 
conn.Open "c:/webdata/northwind.mdb" 
set rs=Server.CreateObject("ADODB.recordset") 
rs.Open "Select * from Customers", conn 
for each x in rs.fields 
 response.write(x.name) 
 response.write(" = ") 
 response.write(x.value) 
next 
%> 
<% 
set conn=Server.CreateObject("ADODB.Connection") 
conn.Provider="Microsoft.Jet.OLEDB.4.0" 
conn.Open "c:/webdata/northwind.mdb" 
set rs = Server.CreateObject("ADODB.recordset") 
rs.Open "SELECT * FROM Customers", conn 
do until rs.EOF 
 for each x in rs.Fields 
 Response.Write(x.name) 
Kết quả 
 Response.Write(" = ") 
 Response.Write(x.value & "") 
 next 
 Response.Write("") 
 rs.MoveNext 
loop 
rs.close 
conn.close 
%> 
CustomerID = ALFKI 
CompanyName = Alfreds Futterkiste 
ContactName = Maria Anders 
ContactTitle = Sales Representative 
Address = Obere Str. 57 
City = Berlin 
PostalCode = 12209 
Country = Germany 
CustomerID = BERGS 
CompanyName = Berglunds snabbköp 
ContactName = Christina Berglund 
ContactTitle = Order Administrator 
Address = Berguvsvägen 8 
City = Luleå 
PostalCode = S-958 22 
Country = Sweden 
CustomerID = CENTC 
CompanyName = Centro comercial Moctezuma 
ContactName = Francisco Chang 
ContactTitle = Marketing Manager 
Address = Sierras de Granada 9993 
City = México D.F. 
PostalCode = 05022 
Country = Mexico 
.... 
.... 
.... 
Hiển thị tên Field và giá trị của Field trong HTML table 
Kết quả: 
<% 
set conn=Server.CreateObject("ADODB.Connection") 
conn.Provider="Microsoft.Jet.OLEDB.4.0" 
conn.Open "c:/webdata/northwind.mdb" 
set rs = Server.CreateObject("ADODB.recordset") 
rs.Open "SELECT Companyname, Contactname FROM Customers", conn 
%> 
 <%next 
 rs.MoveNext%> 
<%loop 
rs.close 
conn.close 
%> 
Alfreds Futterkiste Maria Anders 
Berglunds snabbköp Christina Berglund 
Centro comercial Moctezuma Francisco Chang 
Ernst Handel Roland Mendel 
FISSA Fabrica Inter. Salchichas S.A. Diego Roel 
Galería del gastrónomo Eduardo Saavedra 
Island Trading Helen Bennett 
Königlich Essen Philip Cramer 
Laughing Bacchus Wine Cellars Yoshi Tannamuri 
Magazzini Alimentari Riuniti Giovanni Rovelli 
North/South Simon Crowther 
Paris spécialités Marie Bertrand 
Rattlesnake Canyon Grocery Paula Wilson 
Simons bistro Jytte Petersen 
Thêm Headers vào Table 
Kết quả: 
The Big Cheese Liz Nixon 
Vaffeljernet Palle Ibsen 
Wolski Zajazd Zbyszek Piestrzeniewicz 
<% 
set conn=Server.CreateObject("ADODB.Connection") 
conn.Provider="Microsoft.Jet.OLEDB.4.0" 
conn.Open "c:/webdata/northwind.mdb" 
set rs = Server.CreateObject("ADODB.recordset") 
sql="SELECT Companyname, Contactname FROM Customers" 
rs.Open sql, conn 
%> 
 <%for each x in rs.Fields 
 response.write("" & x.name & "") 
 next%> 
 <%next 
 rs.MoveNext%> 
 <%loop 
 rs.close 
 conn.close 
 %> 
Companyname Contactname 
Alfreds Futterkiste Maria Anders 
Berglunds snabbköp Christina Berglund 
Centro comercial Moctezuma Francisco Chang 
Ernst Handel Roland Mendel 
5. QUERY 
Display Selected Data 
Chúng ta chỉ hiển thị những bản ghi từ bản "Customers" mà trường "Companyname" 
bắt đầu bằng chữ A 
FISSA Fabrica Inter. Salchichas S.A. Diego Roel 
Galería del gastrónomo Eduardo Saavedra 
Island Trading Helen Bennett 
Königlich Essen Philip Cramer 
Laughing Bacchus Wine Cellars Yoshi Tannamuri 
Magazzini Alimentari Riuniti Giovanni Rovelli 
North/South Simon Crowther 
Paris spécialités Marie Bertrand 
Rattlesnake Canyon Grocery Paula Wilson 
Simons bistro Jytte Petersen 
The Big Cheese Liz Nixon 
Vaffeljernet Palle Ibsen 
Wolski Zajazd Zbyszek Piestrzeniewicz 
<% 
set conn=Server.CreateObject("ADODB.Connection") 
conn.Provider="Microsoft.Jet.OLEDB.4.0" 
conn.Open "c:/webdata/northwind.mdb" 
set rs=Server.CreateObject("ADODB.recordset") 
sql="SELECT Companyname, Contactname FROM Customers 
WHERE CompanyName LIKE 'A%'" 
rs.Open sql, conn 
%> 
 <%for each x in rs.Fields 
 response.write("" & x.name & "") 
 next%> 
 <%next 
Sort the Data 
Hiển thị "Companyname" và "Contactname" từ bản "Customers", sắp xếp bởi 
"Companyname": 
 rs.MoveNext%> 
 <%loop 
 rs.close 
 conn.close%> 
<% 
set conn=Server.CreateObject("ADODB.Connection") 
conn.Provider="Microsoft.Jet.OLEDB.4.0" 
conn.Open "c:/webdata/northwind.mdb" 
set rs = Server.CreateObject("ADODB.recordset") 
sql="SELECT Companyname, Contactname FROM 
Customers ORDER BY CompanyName" 
rs.Open sql, conn 
%> 
 <%for each x in rs.Fields 
 response.write("" & x.name & "") 
 next%> 
 <%next 
 rs.MoveNext%> 
 <%loop 
 rs.close 
 conn.close%> 
Add a Record to a Table in a Database 
Chúng ta có thể them 1 bản ghi mới vào CSDL Northwind. Trước tiên bạn phải tạo ra 
01 form nhập liệu: 
Khi bạn bấm vào nút submit(add New) sẽ chuyển sang file "demo_add.asp". 
"demo_add.asp" chứa đoạn mã thêm 01 record mới vào bản Customers như sau: 
CustomerID: 
Company Name: 
Contact Name: 
Address: 
City: 
Postal Code: 
Country: 
<% 
Update a Record in a Table 
Bạn muốn cập nhật lại thông tin 1 record trong bản Customers trong CSDL: Northwind. 
Đầu tiên ta hiển thị tất cả các records trong bảng Customers, mỗi record lấy 
customerID làm tham số : 
set conn=Server.CreateObject("ADODB.Connection") 
conn.Provider="Microsoft.Jet.OLEDB.4.0" 
conn.Open "c:/webdata/northwind.mdb" 
sql="INSERT INTO customers (customerID,companyname," 
sql=sql & "contactname,address,city,postalcode,country)" 
sql=sql & " VALUES " 
sql=sql & "('" & Request.Form("custid") & "'," 
sql=sql & "'" & Request.Form("compname") & "'," 
sql=sql & "'" & Request.Form("contname") & "'," 
sql=sql & "'" & Request.Form("address") & "'," 
sql=sql & "'" & Request.Form("city") & "'," 
sql=sql & "'" & Request.Form("postcode") & "'," 
sql=sql & "'" & Request.Form("country") & "')" 
on error resume next 
conn.Execute sql,recaffected 
if err0 then 
 Response.Write("No update permissions!") 
else 
 Response.Write("" & recaffected & " record added") 
end if 
conn.close 
%> 
<% 
set conn=Server.CreateObject("ADODB.Connection") 
conn.Provider="Microsoft.Jet.OLEDB.4.0" 
conn.Open "c:/webdata/northwind.mdb" 
set rs=Server.CreateObject("ADODB.Recordset") 
rs.open "SELECT * FROM customers",conn 
%> 
List Database 
<% 
for each x in rs.Fields 
Khi bạn click vào "customerID" sẽ gọi đến file "demo_update.asp". tập tin 
"demo_update.asp" file này chứa đoạn mã tạo ra form chứa các field từ customerID 
đã. Form này có 01 nút lệnh "Update record" sẽ thực hiện việc lưu dữ liệu: 
 response.write("" & ucase(x.name) & "") 
next 
%> 
<% 
for each x in rs.Fields 
 if lcase(x.name)="customerid" then%> 
 ">
 <%end if 
next 
%> 
<% 
loop 
conn.close 
%> 
Update Record 
<% 
set conn=Server.CreateObject("ADODB.Connection") 
conn.Provider="Microsoft.Jet.OLEDB.4.0" 
conn.Open "c:/webdata/northwind.mdb" 
cid=Request.Form("customerID") 
if Request.form("companyname")="" then 
 set rs=Server.CreateObject("ADODB.Recordset") 
 rs.open "SELECT * FROM customers WHERE customerID='" & cid & "'
 %> 
Delete a Record in a Table 
Bạn muốn xóa 1 record trong bảng Customers trong CSDL Northwind. Trước tiên bạn 
phải hiển thị ra tất cả các record trong bảng đó để chọn xóa: 
 " value=""> 
<% 
else 
 sql="UPDATE customers SET " 
 sql=sql & "companyname='" & Request.Form("companyname") & "',"
 sql=sql & "contactname='" & Request.Form("contactname") & "',"
 sql=sql & "address='" & Request.Form("address") & "'," 
 sql=sql & "city='" & Request.Form("city") & "'," 
 sql=sql & "postalcode='" & Request.Form("postalcode") & "'," 
 sql=sql & "country='" & Request.Form("country") & "'" 
 sql=sql & " WHERE customerID='" & cid & "'" 
 on error resume next 
 conn.Execute sql 
 if err0 then 
 response.write("No update permissions!") 
 else 
 response.write("Record " & cid & " was updated!") 
 end if 
end if 
conn.close 
%> 
<% 
set conn=Server.CreateObject("ADODB.Connection") 
conn.Provider="Microsoft.Jet.OLEDB.4.0" 
conn.Open "c:/webdata/northwind.mdb" 
Nếu bạn click vào cột "customerID" một file mới được gọi đến "demo_delete.asp". File 
"demo_delete.asp" chứa đoạn mã hiển thị dữ liệu bạn muốn xóa. Tiếp đó có nút lệnh 
"Delete record" để xóa record mà bạn chọn: 
set rs=Server.CreateObject("ADODB.Recordset") 
rs.open "SELECT * FROM customers",conn 
%> 
List Database 
<% 
for each x in rs.Fields 
 response.write("" & ucase(x.name) & "") 
next 
%> 
<% 
for each x in rs.Fields 
 if x.name="customerID" then%> 
 ">
 <%end if 
next 
%> 
<% 
loop 
conn.close 
%> 
Delete Record 
<% 
set conn=Server.CreateObject("ADODB.Connection") 
conn.Provider="Microsoft.Jet.OLEDB.4.0" 
conn.Open "c:/webdata/northwind.mdb" 
cid=Request.Form("customerID") 
if Request.form("companyname")="" then 
 set rs=Server.CreateObject("ADODB.Recordset") 
 rs.open "SELECT * FROM customers WHERE customerID='" & cid & "'
 %> 
 " value=""> 
<% 
else 
 sql="DELETE FROM customers" 
 sql=sql & " WHERE customerID='" & cid & "'" 
 on error resume next 
 conn.Execute sql 
 if err0 then 
 response.write("No update permissions!") 
 else 
 response.write("Record " & cid & " was deleted!") 
 end if 
end if 
conn.close 
%>