Question

My ASP uploading of files knowledge is somewhere circa 2002. I’ve got a Classic site running in 32-bit mode on a 64-but Windows 2003 server. Also testing on a 32-bit Win 7 box.

What are a couple of upload solutions that might work in this scenario? I am running Classic ASP 3.0 against a SQL Server 2005 database. I prefer to store the files outside of the database.

I also have .NET 3.5 on the box, so if there’s a hybrid solution that might work better, I can do that.

I’m mostly concerned that I’ll use something “old” and that it won’t be reliable.

I’d also like to run some sort of antivirus against the files when they come in.

Answer 1

You don’t need any components to upload using VBScript:

File Upload using a VBScript Class – CodeProject

I’ve used this on all Classic ASP sites migrated to 2008 RB 64-Bit servers and found it (nearly) slots right in your code with very little modifications. Additionally, the very few components are 64-bit compatible and/or cause the application pools to crash after only modest use.

RE virus scanning, as long as your system has an A/V solution with real-time protection you are covered. Otherwise you will need to use shell.execute to call the AV scanner on your newly uploaded file:

'Create new instance of the vbsUpload object'
set objUpload = new vbsUpload

'Generate the full path to save the file to'
strNewFileName = Server.MapPath("/uploads") & "\" & objUpload.files.Item(0).FileName

'Save the file to disk'
objUpload.Files.Item(0).Save strNewFileName
Set objUpload = Nothing

'File is now saved, run a/v scanner on it'
Set objWShell = CreateObject("WScript.Shell") 

'Run the scanner on the filename created above'
Set objCmd = objWShell.Exec("c:\myscanner\scan.exe -parameters " & strNewFileName) 

'Get the stdout from the process'
strOutput = objCmd.StdOut.Readall() 
Set objCmd = Nothing
Set objWShell = Nothing

Setting permissions on all this is “interesting” to say the least, but that should get you started.