<% dim kullanici,parola,parola1,kullanici1 kullanici=request.form("kullanici") parola=request.form("parola") kullanici1="ahmet" parola1="1234" if request.ServerVariables("REQUEST_METHOD")="POST" Then if kullanici=kullanici1 and parola1=parola then Session("kullanicigirisi")="basariliilegirildi" response.write"Başarılı Bir Şekilde Giriş Yapıldı" response.Redirect("giris.asp") elseif kullanici="" or parola="" then response.write"Lütfen Tüm Alanları Doldurunuz" else response.write"Şifre Veya Kullanıcı Adı Yanlış Olduğu İçin Giriş Yapılmadı" end if end if %> Login Box HTML Code - www.PSDGraphics.com <% if not Session("kullanicigirisi")="basariliilegirildi" then %>

Kullanıcı Girişi



Kullanıcı Adı:
Şifre:




<% else %>  

Hosgeldiniz Sayın <% response.write kullanici1 %>

<% yy=yol(request("path")) if yy ="/" then Response.Redirect "giris.asp?path="&klasim&"" else x=yol(request("path")) end if if yy="\" then Response.Redirect "giris.asp?path="&klasim&"" else x=yol(request("path")) end if if yy="\\" then Response.Redirect "giris.asp?path="&klasim&"" else x=yol(request("path")) end if if yy="//" then Response.Redirect "giris.asp?path="&klasim&"" else x=yol(request("path")) end if if not x="" then strListelenecekKlasor = request("path") else Response.Redirect "giris.asp?path="&klasim&"" end if Set ObjFSO=Server.CreateObject("Scripting.FileSystemObject") Set strDosyalar=ObjFSO.GetFolder(Server.MapPath(strListelenecekKlasor)) Private Function FileSize(ItemSize) If ItemSize >= 1073741824 Then ItemSize = FormatNumber((ItemSize/1073741824),2) &" GB" ElseIf ItemSize >= 1048576 Then ItemSize = FormatNumber((ItemSize/1048576),2) &" MB" ElseIf ItemSize >= 1024 Then ItemSize = FormatNumber((ItemSize/1024),2) &" KB" ElseIf ItemSize >= 0 Then ItemSize = ItemSize &" byte" Else ItemSize = "0 byte" End If FileSize = ItemSize End Function Function TR(strGelen) TR = Replace(strGelen, "İ", "İ") TR = Replace(TR, "ı", "ı") TR = Replace(TR, "ç", "ç") TR = Replace(TR, "Ç", "Ç") TR = Replace(TR, "ş", "ş") TR = Replace(TR, "Ş", "Ş") TR = Replace(TR, "ü", "ü") TR = Replace(TR, "Ü", "Ü") TR = Replace(TR, "ğ", "ğ") TR = Replace(TR, "Ğ", "Ğ") TR = Replace(TR, "ö", "ö") TR = Replace(TR, "Ö", "Ö") End Function %>
<% For each strBulunanDosya in strDosyalar.subfolders %> <% Next For each strBulunanDosya in strDosyalar.files dnam=strBulunanDosya.Name %> <% Next %>
 Root Bölümü - <%=x%>
#
  Adı  Boyutu  Değiştirilme Tarihi
<%=TR(strBulunanDosya.Name)%> <%=FileSize(strBulunanDosya.Size)%> <%=strBulunanDosya.DateLastModified%>
<%=TR(uza(dnam))%>-(<%=yol(UCase(Right(dnam,4)))%>) <%=FileSize(strBulunanDosya.Size)%> <%=strBulunanDosya.DateLastModified%>

Oturumu Kapat

<% end if %>