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ư ụ ạ ừ . 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. ế 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. 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ậ