By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
459,282 Members | 1,526 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 459,282 IT Pros & Developers. It's quick & easy.

File uploading to server

P: n/a
M P
Can you help me find an asp code that will upload a file from my PC to web
server?

Mark
Jul 19 '05 #1
Share this Question
Share on Google+
4 Replies


P: n/a

Hi Mark, hereunder code for uploading. On www.dundas.com you find a very
good FREE upload component. This component can help you renaming and saving
the uploaded files. On www.aspfaq.com you can find more components (not
free)
<%
Session("sender")="upload.asp"
If Session("userId")="" then Response.redirect "login.asp"

Response.Write "<html>"

Response.Write "<header>"
Response.Write "<title>Fotoserver HSW-MVA Upload</title>"
Response.Write "<link rel=""stylesheet"" type=""text/css""
href=""common/css.inc"">"
Response.Write "</header>"
Response.Write "<body>"

Response.Write "<form method=""POST"" EncType=""Multipart/Form-Data""
name=""album"" action=""upload2.asp"">"
Response.Write "<table class=""button"">"
Response.Write "<tr><td>Aanbieder</td><td>" & session("userCompany") &
"</td></tr>"
Response.Write "<tr><td>Referentie</td><td><input type=""text"" name=""ref""
size=""10""></td></tr>"
Response.Write "</table>"
Response.Write "<table width=""760"" class=""button"" style=""border:#ffffff
1 solid"">"
Response.Write "<tr><td>Verslag</td><td><input class=""button""
type=""file"" name=""foto1"" size=""100""></td></tr>"
Response.Write "<tr><td>Foto 01</td><td><input class=""button""
type=""file"" name=""foto2"" size=""100""></td></tr>"
Response.Write "<tr><td>Foto 02</td><td><input class=""button""
type=""file"" name=""foto3"" size=""100""></td></tr>"
Response.Write "<tr><td>Foto 03</td><td><input class=""button""
type=""file"" name=""foto4"" size=""100""></td></tr>"
Response.Write "<tr><td>Foto 04</td><td><input class=""button""
type=""file"" name=""foto5"" size=""100""></td></tr>"
Response.Write "<tr><td>Foto 05</td><td><input class=""button""
type=""file"" name=""foto6"" size=""100""></td></tr>"
Response.Write "<tr><td>Foto 06</td><td><input class=""button""
type=""file"" name=""foto7"" size=""100""></td></tr>"
Response.Write "<tr><td>Foto 07</td><td><input class=""button""
type=""file"" name=""foto8"" size=""100""></td></tr>"
Response.Write "<tr><td>Foto 08</td><td><input class=""button""
type=""file"" name=""foto9"" size=""100""></td></tr>"
Response.Write "<tr><td>Foto 09</td><td><input class=""button""
type=""file"" name=""foto10"" size=""100""></td></tr>"
Response.Write "<tr><td>Foto 10</td><td><input class=""button""
type=""file"" name=""foto11"" size=""100""></td></tr>"
Response.Write "<tr><td>Foto 11</td><td><input class=""button""
type=""file"" name=""foto12"" size=""100""></td></tr>"
Response.Write "<tr><td>Foto 12</td><td><input class=""button""
type=""file"" name=""foto13"" size=""100""></td></tr>"
Response.Write "<tr><td>Foto 13</td><td><input class=""button""
type=""file"" name=""foto14"" size=""100""></td></tr>"
Response.Write "<tr><td>Foto 14</td><td><input class=""button""
type=""file"" name=""foto15"" size=""100""></td></tr>"
Response.Write "<tr><td>Foto 15</td><td><input class=""button""
type=""file"" name=""foto16"" size=""100""></td></tr>"
Response.Write "<tr><td>&nbsp</td><td><input class=""button""
type=""submit"" value=""Upload"" name=""B1""> <input class=""button""
type=""reset"" value=""Wissen"" name=""B2""></td></tr>"
Response.Write "</table>"
Response.Write "</form>"
Response.Write "</body></html>"
%>
Jul 19 '05 #2

P: n/a
This is the direct download link of Dundas.
http://aspalliance.com/dundas/default.aspx
Jul 19 '05 #3

P: n/a
On Tue, 3 Aug 2004 16:20:14 +0800, "M P" <ma**@textguru.ph> wrote:
Can you help me find an asp code that will upload a file from my PC to web
server?


This isn't a DB question, so I'm only answering in
microsoft.public.inetserver.asp.general...

FAQ:

How do I upload files from the client to the server?
http://www.aspfaq.com/show.asp?id=2189

Jeff
Jul 19 '05 #4

P: n/a
--- start upload.asp ---

<%
'################################################# ##########################
###
'# http://www.asp101.com/articles/jacob/scriptupload.asp
'################################################# ##########################
###
'
'***************************************
' File: Upload.asp
' Author: Jacob "Beezle" Gilley
' Email: av***@airmail.net
' Date: 12/07/2000
' Comments: The code for the Upload, CByteString,
' CWideString subroutines was originally
' written by Philippe Collignon...or so
' he claims. Also, I am not responsible
' for any ill effects this script may
' cause and provide this script "AS IS".
' Enjoy!
'****************************************

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

Public Sub SaveToDatabase(ByRef oField)
If LenB(FileData) = 0 Then Exit Sub

If IsObject(oField) Then
oField.AppendChunk FileData
End If
End Sub

Public function binary()
binary = FileData
End function
End Class
%>

--- koniec upload.asp ---


--- start : wykorzystanie w aplikacji ----

Dim Uploader, File
Set Uploader = New FileUploader
Uploader.Upload()

For Each File In Uploader.Files.Items
dim RS
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open "select foto from WYROBY where ID = " & admin_wyr_id,
application("shopman") , 2, 2

File.SaveToDatabase RS("foto")

' Commit the changes and close
RS.Update
RS.Close
Next

--- koniec : wykorzystanie w aplikacji ----



Jul 19 '05 #5

This discussion thread is closed

Replies have been disabled for this discussion.