Edit D:\xinhaisoft\crisis_new\lb\report

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

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