请教,窗口设计绑定语句分析?
组件代码：
Imports System.Web
Imports System.Data
Imports System.Collections
Imports Microsoft.VisualBasic
Imports System.Data.SQLClient
Namespace ASPEnterpriseManager
Public Class XPInterface
Sub DrawTitleBar (Title as String, location as String)
Dim _Context as HTTPContext = HTTPContext.Current
With _Context.Response
.write (" <table cellpadding=""0"" cellspacing=""0"" width=""100%"">")
.write (" <tr><td>")
.write (" <img src=""images/Windows/TitleBar_Left.gif""></td>")
.write (" <td background=""images/windows/TitleBar_Background.gif"">")
.write (" <img src=""images/windows/icon_ASPEntMan.gif""></td>")
.write (" <td background=""images/windows/TitleBar_Background.gif"" width=""100%"">")
.write (" <font style=""font-family: Trebuchet MS, Arial; color: #FFFFFF; font-size: 10pt; font-weight: bold; text-shadow: #333333 1px 1px;"">")
.write (" " & Title)
.write (" </font>")
.write (" </td><td background=""images/windows/TitleBar_Background.gif"" valign=""bottom"">")
.write (" <A href=""http://sourceforge.net/projects/asp-ent-man/"" target=""_new""><IMG src=""http://sourceforge.net/sflogo.php?group_id=63363&type=1"" width=""50"" height=""20"" border=""0"" alt=""SourceForge Logo""></A>")
.write (" </td><td background=""images/windows/TitleBar_Background.gif"">")
.write (" ")
.write (" </td><td background=""images/windows/TitleBar_Background.gif"">")
.write (" <a href=""" & location & """ ONMOUSEOUT=""document['CloseImage'].src = 'images/windows/TitleBar_CloseButton.gif';"" ONMOUSEOVER=""document['CloseImage'].src = 'images/windows/TitleBar_CloseButtonOver.gif';"">")
.write (" <img src=""images/windows/TitleBar_CloseButton.gif"" name=""CloseImage"" border=""0""></a></td>")
.write (" <td>")
.write (" <img src=""images/Windows/TitleBar_Right.gif""></td>")
.write (" </tr>")
.write (" </table>")
End With
End Sub
Sub DrawWindowHeader (Title as String, location as String, Width as String)
Dim _Context as HTTPContext = HTTPContext.Current
With _Context.Response
.write ("<table width=""" & Width & """ cellpadding=""0"" cellspacing=""0"">")
.write ("<tr><td colspan=""3"">")
DrawTitleBar (Title, Location)
.write ("</td></tr>")
.write ("<tr><td background=""images/Windows/border_Left.gif"">")
.write ("</td><td width=""100%"" class=""WindowBackground"">")
End With
End Sub
Sub DrawWindowFooter ()
Dim _Context as HTTPContext = HTTPContext.Current
With _Context.Response
.write ("</td><td background=""images/Windows/border_right.gif"">")
.write ("</td></tr>")
.write ("<tr><td>")
.write (" <img src=""images/windows/border_BottomLeft.gif""></td>")
.write ("<td background=""images/Windows/border_Bottom.gif"">")
.write ("</td><td>")
.write (" <img src=""images/windows/border_BottomRight.gif""></td>")
.write ("</tr>")
.write ("</table>")
End With
End Sub
Sub SyncFrames ()
Dim _Context as HTTPContext = HTTPContext.Current
With _Context.Response
.write (" <script language=""javascript"">")
.write (" parent.frames('LeftFrame').location.href=('Databases.aspx');")
.write (" parent.frames('MainFrame').location.href=('setDatabase.aspx');")
.write (" </script>")
.end
End With
End Sub
Sub SyncLeftFrame ()
Dim _Context as HTTPContext = HTTPContext.Current
With _Context.Response
.write (" <script language=""javascript"">")
.write (" parent.frames('LeftFrame').location.href=('Databases.aspx');")
.write (" </script>")
End With
End Sub
End Class
End NameSpace
页面代码：
<!--#include file="includes/StyleSheet.aspx"-->
<html>
<body topmargin=0 leftmargin=0 marginheight=0 marginwidth=0>
<table cellpadding="0" cellspacing="0">
<tr><td>
<% AppInterface.DrawWindowHeader ("ASP.Net Enterprise Manager", "javascript:parent.window.close();") %>
</td></tr>
</table>
</table>
</body>
</html>
出错信息：
编译错误
说明: 在编译向该请求提供服务所需资源的过程中出现错误。请检查下列特定错误详细信息并适当地修改源代码。
编译器错误信息: CS1002: 应输入 ;
源错误:
行 6： <tr><td>
行 7：
行 8： <% AppInterface.DrawWindowHeader ("ASP.Net Enterprise Manager", "javascript:parent.window.close()") %>
行 9：
行 10： </td></tr>
源文件: D:\steelmis\titlebar.aspx 行: 8
[5337 byte] By [zhuperry] at [2008-2-12] 