Storing a graphic to a database via an ASP

[Kornifica]

Urgent query on VBscripting and databases..

Ive got an asp that allows user to enter certain records into a ms access database. Pretty standard stuff. However, i also have to allow these users to store graphic files along with their records.

Its like this.. On my website, a user has an equipment for sale and enters its description and price so that it can be displayed to other users (via a table display of the equipment records in my database).

How do i also allow other users to see a picture of the equipment that the original user had posted? Is there a way to link a record in a database (ms access) to a graphic file (*.bmp) ? Im totally new at all this and i need all the help i can get

*i hope i dont sound too confusing*

[adeelahmed]

Hi

this is easy but you got to do few things for that.

1. in you database add a field for graphics file name.
2. add a file field in your form from which user can upload picture.


when ever a user submit this form all the information like his name ..... , graphics file what ever (jpeg, gif, or bmp) will be submitted in your databse. like
the graphics file will store in a specif folder (which you got to define).
and also the name of this graphics file will add in your database with the user information.


i think it help.

but if you have still some problem and you want complete code for that then let me know.

[Kornifica]

Ok i get the idea.. So i store the address of the stored graphic in a database and store the graphics in a specified folder.. How do u write the code for the Uploading?
The complete code would be really helpful, thanks cuz im still stuck on it..

[adeelahmed]

Hi

for uploading a file using ASP u got to use a third party software

plz visit http://www.softartisans.com
for free evaluation softwares



i've attached a file by which u can get a better idea abt How u can retrieve a picture from database with the userinfor who has uploaded it.

[Kornifica]

Thank you so much for your help

Though is there a way not to do it without unsing the uploading software from softartisans?

[Mahfooz]

You can upload file to the specific folder at the server using pure asp code .. no third party control is needed. If you need it, i can send you the code.

[adeelahmed]

hiya

Kornifica

you can absolutely upload a file without using any 3rd pary tool


visit this url to get whole code!!!

http://msdn.microsoft.com/library/en...asp?frame=true

[Kornifica]

thanks guys for the help
mahfooz.. can i take a look at your code too?

[CMangano]

Here is a link to an ASP upload script:

Pure ASP Upload Script

[sail3005]

man, people ask this question all the time...we need a faq

[eimroda]

here, you can use this pure ASP code to upload files.... I got this from one of the articles in a vb website (sorry i forgot where i get it)... it works... i have already tried it!

[jovton]

Originally posted by CMangano
Here is a link to an ASP upload script:

Pure ASP Upload Script

Uhhhhhhmmmmmmm.... where's the library?

[sebs]

here's one that works for sure

i am using it in 3 site at the moment

jus don't forget to your form to

enctype="multipart/form-data" ACTION="upLoad.asp" METHOD="POST"

and another thing, with this code, you can use request(""),

because in vbscrpt after you use Request.BinaryRead
you can user the request collection no more!!

here the code for upload

<!--#INCLUDE FILE="uploadFunctions.asp" -->
<%
    Dim tBytes
    Dim binData
    Dim Dict
    Dim fileName
    Dim fso
    Dim fsoFile
    Dim binaryFileContent
    Dim i

    tBytes = Request.TotalBytes
    binData = Request.BinaryRead(tBytes)
    Set Dict = BuildUploadRequest(binData)
    fileName = Dict.Item("fName").Item("FileName")
    binaryFileContent = Dict.Item("fName").Item("Value")
    fileName = ParseFileFromPath(fileName)
    picName=fileName
    fileName = Server.MapPath("../images/shirt/big/" & fileName)
    session("resumePath")=fileName
    '==constructing the filepath of the root
    '     on server 
    Set fso = Server.CreateObject("Scripting.FileSystemObject")
    Set fsoFile = fso.CreateTextFile(fileName, True)
    For i = 1 To LenB(binaryFileContent)
    fsoFile.Write Chr(AscB(MidB(binaryFileContent, i, 1)))
    Next 
    fsoFile.Close
    Set fso = Nothing
    '====== You are done!
    '====== You should have read/write permi
    '     ssions for the server directory where yo
    '     u save your file

here's the upload functions

