---
title: "fel i upload"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/84200-fel-i-upload"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Frexuz"
published: "2003-08-13T20:40:52.000Z"
updated: "2003-08-14T00:43:28.000Z"
replies: 4
views: 196
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/84200-fel-i-upload"
---

# fel i upload

## #1 — Frexuz, 2003-08-13T20:40Z

\<% 
if request.querystring("upload") = "yes" then 

'Response.BinaryWrite(Request.BinaryRead(Request.TotalBytes)) 
byteCount = Request.TotalBytes 
'Response.BinaryWrite(Request.BinaryRead(varByteCount)) 

RequestBin = Request.BinaryRead(byteCount) 
Dim UploadRequest 
Set UploadRequest = CreateObject("Scripting.Dictionary") 

BuildUploadRequest RequestBin 

'Exempel på hur man kan 'plocka ner' andra forumlärelement 
'email = UploadRequest.Item("email").Item("Value") 

contentType = UploadRequest.Item("blob").Item("ContentType") 
filepathname = UploadRequest.Item("blob").Item("FileName") 
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\\")) 
value = UploadRequest.Item("blob").Item("Value") 
**sokveg = UploadRequest.Item("blob").Item("sokveg")** 

'Create FileSytemObject Component 
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") 

'Create and Write to a File 
pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14 
' Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Request.ServerVariables("PATH_INFO")),pathEnd)&filename) 
**Set MyFile = ScriptObject.CreateTextFile(Server.mappath(""&sokveg&""&filename))** 

For i = 1 to LenB(value) 
MyFile.Write chr(AscB(MidB(value,i,1))) 
Next 

MyFile.Close 
Response.Write "\<script language=""Javascript""\>alert('Upload finished!');window.location='default.asp';\</script\>" 

%\>
\--------------

filen lägger sig inte i **frexuz\\** när jag skriver **..\\** i formen
denna filen ligger i **frexuz\\upload**
\--------------
om jag ändrar 

Set MyFile = ScriptObject.CreateTextFile(Server.mappath(""&sokveg&""&filename))

till

Set MyFile = ScriptObject.CreateTextFile(Server.mappath("../"&filename))

så funkar det

Permalänk: https://www.webforum.nu/p/84200

## #2 — solbulle, 2003-08-13T21:32Z

```
sokveg = UploadRequest.Item("sokveg").Item("Value")
```

```
Set MyFile = ScriptObject.CreateTextFile(Server.mappath(sokveg&filename))
```

Är det för eget bruk?
Tycker det verkar lite vankligt att folk kan ladda upp filer lite var som helst så att säga.
Som det är skrivet nu är ju risken att man missar att skriva in / hyfsat stor tycker jag, vilket kan medföra att filerna byter namn vid uppladdning.

Permalänk: https://www.webforum.nu/p/1138147

## #3 — Frexuz, 2003-08-13T21:54Z

ja, det e för eget bruk
bara 1 person som ska uploada

Permalänk: https://www.webforum.nu/p/1138159

## #4 — solbulle, 2003-08-13T21:57Z

Oki, ja då ska det väl fungera. :)

Permalänk: https://www.webforum.nu/p/1138160

## #5 — Frexuz, 2003-08-14T00:43Z

a. det funkar

Permalänk: https://www.webforum.nu/p/1138190

---

Tråden på webben: https://www.webforum.nu/amne/asp/84200-fel-i-upload