函數|流水號|函數|流水號 <% ''將當前的日期和時間轉為流水號
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
