询问窗口 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
原文地址:https://www.cnblogs.com/chinatrump/p/11458374.html
时间: 2024-12-10 02:12:34