kullandığım ve işime çok yarayan asp kodlarını bu konu altında sizinle paylaşmaya karar verdim arkadaşlar

.... 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) & "&nbsp;&nbsp;&nbsp;"
			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>&nbsp;&nbsp;&nbsp;<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>&nbsp;&nbsp;&nbsp;"
	    filist = filist & imagepath & vbcrlf
	    filist = filist & "&nbsp;&nbsp;&nbsp;"
		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">
&nbsp;<%=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>