使用当前日期做为流水号，采用函数-ASP教程,ASP应用

<% 将当前的日期和时间转为流水号

function makefilename(fname)

fname = now()

fname = replace(fname,"-","")

fname = replace(fname," ","")

fname = replace(fname,":","")

fname = replace(fname,"pm","")

fname = replace(fname,"am","")

fname = replace(fname,"上午","")

fname = replace(fname,"下午","")

makefilename=fname

end function

%>

上函数体，可使用此句vfname=makefilename(now())来调用当前时间调用，

若response.write vfname则显示：年月日时。

若虚上传时取得所上传的文件的类型，可采用下面这个函数

<%

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