詢問視窗 by VBScript
sub chk() 
sub
dim yesno yesno=Msgbox("XXXXXXXXXXXXXXXX",vbYesNo,"TITLE") Select case yesno case 6 //點選no則, case 7 //點選yes則, window.location ="XXX.asp" end select 
end sub
2008-04-23
Query Window by VBScript
- 2734
- 0
- Code▲JavaScript
sub chk() dim yesno yesno=Msgbox("XXXXXXXXXXXXXXXX",vbYesNo,"TITLE") Select case yesno case 6 //點選no則, case 7 //點選yes則, window.location ="XXX.asp" end select end sub 