5.物件應用

在HTML文件中,要讀取表單中的某一個物件的某個屬性時,整個敘述如下所示:

document.表單名稱.物件名稱.屬性 或 window.document.表單名稱.物件名稱.屬性

window是瀏覽器視窗的統稱,它是最上層的唯一物件,所有瀏覽器上的物件都是window物件的一部份,所以在撰寫程式時,window這個關鍵字可以省略。

document是window底下的一個子物件,這個物件包含了所在瀏覽器上看到的資訊,如:表單、圖形、超連結等。

表單名稱也就是寫在<form>標籤中的name,例:<form name="age">。

物件名稱則是其中的物件名稱,例如:按鈕、下拉式選單。

屬性則是該物件的相關屬性,例如:名稱、資料等。

範例:設計一個輸入年齡的文字方塊及按鈕,t判斷年齡是否小於0或大於200。
說明:此範例中用到document.age.text1.value表示輸入的年齡,其中document表示此網頁,age表示此網頁的名為age的表單,text1表示此age表單中的名為text1文字方塊,而value表示此文字方塊的值。
<html><head>
<script language="vbscript">
sub submit_onclick
     if document.age.text1.value<1 or document.age.text1.value>200 then
        msgbox "請輸入1~200之間的數值"
     else
        msgbox "感謝您輸入"
     end if
end sub</script>

</head><body>
<h3>輸入年齡</h3>
<form name="age">
<input name="text1" type="text">
<input name="submit" type="button" value="確認">
</form></body></html>
輸入年齡:

 

範例:寫一抽籤程式,輸入範圍最大值,按確認會產生介於1至最大數值的亂數。
說明:此範例中用到document.rndnum.text1.value表示輸入的數值,其中document表示此網頁,rndnum表示此網頁的名為rndnum的表單,text1表示此rndnum表單中名為text1的文字方塊,而value表示此文字方塊的值。
<html><head>
<script language="vbscript">
sub submit_onclick
     if document.rndnum.text1.value<1  then
        msgbox "請輸入大於0的數值"
     else
        randomize timer
        msgbox int(rnd*document.rndnum.text1.value)+1
     end if
end sub</script>

</head><body>
<h3>輸入亂數最大值</h3>
<form name="rndnum">
<input name="text1" type="text">
<input name="submit" type="button" value="確認">
</form></body></html>
輸入亂數最大值:

 

範例:顯示此網頁最後修改日期。
說明:此範例中用到document.lastmodified表示此網頁文件的最後修改日期。
<html>
<body>
<h3>顯示修改日期的網頁</h3>
<form><input name="button1" type ="button" value="顯示修改日期" language=vbscript onclick="msgbox document.lastmodified"></form>
</body>
</html>

 

範例:設計一個關閉視窗的按鈕來關閉本網頁視窗。
說明:此範例中用到window.close,表示將此網頁文件關閉。
<html>
<body>
<h3>關閉視窗的網頁</h3>
<form><input name="button1" type ="button" value="關閉視窗" language=vbscript onclick="window.close"></form>
</body>
</html>

 

範例:輸入一數值,按開始鈕即會每隔0.1秒產生介於1至此數值之亂數,按停止鈕才停止顯示。
說明:本範例共有兩個function,一個是runrnd()用以每隔0.1秒產生一個亂數放在文字方塊內,另一個是endrnd()用以結束顯示亂數的功能。
<html>
<head>
<script language="vbscript">
dim id
function runrnd()
     document.rndnum.text2.value=int(rnd*document.rndnum.text1.value)+1
     id=settimeout("runrnd()",100)

end function
function endrnd()
     cleartimeout id
end function
</script>
</head>
<body>
<form name="rndnum">
亂數最大值:<input name="text1" type="text" value=5 size=5>
<input name="submit1" type="button" value="開始" language=vbscript onclick="
runrnd()">
<input name="submit2" type="button" value="停止" language=vbscript onclick="
endrnd()"><br>
產生亂數值:
<input name="text2" type="text" size=5>
</form>
</body>
</html>
亂數最大值:
產生亂數值: