/ Forside / Teknologi / Udvikling / ASP / Nyhedsindlæg
Login
Glemt dit kodeord? 		Brugernavn

Kodeord


Reklame
Top 10 brugere
ASP
#NavnPoint
1  smorch 9259
2  Harlekin 1866
3  molokyle 1040
4  Steffanst.. 758
5  gandalf 657
6  smilly 564
7  gibson 560
8  cumano 530
9  MouseKeep.. 480
10  Random 410
ASPupload
Fra : Klaus Egebjerg

Dato : 19-06-02 20:09
Hej

Jeg har lavet en mulighed for at oploade et billede på min side. Det virker
også meget godt med nedenstående script. Nu er mit spørgsmål så, hvordan jeg
fanger filnavnet, som jeg vil kaste ind i en Access DB. Jeg har forsøgt med
følgende: (uden held)

strFile = Trim(Request.Form("File"))

Mvh
Klaus

Scriptet ser således ud:

HTML>
<BODY BGCOLOR="#FFFFFF">
<FORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="upload.asp"
id=form2 name=form2>


<INPUT TYPE="FILE" SIZE="40" NAME="File"><BR>
<INPUT TYPE=SUBMIT VALUE="Upload!" NAME="UPLOAD">



<%
strFile = Trim(Request.Form("File"))
nId = Trim(Request.QueryString("Id"))
%>
</form>
<%
Select Case Trim(Request.Form("DO"))
Case "UPLOAD"
Set Upload = Server.CreateObject("Persits.Upload")
Count = Upload.Save("d:\web\brygladen.dk\import")
End Select

Dim Conn
function OpenConn (DBName)

