1. Nhúng câu lệnh VBSCRIPT vào trang web
Sử dụng thẻ Language = VBScript>
Vớ dụ 1:
language="VBScript">
MsgBox "Xin chào cỏc bạn lớp T08A !"
Vớ dụ 2:
language="VBScript">
Sub Chao
MsgBox "Xin chào cỏc bạn lớp T08A!"
End Sub
'/// Gọi thủ tục Chao. Viết là Call Chao hoặc Chao đều được
Call Chao
Vớ dụ 3:
language="VBScript">
Function Tong(a, b)
Tong = a + b
End Function
Msgbox "Tổng của 2 + 3 = " & Tong(2,3)
*** Chú ý: Trong cặp thẻ Chỉ có thể chứa các câu lệnh VBScript, không được chứa các thẻ HTML.
2. Gắn kết mã lệnh VBSCRIPT lên các sự kiện
Mỗi phần tử trên form có thể có các sự kiện như OnClick, OnChange, OnKeyUp …
Khi đó ta có thể yêu cầu trỡnh duyệt thực thi cỏc cõu lệnh hoặc thủ tục VBScript khi cỏc sự kiện này xảy ra.
Cỳ phỏp:
<…. Tờn_Sự_Kiện = "Cõu lệnh VBScript" ….>
- Cõu lệnh có thể là một lệnh đơn hoặc một lời gọi Hàm/ thủ tục
- Thông thường, ta nên gọi một thủ tục hoặc hàm
Vớ dụ 1: Đưa ra lời chào khi người dùng click vào nút nhấn:
type = Button Value = "Click here..." OnClick = 'MsgBox "Xin chào lớp T08A !" '>
Vớ dụ 2: Thực hiện đưa ra lời chào khi người dùng click bằng việc gọi thủ tục
language="VBScript">
Sub Chao
MsgBox "Xin chào cỏc bạn lớp T08A!"
End Sub
type = Button Value = "Click here..." OnClick = "Chao"> HOẶC
type = Button Value = "Click here..." OnClick = "Call Chao">
- Đọc và ghi dữ liệu trong các phần tử HTML
Nhỡn chung, để đọc hay thay đổi nội dung của một phần tử HTML, thông thường ta đọc hay thay đổi thuộc tính Value của nó. Cú pháp là :
Đọc : .Value
Ghi (Thay đổi): .Value [= Giỏ trị mới]
Chú ý: Để đọc / ghi giá trị nằm trong phần tử HTML thỡ bắt buộc khi tạo phần tử đó cần có thuộc tính NAME
3. Ghi và đọc dữ liệu trong TextBox
type = Text name = “HoVaTen” Value = “Nguyễn Văn A”>
language="VBScript">
HoVaten.Value = "Trần Thị B" '// Ghi
Msgbox "Giỏ trị trong hộp HoVaTen bõy giờ là : " &HoVaTen.Value '// Đọc
- Đọc dữ liệu trong Listbox
language="VBScript">
'/// thủ tục này được gọi khi người dùng Click chọn ListBox
Sub DocGiaTriListBox
Dim MucChon
MucChon = Mon.Value
Msgbox "Bạn đó chọn mục : " & MucChon
End Sub
type="button" value="Đọc giá trị trong Listbox" onClick="DocGiaTriListBox">
4. Đọc dữ liệu trong ComboBox: Giống như Listbox
5. Đọc / Ghi giá trị trong CheckBox
language=vbscript>
Sub HT
IF vb.checked=true Then Msgbox "VB đó được chọn"
IF asp.checked=true Then msgbox "ASP đó được chọn"
End Sub
type=button value ="Click đây !" onclick="HT" />
VB : name="VB" type=checkbox checked />
ASP name ="ASP" type=checkbox />
