If SystemScriptPath.Length > 0 Then
If Not Page.IsClientScriptBlockRegistered("solpartmenuscript") Then
Dim sHeader As String = ""
Try
sHeader = GetHeaderInformation()
Catch
'For Medium trust, assembly info cannot be obtained
End Try
Page.RegisterClientScriptBlock("solpartmenuscript", sHeader & "<SCRIPT SRC=""" & SystemScriptPath & "spmenu.js" & """></SCRIPT>")
End If
ElseIf Not Page.IsClientScriptBlockRegistered("solpartmenuscript") Then
Dim sHeader As String = ""
Try
sHeader = GetHeaderInformation()
Catch
'For Medium trust, assembly info cannot be obtained
End Try
Page.RegisterClientScriptBlock("solpartmenuscript", sHeader & "<SCRIPT language=""javascript"">" & m_objRes.GetString("spmenu") & "</SCRIPT>")
End If
2
MenuDataXMLFileName
3
OnPreRender
4
RenderContents
5
AddAttributesToRender
6
GetXMLDataIsland
return:
<xml id="SolpartMenuDI" src="MenuData.xml" onreadystatechange="if (this.readyState == 'complete') spm_initMyMenu(this, spm_getById('SolpartMenu1'))"/>
7
If Len(GetColor(Me.SelectedColor)) > 0 Then writer.AddAttribute("SelColor", GetColor(Me.SelectedColor))
8
在vs2005中调试javascript,很方便。很强大。
9
function
javascript高级教程.pdf
2.8.3javascript什么时候执行
10
SolpartMenu.prototype.GenerateMenuHTML = function (oXML)
http://blog.csdn.net/chenshizero/archive/2008/03/20/2200548.aspx
JavaScript:prototype属性使用说明
Private Function GenerateMenuHTML() As String
那么到底是调用类本身的GenerateMenuHTML还是调用增强之后的GenerateMenuHTML[断点]
11
SolpartMenu.prototype.GenerateSubMenus = function (oXML)
oDiv.innerHTML
这个函数返回了具体的子菜单的文字和样式
12
spm_initMyMenu:SolpartMenu.vb中是谁调用了这个函数
If BrowserHasXMLParser() Then//有xml解析器
If BrowserSupportsDataIslands() Then writer.Write(GetXMLDataIsland())//支持数据岛
(String)GetXMLDataIsland()="<xml id="SolpartMenuDI" src="navigation.xml" onreadystatechange="if (this.readyState == 'complete') spm_initMyMenu(this, spm_getById('navigation_spmenu'))"/>"
13
determines if browser is downlevel
If Not Page.IsClientScriptBlockRegistered("solpartmenuscript") Then
Dim sHeader As String = ""
Try
sHeader = GetHeaderInformation()
Catch
'For Medium trust, assembly info cannot be obtained
End Try
Page.RegisterClientScriptBlock("solpartmenuscript", sHeader & "<SCRIPT SRC=""" & SystemScriptPath & "spmenu.js" & """></SCRIPT>")
End If
ElseIf Not Page.IsClientScriptBlockRegistered("solpartmenuscript") Then
Dim sHeader As String = ""
Try
sHeader = GetHeaderInformation()
Catch
'For Medium trust, assembly info cannot be obtained
End Try
Page.RegisterClientScriptBlock("solpartmenuscript", sHeader & "<SCRIPT language=""javascript"">" & m_objRes.GetString("spmenu") & "</SCRIPT>")
End If
2
MenuDataXMLFileName
3
OnPreRender
4
RenderContents
5
AddAttributesToRender
6
GetXMLDataIsland
return:
<xml id="SolpartMenuDI" src="MenuData.xml" onreadystatechange="if (this.readyState == 'complete') spm_initMyMenu(this, spm_getById('SolpartMenu1'))"/>
7
If Len(GetColor(Me.SelectedColor)) > 0 Then writer.AddAttribute("SelColor", GetColor(Me.SelectedColor))
8
在vs2005中调试javascript,很方便。很强大。
9
function
javascript高级教程.pdf
2.8.3javascript什么时候执行
10
SolpartMenu.prototype.GenerateMenuHTML = function (oXML)
http://blog.csdn.net/chenshizero/archive/2008/03/20/2200548.aspx
JavaScript:prototype属性使用说明
Private Function GenerateMenuHTML() As String
那么到底是调用类本身的GenerateMenuHTML还是调用增强之后的GenerateMenuHTML[断点]
11
SolpartMenu.prototype.GenerateSubMenus = function (oXML)
oDiv.innerHTML
这个函数返回了具体的子菜单的文字和样式
12
spm_initMyMenu:SolpartMenu.vb中是谁调用了这个函数
If BrowserHasXMLParser() Then//有xml解析器
If BrowserSupportsDataIslands() Then writer.Write(GetXMLDataIsland())//支持数据岛
(String)GetXMLDataIsland()="<xml id="SolpartMenuDI" src="navigation.xml" onreadystatechange="if (this.readyState == 'complete') spm_initMyMenu(this, spm_getById('navigation_spmenu'))"/>"
13
determines if browser is downlevel