没有
vbscript
<script language="VBS">
<!--
function confirmA(str)
flag=msgbox (str,VbYesNoCancel)
select case flag
case VbYes
confirmA="Yes"
case VbNo
confirmA="No"
case VbCancel
confirmA="Cancel"
end select
end function
//-->
</script>