MsgBox函數在對話框中顯示消息,等待用戶單擊按鈕,並返回一個值指示用戶單擊的按鈕,語法格式如下:
MsgBox(prompt[,buttons][,title][,helpfile,context])
prompt:指定顯示在對話框中的字符串
buttons:指定顯示按鈕的數目和類型、使用的圖標樣式,默認值是0(參數見下表)
title:顯示在對話框標題欄中的字符串
helpfile:是一個字符串,用於標識為對話框提供上下文相關幫助的幫助文件
context:是一個數值,用於標識由幫助文件的作者指定給某個幫助主題的上下文編號
示例:
==================================================
<script language=”vbscript”>
Dim ans
ans=MsgBox(“您要訪問清風小荷塘嗎?”,vbYesNo+vbQuestion,”提示信息”)
If ans=vbYes Then
Window.Navigate “http://www.xxxx.net”
Else
Document.Write “歡迎光臨本站點!”
End If
</script>
==================================================
顯示效果如下:
InputBox函數在對話框中顯示提示,等等用戶輸入文本或單擊按鈕,並返回文本框的內容。
InputBox(prompt[,title][,default][,xpos][,ypos][,helpfile,context])
prompt:指定顯示在對話框中的字符串
title:顯示在對話框標題欄中的字符串
default:顯示在文本框中的默認字符串
xpos:是一個數值,指定對話框的左邊緣與屏幕左邊緣的距離,若省略,則對話框水平居中
ypos:是一個數值,指定對話框的上邊緣與屏幕上邊緣的距離,若省略,則對話框顯示在屏幕垂直方向距下邊緣約1/3處
helpfile:是一個字符串,用於標識為對話框提供上下文相關幫助的幫助文件
context:是一個數值,用於標識由幫助文件的作者指定給某個幫助主題的上下文編號
示例:
=================================================
<script language=”vbscript”>
Dim UserName
UserName=InputBox(“請輸入您的大名:”,”輸入姓名”,”張無忌”)
If UserName=”” Then
Document.Write “您沒有輸入姓名。”
Else
Document.Write “歡迎您,”& UserName &”朋友。”
End If
</script>
=================================================
效果見下圖: