---
title: "Upload till användare"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/13535-upload-till-användare"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "JonasT"
published: "2001-12-25T18:16:00.000Z"
updated: "2002-01-04T12:39:00.000Z"
replies: 16
views: 217
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/13535-upload-till-användare"
---

# Upload till användare

## #1 — JonasT, 2001-12-25T18:16Z

Hej!
Jag undrar om ngn kan hjälpa mig med ett upload script.
Jag har ett upload script som laddar upp filer till en speciel mapp.
Jag undrar hur man kan göra så att den laddar upp bilden till medlemms databasen.Alltså till den medlemmen som är inloggad...så att bilden kommer direkt upp till hans/hennes info
Skulle vara jätte tacksam för svar.

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

## #2 — webzonen, 2001-12-25T18:20Z

Såvitt jag vet kan du inte ladda upp bilder till databaser, men du kan alltid ladda upp adressen till medlemmes bild.

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

## #3 — Pace, 2001-12-25T18:22Z

Jo, det går med SQL Server (och eventuellt Access om jag inte minns fel). Men i det här fallet rör det sig om URL:en.

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

## #4 — JonasT, 2001-12-25T18:24Z

Ja, url:en. 
Hur gör jag för att spara url.en til bilden i användardatabasen?
Och till den användaren som är online

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

## #5 — JonasT, 2001-12-25T20:50Z

ingen som kan förklara för mig hur man sparar en url i en användar databas till den inloggade användaren?
tacksam för svar

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

## #6 — nill, 2001-12-25T20:59Z

Jag tycker det är lättare att bilden som användaren laddar upp döps om till användarens ID i databasen..  

Då behöver du ju bara länka bilden på användarens information som   "bilder/\<%=RecSet("ID")%\>.jpg"

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

## #7 — JonasT, 2001-12-25T21:03Z

Ja,det skulle bli perfekt....om någon skulle kunna lösa det med ltie kod skulle jag vara jätte tacksam

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

## #8 — nill, 2001-12-25T22:33Z

vilken kod är det du vill ha ?    till själva uploadandet eller ALLT jag har :)

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

## #9 — JonasT, 2001-12-25T23:00Z

Jag har ett upload script. Men det kanske blir svårt att fixa ihop din kod med det, så jag vore jätte tacksam om du kunde skriva hela koden till allt:)

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

## #10 — nill, 2001-12-25T23:05Z

Okaj, här kommer det jag använder:

Kod för att visa bilden:

		\<%
		Dim Bild
		Set fs = Server.CreateObject("Scripting.FileSystemObject")
		If fs.FileExists(Server.MapPath("\\klass\\pic\\users\\") & "\\" & Session("userID") & ".jpg") = True Then
			Bild = "/klass/pic/users/" & Session("userID") & ".jpg"
		Else
			Bild = "\\klass\\pic\\user_default.gif"
		End If
		%\>
		\<IMG SRC="\<%=Bild%\>" HEIGHT="277" WIDTH="199" STYLE="border: 2px solid #8890A8; margin: 10px;"\>

Kod för att välja fil som ska laddas upp:

\<FORM METHOD="post" ENCTYPE="multipart/form-data" ACTION="uploadaction.asp" STYLE="position: absolute; top: 1075px; left: 332px; z-index: 11;"\>

		\<P\>
		\<SPAN CLASS="blur"\>Bildens Plats:\</SPAN\>\<BR\>
		\<INPUT TYPE="file" SIZE="20" NAME="FILE1" CLASS="input"\>
		\<P\>

		\<input type="submit" value="Uploada" CLASS="input" STYLE="font-weight: 900;"\>\<BR\>

	\</FORM\>

uploadaction.asp

\<%@ Language=VBScript %\>

\<!-- #include file="upload.asp" --\>
\<%
' On Error Resume Next
' Create the FileUploader
Dim Uploader, File
Set Uploader = New FileUploader

