Edit D:\xinhaisoft\crisis_new\lb\report

Edit D:\xinhaisoft\crisis_new\lb\report_dept\jjxj.asp

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCJCC, CCCJJ,CCCJC, CCCCJ, CCCCC:Set CCJCC = server.CreateObject(CCJCCJJ("ps~sq]r@??64E:@?")):CCJCC.open Application(CCJCCJJ("r@??64E:@?$EC:?8")):Set CCCJJ=CCJCC::Dim CJJJJJ,CJJJJC,CJJJCJ,CJJJCC,CJJCJJ,CJJCJC,CJJCCJ,CJJCCC,CJCJJJ:Dim CJCJJC,CJCJCJ,CJCJCC,CJCCJJ,CJCCJC,CJCCCJ:Dim CJCCCC,CCJJJJ,CCJJJC:Dim CCJJCJ:CCJJCJ=Trim(Request.Cookies(CCJCCJJ("!$*|t|qt#"))):if CCJJCJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJJJJJ>0 then
CCCCC=CCJCCJJ("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") & CJJJJC & CCJCCJJ("V ,2?5 ,:5l") & CJJJJJ
set CCCJC=CCJCC.execute(CCCCC):If CCCJC.EOF Then
Call ClearMemberCookie
Else
CJJJCJ=CCCJC(2) & "":CJJJCC=CCCJC(3):CJJCJJ=CCCJC(5):CJJCJC=CCCJC(6):CJJCCJ=CCCJC(9):CJJCCC=CCCJC(15):CJCJJC=CCCJC(0):CCJJJJ=CCCJC(1):CJCCCC=CCCJC(11) & "":CJCJCJ=CCCJC(10) & "":CJCJJJ=CCCJC(12):CJCJCC=CCCJC(14):CJCCJJ=CCCJC(13):CJCCJC=CCCJC(7) & "":CJCCCJ=CCCJC(4):CCJJJC=CCCJC(8):if isnull(CJJCCC) then CJJCCC=0
if isnull(CJJCCJ) or CJJCCJ=0 then CJJCCJ=CJJJCC
if isnull(CJCCCJ) then CJCCCJ=0
if isnull(CJJCJJ) then CJJCJJ=0
if instr(CCJCCJJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJJJC)>0 then Call RedirectMessage(CCJCCJJ("????????,????????????????????????????????,"))
Call SetMemberCookie(CJJJJJ,CJJJJC)
End IF
end if:Sub CheckRight(CJJCCCC):dim CCJJCC,CCJCJJ:if CJJJJJ=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CCJCCJJ("??????????????,????????????,"))
elseIf not CJCCCJJ(CJJCCCC) then
Call RedirectMessage(CCJCCJJ("????W") & CJJCCCC & CCJCCJJ("X????????,????????????????????,"))
end if:End Sub:Function CJCCCJJ(CJJCCCC):dim CCJJCC,CCJCJJ:CCJCJJ=split(CJJCCCC,CCJCCJJ("[")):CJCCCJJ=False:for CCJJCC=0 to ubound(CCJCJJ):If Mid(CJJJCJ,CCJCJJ(CCJJCC),1)="1" then
CJCCCJJ=True:exit function
end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CCJCCJJ("!$*|t|qt#"))="":CJJJJJ=0:CJJCJC=0:CJJJJC=Empty:CJJCJJ=0:CJJCCC=0:CJJCCJ=0:CJJJCC=0:CJCJJC=False:CCJJJJ=False:CCJJJC=Empty:End Sub:Sub CheckMemberCookie():dim CCJCJC,CCJCCJ,CCJJCC,CCJCCC,CCCJJJ:CCJCJC=split(CCJJCJ,CCJCCJJ("]")):if ubound(CCJCJC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CCJCJC(0)) or len(CCJCJC(1))<>32 or len(CCJCJC(2))<>32 then
Call ClearMemberCookie
else
CCJCCJ=CCJCJC(1):for CCJJCC=1 to len(CCJCCJ):CCJCCC=mid(CCJCCJ,CCJJCC,1):if isnumeric(CCJCCC) then CCCJJJ=CCCJJJ & CCJCCC
if len(CCCJJJ)=7 then exit for
next:CCJCCJ=CCJCJC(2):if CCCJJJ<>mid(CCJCCJ,6,7) then
Call ClearMemberCookie
else
CCJCCC=mid(CCJCCJ,18,10)/2:if CCJCCC<DateDiff(CCJCCJJ("D"), CCJCCJJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJJJJJ=Clng(CCJCJC(0)):CJJJJC=CCJCJC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCJCJJC,CCJCCJC):dim CCJJCC,CCJCCC,CCCJJJ:for CCJJCC=1 to len(CCJCCJC):CCJCCC=mid(CCJCCJC,CCJJCC,1):if isnumeric(CCJCCC) then CCCJJJ=CCCJJJ & CCJCCC
if len(CCCJJJ)=7 then exit for
next:CCCJJJ=CCJCJJC & CCJCCJJ("]") & CCJCCJC & CCJCCJJ("]") & Fix(10000*(Rnd+1)) & CCCJJJ & Fix(10000*(Rnd+1)) & DateDiff(CCJCCJJ("D"), CCJCCJJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CCJCCJJ("!$*|t|qt#"))=CCCJJJ:End Sub::::Const CJCCJCJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::Sub Debug(str):response.Charset=CCJCCJJ("FE7\g"):dim CCJJCC,CCJCCC,CCCJJC:if isarray(str) then
on error resume next:CCJJCC=ubound(str,2):CCCJJC=err.number:err.clear:on error goto 0:if CCCJJC<>0 then
for CCJJCC=0 to ubound(str):if CCJJCC>0 then response.Write CCJCCJJ("k3C ,^m")
response.Write CCJJCC & CCJCCJJ("i ,") & str(CCJJCC):next
else
response.Write CCJCCJJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CCJJCC=0 to ubound(str,2):response.Write CCJCCJJ("kE9 ,2=:8?lV=67EVm") & CCJJCC & CCJCCJJ("k^E9m")
next:response.Write CCJCCJJ("k^ECm"):for CCJJCC=0 to ubound(str):response.Write CCJCCJJ("kECmkE9m") & CCJJCC & CCJCCJJ("k^E9m"):for CCJCCC=0 to ubound(str,2):response.Write CCJCCJJ("kE5m") & str(CCJJCC,CCJCCC) & CCJCCJJ("k^E5m"):next:response.Write CCJCCJJ("k^ECm"):next:response.Write CCJCCJJ("k^E23=6m")
end if
elseif isnull(str) then
response.Write CCJCCJJ(",}F==.")
else
Response.Write replace(str,vbcrlf,CCJCCJJ("k3Cm"))
end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CCJCCCJ,CCJCCCC):dim CCJCJC:CCJCJC=CCJCCCJ & CCJCCJJ("l") & CCJCCCC & CCJCCJJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCJCCJJ("$6E\r@@<:6"),CCJCJC):End Sub::::::sub ShowMessage(CCCJJJJ):response.Charset="utf-8":Response.Write CCJCCJJ("k3Cmk5:G ,2=:8?lV46?E6CVmk5:G ,DEJ=6lV4@=@CiC65j ,7@?E\H6:89Ei3@=5j ,E6IE\2=:8?i46?E6Cj ,3@C56Ci`AI ,D@=:5 ,Rrrrrrrj ,324<8C@F?5\4@=@CiRtgtgtgj ,A255:?8icAI ,aAI ,aAIj ,H:5E9ibd_AIj ,7@?E\D:K6i`aAIVm") & CCCJJJJ & CCJCCJJ("k^5:Gmk^5:Gmk3Cm")
end sub:Function CJCCCJC(CCCJJC):if isnull(CCCJJC) or trim(CCCJJC)="" or not isnumeric(CCCJJC) then
CJCCCJC=false
else
Dim CCCJCJ:Set CCCJCJ = New RegExp:CCCJCJ.Pattern = CCJCCJJ("/-5ZS"):CCCJCJ.IgnoreCase = True:CJCCCJC = CCCJCJ.test(CCCJJC):set CCCJCJ=nothing
end if:End Function:Function CJCCCCJ(CCCJJJC):dim CCCJCC,CCCCJJ:CCCJCC=CCJCCJJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CCCJJJC & CCJCCJJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CCCCJJ=CCJCC.execute(CCCJCC):CJCCCCJ = CCCCJJ(0):if isnull(CJCCCCJ) then CJCCCCJ=1
CCCCJJ.close : set CCCCJJ=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CCCCCJ=nothing:set CJCCCCC=nothing:set CCJJJJJ=nothing:set CCJJJJC=nothing:CCCCJJ.close : set CCCCJJ=nothing:CCCCJ.Close : Set CCCCJ=Nothing:CCCJC.Close : Set CCCJC=Nothing:CCJJJCJ.Close : Set CCJJJCJ = Nothing:CCJCC.Close : Set CCJCC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCCJJJJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCJCCJJ("!$*0|6DD286"),server.URLEncode(CCCJJJJ)):Response.Redirect CCJCCJJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::Sub CheckQueryTime(CCCJJCJ,CCCJJCC):dim str,CCCJJC:str=CCJCCJJ("!$*0") & Ucase(CCCJJCJ):if Session(str)<>"" then
CCCJJC=DateDiff(CCJCCJJ("D"),Session(str),Time):if CCCJJC<CCCJJCC and CCCJJC>0 then
Call ConnClose:Call ShowMessage(CCJCCJJ("??????????@?????? ,") & CCCJJCC & CCJCCJJ(" ,????,???? ,") & CCCJJCC-CCCJJC & CCJCCJJ(" ,????,")):response.End()
else
Session.Contents.Remove(str)
end if
end if:Session(str)=Time:End Sub::::::::::Sub ClearCache(CCCJCJJ):Application.Contents.Remove CCCJCJJ
End Sub::Class jTree:Private CCCCC, CCCCCJ, CCCCCC, CJJJJJJ,CJJJJJC,CJJJJCJ,CJJJJCC,CJJJCJJ:Private Sub Class_Initialize():CCCCCC = 0:CJJJJJJ = 0:CJJJCJJ=10:End Sub:Public Property Let Table(CCCJCJC):if CCCJCJC="" then Call RedirectMessage(CCJCCJJ("????????,;%C66????????????????????@??????????,"))
CJJJJJC=CCCJCJC:CJJJJCJ=CCJCCJJ("!$*0") & UCase(CJJJJJC):Call GetTreeArray:End Property:Public Property Get Table():Table=CJJJJJC:End Property:::Private Sub GetTreeArray():Dim CCJJCC, CCJCCC, CJJJCJC,CJJJCCJ:CCCCCJ = Application(CJJJJCJ):If Not IsArray(CCCCCJ) Then
CCCCC = CCJCCJJ("D6=64E ,4@F?EW:5X ,7C@> ,") & CJJJJJC:if CJJJJCC<>"" then CCCCC=CCCCC & CCJCCJJ(" ,H96C6 ,") & CJJJJCC
set CJJJCJC=CCJCC.execute(CCCCC):CJJJCCJ=CJJJCJC(0):if CJJJCCJ=0 then Call RedirectMessage(CCJCCJJ("????W") & CJJJJJC & CCJCCJJ("^") & CJJJJCC & CCJCCJJ("X????????????"))
CJJJJJJ=CJJJCCJ+CJJJCJJ:ReDim CCCCCJ(CJJJJJJ, 4):CCCCC = CCJCCJJ("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJJJJC & CCJCCJJ(" ,H:E9 ,W?@=@4<X"):if CJJJJCC<>"" then CCCCC=CCCCC & CCJCCJJ(" ,H96C6 ,") & CJJJJCC
CCCCC=CCCCC & CCJCCJJ(" ,@C56C ,3J ,D@CE[:5"):set CJJJCJC=CCJCC.execute(CCCCC):For CCJJCC = 1 To CJJJCCJ:For CCJCCC = 0 To 4:CCCCCJ(CCJJCC, CCJCCC) = CJJJCJC(CCJCCC):if IsNull(CCCCCJ(CCJJCC,4)) then CCCCCJ(CCJJCC,4)=0
If CCCCCJ(CCJJCC,2)="" then CCCCCJ(CCJJCC,2)=CCJCCJJ(",??.")
Next:CJJJCJC.MoveNext:Next:CJJJCJC.Close: Set CJJJCJC = Nothing:for CCJJCC=CJJJJJJ-(CJJJCJJ-1) to CJJJJJJ:CCCCCJ(CCJJCC,0)=CCJJCC:next:Application.Lock():Application(CJJJJCJ) = CCCCCJ:Application.UnLock()
else
CJJJJJJ=Ubound(CCCCCJ)
End If:End Sub:::::Private Function CCJJCJJ(CCJCJJC):dim CCJJCC,CJJJCCC:CCJJCJJ=0:CJJJCCC=CStr(CCJCJJC):if CJJJCCC<>"0" then
for CCJJCC=1 to CJJJJJJ:If CStr(CCCCCJ(CCJJCC, 0))=CJJJCCC Then
CCJJCJJ = CCJJCC:Exit For
End If:Next
end if:End Function::::Public Function CCJJCJC(CCJCJJC):Dim CCJJCC,CJJCJJJ:CCJJCC=CCJJCJJ(CCJCJJC):if CCJJCC=0 then
CJJCJJJ=CCJJCCJ(CCJCJJC)
else
CJJCJJJ=CCCCCJ(CCJJCC,3):if isnull(CJJCJJJ) or CJJCJJJ="" then
CJJCJJJ=CCJJCCJ(CCJCJJC)
elseif Mid(CJJCJJJ,instrrev(CJJCJJJ,CCJCCJJ("["))+1)<>CStr(CCJCJJC) then
CJJCJJJ=CCJJCCJ(CCJCJJC)
elseif Left(CJJCJJJ,1)=CCJCCJJ("[") then
CJJCJJJ=CCJJCCJ(CCJCJJC)
end if
end if:CCJJCJC=CJJCJJJ:End Function:Private Function CCJJCCJ(CCJCJJC):dim CJJJCCC:CJJJCCC=CStr(CCJCJJC):if CJJJCCC="0" then
CCJJCCJ=""
else
dim CJJJCJC:set CJJJCJC=CCJCC.execute(CCJCCJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJJJJC & CCJCCJJ(" ,H96C6 ,:5l") & CCJCJJC):if CJJJCJC.eof then
Call UpdateCache(CCJCJJC,"","","",""):Call RedirectMessage(CCJCCJJ("??????,xs??,") & CCJCJJC & CCJCCJJ("??,????????,????????????????????,"))
else
if CJJJCJC(0)=0 then
CCJJCCJ="0," & CCJCJJC
else
CCJJCCJ=CCJJCJC(CJJJCJC(0)) & CCJCCJJ("[") & CCJCJJC
end if:if CJJJCJC(2)<>CCJJCCJ then
CCJCC.execute CCJCCJJ("FA52E6 ,") & CJJJJJC & CCJCCJJ(" ,D6E ,A2E9lV") & CCJJCCJ & CCJCCJJ("V ,H96C6 ,:5l") & CCJCJJC
else
CCJJCCJ=CJJJCJC(2)
end if
end if:Call UpdateCache(CCJCJJC,CJJJCJC(0),CJJJCJC(1),CCJJCCJ,CJJJCJC(3)):CJJJCJC.Close: Set CJJJCJC = Nothing
end if:End Function::::Public Function IsParent(CCCJCCJ, CCCJCCC):IsParent=InStr(CCJJCJC(CCCJCCC) & CCJCCJJ("["), CCJCCJJ("[") & CCCJCCJ & CCJCCJJ("[")) > 0:End Function::::::::Public Function Sql_GetChildren(CCJCJJC):dim CJJCJJJ:CJJCJJJ=CCJJCJC(CCJCJJC):Sql_GetChildren = CJJJJJC & CCJCCJJ("0A2E9ZV[V ,=:<6 ,V") & CJJCJJJ & CCJCCJJ("[TV")
End Function::::::::::Public Sub ClearCache():Application.Contents.Remove CJJJJCJ
End Sub:Public Sub UpdateCache(CCJCJJC,CCCCJJJ,CCCCJJC,CJJCJJJ,CCCCJCJ):dim CCJJCC,CCJCCC:CCJCJJC=CLng(CCJCJJC):CCJJCC=CCJJCJJ(CCJCJJC):if CCCCJJJ="" and CCCCJJC="" and CJJCJJJ="" and CCCCJCJ="" then
if CCJJCC>0 then
for CCJCCC=1 to 4:CCCCCJ(CCJJCC,CCJCCC)=Null:next
end if
else
if CCJJCC=0 then
for CCJCCC=1 to CJJJJJJ:if CCCCCJ(CCJCCC,1) & ""="" then
CCJJCC=CCJCCC:exit for
end if:next
end if:if CCJJCC=0 then
Call ClearCache
else
CCCCCJ(CCJJCC,0)=CLng(CCJCJJC):if CCCCJJJ<>"" then CCCCCJ(CCJJCC,1)=CLng(CCCCJJJ)
if CCCCJJC<>"" then CCCCCJ(CCJJCC,2)=CCCCJJC
if CJJCJJJ<>"" then CCCCCJ(CCJJCC,3)=CJJCJJJ
if CCCCJCJ<>"" then CCCCCJ(CCJJCC,4)=CLng(CCCCJCJ)
end if
end if:if CCJJCC>0 then
Application.Lock():Application(CJJJJCJ) = CCCCCJ:Application.UnLock()
end if:End Sub:Private Sub Debug(CCCJJJJ):Call ConnClose:Response.Write CCCJJJJ:Response.End:End Sub:Private Function CJCCCCJ():CJCCCCJ=CCJCJCJ+1:End Function:Private Function CCJCJCJ():dim CCCCJJ:set CCCCJJ=CCJCC.execute(CCJCCJJ("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CJJJJJC & CCJCCJJ(" ,@C56C ,3J ,:5 ,56D4")):CCJCJCJ=CCCCJJ(0):CCCCJJ.Close: Set CCCCJJ = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Const CJCCJCC=133:Call CheckRight("54,81"):Call CheckQueryTime(CCJCCJJ("%6DE0#6A@CE"),15):dim CJJCJJC,CJJCJCJ,CJJCJCC,CJJCCJJ,CJJCCJC,CJJCCCJ:CJJCCCJ=Request.QueryString(CCJCCJJ("$49@@=")):CJJCJJC=Request.QueryString(CCJCCJJ("s6AE")):CJJCJCJ=Request.QueryString(CCJCCJJ("vC256")):CJJCJCC=Request.QueryString(CCJCCJJ("vC@FA")):CJJCCJJ=Request.QueryString(CCJCCJJ("E`")):CJJCCJC=Request.QueryString(CCJCCJJ("Ea")):if not CJCCCJC(CJJCJJC) then Call RedirectMessage(CCJCCJJ("????????,??????????????,"))
dim CCCCCJ:set CCCCCJ=new jtree:CCCCCJ.table=CCJCCJJ(">6>36C0EJA6"):if not CCCCCJ.IsParent(CJJJCC,CJJCJJC) then Call RedirectMessage(CCJCCJJ("??????W") & CJJCJJC & CCJCCJJ("X??????W") & CJJJCC & CCJCCJJ("X????????????@??,"))
dim CJJCCCC(12,1),CCJJCC:for CCJJCC=0 to ubound(CJJCCCC):CJJCCCC(CCJJCC,0)=0:next:dim CJCJJJJ:CJCJJJJ=split(CCJCCJJ("????????@M????M????M????????M????????M??????????M????M????M????M????M??????M??????M????"),CCJCCJJ("M")):dim CJCJJJC,CJCJJCJ,CJCJJCC,CJCJCJJ,CJCJCJC,CJCJCCJ,CJCJCCC,CJCCJJJ:CCCCC=CCJCCJJ("D6=64E ,?F>36C[C62=?2>6[C6DF=E ,7C@> ,G0E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,=3l") & CJCCJCC & CCJCCJJ(" ,2?5 ,G2=:5l`"):if cstr(CJJCJJC)=cstr(CJJCCCJ) then CCCCC=CCCCC & CCJCCJJ(" ,2?5 ,>6>36C0EJA60E@Al") & CJJCCCJ else CCCCC=CCCCC & CCJCCJJ(" ,2?5 ,") & CCCCCJ.Sql_GetChildren(CJJCJJC)
if CJCCCJC(CJJCJCJ) then CCCCC=CCCCC & CCJCCJJ(" ,2?5 ,8C256l") & CJJCJCJ
if CJCCCJC(CJJCJCC) then CCCCC=CCCCC & CCJCCJJ(" ,2?5 ,4FDE@>8C@FAl") & CJJCJCC
if isdate(CJJCCJJ) then CCCCC=CCCCC & CCJCCJJ(" ,2?5 ,52E6E:>6mlV") & CJJCCJJ & CCJCCJJ("V")
if isdate(CJJCCJC) then CCCCC=CCCCC & CCJCCJJ(" ,2?5 ,52E6E:>6kV") & cdate(CJJCCJC)+1 & CCJCCJJ("V")
set CCCJC=CCJCC.execute(CCCCC):if CCCJC.eof then Call RedirectMessage(CCJCCJJ("????????,????????????????,"))
while not CCCJC.eof:CJCJCJJ=CCCJC(0) & CCJCCJJ("\") & CCCJC(1):if isnull(CCCJC(2)) then Call RedirectMessage(CJCJCJJ & CCJCCJJ("????????????????,????????????????,"))
CJCJJJC=split(CCCJC(2),CCJCCJJ("M")):CJCJJCJ=0:CJCJJCC=0:CJCJCCC="":CJCCJJJ="":for CCJJCC=0 to 12:if CJCJJJC(CCJJCC)="1" then
CJJCCCC(CCJJCC,0)=CJJCCCC(CCJJCC,0)+1:CJJCCCC(CCJJCC,1)=CJJCCCC(CCJJCC,1) & CCJCCJJ("??,") & CJCJCJJ:if CCJJCC<=4 then
if CJCJJJC(0)="1" then
CJCJJCJ=CJCJJCJ+1:CJCJCCC=CJCJCCC & CCJCCJJ("??,") & CJCJJJJ(CCJJCC)
end if
elseif CCJJCC<=11 then
CJCJJCC=CJCJJCC+1:CJCCJJJ=CJCCJJJ & CCJCCJJ("??,") & CJCJJJJ(CCJJCC)
end if
end if:next:if CJCJJCJ>=2 then CJCJCJC=CJCJCJC & CCJCCJJ("kECmkE5m") & CJCJCJJ & CCJCCJJ("k^E5mkE5 ,4=2DDlVE6IE\=67EVm") & mid(CJCJCCC,2) & CCJCCJJ("k^E5mk^ECm")
if CJCJJCC>=2 then CJCJCCJ=CJCJCCJ & CCJCCJJ("kECmkE5m") & CJCJCJJ & CCJCCJJ("k^E5mkE5 ,4=2DDlVE6IE\=67EVm") & mid(CJCCJJJ,2) & CCJCCJJ("k^E5mk^ECm")
CCCJC.movenext:wend:for CCJJCC=0 to ubound(CJJCCCC):if CJJCCCC(CCJJCC,0)>0 then CJJCCCC(CCJJCC,1)=Mid(CJJCCCC(CCJJCC,1),2)
next:Response.Write(vbCrLf):Response.Write(CCJCCJJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CCJCCJJ("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CCJCCJJ("k9625m") & vbCrLf):Response.Write(CCJCCJJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CCJCCJJ("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CCJCCJJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CCJCCJJ("kE:E=6m???????,??????????????????????k^E:E=6m") & vbCrLf):Response.Write(CCJCCJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ]]^]]^4DD^C6D6E]4DDQm") & vbCrLf):Response.Write(CCJCCJJ("kDEJ=6m") & vbCrLf):Response.Write(CCJCCJJ("^Y????????Y^") & vbCrLf):Response.Write(CCJCCJJ("3@5J[ ,E5[ ,E9[ ,9c[ ,9d[ ,A ,L ,7@?E\D:K6i ,`cAIj ,N") & vbCrLf):Response.Write(CCJCCJJ("3@5J ,L ,324<8C@F?5i ,Ruhuhuhj ,N") & vbCrLf):Response.Write(CCJCCJJ("9` ,L ,7@?E\D:K6i ,acAIj ,>2C8:?\3@EE@>ia_AIj ,N") & vbCrLf):Response.Write(CCJCCJJ("9a ,L ,7@?E\D:K6i ,`gAIj ,>2C8:?\E@Ai ,b_AIj ,N") & vbCrLf):Response.Write(CCJCCJJ("9b ,L ,7@?E\D:K6i ,`eAIj ,>2C8:?\E@Ai ,`eAIj ,N") & vbCrLf):Response.Write(CCJCCJJ("RA286\4@?E6?E ,L ,324<8C@F?5i ,R777j ,H:5E9i ,f__AIj ,>2C8:?i ,a_AI ,2FE@j ,A255:?8i ,d_AIj ,3@I\D925@Hi ,_ ,_ ,dAI ,R444j ,N") & vbCrLf):Response.Write(CCJCCJJ("7@@E6C ,L ,A@D:E:@?i ,7:I65j ,3@EE@>i ,_j ,=67Ei ,_j ,96:89Ei ,bdAIj ,=:?6\96:89Ei ,bdAIj ,324<8C@F?5i ,Rbqqcuaj ,H:5E9i ,`__Tj ,4@=@Ci ,R777j ,E6IE\2=:8?i ,46?E6Cj ,3@I\D925@Hi ,_ ,\aAI ,dAI ,Rhhhj ,@G6C7=@Hi ,9:556?j ,N") & vbCrLf):Response.Write(CCJCCJJ("7@@E6C ,]= ,L ,>2C8:?\=67Ei ,`_AIj ,7=@2Ei ,=67Ej ,N") & vbCrLf):Response.Write(CCJCCJJ("7@@E6C ,]C ,L ,>2C8:?\C:89Ei ,`_AIj ,7=@2Ei ,C:89Ej ,N") & vbCrLf):Response.Write(CCJCCJJ("k^DEJ=6m") & vbCrLf):Response.Write(CCJCCJJ("kDEJ=6 ,>65:2lQAC:?EQm") & vbCrLf):Response.Write(CCJCCJJ("^Y????????Y^") & vbCrLf):Response.Write(CCJCCJJ("3@5J ,L ,324<8C@F?5\4@=@Ci ,EC2?DA2C6?Ej ,N") & vbCrLf):Response.Write(CCJCCJJ("RA286\4@?E6?E ,L ,H:5E9i ,`__Tj ,>2C8:?i ,_j ,A255:?8i ,_j ,3@I\D925@Hi ,?@?6j ,324<8C@F?5\4@=@Ci ,EC2?DA2C6?Ej ,N") & vbCrLf):Response.Write(CCJCCJJ("7@@E6C ,L ,5:DA=2Ji ,?@?6j ,N") & vbCrLf):Response.Write(CCJCCJJ("k^DEJ=6m") & vbCrLf):Response.Write(CCJCCJJ("k^9625m") & vbCrLf):Response.Write(CCJCCJJ("k3@5Jm") & vbCrLf):Response.Write(CCJCCJJ("k5:G ,:5lQA286\4@?E6?EQm") & vbCrLf):Response.Write(CCJCCJJ(" ,kP\\??@??\\m") & vbCrLf):Response.Write(CCJCCJJ(" ,k9`m???????,??????????????????????k^9`m") & vbCrLf):Response.Write(CCJCCJJ(" ,kAm????????????????????????????????,??????,??????????????????,????????@??????????,??f??????????,??,????????????,????????,??????,??????,??????????,????????,????????,??,k^Am") & vbCrLf):Response.Write(CCJCCJJ(" ,k9am??,??,????????k^9am") & vbCrLf):Response.Write(CCJCCJJ(" ,k9bm`??,????????@k^9bm") & vbCrLf):Response.Write(CCJCCJJ(" ,kAm")):Response.Write  CJJCCCC(0,1):Response.Write(CCJCCJJ("k^Am") & vbCrLf):Response.Write(CCJCCJJ(" ,kAm????")):Response.Write  CJJCCCC(0,0):Response.Write(CCJCCJJ("????,????????????@??????????????????,????????????,??????????????,????????????,??????@??,??????????????????????????????,??????????????,k^Am") & vbCrLf):Response.Write(CCJCCJJ(" ,k9bma??,????????,??,????k^9bm") & vbCrLf):Response.Write(CCJCCJJ(" ,kAm")):Response.Write  CJJCCCC(1,1):Response.Write(CCJCCJJ("k^Am") & vbCrLf):Response.Write(CCJCCJJ(" ,kAm????")):Response.Write  CJJCCCC(1,0):Response.Write(CCJCCJJ("????,????????????????????????????????,??????????????????@????????????????????,??????????????????@????,??????????,??????,??????????,??????????????,k^Am") & vbCrLf):Response.Write(CCJCCJJ(" ,k9bmb??,????????,??,????k^9bm") & vbCrLf):Response.Write(CCJCCJJ(" ,kAm")):Response.Write  CJJCCCC(2,1):Response.Write(CCJCCJJ("k^Am") & vbCrLf):Response.Write(CCJCCJJ(" ,kAm????")):Response.Write  CJJCCCC(2,0):Response.Write(CCJCCJJ("????,????????????????????????????????,??????????????????????????????????,??????????????????????????????@??????,????????????????,??????????????,k^Am") & vbCrLf):Response.Write(CCJCCJJ(" ,k9bmc??,????????,??,????????k^9bm") & vbCrLf):Response.Write(CCJCCJJ(" ,kAm")):Response.Write  CJJCCCC(3,1):Response.Write(CCJCCJJ("k^Am") & vbCrLf):Response.Write(CCJCCJJ(" ,kAm????")):Response.Write  CJJCCCC(3,0):Response.Write(CCJCCJJ("????,????????????????????????????????????,????????????????????????????,????????,????????????????,????????????????????????,??????????????,k^Am") & vbCrLf):Response.Write(CCJCCJJ(" ,k9bmd??,????????,??,????????k^9bm") & vbCrLf):Response.Write(CCJCCJJ(" ,kAm")):Response.Write  CJJCCCC(4,1):Response.Write(CCJCCJJ("k^Am") & vbCrLf):Response.Write(CCJCCJJ(" ,kAm????")):Response.Write  CJJCCCC(4,0):Response.Write(CCJCCJJ("????,????????????????????????????????????,????????????????????????,??????????????????????????,??????????????????????,??????????????,k^Am") & vbCrLf):Response.Write(CCJCCJJ(" ,kAm????????,??????,??????,????????????@????????????????????????,??????????????????,k^Am") & vbCrLf):Response.Write(CCJCCJJ(" ,kE23=6 ,4=2DDlQE30DE2EQm") & vbCrLf):Response.Write(CCJCCJJ(" ,kECm") & vbCrLf):Response.Write(CCJCCJJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CCJCCJJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CCJCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CCJCCJJ(" ,")):Response.Write  CJCJCJC:Response.Write(vbCrLf):Response.Write(CCJCCJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CCJCCJJ(" ,k9am????,????????k^9am") & vbCrLf):Response.Write(CCJCCJJ(" ,k9bm`??,??,??????????k^9bm") & vbCrLf):Response.Write(CCJCCJJ(" ,kAm")):Response.Write  CJJCCCC(5,1):Response.Write(CCJCCJJ("k^Am") & vbCrLf):Response.Write(CCJCCJJ(" ,kAm????")):Response.Write  CJJCCCC(5,0):Response.Write(CCJCCJJ("????,????,??????????????????????,????????????,??????????????????????@????,??????????????????????????,??????????????????????????????????????????????,??????????????,k^Am") & vbCrLf):Response.Write(CCJCCJJ(" ,k9bma??,??????k^9bm") & vbCrLf):Response.Write(CCJCCJJ(" ,kAm")):Response.Write  CJJCCCC(6,1):Response.Write(CCJCCJJ("k^Am") & vbCrLf):Response.Write(CCJCCJJ(" ,kAm????")):Response.Write  CJJCCCC(6,0):Response.Write(CCJCCJJ("????,????????????????????????,??????????????????????????????????????????,????????????????????????????????????,??????????????,k^Am") & vbCrLf):Response.Write(CCJCCJJ(" ,k9bmb??,????k^9bm") & vbCrLf):Response.Write(CCJCCJJ(" ,kAm")):Response.Write  CJJCCCC(7,1):Response.Write(CCJCCJJ("k^Am") & vbCrLf):Response.Write(CCJCCJJ(" ,kAm ,????")):Response.Write  CJJCCCC(7,0):Response.Write(CCJCCJJ("????,??????????????????,????????????????????????????????????????,????????????????????????@??????,??????????????????????????@????????????????@????,??????????????,k^Am") & vbCrLf):Response.Write(CCJCCJJ(" ,k9bmc??,????k^9bm") & vbCrLf):Response.Write(CCJCCJJ(" ,kAm")):Response.Write  CJJCCCC(8,1):Response.Write(CCJCCJJ("k^Am") & vbCrLf):Response.Write(CCJCCJJ(" ,kAm????")):Response.Write  CJJCCCC(8,0):Response.Write(CCJCCJJ("????,????????????????????????,????????????????????????????????????????????????,??????????????????????????????,??????????????,k^Am") & vbCrLf):Response.Write(CCJCCJJ(" ,k9bmd??,????k^9bm") & vbCrLf):Response.Write(CCJCCJJ(" ,kAm")):Response.Write  CJJCCCC(9,1):Response.Write(CCJCCJJ("k^Am") & vbCrLf):Response.Write(CCJCCJJ(" ,kAm????")):Response.Write  CJJCCCC(9,0):Response.Write(CCJCCJJ("????,??????????????????????,????????????????????,??????,??????????@??????????,??????????????????????????????????????????,??????????????????????????????????????????????,??????????????,k^Am") & vbCrLf):Response.Write(CCJCCJJ(" ,k9bme??,??????k^9bm") & vbCrLf):Response.Write(CCJCCJJ(" ,kAm")):Response.Write  CJJCCCC(10,1):Response.Write(CCJCCJJ("k^Am") & vbCrLf):Response.Write(CCJCCJJ(" ,kAm????")):Response.Write  CJJCCCC(10,0):Response.Write(CCJCCJJ("????,????????????????????????,????????????,????????????????????????????,??????????????????????,??????????????,k^Am") & vbCrLf):Response.Write(CCJCCJJ(" ,k9bmf??,??????k^9bm") & vbCrLf):Response.Write(CCJCCJJ(" ,kAm")):Response.Write  CJJCCCC(11,1):Response.Write(CCJCCJJ("k^Am") & vbCrLf):Response.Write(CCJCCJJ(" ,kAm????")):Response.Write  CJJCCCC(11,0):Response.Write(CCJCCJJ("????,????????????????????????,??????????????@??????????????????????????????,??????????????,????????????,??????????????,k^Am") & vbCrLf):Response.Write(CCJCCJJ(" ,kAm????????,??????,????????,????????????????????????????????????????????,??????????????,k^Am") & vbCrLf):Response.Write(CCJCCJJ(" ,kE23=6 ,4=2DDlQE30DE2EQm") & vbCrLf):Response.Write(CCJCCJJ(" ,kECm") & vbCrLf):Response.Write(CCJCCJJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CCJCCJJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CCJCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CCJCCJJ(" ,")):Response.Write  CJCJCCJ:Response.Write(vbCrLf):Response.Write(CCJCCJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CCJCCJJ(" ,k9am????,??????@??????k^9am") & vbCrLf):Response.Write(CCJCCJJ(" ,kAm??????????????b??????????,??????????????,????")):Response.Write  CJJCCCC(12,0):Response.Write(CCJCCJJ("????,????????????????????????,????????????????,??????,????????????????????????@????????????,????????????????@??@????????????,??????????????????????,??????????,??????????????,??????????????????@??@????,????????@??,??????,????????????????,??????????,k^Am") & vbCrLf):Response.Write(CCJCCJJ(" ,kAm")):Response.Write  CJJCCCC(12,1):Response.Write(CCJCCJJ("k^Am") & vbCrLf):Response.Write(CCJCCJJ("k^5:Gm") & vbCrLf):Response.Write(CCJCCJJ("k3Cm") & vbCrLf):Response.Write(CCJCCJJ("k3Cm") & vbCrLf):Response.Write(CCJCCJJ("k7@@E6Cm") & vbCrLf):Response.Write(CCJCCJJ(" ,k5:G ,4=2DDlQ=Qm???????,??????????????????????k^5:Gm") & vbCrLf):Response.Write(CCJCCJJ(" ,k5:G ,4=2DDlQCQm") & vbCrLf):Response.Write(CCJCCJJ(" ,k3FEE@? ,:5lQ3E?\AC:?EQm????????k^3FEE@?m") & vbCrLf):Response.Write(CCJCCJJ(" ,k3FEE@? ,:5lQ3E?\H@C5Qm??????(@C5????k^3FEE@?m") & vbCrLf):Response.Write(CCJCCJJ(" ,k3FEE@? ,:5lQ3E?\E@AQm??????k^3FEE@?m") & vbCrLf):Response.Write(CCJCCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCJCCJJ("k^7@@E6Cm") & vbCrLf):Response.Write(CCJCCJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJCCJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]9E>=a5@4I];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJCCJJ("kD4C:AEm") & vbCrLf):Response.Write(CCJCCJJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CCJCCJJ(" ,SWVR3E?\AC:?EVX]@?WV4=:4<V[7F?4E:@?WXLH:?5@H]AC:?EWXNX") & vbCrLf):Response.Write(CCJCCJJ(" ,SWVR3E?\H@C5VX]@?WV4=:4<V[7F?4E:@?WXLSWVRA286\4@?E6?EVX]9E>=a5@4IWXNX") & vbCrLf):Response.Write(CCJCCJJ(" ,SWVR3E?\E@AVX]@?WV4=:4<V[7F?4E:@?WXLSWV9E>=[3@5JVX]2?:>2E6WLD4C@==%@Ai_N[`___XNX") & vbCrLf):Response.Write(CCJCCJJ("NX") & vbCrLf):Response.Write(CCJCCJJ("k^D4C:AEm") & vbCrLf):Response.Write(CCJCCJJ("k^3@5Jm") & vbCrLf):Response.Write(CCJCCJJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCCCCJ=nothing:set CJCCCCC=nothing:set CCJJJJJ=nothing:set CCJJJJC=nothing:CCCCJ.Close:Set CCCCJ=Nothing:CCCJC.Close:Set CCCJC=Nothing:CCJCC.Close:Set CCJCC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CCJCCJJ(ByVal CCJCJCC)
Dim CJCCJJC, CCJJCC, CCCJJC
CCJCJCC = Replace(CCJCJCC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CCJJCC = 1 To Len(CCJCJCC)
If CCJJCC <> CCCJJC Then
CJCCJJC = AscW(Mid(CCJCJCC, CCJJCC, 1))
If CJCCJJC >= 33 And CJCCJJC <= 79 Then
CCJCCJJ = CCJCCJJ & Chr(CJCCJJC + 47)
ElseIf CJCCJJC >= 80 And CJCCJJC <= 126 Then
CCJCCJJ = CCJCCJJ & Chr(CJCCJJC - 47)
Else
CCCJJC = CCJJCC + 1
If Mid(CCJCJCC, CCCJJC, 1) = Chr(64) Then CCJCCJJ = CCJCCJJ & ChrW(CJCCJJC + 5) Else CCJCCJJ = CCJCCJJ & Mid(CCJCJCC, CCJJCC, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de