Query Window by VBScript

询问窗口 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