' Start upload
Uploader.Upload()
If not Uploader.Files.Count = 0 Then
	For Each File In Uploader.Files.Items
		' Save the file
		strFileName = File.FileName

		strFileExtension = Right(strFileName,Len(strFileName)-InStrRev(strFileName, "."))

		File.FileName = Session("userID") & ".jpg"

		Call File.SaveToDisk(server.mappath("/") &"\\klass\\pic\\users\\") 

		If not lCase(strFileExtension) = "jpg" OR File.FileSize \> 20480 Then

			Set fso = Server.CreateObject("Scripting.FileSystemObject")
			fso.DeleteFile(server.mappath("/") &"\\klass\\pic\\users\\" & File.FileName)
			%\>\<!-- #include virtual="/klass/layout1.asp" --\>\<%
			Response.Write "Den uppladdade filen var avfel typ eller för stor. Den är nu raderad. Försök igen!\<P\>\<A HREF=""javascript:history.go(-1);""\>\<B\>\<\<\< Tillbaka\</B\>\</A\>"
			%\>\<!-- #include virtual="/klass/layout2.asp" --\>\<%
		Else
			Response.Redirect "profil.asp?pyssel=info#fragor"
		End If
	Next

End If

%\>

upload.asp

\<%
Class FileUploader
	Public  Files
	Private mcolFormElem

	Private Sub Class_Initialize()
		Set Files = Server.CreateObject("Scripting.Dictionary")
		Set mcolFormElem = Server.CreateObject("Scripting.Dictionary")
	End Sub
	
	Private Sub Class_Terminate()
		If IsObject(Files) Then
			Files.RemoveAll()
			Set Files = Nothing
		End If
		If IsObject(mcolFormElem) Then
			mcolFormElem.RemoveAll()
			Set mcolFormElem = Nothing
		End If
	End Sub

	Public Property Get Form(sIndex)
		Form = ""
		If mcolFormElem.Exists(LCase(sIndex)) Then Form = mcolFormElem.Item(LCase(sIndex))
	End Property

	Public Default Sub Upload()
		Dim biData, sInputName
		Dim nPosBegin, nPosEnd, nPos, vDataBounds, nDataBoundPos
		Dim nPosFile, nPosBound

		biData = Request.BinaryRead(Request.TotalBytes)
		nPosBegin = 1
		nPosEnd = InstrB(nPosBegin, biData, CByteString(Chr(13)))
		
		If (nPosEnd-nPosBegin) \<= 0 Then Exit Sub
		 
		vDataBounds = MidB(biData, nPosBegin, nPosEnd-nPosBegin)
		nDataBoundPos = InstrB(1, biData, vDataBounds)
		
		Do Until nDataBoundPos = InstrB(biData, vDataBounds & CByteString("--"))
			
			nPos = InstrB(nDataBoundPos, biData, CByteString("Content-Disposition"))
			nPos = InstrB(nPos, biData, CByteString("name="))
			nPosBegin = nPos + 6
			nPosEnd = InstrB(nPosBegin, biData, CByteString(Chr(34)))
			sInputName = CWideString(MidB(biData, nPosBegin, nPosEnd-nPosBegin))
			nPosFile = InstrB(nDataBoundPos, biData, CByteString("filename="))
			nPosBound = InstrB(nPosEnd, biData, vDataBounds)
			
			If nPosFile \<\> 0 And  nPosFile \< nPosBound Then
				Dim oUploadFile, sFileName
				Set oUploadFile = New UploadedFile
				
				nPosBegin = nPosFile + 10
				nPosEnd =  InstrB(nPosBegin, biData, CByteString(Chr(34)))
				sFileName = CWideString(MidB(biData, nPosBegin, nPosEnd-nPosBegin))
				oUploadFile.FileName = Right(sFileName, Len(sFileName)-InStrRev(sFileName, "\\"))

				nPos = InstrB(nPosEnd, biData, CByteString("Content-Type:"))
				nPosBegin = nPos + 14
				nPosEnd = InstrB(nPosBegin, biData, CByteString(Chr(13)))
				
				oUploadFile.ContentType = CWideString(MidB(biData, nPosBegin, nPosEnd-nPosBegin))
				
				nPosBegin = nPosEnd+4
				nPosEnd = InstrB(nPosBegin, biData, vDataBounds) - 2
				oUploadFile.FileData = MidB(biData, nPosBegin, nPosEnd-nPosBegin)
				
				If oUploadFile.FileSize \> 0 Then Files.Add LCase(sInputName), oUploadFile
			Else
				nPos = InstrB(nPos, biData, CByteString(Chr(13)))
				nPosBegin = nPos + 4
				nPosEnd = InstrB(nPosBegin, biData, vDataBounds) - 2
				If Not mcolFormElem.Exists(LCase(sInputName)) Then mcolFormElem.Add LCase(sInputName), CWideString(MidB(biData, nPosBegin, nPosEnd-nPosBegin))
			End If

			nDataBoundPos = InstrB(nDataBoundPos + LenB(vDataBounds), biData, vDataBounds)
		Loop
	End Sub

	'String to byte string conversion
	Private Function CByteString(sString)
		Dim nIndex
		For nIndex = 1 to Len(sString)
		   CByteString = CByteString & ChrB(AscB(Mid(sString,nIndex,1)))
		Next
	End Function

	'Byte string to string conversion
	Private Function CWideString(bsString)
		Dim nIndex
		CWideString =""
		For nIndex = 1 to LenB(bsString)
		   CWideString = CWideString & Chr(AscB(MidB(bsString,nIndex,1))) 
		Next
	End Function
