varför får jag object required där jag sätter variabeln strFil


<form action="/test.asp?do=upload" method="post" ENCTYPE="multipart/form-data" >
<input type="file" name="txtFile">
<input type="submit">
</form>

<%if request("do") = "upload" then

' Variables
' *********
Dim mySmartUpload
Dim file
Dim intCount
intCount=0
strFil = mySmartUpload.Files.filename




' Object creation
' ***************
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")


' Only allow some files
' ***************************
mySmartUpload.AllowedFilesList = "htm,txt,gif,png,mp3"

' DeniedFilesList can also be used :
' Allow all files except exe, bat and asp
' ***************************************
mySmartUpload.DeniedFilesList = "exe,bat,asp"

' Deny physical path
' *******************
mySmartUpload.DenyPhysicalPath = True

' Only allow files smaller than 50000 bytes
' *****************************************
mySmartUpload.MaxFileSize = 50000



' Upload
' ******
mySmartUpload.Upload

' Select each file
' ****************
For each file In mySmartUpload.Files
' Only if the file exist
' **********************
If not file.IsMissing Then
' Save the files with his original names in a virtual path of the web server
' **************************************************************************
file.SaveAs("/images/" & strFil)
' sample with a physical path
' file.SaveAs("c:\temp\" & strFil)

' Display the properties of the current file
' ******************************************
Response.Write("Name = " & file.Name & "<BR>")
Response.Write("Size = " & file.Size & "<BR>")
Response.Write("FileName = " & file.FileName & "<BR>")
Response.Write("FileExt = " & file.FileExt & "<BR>")
Response.Write("FilePathName = " & file.FilePathName & "<BR>")
Response.Write("ContentType = " & file.ContentType & "<BR>")
Response.Write("ContentDisp = " & file.ContentDisp & "<BR>")
Response.Write("TypeMIME = " & file.TypeMIME & "<BR>")
Response.Write("SubTypeMIME = " & file.SubTypeMIME & "<BR>")
intCount = intCount + 1
End If
Next

' Display the number of files which could be uploaded
' ***************************************************
Response.Write("<BR>" & mySmartUpload.Files.Count & " files could be uploaded.<BR>")

' Display the number of files uploaded
' ************************************
Response.Write(intCount & " file(s) uploaded.<BR>")


end if%>

Därför mySmartUpload inte är tilldelad ett objekt. Det hjälper att du talar om vad du vill göra.
Från din kod skulle jag tolka det att du tagit en exempelkod och bara laggt in en rad uttan att först satt dig in hur komponenten fungerar.

jag vet inte hur just denna komponent fungerar och jag har använt en exempelkod som jag vill få att fungera. Det jag vill är att kunna ladda upp en fil, tillåtna filändelser har jag skrivit in i koden

du måste ha
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
före
strFil = mySmartUpload.Files.filename

måste säga vad mySmartUpload är, innan du använder den

mao:
' Object creation
' ***************
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
strFil = mySmartUpload.Files.filename

Något sånt här kanske:

<form action="?do=upload" method="post" ENCTYPE="multipart/form-data" ID="Form1">
<input type="file" name="txtFile" ID="File1">
<input type="submit" name="Submit1" ID="Submit1">
</form>

<%
	Select Case request.QueryString("do") 
	Case "upload"

'  Variables
'  *********
   Dim mySmartUpload
   Dim file

'  Object creation
'  ***************
   Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

'  Only allow some files
'  ***************************
   mySmartUpload.AllowedFilesList = "htm,txt,gif,png,mp3"

'  Deny physical path
'  *******************
   mySmartUpload.DenyPhysicalPath = True

'  Only allow files smaller than 50000 bytes
'  *****************************************
   mySmartUpload.MaxFileSize = 50000

'  Upload
'  ******
   mySmartUpload.Upload

'  Select file
'  ****************
   Set file = mySmartUpload.Files("txtFile") 
   
'  Only if the file exist
'  **********************
    If file.IsMissing Then
        Response.Write("Filen saknas!<BR>")        
    Else
    '  Save the files with his original names in a virtual path of the web server
    '  **************************************************************************
		strFil = file.FileName
        file.SaveAs("/images/" & strFil)
        ' sample with a physical path
        ' file.SaveAs("c:\temp\" & strFil)

    '  Display the properties of the current file
    '  ******************************************
        Response.Write("Name = " & file.Name & "<BR>")
        Response.Write("Size = " & file.Size & "<BR>")
        Response.Write("FileName = " & file.FileName & "<BR>")
        Response.Write("FileExt = " & file.FileExt & "<BR>")
        Response.Write("FilePathName = " & file.FilePathName & "<BR>")
        Response.Write("ContentType = " & file.ContentType & "<BR>")
        Response.Write("ContentDisp = " & file.ContentDisp & "<BR>")
        Response.Write("TypeMIME = " & file.TypeMIME & "<BR>")
        Response.Write("SubTypeMIME = " & file.SubTypeMIME & "<BR>")
        
    End If

End Select
%>

Unabled to save file på denna rad
file.SaveAs("/images/" & strFil)

Vilken fel kod ger den? HAr du skrivrättigheter i mappen?

Ska ha fulla rättigheter

aspSmartUpload.File error '80040460'

Unable to save file (Error 1120)

/test.asp, line 70

Har du installerat komponenten själv?

den finns på webhotellet

http://www.axentus.se/w-smartsuite.asp

Kolla med webbhotellet så att dom inte har stängt av SaveAs-metoden. Då måste du använda SaveInVirtual istället.

Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'SaveInVirtual'




Är detta verkligen helt korrekt?

' ****************
Set file = mySmartUpload.Files("txtFile")

' Only if the file exist
' **********************
If file.IsMissing Then
Response.Write("Filen saknas!<BR>")
Else
' Save the files with his original names in a virtual path of the web server
' **************************************************************************
strFil = file.FileName
file.SaveAs("/Pics/" & strFil)
' sample with a physical path
' file.SaveAs("c:\temp\" & strFil)

Prova att använda Server.MapPath() på sökvägen, så det ser ut så här:

file.SaveAs Server.MapPath("/Pics/" & strFil)

Åtminstone så fungerar det ovanstående för mig.

Hej,

Ville bara sticka in med en snabbfråga!
Det räcker att webhotellet installerar komponenten?
Det är dem som "ska" köpa komponenten och fixa till det?
Sen är det bara för oss som vill ladda upp filer att koda rätt?

Dumma frågor kanske men jag har aldrig använt AspUpload?

Micke
"Bättre att fråga och verka dum än att tiga och förbli dum"

aspSmartUpload.File error '80040465'

The path is not a virtual path (Error 1125).

/test.asp, line 69

Jahadu, det var ju skumt, men hur ser rad 69 ut i test.asp då?

samma rad som här ovanför file.SaveAs

Är du säker på att du har skrivrättigheter i mappen du vill spara till? Felet du beskriver uppstår typiskt sett då man inte har skrivrättigheter, enligt FAQ här:

http://www.aspsmart.com/scripts/aspSmartUpload/publigen/content/templates/show.asp?P=267&L=EN

Fråga 15:

PRB: aspSmartUpload.File error '80040460'. Unable to save file (Error 120)

This error may be returned by the component when it can't save a file. It often comes from the NT permissions on the directory. Check, and modify if needed, the security permissions on the directories in which you want the files to be uploaded.

Det lustiiga är att jag med aspUpload kan ladda upp bilder till den mappen , men medan jag med aspSmartUpload inte kan skriva till den, nån annan mapp eller till roten. Så skrivrättigheter har jag och jag ska även ha fulla rättigheter.