Hej!
Har gjort en sida där man kan ladda ner filer och varje gång en fil laddas ner så uppdateras en "counter" i databasen för just den filen (detta fungerar utmärkt) men när själva filen ska ladda ner så blir den bara 302bytes stor oavsett orginalstorleken. På servern där filerna ligger rent fysiskt så stämmer storlekarna men så fort man laddar ner dem som blir dom som sagt 302bytes stora. Här är sidan view.asp som fixar uppdateringen i databasen samt startar nerladdningen:
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mdbPath & "\upload.mdb;"
SQL = "SELECT dFileSid, dFilename, dViews FROM tblUpload WHERE dFileSid = '" & Request.Querystring("qId") & "' AND dDeleted = 0"
Set rs = Conn.Execute(SQL)
If Not rs.EOF Then
If CStr(Request.Querystring("qId")) = CStr(rs("dFileSid")) Then
sBin = rs("dFilename")
Set FSO = CreateObject("Scripting.FileSystemObject")
If FSO.FileExists(uplPath & "\" & sBin) Then
SQL = "UPDATE tblUpload SET "
SQL = SQL & "dViews = " & rs("dViews") + 1 & ", "
SQL = SQL & "dViewDate = #" & Date() & "#, "
SQL = SQL & "dViewTime = #" & Time() & "# "
SQL = SQL & "WHERE dFileSid = '" & Request.Querystring("qId") & "'"
Conn.Execute(SQL)
Response.Clear
Response.ContentType = "application/octet-stream"
Response.AddHeader "Content-Disposition", "attachment; filename=""" & sBin & """"
Response.Flush()
Response.WriteFile(uplPath & "\" & sBin)
Else
SQL = "UPDATE tblUpload SET "
SQL = SQL & "dDeleted = 1, "
SQL = SQL & "dDeleteDate = #" & Date() & "#, "
SQL = SQL & "dDeleteTime = #" & Time() & "# "
SQL = SQL & "WHERE dFileSid = '" & Request.Querystring("qId") & "'"
Conn.Execute(SQL)
End If
Set FSO = Nothing
End If
End If
rs.Close
Set rs = Nothing
Conn.Close
Set Conn = Nothing
Vad gör jag för fel?
Tack på förhand!
Med vänlig hälsning
K