Problem med ASP-SMART-UPLOAD

13 svar · 464 visningar · startad av voigtann1 2 apr. 2002

voigtann1Medlem sedan juni 20019 519 inlägg

Frågan2 apr. 2002 16:57#1

<HTML>
<BODY BGCOLOR="white">
<%

' Variables
' *********
Dim mySmartUpload
Dim file
Dim oConn
Dim oRs
Dim intCount
intCount=0

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

' Connect to the DB
' *****************
set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("db/config.mdb")

' Open a recordset
' ****************
'strSQL = "SELECT * FROM nobrain ORDER BY id DESC"
'strSQL = "SELECT * from files order by filename,FILE"
strSQL = "SELECT * from files order by filename"

Set oRs = Server.CreateObject("ADODB.recordset")
Set oRs.ActiveConnection = oConn
oRs.Source = strSQL
oRs.LockType = 3
oRs.Open

' Select each file
' ****************
For each file In mySmartUpload.Files
' Only if the file exist
' **********************
If not file.IsMissing Then

  '  Add the current file in a DB field
  '  \*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
     oRs.AddNew
     file.FileToField oRs.Fields("FILE")
	 oRs("filename") = file.FileName
     oRs.Update
     intCount = intCount + 1
  End If

' Only allow txt or htm files
' ***************************
mySmartUpload.AllowedFilesList = "cfg"

' 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

' Deny upload if the total fila size is greater than 200000 bytes
' ***************************************************************
mySmartUpload.TotalMaxFileSize = 200000

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

' Save the files with their original names in a virtual path of the web server
' ****************************************************************************
intCount = mySmartUpload.Save("members/" & session("user"))
' sample with a physical path
' intCount = mySmartUpload.Save("c:\temp\")

' Trap errors
' ***********
If Err Then
Response.Write("<b>ERROR</b><br> You tried to upload something diffrent then: *.cfg, *.txt, *.exe")
Else
' Display the number of files uploaded
' ************************************
Response.Write(intCount & " file(s) uploaded.")
End If

' Destruction
' ***********
oRs.Close
oConn.Close
Set oRs = Nothing
Set oConn = Nothing
%>
</BODY>
</HTML>

jag klarar uploada filerna .... men dom sparars inte i databasen.. har försökt mixtra med koden som man fick till men det fungera inte.....

voigtann1Medlem sedan juni 20019 519 inlägg

2 apr. 2002 17:40#2

detta är ju helt knäppt!
jag vill ha så att den lägger till:
användarnamnet(session)
sen vilken spel det ska läggas i... men det går inte.. får bara en massa errors... har aldrig sett någon sådan här kod i ASP innan.. knäppt!

voigtann1Medlem sedan juni 20019 519 inlägg

2 apr. 2002 19:09#3

ingen som använder ASPsmartupload eller?

solbulleMedlem sedan mars 20015 287 inlägg

2 apr. 2002 20:20#4

Är du säker på att du har rätt fält i databasen?

voigtann1Medlem sedan juni 20019 519 inlägg

2 apr. 2002 20:41#5

efter många timmas tystnad så började jag pilla.. nu har jag fått allt att fungera.. förutom att man inte kan lägga till någon annan info än filnamnet och ActiveX-objekt.... blir skit sur....:

   strSQL = "SELECT user,game,mo,global,version,dl,FILENAME,FILE FROM Files"

   Set oRs = Server.CreateObject("ADODB.recordset")
   Set oRs.ActiveConnection = oConn
   oRs.Source = strSQL
   oRs.LockType = 3
   oRs.Open

'  Select each file
'  ****************
   For each file In mySmartUpload.Files
   '  Only if the file exist
   '  **********************
      If not file.IsMissing Then

      '  Add the current file in a DB field
      '  **********************************

         oRs.AddNew
         file.FileToField oRs.Fields("FILE")
		 oRs("FILENAME") = file.FileName
		 oRs("user") = session("user")
		 oRs("game") = "test"
		 oRs("mo") = "test"
		[b] oRs("global") = upload.Request("global")[/b]
		 oRs("version") = "test"
		 oRs("dl") = "0"
         oRs.Update
         intCount = intCount + 1
         intCount = mySmartUpload.Save("members/" & session("user"))
      End If
   Next

Error Type:
Request object, ASP 0208 (0x80004005)
Cannot use the generic Request collection after calling BinaryRead.

Den får ingen data från den andra.. eller så vill den inte ta datan från den andra... VILL VETA HUR MAN FIXAR!!!
snyft!

solbulleMedlem sedan mars 20015 287 inlägg

2 apr. 2002 21:01#6

Kanske.. http://www.aspsmart.com/liblocal/docs/en/aspsmartupload/help/Requirements.htm

Tror felet blir pga av att du inte kan köra request mm

erkaMedlem sedan dec. 19996 522 inlägg

3 apr. 2002 07:01#7

Om du läser object ref. till asp smart upload på deras hemsida så ser du hur du ska göra, de har även en del exempel.

voigtann1Medlem sedan juni 20019 519 inlägg

3 apr. 2002 07:07#8

Solbulle och jag har fixat det här.. =) glömde skriva det =) tack så mycket för alla svar

EkströmMedlem sedan feb. 20022 594 inlägg

3 apr. 2002 15:01#9

Konstigt detta...

Hade precis samma problem igår :)

mrhazeMedlem sedan juli 2002252 inlägg

13 aug. 2002 09:38#10

skriv gärna hur ni löste det... har samma problem nu - tråkigt att inte hitta lösningen här :OO

erkaMedlem sedan dec. 19996 522 inlägg

13 aug. 2002 11:42#11

MrHaze
Vad har du för stött på för problem ?

Om man läser dokumentationen på https://www.aspsmart.com kan man lösa typ allt :) Men posta gärna vad som du misslyckas med

solbulleMedlem sedan mars 20015 287 inlägg

13 aug. 2002 13:18#12

Problemet som ALLA verkar ha med ALLA typer av uploadscript/komponenter är att man gör fel vid uppladdningen av formulärsfält.

Först måste man köra uploaden:

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

Vidare använder man sig INTE av request.form utan av komponentens "inbyggda" variant, i detta fallet:

mySmartUpload.Form("text")

medialabsMedlem sedan mars 20023 686 inlägg

13 aug. 2002 13:53#13

solbulle skrev:

Problemet som ALLA verkar ha med ALLA typer av uploadscript/komponenter är att man gör fel vid uppladdningen av formulärsfält.

Först måste man köra uploaden:
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
Vidare använder man sig INTE av request.form utan av komponentens "inbyggda" variant, i detta fallet:

mySmartUpload.Form("text")

Bäst att lyda Solbulle, han kanske tar fram en käpp och börjar slå oss mindre begåvade... :P

solbulleMedlem sedan mars 20015 287 inlägg

14 aug. 2002 18:55#14

Ha ha, jo jag har den i bakfickan. ;)

Jag har gjort samma fel jag med, det behöver ju inte vara det som som strular men oftast blir svaret att det är där felet ligger.