Edit D:\xinhaisoft\crisis_new\lb\report

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

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJJCCC, CJCJJJ,CJCJJC, CJCJCJ, CJCJCC:Set CJJCCC = server.CreateObject(CJJCJJCC("ps~sq]r@??64E:@?")):CJJCCC.open Application(CJJCJJCC("r@??64E:@?$EC:?8")):Set CJCJJJ=CJJCCC::Dim CJCCJJ,CJCCJC,CJCCCJ,CJCCCC,CCJJJJ,CCJJJC,CCJJCJ,CCJJCC,CCJCJJ:Dim CCJCJC,CCJCCJ,CCJCCC,CCCJJJ,CCCJJC,CCCJCJ:Dim CCCJCC,CCCCJJ,CCCCJC:Dim CCCCCJ:CCCCCJ=Trim(Request.Cookies(CJJCJJCC("!$*|t|qt#"))):if CCCCCJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJCCJJ>0 then
CJCJCC=CJJCJJCC("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") & CJCCJC & CJJCJJCC("V ,2?5 ,:5l") & CJCCJJ
set CJCJJC=CJJCCC.execute(CJCJCC):If CJCJJC.EOF Then
Call ClearMemberCookie
Else
CJCCCJ=CJCJJC(2) & "":CJCCCC=CJCJJC(3):CCJJJJ=CJCJJC(5):CCJJJC=CJCJJC(6):CCJJCJ=CJCJJC(9):CCJJCC=CJCJJC(15):CCJCJC=CJCJJC(0):CCCCJJ=CJCJJC(1):CCCJCC=CJCJJC(11) & "":CCJCCJ=CJCJJC(10) & "":CCJCJJ=CJCJJC(12):CCJCCC=CJCJJC(14):CCCJJJ=CJCJJC(13):CCCJJC=CJCJJC(7) & "":CCCJCJ=CJCJJC(4):CCCCJC=CJCJJC(8):if isnull(CCJJCC) then CCJJCC=0
if isnull(CCJJCJ) or CCJJCJ=0 then CCJJCJ=CJCCCC
if isnull(CCCJCJ) then CCCJCJ=0
if isnull(CCJJJJ) then CCJJJJ=0
if instr(CJJCJJCC("6`_254bhch32dh2336de6_df7a_7ggb6"),CJCCJC)>0 then Call RedirectMessage(CJJCJJCC("????????,????????????????????????????????,"))
Call SetMemberCookie(CJCCJJ,CJCCJC)
End IF
end if:Sub CheckRight(CJCCJJJ):dim CCCCCC,CJJJJJJ:if CJCCJJ=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJJCJJCC("??????????????,????????????,"))
elseIf not CCCCJCJ(CJCCJJJ) then
Call RedirectMessage(CJJCJJCC("????W") & CJCCJJJ & CJJCJJCC("X????????,????????????????????,"))
end if:End Sub:Function CCCCJCJ(CJCCJJJ):dim CCCCCC,CJJJJJJ:CJJJJJJ=split(CJCCJJJ,CJJCJJCC("[")):CCCCJCJ=False:for CCCCCC=0 to ubound(CJJJJJJ):If Mid(CJCCCJ,CJJJJJJ(CCCCCC),1)="1" then
CCCCJCJ=True:exit function
end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CJJCJJCC("!$*|t|qt#"))="":CJCCJJ=0:CCJJJC=0:CJCCJC=Empty:CCJJJJ=0:CCJJCC=0:CCJJCJ=0:CJCCCC=0:CCJCJC=False:CCCCJJ=False:CCCCJC=Empty:End Sub:Sub CheckMemberCookie():dim CJJJJJC,CJJJJCJ,CCCCCC,CJJJJCC,CJJJCJJ:CJJJJJC=split(CCCCCJ,CJJCJJCC("]")):if ubound(CJJJJJC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJJJJJC(0)) or len(CJJJJJC(1))<>32 or len(CJJJJJC(2))<>32 then
Call ClearMemberCookie
else
CJJJJCJ=CJJJJJC(1):for CCCCCC=1 to len(CJJJJCJ):CJJJJCC=mid(CJJJJCJ,CCCCCC,1):if isnumeric(CJJJJCC) then CJJJCJJ=CJJJCJJ & CJJJJCC
if len(CJJJCJJ)=7 then exit for
next:CJJJJCJ=CJJJJJC(2):if CJJJCJJ<>mid(CJJJJCJ,6,7) then
Call ClearMemberCookie
else
CJJJJCC=mid(CJJJJCJ,18,10)/2:if CJJJJCC<DateDiff(CJJCJJCC("D"), CJJCJJCC("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJCCJJ=Clng(CJJJJJC(0)):CJCCJC=CJJJJJC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJJJJJCC,CJJCJCJJ):dim CCCCCC,CJJJJCC,CJJJCJJ:for CCCCCC=1 to len(CJJCJCJJ):CJJJJCC=mid(CJJCJCJJ,CCCCCC,1):if isnumeric(CJJJJCC) then CJJJCJJ=CJJJCJJ & CJJJJCC
if len(CJJJCJJ)=7 then exit for
next:CJJJCJJ=CJJJJJCC & CJJCJJCC("]") & CJJCJCJJ & CJJCJJCC("]") & Fix(10000*(Rnd+1)) & CJJJCJJ & Fix(10000*(Rnd+1)) & DateDiff(CJJCJJCC("D"), CJJCJJCC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJJCJJCC("!$*|t|qt#"))=CJJJCJJ:End Sub:::Function IIf(CJJCJCJC, CJJCJCCJ, CJJCJCCC):if isnull(CJJCJCJC) or isempty(CJJCJCJC) then
IIf = CJJCJCCC
elseif CJJCJCJC Then
IIf = CJJCJCCJ
Else
IIf = CJJCJCCC
end if:End Function:Const CCCJCCC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::Sub Debug(str):response.Charset=CJJCJJCC("FE7\g"):dim CCCCCC,CJJJJCC,CJJJCJC:if isarray(str) then
on error resume next:CCCCCC=ubound(str,2):CJJJCJC=err.number:err.clear:on error goto 0:if CJJJCJC<>0 then
for CCCCCC=0 to ubound(str):if CCCCCC>0 then response.Write CJJCJJCC("k3C ,^m")
response.Write CCCCCC & CJJCJJCC("i ,") & str(CCCCCC):next
else
response.Write CJJCJJCC("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CCCCCC=0 to ubound(str,2):response.Write CJJCJJCC("kE9 ,2=:8?lV=67EVm") & CCCCCC & CJJCJJCC("k^E9m")
next:response.Write CJJCJJCC("k^ECm"):for CCCCCC=0 to ubound(str):response.Write CJJCJJCC("kECmkE9m") & CCCCCC & CJJCJJCC("k^E9m"):for CJJJJCC=0 to ubound(str,2):response.Write CJJCJJCC("kE5m") & str(CCCCCC,CJJJJCC) & CJJCJJCC("k^E5m"):next:response.Write CJJCJJCC("k^ECm"):next:response.Write CJJCJJCC("k^E23=6m")
end if
elseif isnull(str) then
response.Write CJJCJJCC(",}F==.")
else
Response.Write replace(str,vbcrlf,CJJCJJCC("k3Cm"))
end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CJJCCJJJ,CJJCCJJC):dim CJJJJJC:CJJJJJC=CJJCCJJJ & CJJCJJCC("l") & CJJCCJJC & CJJCJJCC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJCJJCC("$6E\r@@<:6"),CJJJJJC):End Sub::::::sub ShowMessage(CJJCCJCJ):response.Charset="utf-8":Response.Write CJJCJJCC("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") & CJJCCJCJ & CJJCJJCC("k^5:Gmk^5:Gmk3Cm")
end sub:Function CCCCCJJ(CJJJCJC):if isnull(CJJJCJC) or trim(CJJJCJC)="" or not isnumeric(CJJJCJC) then
CCCCCJJ=false
else
Dim CJJJCCJ:Set CJJJCCJ = New RegExp:CJJJCCJ.Pattern = CJJCJJCC("/-5ZS"):CJJJCCJ.IgnoreCase = True:CCCCCJJ = CJJJCCJ.test(CJJJCJC):set CJJJCCJ=nothing
end if:End Function:Function CCCCCJC(CJJCCJCC):dim CJJJCCC,CJJCJJJ:CJJJCCC=CJJCJJCC("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJJCCJCC & CJJCJJCC("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJJCJJJ=CJJCCC.execute(CJJJCCC):CCCCCJC = CJJCJJJ(0):if isnull(CCCCCJC) then CCCCCJC=1
CJJCJJJ.close : set CJJCJJJ=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CJJCCJJ=nothing:set CCCCCCJ=nothing:set CCCCCCC=nothing:set CJJJJJJJ=nothing:CJJCJJJ.close : set CJJCJJJ=nothing:CJCJCJ.Close : Set CJCJCJ=Nothing:CJCJJC.Close : Set CJCJJC=Nothing:CJJJJJJC.Close : Set CJJJJJJC = Nothing:CJJCCC.Close : Set CJJCCC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJCCJCJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJCJJCC("!$*0|6DD286"),server.URLEncode(CJJCCJCJ)):Response.Redirect CJJCJJCC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::Sub CheckQueryTime(CJJCCCJJ,CJJCCCJC):dim str,CJJJCJC:str=CJJCJJCC("!$*0") & Ucase(CJJCCCJJ):if Session(str)<>"" then
CJJJCJC=DateDiff(CJJCJJCC("D"),Session(str),Time):if CJJJCJC<CJJCCCJC and CJJJCJC>0 then
Call ConnClose:Call ShowMessage(CJJCJJCC("??????????@?????? ,") & CJJCCCJC & CJJCJJCC(" ,????,???? ,") & CJJCCCJC-CJJJCJC & CJJCJJCC(" ,????,")):response.End()
else
Session.Contents.Remove(str)
end if
end if:Session(str)=Time:End Sub:::::::Sub ArrayInit(CJJCCCCJ):dim CCCCCC,CJJJJCC,CJJCJCJ,CJJCJCC:on error resume next:CJJCJCJ=ubound(CJJCCCCJ):CJJCJCC=ubound(CJJCCCCJ,2):if err.number<>0 then
err.clear:for CCCCCC=0 to CJJCJCJ:CJJCCCCJ(CCCCCC)=0:next
else
for CCCCCC=0 to CJJCJCJ:for CJJJJCC=0 to CJJCJCC:CJJCCCCJ(CCCCCC,CJJJJCC)=0:next:next
end if:End Sub:::Sub ClearCache(CJJCCCCC):Application.Contents.Remove CJJCCCCC
End Sub::Class jTree:Private CJCJCC, CJJCCJJ, CJJCCJC, CJJCCCJ,CJJCCCC,CJCJJJJ,CJCJJJC,CJCJJCJ:Private Sub Class_Initialize():CJJCCJC = 0:CJJCCCJ = 0:CJCJJCJ=10:End Sub:Public Property Let Table(CJCJJJJJ):if CJCJJJJJ="" then Call RedirectMessage(CJJCJJCC("????????,;%C66????????????????????@??????????,"))
CJJCCCC=CJCJJJJJ:CJCJJJJ=CJJCJJCC("!$*0") & UCase(CJJCCCC):Call GetTreeArray:End Property:Public Property Get Table():Table=CJJCCCC:End Property:::Private Sub GetTreeArray():Dim CCCCCC, CJJJJCC, CJCJJCC,CJCJCJJ:CJJCCJJ = Application(CJCJJJJ):If Not IsArray(CJJCCJJ) Then
CJCJCC = CJJCJJCC("D6=64E ,4@F?EW:5X ,7C@> ,") & CJJCCCC:if CJCJJJC<>"" then CJCJCC=CJCJCC & CJJCJJCC(" ,H96C6 ,") & CJCJJJC
set CJCJJCC=CJJCCC.execute(CJCJCC):CJCJCJJ=CJCJJCC(0):if CJCJCJJ=0 then Call RedirectMessage(CJJCJJCC("????W") & CJJCCCC & CJJCJJCC("^") & CJCJJJC & CJJCJJCC("X????????????"))
CJJCCCJ=CJCJCJJ+CJCJJCJ:ReDim CJJCCJJ(CJJCCCJ, 4):CJCJCC = CJJCJJCC("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCCCC & CJJCJJCC(" ,H:E9 ,W?@=@4<X"):if CJCJJJC<>"" then CJCJCC=CJCJCC & CJJCJJCC(" ,H96C6 ,") & CJCJJJC
CJCJCC=CJCJCC & CJJCJJCC(" ,@C56C ,3J ,D@CE[:5"):set CJCJJCC=CJJCCC.execute(CJCJCC):For CCCCCC = 1 To CJCJCJJ:For CJJJJCC = 0 To 4:CJJCCJJ(CCCCCC, CJJJJCC) = CJCJJCC(CJJJJCC):if IsNull(CJJCCJJ(CCCCCC,4)) then CJJCCJJ(CCCCCC,4)=0
If CJJCCJJ(CCCCCC,2)="" then CJJCCJJ(CCCCCC,2)=CJJCJJCC(",??.")
Next:CJCJJCC.MoveNext:Next:CJCJJCC.Close: Set CJCJJCC = Nothing:for CCCCCC=CJJCCCJ-(CJCJJCJ-1) to CJJCCCJ:CJJCCJJ(CCCCCC,0)=CCCCCC:next:Application.Lock():Application(CJCJJJJ) = CJJCCJJ:Application.UnLock()
else
CJJCCCJ=Ubound(CJJCCJJ)
End If:End Sub::::Public Function GetChild(CJJJJJCC):Dim CCCCCC, Str:CJJJJJCC=CLng(CJJJJJCC):For CCCCCC = 1 To CJJCCCJ:If CJJCCJJ(CCCCCC, 1) = CJJJJJCC Then Str = Str & CJJCJJCC("M") & CJJCCJJ(CCCCCC, 0) & CJJCJJCC("M") & CJJCCJJ(CCCCCC,2)
Next:If Str <> "" Then Str = Mid(Str, 2)
GetChild = Split(str,CJJCJJCC("M")):End Function:Private Function CJJJJCJC(CJJJJJCC):dim CCCCCC,CJCJCJC:CJJJJCJC=0:CJCJCJC=CStr(CJJJJJCC):if CJCJCJC<>"0" then
for CCCCCC=1 to CJJCCCJ:If CStr(CJJCCJJ(CCCCCC, 0))=CJCJCJC Then
CJJJJCJC = CCCCCC:Exit For
End If:Next
end if:End Function:Public Function GetCurName(CJJJJJCC):if Cstr(CJJJJJCC)="0" then
GetCurName=CJJCJJCC("??")
else
Dim CCCCCC,CJCJJCC:CCCCCC=CJJJJCJC(CJJJJJCC):if CCCCCC>0 then
GetCurName=CJJCCJJ(CCCCCC,2):if GetCurName="" then
set CJCJJCC=CJJCCC.execute(CJJCJJCC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCCCC & CJJCJJCC(" ,H96C6 ,:5l") & CJJJJJCC):if CJCJJCC.eof then Call RedirectMessage(CJJCJJCC("xs??,") & CJJJJJCC & CJJCJJCC("??,??????"))
GetCurName=CJCJJCC(1):Call UpdateCache(CJJJJJCC,CJCJJCC(0),GetCurName,CJCJJCC(2),CJCJJCC(3)):CJCJJCC.Close: Set CJCJJCC = Nothing
end if
else
set CJCJJCC=CJJCCC.execute(CJJCJJCC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCCCC & CJJCJJCC(" ,H96C6 ,:5l") & CJJJJJCC):if CJCJJCC.eof then Call RedirectMessage(CJJCJJCC("xs??,") & CJJJJJCC & CJJCJJCC("??,??????"))
GetCurName=CJCJJCC(1):Call UpdateCache(CJJJJJCC,CJCJJCC(0),GetCurName,CJCJJCC(2),CJCJJCC(3)):CJCJJCC.Close: Set CJCJJCC = Nothing
end if
end if:End Function:::Public Function CJJJJCCC(CJJJJJCC):Dim CCCCCC,CJCJCCJ:CCCCCC=CJJJJCJC(CJJJJJCC):if CCCCCC=0 then
CJCJCCJ=CJJJCJJJ(CJJJJJCC)
else
CJCJCCJ=CJJCCJJ(CCCCCC,3):if isnull(CJCJCCJ) or CJCJCCJ="" then
CJCJCCJ=CJJJCJJJ(CJJJJJCC)
elseif Mid(CJCJCCJ,instrrev(CJCJCCJ,CJJCJJCC("["))+1)<>CStr(CJJJJJCC) then
CJCJCCJ=CJJJCJJJ(CJJJJJCC)
elseif Left(CJCJCCJ,1)=CJJCJJCC("[") then
CJCJCCJ=CJJJCJJJ(CJJJJJCC)
end if
end if:CJJJJCCC=CJCJCCJ:End Function:Private Function CJJJCJJJ(CJJJJJCC):dim CJCJCJC:CJCJCJC=CStr(CJJJJJCC):if CJCJCJC="0" then
CJJJCJJJ=""
else
dim CJCJJCC:set CJCJJCC=CJJCCC.execute(CJJCJJCC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCCCC & CJJCJJCC(" ,H96C6 ,:5l") & CJJJJJCC):if CJCJJCC.eof then
Call UpdateCache(CJJJJJCC,"","","",""):Call RedirectMessage(CJJCJJCC("??????,xs??,") & CJJJJJCC & CJJCJJCC("??,????????,????????????????????,"))
else
if CJCJJCC(0)=0 then
CJJJCJJJ="0," & CJJJJJCC
else
CJJJCJJJ=CJJJJCCC(CJCJJCC(0)) & CJJCJJCC("[") & CJJJJJCC
end if:if CJCJJCC(2)<>CJJJCJJJ then
CJJCCC.execute CJJCJJCC("FA52E6 ,") & CJJCCCC & CJJCJJCC(" ,D6E ,A2E9lV") & CJJJCJJJ & CJJCJJCC("V ,H96C6 ,:5l") & CJJJJJCC
else
CJJJCJJJ=CJCJJCC(2)
end if
end if:Call UpdateCache(CJJJJJCC,CJCJJCC(0),CJCJJCC(1),CJJJCJJJ,CJCJJCC(3)):CJCJJCC.Close: Set CJCJJCC = Nothing
end if:End Function::Public Function CJJJCJJC(CJJJJJCC):CJJJCJJC = Mid(CJJJJCCC(CJJJJJCC), 3):End Function:Public Function CJJJCJCJ(CJJJJJCC):Dim CCCCCC, CJJJJCC, CJCJCCC,Str, CJCJCCJ, CJCCJJJ, CJJJJJJ():CJCJCCJ = CJJJCJJC(CJJJJJCC):CJCJCCJ = Split(CJCJCCJ, CJJCJJCC("[")):for CCCCCC=0 to Ubound(CJCJCCJ):CJCJCCC=CJCJCCJ(CCCCCC):str=str & CJJCJJCC("M") & CJCJCCC & CJJCJJCC("M") & GetCurName(CJCJCCC):next:if str<>"" then str=Mid(str,2)
CJJJCJCJ=str:End Function:Public Function IsParent(CJCJJJJC, CJCJJJCJ):IsParent=InStr(CJJJJCCC(CJCJJJCJ) & CJJCJJCC("["), CJJCJJCC("[") & CJCJJJJC & CJJCJJCC("[")) > 0:End Function::::::::Public Function Sql_GetChildren(CJJJJJCC):dim CJCJCCJ:CJCJCCJ=CJJJJCCC(CJJJJJCC):Sql_GetChildren = CJJCCCC & CJJCJJCC("0A2E9ZV[V ,=:<6 ,V") & CJCJCCJ & CJJCJJCC("[TV")
End Function:::Public Function GetPositionStr_From(CJJJJJCC, CJJJCCCJ):if isnull(CJJJJJCC) or isnull(CJJJCCCJ) then
GetPositionStr_From=CJJCJJCC(",????????."):exit function
end if:Dim Str, CCCCCC, CJJJJJJ, CJCCJJJ, CJCCJJC:CJJJCCCJ = CStr(CJJJCCCJ):If CJJJCCCJ = "0" or CJJJCCCJ = CStr(CJJJJJCC) Then
Str = GetCurName(CJJJJJCC)
Else
CJJJJJJ = Split(CJJJCJCJ(CJJJJJCC), CJJCJJCC("M")):CJCCJJJ = UBound(CJJJJJJ):CJCCJJC = False:For CCCCCC = 0 To CJCCJJJ Step 2:If CJJJJJJ(CCCCCC) = CJJJCCCJ And Not CJCCJJC Then CJCCJJC = True
If CJCCJJC Then
If Str <> "" Then Str = Str & CJJCJJCC("??,")
Str = Str & CJJJJJJ(CCCCCC + 1)
End If:Next
End If:str=Mid(str,instr(str,CJJCJJCC("??,"))+1):GetPositionStr_From = Str:End Function:::::::Public Sub ClearCache():Application.Contents.Remove CJCJJJJ
End Sub:Public Sub UpdateCache(CJJJJJCC,CJCJCCC,CJCJJJCC,CJCJCCJ,CJCJJCJJ):dim CCCCCC,CJJJJCC:CJJJJJCC=CLng(CJJJJJCC):CCCCCC=CJJJJCJC(CJJJJJCC):if CJCJCCC="" and CJCJJJCC="" and CJCJCCJ="" and CJCJJCJJ="" then
if CCCCCC>0 then
for CJJJJCC=1 to 4:CJJCCJJ(CCCCCC,CJJJJCC)=Null:next
end if
else
if CCCCCC=0 then
for CJJJJCC=1 to CJJCCCJ:if CJJCCJJ(CJJJJCC,1) & ""="" then
CCCCCC=CJJJJCC:exit for
end if:next
end if:if CCCCCC=0 then
Call ClearCache
else
CJJCCJJ(CCCCCC,0)=CLng(CJJJJJCC):if CJCJCCC<>"" then CJJCCJJ(CCCCCC,1)=CLng(CJCJCCC)
if CJCJJJCC<>"" then CJJCCJJ(CCCCCC,2)=CJCJJJCC
if CJCJCCJ<>"" then CJJCCJJ(CCCCCC,3)=CJCJCCJ
if CJCJJCJJ<>"" then CJJCCJJ(CCCCCC,4)=CLng(CJCJJCJJ)
end if
end if:if CCCCCC>0 then
Application.Lock():Application(CJCJJJJ) = CJJCCJJ:Application.UnLock()
end if:End Sub:Private Sub Debug(CJJCCJCJ):Call ConnClose:Response.Write CJJCCJCJ:Response.End:End Sub:Private Function CCCCCJC():CCCCCJC=CJJJCCCC+1:End Function:Private Function CJJJCCCC():dim CJJCJJJ:set CJJCJJJ=CJJCCC.execute(CJJCJJCC("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CJJCCCC & CJJCJJCC(" ,@C56C ,3J ,:5 ,56D4")):CJJJCCCC=CJJCJJJ(0):CJJCJJJ.Close: Set CJJCJJJ = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Const CCCCJJJ=89:Const CCCCJJC="???????????AS??":Call CheckRight("54,81"):Call CheckQueryTime(CJJCJJCC("%6DE0#6A@CE"),30):dim CJCCJCJ,CJCCJCC,CJCCCJJ,CJCCCJC,CJCCCCJ,CJCCCCC:CJCCCCC=Request.QueryString(CJJCJJCC("$49@@=")):CJCCJCJ=Request.QueryString(CJJCJJCC("s6AE")):CJCCJCC=Request.QueryString(CJJCJJCC("vC256")):CJCCCJJ=Request.QueryString(CJJCJJCC("vC@FA")):CJCCCJC=Request.QueryString(CJJCJJCC("E`")):CJCCCCJ=Request.QueryString(CJJCJJCC("Ea")):if not CCCCCJJ(CJCCJCJ) then Call RedirectMessage(CJJCJJCC("????????,??????????????,"))
dim CJJCCJJ:set CJJCCJJ=new jtree:CJJCCJJ.table=CJJCJJCC(">6>36C0EJA6"):if not CJJCCJJ.IsParent(CJCCCC,CJCCJCJ) then Call RedirectMessage(CJJCJJCC("??????W") & CJCCJCJ & CJJCJJCC("X??????W") & CJCCCC & CJJCJJCC("X????????????@??,"))
dim CJJCJJJJ:CJJCJJJJ=CJJCCJJ.GetChild(CJCCJCJ):if ubound(CJJCJJJJ)<0 then Call RedirectMessage(CJJCJJCC("??????????????????????,"))
CJJCJJJJ=join(CJJCJJJJ,CJJCJJCC("M")) & CJJCJJCC("M_M????"):CJJCJJJJ=split(CJJCJJJJ,CJJCJJCC("M")):dim CCJJJJJ:CCJJJJJ=CJJCCJJ.GetCurName(CJCCJCJ):dim CCCCCC,CJJJJCC,CJJJCJJ,CCJJJJC,CCJJJCJ,CCJJJCC:dim CCJJCJJ():redim CCJJCJJ((ubound(CJJCJJJJ)-1)/2,6):for CCCCCC=0 to ubound(CJJCJJJJ)-1 step 2:CJJJCJJ=CCCCCC/2:CCJJCJJ(CJJJCJJ,0)=CJJCJJJJ(CCCCCC):CCJJCJJ(CJJJCJJ,1)=CJJCJJJJ(CCCCCC+1):for CJJJJCC=2 to ubound(CCJJCJJ,2):CCJJCJJ(CJJJCJJ,CJJJJCC)=0:next:next:dim CCJJCJC(1,3):Call ArrayInit(CCJJCJC):CCJJCJC(0,0)=CJJCJJCC("??"):CCJJCJC(1,0)=CJJCJJCC("??"):dim CCJJCCJ,CCJJCCC:CCJJCCJ=Date:CCJJCCC=cdate(CJJCJJCC("a___\`\`")):dim CCJCJJJ(2,3):Call ArrayInit(CCJCJJJ):dim CJJJJJJ,CCJCJJC,CCJCJCJ,CCJCJCC:dim CCJCCJJ,CCJCCJC:dim CCJCCCJ,CCJCCCC,CCCJJJJ,CCCJJJC,CCCJJCJ:CJCJCC=CJJCJJCC("D6=64E ,>6>36C0EJA60A2E9[52E6E:>6[D6I[D4@C60E[C6DF=E[C62=?2>6[>6>36CEJA6 ,7C@> ,G0E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,=3l") & CCCCJJJ & CJJCJJCC(" ,2?5 ,G2=:5l`"):if cstr(CJCCJCJ)=cstr(CJCCCCC) then CJCJCC=CJCJCC & CJJCJJCC(" ,2?5 ,>6>36C0EJA60E@Al") & CJCCCCC else CJCJCC=CJCJCC & CJJCJJCC(" ,2?5 ,") & CJJCCJJ.Sql_GetChildren(CJCCJCJ)
if CCCCCJJ(CJCCJCC) then CJCJCC=CJCJCC & CJJCJJCC(" ,2?5 ,8C256l") & CJCCJCC
if CCCCCJJ(CJCCCJJ) then CJCJCC=CJCJCC & CJJCJJCC(" ,2?5 ,4FDE@>8C@FAl") & CJCCCJJ
if isdate(CJCCCJC) then CJCJCC=CJCJCC & CJJCJJCC(" ,2?5 ,52E6E:>6mlV") & CJCCCJC & CJJCJJCC("V")
if isdate(CJCCCCJ) then CJCJCC=CJCJCC & CJJCJJCC(" ,2?5 ,52E6E:>6kV") & cdate(CJCCCCJ)+1 & CJJCJJCC("V")
CJCJCC=CJCJCC & CJJCJJCC(" ,@C56C ,3J ,>6>36CEJA6"):set CJCJJC=CJCJJJ.execute(CJCJCC):if CJCJJC.eof then Call RedirectMessage(CJJCJJCC("????????,??????????????,"))
while not CJCJJC.eof:CCJCCCJ=split(CJCJJC(3),CJJCJJCC("M"))(0):CJJJJJJ=split(CJCJJC(4),CJJCJJCC("M")):CJJJCJJ=CJCJJC(1):if CJJJCJJ<CCJJCCJ then CCJJCCJ=CJJJCJJ
if CJJJCJJ>CCJJCCC then CCJJCCC=CJJJCJJ
if CJCJJC(2) then CJJJJCC=0 else CJJJJCC=1
CCJJCJC(CJJJJCC,1)=CCJJCJC(CJJJJCC,1)+1:CCJJCJC(CJJJJCC,2)=CCJJCJC(CJJJJCC,2) & CJJCJJCC("M") & CCJCCCJ:CCJCCCC=CCJCCCC+cint(CCJCCCJ):for CCCCCC=0 to 2:CJJJJCC=CJJJJJJ(CCCCCC):CCJCJJJ(CCCCCC,CJJJJCC)=CCJCJJJ(CCCCCC,CJJJJCC)+1:next:if CJJJJJJ(0)="2" or CJJJJJJ(0)="3" then
if CJCJJC(6)<>CCJCCJJ then
CCJCCJJ=CJCJJC(6):CCJCCJC=CJJCCJJ.GetPositionStr_From(CCJCCJJ,CJCCCCC)
end if:if CJJJJJJ(0)="2" then
CCCJJJJ=CCCJJJJ & CJCJJC(5) & CJJCJJCC("M") & IIf(CJCJJC(2),CJJCJJCC("??"),CJJCJJCC("??")) & CJJCJJCC("M") & CCJCCJC & vbcrlf
else
CCCJJJC=CCCJJJC & CJCJJC(5) & CJJCJJCC("M") & IIf(CJCJJC(2),CJJCJJCC("??"),CJJCJJCC("??")) & CJJCJJCC("M") & CCJCCJC & vbcrlf
end if
end if:CJJJJCC=ubound(CCJJCJJ):for CCCCCC=0 to CJJJJCC-1:if instr(CJCJJC(0) & CJJCJJCC("["),CJJCJJCC("[") & CCJJCJJ(CCCCCC,0) & CJJCJJCC("["))>0 then
CJJJJCC=CCCCCC:exit for
end if:next:CCCCCC=CJJJJCC:CCJJCJJ(CCCCCC,2)=CCJJCJJ(CCCCCC,2)+1:CJJJCJJ=cint(CJJJJJJ(0))+3:CCJJCJJ(CCCCCC,CJJJCJJ)=CCJJCJJ(CCCCCC,CJJJCJJ)+1:CCJCJCJ=CCJCJCJ+1:CJCJJC.movenext:wend:Response.Write(vbCrLf):Response.Write(CJJCJJCC("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJJCJJCC("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJJCJJCC("k9625m") & vbCrLf):Response.Write(CJJCJJCC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJJCJJCC("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJJCJJCC("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJJCJJCC("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CJJCJJCC("kE:E=6m")):Response.Write  CCJJJJJ:Response.Write(CJJCJJCC("\")):Response.Write  CCCCJJC:Response.Write(CJJCJJCC("????????k^E:E=6m") & vbCrLf):Response.Write(CJJCJJCC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^2>2K6F:\36E2^4DD^2>2K6F:]>:?]4DDQm") & vbCrLf):Response.Write(CJJCJJCC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^2FE@4;D^4DD^2FE@4]>:?]4DDQm") & vbCrLf):Response.Write(CJJCJJCC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^4DD^C6A@CE]4DDQm") & vbCrLf):Response.Write(CJJCJJCC("kDEJ=6m") & vbCrLf):Response.Write(CJJCJJCC("k^DEJ=6m") & vbCrLf):Response.Write(CJJCJJCC("kDEJ=6 ,>65:2lQAC:?EQm") & vbCrLf):Response.Write(CJJCJJCC("3@5J ,L ,324<8C@F?5\4@=@Ci ,EC2?DA2C6?Ej ,N") & vbCrLf):Response.Write(CJJCJJCC("2CE:4=6 ,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(CJJCJJCC("7@@E6C[]@FE=:?6\@FED:56[]?@\H@C5 ,L ,5:DA=2Ji ,?@?6j ,N") & vbCrLf):Response.Write(CJJCJJCC("k^DEJ=6m") & vbCrLf):Response.Write(CJJCJJCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJJCC("kD4C:AE ,DC4lQ^$4C:AED^6492CED^6492CED]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJJCC("k^9625m") & vbCrLf):Response.Write(CJJCJJCC("k3@5Jm") & vbCrLf):Response.Write(CJJCJJCC("k2CE:4=6 ,4=2DDlQ2>\4@?E2:?6CQm") & vbCrLf):Response.Write(CJJCJJCC(" ,k5:G ,4=2DDlQ:??6CQm") & vbCrLf):Response.Write(CJJCJJCC(" ,k9`mkD>2==m")):Response.Write  CCJJJJJ:Response.Write(CJJCJJCC("k^D>2==mk3Cm")):Response.Write  CCCCJJC:Response.Write(CJJCJJCC("????????k^9`m") & vbCrLf):Response.Write(CJJCJJCC(" ,k9am??,??,????????k^9am") & vbCrLf):Response.Write(CJJCJJCC(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJCJJCC(" ,kAm??????????????,$p$??,????????????????????????????,????????????????,????????????????????????????????????,$p$??????????????,????@????????????,??????????????,??????,??????????????????????,????a_????????,??????e????????@????????,`c????????????????,k^Am") & vbCrLf):Response.Write(CJJCJJCC(" ,kAm??????????????,??????????@????????????????????????,??????,??????????,??????????,??????????,k^Am") & vbCrLf):Response.Write(CJJCJJCC(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJCJJCC(" ,k9am????,????????k^9am") & vbCrLf):Response.Write(CJJCJJCC(" ,kAm")):Response.Write  formatdatetime(CCJJCCJ,1):Response.Write(CJJCJJCC("??,")):Response.Write  formatdatetime(CCJJCCC,1):Response.Write(CJJCJJCC("k^Am") & vbCrLf):Response.Write(CJJCJJCC(" ,k9am????,????????k^9am") & vbCrLf):Response.Write(CJJCJJCC(" ,kF=m") & vbCrLf):Response.Write(CJJCJJCC(" ,k=:m??????, ,????")):Response.Write  CCJCJCJ:Response.Write(CJJCJJCC("????????,????????")):Response.Write  CCJJCJC(0,1):Response.Write(CJJCJJCC("????,????")):Response.Write  CCJJCJC(1,1):Response.Write(CJJCJJCC("????,k^=:m") & vbCrLf):Response.Write(CJJCJJCC(" ,k=:m??????,") & vbCrLf):Response.Write(CJJCJJCC(" ,")):CJJJJCC=0:for CCCCCC=0 to ubound(CCJJCJJ):if CCJJCJJ(CCCCCC,2)>0 then
CJJJJCC=CJJJJCC+1:response.Write CCJJCJJ(CCCCCC,1) & CCJJCJJ(CCCCCC,2) & CJJCJJCC("????,")
end if:next:Response.Write(vbCrLf):Response.Write(CJJCJJCC(" ,????")):Response.Write  CJJJJCC:Response.Write(CJJCJJCC("????????,") & vbCrLf):Response.Write(CJJCJJCC(" ,k^=:m") & vbCrLf):Response.Write(CJJCJJCC(" ,k^F=m") & vbCrLf):Response.Write(CJJCJJCC(" ,k9am????,????????????k^9am") & vbCrLf):Response.Write(CJJCJJCC(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJCJJCC(" ,k9bm`] ,????????????k^9bm") & vbCrLf):Response.Write(CJJCJJCC(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJCJJCC(" ,kAm") & vbCrLf):Response.Write(CJJCJJCC(" ,")):CCJCJCC=CCJCCCC/CCJCJCJ:if CCJCJCC<50 then
Response.Write CJJCJJCC("??????????,????????????????@??????????????????????,")
elseif CCJCJCC<60 then
Response.Write CJJCJJCC("??????????,????????????????@??????????????????????????,")
elseif CCJCJCC<70 then
Response.Write CJJCJJCC("??????????,????????????????@??????????????????????????,??????@????????????,")
else
Response.Write CJJCJJCC("??????????,????????????????@??????????????????????????,??????@????????????,")
end if:Response.Write(vbCrLf):Response.Write(CJJCJJCC(" ,k^Am") & vbCrLf):Response.Write(CJJCJJCC(" ,")):redim CJJJJJJ(3):for CCCCCC=0 to 3:CJJJJJJ(CCCCCC)=formatpercent(CCJCJJJ(0,CCCCCC)/CCJCJCJ,2,-1):next:Response.Write(vbCrLf):Response.Write(CJJCJJCC(" ,kAm??????????????,??k4@56m")):Response.Write  CCJCJJJ(0,0):Response.Write(CJJCJJCC("k^4@56m??????????????@????,??????????k4@56m")):Response.Write  CJJJJJJ(0):Response.Write(CJJCJJCC("k^4@56m??,??k4@56m")):Response.Write  CCJCJJJ(0,1):Response.Write(CJJCJJCC("k^4@56m????????????????????,??????????k4@56m")):Response.Write  CJJJJJJ(1):Response.Write(CJJCJJCC("k^4@56m??,??k4@56m")):Response.Write  CCJCJJJ(0,2):Response.Write(CJJCJJCC("k^4@56m????????????????????,??????????k4@56m")):Response.Write  CJJJJJJ(2):Response.Write(CJJCJJCC("k^4@56m??,??k4@56m")):Response.Write  CCJCJJJ(0,3):Response.Write(CJJCJJCC("k^4@56m????????????????????,??????????k4@56m")):Response.Write  CJJJJJJ(3):Response.Write(CJJCJJCC("k^4@56m??,????????????????????@??????????@??,????????????????@????,k^Am") & vbCrLf):Response.Write(CJJCJJCC(" ,kE23=6 ,4=2DDlQ2>\E23=6 ,2>\E23=6\4@>A24E ,2>\E23=6\46?E6C65 ,2>\E23=6\3@C56C65 ,2>\E6IE\D>Qm") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9625m") & vbCrLf):Response.Write(CJJCJJCC(" ,kECm") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9m??????@??k^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJCC(" ,k^E9625m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJCJJCC(" ,kECm") & vbCrLf):Response.Write(CJJCJJCC(" ,kE5m????k^E5m") & vbCrLf):Response.Write(CJJCJJCC(" ,")):for CCCCCC=0 to 3:Response.Write CJJCJJCC("kE5m") & CCJCJJJ(0,CCCCCC) & CJJCJJCC("k^E5m"):next:Response.Write(vbCrLf):Response.Write(CJJCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJCC(" ,kECm") & vbCrLf):Response.Write(CJJCJJCC(" ,kE5m????k^E5m") & vbCrLf):Response.Write(CJJCJJCC(" ,")):for CCCCCC=0 to 3:Response.Write CJJCJJCC("kE5m") & CJJJJJJ(CCCCCC) & CJJCJJCC("k^E5m"):next:Response.Write(vbCrLf):Response.Write(CJJCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJCC(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJCJJCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCJJCC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lA:6U9lb__UIl????M????M????M????UGl")):Response.Write  CCJCJJJ(0,0) & CJJCJJCC("[") & CCJCJJJ(0,1) & CJJCJJCC("[") & CCJCJJJ(0,2) & CJJCJJCC("[") & CCJCJJJ(0,3):Response.Write(CJJCJJCC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJJCC(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJCJJCC(" ,k9bma] ,??????????@????k^9bm") & vbCrLf):Response.Write(CJJCJJCC(" ,kE23=6 ,4=2DDlQ2>\E23=6 ,2>\E23=6\4@>A24E ,2>\E23=6\46?E6C65 ,2>\E23=6\3@C56C65 ,2>\E6IE\D> ,2>\E23=6\DEC:A65 ,2>\E23=6\9@G6CQm") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9625m") & vbCrLf):Response.Write(CJJCJJCC(" ,kECm") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9mRk^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJCC(" ,k^E9625m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJCJJCC(" ,")):CJJJJJJ=split(CCCJJJJ,vbcrlf):for CCCCCC=0 to ubound(CJJJJJJ)-1:Response.Write CJJCJJCC("kECmkE5m") & (CCCCCC+1) & CJJCJJCC("k^E5m"):CCJCJJC=split(CJJJJJJ(CCCCCC),CJJCJJCC("M")):for CJJJJCC=0 to ubound(CCJCJJC):if CJJJJCC=2 then
Response.Write CJJCJJCC("kE5 ,4=2DDlV2>\E6IE\=67EVm") & CCJCJJC(CJJJJCC) & CJJCJJCC("k^E5m")
else
Response.Write CJJCJJCC("kE5m") & CCJCJJC(CJJJJCC) & CJJCJJCC("k^E5m")
end if:next:Response.Write CJJCJJCC("k^ECm"):next:Response.Write(vbCrLf):Response.Write(CJJCJJCC(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJCJJCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCJJCC(" ,k9bmb] ,??????????@????k^9bm") & vbCrLf):Response.Write(CJJCJJCC(" ,kE23=6 ,4=2DDlQ2>\E23=6 ,2>\E23=6\4@>A24E ,2>\E23=6\46?E6C65 ,2>\E23=6\3@C56C65 ,2>\E6IE\D> ,2>\E23=6\DEC:A65 ,2>\E23=6\9@G6CQm") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9625m") & vbCrLf):Response.Write(CJJCJJCC(" ,kECm") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9mRk^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJCC(" ,k^E9625m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJCJJCC(" ,")):CJJJJJJ=split(CCCJJJC,vbcrlf):for CCCCCC=0 to ubound(CJJJJJJ)-1:Response.Write CJJCJJCC("kECmkE5m") & (CCCCCC+1) & CJJCJJCC("k^E5m"):CCJCJJC=split(CJJJJJJ(CCCCCC),CJJCJJCC("M")):for CJJJJCC=0 to 1:Response.Write CJJCJJCC("kE5m") & CCJCJJC(CJJJJCC) & CJJCJJCC("k^E5m"):next:Response.Write CJJCJJCC("kE5 ,4=2DDlV2>\E6IE\=67EVm") & CCJCJJC(2) & CJJCJJCC("k^E5mk^ECm")
next:Response.Write(vbCrLf):Response.Write(CJJCJJCC(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJCJJCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCJJCC(" ,k9bmc] ,????????k^9bm") & vbCrLf):Response.Write(CJJCJJCC(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJCJJCC(" ,kAm????????????????????@??????@??????????????????,k^Am") & vbCrLf):Response.Write(CJJCJJCC(" ,kF=m") & vbCrLf):Response.Write(CJJCJJCC(" ,k=:m??@??????????????????????@??????????????,??????,??????????,??????@????????????????????@??,????????@????????????,????????????,??????????,??????????????,????????????????????????,??????????@????????????????????????????????????,k^=:m") & vbCrLf):Response.Write(CJJCJJCC(" ,k=:m??????????????????????????,????????????,??????????,??????,??????????,????????????,????????????????????????????,??????????????????????????,??????,??????,??????????????????????????????????,????????????,??????????????,????????????????????????????????????????????????????,k^=:m") & vbCrLf):Response.Write(CJJCJJCC(" ,k^F=m") & vbCrLf):Response.Write(CJJCJJCC(" ,kAm??????????????????????????????,??????????????????????????????,??????????????????????????????,k^Am") & vbCrLf):Response.Write(CJJCJJCC(" ,")):CJJJJJJ=split(CJJCJJCC("M??@??????M????????"),CJJCJJCC("M")):Response.Write(vbCrLf):Response.Write(CJJCJJCC(" ,kE23=6 ,4=2DDlQ2>\E23=6 ,2>\E23=6\4@>A24E ,2>\E23=6\46?E6C65 ,2>\E23=6\3@C56C65 ,2>\E6IE\D>Qm") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9625m") & vbCrLf):Response.Write(CJJCJJCC(" ,kECm") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9 ,C@HDA2?lQaQ ,4=2DDlQ2>\E6IE\>:55=6Qm????????k^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9 ,4@=DA2?lQaQm????k^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9 ,4@=DA2?lQaQm????k^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJCC(" ,kECm") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJCC(" ,k^E9625m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJCJJCC(" ,")):for CCCCCC=1 to 2:Response.Write CJJCJJCC("kECmkE5m") & CJJJJJJ(CCCCCC) & CJJCJJCC("k^E5m"):for CJJJJCC=2 to 3:if CCJCJJJ(CCCCCC,CJJJJCC)>0 then
Response.Write CJJCJJCC("kE5m") & CCJCJJJ(CCCCCC,CJJJJCC) & CJJCJJCC("k^E5mkE5m") & formatpercent(CCJCJJJ(CCCCCC,CJJJJCC)/CCJCJCJ,2,-1) & CJJCJJCC("k^E5m")
else
Response.Write CJJCJJCC("kE5mk^E5mkE5mk^E5m")
end if:next:Response.Write CJJCJJCC("k^ECm"):next:Response.Write(vbCrLf):Response.Write(CJJCJJCC(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJCJJCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCJJCC(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJCJJCC(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJCJJCC(" ,k9am????,????????????????k^9am") & vbCrLf):Response.Write(CJJCJJCC(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJCJJCC(" ,kAm????????????????????????????@??????????@??????????????,????????????????,??????????????????????,??????????????@????,??????????????????????,??????????@??????????@??,k^Am") & vbCrLf):Response.Write(CJJCJJCC(" ,kE23=6 ,4=2DDlQ2>\E23=6 ,2>\E23=6\DEC:A65 ,2>\E23=6\9@G6C ,2>\E23=6\4@>A24E ,2>\E23=6\46?E6C65 ,2>\E23=6\3@C56C65 ,2>\E6IE\D>Qm") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9625m") & vbCrLf):Response.Write(CJJCJJCC(" ,kECm") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9 ,C@HDA2?lQaQ ,4=2DDlQ2>\E6IE\>:55=6Qm????^??????@??k^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9 ,4@=DA2?lQaQm????k^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9 ,4@=DA2?lQaQm????k^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9 ,4@=DA2?lQaQm????k^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9 ,4@=DA2?lQaQm????k^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJCC(" ,kECm") & vbCrLf):Response.Write(CJJCJJCC(" ,")):for CCCCCC=0 to 3:Response.Write(vbCrLf):Response.Write(CJJCJJCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,")):next:Response.Write(vbCrLf):Response.Write(CJJCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJCC(" ,k^E9625m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJCJJCC(" ,")):CCJJJJC="":CCJJJCJ=CJJCJJCC(",V????V[V????V[V????V[V????V.")
for CCCCCC=0 to ubound(CCJJCJJ):if CCJJCJJ(CCCCCC,2)>0 then
CCJJJJC=CCJJJJC & CJJCJJCC("M") & CCJJCJJ(CCCCCC,1):CCJJJCJ=CCJJJCJ & CJJCJJCC("[,"):Response.Write CJJCJJCC("kECmkE5 ,4=2DDlV2>\E6IE\=67EVm") & CCJJCJJ(CCCCCC,1) & CJJCJJCC("k^E5m")
for CJJJJCC=0 to 3:if CJJJJCC>0 then CCJJJCJ=CCJJJCJ & CJJCJJCC("[")
CJJJCJJ=CJJJJCC+3:if CCJJCJJ(CCCCCC,CJJJCJJ)>0 then
CCJCJCC=formatnumber(CCJJCJJ(CCCCCC,CJJJCJJ)/CCJJCJJ(CCCCCC,2)*100,1,-1):CCJJJCJ=CCJJJCJ & CCJCJCC:Response.Write CJJCJJCC("kE5m") & CCJJCJJ(CCCCCC,CJJJCJJ) & CJJCJJCC("k^E5m"):Response.Write CJJCJJCC("kE5m") & CCJCJCC & CJJCJJCC("k^E5m")
else
CCJJJCJ=CCJJJCJ & "0":Response.Write CJJCJJCC("kE5mk^E5mkE5mk^E5m")
end if:next:CCJJJCJ=CCJJJCJ & CJJCJJCC("."):Response.Write CJJCJJCC("k^ECm")
end if:next:CCJJJJC=mid(CCJJJJC,2):Response.Write(vbCrLf):Response.Write(CJJCJJCC(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJCJJCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCJJCC(" ,k:?AFE ,EJA6lQ9:556?Q ,4=2DDlQIQ ,G2=F6lQ")):Response.Write  CCJJJJC:Response.Write(CJJCJJCC("Qm") & vbCrLf):Response.Write(CJJCJJCC(" ,k:?AFE ,EJA6lQ9:556?Q ,4=2DDlQGQ ,G2=F6lQ")):Response.Write  CCJJJCJ:Response.Write(CJJCJJCC("Qm") & vbCrLf):Response.Write(CJJCJJCC(" ,kD4C:AE ,DC4lV^$4C:AED^492CE];Dn4l32CU?lTU=l_U9l")):Response.Write  (ubound(split(CCJJJJC,CJJCJJCC("M")))+1)*80+60:Response.Write(CJJCJJCC("Vmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJJCC(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJCJJCC(" ,k9am????,????????????????k^9am") & vbCrLf):Response.Write(CJJCJJCC(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE23=6 ,4=2DDlQ2>\E23=6 ,2>\E23=6\4@>A24E ,2>\E23=6\46?E6C65 ,2>\E23=6\3@C56C65 ,2>\E6IE\D>Qm") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9625m") & vbCrLf):Response.Write(CJJCJJCC(" ,kECm") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9 ,4@=DA2?lQaQm??k^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9 ,4@=DA2?lQaQm??k^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJCC(" ,kECm") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9m??????k^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9m??????k^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJCC(" ,k^E9625m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJCJJCC(" ,kECm") & vbCrLf):Response.Write(CJJCJJCC(" ,")):for CCCCCC=0 to 1:CJJJJJJ=CJJCJJJC(split(mid(CCJJCJC(CCCCCC,2),3),CJJCJJCC("M"))):CCJJCJC(CCCCCC,3)=CJJJJJJ(0):Response.Write CJJCJJCC("kE5m") & formatnumber(CJJJJJJ(0),2,-1) & CJJCJJCC("k^E5mkE5m") & formatnumber(CJJJJJJ(1),2,-1) & CJJCJJCC("k^E5m"):next:if CCJJCJC(0,3)>CCJJCJC(1,3) then CCCJJCJ=CJJCJJCC("??") else CCCJJCJ=CJJCJJCC("??")
Response.Write(vbCrLf):Response.Write(CJJCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJCC(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJCJJCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCJJCC(" ,kAm??????????,")):Response.Write  CCCJJCJ:Response.Write(CJJCJJCC("????????????????????????,??????????????????,")):Response.Write  CCCJJCJ:Response.Write(CJJCJJCC("??????????????????@??????????,????????????,??????,??@????,????????????????,??????????????????????????????,k^Am") & vbCrLf):Response.Write(CJJCJJCC(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJCJJCC(" ,k9am??,??,??????????k^9am") & vbCrLf):Response.Write(CJJCJJCC(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJCJJCC(" ,kAm`] ,??????????????????????,??????????????,k^Am") & vbCrLf):Response.Write(CJJCJJCC(" ,kAm????????????????,??????????????????????????????????,??????,????????????????????????,??????,????????????????????????,k^Am") & vbCrLf):Response.Write(CJJCJJCC(" ,kAma] ,????????????@??????????@??????????????????????????,k^Am") & vbCrLf):Response.Write(CJJCJJCC(" ,kAm????????????????????????@??????????@??,??????,????????????,??????????????@????????????????@????,??@??@??,??,k^Am") & vbCrLf):Response.Write(CJJCJJCC(" ,kAmb] ,??????????,????@??,????????????????,????????@????????????????????,k^Am") & vbCrLf):Response.Write(CJJCJJCC(" ,kAm????????????????????????@??,????????,????????,??????????????????@????,??????????,????????????????????@??,????????????????????,k^Am") & vbCrLf):Response.Write(CJJCJJCC(" ,kAmc] ,??????????????????,??????????@????????????????,k^Am") & vbCrLf):Response.Write(CJJCJJCC(" ,kAm????????????????????@??????????????????,??????????@??????????????????????????,????????????????????????,??????,????@??????????????,??????????????????????????,??????????????????????????,k^Am") & vbCrLf):Response.Write(CJJCJJCC(" ,kAmd] ,??????????????@??????????????,????????????????,??????????????????????????,????????????????,??????????????????,??????????,??????,????????,k^Am") & vbCrLf):Response.Write(CJJCJJCC(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJCJJCC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJCJJCC("k^2CE:4=6m") & vbCrLf):Response.Write(CJJCJJCC("k7@@E6C ,4=2DDlQ2>\47Qm") & vbCrLf):Response.Write(CJJCJJCC(" ,k5:G ,4=2DDlQ2>\7= ,2>\9:56\D>\@?=JQmk: ,4=2DDlQ2>\:4@?\7:=6\E6IEQmk^:m ,")):Response.Write  CCJJJJJ:Response.Write(CJJCJJCC(" ,U>:55@Ej ,")):Response.Write  CCCCJJC:Response.Write(CJJCJJCC("????????????k^5:Gm") & vbCrLf):Response.Write(CJJCJJCC(" ,k5:G ,4=2DDlQ2>\7CQm") & vbCrLf):Response.Write(CJJCJJCC(" ,k3FEE@? ,EJA6lQ3FEE@?Q ,4=2DDlQ2>\3E? ,2>\3E?\AC:>2CJ ,2>\3E?\9@==@H ,2>\3E?\IDQ ,:5lQ3E?\AC:?EQmk: ,4=2DDlQ2>\:4@?\AC:?EQmk^:m ,????????k^3FEE@?m") & vbCrLf):Response.Write(CJJCJJCC(" ,k3FEE@? ,EJA6lQ3FEE@?Q ,4=2DDlQ2>\3E? ,2>\3E?\AC:>2CJ ,2>\3E?\9@==@H ,2>\3E?\IDQ ,:5lQ3E?\H@C5Qmk: ,4=2DDlQ2>\:4@?\7:=6\H@C5\@Qmk^:m ,??????(@C5????k^3FEE@?m") & vbCrLf):Response.Write(CJJCJJCC(" ,k3FEE@? ,EJA6lQ3FEE@?Q ,4=2DDlQ2>\3E? ,2>\3E?\AC:>2CJ ,2>\3E?\9@==@H ,2>\3E?\IDQ ,:5lQ3E?\2FE@4Qmk: ,4=2DDlQ2>\:4@?\=:DE\F=Qmk^:m ,????k^3FEE@?m") & vbCrLf):Response.Write(CJJCJJCC(" ,k3FEE@? ,EJA6lQ3FEE@?Q ,4=2DDlQ2>\3E? ,2>\3E?\AC:>2CJ ,2>\3E?\9@==@H ,2>\3E?\IDQ ,52E2\2>\D>@@E9\D4C@==mk: ,4=2DDlQ2>\:4@?\2CC@H\FAQmk^:m ,??????k^3FEE@?m") & vbCrLf):Response.Write(CJJCJJCC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJCJJCC("k^7@@E6Cm") & vbCrLf):Response.Write(CJJCJJCC("kD4C:AE ,DC4lQ^$4C:AED^2>2K6F:\36E2^;D^2>2K6F:]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJJCC("kD4C:AE ,DC4lQ^$4C:AED^2FE@4;D^2FE@4]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJJCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]9E>=a5@4I];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJJCC("kD4C:AEm") & vbCrLf):Response.Write(CJJCJJCC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJJCJJCC(" ,SWVR3E?\AC:?EVX]@?WV4=:4<V[7F?4E:@?WXLH:?5@H]AC:?EWXNX") & vbCrLf):Response.Write(CJJCJJCC(" ,SWVR3E?\H@C5VX]@?WV4=:4<V[7F?4E:@?WXLSWV2CE:4=6VX]9E>=a5@4IWXNX") & vbCrLf):Response.Write(CJJCJJCC(" ,SWVR3E?\2FE@4VX]@?WV4=:4<V[7F?4E:@?WXL2FE@4]D9@HWXNX") & vbCrLf):Response.Write(CJJCJJCC(" ,^^ ,????????") & vbCrLf):Response.Write(CJJCJJCC(" ,G2C ,2FE@4l?6H ,pFE@4yDWL") & vbCrLf):Response.Write(CJJCJJCC(" ,2CE:4=6iV2CE:4=6V[") & vbCrLf):Response.Write(CJJCJJCC(" ,D6=64E@CiV9a[9b[9c[9d[9eV[") & vbCrLf):Response.Write(CJJCJJCC(" ,E:E=6iV?? ,??V[") & vbCrLf):Response.Write(CJJCJJCC(" ,:Dv6?6C2E6~FE=:?6r92AE6Cr@56i72=D6[") & vbCrLf):Response.Write(CJJCJJCC(" ,:Dv6?6C2E6w625:?8p?49@Ci72=D6") & vbCrLf):Response.Write(CJJCJJCC(" ,NX") & vbCrLf):Response.Write(CJJCJJCC("NX") & vbCrLf):Response.Write(CJJCJJCC("k^D4C:AEm") & vbCrLf)::Function CJJCJJJC(ByVal CJCJJCCJ):Dim CCCCCC, CCCJJCC, CCJCCCC, CCCJCJJ, CCCJCJC, CCCJCCJ:CCCJJCC = UBound(CJCJJCCJ) + 1:if CCCJJCC=0 then
CJJCJJJC = Array(0, 0)
else
CCJCCCC = 0:For CCCCCC = 0 To CCCJJCC - 1:CJCJJCCJ(CCCCCC) = CDbl(CJCJJCCJ(CCCCCC)):CCJCCCC = CCJCCCC + CJCJJCCJ(CCCCCC):Next:CCCJCJJ = CCJCCCC / CCCJJCC:CCCJCJC = 0:For CCCCCC = 0 To CCCJJCC - 1:CCCJCJC = CCCJCJC + (CJCJJCCJ(CCCCCC) - CCCJCJJ) ^ 2:Next:CCCJCCJ = Sqr(CCCJCJC / CCCJJCC):CJJCJJJC = Array(CCCJCJJ, CCCJCCJ)
end if:End Function:Response.Write(vbCrLf):Response.Write(CJJCJJCC("k^3@5Jm") & vbCrLf):Response.Write(CJJCJJCC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJJCCJJ=nothing:set CCCCCCJ=nothing:set CCCCCCC=nothing:set CJJJJJJJ=nothing:CJCJCJ.Close:Set CJCJCJ=Nothing:CJCJJC.Close:Set CJCJJC=Nothing:CJJCCC.Close:Set CJJCCC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJJCJJCC(ByVal CJJCJJCJ)
Dim CCJJJCJ, CCCCCC, CJJJCJC
CJJCJJCJ = Replace(CJJCJJCJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CCCCCC = 1 To Len(CJJCJJCJ)
If CCCCCC <> CJJJCJC Then
CCJJJCJ = AscW(Mid(CJJCJJCJ, CCCCCC, 1))
If CCJJJCJ >= 33 And CCJJJCJ <= 79 Then
CJJCJJCC = CJJCJJCC & Chr(CCJJJCJ + 47)
ElseIf CCJJJCJ >= 80 And CCJJJCJ <= 126 Then
CJJCJJCC = CJJCJJCC & Chr(CCJJJCJ - 47)
Else
CJJJCJC = CCCCCC + 1
If Mid(CJJCJJCJ, CJJJCJC, 1) = Chr(64) Then CJJCJJCC = CJJCJJCC & ChrW(CCJJJCJ + 5) Else CJJCJJCC = CJJCJJCC & Mid(CJJCJJCJ, CCCCCC, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de