<Script Language = "VBScript">
Sub YesOrNo()
Dim yesno
yesno=MsgBox("确实要删除吗?",vbYesNo,"删除提示")
Select Case yesno
Case 6
Window.navigate("del.asp")
Case 7
history.back()
end Select
End Sub
</script>
<input type="button" name="b1" value="删除" onClick="YesOrNo()">