---
title: "Uploadscript utan komponent"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/46131-uploadscript-utan-komponent/page2"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "OveRRidE"
published: "2002-06-18T07:09:05.000Z"
updated: "2007-09-04T23:17:00.000Z"
replies: 307
views: 16839
page: 2
pages: 16
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/46131-uploadscript-utan-komponent"
---

# Uploadscript utan komponent

_Sida 2 av 16._

## #21 — solbulle, 2002-06-25T19:17Z

Du har outputfile.asp som innehåller kodraderna:

```
'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(filename))

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

MyFile.Close
```

Skulle tro att det är den biten som skall omgärdas av din If-sats (som typ den högre upp på sidan.)

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

## #22 — crisse6, 2002-06-25T19:19Z

vems fråga svarar du på?

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

## #23 — solbulle, 2002-06-25T19:25Z

Din...

refererar till denna del: <http://www.webforum.nu/showthread.php?s=&postid=377242#post377242>

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

## #24 — crisse6, 2002-06-25T19:50Z

fick ordning på strl så den måste hålla 50 kb, men jag får inte ordning på hur jag ska skriva för att kolla om filen som laddas ipp är en zip fil????

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

## #25 — crisse6, 2002-06-25T20:04Z

försöker föra in sökvägen till filen i en databas, men icke:

```
<%
Response.Expires=0
Response.Buffer = TRUE
Response.Clear
'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")

'Create FileSytemObject Component
  If byteCount<=50000 THEN

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(filename))

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

MyFile.Close

response.write "<b>Filens sökväg:</b> " & Server.mappath(filename) & "<br>"
response.write "<b>Filnamn:</b> " & filename & "<br><br>"
response.write "<img src=""" & filename & """>"

Datum = Now
SQL = "INSERT INTO script_upload ([namn], [datum], [av], [typ], [filnamn]) VALUES('" & Request.Form("namn") & "',#"& Datum &"#,'crisse6','" & Request.form("typ") & "'," & filename & ")"
Databas.Execute(SQL)

else
response.write "Du har antingen en fil som inte har filändelse .jpg eller så är den större än 50 kb."
end if
%>
```

får felmess:

```
Request object error 'ASP 0207 : 80004005' 

Cannot use Request.Form 

/upload/outputfile.asp, line 54 

Cannot use Request.Form collection after calling BinaryRead
```

fattar nada just nu!

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

## #26 — solbulle, 2002-06-25T20:52Z

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

 mao kan du INTE som ditt felmess säger använda Request.Form collection...

Filtypen:

> If contentType="image/pjpeg" THEN

testa att skriv zip istället, fungerar inte det, kör en response.write contenType  när du laddar upp en zipfil så får du direkt reda på vad du ska skriva in.

:)

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

## #27 — crisse6, 2002-06-25T20:55Z

vad ska jag göra då då med mina forms???

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

## #28 — solbulle, 2002-06-25T21:10Z

Du gör som i exemplet jag citerade från din fil!

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

Placeras i koden där Exemplet är placerat!
Gör likadant med andra fält du egentligen skulle använt request.form på.

Sen din sqlsats:

```
SQL = "INSERT INTO script_upload ([namn], [datum], [av], [typ], [filnamn]) VALUES('" & namn & "',#"& Datum &"#,'crisse6','" & Request.form("typ") & "'," & filename & ")"
```

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

## #29 — crisse6, 2002-06-26T10:13Z

```
Microsoft VBScript runtime error '800a01a8' 

Object required: '[undefined]' 

/upload/outputfile.asp, line 52
```

möts jag med efter denna kod...

```
namn= UploadRequest.Item("namn").Item("Value") 
typ= UploadRequest.Item("typ").Item("Value") 

Datum = Now
SQL = "INSERT INTO script_upload ([namn], [datum], [av], [typ], [filnamn]) VALUES('" & namn & "',#"& Datum &"#,'crisse6','" & typ & "'," & filename & ")"
Databas.Execute(SQL)

else
response.write "Du har antingen en fil som inte har filändelse .jpg eller så är den större än 50 kb."
end if
```

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

## #30 — solbulle, 2002-06-26T10:23Z

> Placeras i koden där Exemplet är placerat!

...

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

## #31 — crisse6, 2002-06-26T10:41Z

gött hejdå, önskar att man kunde få hjälp, istället för att inte få det

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

## #32 — OveRRidE, 2002-06-26T11:01Z

Nu skall vi inte sura ner oss här. :)

Hur ser din SQL-sats ut? 

```
response.write SQL
```

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

## #33 — solbulle, 2002-06-26T11:07Z

