Søg
Avatar billede willi Nybegynder
22. marts 2005 - 13:56 Der er 8 kommentarer og
1 løsning

Request objekt

Jeg har denne:
strPathInfo = Request.ServerVariables("PATH_INFO")
strPhysicalPath = Server.MapPath(strPathInfo)
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(strPhysicalPath)
Set objFolder = objFile.ParentFolder
Set objFolderContents = objFolder.Files
For Each objFileItem in objFolderContents
if InStr(1, "gif,jpg,jpeg,png", LCase(objFSO.GetExtensionName(objFileItem.name))) > 0 then
    Response.write "<a href="
    Response.Write(objFileItem.Name)
    response.write ">"
    Response.Write(objFileItem.Name & "<br>")
    Response.write "</a>"
    strSQL = "Insert into bildArkiv (bildNavn) values('" & Request.Form("objFileItem.name") & "')"
    Conn.Execute(strSQL)
End if
Next

...men det er ikke en form som skal requestes, men et objekt. Jeg skal have fat i hele filnavnet (med .ext) og lagt det i en db for senere kunne bruge denne post til bl.a. udskrivning af udvalgte billeder.
Avatar billede moejensen Nybegynder
22. marts 2005 - 14:07 #1
kan du ikke lige smide hele din kode
Avatar billede willi Nybegynder
22. marts 2005 - 17:09 #2
Det er faktisk ikke mere moejensen.
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/Data/bildTest.mdb")
Conn.Open DSN
%>
<html>
    <head>
        <title></title>
        <META NAME=""ROBOTS"" CONTENT=""NOINDEX, NOFOLLOW"">
        <link rel="stylesheet" href="stil.css" type="text/css">
    </head>
        <body bgcolor="#f0f0f0" >
        <table>
        <tr>
        <td>
<%
strPathInfo = Request.ServerVariables("PATH_INFO")
strPhysicalPath = Server.MapPath(strPathInfo)
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(strPhysicalPath)
Set objFolder = objFile.ParentFolder
Set objFolderContents = objFolder.Files
For Each objFileItem in objFolderContents
if InStr(1, "gif,jpg,jpeg,png", LCase(objFSO.GetExtensionName(objFileItem.name))) > 0 then
    Response.write "<a href="
    Response.Write(objFileItem.Name)
    response.write ">"
    Response.Write(objFileItem.Name & "<br>")
    Response.write "</a>"
    strSQL = "Insert into bildArkiv (bildNavn) values('" & Request.Form("objFileItem.name") & "')"
    Conn.Execute(strSQL)
End if
Next
%>
</td>
</tr>
</table>
</body>
</html>
Avatar billede busschou Praktikant
22. marts 2005 - 17:15 #3
hvorfor
strSQL = "Insert into bildArkiv (bildNavn) values('" & Request.Form("objFileItem.name") & "')"
hvorfor ikke
strSQL = "Insert into bildArkiv (bildNavn) values('" & objFileItem.name & "')"
Avatar billede willi Nybegynder
22. marts 2005 - 17:24 #4
>busschou Spørg ikke mig. Det har du forstand på!
Men lidt mystisk er det nu. Jeg mener selvfølgelig at jeg har skrevet strengen som du gør. Men kludret har jeg for det virker nu!
Tak for hjælpen og hvad er objFileItem? Det er da ikke et object?
Avatar billede busschou Praktikant
22. marts 2005 - 17:27 #5
jo objFileItem er et object men objFileItem.name det er en string som er navnet på objectet :o)
Avatar billede willi Nybegynder
22. marts 2005 - 17:32 #6
Men jeg har da ikke defineret objFileItem som et object?
Avatar billede busschou Praktikant
22. marts 2005 - 17:38 #7
hmm ok må indrømme jeg ikke har helt styr på hvornår man i asp kalder noget for et object
Men linjen
For Each objFileItem in objFolderContents
Siger i mine øjne at du får fat i en slags object som har nogle atributter såsom et navn
Avatar billede busschou Praktikant
22. marts 2005 - 17:41 #8
Set objFSO = CreateObject("Scripting.FileSystemObject")
Nu er objFSO et object som arbejder med filer

Set objFile = objFSO.GetFile(strPhysicalPath)
Nu er objFile en fil med den angivne path

Set objFolder = objFile.ParentFolder
Nu er objFolder den folder som ligger oven over filen objFile

Set objFolderContents = objFolder.Files
Nu er objFolderContents de filer som ligger i folderen objFolder

For Each objFileItem in objFolderContents
Løkke hvor objFileItem på skift er hver fil af alle filerne objFolderContens

Så objFileItem er vel rettere en Fil eller en pointer på en Fil vil jeg tro uden at være helt sikker
Avatar billede willi Nybegynder
22. marts 2005 - 17:45 #9
Tak for usikkerheden (og forklaringen). Det hjælper altid lidt, at det ikke er alt dem der ved noget, ved noget om ;)
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 13:55 Ukendt sender e-mails fra - og til min e-mail adresse Af mort1 i Andet sikkerhed
24/0711:08 Forskel mellem klokkeslet start aften slut næste morgen Af krasmussen i Excel
23/0715:10 WINDOWS KOMPABILITET Af snestrup2000 i Windows
22/0720:19 DVB T2 tuner med optagefunktion Af ErikHg i Andet hardware
20/0716:00 Fildeling mellem 2 windows 11 systemer Af knudg i Windows
White papers
Flere white papers »