Edit D:\xinhaisoft\crisis_new\inc\upload.asp

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCCCJJ, CCCCJC,CCCCCJ, CCCCCC, CJJJJJJ:Set CCCCJJ = server.CreateObject(CJJCCJJJ("ps~sq]r@??64E:@?")):CCCCJJ.open Application(CJJCCJJJ("r@??64E:@?$EC:?8")):Set CCCCJC=CCCCJJ::Dim CJJJJJC,CJJJJCJ,CJJJJCC,CJJJCJJ,CJJJCJC,CJJJCCJ,CJJJCCC,CJJCJJJ,CJJCJJC:Dim CJJCJCJ,CJJCJCC,CJJCCJJ,CJJCCJC,CJJCCCJ,CJJCCCC:Dim CJCJJJJ,CJCJJJC,CJCJJCJ:Dim CJCJJCC:CJCJJCC=Trim(Request.Cookies(CJJCCJJJ("!$*|t|qt#"))):if CJCJJCC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJJJJJC>0 then
CJJJJJJ=CJJCCJJJ("D6=64E ,E@A ,` ,:DD49@@=25>:?[:D4@?DF=E2?E[,C:89E.[EJA6[4FDE@>8C@FA[32=2?46[?F>36C[>@3:=6[>6>36C0EJA60A2E9[>6>36C0EJA60E@A[A9@E@[7246[286[C62=?2>6[EJA6?2>6[8C256 ,u#~| ,G0>6>36C ,H:E9 ,W?@=@4<X ,(wt#t ,!2DDH@C5lV") & CJJJJCJ & CJJCCJJJ("V ,2?5 ,:5l") & CJJJJJC
set CCCCCJ=CCCCJJ.execute(CJJJJJJ):If CCCCCJ.EOF Then
Call ClearMemberCookie
Else
CJJJJCC=CCCCCJ(2) & "":CJJJCJJ=CCCCCJ(3):CJJJCJC=CCCCCJ(5):CJJJCCJ=CCCCCJ(6):CJJJCCC=CCCCCJ(9):CJJCJJJ=CCCCCJ(15):CJJCJCJ=CCCCCJ(0):CJCJJJC=CCCCCJ(1):CJCJJJJ=CCCCCJ(11) & "":CJJCJCC=CCCCCJ(10) & "":CJJCJJC=CCCCCJ(12):CJJCCJJ=CCCCCJ(14):CJJCCJC=CCCCCJ(13):CJJCCCJ=CCCCCJ(7) & "":CJJCCCC=CCCCCJ(4):CJCJJCJ=CCCCCJ(8):if isnull(CJJCJJJ) then CJJCJJJ=0
if isnull(CJJJCCC) or CJJJCCC=0 then CJJJCCC=CJJJCJJ
if isnull(CJJCCCC) then CJJCCCC=0
if isnull(CJJJCJC) then CJJJCJC=0
if instr(CJJCCJJJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJJJCJ)>0 then Call RedirectMessage(CJJCCJJJ("????????,????????????????????????????????,"))
Call SetMemberCookie(CJJJJJC,CJJJJCJ)
End IF
end if::::Sub ClearMemberCookie():Response.Cookies(CJJCCJJJ("!$*|t|qt#"))="":CJJJJJC=0:CJJJCCJ=0:CJJJJCJ=Empty:CJJJCJC=0:CJJCJJJ=0:CJJJCCC=0:CJJJCJJ=0:CJJCJCJ=False:CJCJJJC=False:CJCJJCJ=Empty:End Sub:Sub CheckMemberCookie():dim CJCJCJJ,CJCJCJC,CJCJCCJ,CJCJCCC,CJCCJJJ:CJCJCJJ=split(CJCJJCC,CJJCCJJJ("]")):if ubound(CJCJCJJ)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJCJCJJ(0)) or len(CJCJCJJ(1))<>32 or len(CJCJCJJ(2))<>32 then
Call ClearMemberCookie
else
CJCJCJC=CJCJCJJ(1):for CJCJCCJ=1 to len(CJCJCJC):CJCJCCC=mid(CJCJCJC,CJCJCCJ,1):if isnumeric(CJCJCCC) then CJCCJJJ=CJCCJJJ & CJCJCCC
if len(CJCCJJJ)=7 then exit for
next:CJCJCJC=CJCJCJJ(2):if CJCCJJJ<>mid(CJCJCJC,6,7) then
Call ClearMemberCookie
else
CJCJCCC=mid(CJCJCJC,18,10)/2:if CJCJCCC<DateDiff(CJJCCJJJ("D"), CJJCCJJJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJJJJJC=Clng(CJCJCJJ(0)):CJJJJCJ=CJCJCJJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJJCCJJC,CJJCCJCJ):dim CJCJCCJ,CJCJCCC,CJCCJJJ:for CJCJCCJ=1 to len(CJJCCJCJ):CJCJCCC=mid(CJJCCJCJ,CJCJCCJ,1):if isnumeric(CJCJCCC) then CJCCJJJ=CJCCJJJ & CJCJCCC
if len(CJCCJJJ)=7 then exit for
next:CJCCJJJ=CJJCCJJC & CJJCCJJJ("]") & CJJCCJCJ & CJJCCJJJ("]") & Fix(10000*(Rnd+1)) & CJCCJJJ & Fix(10000*(Rnd+1)) & DateDiff(CJJCCJJJ("D"), CJJCCJJJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJJCCJJJ("!$*|t|qt#"))=CJCCJJJ:End Sub::dim CJCCJJC:Class upload_5xsoft:dim CJCCJCJ,CJCCJCC,CJCCCJJ::Public function File(CJJJCCCJ):CJJJCCCJ=lcase(CJJJCCCJ):if not CJCCJCC.exists(CJJJCCCJ) then
set File=new FileInfo
else
set File=CJCCJCC(CJJJCCCJ)
end if:End function:Private Sub Class_Initialize:dim CJCCCJC,CJCCCCJ,vbCrlf,CCJJJJJ,CCJJJJC,CCJJJCJ,CCJJJCC,CCJJCJJ,CCJJCJC:dim CCJJCCJ,CCJJCCC,CCJCJJJ,CCJCJJC,CCJCJCJ:dim CCJCJCC,CCJCCJJ:dim CCJCCJC,CCJCCCJ,CCJCCCC:CJCCCJJ=CJJCCJJJ("????w%%!???????? ,'6CD:@? ,a]`"):set CJCCJCJ=Server.CreateObject(CJJCCJJJ("$4C:AE:?8]s:4E:@?2CJ")):set CJCCJCC=Server.CreateObject(CJJCCJJJ("$4C:AE:?8]s:4E:@?2CJ")):if Request.TotalBytes<1 then Exit Sub
set CCJJJCC = Server.CreateObject(CJJCCJJJ("25@53]DEC62>")):set CJCCJJC = Server.CreateObject(CJJCCJJJ("25@53]DEC62>")):CJCCJJC.Type = 1:CJCCJJC.Mode =3:CJCCJJC.Open:CJCCJJC.Write  Request.BinaryRead(Request.TotalBytes):CJCCJJC.Position=0:CJCCCJC =CJCCJJC.Read:CCJCCJC = 1:CCJCCCJ = LenB(CJCCCJC):vbCrlf = chrB(13) & chrB(10):CJCCCCJ = MidB(CJCCCJC,1, InStrB(CCJCCJC,CJCCCJC,vbCrlf)-1):CCJJCJJ = LenB (CJCCCCJ):CCJCCJC=CCJCCJC+CCJJCJJ+1:while (CCJCCJC + 10) < CCJCCCJ:CCJJJCJ = InStrB(CCJCCJC,CJCCCJC,vbCrlf & vbCrlf)+3:CCJJJCC.Type = 1:CCJJJCC.Mode =3:CCJJJCC.Open:CJCCJJC.Position = CCJCCJC:CJCCJJC.CopyTo CCJJJCC,CCJJJCJ-CCJCCJC:CCJJJCC.Position = 0:CCJJJCC.Type = 2:CCJJJCC.Charset =CJJCCJJJ("FE7\g"):CCJJJJJ = CCJJJCC.ReadText:CCJJJCC.Close:CCJCCJC = InStrB(CCJJJCJ,CJCCCJC,CJCCCCJ):CCJCJCC = InStr(22,CCJJJJJ,CJJCCJJJ("?2>6lQ"),1)+6:CCJCCJJ = InStr(CCJCJCC,CCJJJJJ,CJJCCJJJ("Q"),1):CCJCCCC = lcase(Mid (CCJJJJJ,CCJCJCC,CCJCCJJ-CCJCJCC)):if InStr (45,CCJJJJJ,CJJCCJJJ("7:=6?2>6lQ"),1) > 0 then
set CCJJCJC=new FileInfo:CCJCJCC = InStr(CCJCCJJ,CCJJJJJ,CJJCCJJJ("7:=6?2>6lQ"),1)+10:CCJCCJJ = InStr(CCJCJCC,CCJJJJJ,CJJCCJJJ("Q"),1):CCJCJCJ = Mid (CCJJJJJ,CCJCJCC,CCJCCJJ-CCJCJCC):CCJJCJC.FileName=CJJCJJJC(CCJCJCJ):CCJJCJC.FilePath=CJJJCCCC(CCJCJCJ):CCJJCJC.FileExt=CJJCJJJJ(CCJCJCJ):CCJCJCC = InStr(CCJCCJJ,CCJJJJJ,CJJCCJJJ("r@?E6?E\%JA6i ,"),1)+14:CCJCCJJ = InStr(CCJCJCC,CCJJJJJ,vbCr):CCJJCJC.FileType =Mid (CCJJJJJ,CCJCJCC,CCJCCJJ-CCJCJCC):CCJJCJC.FileStart =CCJJJCJ:CCJJCJC.FileSize = CCJCCJC -CCJJJCJ -3:CCJJCJC.FormName=CCJCCCC:if not CJCCJCC.Exists(CCJCCCC) then
CJCCJCC.add CCJCCCC,CCJJCJC
end if
else
CCJJJCC.Type =1:CCJJJCC.Mode =3:CCJJJCC.Open:CJCCJJC.Position = CCJJJCJ:CJCCJJC.CopyTo CCJJJCC,CCJCCJC-CCJJJCJ-3:CCJJJCC.Position = 0:CCJJJCC.Type = 2:CCJJJCC.Charset =CJJCCJJJ("FE7\g"):CCJCJJC = CCJJJCC.ReadText:CCJJJCC.Close:if CJCCJCJ.Exists(CCJCCCC) then
CJCCJCJ(CCJCCCC)=CJCCJCJ(CCJCCCC)&CJJCCJJJ("[ ,")&CCJCJJC
else
CJCCJCJ.Add CCJCCCC,CCJCJJC
end if
end if:CCJCCJC=CCJCCJC+CCJJCJJ+1:wend:CJCCCJC="":set CCJJJCC =nothing:End Sub:Private Sub Class_Terminate:if Request.TotalBytes>0 then
CJCCJCJ.RemoveAll
CJCCJCC.RemoveAll
set CJCCJCJ=nothing:set CJCCJCC=nothing:CJCCJJC.Close:set CJCCJJC =nothing
end if:End Sub:Private function CJJJCCCC(CJJCCCJJ):If CJJCCCJJ <> "" Then
CJJJCCCC = left(CJJCCCJJ,InStrRev(CJJCCCJJ, CJJCCJJJ("-")))
Else
CJJJCCCC = ""
End If:End  function:Private function CJJCJJJJ(CJJCCCJJ):If CJJCCCJJ <> "" Then
CJJCJJJJ = mid(CJJCCCJJ,InStrRev(CJJCCCJJ, CJJCCJJJ("]"))+1)
Else
CJJCJJJJ = ""
End If:End  function:Private function CJJCJJJC(CJJCCCJJ):If CJJCCCJJ <> "" Then
CJJCJJJC = mid(CJJCCCJJ,InStrRev(CJJCCCJJ, CJJCCJJJ("-"))+1)
Else
CJJCJJJC = ""
End If:End  function:End Class:Class FileInfo:dim FormName,FileName,FilePath,FileSize,FileExt,FileType,FileStart:Private Sub Class_Initialize:FileName = "":FilePath = "":FileSize = 0:FileStart= 0:FormName = "":FileType = "":FileExt  = "":End Sub:Public function SaveAs(CJJCCCJJ):dim CCCJCCC,CCCCJJJ,CJCJCCJ:SaveAs=true:if trim(CJJCCCJJ)="" or FileStart=0 or FileName="" or right(CJJCCCJJ,1)=CJJCCJJJ("^") then exit function
set CCCJCCC=CreateObject(CJJCCJJJ("p5@53]$EC62>")):CCCJCCC.Mode=3:CCCJCCC.Type=1:CCCJCCC.Open:CJCCJJC.position=FileStart:CJCCJJC.copyto CCCJCCC,FileSize:CCCJCCC.SaveToFile CJJCCCJJ,2:CCCJCCC.Close:set CCCJCCC=nothing:SaveAs=false:end function:End Class:Response.Write(vbCrLf):Response.Write(CJJCCJJJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJJCCJJJ("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJJCCJJJ("k9625m") & vbCrLf):Response.Write(CJJCCJJJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJJCCJJJ("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJJCCJJJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJJCCJJJ("kE:E=6m????????k^E:E=6m") & vbCrLf):Response.Write(CJJCCJJJ("kDEJ=6m") & vbCrLf):Response.Write(CJJCCJJJ("3@5J ,L ,>2C8:?i ,_AIj ,324<8C@F?5i ,EC2?DA2C6?Ej ,7@?Ei ,`cAI ,Q|:4C@D@7E ,*2w6:Q[ ,'6C52?2[ ,$:>$F?j ,N") & vbCrLf):Response.Write(CJJCCJJJ(":?AFE ,L ,7@?Ei ,`cAI ,Q|:4C@D@7E ,*2w6:Q[ ,'6C52?2[ ,$:>$F?j ,4FCD@Ci ,A@:?E6Cj ,N") & vbCrLf):Response.Write(CJJCCJJJ("DA2?]6CC@C ,L ,4@=@Ci ,R7__j ,N") & vbCrLf):Response.Write(CJJCCJJJ("E23=6 ,E5 ,L ,A255:?8\C:89Ei ,aAIj ,N") & vbCrLf):Response.Write(CJJCCJJJ("2 ,L ,4@=@Ci ,R__7j ,E6IE\564@C2E:@?i ,?@?6j ,N") & vbCrLf):Response.Write(CJJCCJJJ("2i9@G6C ,L ,4@=@Ci ,R7__j ,E6IE\564@C2E:@?i ,F?56C=:?6j ,N") & vbCrLf):Response.Write(CJJCCJJJ("k^DEJ=6m") & vbCrLf):Response.Write(CJJCCJJJ("k^9625m") & vbCrLf):Response.Write(CJJCCJJJ("k3@5Jm") & vbCrLf)::if CJJJJJC=0 then
Call ClearMemberCookie:Call ShowMsg(CJJCCJJJ("????????,????????????,"))
end if:dim CCCCJJC,CCCCJCJ,CCCCJCC,CCCCCJJ,CCCCCJC,CCCCCCJ,CCCCCCC,CJJJJJJJ:CCCCJJC=Request.QueryString(CJJCCJJJ("u%")):CCCCCJJ=Request.QueryString(CJJCCJJJ("u}")):CCCCCJC=Request.QueryString(CJJCCJJJ("u!")):CCCCCCJ=Request.QueryString(CJJCCJJJ("$+")):CCCCCCC=Request.QueryString(CJJCCJJJ("u|")):CJJJJJJJ=Request.QueryString(CJJCCJJJ("rq")):CCCCJCJ=Request.QueryString(CJJCCJJJ("p4E")):Call CheckQueryString(CCCCCJJ):Call CheckQueryString(CCCCCCC):Call CheckQueryString(CJJJJJJJ):CCCCJCC=CJJCCJJJ("nu%l") & CCCCJJC & CJJCCJJJ("Uu}l") & CCCCCJJ & CJJCCJJJ("Uu!l") & CCCCCJC & CJJCCJJJ("U$+l") & CCCCCCJ & CJJCCJJJ("Uu|l") & CCCCCCC & CJJCCJJJ("Urql") & CJJJJJJJ & CJJCCJJJ("Up4El") & CCCCJCJ:select case CCCCJJC:case "1" : CCCCJJC=CJJCCJJJ("]3>A]8:7];A68];A8]A?8]DG8"):case "2" : CCCCJJC=CJJCCJJJ("]I=D"):case "3" : CCCCJJC=CJJCCJJJ("];A8"):case "4" : CCCCJJC=CJJCCJJJ("]DH7]7=G"):case "5" : CCCCJJC=CJJCCJJJ("]5@4]5@4I"):case "6" : CCCCJJC=CJJCCJJJ("]5@4]5@4I]I=D]I=DI"):case "7" : CCCCJJC=CJJCCJJJ("]>Ab"):case else : CCCCJJC=CJJCCJJJ("];A8]A?8]8:7];A68]EIE]HAD]5@4]5@4I]I=D]I=DI]AAE]AAEI]C2C]K:A]A57")
end select:select case CCCCCJC:case "1" : CCCCCJC=CJJCCJJJ("^:>286D"):case "2" : CCCCCJC=CJJCCJJJ("^33D^FA=@25"):case "3" : CCCCCJC=CJJCCJJJ("^C6D@FC46^A:4"):case "4" : CCCCCJC=CJJCCJJJ("^2EE249>6?ED^A9@E@"):case "5" : CCCCCJC=CJJCCJJJ("^=3^A:4EFC6"):case "6" : CCCCCJC=CJJCCJJJ("^=3^5@4F>6?E"):case else : CCCCCJC=CJJCCJJJ("^2EE249>6?ED")
end select:if not isnumeric(CCCCCCJ) or CCCCCCJ="" then
CCCCCCJ=200
else
CCCCCCJ=Cint(CCCCCCJ):if CCCCCCJ>200 or CCCCCCJ<=0 then CCCCCCJ=200
end if:if CCCCCCC="" then CCCCCCC=CJJCCJJJ("7:=6A2E9")
If Request.ServerVariables(CJJCCJJJ("#t""&t$%0|t%w~s"))=CJJCCJJJ("!~$%") then
dim CJJJJJJC,File,FileSize:On Error Resume Next:Set CJJJJJJC = New upload_5xsoft:if err=-2147467259 then
Call ShowMsg(CJJCCJJJ("??????????@????????") & CCCCCCJ & CJJCCJJJ("z??,"))
elseif err then
Call ShowMsg(err.description)
end if:On Error Goto 0:set File=CJJJJJJC.file(CJJCCJJJ("FA=@25")):FileSize=File.filesize:if not IsValidPost_ then Call ShowMsg(CJJCCJJJ("??????????,"))
if FileSize<10 then Call ShowMsg(CJJCCJJJ("????????????????????????,"))
if FileSize>CCCCCCJ*1024 then Call ShowMsg(CJJCCJJJ("??????????@????????") & CCCCCCJ & CJJCCJJJ("z??,"))
dim Filename:Filename = file.Filename:dim CJJJJJCC:CJJJJJCC=Instrrev(filename,CJJCCJJJ("]")):if CJJJJJCC=0 then Call ShowMsg(CJJCCJJJ("??????????????????,????????????????????????,??????????????????,"))
dim FileExt:fileext=lcase(Mid(filename,CJJJJJCC)):if fileext="" or instr(CCCCJJC & CJJCCJJJ("]"),fileext & CJJCCJJJ("]"))=0 then Call ShowMsg(CJJCCJJJ("??????????W") & fileext & CJJCCJJJ("X????????????,"))
If instr(CCCCCJJ,CJJCCJJJ("j"))>0 or instr(CCCCCJJ,CJJCCJJJ("]"))>0 or instr(CCCCCJJ,CJJCCJJJ("R"))>0 or instr(CCCCCJJ,CJJCCJJJ("^"))>0 or instr(CCCCCJJ,CJJCCJJJ("-"))>0 or instr(CCCCCJJ,CJJCCJJJ("["))>0 then Call ShowMsg(CJJCCJJJ("????????????????????????,"))
dim CJJJJCJJ,filepath:if CCCCCJJ="" then
dim CJJJJCJC:CJJJJCJC=Now:CJJJJCJJ=Year(CJJJJCJC) & right(0 & Month(CJJJJCJC),2):filepath=server.mappath(CCCCCJC) & CJJCCJJJ("-") & CJJJJCJJ:dim CJJJJCCJ:set CJJJJCCJ=server.CreateObject(CJJCCJJJ("$4C:AE:?8]u:=6$JDE6>~3;64E")):If not CJJJJCCJ.FolderExists(filepath) then CJJJJCCJ.CreateFolder(filepath)
set CJJJJCCJ=nothing:Randomize:filename=CJJJJCJJ & right(0 & Day(CJJJJCJC),2) & right(0 & Hour(CJJJJCJC),2) & right(0 & Minute(CJJJJCJC),2) & right(0 & Second(CJJJJCJC),2) & Int(90*Rnd+10) & fileext
else
CJJJJCJJ="":filepath=server.mappath(CCCCCJC):filename=CCCCCJJ & fileext
end if:File.SaveAs filepath & CJJCCJJJ("-") & filename:if err then Call ShowMsg(err.description)
On Error Goto 0:set File=Nothing:set CJJJJJJC=Nothing:if CJJJJCJJ="" then
filepath=CCCCCJC & CJJCCJJJ("^") & FileName
else
filepath=CCCCCJC & CJJCCJJJ("^") & CJJJJCJJ & CJJCCJJJ("^") & FileName
end if:Call ShowMsg("")
else
response.Write CJJCCJJJ("k7@C> ,>6E9@5lQA@DEQ ,6?4EJA6lQ>F=E:A2CE^7@C>\52E2QmkE23=6 ,46==A255:?8lQ_Q ,46==DA24:?8lQ_QmkECm"):response.Write CJJCCJJJ("kE5mk:?AFE ,EJA6lQ3FEE@?Q ,G2=F6lQ??, ,????????Q ,DEJ=6lQH:5E9ih_AIjQ ,@?r=:4<lQ;2G2D4C:AEi7@C>]FA=@25]4=:4<WXjQ ,E:E=6lQ??????????,") & CCCCJJC & CJJCCJJJ("UR`bj??????????,") & CCCCCCJ & CJJCCJJJ("zQmk^E5m"):response.Write CJJCCJJJ("kE5mk:?AFE ,EJA6lQE6IEQ ,:5lQ7:=6?2>6Q ,C625@?=J ,DEJ=6lQ5:DA=2Ji?@?6j4@=@CiRhhhjH:5E9iacdAIjQ ,@?r=:4<lQ;2G2D4C:AEi7@C>]FA=@25]4=:4<WXjQmk^E5m"):response.Write CJJCCJJJ("kE5mk:?AFE ,EJA6lQDF3>:EQ ,:5lQDF3>:EQ ,G2=F6lQ?? ,??Q ,DEJ=6lQH:5E9iddAIjQ ,5:D23=65mk^E5mk^ECmk^E23=6m"):response.Write CJJCCJJJ("k:?AFE ,EJA6lQ7:=6Q ,?2>6lQFA=@25Q ,DEJ=6lQ5:DA=2Ji?@?6jQ ,@?r92?86lQ;2G2D4C:AEiG2C ,7:=6?2>6l5@4F>6?E]86Et=6>6?EqJx5WV7:=6?2>6VXjG2C ,DF3>:El5@4F>6?E]86Et=6>6?EqJx5WVDF3>:EVXj:7WE9:D]7:=6D]=6?8E9lll_XL7:=6?2>6]DEJ=6]5:DA=2JlV?@?6VjDF3>:E]5:D23=65lECF6jN6=D6LG2C ,?2>6lE9:D]7:=6D,_.]?2>6j7:=6?2>6]G2=F6l?2>6j7:=6?2>6]E:E=6l?2>6j7:=6?2>6]DEJ=6]5:DA=2JlV3=@4<VjDF3>:E]5:D23=65l72=D6jNQm")
response.Write CJJCCJJJ("k^7@C>m"):response.Write CJJCCJJJ("kD4C:AEmG2C ,:7C2>6lA2C6?E]5@4F>6?E]86Et=6>6?EDqJ%28}2>6WV:7C2>6VXj7@CWG2C ,:l_j:k:7C2>6]=6?8E9j:ZZXL:7W:7C2>6,:.]DC4]:?56I~7WVFA=@25]2DAVXm_XL:7C2>6,:.]DEJ=6]96:89ElVaeAIVj:7C2>6,:.]DEJ=6]H:5E9lVc__AIVj:7C2>6,:.]DEJ=6]3@C56Cl_NNk^D4C:AEm")
End If:Sub ShowMsg(CJJCCCJC):response.Charset=CJJCCJJJ("FE7\g"):if CJJCCCJC="" then
if CCCCJCJ="1" then
response.Write CJJCCJJJ("k") & CJJCCJJJ("D4C:AEm"):response.Write CJJCCJJJ(":7WA2C6?E]5@4F>6?E]7@C>D,_.]3FEE@?XL:7WA2C6?E]5@4F>6?E]7@C>D,_.]3FEE@?]=6?8E9PlF?567:?65XL7@CWG2C ,:l_j:kA2C6?E]5@4F>6?E]7@C>D,_.]3FEE@?]=6?8E9j:ZZXLA2C6?E]5@4F>6?E]7@C>D,_.]3FEE@?,:.]5:D23=65l72=D6jNN6=D6LA2C6?E]5@4F>6?E]7@C>D,_.]3FEE@?]5:D23=65l72=D6jNN")
response.Write CJJCCJJJ(":7WA2C6?E]5@4F>6?E]7@C>D,_.]7:=6?2>6XLA2C6?E]5@4F>6?E]7@C>D,_.]7:=6?2>6]G2=F6lV") & filename & CJJCCJJJ("VjN")
response.Write CJJCCJJJ(":7WA2C6?E]5@4F>6?E]7@C>D,_.]7:=6=:DEXLA2C6?E]5@4F>6?E]7@C>D,_.]7:=6=:DE]G2=F6ZlV") & filepath & CJJCCJJJ("-?VjN")
response.Write CJJCCJJJ(":7WA2C6?E]5@4F>6?E]7@C>D,_.]") & CCCCCCC & CJJCCJJJ("XLA2C6?E]5@4F>6?E]7@C>D,_.]") & CCCCCCC & CJJCCJJJ("]G2=F6lV") & filepath & CJJCCJJJ("VjN")
if CJJJJJJJ<>"" then response.Write CJJCCJJJ("A2C6?E]") & CJJJJJJJ & CJJCCJJJ("WV") & filepath & CJJCCJJJ("VXj")
response.Write CJJCCJJJ("k^D4C:AEm")
end if:response.Write CJJCCJJJ("k>6E2 ,9EEA\6BF:GlQC67C6D9Q ,4@?E6?ElQbj&#{l") & CCCCJCC & CJJCCJJJ("Qm"):response.Write CJJCCJJJ("??????????????,,k2 ,9C67lQ") & CCCCJCC & CJJCCJJJ("Qm????????k^2m.")
else
response.Write CJJCCJJJ("kDA2? ,4=2DDlQ6CC@CQm") & CJJCCCJC & CJJCCJJJ("k^DA2?m,k2 ,9C67lQ") & CCCCJCC & CJJCCJJJ("Qm????????k^2m.")
end if:err.clear:response.End():End Sub:Function IsValidPost_():Dim CJJJJCCC : CJJJJCCC=lcase(Request.ServerVariables(CJJCCJJJ("w%%!0#tut#t#"))):Dim CJJJCJJJ : CJJJCJJJ=lcase(Request.ServerVariables(CJJCCJJJ("$t#'t#0}p|t"))):Dim CJJJCJJC : CJJJCJJC=Request.ServerVariables(CJJCCJJJ("{~rp{0pss#")):if Mid(CJJJJCCC,8,Len(CJJJCJJJ))=CJJJCJJJ or Mid(CJJJJCCC,9,Len(CJJJCJJJ))=CJJJCJJJ or CJJJCJJJ=CJJJCJJC then IsValidPost_=True else IsValidPost_=False
End Function:Sub CheckQueryString(CJJCCCCJ):if len(CJJCCCCJ)>0 then
Dim CJJJCJCJ,CJJJCJCC:Set CJJJCJCJ = New RegExp:CJJJCJCJ.Pattern = CJJCCJJJ("/-HZS"):CJJJCJCJ.IgnoreCase = True:CJJJCJCC = CJJJCJCJ.test(CJJCCCCJ):set CJJJCJCJ=nothing:if not CJJJCJCC then
response.Write CJJCCJJJ("kDA2? ,4=2DDlQ6CC@CQm??????????????????????,k^DA2?m"):response.End()
end if
end if:End Sub:Response.Write(vbCrLf):Response.Write(CJJCCJJJ("k^3@5Jm") & vbCrLf):Response.Write(CJJCCJJJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJJCJJCC=nothing:set CJJCJCJJ=nothing:set CJJCJCJC=nothing:set CJJCJCCJ=nothing:CCCCCC.Close:Set CCCCCC=Nothing:CCCCCJ.Close:Set CCCCCJ=Nothing:CCCCJJ.Close:Set CCCCJJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJJCCJJJ(ByVal CJJCJCCC)
Dim CJJJCCJJ, CJCJCCJ, CJJJCCJC
CJJCJCCC = Replace(CJJCJCCC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJCJCCJ = 1 To Len(CJJCJCCC)
If CJCJCCJ <> CJJJCCJC Then
CJJJCCJJ = AscW(Mid(CJJCJCCC, CJCJCCJ, 1))
If CJJJCCJJ >= 33 And CJJJCCJJ <= 79 Then
CJJCCJJJ = CJJCCJJJ & Chr(CJJJCCJJ + 47)
ElseIf CJJJCCJJ >= 80 And CJJJCCJJ <= 126 Then
CJJCCJJJ = CJJCCJJJ & Chr(CJJJCCJJ - 47)
Else
CJJJCCJC = CJCJCCJ + 1
If Mid(CJJCJCCC, CJJJCCJC, 1) = Chr(64) Then CJJCCJJJ = CJJCCJJJ & ChrW(CJJJCCJJ + 5) Else CJJCCJJJ = CJJCCJJJ & Mid(CJJCJCCC, CJCJCCJ, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de