急急急！！！高分请教！在线等！---- Click事件弹出窗口

<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.sqlclient" %><SCRIPT LANGUAGE="VB" runat="server"> Sub ok_Click(Sender As Object,E As EventArgs)　　'window.open ('a.html')//此为错误代码，这里写打开窗口的代码！其它不能改！end sub</SCRIPT> <html>
<head>
</head>
<body>
<form runat="server"><asp:button id="ok" text="新窗口" onClick="ok_Click" runat="server"/></form>
</body>
</html>错误提示是：
Compiler Error Message: BC30451: Name 'window' is not declared.

解决方案 »

免费领取超大流量手机卡，每月29元包185G流量+100分钟通话, 中国电信官方发货

window.open是JAVASCRIPT的打开方式，VB的不同的啊
lz没搞清楚什么是vb.net，什么是脚本
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.sqlclient" %><SCRIPT LANGUAGE="JavaScript"> function ok_Click()
{
　　window.open ('a.html');
}</SCRIPT> <html>
<head>
</head>
<body>
<form runat="server"><asp:button id="ok" text="新窗口"  onClick="ok_Click()" runat="server"/></form>
</body>
</html>
<SCRIPT LANGUAGE="VB" runat="server"> Sub ok_Click(Sender As Object,E As EventArgs)　　'window.open ('a.html')//此为错误代码，这里写打开窗口的代码！其它不能改！    Response.Write("<script>window.open('a.html');</script>");
end sub</SCRIPT>
估计楼主是初学，祝愿有一个正确的开始~提供一个简单例子，3种方法：
Web9352533.aspx文件：
<%@ Page Language="vb" AutoEventWireup="false" Codebehind="Web9352533.aspx.vb" Inherits="vb_bs_2006.Web9352533"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<title>Web9352533</title>
<meta name="GENERATOR" content="Microsoft Visual Studio .NET 7.1">
<meta name="CODE_LANGUAGE" content="Visual Basic .NET 7.1">
<meta name="vs_defaultClientScript" content="JavaScript">
<meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5">
<script language="javascript">
function openWin()
{
   window.open("a.html");
}
</script>
</HEAD>
<body MS_POSITIONING="GridLayout">
<form id="Form1" method="post" runat="server">
<INPUT style="Z-INDEX: 103; LEFT: 24px; POSITION: absolute; TOP: 16px" type="button" value="新窗口AAA"
onclick="openWin();">
<asp:Button id="Button1" style="Z-INDEX: 102; LEFT: 24px; POSITION: absolute; TOP: 80px" runat="server"
Text="新窗口BBB"></asp:Button>
<asp:Button id="Button2" style="Z-INDEX: 101; LEFT: 24px; POSITION: absolute; TOP: 144px" runat="server"
Text="新窗口CCC"></asp:Button>
</form>
</body>
</HTML>-----------------------------------------------------------------------------
Web9352533.aspx.vb文件：Public Class Web9352533
    Inherits System.Web.UI.Page#Region " Web 窗体设计器生成的代码 "    '该调用是 Web 窗体设计器所必需的。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()    End Sub
    Protected WithEvents Button1 As System.Web.UI.WebControls.Button
    Protected WithEvents Button2 As System.Web.UI.WebControls.Button    '注意: 以下占位符声明是 Web 窗体设计器所必需的。
    '不要删除或移动它。
    Private designerPlaceholderDeclaration As System.Object    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
        '不要使用代码编辑器修改它。
        InitializeComponent()
    End Sub#End Region    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此处放置初始化页的用户代码
        Me.Button1.Attributes.Add("onclick", "window.open('a.html');")
    End Sub    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Response.Write("<scrpt>window.open('a.html');</script>");
    End Sub
End Class
我的意思是要用VBSCRIPT，而不是用JAVASCRIPT!
所以我上面写明只能改我OK_Click这里面的代码！
Response.Write("<script>window.open('a.html');</script>");
用上面这个还是不行啊！
Response.Write("<script>window.open('a.html');</script>");直接用着句替换你原来那句就行了！如果再错多半都是因为你其他地方错了。
Response.Write("<script>window.open('a.html');</script>");
用上面这个还是不行啊！错误提示是：
Compiler Error Message: BC30648: String constants must end with a double quote.
vbscript不是所有的浏览器都支持，用javascript有什么不好呢。
<SCRIPT LANGUAGE="VB" runat="server"> Sub ok_Click(Sender As Object,E As EventArgs)
page.registerclientscriptblock("msg","<script>window.open('')</" & "script>")
end sub</SCRIPT>
哦，可以了，谢谢哦！
我其它都用vbscript的，所以要改就都要改了！我不会呀！
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.sqlclient" %><html>
<head>
<script language="vbscript">sub ok_Click()　　window.open ("a.html")end sub</SCRIPT>
</head>
<body>
<form runat="server"><INPUT  type="button" id="ok" value="新窗口"  onClick="ok_Click" ></form>
</body>
</html>