End Class

Class UploadedFile
	Public ContentType
	Public FileName
	Public FileData
	
	Public Property Get FileSize()
		FileSize = LenB(FileData)
	End Property

	Public Sub SaveToDisk(sPath)
		Dim oFS, oFile
		Dim nIndex
	
		If sPath = "" Or FileName = "" Then Exit Sub
		If Mid(sPath, Len(sPath)) \<\> "\\" Then sPath = sPath & "\\"
	
		Set oFS = Server.CreateObject("Scripting.FileSystemObject")
		If Not oFS.FolderExists(sPath) Then Exit Sub
		
		Set oFile = oFS.CreateTextFile(sPath & FileName, True)
		
		For nIndex = 1 to LenB(FileData)
		    oFile.Write Chr(AscB(MidB(FileData,nIndex,1)))
		Next

		oFile.Close
	End Sub
End Class
%\>

Hoppas du fixar det :)

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

## #11 — JonasT, 2001-12-25T23:37Z

ojojoj vad rörigt det blev....har du icq eller msn...så kan jag fråga dig om jag stötr på ngt fel..lite onödigt att ta det här i forumet.

\[Redigerat av JonasT den 26 dec 2001\]

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

## #12 — nill, 2001-12-25T23:39Z

de två första kodstyckena  klistrar du in på din sida. Gå igenom koden noggrant så förstår du förhoppningsvis vad den gör.

3:e kodstycket heter som jag skrivit uploadaction.asp    och det fjärde (långa) heter upload.asp

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

## #13 — JonasT, 2001-12-25T23:43Z

Har du icq eller msn??som jag kn kontakta dig genom?

\[Redigerat av JonasT den 26 dec 2001\]

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

## #14 — nill, 2001-12-25T23:59Z

Grr..   
och vanligtvis brukar det vara jag som ställer frågorna här :)
ICQ: 6195444

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

## #15 — age, 2002-01-03T09:42Z

Detta script låter lysande, det jag ska göra är att göra om ett annonssystem så du kan lägga till bild med annonsen, undrar om man kan använda ditt script i samband med annonsen.

Eller om du Nil har någon annonsforum färdigt med bild till annonsen

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

## #16 — steffen, 2002-01-04T09:23Z

> har du icq eller msn...så kan jag fråga dig om jag stötr på ngt fel..lite onödigt att ta det här i forumet.

Hmm, tycker inte jag, vore skoj och se hursomhelst. Vitsen med ett forum som det här måste väl vara att hålla diskussionerna allmänna eller? :)

\[Redigerat av steffen den 04 jan 2002\]

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

## #17 — ConnyFox, 2002-01-04T12:39Z

Jag letar själv efter ett script som skall göra detta, alltså ladda upp bild och döpa om den till användarens ID.. Utan resultat, och detta fick jag alldrig änns att funka riktigt. =(

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/13535-upload-till-användare