%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% '*** Pure ASP File Upload 2.2.2 Dim GP_uploadAction,UploadQueryString PureUploadSetup If (CStr(Request.QueryString("GP_upload")) <> "") Then Dim pau_thePath,pau_Extensions,pau_Form,pau_Redirect,pau_storeType,pau_sizeLimit,pau_nameConflict,pau_requireUpload,pau_minWidth,pau_minHeight,pau_maxWidth,pau_maxHeight,pau_saveWidth,pau_saveHeight,pau_timeout,pau_progressBar,pau_progressWidth,pau_progressHeight pau_thePath = """uploads""" pau_Extensions = "GIF,JPG,JPEG,BMP,PNG" pau_Form = "uploadfiles" pau_Redirect = "" pau_storeType = "file" pau_sizeLimit = "4096" pau_nameConflict = "uniq" pau_requireUpload = "false" pau_minWidth = "" pau_minHeight = "" pau_maxWidth = "" pau_maxHeight = "" pau_saveWidth = "" pau_saveHeight = "" pau_timeout = "600" pau_progressBar = "fileCopyProgress.htm" pau_progressWidth = "300" pau_progressHeight = "100" Dim RequestBin, UploadRequest CheckPureUploadVersion 2.22 ProcessUpload pau_thePath,pau_Extensions,pau_Redirect,pau_storeType,pau_sizeLimit,pau_nameConflict,pau_requireUpload,pau_minWidth,pau_minHeight,pau_maxWidth,pau_maxHeight,pau_saveWidth,pau_saveHeight,pau_timeout end if %> <% 'Write form data to session variables and redirect to another page If (CStr(Request.QueryString("GP_upload")) <> "") Then Session("name") = UploadFormRequest("name") Session("address") = UploadFormRequest("address") Session("telephone") = UploadFormRequest("telephone") Session("fax") = UploadFormRequest("fax") Session("mobile") = UploadFormRequest("mobile") Session("email") = UploadFormRequest("email") Session("website") = UploadFormRequest("website") Session("materials") = UploadFormRequest("materials") Session("dimensions") = UploadFormRequest("dimensions") Session("file1") = UploadFormRequest("file1") Session("file2") = UploadFormRequest("file2") Session("file3") = UploadFormRequest("file3") Session("file4") = UploadFormRequest("file4") Session("file5") = UploadFormRequest("file5") Response.Redirect "thanks.asp" End If %>
|