Set Conn = Server.CreateObject("ADODB.Connection")
ODBCpath = left(request.ServerVariables("PATH_TRANSLATED"),
instrrev(request.ServerVariables("PATH_TRANSLATED"), "\"))
Conn.Open "DBQ=" & ODBCpath & DBName & ";DefaultDir=" & ODBCpath &
";Driver={Microsoft Access Driver (*.mdb)}"

End function

OpenConn("opskrift.mdb")

strQ = "UPDATE oversigt SET Billede ='"&strFile&"' WHERE Id = " & nId &
""

Conn.Execute(strQ)
Conn.Close
Set rs = Nothing
Set Conn = Nothing

%>
</FORM>
</BODY>
</HTML>




 
 
Christian M. Nielsen (19-06-2002)
Kommentar
Fra : Christian M. Nielsen

Dato : 19-06-02 20:29
"Klaus Egebjerg" <klausegebjerg@get2net.dk> wrote in message
news:oK4Q8.66364$N46.2117010@news010.worldonline.dk...
> Hej
>
> Jeg har lavet en mulighed for at oploade et billede på min side. Det
virker
> også meget godt med nedenstående script. Nu er mit spørgsmål så, hvordan
jeg
> fanger filnavnet, som jeg vil kaste ind i en Access DB. Jeg har forsøgt
med
> følgende: (uden held)


Jeg bruger følgende med min ASP upload af billeder. Klip det fra du ikke
skal bruge.
Håber (og tror) du kan bruge det

***************

Dim strImageID, strNewsID, strImageName, strImageSize, strImageWidth,
strImageHeight

Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.SaveVirtual("../images/")

For Each File in Upload.Files

strImageName = File.ExtractFileName
strImageSize = File.OriginalSize
strImageWidth = File.ImageWidth
strImageHeight = File.ImageHeight

Next

For Each File in Upload.Files

File.ToDatabase Session("DB1"), "INSERT INTO tbl_Image (ImageName,
ImageSize, ImageWidth, ImageHeight) VALUES ('" & strImageName & "', '" &
strImageSize & "', '" & strImageWidth & "', '" & strImageHeight & "' )"

Next


********************

--

Mvh / Regards

-=< Christian >=-
ICQ: 25308942
http://www.cmnielsen.dk
Are you supposed to gain weight if you run backwards??



Steen Ulrick Madsen (20-06-2002)
Kommentar
Fra : Steen Ulrick Madsen

Dato : 20-06-02 10:49
"Klaus Egebjerg" <klausegebjerg@get2net.dk> skrev i en meddelelse
news:oK4Q8.66364$N46.2117010@news010.worldonline.dk...
> Hej
>
> Jeg har lavet en mulighed for at oploade et billede på min side. Det
virker
> også meget godt med nedenstående script. Nu er mit spørgsmål så, hvordan
jeg
> fanger filnavnet, som jeg vil kaste ind i en Access DB. Jeg har forsøgt
med
> følgende: (uden held)
>
> strFile = Trim(Request.Form("File"))
>
> Mvh
> Klaus
>
> Scriptet ser således ud:
>
> HTML>
> <BODY BGCOLOR="#FFFFFF">
> <FORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="upload.asp"
> id=form2 name=form2>
>
>
> <INPUT TYPE="FILE" SIZE="40" NAME="File"><BR>
<snip>

Prøv med:

<INPUT TYPE="TEXT" SIZE="40" NAME="File"><BR>

Så tror jeg det virker.

Mvh Steen




Klaus Egebjerg (20-06-2002)
Kommentar
Fra : Klaus Egebjerg

Dato : 20-06-02 18:54

"Steen Ulrick Madsen" <sum-filter-@sumnet.dk> wrote in message
news:aes8d9$2rqi$1@news.cybercity.dk...
> "Klaus Egebjerg" <klausegebjerg@get2net.dk> skrev i en meddelelse
> news:oK4Q8.66364$N46.2117010@news010.worldonline.dk...
> > Hej
> >
> > Jeg har lavet en mulighed for at oploade et billede på min side. Det
> virker
> > også meget godt med nedenstående script. Nu er mit spørgsmål så, hvordan
> jeg
> > fanger filnavnet, som jeg vil kaste ind i en Access DB. Jeg har forsøgt
> med
> > følgende: (uden held)
> >
> > strFile = Trim(Request.Form("File"))
> >
> > Mvh
> > Klaus
> >
> > Scriptet ser således ud:
> >
> > HTML>
> > <BODY BGCOLOR="#FFFFFF">
> > <FORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="upload.asp"
> > id=form2 name=form2>
> >
> >
> > <INPUT TYPE="FILE" SIZE="40" NAME="File"><BR>
> <snip>
>
> Prøv med:
>
> <INPUT TYPE="TEXT" SIZE="40" NAME="File"><BR>
>
> Så tror jeg det virker.
>
> Mvh Steen
>
> Nej for så får jeg ikke min browse knappe.

Andre forslag ?

Mvh
Klaus

>



Marten Ølgaard (21-06-2002)
Kommentar
Fra : Marten Ølgaard

Dato : 21-06-02 15:00
For det meste skal man ikke bruge "request.form", men deriomod
"mitUploadObj.form" for at hente værdierne fra form feltet

Du kan sikkert læse mere i dokumentationen for upload komponentet.


/Marten



"Klaus Egebjerg" <klausegebjerg@get2net.dk> wrote in message
news:oK4Q8.66364$N46.2117010@news010.worldonline.dk...
> Hej
>
> Jeg har lavet en mulighed for at oploade et billede på min side. Det
virker
> også meget godt med nedenstående script. Nu er mit spørgsmål så, hvordan
jeg
> fanger filnavnet, som jeg vil kaste ind i en Access DB. Jeg har forsøgt
med
> følgende: (uden held)
>
> strFile = Trim(Request.Form("File"))
>
> Mvh
> Klaus
>
> Scriptet ser således ud:
>
> HTML>
> <BODY BGCOLOR="#FFFFFF">
> <FORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="upload.asp"
> id=form2 name=form2>
>
>
> <INPUT TYPE="FILE" SIZE="40" NAME="File"><BR>
> <INPUT TYPE=SUBMIT VALUE="Upload!" NAME="UPLOAD">
>
>
>
> <%
> strFile = Trim(Request.Form("File"))
> nId = Trim(Request.QueryString("Id"))
> %>
> </form>
> <%
> Select Case Trim(Request.Form("DO"))
> Case "UPLOAD"
> Set Upload = Server.CreateObject("Persits.Upload")
> Count = Upload.Save("d:\web\brygladen.dk\import")
> End Select
>
> Dim Conn
> function OpenConn (DBName)
>
> Set Conn = Server.CreateObject("ADODB.Connection")
> ODBCpath = left(request.ServerVariables("PATH_TRANSLATED"),
> instrrev(request.ServerVariables("PATH_TRANSLATED"), "\"))
> Conn.Open "DBQ=" & ODBCpath & DBName & ";DefaultDir=" & ODBCpath &
> ";Driver={Microsoft Access Driver (*.mdb)}"
>
> End function
>
> OpenConn("opskrift.mdb")
>
> strQ = "UPDATE oversigt SET Billede ='"&strFile&"' WHERE Id = " & nId &
> ""
>
> Conn.Execute(strQ)
> Conn.Close
> Set rs = Nothing
> Set Conn = Nothing
>
> %>
> </FORM>
> </BODY>
> </HTML>
>
>
>



Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408849
Brugere : 218887
Månedens bedste
Årets bedste
Sidste års bedste
Copyright © 2000-2024 kandu.dk. Alle rettigheder forbeholdes.