一个仿phplib的模板类

用php用惯了，用phplib用惯了，没有他觉得很不舒服
上网查找没有人写，自己写了一个，asp水平不高，希望
能有高手指点修改。
<%
' ====================================
' Name:        Template Class
' Purpose:    Parse and output HTML page
' Date:        10.2002
' Author:    pig
' Email:    [email protected]
' Phone:    13910320759
' ====================================
class Template
    dim gs_root
    dim gs_handle()
    dim gs_file()
    dim gs_keys()
    dim gs_keyVars()
    dim gs_vars()
    '构造函数
    Private Sub Template_Initialize()
        call of_setRoot(".")
        'call of_redimVar()
    End Sub
    
    function of_redimVar()
        redim gs_handle(0)
        redim gs_file(0)
        redim gs_keys(0)
        redim gs_keyVars(0)
        redim gs_vars(0)
    end function
    '设置模板存放路径
    function of_setRoot(byVal ps_root)
        if ps_root <> "" then
       gs_root = ps_root
        end if
    end function