Để bắt đầu cập nhật dữ liệu vào File CSDL login.mdb, chúng ta cần phải liên kết đến tập tin này. Trước khi liên kết, chúng ta cần xác lập một số cấu hình Đường dẫn(Server.MapPath), cho phép sử dụng Parent Path truy xuất đến thư mục bất kỳ chứa tập tin CSDL.
Cho rằng bạn đã cài IIS vào Local Computer của bạn.
Cho rằng bạn đã tạo thư mục sau đây trên máy Local Computer của bạn:
C:\inetpub\myweb\mydomain\database. Trong đó mydomain là thư mục gốc để chứa các file .asp và thư mục database dùng để chứa tập tin CSDL. Ở đây chúng ta không đề cập đến việc tạo Virtual Directory và Xác lập File Default.asp cho trang Web. Vấn đề ở chổ đôi khi bạn không đặt thư mục database vào thư mục gốc mà trỏ chúng đến một đường dẫn nào đó có thể lên vài SubFolder hoặc xuống vài subfolder, khi đó bạn phải dùng các khai báo như /subfolder/database hoặc ../../subfolder/database. Nếu bạn không Enable Parent Path trong IIS, mà sử dụng các ký tự như trên khi khai báo đường dẫn Server.MapPath, quá trình liên kết CSDL có thể sẽ gặp phải lỗi.
Để khắc phục lỗi này, bạn thực hiện các bước sau:
Từ Windows Desktop:
-Start --> Control Panel
-Doubl Click Administrative Tools.
-Double Click Internet Information Services.
-Click Local Computer
-Click Websites
-Click Default Websites
-Chọn Mydomain --> Right Click chọn Properties
-Cửa sổ mydomain properties mở ra như hình dưới:
Domain Properties
Trong cửa sổ này Click Configuration, trong cửa sổ mới Application Configuration, click chọn Options như hình dưới:
Application Configuration-Option-Enable parent Paths
Click OK, OK và Exit IIS. Xong, tất cả các công đoạn cho Datafile hoàn tất. Chúng ta bắt đầu liên kết CSDL.
Tập tin liên kết CSDL:
Tập tin này sẽ được sử dụng trong tất cả các bài học, và chúng ta lưu với tên file dbconnection.asp
Cách 1:
<% Dim strDBPath, strCon
strDBPath=Server.MapPath("database/login.mdb")
strCon = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & strDbPath
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open strCon
Err.Clear
On Error Resume Next
%>
Cách 2:
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.connectionstring = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" _ & Server.Mappath("database/login.mdb") & ";User Id=Administrator;Password=something;"
Conn.Open
%>
Cách 3:
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0; DBQ=" _& Server.Mappath("database/login.mdb") & "User ID=Administrator;Password=something;"
Conn.Open
%>
Nếu bạn không Set User ID và password thì xóa phần này.
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0; DBQ=" _
& Server.Mappath("database/login.mdb") & ";"
Conn.Open
%>
Chọn 1 cách tốt nhất cho bạn, với bài thực hành này bạn nên chọn cách 1. Lưu tập tin trên với tên dbconnection.asp và chúng ta sẵn sàng cho các bài kế tiếp.
Đăng nhận xét