Problem med aspsmartupload

2 svar · 374 visningar · startad av calson 24 apr. 2006

calsonMedlem sedan dec. 2003487 inlägg

Frågan24 apr. 2006 12:07#1

Hej
Jag har letat efter komponenten för att kunna köra aspsmartupload på min dator men kan inte hitta.. installerade aspupload men verkar inte kunna köra smartupload med den? Någon som vet var jag kan hitta aspsmartupload?

Jag har kört detta skript på mitt webhotell som använder sig av aspsmartupload men får inget felmedelande, någon som kan se felet och kanske modifiera koden till det bättre?

'### Öppnar objektet FSO ###

   Set objFileSys = CreateObject("Scripting.FileSystemObject")
   Set strFolder = objFileSys.GetFolder("*hemligt*/bilder/users")
   intFolderSize = strFolder.size

'### Öppnar objektet aspSmartUpload ###

   Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

    For each file In mySmartUpload.Files

      If not file.IsMissing Then

	If file.FileExt = "jpg" Or file.FileExt = "jpeg" then

	  If (intFolderSize + file.Size) < 70000000 Then

	    If file.Size < 1000000 Then

  	        strFileName=(session("id") & "." & file.FileExt)
		   mySmartUpload.Upload
		file.SaveAs("bilder/users/pbImg_" & strFileName)

		response.write("Klart")

	    Else
	      strMess=("Filen får inte överskrida 1 mb!")
	    End If

	  Else
	    strMess=("Mappen för profilbilderna har överskridit maxstorleken (70 mb). Pröva igen senare!")
	  End If

	Else
	  strMess=("Bilden måste vara utav formaten jpg/jpeg!")
	End if

      Else
	strMess=("Bilden kunde inte hittas i din dator!")
      End If

    Next

    objFileSys.Close : set objFileSys = nothing

Tack på förhand

@ndersMedlem sedan juni 200032 967 inlägg

24 apr. 2006 12:23#2

installerade aspupload men verkar inte kunna köra smartupload med den?

Nej, det är klart. Det är ju två helt olika programvaror.

Någon som vet var jag kan hitta aspsmartupload?

http://www.aspsmart.com/aspSmartUpload/

CatZMedlem sedan jan. 20022 440 inlägg

24 apr. 2006 13:03#3

Jag använder mig av aspsmartupload, jag tankar upp spelresultat från bridgetävlingar och sparar dem i ett fält i databasen. Begrep mig aldrig på det där med mappar. Bifogar lite av min urgamla kod

For Each file in objUpload.Files
	'om filen finns		
	If not File.IsMissing Then
		'kolla om filen har rätt ändelse
		If NOT ((File.FileExt = "htm") OR (File.FileExt = "html")) Then
			Call sfelFil
		Else
			'kör en insert om filen finns			
			SQL = "SELECT * FROM tblSpelprogram"
	
			Set objRS = Server.CreateObject("ADODB.recordset")
			Set objRS.ActiveConnection = objConn
			objRS.Source = SQL
			objRS.LockType = 3
			objRS.Open

			objRS.AddNew		
				file.FileToField objRS.Fields("FBlob")
				objRS("FNamn")		= removeSpace(file.FileName)
				objRS("FStor")		= File.Size
				objRS("SmDatum")	= datDatum
				objRS("SmForm")		= strForm
				objRS("SmAnsv")		= strAnsv
				objRS("SmJour")		= strJour
				objRS("SmAnm")		= strAnm
				objRS("SmTyp")		= intTypID					
			objRS.Update
			Response.Redirect("/admin_spel/ny.asp?typ=" & intTypID & " ")
		End If
	Else
		'kör en insert om det inte fanns någon fil
	End If

Vet inte om det hjälper dig. Bara ett exempel på hur man kan göra