asp常用文件操作函数(二)

<%    
    '*******************************************************
    '作  用: 得到文件扩展名
    '函数名: GetFileExt(fileTrue)
    '参  数: sFileName 文件名
    '返回值: 返回文件扩展名
    '*******************************************************
    function GetFileExt(sFileName)
         GetFileExt = UCase(Mid(sFileName,InStrRev (sFileName, ".")+1))
    End function
    
    
    '*******************************************************
    '作  用: ASP上传漏洞 "\0" 防范
    '函数名: TrueStr(fileTrue)
    '参  数: sFileName 文件名
    '返回值: 合法文件返回 True ,否则返回False
    '*******************************************************
    function IsTrueFileName(sFileName)
        dim str_len,pos
        str_len=len(sFileName)
        pos=Instr(sFileName,chr(0))
        If pos=0 or pos=str_len then
            IsTrueFileName = true
        else
            IsTrueFileName = false
        End If
    End function
    
    '*******************************************************
    '作  用: 检测上传的图片文件(jpeg,gif,bmp,png)是否真的为图片