/ Forside/ Teknologi / Udvikling / ASP / Spørgsmål
Login
Glemt dit kodeord?
Brugernavn 

Kodeord  


Reklame
Top 10 brugere
ASP
#NavnPoint
smorch 9259
Harlekin 1866
molokyle 1040
Steffanst.. 758
gandalf 657
smilly 564
gibson 560
cumano 530
MouseKeep.. 480
10  Random 410
image path til access :~
Fra : hubi
Vist : 450 gange
100 point
Dato : 19-02-08 00:44

Hey har søgt nettet tyndt men mangler et asp script der ligger i en given mappe sammen med nogle billeder. ideen er så at når jeg kører scriptet så skriver den alle billed stierne til en access database fx "/gallery/mig.jpg" til tabellen "billedsti" hvor jeg så senerehen kan hente dem.

håber i forstår

//jesper

 
 
Kommentar
Fra : smorch


Dato : 19-02-08 06:59

Dette script laver egentlig en galleri med billederne i mappen pic, men du kan bare smide noget kode i, der smider billedenavnene i en tabel. Husk at checke for gengangere.

Mvh

sMorch


Kode
<%
server.ScriptTimeout=600
response.expires = 0
response.expiresabsolute = Now() - 1
response.addHeader "pragma","no-cache"
response.addHeader "cache-control","private"
Response.CacheControl = "no-cache"

Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
Set MyFolder=MyFileObject.GetFolder(Server.MapPath("/pic"))
BB=0
billedeliste="<tr>"
FOR EACH thing in MyFolder.Files
if thing.type="JPEG Image" or thing.type="GIF Image" then
   CC=CC+1
end if
NEXT
'response.Write(CC)
FOR EACH thing in MyFolder.Files
if thing.type="JPEG Image" or thing.type="GIF Image" then

'her kan du så sætte stien / billedenavnet i databasen

BB=BB+1
   if BB mod 3 = 0 then billedeliste=billedeliste & "<td>"&xx+BB&"<br><IMG width=150 SRC='../pic/" & thing.Name & "'><br>" & thing.Name & "<br><br><a href='SLETbillede.asp?filnavn=" & thing.Name & "'><font color='#FF0000'><b>SLET BILLEDET</b></font></a></td></tr><tr>|" & vbcrlf
   if BB mod 3 <> 0 then billedeliste=billedeliste & "<td>"&xx+BB&"<br><IMG width=150 SRC='../pic/" & thing.Name & "'><br>" & thing.Name & "<br> </td>|" & vbcrlf
   if BB mod 10 = 0 AND BB < CC-10 AND BB+10 < CC-10 then links=links & "<a href='billedeliste.asp?xx="& BB+10 &"'>" & BB+10 & " - " & BB+20 & "</a> | "
   if BB mod 10 = 0 AND BB >= CC-10 then links=links & "<a href='billedeliste.asp?xx="& CC-10 &"'>Sidste</a> | "
end if
NEXT
billedeliste=billedeliste

BilledeArr=split(billedeliste,"|")
if request("xx")="" then xx=0
      for xx=request("xx") to request("xx")+9
         listen=listen & BilledeArr(xx)
      next
         if xx=>20 then listen="<tr><td colspan='3'><a href='billedeliste.asp?xx="& xx-21 &"'> Forrige 10 </a> af ialt "& ubound(BilledeArr) &"</td></tr>" & listen & vbcrlf
         if xx < bb and xx < bb-10 then listen="<tr><td colspan='3'><a href='billedeliste.asp?xx="& xx-1 &"'> Næste ti </a></td></tr>" & listen & "<tr><td colspan='3'><a href='billedeliste.asp?xx="& xx-1 &"'> Næste 10 </a></td></tr>" & vbcrlf
         if xx >= bb-10 then listen="<tr><td colspan='3'><a href='billedeliste.asp?xx="& bb-10 &"'> Næste ti </a></td></tr>" & listen & "<tr><td colspan='3'><a href='billedeliste.asp?xx="& bb-10 &"'> Næste 10 </a></td></tr>" & vbcrlf

    %>
<body>

<table border="0" style="float:left; ">
<tr><td colspan="3"><a href="billedeliste.asp?xx=0">Start</a> | <%= links %></td></tr>
<%= listen %>
<tr><td colspan="3"><a href="billedeliste.asp?xx=0">Start</a> | <%= links %></td></tr>
</table>

</body>
</html>


Kommentar
Fra : hubi


Dato : 19-02-08 13:16

hey mange tak. det eneste er bare at selve det at programmere er jeg ikk særig stærk til.. du har ikke en færdigt kode?

//jesper

Kommentar
Fra : smorch


Dato : 19-02-08 16:52

Har du en database? og har du stien til billedemappen og stien til hvor databasen skal ligge?

Kommentar
Fra : hubi


Dato : 19-02-08 17:00

ja databasen hedder: gallery
stien til mappen med billeder er: c:/net/billeder/
databasen ligger i roden altså i net

Kommentar
Fra : smorch


Dato : 19-02-08 17:25

og tabelnavnet + feltnavne?

Kommentar
Fra : hubi


Dato : 19-02-08 17:50

feltnavn: imagepath
tabelnavn: gallery
sorry

Kommentar
Fra : smorch


Dato : 19-02-08 19:49

Prøv dette

Kode
<%
connectionstreng="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\net\gallery.mdb"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open connectionstreng
Set rs = Server.CreateObject("ADODB.Recordset")
server.ScriptTimeout=600
response.expires = 0
response.expiresabsolute = Now() - 1
response.addHeader "pragma","no-cache"
response.addHeader "cache-control","private"
Response.CacheControl = "no-cache"

Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
Set MyFolder=MyFileObject.GetFolder("c:\net\billeder\")
Set RecordSet1 = Server.CreateObject("ADODB.Recordset")
   FOR EACH thing in MyFolder.Files
      if thing.type="JPEG Image" or thing.type="GIF Image" then
         set RecordSet1=Conn.Execute("select navn from kunder where imagepath='" & thing.Name & "'")   
         if RecordSet1.eof then
            SQL="insert into gallery (imagepath) values ('" & thing.Name & "')"
            Conn.Execute( SQL )
            response.Write("Filen " & thing.name & " indsat i databasen <hr>")
         else
            response.Write("Filen findes allerede i databasen <br>")
         end if
      end if
   NEXT
conn.close
%>


Kommentar
Fra : hubi


Dato : 19-02-08 20:10

den vil ikke sætte stien ind :/ der kommer ingen fejl

Kommentar
Fra : smorch


Dato : 19-02-08 23:18

Hvilken fejl? Kopier fejlen og sæt den ind hér

Kommentar
Fra : hubi


Dato : 20-02-08 14:16

der kommer ingen fejl det er bare en hvid siden der kommer frem, der står heller ikke "indsat i databasen"

Annuller spørgsmålet
Fra : hubi


Dato : 12-03-08 23:04

Jeg har desværre ikke modtaget et gyldigt svar, og annullerer derfor dette spørgsmål

Du har følgende muligheder
Dette spørgsmål er blevet annulleret, det er derfor ikke muligt for at tilføje flere kommentarer.
Søg
Reklame
Statistik
Spørgsmål : 173452
Tips : 31650
Nyheder : 719565
Indlæg : 6382310
Brugere : 218248

Månedens bedste
Årets bedste
Sidste års bedste