以下是代码:只能传扩展名是3个字母的,四个以上就不能上传,怎么能让任何扩展名的文件都能上传,判断代码应该怎样改呢?

ExtName = "jpg,gif,bmp,chm,exe,png,txt,rar,zip,doc,asp,htm,html,torrent" '允许扩展名

'判断文件类型是否合格
Function CheckFileExt(FileName,ExtName) '文件名,允许上传文件类型
FileType = ExtName
FileType = Split(FileType,",")
For i = 0 To Ubound(FileType)
If LCase(Right(FileName,3)) = LCase(FileType(i)) then
CheckFileExt = True
Exit Function
Else
CheckFileExt = False
End if
Next
End Function

[此贴子已经被作者于2007-10-5 9:29:31编辑过]

风声上传类就行的.

以下代码解决了判断文件的问题,但又出现一个问题:就是

程序不是随机命名,而是以递增的方式命名.若文件名相同,上传时第四个字母的地方加_1、_2……，扩展名超过四个字母，文件名就不对了。怎样解决这个问题呢:

'判断文件类型是否合格
Function CheckFileExt(FileName,ExtName) '文件名,允许上传文件类型
FileType = ExtName
FileType = Split(FileType,",")
For i = 0 To Ubound(FileType)
If LCase(Right(FileName,3)) = LCase(FileType(i)) or LCase(Right(FileName,4))=LCase(FileType(i)) or LCase(Right(FileName,7))=LCase(FileType(i)) then
CheckFileExt = True
Exit Function
Else
CheckFileExt = False
End if
Next
End Function

[h]

'检查文件是否存在，重命名存在文件
Function CheckFileExists(FileName)
Set fso=Server.CreateObject("Scripting.FileSystemObject")
If fso.FileExists(SaveFile) Then
i=1
msg=True
Do While msg
CheckFileExists = Replace(SaveFile,Right(SaveFile,4),"_" & i & Right(SaveFile,4))
If not fso.FileExists(CheckFileExists) Then
msg=False
End If
i=i+1
Loop
Else
CheckFileExists = FileName
End If
Set fso=Nothing
End Function

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

可以用时间来命名 也是我哥哥教我的呢
set file=upload.file(formName) ''生成一个文件对象
if file.FileSize>0 then ''如果 FileSize > 0 说明有文件数据
file.filename="news_"&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&file.filename
file.SaveAs Server.mappath(formPath&file.FileName) ''保存文件

谢了，试试

我硬性定义也可解决,就是麻烦点儿:
'检查文件是否存在，重命名存在文件
Function CheckFileExists(FileName)
Set fso=Server.CreateObject("Scripting.FileSystemObject")
If fso.FileExists(SaveFile) Then
i=1
msg=True
Do While msg
if LCase(Right(FileName,7))="torrent" then
CheckFileExists = Replace(SaveFile,Right(SaveFile,8),"_" & i & Right(SaveFile,8))
elseif LCase(Right(FileName,4))="html" then
CheckFileExists = Replace(SaveFile,Right(SaveFile,5),"_" & i & Right(SaveFile,5))
elseif LCase(Right(FileName,2))="js" then
CheckFileExists = Replace(SaveFile,Right(SaveFile,3),"_" & i & Right(SaveFile,3))
else
CheckFileExists = Replace(SaveFile,Right(SaveFile,4),"_" & i & Right(SaveFile,4))
end if
If not fso.FileExists(CheckFileExists) Then
msg=False
End If
i=i+1
Loop
Else
CheckFileExists = FileName
End If
Set fso=Nothing
End Function
%>

我笨人有笨办法哟