Edit D:\xinhaisoft\crisis_new\lb\report

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

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

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de