Hướng dẫn lập trình web ASP potx

H NG D N L P TRÌNH WEB V I ASPƯỚ Ẫ Ậ Ớ
CHO CSDL M U Ẫ COSODULIEUQUANLYHSSV.MDB
1.K T N I C S D LI UẾ Ố Ơ Ở Ữ Ệ
M t p tin k t n i vào c s d li u ở ậ ế ố ơ ở ữ ệ ketnoicosodulieu.asp (s a đo n Code sau cho phù h p v iử ạ ợ ớ
CSDL c a b n…)ủ ạ
Trong bài m u: ẫ
- Th m c ch a CSDL đ c ch đ nh là: ư ụ ứ ượ ỉ ị database
- Tên c s d li u là:ơ ở ữ ệ cosodulieuquanlyhssv.mdb
'THU MUC CHUA CSDL CUA BAN
strDBFolder = Server.MapPath("database")
'TEN CO SO DU LIEU CUA BAN
strDBFileName = "/cosodulieuquanlyhssv.mdb"
2. T O M T TRANG WEB L Y THÔNG TIN TRONG CSDLẠ Ộ Ấ
Ví d :ụ T o trang web xu t thông tin trong b ng danh b ạ ấ ả ạ
l u l i v i tên ư ạ ớ xuat_ds_dienthoai.asp
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
<! #include file="ketnoicosodulieu.asp" >
<p align="center"><b> DANH B ĐI N THO IẠ Ệ Ạ </b></p>
<b><A HREF="them_ds_dienthoai.asp">THÊM S ĐT M IỐ Ớ </A></b>
<%
session.codepage=65001
'TAO SQL LAY THONG TIN TU BANG DANHBA
SQL="SELECT STT, ten, didong, coquan, nharieng, FAX, ghichu FROM danhba;"
set RS = objCn.Execute(sql)
if not rs.eof then
response.write"<table border='2' cellpadding='0' cellspacing='0' style='border-collapse: collapse'
bordercolor='#000080' WIDTH='100%'>"
response.write"<tr height=25 >"
response.write"<td align='center'>STT </td>"
response.write"<td align='center'>H TÊNỌ </td>"
response.write"<td align='center'>DI Đ NGỘ </td>"

response.write"<td align='center'>C QUANƠ </td>"
response.write"<td align='center'>NHÀ RIÊNG </td>"
response.write"<td align='center'>FAX </td>"
response.write"<td align='center'>GHI CHÚ </td>"
'THEM COT CHUC NANG
response.write"<td align='center'>CH C NĂNGỨ </td>" response.write"</tr>"
do while not rs.eof
response.Write"<tr height=25>"
response.Write"<td align='center'> "&rs("STT")&" </td>"
response.Write"<td align='Left'> "&rs("ten")&" </td>"
response.Write"<td align='center'> "&rs("didong")&" </td>"
response.Write"<td align='center'> "&rs("coquan")&" </td>"
response.Write"<td align='center'> "&rs("nharieng")&" </td>"
response.Write"<td align='center'> "&rs("fax")&" </td>"
response.Write"<td align='center'> "&rs("ghichu")&" </td>"
'THEM COT CHUC NANG LIEN KET
response.Write"<td align='center'>"

response.Write"<a href='xoa_ds_dienthoai.asp?xoadienthoai="&rs("STT")&"'>Xoá |</a>"
response.Write"<a href='sua_ds_dienthoai.asp?suadienthoai="&rs("STT")&"'> S a</aử >"
response.Write"</td>"
response.Write"</tr>"
rs.movenext
loop
rs.close
response.write("</table>") 'KET THUC BANG
else
end if
%>
T o liên k t truy n giá tr ạ ế ề ị xoadienthoai

