Edit D:\xinhaisoft\crisis_new\lb\report

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

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

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de