我想做一个先按确定后,才删除的按钮,我是这样写：

1、<a title="删除!注意!注意!!" href="delfr.asp?ID=<%=ID%>">删除</a>

2、delfr.asp其中主要代码为：

<%@ Language=VBScript %>
<!--#include file="opendb.asp"-->
<script language=vbscript>
Dim Msg, Style, Title,Response
Msg = "您确认要删除该主题！"
Style = vbYesNo + vbExclamation + vbDefaultButton2
Title = "删除警告"
Response = MsgBox(Msg, Style, Title)
If Response = vbNo Then
window.location="user_4.asp"
Else
window.history(0)
End If
</script>
<%
ID=request.QueryString("id")
strSQL="DELETE FROM friend WHERE ID =" & ID
my_conn.Execute StrSql
response.redirect("user_1.asp")
%>
<!--#include file="closedb.asp"-->


请问朋友们：为什么当执行到delfr.asp，不出现“删除警告”对话框就直接执行整个网面的内容呢？