'#### '## '## @see Unknown '## Public Sub SetUnknowns(ByVal A_strUnknowns) '############################################################ Unknowns = A_strUnknowns End Sub
'## @same phplib::template->set_root Public Sub set_unknowns(ByVal A_strUnknowns) Unknowns = A_strUnknowns End Sub
'#### '## Defines a filename for the initial value of a variable. '## '## It may be passed either a varname and a file name as two strings or '## a hash of strings with the key being the varname and the value '## being the file name. '## '## The new mappings are stored in the object m_oFile. '## The files are not loaded yet, but only when needed. '## '## '## usage: oTemplate.SetFile A_varname, A_filename '## or '## usage: oTemplate.SetFile array(A_varname1, A_filename1 _ '## ,A_varname2, A_filename2 _ '## ,.... .... , ,,,. ,,,, ) _ '## , "" '## @see SetFiles '## @param A_varname either a string containing a varname or a hash of varname/file name pairs. '## @param A_filename if varname is a string this is the filename otherwise filename is not required '## @access public '## Public Sub SetFile(ByVal A_varname, ByVal A_filename) '############################################################ Dim MM_strFiles, num If Not IsArray(A_varname) Then If Debug = 4 Then Response.Write "<p><b>SetFile:</b> (with scalar) varname = "& A_varname &", filename = "& A_filename &"</p>" & VbCrLf If A_filename = "" Then Call halt("SetFile: For varname " & A_filename & " filename is empty.")
精品推荐