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

Thông tin tài liệu

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"><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"><%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"><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%><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"><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Ú<br><textarea type=text class=textbox name="them_ghichu" id="them_ghichu" cols=78 rows=20></textarea><script type="text/javascript"></script><script type="text/javascript"></script></td></tr></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

Ngày đăng: 16/08/2012, 14:11

Xem thêm: Hướng dẫn lập trình web với ASP

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

Thông tin tài liệu

Từ khóa liên quan

Tài liệu cùng người dùng

Tài liệu liên quan