asp 获得文件扩展名_

位置导航：首页 >> 源码 >> ASP源码 >> 正文

asp 获得文件扩展名

来源:网络来源TAG:文件扩展名浏览数: 次日期：2010-8-10评论：条

折叠ASP/Visual Basic Code复制内容到剪贴板

'*******************************************************************
' 获得文件扩展名
'*******************************************************************
function GetExtend(filename)
dim tmp
if filename<>"" then
tmp=mid(filename,instrrev(filename,".")+1,len(filename)-instrrev(filename,"."))
tmp=LCase(tmp)
if instr(1,tmp,"asp")>0 or instr(1,tmp,"php")>0 or instr(1,tmp,"php3")>0 or instr(1,tmp,"aspx")>0 then
getextend="txt"
else
getextend=tmp
end if
else
getextend=""
end if
end function

昨天新闻点击排行

一周新闻点击排行

当月新闻点击排行

新闻链接

上一篇文章：asp 判断数字是否整形

下一篇文章：ASP语法高亮类代码