Det jag menar är att du måste placera:

```
namn= UploadRequest.Item("namn").Item("Value") 
typ= UploadRequest.Item("typ").Item("Value")
```

typ på den plats som de liknande raderna är placerade på i exemplet, INNAN du kör:

```
MyFile.Close
```

som jag tycker det förefaller som om du gjort.

> Placeras i koden där Exemplet är placerat!

Var väl en ganska bra hjälp tycker jag no.

För övrigt får jag väl be om ursäkt för att man försöker hjälpa till :(

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

## #34 — crisse6, 2002-06-26T11:20Z

solbulle, jag menar inte att din hjälp är inte är till ngn nytta, utan tycker bara att du borde förklara lite bättre ;)

Jag får inte ordning på det hela, om någon vill så får dom gärna lägga in kod snuttarna där dom ska vara i min kod, min kod finns i tidigare inlägg. 

tack.

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

## #35 — solbulle, 2002-06-26T11:43Z

```
<%
Response.Expires=0
Response.Buffer = TRUE
Response.Clear
'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")
[b]
namn= UploadRequest.Item("namn").Item("Value") 
typ= UploadRequest.Item("typ").Item("Value")[/b] 
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")

'Create FileSytemObject Component
  If byteCount<=50000 THEN

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(filename))

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

MyFile.Close

response.write "<b>Filens sökväg:</b> " & Server.mappath(filename) & "<br>"
response.write "<b>Filnamn:</b> " & filename & "<br><br>"
response.write "<img src=""" & filename & """>"

Datum = Now
SQL = "INSERT INTO script_upload ([namn], [datum], [av], [typ], [filnamn]) VALUES('" & namn & "',#"& Datum &"#,'crisse6','" & typ & "'," & filename & ")"
Databas.Execute(SQL)

else
response.write "Du har antingen en fil som inte har filändelse .jpg eller så är den större än 50 kb."
end if
%>
```

Notera dock att denna kod saknar väl iofs den del med filkollen som du lagt till, men där det är fet text tror jag du ska placera dina requests.

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

## #36 — klementin, 2002-06-28T22:07Z

Måste bara få säga att detta skript rockar FETT! Grymt bra jobbat :-). Nu slipper jag köra ASPUpload som Telia har på sin webb tjänst. Tack!

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

## #37 — sin_adec, 2002-06-29T10:20Z

Flera upload

men vad ska man ändra om man vill göra flera upload samtidigt...

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

## #38 — crisse6, 2002-06-30T11:58Z

```
Microsoft VBScript runtime error '800a01a8' 

Object required: '[undefined]' 

/upload/outputfile.asp, line 28
```

rad 28,

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

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

## #39 — solbulle, 2002-06-30T12:02Z

Du måste ha ett fält i ditt formulär med namnet: namn

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

## #40 — crisse6, 2002-07-03T17:17Z

hmm.... har fått den att lagra info i db.n, men nu när jag ska checka om fälten har värde så verkar det bli fel?! eller så är det något annat som strular... kolla koden:

```
<%
Response.Expires=0
Response.Buffer = TRUE
Response.Clear
'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")

namn= UploadRequest.Item("namn").Item("Value") 
typ= UploadRequest.Item("typ").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")

If "& namn &" = "" OR "& typ &" = "" then
response.write "Du måste välja en fil, skriva ett namn och välja typ av programmeringsspråk!"
end if

'Create FileSytemObject Component
  If byteCount<=50000 THEN

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(filename))

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

MyFile.Close

response.write "<font face=Verdana size=1>Din fil är upladdad utan problem!<br><br></font>"
response.write "<font face=Verdana size=1><a href=javascript:window.close()>Stäng</a></font>"

Datum = Now
SQL = "INSERT INTO script_upload ([namn], [datum], [av], [typ], [filnamn]) VALUES('" & namn & "',#"& Datum &"#,'" & session("anvandarnamn") & "','" & typ & "','" & filename & "')"
Databas.Execute(SQL)

else
response.write "Du har antingen en fil som inte har filändelse .jpg eller så är den större än 50 kb."
end if
%>
```

fel:

```
Server.MapPath() error 'ASP 0171 : 80004005' 

Missing Path 

/upload/outputfile.asp, line 47 

The Path parameter must be specified for the MapPath method
```

47:

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

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/46131-uploadscript-utan-komponent/page2  
Föregående sida: https://www.webforum.nu/amne/asp/46131-uploadscript-utan-komponent.md  
Nästa sida: https://www.webforum.nu/amne/asp/46131-uploadscript-utan-komponent/page3.md