Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim strScript As String = ""
strScript &= "<script language=javascript>"
strScript &= "window.open('http://www.google.co.jp'"
strScript &= ",'_blank','Height=500,Width=560,location=no,status=no,scrollbars=yes,resizable=yes');"
strScript &= "</script>"
Response.Write(strScript)
End Sub
|