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

Trang 1

H ƯỚ NG D N L P TRÌNH WEB V I ASP Ẫ Ậ Ớ

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 "

Trang 2

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

<!#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

Trang 3

T o liên k t truy n giá tr ạ ế ề ị suadienthoai theo

mã là STT đ n trang ế sua_ds_dienthoai.asp

Trang 4

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

<! -#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>

<tr><td> ĐT Nhà Riêng </td><td><input type="text" name=" them_nharieng " size="50"></td></tr>

</table>

</form>

<%

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

Trang 5

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">

<%

StrSQL="DELETE FROM danhba WHERE cSTR([ STT ])='"& madbcanxoa &"';" set RS = objCn.Execute(StrSQL)

Response.Redirect(" xuat_ds_dienthoai.asp ")

%>

Trang 6

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

<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

N u tr ế ườ ng giá tr là 1 chu i b ị ỗ ỏ VAL

Trang 7

'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>C quanơ </td><td align="center">

<tr><td>Nhà riêng</td><td align="center">

</table>

</form>

<%

rs.close

response.write("</table>")

else

end if

%>

VAL : S d ng cho các tr ử ụ ườ ng ki u ể

Number

N u tr ế ườ ng giá tr là 1 chu i b ị ỗ ỏ VAL

Trang 8

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

<! -#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>

<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>

<! =========================BO SOAN THAO=========================== >

<! 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>

<! ew_CreateEditor(); // Create DHTML editor(s)

// >

</script>

</td></tr>

<! ====================KET THUC BO SOAN THAO====================== >

</table>

</form>

ph n d ầ ướ i gi nguyên… ữ

G i t p tin ọ ậ

chucnangsoanthao.asp

Trang 9

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

Tiêu đề	Hướng dẫn lập trình web với asp
Trường học	Unknown
Chuyên ngành	Web Programming
Thể loại	Hướng dẫn
Năm xuất bản	Unknown
Thành phố	Unknown

Định dạng
Số trang	9
Dung lượng	271,53 KB