Om fil finns då ska den inte upploada igen

Med FSO kan du göra detta, men vill du kolla i databasen får du väl göra ngn if-sats?!

<% 
Set file = Server.CreateObject( "Scripting.FileSystemObject" ) 
If file.FileExists( "/sökvägen till din fil" ) Then 
Response.Write"Finns" 
Else 
Response.Write"Finns inte" 
End If 
%>

<font class="text1">

<%
On Error Resume Next
' Variables
' *********
Dim mySmartUpload
Dim file
Dim oConn
Dim oRs
Dim intCount
intCount=0

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

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

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

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

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

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

' Connect to the DB
' *****************
Set oConn = Server.CreateObject("ADODB.Connection")
curDir = Server.MapPath("databas/databas.mdb")
oConn.Open "DBQ="& curDir &";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;"

Set file = Server.CreateObject( "Scripting.FileSystemObject" )
If not file.FileExists( "/members/"& session("user") & "/" & file.FileName) Then
Response.Write"Finns"
Else

' Open a recordset
' ****************
strSQL = "SELECT user,game,mo,global,version,name,info,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
	oRs("user")		=	session("user")
	oRs("game")		=	mySmartUpload.Form("game")
	oRs("mo")		=	mySmartUpload.Form("MODI")
	oRs("version")		=	mySmartUpload.Form("version")
	oRs("name")		=	mySmartUpload.Form("configname")
if mySmartUpload.Form("info") = "" then
	oRs("info")		=	""
else
	oRs("info")		=	mySmartUpload.Form("info")	
end if

     file.FileToField oRs.Fields("FILE")
	oRs("FILENAME")		=	file.FileName
	oRs("user")		=	session("user")
	oRs("game")		=	mySmartUpload.Form("game")
	oRs("mo")		=	mySmartUpload.Form("MODI")
	oRs("version")		=	mySmartUpload.Form("version")
	oRs("name")		=	mySmartUpload.Form("configname")
	oRs("info")		=	mySmartUpload.Form("info")

if mySmartUpload.Form("global") = false then
oRs("global") = false
else
oRs("global") = true
end if
oRs.Update
intCount = intCount + 1
intCount = mySmartUpload.Save("members/" & session("user"))
End If
Next

' Trap errors
' ***********
If Err Then
Response.Write("<b>Wrong selection : </b>" & Err.description)
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
response.redirect "archive.asp?member=" & session("user")

Response.Write"Finns inte"
End If
%></font>

Detta fungera inte =(

If not file.FileExists( "/members/"& session("user") & "/" & file.FileName) Then

använda server mappath här istället

hur då?

Set file = Server.CreateObject( "Scripting.FileSystemObject" ) 
If not file.FileExists( "/members/"& session("user") & "/" & file.FileName) Then 
Response.Write"Finns" 
Else

Nu skriver du väl att om filen INTE finns, skriv ut "Finns" annars (om filen finns) lägg in i databas osv...

Det blir väl lite fel?

mm =)

Nu kör jag:

<%
   On Error Resume Next
'  Variables
'  *********
   Dim mySmartUpload
   Dim file
   Dim oConn
   Dim oRs
   Dim intCount
   intCount=0
        
'  Object creation
'  ***************
   Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

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

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

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

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

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

'  Connect to the DB
'  *****************
   Set oConn = Server.CreateObject("ADODB.Connection")
   curDir = Server.MapPath("db/config.mdb")
   oConn.Open "DBQ="& curDir &";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;"

[b]Set file = Server.CreateObject( "Scripting.FileSystemObject" ) 
If not file.FileExists( "/members/"& session("user") & "/" & file.FileName) Then 
[/b]

'  Open a recordset
'  ****************
   strSQL = "SELECT user,game,mo,global,version,name,info,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
		oRs("user")		=	session("user")
		oRs("game")		=	mySmartUpload.Form("game")
		oRs("mo")		=	mySmartUpload.Form("MODI")
		oRs("version")		=	mySmartUpload.Form("version")
		oRs("name")		=	mySmartUpload.Form("configname")
	if mySmartUpload.Form("info") = "" then
		oRs("info")		=	""
	else
		oRs("info")		=	mySmartUpload.Form("info")	
	end if

         file.FileToField oRs.Fields("FILE")
		oRs("FILENAME")		=	file.FileName
		oRs("user")		=	session("user")
		oRs("game")		=	mySmartUpload.Form("game")
		oRs("mo")		=	mySmartUpload.Form("MODI")
		oRs("version")		=	mySmartUpload.Form("version")
		oRs("name")		=	mySmartUpload.Form("configname")
		oRs("info")		=	mySmartUpload.Form("info")
if mySmartUpload.Form("global") = false then
		oRs("global")		=	false
else
		oRs("global")		=	true
end if
         oRs.Update
         intCount = intCount + 1
         intCount = mySmartUpload.Save("members/" & session("user"))
      End If
   Next

'  Trap errors
'  ***********
   If Err Then
      Response.Write("<b>Wrong selection : </b>" & Err.description)
   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 
response.redirect "archive.asp?member=" & session("user")
[b]else
Response.Write"Finns" 
end if[/b]
%>

Och den lägger upp filen ändå... även om den finns uppe =(

vad är det för fel? e det ASP-Smart upload som är knäpp?

Du kan ju börja med att kommentera bort:

On Error Resume Next

och se om det ger dig något.

Testade lite nu får jag bara errors =):

Error Type:
Microsoft VBScript compilation (0x800A0409)
Unterminated string constant
/voigtan/config/Sample4.asp, line 46, column 78

If file.FileExists( "members/"& session("user") & "/" & file.FileName &") Then

If file.FileExists("members/" & session("user") & "/" & file.FileName) Then

Error Type:
Microsoft VBScript runtime (0x800A01B6)
Object doesn't support this property or method: 'FileName'
/voigtan/config/Sample4.asp, line 47

 If file.FileExists("members/" & session("user") & "/" & file.FileName) Then

varför? allt som jag tycker ska fungera gör det inte!

file.name

tyvärr =(
jag använder för att lägga upp den info i databasen:
oRs("FILENAME") = file.FileName

så det borde ju ändå vara file.filename eller?

Vad skrivs ut om du skriver:

response.write "/members/"& session("user") & "/" & file.FileName

?

Skrivs rätt fil o sökväg ut då?

får:
Error Type:
Microsoft VBScript runtime (0x800A01A8)
Object required: ''

mao verkar det bli fel med file.FileName eller?

ja... jag tror det.. men hur ska man då kunna lösa det? det måste ju kunna göras

Ah, sorry, såg fel.

Du kollar file.filename, men file är ju inte filen, utan ditt FileSystemObject. Om du bara kan ladda upp en fil i formuläret så kan du nog köra med

If not file.FileExists( "/members/"& session("user") & "/" & mySmartUpload.Files(1).FileName) Then

annar får du lägga kolla inne i loopen