funlib.asp

TSYS网站管理系统 TSYS网站管理系统 TSYS网站管理系统

<%
'#######过滤目录
Function FilterPath(strPath)
    strPath=Replace(Trim(strPath),"../","")
    strPath=Replace(Trim(strPath),"..\","")
    strPath=Replace(strPath,"\..","")
    strPath=Replace(strPath,"/..","")
    FilterPath=strPath
End Function


'#######获得父目录
Function GetParent(strPath)
    If strPath<>"" Then
        Dim I
        For I=Len(strPath) To 1 Step -1
            If Mid(strPath,I,1)="/" Then
                GetParent=Left(strPath,I-1)
                Exit Function
            End If
        Next
    End If
End Function

'########取得文件扩展名
'返回值如：".exe"、".gif"
Function GetEx(fileName)
	GetEx="."&mid(fileName,InStrRev(fileName, ".")+1)
End Function

'########取得文件扩展名所对应的图标
Function FileIco(f_name)
    Dim ex,ico
    ex=LCase(GetEx(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
%>