theo mã là STT đ n trang ế
xoa_ds_dienthoai.asp
T o liên k t truy n giá tr ạ ế ề ị suadienthoai theo
mã là STT đ n trang ế sua_ds_dienthoai.asp
3. T O M T TRANG WEB B T KỲ THÊM THÔNG TIN VÀO CSDLẠ Ộ Ấ
Ví d :ụ T o trang web thêm thông tin vào danh b ạ ạ
l u l i v i tên ư ạ ớ them_ds_dienthoai.asp
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
<! #include file="ketnoicosodulieu.asp" >
<p align="center"><b>THÊM S ĐI N TH AI M I VÀO DANH B </b></p>Ố Ệ Ọ Ớ Ạ
<form action="" method=post name=themmoi>
<table border="1" width="100%" id="table1">
<tr><td>S TTố </td><td><input type="text" name="them_STT" size="50"></td></tr>
<tr><td>Tên </td><td><input type="text" name="them_ten" size="50"></td></tr>
<tr><td>ĐT Di Đ ngộ </td><td><input type="text" name="them_didong" size="50"></td></tr>
<tr><td>ĐT C Quanơ </td><td><input type="text" name="them_coquan" size="50"></td></tr>
<tr><td>ĐT Nhà Riêng </td><td><input type="text" name="them_nharieng" size="50"></td></tr>
<tr><td>FAX </td><td><input type="text" name="them_FAX" size="50"></td></tr>
<tr><td>Ghi Chú </td><td><input type="text" name="them_ghichu" size="50"></td></tr>
</table>
<p><input type="submit" value="Submit" name="themmoi_submit">
<input type="reset" value="Reset" name="B2"></p>
</form>
<%
session.codepage=65001
If Request.Form("themmoi_submit")<>"" Then
them_STT =Replace(Request.Form("them_STT"),"'","''")
them_ten =Replace(Request.Form("them_ten"),"'","''")
them_didong =Replace(Request.Form("them_didong"),"'","''")
them_coquan =Replace(Request.Form("them_coquan"),"'","''")

them_nharieng =Replace(Request.Form("them_nharieng"),"'","''")
them_FAX =Replace(Request.Form("them_FAX"),"'","''")
them_ghichu =Replace(Request.Form("them_ghichu"),"'","''")
STRSQL="INSERT INTO danhba(STT,ten,didong,coquan,nharieng,FAX,ghichu) VALUES("
StrSQL=StrSQL &"'" &them_STT&"',"
StrSQL=StrSQL &"'" &them_ten&"',"
StrSQL=StrSQL &"'" &them_didong&"',"
StrSQL=StrSQL &"'" &them_coquan&"',"
StrSQL=StrSQL &"'" &them_nharieng&"',"
StrSQL=StrSQL &"'" &them_FAX&"',"
StrSQL=StrSQL &"'" &them_ghichu&"'" ‘CHÚ Ý TR NG CU IƯỜ Ố
StrSQL=StrSQL &");"
On Error Resume next
Dim rstin
Set rstin=objCn.Execute(StrSQL)
If Err<>0 Then
Response.Write("<p align=center><font color=red><b>Co Loi khi them du lieu<p>")
Else
Response.Write("<p align=center><font color=red><b>Them DL thanh cong<p><BR>")
Response.Write("<A HREF=""xuat_ds_dienthoai.asp"">Tro lai trang danh ba</A>")
END IF
ELSE
End If
%>
Chú ý không có
kho ng tr ng ả ố
gi a các tr ngữ ườ
4.T O M T TRANG WEB B T KỲ XÓA THÔNG TIN TRONG CSDLẠ Ộ Ấ
Ví d :ụ T o trang web xoá thông tin đ c ch n trên danh sách danh b ạ ượ ọ ạ
l u l i v i tên ư ạ ớ xoa_ds_dienthoai.asp

