treeView 刷新的问题!!! 急哭了!!!

Question

写公用函数RefurbishFrame，调用 RefurbishFrame（“leftFrame”）
    '刷新框架targetFrame
    Public Sub RefurbishFrame(ByVal targetFrame As String)
        Dim strLocation As String
        strLocation = "parent.frames('" & targetFrame & "').document.location"
        WritJS(strLocation & "=" & strLocation & ";")
    End Sub  
    Public Sub WritJS(ByVal strJs As String)
        page.RegisterClientScriptBlock("js", "<script>" & strJs & "</script>")
    End Sub