asp获取文件后缀名函数

来源:互联网 发布:win7查找网络打印机 编辑:程序博客网 时间:2024/04/29 05:42
  1. function GetExtendName(FileName)
  2. dim ExtName
  3. ExtName = LCase(FileName)
  4. ExtName = right(ExtName,3)
  5. ExtName = right(ExtName,3-Instr(ExtName,"."))
  6. GetExtendName = ExtName
  7. end function
原创粉丝点击