Søg
Avatar billede peanut2000 Nybegynder
04. november 2004 - 22:04 Der er 3 kommentarer og
1 løsning

Upload af filer

Hej eksperter

Har brug for at kunne uploade filer til mit webhotel, mit problem er at den kun understøtter chiliasp, nogen der har et eksempel jeg må få som virker???
Avatar billede eagleeye Praktikant
04. november 2004 - 22:19 #1
Chili!ASP har en inbygget Chili!Upload:
http://docs.sun.com/source/817-2514-10/Ch13_SpicePack84.html

Alt efter hvor ny en version af Chili!ASP virker den ikke helt godt. Det som ikke virker er at man kan upload filer og andre form felter på en gang.


Alternativt skal du lave upload uden komponent som dette eks:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnasdj01/html/asp0900.asp
Koden kan downloades herfra, det er en bruger fra eksperten som har lagt det i en zip:
http://www.cwboy.dk/downloads/
Avatar billede thmi99 Nybegynder
05. november 2004 - 06:56 #2
Hey Eagleeye

Er du ikke flink at kontakte mig: jappe@besked.com

Mvh Thomas (Dirch)
Avatar billede peanut2000 Nybegynder
05. november 2004 - 09:53 #3
Tak zip-filen firker fint
Avatar billede peanut2000 Nybegynder
05. november 2004 - 14:00 #4
Har udvidet eks. lidt, vil gerne have den til at gemme navnet på filen i databasen, jeg har følgende kode:

<% Option Explicit %>
<html>
<body>
<!-- #INCLUDE FILE="FilePost.asp" -->


<%

    Dim res
   
    Response.Write "ReadFormData"
    res = ReadFormData
    Response.Write "...Done!<br />"
   
    If res <> "" Then
        Response.Write res
        Response.End
    End If
   
    If FileCount < 1 Then
        Response.Write "Ingen filer " & FileCount
        Response.End
    End If
   
    Response.Write "SavePostedFile"
    res = SavePostedFile(0, "./", "test", "")
    Response.Write "...Done!<br />"
   
    Response.Write FieldCount & "<br />"
   
    Dim tekst
    tekst = requestForm("tekst")
   
    Response.Write "CleanUp"
    CleanUp
    Response.Write "...Done!<br />"
%>
<%
if request.form("Opret1")="Opret1" then
fil1 = request.form("fil1")
tekst = request.form("tekst")
' Databaseforbindelse - husk at angive sti til din database
Dim Conn
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
Set Conn = Server.CreateObject("ADODB.Connection")

Conn.ConnectionString="DRIVER={MySQL};SERVER=localhost;DATABASE=styrketraening_;UID=styrketraening_;PWD=68sNoa;"
Conn.Open

' SQL sætning opbygges
strSQL = "Insert into produkt ("

'strSQL = strSQL & "billede, "
strSQL = strSQL & "billede) "

strSQL = strSQL & "values('"

'strSQL = strSQL & tekst& "', '"
strSQL = strSQL & fil1& "')where id="&tekst

response.write strSQL
' SQL sætning eksekveres
Conn.Execute(strSQL)
'set rs = Conn.Execute("select max(id) as nyID from produkt")
'nyId= rs("nyID")

Conn.Close
Set Conn = Nothing
'response.redirect "betalingsbetingelse.asp"
end if
' Luk databaseforbindelse
%>
Filen <% =res %> blev gemt.<br />
Tekst: <% =tekst %>
</body>
</html>

Får følgende fejlmeddelelse:

ReadFormData...Done!
SavePostedFile...Done!

CleanUp...Done!

Request object error 'ASP 0207 : 80004005'

Cannot use Request.Form

/postit.asp, line 39

Cannot use Request.Form collection after calling BinaryRead.

Måske du kan hjælpe
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 9 25/06/202622:20 29/06/202621:55
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP 5 23/05/202409:56 24/05/202400:02
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 14:53 TV4ever 3.0 Af valby i Diverse
01/0816:21 Installere Ubuntu på Virtuel Maskine Af Uvanga i Andet software
01/0809:38 Microsoft har igen ødelagt mit højreklik Af valby i Windows
30/0714:41 To mails fra YouSee - Jeg tror ikke altid på tilfældigheder Af mort1 i Andet sikkerhed
27/0714:34 Hjælp til at kunne skanne negativer på Plustek 8300i SE Af Mariann i Foto & video
White papers
Flere white papers »