L y thông tin c n xóa t trang ấ ầ ừ xuat_ds_dienthoai.asp
• Xem l i trang xu t danh sách đi n tho i trên ạ ấ ệ ạ ở C T CH C NĂNGỘ Ứ
response.Write"<a href='xoa_ds_dienthoai.asp?xoadienthoai="&rs("STT")&"'> Xoá |</a>"
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
<! #include file="ketnoicosodulieu.asp" >
<%
madbcanxoa=Request.QueryString("xoadienthoai")
StrSQL="DELETE FROM danhba WHERE cSTR([STT])='"&madbcanxoa&"';"
set RS = objCn.Execute(StrSQL)
Response.Redirect("xuat_ds_dienthoai.asp")
%>
5.T O M T TRANG WEB B T KỲ S A THÔNG TIN TRONG CSDLẠ Ộ Ấ Ử
Ví d :ụ T o trang web s a thông tin đ c ch n trên danh sách danh b ạ ử ượ ọ ạ
l u l i v i tên ư ạ ớ sua_ds_dienthoai.asp
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
<! #include file="ketnoicosodulieu.asp" >
<p align="center"><b> S A S ĐI N THO IỬ Ố Ệ Ạ </b></p>
<%
'LAY GIA TRI TU CAC O GIA TRI TREN FORM SUA DU LIEU KHI NHAN VAO NUT SUBMIT
If Request.Form("sua_submit")<>"" Then
sua_STT = Request.Form("sua_STT")
sua_ten = Request.Form("sua_ten")
sua_didong = Request.Form("sua_didong")
sua_coquan = Request.Form("sua_coquan")
sua_nharieng = Request.Form("sua_nharieng")
sua_FAX = Request.Form("sua_FAX")
sua_ghichu = Request.Form("sua_ghichu")
'CHUYEN CAC GIA TRI TREN VAO CAU LENH SQL VA THUC HIEN CAP NHAT DU LIEU
STRSQL="UPDATE danhba SET "& _
"danhba.ten = '"&sua_ten&"',"& _

"danhba.didong = '"&sua_didong &"',"& _
"danhba.coquan = '"&sua_coquan&"',"& _
"danhba.nharieng = '"&sua_nharieng&"',"& _
"danhba.FAX = '"&sua_FAX&"',"& _
"danhba.ghichu = '"&sua_ghichu &"' "& _
"WHERE (((danhba.STT)=VAL('"&sua_STT&"')));"
On Error Resume next
Dim rssua
Set rssua=objCn.Execute(StrSQL)
If Err<>0 Then
Response.Write("<p align=center><b>Có L i Khi S a D Li u<p>")ỗ ử ữ ệ
Else
Response.Write("<p align=center><b>Đã S a D li u thành công<p>")ử ữ ệ
Response.Write("<a href='xuat_ds_dienthoai.asp'> Tr l i trang danh sách đi n tho i</A>")ở ạ ệ ạ
END IF
ELSE
On Error Goto 0
End If
%>
VAL: S d ng cho các tr ng ki u ử ụ ườ ể
Number
<%
session.codepage=65001
'LAY GIA TRI TRUYEN TRONG LIEN KET
madbcansua=Request.QueryString("suadienthoai")
'LAY THONG TIN TU BANG DANHBA VOI DIEU KIEN STT LA GIA TRI NHAN DUOC O TREN
SQL="SELECT STT, ten, didong, coquan, nharieng, FAX, ghichu FROM danhba WHERE
(((danhba.STT)=VAL('"&madbcansua&"')));"
set RS = objCn.Execute(sql)
if not rs.eof then

%>
<! TAO FORM SUA DU LIEU >
<form action="" method=post name=suathongtin>
<table border="0" width="60%" id="table1">
<tr><td>S TTố </td><td align="center"><p align="center">
<input type="text" name="sua_stt" size="70" value="<%=response.write(rs("stt"))%>"></td></tr>
<tr><td>Tên</td><td align="center">
<input type="text" name="sua_ten" size="70" value="<%=response.write(rs("ten"))%>"></td></tr>
<tr><td>Di đ ngộ </td><td align="center">
<input type="text" name="sua_didong" size="70" value="<%=response.write(rs("didong"))%>"></td></tr>
<tr><td>C quanơ </td><td align="center">
<input type="text" name="sua_coquan" size="70" value="<%=response.write(rs("coquan"))%>"></td></tr>
<tr><td>Nhà riêng</td><td align="center">
<input type="text" name="sua_nharieng" size="70" value="<%=response.write(rs("nharieng"))%>"></td></tr>
<tr><td>FAX</td><td align="center">
<input type="text" name="sua_FAX" size="70" value="<%=response.write(rs("FAX"))%>"></td></tr>
<tr><td>Ghi chú</td><td align="center">
<input type="text" name="sua_GHICHU" size="70" value="<%=response.write(rs("ghichu"))%>"></td></tr>
</table>
<p align="center"><input type="submit" value="Submit" name="sua_submit">
<input type="reset" value="Reset" name="B2"></p>
</form>
<%
rs.close
response.write("</table>")
else
end if
%>
VAL: S d ng cho các tr ng ki u ử ụ ườ ể
Number

