删除时提示是否删除

< input type = " button "  value = " 删除 "  id = " btndel "  name = " btndel " >


< script language = " vbscript " >

sub btndel_onclick
    msg = " 确定要删除所有带有标记的问题吗? "
     if  msgbox(msg, 1 , " 友情提示！ " ) = 1  then      '' msgbox的值1为确定，2为取消
        form1.action  = " problemdelete.asp "
        form1.submit
    end  if
end sub
</ script >