Thanh Nguyên
Admin
Tổng số bài gửi : 526
Được Cảm Ơn : 59
Join date : 11/10/2012
Age : 26
Đế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.] |
|