6. THÊM B CÔNG C SO N TH O Ộ Ụ Ạ Ả FCKEDITOR VÀO TRANG NH P LI UẬ Ệ
B công c g m 2 ph nộ ụ ồ ầ
1. T p tin ậ chucnangsoanthao.asp
2. Th mư c ụ FCKeditor
B n có th thay đ i l i c u hình ạ ể ổ ạ ấ FCKEDITOR b ng cách theo đ ng d n vào th m c sauằ ườ ẫ ư ụ
FCKeditor\editor\filemanager\connectors\asp
Ch n file ọ config.asp
‘Ch n true n u b n cho phép g i t p tin lên th m c website c a b nọ ế ạ ử ậ ư ụ ủ ạ
Dim ConfigIsEnabled
ConfigIsEnabled = true
‘Th m c ch a t p tin g i lên, ví d ư ụ ứ ậ ử ụ uploadfile
Dim ConfigUserFilesPath
ConfigUserFilesPath = "/uploadfile/"
Ví d :ụ T o trang web thêm thông tin vào danh b nh ví d ạ ạ ư ụ ở ph n 3 ầ l u l i v i tênư ạ ớ
them_ds_dienthoai.asp, K t h p b so n th o t i ế ợ ộ ạ ả ạ them_ghichu
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
<! #include file="ketnoicosodulieu.asp" >
<! #include file="chucnangsoanthao.asp" >
<p align="center"><b>THÊM S ĐI N TH AI M I VÀO DANH B </b></p>Ố Ệ Ọ Ớ Ạ
<form action="" method=post name=themmoi>
<table border="1" width="100%" id="table1">
<tr><td>S TTố </td><td><input type="text" name="them_STT" size="50"></td></tr>
<tr><td>Tên </td><td><input type="text" name="them_ten" size="50"></td></tr>
<tr><td>ĐT Di Đ ngộ </td><td><input type="text" name="them_didong" size="50"></td></tr>
<tr><td>ĐT C Quanơ </td><td><input type="text" name="them_coquan" size="50"></td></tr>
<tr><td>ĐT Nhà Riêng </td><td><input type="text" name="them_nharieng" size="50"></td></tr>
<tr><td>FAX </td><td><input type="text" name="them_FAX" size="50"></td></tr>
<! =========================BO SOAN THAO=========================== >
<tr><td>GHI CHÚ<br>
<textarea type=text class=textbox name="them_ghichu" id="them_ghichu" cols=78 rows=20></textarea>

<script type="text/javascript">
<!
var editor = new ew_DHTMLEditor("them_ghichu");
editor.create = function() {
var sBasePath = 'fckeditor/';
var oFCKeditor = new FCKeditor('them_ghichu', 40*_width_multiplier, 4*_height_multiplier);
oFCKeditor.BasePath = sBasePath;
oFCKeditor.ReplaceTextarea();
this.active = true;
}
ew_DHTMLEditors[ew_DHTMLEditors.length] = editor;
>
</script>
<script type="text/javascript">
<!
ew_CreateEditor(); // Create DHTML editor(s)
// >
</script>
</td></tr>
<! ====================KET THUC BO SOAN THAO====================== >
</table>
<p><input type="submit" value="Submit" name="themmoi_submit">
<input type="reset" value="Reset" name="B2"></p>
</form>
ph n d i gi nguyên…ầ ướ ữ
G i t p tin ọ ậ
chucnangsoanthao.asp
7. CH Y NG D NGẠ Ứ Ụ
Chuy n th m c web c a b n lên webserverể ư ụ ủ ạ
Chú ý các t p tin web c a anh ch ph i đ c l u vào 1 th m c nh t đ nhậ ủ ị ả ượ ư ư ụ ấ ị

 B c 1ướ : chu t ph i vào th m c ch n ộ ả ư ụ ọ
 Bư c 2ớ : Ch n ọ Web Sharing … Share this folder…
 B c 3ướ : s d ng đ a ch c c b ch y web site c a b n ử ụ ị ỉ ụ ộ ạ ủ ạ
http://127.0.0.1/th m c web b n v a shareư ụ ạ ừ
ho cặ
http://localhost/th m c web b n v a shareư ụ ạ ừ