Tổng quan 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.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 DANH B ĐI N THO IẠ Ệ Ạ THÊM S ĐT M IỐ Ớ <% 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"" response.write"STT " response.write"H TÊNỌ " response.write"DI Đ NGỘ " response.write"C QUANƠ " response.write"NHÀ RIÊNG " response.write"FAX " response.write"GHI CHÚ " 'THEM COT CHUC NANG response.write"CH C NĂNGỨ " response.write"" do while not rs.eof response.Write"" response.Write" "&rs("STT")&" " response.Write" "&rs("ten")&" " response.Write" "&rs("didong")&" " response.Write" "&rs("coquan")&" " response.Write" "&rs("nharieng")&" " response.Write" "&rs("fax")&" " response.Write" "&rs("ghichu")&" " 'THEM COT CHUC NANG LIEN KET response.Write"" response.Write"Xoá |" response.Write" S a" response.Write"" response.Write"" rs.movenext loop rs.close response.write("") '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 THÊM S ĐI N TH AI M I VÀO DANH B Ố Ệ Ọ Ớ Ạ S TTố Tên ĐT Di Đ ngộ ĐT C Quanơ ĐT Nhà Riêng FAX Ghi Chú <% 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 Err0 Then Response.Write("Co Loi khi them du lieu") Else Response.Write("Them DL thanh cong") Response.Write("Tro lai trang danh ba") 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" Xoá |" <% 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 S A S ĐI N THO IỬ Ố Ệ Ạ <% '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 Err0 Then Response.Write("Có L i Khi S a D Li u")ỗ ử ữ ệ Else Response.Write("Đã S a D li u thành công")ử ữ ệ Response.Write(" Tr l i trang danh sách đi n tho i")ở ạ ệ ạ 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 %> S TTố "> Tên "> Di đ ngộ "> C quanơ "> Nhà riêng "> FAX "> Ghi chú "> <% rs.close response.write("") 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 THÊM S ĐI N TH AI M I VÀO DANH B Ố Ệ Ọ Ớ Ạ S TTố Tên ĐT Di Đ ngộ ĐT C Quanơ ĐT Nhà Riêng FAX GHI CHÚ <!-- 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; --> <!-- ew_CreateEditor(); // Create DHTML editor(s) //--> 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 ử ụ ị ỉ ụ ộ ạ ủ ạ m c web b n v a shareư ụ ạ ừ ho cặ m c web b n v a shareư ụ ạ ừ