Edit D:\xinhaisoft\crisis_new\lb\report

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

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

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de