<%
    function getString(StringBin)
    getString =""
    For intCount = 1 To LenB(StringBin)
    getString = getString & chr(AscB(MidB(StringBin,intCount,1))) 
    Next
    End function
    
    function getByteString(StringStr)
    For i = 1 To Len(StringStr)
    char = Mid(StringStr, i, 1)
    getByteString = getByteString & chrB(AscB(char))
    Next
    End function
    
    function BuildUploadRequest(RequestBin)
    	Dim scrDict
    	Set scrDict = Server.CreateObject("Scripting.Dictionary")
    PosBeg = 1
    PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))
    boundary = MidB(RequestBin,PosBeg,PosEnd-PosBeg)
    boundaryPos = InstrB(1,RequestBin,boundary)
    Do until (boundaryPos=InstrB(RequestBin,boundary & getByteString("--")))
    Dim UploadControl
    Set UploadControl = CreateObject("Scripting.Dictionary")
    Pos = InstrB(BoundaryPos,RequestBin, getByteString("Content-Disposition"))
    Pos = InstrB(Pos,RequestBin,getByteString("name="))
    PosBeg = Pos+6
    PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(34)))
    Name = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
    PosFile=InstrB(BoundaryPos,RequestBin,getByteString("filename="))
    PosBound = InstrB(PosEnd,RequestBin,boundary)
    if PosFile<>0 AND (PosFile<PosBound) Then
    			PosBeg = PosFile + 10
    			PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(34)))
    			FileName = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
    			UploadControl.Add "FileName", FileName
    			Pos = InstrB(PosEnd,RequestBin,getByteString("Content-Type:"))
    			PosBeg = Pos+14
    			PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))
    			ContentType = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
    			UploadControl.Add "ContentType",ContentType
    			PosBeg = PosEnd+4
    			PosEnd = InstrB(PosBeg,RequestBin,boundary)-2
    			Value = MidB(RequestBin,PosBeg,PosEnd-PosBeg)
    	Else
    			Pos = InstrB(Pos,RequestBin,getByteString(chr(13)))
    			PosBeg = Pos+4
    			PosEnd = InstrB(PosBeg,RequestBin,boundary)-2
    			Value = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
    	End if
    		UploadControl.Add "Value" , Value
    		scrDict.Add Name, UploadControl
    BoundaryPos=InstrB(BoundaryPos+LenB(boundary),RequestBin,boundary)
    Loop
    	
    	Set BuildUploadRequest = scrDict
    	Set scrDict = Nothing
    	
    End function
    
    function ParseFileFromPath(iStr)
    Dim tPos
    tPos = InStrRev(iStr, "\")
    if tPos = 0 Or IsNull(tPos) Then
    ParseFileFromPath = iStr
    Exit function
    End if
    ParseFileFromPath = Right(iStr, Len(iStr) - tPos)
    End function
    %>

[CMangano]

Very bottom of the article:

"You can download the library and sample files here"

[jovton]

I know, coz I have downloaded it, but the zip does not contain any library files in it. Only asp, txt, and htm files. no dll, no nottin.

Have I perhaps downloaded the wrong file? Heheheh. Maybe.
But no, I'm sure that its the right file. Yes. it must be, coz, it is the same url you gave me.

[CMangano]

It is a pure ASP script, no dlls.

[sail3005]

thanks for that upload, i have been wanting one of those for a long time

[Radames]

You all should go to stardeveloper.com/databases.asp
This dude has a shtload of cool examples including one that uploads the picture directly to the database.

[CMangano]

Personally I don't feel that images should be stored directly in the database. I prefer to store the path to the image, then store the image on the file server.

I will take a look at the site though, always looking for new information

[Radames]

Can the picture reside in the web server by itself or must I hace a file server?

[jesus4u]

ok I have tried the 2 downloads that are posted here and all that happens when I try to upload on my local machine is that the page hangs...

any ideas?

[sebs]

mine works jesus4u!!change

fileName = Server.MapPath("../images/shirt/big/" & fileName)

to a valid path

that is the one i use on our site to upload resume

[jesus4u]

ok I didn't use yours cause I am a simple man and I didn't see the interface but I will give it a go!

[jesus4u]

sebs is ur code posting to itself or do I create another page?

[sebs]

well,
in total there is 3 pages,

one with your form(with the upload button)
one that your form is submitted to,
and a third one(asp functions) that is included in the previous one,
so you only see one,

but if you want , you can make it submit to itself, no problemo!

hope it help you, if you have any problem just ask,
cause it work perfectly,i use it in 3 site at this moment!!

see ya!

[jesus4u]

thanks

[Radames]

OK I want to do what is said above and have the picture in a folder but the path in a database. If the visitor uploads the picture, how do I 'grab' the filename and store in in the database?

[sebs]

if you take my mine,


this line is your filename
fileName = ParseFileFromPath(fileName)

here the file path, you can put your own, just make the folder before
fileName = Server.MapPath("../images/shirt/big/" & fileName)

[Radames]

No, what I meant was, that the picture is stored on a folder but I want the name of the picture, for example "pic23.gif" to be stored in a database field, so then I can reference to it.

[sebs]

don't forget to put this to your form

enctype="multipart/form-data"

and it should work