Giáo Trình Lập Trình Ứng Dụng CSDL Web ASP- P25 pot

Tóm lại các býớc thực hiện:  Tạo một kế nối ắonnectionự active nóứ  Tạo đối týợng kiểu ắommandự gán nó với một ắonnection đã kắch hoạt thuộc tắnh ĩctiveắonnectionờự ắommandTextồ tên th

Trang 1

Tóm lại các býớc thực hiện:

 Tạo một kế nối ắonnectionự active nóứ

 Tạo đối týợng kiểu ắommandự gán nó với một ắonnection đã kắch hoạt (thuộc tắnh ĩctiveắonnectionờự ắommandTextồ tên thủ tụcị

 Tạo ta đối týợng tham sốự bằng phýõng thức ắreateParameter để truyền tham số cho thủ tụcứ

 Thực thi và sử dụng kết quảứ

Trang 2

V- MỘT SỐ ỨNG DỤNG ASP MẪU

I.Xây dựng ứng dụng Calender:

Đây là một ứng dụng đõn giảnự nó sẽ hiện lịch của tháng hiện tạiứ

<%

Option Explicit

Function Calender(datDate)

Dim Months(12)

Dim DaysMonth(12)

Dim Days(7)

Dim strTmp, I, intTmp, strTmp2

Months(1) = "Januari"

Months(2) = "Februari"

Months(3) = "March"

Months(4) = "April"

Months(5) = "May"

Months(6) = "June"

Months(7) = "Juli"

Months(8) = "August"

Trang 3

Months(9) = "September"

Months(10) = "October"

Months(11) = "November"

Months(12) = "December"

DaysMonth(1) = "31"

DaysMonth(2) = "29"

strTmp = Cstr(Year(datDate) / 4) 'Xem thang 2 co 28 hay 29 ngay

If Instr(1,strTmp,",",1) = False then

DaysMonth(2) = "28"

End If

DaysMonth(3) = "31"

DaysMonth(4) = "30"

DaysMonth(5) = "31"

DaysMonth(6) = "30"

DaysMonth(7) = "31"

DaysMonth(8) = "31"

DaysMonth(9) = "30"

DaysMonth(10) = "31"

Days(1) = "Sun"

Days(2) = "Mon"

Days(3) = "Tue"

Days(4) = "Wed"

Days(5) = "Thu"

Days(6) = "Fri"

Days(7) = "Sat"

Calender = Calender & "<table cellspacing=0 cellpadding=2 border=0>"

& Vbcrlf

Calender = Calender & "<tr>" & VbCrlf

Calender = Calender & "<td colspan=5 align=center><font size=2>" &

Trang 4

Calender = Calender & "<td colspan=2><font

size=2>"&Year(datDate)&"</td>" &VbCrlf

Calender = Calender & "</tr>" & VbCrlf

' In toan bo ngay ra

I = 1

Do Until I = Ubound(Days) + 1

Calender = Calender & "<td align=right><font size=2>"&Days(I)&"</td>"

& VbCrlf

I = I + 1

Loop

' In ngay dau tien cua thang vao vi tri hop le

strTmp = "1/"&Month(datDate)&"/"&Year(datDate)

I = 0

Do until I = Cint(WeekDay(strTmp)) - 1

strTmp2 = strTmp2 & "<td> </td>" & VbCrlf

I = I + 1

Loop

I = 1

intTmp = Cint(Weekday(strTmp)) - 1

Do Until I = Cint(DaysMonth(Month(datDate))) + 1

If intTmp = 0 then Calender = Calender & "<tr>" & vbcrlf

Calender = Calender & strTmp2

strTmp2 = ""

Calender = Calender & "<td align=center><font size=2>"

If I = Cint(Day(datDate)) Then Calender = Calender & "<font size=3><b>" Calender = Calender & I

If I = Cint(Day(datDate)) Then Calender = Calender & "</b>"

Calender = Calender & "</td>" & VbCrlf

If intTmp >= 6 then

intTmp = 0

Trang 5

Else

intTmp = intTmp + 1

End If

I = I + 1

Loop

Calender = Calender & "</table>" & Vbcrlf

' Xoa bo cac mang

erase Months

erase DaysMonth

erase Days

End Function

%>

<HTML>

<HEAD>

<TITLE>Vi du ve Calendar</TITLE>

</HEAD>

<BODY>

<%=Calender(Date())%>

</BODY>

</HTML>

Định dạng
Số trang	5
Dung lượng	163,71 KB