<%
function GetExtendName(FileName)
dim ExtName
ExtName = LCase(FileName)
ExtName = right(ExtName,3)
ExtName = right(ExtName,3-Instr(ExtName,"."))
GetExtendName = ExtName
end function
%>
在用时可以采用这种做法，通过函数instr来完成对上传文件类型的比较
if Instr(".gif.jpg.png",GetExtendName(file.FileName)) then'限制了上传文件类型
'TypeFlag = 1 '文件为允许的类型
vfname = makefilename(now()) '文件为允许的类型执行此行
fname=vfname & "." & GetExtendName(file.FileName)
file.SaveAs Server.mappath(UpFilePath&fname) ''保存文件
else
'TypeFlag = 0 '文件为不允许的类型
response.write ("<script language=javascript>")
response.write ("alert('不支持您所上传的文件类型!');")
response.write ("history.back();")
response.write("</script>")
end if
设为主页
收藏本站
相关文章: