DT221/3 Internet Application
Development
Active Server Pages
& Database Connection
Example of ASP Database
Connection
A simple application example
1) Use ASP for HTML form
2) Login Check
3) Database Connection
4) Database Insertion, Update and Deletion
Example of ASP Database
Connection
Login Form
Insertion
User Management Action Process
Update
Deletion
Insertion Update Form Deletion
Form Conform
Example of ASP Database
Connection-login.asp
Login page
User Name:
Password:
Example of ASP Database
Connection-check.asp(1)
Example of ASP Database
Connection-check.asp(3)
else
Session("level")=-1
Conn.Close
Set Conn = NOTHING
Response.Redirect("login.asp")
end if
%>
Example of ASP Database
Connection-adduser.asp
……
Please enter the new user name:
Please enter the new password:
Please enter the first name:
Please enter the second name:
Please enter the security level:
Example of ASP Database
Connection-addusertodb.asp
Example of ASP Database
Connection-edit.asp
……
")
dim Conn, Rs, user_id, i
set Conn = Server.CreateObject("ADODB.Connection") ' conn objects
set Rs = Server.CreateObject("ADODB.RecordSet")' Record Set
Conn.Open
("Provider=sqloledb;Server=CIAN;Database=cliu;Uid=testuser;Password=;")
Rs.ActiveConnection = Conn
Rs.Open("Select * From cliu.users")
While not Rs.eof
Response.Write("user name = " &Rs("UserName").Value & " ")
Response.Write("edit")
Response.Write("")
Rs.MoveNext
Wend
%>
Example of ASP Database
Connection-edituser.asp(1)
Select user to edit
Example of ASP Database
Connection-edituser(2).asp
//Client side javascript
function check(){
test=true
if (document.form1.user.value==""){
alert("Please enter the user name");
document.form1.user.focus();
test=false; }
if (document.form1.password.value==""){
alert("Please enter the password");
document.form1.password.focus();
test=false; }
if (document.form1.first.value==""){
alert("Please enter the user' first name");
document.form1.first.focus();
test=false; }
if (document.form1.second.value==""){
alert("Please enter the user's second name");
document.form1.second.focus();
test=false; }
Example of ASP Database
Connection-edituser(3).asp
if
(document.form1.level.value==""||(document.form1.level.value!=12&&docu
ment.form1.level.value!=8&&document.form1.level.value!=1)){
alert("Please enter the correct level");
document.form1.user.focus();
test=false;
}
return test
}
>
Example of ASP Database
Connection-edituser.asp(4)
Please enter the new user name:
"
size="20">
Please enter the new password:
" size="20">
Please enter the first name:
"
size="20">
Please enter the second name:
" size="20">
Please enter the security level:
"
size="20">
Example of ASP Database
Connection-editusertodb.asp
Example of ASP Database
Connection-deluser.asp(1)
Database Connection
function ConfirmDelete(s_User, s_ID) {
var s_Dialog = "Are you sure you want to delete user '" + s_User + "'?";
if(confirm(s_Dialog)) {
document.location.href = "deluserdb.asp?id=" + s_ID;
}
}// end function
Example of ASP Database
Connection-deluser(2).asp
")
dim Conn, Rs, user_id, i
set Conn = Server.CreateObject("ADODB.Connection") ' conn objects
set Rs = Server.CreateObject("ADODB.RecordSet")' Record Set
Conn.Open
("Provider=sqloledb;Server=CIAN;Database=cliu;Uid=testuser;Password=;")
Rs.ActiveConnection = Conn
Rs.Open("Select * From cliu.users")
While not Rs.eof
Response.Write("user name = " &Rs("UserName").Value & " ")
Response.Write("del")
Response.Write("")
Rs.MoveNext
Wend
%>
Example of ASP Database
Connection-deluserdb.asp