?? funlib.asp
字號:
<%
'#######過濾目錄
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
'########取得文件擴(kuò)展名
'返回值如:".exe"、".gif"
Function GetEx(fileName)
GetEx="."&mid(fileName,InStrRev(fileName, ".")+1)
End Function
'########取得文件擴(kuò)展名所對應(yīng)的圖標(biāo)
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
%>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -