我有这么个函数：function filetype(filename)。关于调用的时候应该怎么写呢~~~~~~分不多但希望认真帮忙解决，我里面内容写的很多很详细

[fluterheart]

我分两步上传图片，一个是从后台把图片的文件名上传了。另一个是单独一个程序把图片传到指定文件夹。先在有了一个function filetype(filename)函数是自动判别文件名格式。也就是说上传图片文件名的时候不用输文件名后缀，然后由这个函数filetype（）自动判断文件名后缀，我在显示图片的行是这样写的：
<%response.write"<img src=""/efy/images/"& cptp &""" border=""0"">"%>
cptp是表的图片字段。现在这个字段由这个filetype（）函数判断了，具体怎么用函数替换呢。我在显示图片的页包含了这个函数文件。这个函数文件是：filename.asp
<%
function filetype(filename)
dim extname '定义扩展名
dim pos
pos=instr(filename,".")
extname=lcase(right(filename,len(filename)-pos))
select case extname
case "jpg"
filetype="Picture"
case "gif"
filetype="Picture"
case "zip"
filetype="zip archive"
case "doc"
filetype="Microsoft Word DOC"
case "pdf"
filetype="Adobe AcobatReader文档"
case else
filetype="unknown"
end select
end function
%>
我的显示图片的页面包含了这个文件filename.asp但在这个显示图片的页面怎么调用这个函数呢。
<%response.write"<img src=""/efy/images/"& cptp &""" border=""0"">"%>
本页这行是显示图片的页，以前cptp是表中的字段名，以前上传图片要求必须输入文件名称后缀。先在由函数自动判别，应该怎么在这行调用呢？

[angelheavens]

<%
cptp=filetype(RS("cptp")) '
response.write"<img src=""/efy/images/"& cptp
&""" border=""0"">"
%>

[LonelyStark]

先用FSO取得文件名字
然后
response.write filetype(文件名字)
即可获得文件类型

[叮咚叮咚叮叮咚]

^_^，这个函数不是我刚写的回复别人帖子的嘛。。。。。
<%
cptp=filetype(RS("cptp")) '
response.write"<img src=""/efy/images/"& cptp
&""" border=""0"">"
%>
这个写的就可以了阿～

[fluterheart]

呵呵，那不赶紧回来看看。态度真是太差劲了，减分，嘿嘿

[KUMOZAKI]

楼主问的问题一楼就答了,我就不在此献丑了，建议楼主更改一下function,将instr改为InStrRev，因为文件有可能不止一个.号,但最后一个.的字段一定是格式,另外将那个case的程序做循环.这样就会好管理,格式再多也不用怕搞错.

fxt="jpg,picture,gif,picture,zip,zip archive"
fxt=split(fxt,",")
for i=1 to ubound(fxt) step 2
if extname=fxt(i) then
.....有点懒就不写了.@_@

[fluterheart]

<%
function filetype(filename)
dim extname '定义扩展名
dim pos
pos=instr(filename,".")
extname=lcase(right(filename,len(filename)-pos))
select case extname
case "jpg"
filetype="Picture"
case "gif"
filetype="Picture"
case "zip"
filetype="zip archive"
case "doc"
filetype="Microsoft Word DOC"
case "pdf"
filetype="Adobe AcobatReader文档"
case else
filetype="unknown"
end select
end function
%>
我用这个函数调用了，但是返回的是比如如果判断了“jpg”图片，那么显示图片路径的那行，
<%response.write"<img src=""/efy/images/"& cptp &""" border=""0"">"%>的cptp,本来应该是正确的图片名称和后缀，但调用了那个函数后。cptp就显示Picture了，虽然判断出了格式，但是如果让它显示正确的名称和后缀也就是让它正确显示图片。函数应该怎么弄。