正确函数是:
<%
Path = "d:1.35.147.torrent"

function cutname(path)
Dim place,pathlen
if path = "" then
exit function
end if
place = instrrev(path,".")
pathlen = len(path)
cutname = right(path,pathlen-place)
response.Write""&cutname&""
end function

cutname(path) '调用显示
%>

[此贴子已经被作者于2007-10-5 16:58:28编辑过]

getext应该是定义的一个变量吧,

getext是函数的返回值
在vb里函数名作为返回值return 使用的比如
Function ReTest()
ReTest="返回值测试"
End Function
Response.Write ReTest()

[CODE]我用的是vb的split函数
function getext(filename)
setname=split(filename,".")
numname=ubound(setname)
if numname=0 then
getext="no" ‘没有帖子
else
getext="."&setname(numname-1)
end if
end function[/CODE]

那这样子可不可以得到他的扩展名呢？

<%
path = "1.2.8.8111.torrent"
filen = Right(path,Len(path)-InStrRev(path,"."))
response.Write""&filen&""
%>
返回值是：torrent

那你现在在前面加个“.”不就行了么~~~~

[此贴子已经被作者于2007-10-5 23:36:07编辑过]