弹出WIN提示窗口问题（没分了，有分再加）

Question

'在此处放置初始化页的用户代码        Dim mystr = Request("id")
        If mystr <> "" And Session("admin") <> "" Then            Dim myjs As String            myjs = "<script> if (confirm('是否真的要删除ID=" & mystr
            myjs += " 的记录 '))</script>"
            Response.Write(myjs)  '问题在这段------为什么点击“取消”代码也往下面执行。            '创建数据连接
            Dim objConn As New OleDbConnection
            objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                                       "Data Source=" & Server.MapPath("../" & ConfigurationSettings.AppSettings("数据库"))
            objConn.Open()            '使用 Command对象执行 SQL 命令
            Dim strSQL As String = "Delete From 用户注册表 Where 编号=" & mystr
            Dim objCmd As New OleDbCommand(strSQL, objConn)
            objCmd.ExecuteNonQuery()            '关闭数据连接
            objConn.Close()

Answer 1

Dim myjs As String            myjs = "<script> if (confirm('是否真的要删除ID=" & mystr
            myjs += " 的记录 '))</script>"
            Response.Write(myjs)  '问题在这段------为什么点击“取消”代码也往下面执行。
------------------------------
能不能点“取消”后什么也不执行，也就是不让代码往下走。点“确定‘才执行下面的程序。

Answer 2

if (confirm('是否真的要删除ID=" & mystr myjs += " 的记录 '））
{return true}
else
{return false}