set ws = createobject("wscript.shell")
dim x1
rem 彈出輸入框 inputbox(text, title, default_value)
x1 = inputbox("請輸入乙個數字:1/2/3/4/5/16/32/48/64", "標題", 0)
rem 彈出訊息框 msgbox(text, type, title)
select case msgbox("msgbox內容", cint(x1), "msgbox標題")
case 1
msgbox("選擇了[確定]")
case 2
msgbox("選擇了[取消]")
case 3
msgbox("選擇了[放棄]")
case 4
msgbox("選擇了[重試]")
case 5
msgbox("選擇了[忽略]")
case 6
msgbox("選擇了[是]")
case 7
msgbox("選擇了[否]")
case else
msgbox("選擇超時")
end select
rem 彈出輸入框 inputbox(text, title, default_value)
x1 = inputbox("請再輸入乙個數字:1/2/3/4/5/16/32/48/64", "標題", 0)
rem 彈出訊息框(帶等待時間) popup(text, waittime, title, type)
select case ws.popup("popup內容", 3, "popup標題", cint(x1))
case 1
msgbox("選擇了[確定]")
case 2
msgbox("選擇了[取消]")
case 3
msgbox("選擇了[放棄]")
case 4
msgbox("選擇了[重試]")
case 5
msgbox("選擇了[忽略]")
case 6
msgbox("選擇了[是]")
case 7
msgbox("選擇了[否]")
case else
msgbox("選擇超時")
end select
set ws = nothing
rem --------------type--------------
rem 0 顯示[確定]
rem 1 顯示[確定]+[取消]
rem 2 顯示[中止]+[重試]+[忽略]
rem 3 顯示[是]+[否]+[取消]
rem 4 顯示[是]+[否]
rem 5 顯示[重試]+[取消]
rem 16 顯示[確定]+
rem 32 顯示[確定]+
rem 48 顯示[確定]+
rem 64 顯示[確定]+
rem --------------type--------------
ajax彈出視窗提示與彈出視窗
如果用了updatepanel 彈出的寫法 scriptmanager.registerstartupscript this.updatepanel1,page.gettype alert 彈出提示 true scriptmanager.registerstartupscript this.upda...
彈出網頁視窗
1.彈出乙個全屏視窗 onclick window.open url,example01 fullscreen 2.彈出乙個被f11化後的視窗 nclick window.open url,example02 channelmode 3.彈出乙個帶有收藏鏈結工具欄的視窗 nclick window....
彈出視窗頁面
提用的頁面 要開啟的url 要開啟頁面的名稱 視窗寬度 視窗高度 視窗左側位置 視窗右側位置 是否右中 yes no 是否顯示狀態列 yes no true 不關閉彈出視窗，將不能操作父視窗 false 可以操作父視窗 public static void opennewwinodw page pa...