|
|
 | image path til access :~
Fra :  hubi  | Vist : 573 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 17:00 |
|
ja databasen hedder: gallery
stien til mappen med billeder er: c:/net/billeder/
databasen ligger i roden altså i net
| |
| Kommentar
Fra : hubi |
Dato : 19-02-08 17:50 |
|
feltnavn: imagepath
tabelnavn: gallery
sorry
| |
 | Du har følgende muligheder | |
|
Dette spørgsmål er blevet annulleret, det er derfor ikke muligt for at tilføje flere kommentarer.
| |
|
|