If m_oVarKeys.Exists(A_varname) Then m_oVarKeys.Remove A_varname End If If m_oVarVals.Exists(A_varname) Then m_oVarVals.Remove A_varname End If End If Else num = UBound(A_varname) For i=0 To num If A_varname(i) <> "" Then If Debug = 1 Then Response.Write "<b>unSetVar:</b> (with array) <b>" & A_varname & "</b><br>" & VbCrLf If m_oVarKeys.Exists(A_varname(i)) Then m_oVarKeys.Remove A_varname(i) End If If m_oVarVals.Exists(A_varname(i)) Then m_oVarVals.Remove A_varname(i) End If End If Next End If End Sub
'#### '## '## @same phplib::template->unset_var '## Public Sub unset_var(ByVal A_varname) Call unSetVar(A_varname) End Sub
'#### '## This function returns a hash of unresolved variable names in A_varname, keyed '## by their names. '## '## Returns: a hash of varname/varname pairs or false on error. '## '## usage: GetUndefined(string A_varname) '## '## @param A_varname a string containing the name the name of the variable to scan for unresolved variables '## @access public '## @return array '## Public Function GetUndefined(ByVal A_varname) '############################################################ Dim MM_String, MM_result If Debug = 4 Then Response.Write "<p><b>GetUndefined:</b> varname = " & A_varname & "</p>" & VbCrLf If Not loadfile(A_varname) Then
精品推荐