Edit D:\xinhaisoft\crisis_new\lb\report

Edit D:\xinhaisoft\crisis_new\lb\report_dept\16pf.asp

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

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de