showModalDialog问题

If (Not IsClientScriptBlockRegistered("clientScript")) Then
            Dim strScript As String = "<script>" + vbCrLf
            strScript += "function OpenWin(){" + vbCrLf
            strScript += "var str=window.showModalDialog('student_search.aspx',document.Form1.TextBox1.value)" + vbCrLf
            strScript += "if(str!=null)  document.Form1.TextBox1.value=str" + vbCrLf
            strScript += "}" + vbCrLf
            strScript += "</script>" + vbCrLf
            RegisterClientScriptBlock("clientScript", strScript)
        End If
        Button1.Attributes.Add("onclick", "OpenWin()")
用上面的代码可以打开页面，此页面包括一个文本框和查询按钮　点击查询按钮可以查询出于输入文本框的值相关的数据　　但是现在的问题是我一点击查询它就弹出另一页面并在另一页面显示查询结果
我不想让它弹出请问这是为啥