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


< script?language = " vbscript " >

sub?btndel_onclick
????msg = " 確定要?jiǎng)h除所有帶有標(biāo)記的問(wèn)題嗎? "
???? if ?msgbox(msg, 1 , " 友情提示！ " ) = 1 ?then????? '' msgbox的值1為確定，2為取消
????????form1.action? = " problemdelete.asp "
????????form1.submit
????end? if
end?sub
</ script >