Edit D:\xinhaisoft\crisis_new\lb\report

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

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

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de