<% '' Transfer the current date and time into a water number 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," morning "," " FNAME = Replace ("FNAME," Afternoon ",") MakeFileName = FNameEnd Function%> Enables VFNAME = MakeFileName (now ()) to call current time call, if response.write vfname is displayed: Annual monthly day. If you get the type of file uploaded file, you can use the following functions.
<% Function GetExtendName (FileName) dim ExtName ExtName = LCase (FileName) ExtName = right (ExtName, 3) ExtName = right (ExtName, 3-Instr (ExtName, ".")) GetExtendName = ExtName end function%> may be at a With this approach, compare IF INSTR (". Gif.jpg.png", getExtendName (File.fileName), which 'files to last by function INSTR, limit the upload file type' typeflag = 1 'file as allowed Type VFNAME = MakeFileName (NOW ()) 'Document is permitted to perform this line FNAME = VFNAME & "." & GetExtendName (file.FileName) file.saveas server.mappath (upfilepath & fname)' saved file else 'typeflag = 0 'File is the type of Type RESPONSE.WRITE ("
