Thanh Nguyên Admin


Tổng số bài gửi : 526 Được Cảm Ơn : 59 Join date : 11/10/2012 Age : 25 Đến từ : Bà Rịa-Vũng Tàu
 | Tiêu đề: Xây Dựng trang đăng Kí (Access Database) Tue Feb 26, 2013 5:12 pm | |
|  | |  |  | Registration là module cho phép một khách vãng lai đăng ký làm thành viên của website. Module này gồm một form đăng ký thành viên, 1 file asp xử lý form này, insert dữ liệu vào database. Ở database có một table tblUser chứa danh sách các thành viên của websiteRegistrationForm.htm: trang này chứa form cho phép người dùng đăng ký. RegistrationProcess.asp: trang này xử lý dữ liệu từ form trên, nếu hợp lệ thì insert dữ liệu vào database Ngoài ra, để kết nối vào database chúng ta viết 1 file connection.asp chứa các hàm open và destroy connection rồi include file này vào các filem có nhu cầu truy cập database. Trong Database chứa table : tblUserTrang RegistrationForm.htm- Code:
<html> <head> <title>Registration</title> </head> <body> <form method="POST" action="RegistrationProcess.asp"> <p> Username: <input type="text" name="username“ ></p> <p> Password: <input type=“password" name="password“ ></p> <p> Confirm Password: <input type=“password" name="ConfirmPassword“ ></p> <p> Address: <input type="text" name="address"></p> <p><input type="submit" value="Submit" name=“submit"></p> </form> </body> </html>
Trang Connection.asp- Code:
<% dim conn Sub openConn() ‘hàm mở connection tới DB set conn=server.createobject("adodb.connection") connstr="provider=microsoft.jet.oledb.4.0; data source="&server.mappath("myDB.mdb")&";" conn.open connstr End Sub Sub destroyConn() ‘hàm đóng và hủy connection conn.close set conn=nothing End Sub %>
Trang RegistrationProcess.asp- Code:
<!--#include file ="Connection.asp"--> <% username=request.form("username") password=request.form("password") confirmPassword=request.form("confirmPassword") address=request.form("address") ‘ validate some information retrieved from submitted form openConn sql="insert into tblUser([username],[password],[address]) values('"&username&"','"&password&"','"&address&"')" conn.execute sql destroyConn response.write "Successful Registration!" %> SinhvienIT | |  | |  |
_________________ Cộng Đồng It Vũng Tàu Kinh Nghiệm-Học Hỏi-Chia Sẻ [You must be registered and logged in to see this link.] |
|