ASP中MsgBox函數和InputBox函數的使用

 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>

=================================================

效果見下圖：