Hướng dẫn lập trình web với ASP
H NG D N L P TRÌNH WEB V I ASPƯỚ Ẫ Ậ ỚCHO CSDL M U Ẫ COSODULIEUQUANLYHSSV.MDB1.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 BANstrDBFolder = Server.MapPath("database")'TEN CO SO DU LIEU CUA BANstrDBFileName = "/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 DANHBASQL="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 KETresponse.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.movenextlooprs.closeresponse.write("</table>") 'KET THUC BANGelseend 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=65001If Request.Form("themmoi_submit")<>"" Thenthem_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 nextDim rstinSet rstin=objCn.Execute(StrSQL)If Err<>0 ThenResponse.Write("<p align=center><font color=red><b>Co Loi khi them du lieu<p>")ElseResponse.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 IFELSEEnd 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.aspL 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 SUBMITIf Request.Form("sua_submit")<>"" Thensua_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 LIEUSTRSQL="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 nextDim rssuaSet rssua=objCn.Execute(StrSQL)If Err<>0 ThenResponse.Write("<p align=center><b>Có L i Khi S a D Li u<p>")ỗ ử ữ ệElseResponse.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 IFELSEOn Error Goto 0End If%>VAL: S d ng cho các tr ng ki u ử ụ ườ ểNumberN u tr ng giá tr là 1 chu i b ế ườ ị ỗ ỏ VAL <%session.codepage=65001'LAY GIA TRI TRUYEN TRONG LIEN KETmadbcansua=Request.QueryString("suadienthoai")'LAY THONG TIN TU BANG DANHBA VOI DIEU KIEN STT LA GIA TRI NHAN DUOC O TRENSQL="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.closeresponse.write("</table>")elseend if%>VAL: S d ng cho các tr ng ki u ử ụ ườ ểNumberN u tr ng giá tr là 1 chu i b ế ườ ị ỗ ỏ VAL 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.asp2. Th mư c ụ FCKeditorB 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\aspCh 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 ConfigIsEnabledConfigIsEnabled = true‘Th m c ch a t p tin g i lên, ví d ư ụ ứ ậ ử ụ uploadfileDim ConfigUserFilesPathConfigUserFilesPath = "/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ư ụ ạ ừ . 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. 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& lt;meta