filesys.class.asp

一个很好的asp cms管理系统

        Dim ex,ico
        ex = LCase(GetFileEx(f_name))
        Select Case ex
            Case "doc"
                ico="f_Doc.gif"
            Case "txt"
                ico="f_txt.gif"
            Case "mp3"
                ico="f_mp3.gif"
            Case "gif"
                ico="f_pic.gif"
            Case "bmp"
                ico="f_pic.gif"
            Case "jpg"
                ico="f_pic.gif"
            Case "ico"
                ico="f_pic.gif"
            Case "rar"
                ico="f_rar.gif"
            Case "zip"
                ico="f_rar.gif"
            Case "htm"
                ico="f_htm.gif"
            Case "html"
                ico="f_htm.gif"
            Case "shtml"
                ico="f_htm.gif"
            Case "asp"
                ico="f_asp.gif"
            Case "xml"
                ico="f_asp.gif"
            Case "jsp"
                ico="f_asp.gif"
            Case "php"
                ico="f_asp.gif"
            Case "css"
                ico="f_asp.gif"
            Case "js"
                ico="f_asp.gif"
            Case "asf"
                ico="f_media.gif"
            Case "wmv"
                ico="f_media.gif"
            Case "mdb"
                ico="f_mdb.gif"
            Case "exe"
                ico="f_exe.gif"
            Case "com"
                ico="f_exe.gif"
            Case "bat"
                ico="f_exe.gif"
            Case "swf"
                ico="f_swf.gif"
            Case "fla"
                ico="f_swf.gif"
            Case "rm"
                ico="f_rm.gif"
            Case "dll"
                ico="f_dll.gif"
            Case "sys"
                ico="f_dll.gif"
            Case "ocx"
                ico="f_ocx.gif"
            Case "ini"
                ico="f_ini.gif"
            Case "dbx"
                ico="f_dbx.gif"
            Case "cat"
                ico="f_cat.gif"
            Case "pdf"
                ico="f_pdf.gif"
            Case "hlp"
                ico="f_hlp.gif"
            Case "htt"
                ico="f_htt.gif"
            Case "png"
                ico="f_png.gif"
            Case "chm"
                ico="f_chm.gif"
            Case "nfo"
                ico="f_nfo.gif"
            Case "reg"
                ico="f_reg.gif"
            Case "key"
                ico="f_reg.gif"
            Case "cpp"
                ico="f_cpp.gif"
            Case "h"
                ico="f_h.gif"
            Case "frm"
                ico="f_frm.gif"
            Case "bas"
                ico="f_bas.gif"
            Case "ctl"
                ico="f_ctl.gif"
            Case "vbg"
                ico="f_vbg.gif"
            Case "vbp"
                ico="f_vbp.gif"
            Case else:
                ico="UnKnow.gif"
        End Select
        FileIco=ico

    End Function

    '##############################################################################################
    '                                           属性部分
    '##############################################################################################

    Public Property Get CurrPath()
        CurrPath = mCurrPath
    End Property

    Public Property Let CurrPath(byval val)
        mCurrPath = FormatPath(val)
    End Property

   '当前根所在目录索引号
    Public Property Get CurrIndex()
        CurrIndex = mCurrIndex
    End Property

    Public Property Let CurrIndex(byval val)

        If Not IsNumeric(val) Or val = "" Then
            mCurrIndex = -1
        Else
            mCurrIndex = CInt(val)
        End If

    End Property

    Public Property Get CurrRoot()
        CurrRoot = mCurrRoot
    End Property

    Private Property Let CurrRoot(byval val)
        mCurrRoot = Replace(val, "\", "/")
        If Right(mCurrRoot, 1) <> "/" Then
            mCurrRoot = mCurrRoot & "/"
        End If
    End Property

    Public Property Get CurrUrl()
        CurrUrl = mCurrUrl
    End Property

    Private Property Let CurrUrl(byval val)
        mCurrUrl = val
        If Right(mCurrUrl, 1) <> "/" Then
            mCurrUrl = mCurrUrl & "/"
        End If
    End Property

    Public Property Get CurrTitle()
        CurrTitle = mCurrUrl
    End Property

    Public Property Let CurrTitle(byval val)
        mCurrTitle = val
    End Property

    Public Property Get VisuPath()
        VisuPath = mVisuPath
    End Property

    Private Property Let VisuPath(byval val)
        mVisuPath = val
    End Property

    Public Property Get RealPath()
        RealPath = mRealPath
    End Property

    Private Property Let RealPath(byval val)
        mRealPath = val
    End Property

    Public Property Get VisitUrl()
        VisitUrl = mVisitUrl
    End Property

    Private Property Let VisitUrl(byval val)
        mVisitUrl = val
    End Property

    Public Property Get FolderItems()
        Set FolderItems = mFolderItems
    End Property

    Private Property Let FolderItems(byval val)
        Set mFolderItems = val
    End Property
    
    Public Property Get CurrFolderItem()
        Set CurrFolderItem = mCurrFolderItem
    End Property

    Private Property Let CurrFolderItem(byval val)
        Set mCurrFolderItem = val
    End Property

    Public Property Get EnableUpload()
        EnableUpload = mEnableUpload
    End Property

    Private Property Let EnableUpload(byval val)
        mEnableUpload = val
    End Property

    Public Property Get EnableEdit()
        EnableEdit = mEnableEdit
    End Property

    Private Property Let EnableEdit(byval val)
        mEnableEdit = val
    End Property

    Public Property Get EnableDelete()
        EnableDelete = mEnableDelete
    End Property

    Private Property Let EnableDelete(byval val)
        mEnableDelete = val
    End Property

    Public Property Get EnableMove()
        EnableMove = mEnableMove
    End Property

    Private Property Let EnableMove(byval val)
        mEnableMove = val
    End Property

    Public Property Get EnableCreate()
        EnableCreate = mEnableCreate
    End Property

    Private Property Let EnableCreate(byval val)
        mEnableCreate = val
    End Property

    Public Property Get IsRoot()
        IsRoot = (CurrPath = "")
    End Property

    Public Property Get ParentPath()
        If IsRoot Then
            ParentPath = ""
            Exit Property
        End If
        ParentPath = Mid(CurrPath, 1, InStrRev(CurrPath, "/"))
    End Property

    Public Property Get UpLoadFext()
        UpLoadFext = mUpLoadFext
    End Property

    Public Property Get EditFext()
        EditFext = mEditFext
    End Property

    Public Property Get HaveFolderItem()
        If (mFolderItems Is Nothing) Or Admin.FolderList = "" Then
            HaveFolderItem = False
            Exit Property
        End If

        If mFolderItems.Length = 0 Then
            HaveFolderItem = False
            Exit Property
        Else
            HaveFolderItem = True
            Exit Property
        End If
    End Property

    Public Property Get IsAvailable()
        IsAvailable = Fso.FolderExists(RealPath)
    End Property

End Class

%>