.... bu arada burada yayınladıklarımın hiç birisi bana ait değildir ....
başlayalım bakalım neyle başlayalım resim çekme resim galerisi olsun
aşağıdaki kodları sitelerimde kullandığım için içerisinde site isimleri olabilir kimse reklam diye atlamasın webmaster forumunda site reklamı neye yarasın
-----------------------
RESİM GALERİSİ
-----------------------
aşağıdaki kodlarla çok basit 30 saniyede güzel bir resim galerisi yapabilirsiniz..
mesela elinizde baya bi resim var bu resimleri klasörlere bölün ve mesela klasörlere
RESİM GALERİSİ 1
RESİM GALERİSİ 2
....
gibi isimler verin ve aşağıdaki koduda galeri.asp (ismi kendiniz ne isterseniz yapın) diye kaydedip resimlerin klasörlerinin bulunduğu yere atın
galeri.asp yi çalıştırdığınızda sayfada klasör isimleri şeklinde linkler olacaktır mesela biz resimlerin bulunduğu klasörlere
RESİM GALERİSİ 1
RESİM GALERİSİ 2
demiştik bu yüzden sayfada bu isimler adında linkler çıkacak ziyaretçi bu linklere tıkladığında klasörün içindeki resimler sayfada listelenecektir...
örnek : BAYATEKMEK.COM komik resim komikresimler komik resimler komik insan resimleri komik reklamlar komik yazılar komik ilanlar komik bebek resimleri komik hayvan resimleri komik ****** resimler komik 18 resimler
ben burda klasör isimlerini 01 02 03 diye verdim...
<%
'maniakcoder
border_size = "0"
border_color = "silver"
%>
<br><h2>
<%
Const ForReading = 1, ForWriting = 2, ForAppending = 3
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
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='view'>»</strong> " & subfol.Name & " </a>" & vbcrlf
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) & " "
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> <a target='_blank' href='" & hrefpath & "' title='BAYATEKMEK.COM ' border=0><img height='75' width='100' src='" & hrefpath & "' border='" & border_size & "' title=""" & data & """ style='border-color: " & border_color & ";'></a> "
filist = filist & imagepath & vbcrlf
filist = filist & " "
filecount = filecount + 1
data = ""
end if
Next
set filesys = Nothing
filist = filist & "<br><small><a href='http://www.bayatekmek.com/' target='_blank'>www.bayatekmek.com</a></small>"
%> </h2>
<h3><font face="Tahoma" size="2"><a href="." title="geri dön">
<font color="#FF0000">« GERİ DÖN</font></a><br><font color="#FF0000">
<%=qfolder%></font></font></h3>
<p><%=filist%></p>
<% end if %>
<p style="font-size: xx-small;"><a href="#top" title="top of page">SAYFA BAŞINA DÖN</a></p></center> 
