询问窗口 by VBScript
sub chk() 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
原文:大专栏 Query Window by VBScript