21. september 2009 - 01:08Der er
10 kommentarer og 1 løsning
Foto album.. ASP
Hej,, har lige en stump kode jeg gerne vil have lidt hjælp til., er der mulighed for at jeg kan lave billedrene mindre den skal bare resize dem.. hvis nu jeg har billeder i 800 x 600 kunne jeg godt tænke mig at den liste den laver over billedrene måske var 640x480?.. Og til sidst hvordan laver jeg fx class id på den liste den laver over mapperne så jeg kan lave linket en anden farve , hvis i forstår.. Nåh, her er koden.
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <link rel="stylesheet" type="text/css" href="..//style/hovede.css"> <%
qfolder = request.querystring("f") if qfolder = "" then folderspec = server.mappath(".") Set filesys = CreateObject("Scripting.FileSystemObject") Set demofolder = filesys.GetFolder(folderspec) Set folcoll = demofolder.SubFolders For Each subfol in folcoll folsize = left((subfol.size/1000000), 3) folist = folist & "<a href='?f=" & subfol.name & "' ><strong title='Vis'></strong> " & subfol.Name & " </a><small> (" & folsize & " MB)</small>" & vbcrlf folist = folist & "<BR>" Next set filesys = nothing Response.Write folist
else
filepath = server.mappath(".") & "\" & qfolder captionfile = filepath & "\captions.txt" Set filesys = CreateObject("Scripting.FileSystemObject") Dim SomeArray() 'caption part If filesys.FileExists(captionfile) then set file = filesys.GetFile(captionfile) Set TextStream = file.OpenAsTextStream(ForReading,TristateUseDefault) captioncount = 0 Do While Not TextStream.AtEndOfStream Line = TextStream.readline ReDim Preserve SomeArray(captioncount) SomeArray(captioncount) = line 'response.write captioncount & " " & somearray(captioncount) & "<br>" captioncount = captioncount + 1 'Response.write Line Loop textStream.close end if
'folder part Set demofolder = filesys.GetFolder(filepath) Set filecoll = demofolder.Files filecount = 0 For Each file in filecoll Ext = UCase(Right(File.Path, 3)) If Ext = "JPG" OR Ext = "GIF" Then on error resume next data = SomeArray(filecount) on error goto 0 hrefpath = qfolder & "/" & file.name imagepath = "<strong>" & data & "</strong><br><a href='" & hrefpath & "' title='Billede' border=0><img src='" & hrefpath & "' border='" & border_size & "' title=""" & data & """ style='border-color: " & border_color & ";'></a><br>" filist = filist & imagepath & vbcrlf filist = filist & "<BR>" filecount = filecount + 1 data = "" end if Next set filesys = Nothing filist = filist %> </p> <h1>
Med kunstig intelligens skaber HP’s nye OmniBook X 14 en unik og skræddersyet brugeroplevelse målrettet dem, der ønsker høj ydeevne og intelligente funktioner
tjek om du har adgang til komponent ASPImage - har du det så opret en fil der hedder thumbnails.asp med nedenstående script og læg den i samme mappe som den fil du kalder fra
<%
PWidth=Cint(request.querystring("Width")) PHeight=Cint(request.querystring("Height")) billed_valg = request("billed_valg") Response.ContentType = "image/jpeg" '*** get width/height of original image Set Image = Server.CreateObject("AspImage.Image")
if PWidth >0 AND ImageWidth > PWidth then NewHeight = Cint(ImageHeight*PWidth/ImageWidth) NewWidth = PWidth Image.ResizeR NewWidth,NewHeight end if if PHeight >0 AND ImageHeight > PHeight then NewWidth = Cint(ImageWidth*PHeight/ImageHeight) NewHeight = PHeight Image.ResizeR NewWidth,NewHeight end if
Response.BinaryWrite Image.Image Set Image = Nothing %>
Skal lige høre om jeg ikke kan lave en class så jeg kan bruge CSS på mine links..
Den laver jo en liste med mappernes navne, som den så laver link på.. dem vil jeg gerne have givet en Class="link" så den i stylesheet kan fjerne de der farve..
Tænker på statusbar og adr. line.. se evt mit nyoprettet spørgsmål under javescript
Synes godt om
Ny brugerNybegynder
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.