上传文件时,怎样识别文件类型,并将类型以图片的方式写入数据库,如:images/rar.gif、images/gif.gif……，调用时，文件类型显示相关类型的小图片。

一般文件扩展为三个字母,通过这种方法可以判断,但像torrent就不行了.望大虾们提供更好的方法:
'<!--判断文件类型
t_filetype=LCase(Right(SaveFileName,3))
if t_filetype="rar" then
typepic="FileType/rar.gif"
end if

if t_filetype="asp" then
typepic="FileType/asp.gif"
end if

if t_filetype="asp" then
typepic="FileType/asp.gif"
end if

……

'//-->
然后通过rs("type")=typepic写入数据库。

要显示，在相应位置上加入代码：<img src="<%=rs("type")%>>即可。

定义常见的几种文件显示相应的图片类型，其他的均显示同一图片，如何实现？

我的程序上传后文件名不变,有的文件名里有几个".",用split分割,就不准了,除非,上传后文件名是随机的,以年月日时间命名.

我想调用查看正确与否,怎样看效果?
用<%getext(filename)%>不行罗!道行浅,学习中,不要见笑哟

这个函数不是取扩展名的值吗，应该能测试结果，如：.rar\.torrent等等。

斑竹,你的方法不行,下面的结果值是:.147,正确的应该是:torrent.

<%
filename = "d:1.35.147.torrent"

function getext(filename)
setname=split(filename,".")
numname=ubound(setname)
if numname=0 then
getext="no"
else
getext="."&setname(numname-1)
end if
response.Write""&getext&""
end function

getext(filename)

%>

正确函数是:
<%
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应该是定义的一个变量吧,

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