用最简单的语句写一a个sp上传图片代码上传到一个指定文件夹里.docxVIP

upfile.asp 上传的图片存到images/upfile文件夹下。!--#include FILE=upfile--meta http-equiv=Content-Type content=text/html; charset=iso-8859-1%if Request(menu)=up thenOn Error Resume NextSet upl = Server.CreateObject(SoftArtisans.FileUp)If -2147221005 = Err Thenset FileUP=new Upload_file FileUP.GetDate(-1)formPath=images/upfile/set file=FileUP.file(file)filename=formPathyear(now)month(now)day(now)hour(now)minute(now)second(now).file.FileExtselect case LCase(file.FileExt)case gifimg=[img]cluburl/filename[/img]case jpgimg=[img]cluburl/filename[/img]case swfimg=[flash]cluburl/filename[/flash]case elseerror2(So