7. Ngôn ngữ VBScript phắa máy chủ web server
7.4 Các câu lệnh điều khiển trong VBScript
Điều khiển IF Cách viết 1 if Dieu_kien then Cau lenh 1 end if Cách viết 2 if Dieu_kien then Cau lenh 1 else Cau lenh 2 end if Cách viết 3 if Dieu_kien then Cau lenh 1 elseif Dieu_kien1 then
Cau lenh 2 else
Cau lenh 3 end if
Câu lệnh IF sẽ thực hiện khi Điều kiện đúng (3 cách viết), ngoài ra sẽ thực hiện câu lệnh trong else (cách viết 2, 3). Riêng cách viết 3 còn thêm kiểm tra điều kiện ở elseif (điều kiện 1) do đó lệnh else thực hiện khi điều kiện và điều kiện 1 đều sai.
Vắ dụ : So sánh 2 số a, b và đ−a kết quả ra màn hình
<%
if (a > b) then
response.write "a is bigger than b" elseif (a = b) then
response.write "a is equal to b" else
response.write " a is smaller than b" }
%>
Điều khiển FOR...NEXT
Sử dụng trong vòng lặp biết tr−ớc số lần lặp lại Cách viết
For counter = start To end [Step step] Cau lenh 1
[Exit For] Cau lenh 2 Next
start là giá trị bắt đầu vòng For end là giá trị kết thúc vòng For
Step là b−ớc nhảy, ngầm định b−ớc nhảy là 1 thì không cần viết
exit for : sử dụng trong vòng For nếu muốn nhảy ra khỏi vòng for khi counter ch−a đặt đến giá trị end
Vắ dụ :
In ra màn hình các số thứ tự từ 1 đến 10, trong vòng lặp For từ 1 đến 20 b−ớc nhảy là 1, sau con số là dòng chữ mô tả số t−ơng ứng, giả sử số 1 thì bên cạnh có dòng chữ : "Đây là chữ số 1". Mỗi chữ số ở trên một hàng
<% Dim i for i = 1 to 20 step 1 if i >= 11 then exit for end if
response.write "<p>" & i & "- Day la chu so " & i & "</p>" next
%>
Điều khiển DO ... LOOP
Cách viết 1: Do While Dieu_kien Cau lenh 1 [Exit Do] Cau lenh 2 Loop Cách viết 2: Do Until Dieu_kien Cau lenh 1 [Exit Do] Cau lenh 2 Loop Vắ dụ : Tắnh tổng 100 số hạng bắt đầu từ 1 đến 100 Dim i Dim tong100 tong100=0 Do While i <= 100 tong100 = tong100 + i i = i + 1 Loop
response.write "<p> Tong cua cac so tu 1 den 100 la " & tong100 & "</p>" Điều khiển SELECT ... CASE
Dùng thay thế cho nhiều lệnh IF liên tiếp nhau. Cách viết :
Select Case Gia_tri_Dieu_kien Case Gia_tri_1 Cau lenh 1 Case Gia_tri_2 Caulenh 2 ... Case Else Cau lenh End Select Vắ dụ:
So sánh 1 chữ số cho tr−ớc với các số từ 1 đến 5 nếu số đó bằng với số hạng nào thì in ra kết quả là "Đây là chữ số" t−ơng ứng. Ngoài ra nếu không thuộc khoảng từ 1 đến 5thì in ra "Số đw cho nằm ngoài khoảng từ 1 đến 5"
Dim n n=4
select case n case 1
response.write "<p> Day la chu so 1</p>" case 2
response.write "<p> Day la chu so 2</p>" case 3
response.write "<p> Day la chu so 3</p>" case 4
response.write "<p> Day la chu so 4</p>" case 5
response.write "<p> Day la chu so 5</p>" case else
response.write "<p> So da cho nam ngoai khoang tu 1 den 5</p>" end select