Edit D:\xinhaisoft\crisis_new\lb\report

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

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJCJCC, CJCCJJ,CJCCJC, CJCCCJ, CJCCCC:Set CJCJCC = server.CreateObject(CJJCJJJJ("ps~sq]r@??64E:@?")):CJCJCC.open Application(CJJCJJJJ("r@??64E:@?$EC:?8")):Set CJCCJJ=CJCJCC::Dim CCJJJJ,CCJJJC,CCJJCJ,CCJJCC,CCJCJJ,CCJCJC,CCJCCJ,CCJCCC,CCCJJJ:Dim CCCJJC,CCCJCJ,CCCJCC,CCCCJJ,CCCCJC,CCCCCJ:Dim CCCCCC,CJJJJJJ,CJJJJJC:Dim CJJJJCJ:CJJJJCJ=Trim(Request.Cookies(CJJCJJJJ("!$*|t|qt#"))):if CJJJJCJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CCJJJJ>0 then
CJCCCC=CJJCJJJJ("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") & CCJJJC & CJJCJJJJ("V ,2?5 ,:5l") & CCJJJJ
set CJCCJC=CJCJCC.execute(CJCCCC):If CJCCJC.EOF Then
Call ClearMemberCookie
Else
CCJJCJ=CJCCJC(2) & "":CCJJCC=CJCCJC(3):CCJCJJ=CJCCJC(5):CCJCJC=CJCCJC(6):CCJCCJ=CJCCJC(9):CCJCCC=CJCCJC(15):CCCJJC=CJCCJC(0):CJJJJJJ=CJCCJC(1):CCCCCC=CJCCJC(11) & "":CCCJCJ=CJCCJC(10) & "":CCCJJJ=CJCCJC(12):CCCJCC=CJCCJC(14):CCCCJJ=CJCCJC(13):CCCCJC=CJCCJC(7) & "":CCCCCJ=CJCCJC(4):CJJJJJC=CJCCJC(8):if isnull(CCJCCC) then CCJCCC=0
if isnull(CCJCCJ) or CCJCCJ=0 then CCJCCJ=CCJJCC
if isnull(CCCCCJ) then CCCCCJ=0
if isnull(CCJCJJ) then CCJCJJ=0
if instr(CJJCJJJJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CCJJJC)>0 then Call RedirectMessage(CJJCJJJJ("????????,????????????????????????????????,"))
Call SetMemberCookie(CCJJJJ,CCJJJC)
End IF
end if:Sub CheckRight(CJJCCJC):dim CJJJJCC,CJJJCJJ:if CCJJJJ=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJJCJJJJ("??????????????,????????????,"))
elseIf not CCCCJCJ(CJJCCJC) then
Call RedirectMessage(CJJCJJJJ("????W") & CJJCCJC & CJJCJJJJ("X????????,????????????????????,"))
end if:End Sub:Function CCCCJCJ(CJJCCJC):dim CJJJJCC,CJJJCJJ:CJJJCJJ=split(CJJCCJC,CJJCJJJJ("[")):CCCCJCJ=False:for CJJJJCC=0 to ubound(CJJJCJJ):If Mid(CCJJCJ,CJJJCJJ(CJJJJCC),1)="1" then
CCCCJCJ=True:exit function
end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CJJCJJJJ("!$*|t|qt#"))="":CCJJJJ=0:CCJCJC=0:CCJJJC=Empty:CCJCJJ=0:CCJCCC=0:CCJCCJ=0:CCJJCC=0:CCCJJC=False:CJJJJJJ=False:CJJJJJC=Empty:End Sub:Sub CheckMemberCookie():dim CJJJCJC,CJJJCCJ,CJJJJCC,CJJJCCC,CJJCJJJ:CJJJCJC=split(CJJJJCJ,CJJCJJJJ("]")):if ubound(CJJJCJC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJJJCJC(0)) or len(CJJJCJC(1))<>32 or len(CJJJCJC(2))<>32 then
Call ClearMemberCookie
else
CJJJCCJ=CJJJCJC(1):for CJJJJCC=1 to len(CJJJCCJ):CJJJCCC=mid(CJJJCCJ,CJJJJCC,1):if isnumeric(CJJJCCC) then CJJCJJJ=CJJCJJJ & CJJJCCC
if len(CJJCJJJ)=7 then exit for
next:CJJJCCJ=CJJJCJC(2):if CJJCJJJ<>mid(CJJJCCJ,6,7) then
Call ClearMemberCookie
else
CJJJCCC=mid(CJJJCCJ,18,10)/2:if CJJJCCC<DateDiff(CJJCJJJJ("D"), CJJCJJJJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CCJJJJ=Clng(CJJJCJC(0)):CCJJJC=CJJJCJC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJJJJCJJ,CJJCJJJC):dim CJJJJCC,CJJJCCC,CJJCJJJ:for CJJJJCC=1 to len(CJJCJJJC):CJJJCCC=mid(CJJCJJJC,CJJJJCC,1):if isnumeric(CJJJCCC) then CJJCJJJ=CJJCJJJ & CJJJCCC
if len(CJJCJJJ)=7 then exit for
next:CJJCJJJ=CJJJJCJJ & CJJCJJJJ("]") & CJJCJJJC & CJJCJJJJ("]") & Fix(10000*(Rnd+1)) & CJJCJJJ & Fix(10000*(Rnd+1)) & DateDiff(CJJCJJJJ("D"), CJJCJJJJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJJCJJJJ("!$*|t|qt#"))=CJJCJJJ:End Sub::::Const CCCJCCC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::Sub Debug(str):response.Charset=CJJCJJJJ("FE7\g"):dim CJJJJCC,CJJJCCC,CJJCJJC:if isarray(str) then
on error resume next:CJJJJCC=ubound(str,2):CJJCJJC=err.number:err.clear:on error goto 0:if CJJCJJC<>0 then
for CJJJJCC=0 to ubound(str):if CJJJJCC>0 then response.Write CJJCJJJJ("k3C ,^m")
response.Write CJJJJCC & CJJCJJJJ("i ,") & str(CJJJJCC):next
else
response.Write CJJCJJJJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CJJJJCC=0 to ubound(str,2):response.Write CJJCJJJJ("kE9 ,2=:8?lV=67EVm") & CJJJJCC & CJJCJJJJ("k^E9m")
next:response.Write CJJCJJJJ("k^ECm"):for CJJJJCC=0 to ubound(str):response.Write CJJCJJJJ("kECmkE9m") & CJJJJCC & CJJCJJJJ("k^E9m"):for CJJJCCC=0 to ubound(str,2):response.Write CJJCJJJJ("kE5m") & str(CJJJJCC,CJJJCCC) & CJJCJJJJ("k^E5m"):next:response.Write CJJCJJJJ("k^ECm"):next:response.Write CJJCJJJJ("k^E23=6m")
end if
elseif isnull(str) then
response.Write CJJCJJJJ(",}F==.")
else
Response.Write replace(str,vbcrlf,CJJCJJJJ("k3Cm"))
end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CJJCJJCJ,CJJCJJCC):dim CJJJCJC:CJJJCJC=CJJCJJCJ & CJJCJJJJ("l") & CJJCJJCC & CJJCJJJJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJCJJJJ("$6E\r@@<:6"),CJJJCJC):End Sub::::::sub ShowMessage(CJJCJCJJ):response.Charset="utf-8":Response.Write CJJCJJJJ("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") & CJJCJCJJ & CJJCJJJJ("k^5:Gmk^5:Gmk3Cm")
end sub:Function CCCCJCC(CJJCJJC):if isnull(CJJCJJC) or trim(CJJCJJC)="" or not isnumeric(CJJCJJC) then
CCCCJCC=false
else
Dim CJJCJCJ:Set CJJCJCJ = New RegExp:CJJCJCJ.Pattern = CJJCJJJJ("/-5ZS"):CJJCJCJ.IgnoreCase = True:CCCCJCC = CJJCJCJ.test(CJJCJJC):set CJJCJCJ=nothing
end if:End Function:Function CCCCCJJ(CJJCJCJC):dim CJJCJCC,CJJCCJJ:CJJCJCC=CJJCJJJJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJJCJCJC & CJJCJJJJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJJCCJJ=CJCJCC.execute(CJJCJCC):CCCCCJJ = CJJCCJJ(0):if isnull(CCCCCJJ) then CCCCCJJ=1
CJJCCJJ.close : set CJJCCJJ=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CJCJJJC=nothing:set CCCCCJC=nothing:set CCCCCCJ=nothing:set CCCCCCC=nothing:CJJCCJJ.close : set CJJCCJJ=nothing:CJCCCJ.Close : Set CJCCCJ=Nothing:CJCCJC.Close : Set CJCCJC=Nothing:CJJJJJJJ.Close : Set CJJJJJJJ = Nothing:CJCJCC.Close : Set CJCJCC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJCJCJJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJCJJJJ("!$*0|6DD286"),server.URLEncode(CJJCJCJJ)):Response.Redirect CJJCJJJJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub::::::::::::::::::Function CJJJJJJC(Table):Dim CJJCCJJ, CJJCCJC, str(), CJJJJCC,CJJJCCC,CJJCCCC:CJJCCCC=UCase(Table):If Not IsArray(Application(CJJCJJJJ("!$*0") & CJJCCCC)) Then
CJCCCC=CJJCJJJJ("D6=64E ,:5[?2>6[>6>36CEJA6 ,7C@> ,,") & Table & CJJCJJJJ(". ,@C56C ,3J ,D@CE[:5"):set CJJCCJJ=server.createobject(CJJCJJJJ("25@53]C64@C5D6E")):CJJCCJJ.open CJCCCC,CJCJCC,1:CJJCCJC = CJJCCJJ.RecordCount:ReDim str(CJJCCJC, 2):If CJJCCJC > 0 Then
For CJJJJCC = 1 To CJJCCJC:for CJJJCCC=0 to 2:str(CJJJJCC, CJJJCCC) = CJJCCJJ(CJJJCCC):next:CJJCCJJ.MoveNext:Next
End If:CJJCCJJ.Close: Set CJJCCJJ = Nothing:Application(CJJCJJJJ("!$*0") & CJJCCCC) = str
End If:CJJJJJJC = Application(CJJCJJJJ("!$*0") & CJJCCCC):End Function::Function CJJJJJCJ(CJJCJCJC,CJJCJCCJ,CJJJJCJJ):Dim str, CJJJJCC, CJCJJJJ:CJCJJJJ = CJJJJJJC(CJJCJCJC):For CJJJJCC = 1 To UBound(CJCJJJJ):if Cstr(CJCJJJJ(CJJJJCC,2))=Cstr(CJJCJCCJ) and CStr(CJCJJJJ(CJJJJCC, 0)) = CJJJJCJJ & "" then
str=CJCJJJJ(CJJJJCC,1):exit for
end if:Next:if str="" then str=CJJCJJJJ(",????.")
CJJJJJCJ=str:End Function:::::::Sub CheckQueryTime(CJJCJCCC,CJJCCJJJ):dim str,CJJCJJC:str=CJJCJJJJ("!$*0") & Ucase(CJJCJCCC):if Session(str)<>"" then
CJJCJJC=DateDiff(CJJCJJJJ("D"),Session(str),Time):if CJJCJJC<CJJCCJJJ and CJJCJJC>0 then
Call ConnClose:Call ShowMessage(CJJCJJJJ("??????????@?????? ,") & CJJCCJJJ & CJJCJJJJ(" ,????,???? ,") & CJJCCJJJ-CJJCJJC & CJJCJJJJ(" ,????,")):response.End()
else
Session.Contents.Remove(str)
end if
end if:Session(str)=Time:End Sub::::::::::Sub ClearCache(CJJCCJJC):Application.Contents.Remove CJJCCJJC
End Sub::Class jTree:Private CJCCCC, CJCJJJC, CJCJJCJ, CJCJJCC,CJCJCJJ,CJCJCJC,CJCJCCJ,CJCJCCC:Private Sub Class_Initialize():CJCJJCJ = 0:CJCJJCC = 0:CJCJCCC=10:End Sub:Public Property Let Table(CJJCCJCJ):if CJJCCJCJ="" then Call RedirectMessage(CJJCJJJJ("????????,;%C66????????????????????@??????????,"))
CJCJCJJ=CJJCCJCJ:CJCJCJC=CJJCJJJJ("!$*0") & UCase(CJCJCJJ):Call GetTreeArray:End Property:Public Property Get Table():Table=CJCJCJJ:End Property:::Private Sub GetTreeArray():Dim CJJJJCC, CJJJCCC, CJCCJJJ,RecordCount:CJCJJJC = Application(CJCJCJC):If Not IsArray(CJCJJJC) Then
CJCCCC = CJJCJJJJ("D6=64E ,4@F?EW:5X ,7C@> ,") & CJCJCJJ:if CJCJCCJ<>"" then CJCCCC=CJCCCC & CJJCJJJJ(" ,H96C6 ,") & CJCJCCJ
set CJCCJJJ=CJCJCC.execute(CJCCCC):RecordCount=CJCCJJJ(0):if RecordCount=0 then Call RedirectMessage(CJJCJJJJ("????W") & CJCJCJJ & CJJCJJJJ("^") & CJCJCCJ & CJJCJJJJ("X????????????"))
CJCJJCC=RecordCount+CJCJCCC:ReDim CJCJJJC(CJCJJCC, 4):CJCCCC = CJJCJJJJ("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCJCJJ & CJJCJJJJ(" ,H:E9 ,W?@=@4<X"):if CJCJCCJ<>"" then CJCCCC=CJCCCC & CJJCJJJJ(" ,H96C6 ,") & CJCJCCJ
CJCCCC=CJCCCC & CJJCJJJJ(" ,@C56C ,3J ,D@CE[:5"):set CJCCJJJ=CJCJCC.execute(CJCCCC):For CJJJJCC = 1 To RecordCount:For CJJJCCC = 0 To 4:CJCJJJC(CJJJJCC, CJJJCCC) = CJCCJJJ(CJJJCCC):if IsNull(CJCJJJC(CJJJJCC,4)) then CJCJJJC(CJJJJCC,4)=0
If CJCJJJC(CJJJJCC,2)="" then CJCJJJC(CJJJJCC,2)=CJJCJJJJ(",??.")
Next:CJCCJJJ.MoveNext:Next:CJCCJJJ.Close: Set CJCCJJJ = Nothing:for CJJJJCC=CJCJJCC-(CJCJCCC-1) to CJCJJCC:CJCJJJC(CJJJJCC,0)=CJJJJCC:next:Application.Lock():Application(CJCJCJC) = CJCJJJC:Application.UnLock()
else
CJCJJCC=Ubound(CJCJJJC)
End If:End Sub::::Public Function GetChild(CJJJJCJJ):Dim CJJJJCC, Str:CJJJJCJJ=CLng(CJJJJCJJ):For CJJJJCC = 1 To CJCJJCC:If CJCJJJC(CJJJJCC, 1) = CJJJJCJJ Then Str = Str & CJJCJJJJ("M") & CJCJJJC(CJJJJCC, 0) & CJJCJJJJ("M") & CJCJJJC(CJJJJCC,2)
Next:If Str <> "" Then Str = Mid(Str, 2)
GetChild = Split(str,CJJCJJJJ("M")):End Function:Private Function CJJJJCCJ(CJJJJCJJ):dim CJJJJCC,CJCCJCJ:CJJJJCCJ=0:CJCCJCJ=CStr(CJJJJCJJ):if CJCCJCJ<>"0" then
for CJJJJCC=1 to CJCJJCC:If CStr(CJCJJJC(CJJJJCC, 0))=CJCCJCJ Then
CJJJJCCJ = CJJJJCC:Exit For
End If:Next
end if:End Function:Public Function GetCurName(CJJJJCJJ):if Cstr(CJJJJCJJ)="0" then
GetCurName=CJJCJJJJ("??")
else
Dim CJJJJCC,CJCCJJJ:CJJJJCC=CJJJJCCJ(CJJJJCJJ):if CJJJJCC>0 then
GetCurName=CJCJJJC(CJJJJCC,2):if GetCurName="" then
set CJCCJJJ=CJCJCC.execute(CJJCJJJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCJCJJ & CJJCJJJJ(" ,H96C6 ,:5l") & CJJJJCJJ):if CJCCJJJ.eof then Call RedirectMessage(CJJCJJJJ("xs??,") & CJJJJCJJ & CJJCJJJJ("??,??????"))
GetCurName=CJCCJJJ(1):Call UpdateCache(CJJJJCJJ,CJCCJJJ(0),GetCurName,CJCCJJJ(2),CJCCJJJ(3)):CJCCJJJ.Close: Set CJCCJJJ = Nothing
end if
else
set CJCCJJJ=CJCJCC.execute(CJJCJJJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCJCJJ & CJJCJJJJ(" ,H96C6 ,:5l") & CJJJJCJJ):if CJCCJJJ.eof then Call RedirectMessage(CJJCJJJJ("xs??,") & CJJJJCJJ & CJJCJJJJ("??,??????"))
GetCurName=CJCCJJJ(1):Call UpdateCache(CJJJJCJJ,CJCCJJJ(0),GetCurName,CJCCJJJ(2),CJCCJJJ(3)):CJCCJJJ.Close: Set CJCCJJJ = Nothing
end if
end if:End Function:::Public Function CJJJCJJJ(CJJJJCJJ):Dim CJJJJCC,CJCCJCC:CJJJJCC=CJJJJCCJ(CJJJJCJJ):if CJJJJCC=0 then
CJCCJCC=CJJJCJJC(CJJJJCJJ)
else
CJCCJCC=CJCJJJC(CJJJJCC,3):if isnull(CJCCJCC) or CJCCJCC="" then
CJCCJCC=CJJJCJJC(CJJJJCJJ)
elseif Mid(CJCCJCC,instrrev(CJCCJCC,CJJCJJJJ("["))+1)<>CStr(CJJJJCJJ) then
CJCCJCC=CJJJCJJC(CJJJJCJJ)
elseif Left(CJCCJCC,1)=CJJCJJJJ("[") then
CJCCJCC=CJJJCJJC(CJJJJCJJ)
end if
end if:CJJJCJJJ=CJCCJCC:End Function:Private Function CJJJCJJC(CJJJJCJJ):dim CJCCJCJ:CJCCJCJ=CStr(CJJJJCJJ):if CJCCJCJ="0" then
CJJJCJJC=""
else
dim CJCCJJJ:set CJCCJJJ=CJCJCC.execute(CJJCJJJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCJCJJ & CJJCJJJJ(" ,H96C6 ,:5l") & CJJJJCJJ):if CJCCJJJ.eof then
Call UpdateCache(CJJJJCJJ,"","","",""):Call RedirectMessage(CJJCJJJJ("??????,xs??,") & CJJJJCJJ & CJJCJJJJ("??,????????,????????????????????,"))
else
if CJCCJJJ(0)=0 then
CJJJCJJC="0," & CJJJJCJJ
else
CJJJCJJC=CJJJCJJJ(CJCCJJJ(0)) & CJJCJJJJ("[") & CJJJJCJJ
end if:if CJCCJJJ(2)<>CJJJCJJC then
CJCJCC.execute CJJCJJJJ("FA52E6 ,") & CJCJCJJ & CJJCJJJJ(" ,D6E ,A2E9lV") & CJJJCJJC & CJJCJJJJ("V ,H96C6 ,:5l") & CJJJJCJJ
else
CJJJCJJC=CJCCJJJ(2)
end if
end if:Call UpdateCache(CJJJJCJJ,CJCCJJJ(0),CJCCJJJ(1),CJJJCJJC,CJCCJJJ(3)):CJCCJJJ.Close: Set CJCCJJJ = Nothing
end if:End Function::::Public Function IsParent(CJJCCJCC, CJJCCCJJ):IsParent=InStr(CJJJCJJJ(CJJCCCJJ) & CJJCJJJJ("["), CJJCJJJJ("[") & CJJCCJCC & CJJCJJJJ("[")) > 0:End Function::::::::Public Function Sql_GetChildren(CJJJJCJJ):dim CJCCJCC:CJCCJCC=CJJJCJJJ(CJJJJCJJ):Sql_GetChildren = CJCJCJJ & CJJCJJJJ("0A2E9ZV[V ,=:<6 ,V") & CJCCJCC & CJJCJJJJ("[TV")
End Function::::::::::Public Sub ClearCache():Application.Contents.Remove CJCJCJC
End Sub:Public Sub UpdateCache(CJJJJCJJ,CJJCCCJC,CJJCCCCJ,CJCCJCC,CJJCCCCC):dim CJJJJCC,CJJJCCC:CJJJJCJJ=CLng(CJJJJCJJ):CJJJJCC=CJJJJCCJ(CJJJJCJJ):if CJJCCCJC="" and CJJCCCCJ="" and CJCCJCC="" and CJJCCCCC="" then
if CJJJJCC>0 then
for CJJJCCC=1 to 4:CJCJJJC(CJJJJCC,CJJJCCC)=Null:next
end if
else
if CJJJJCC=0 then
for CJJJCCC=1 to CJCJJCC:if CJCJJJC(CJJJCCC,1) & ""="" then
CJJJJCC=CJJJCCC:exit for
end if:next
end if:if CJJJJCC=0 then
Call ClearCache
else
CJCJJJC(CJJJJCC,0)=CLng(CJJJJCJJ):if CJJCCCJC<>"" then CJCJJJC(CJJJJCC,1)=CLng(CJJCCCJC)
if CJJCCCCJ<>"" then CJCJJJC(CJJJJCC,2)=CJJCCCCJ
if CJCCJCC<>"" then CJCJJJC(CJJJJCC,3)=CJCCJCC
if CJJCCCCC<>"" then CJCJJJC(CJJJJCC,4)=CLng(CJJCCCCC)
end if
end if:if CJJJJCC>0 then
Application.Lock():Application(CJCJCJC) = CJCJJJC:Application.UnLock()
end if:End Sub:Private Sub Debug(CJJCJCJJ):Call ConnClose:Response.Write CJJCJCJJ:Response.End:End Sub:Private Function CCCCCJJ():CCCCCJJ=CJJJCCJJ+1:End Function:Private Function CJJJCCJJ():dim CJJCCJJ:set CJJCCJJ=CJCJCC.execute(CJJCJJJJ("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CJCJCJJ & CJJCJJJJ(" ,@C56C ,3J ,:5 ,56D4")):CJJJCCJJ=CJJCCJJ(0):CJJCCJJ.Close: Set CJJCCJJ = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Const CCCCJJJ=111:Const CCCCJJC="?????????":Call CheckRight("54,81"):Call CheckQueryTime(CJJCJJJJ("%6DE0#6A@CE"),60):dim CJCCCJJ,CJCCCJC,CJCCCCJ,CJCCCCC,CCJJJJJ,CCJJJJC,CCJJJCJ,CCJJJCC:CCJJJJC=Request.QueryString(CJJCJJJJ("$49@@=")):CJCCCJJ=Request.QueryString(CJJCJJJJ("s6AE")):CJCCCJC=Request.QueryString(CJJCJJJJ("vC256")):CJCCCCJ=Request.QueryString(CJJCJJJJ("vC@FA")):CCJJJCC=Request.QueryString(CJJCJJJJ("E6DEEJA6")):CJCCCCC=Request.QueryString(CJJCJJJJ("E`")):CCJJJJJ=Request.QueryString(CJJCJJJJ("Ea")):CCJJJCJ=Request.QueryString(CJJCJJJJ("KDBK7I")):if not CCCCJCC(CJCCCJJ) or (not CCCCJCC(CCJJJCJ) and not CCCCJCC(CCJJJJC)) then Call RedirectMessage(CJJCJJJJ("????????,????????????"))
dim CJCJJJC:set CJCJJJC=new jtree:CJCJJJC.table=CJJCJJJJ(">6>36C0EJA6"):if not CJCJJJC.IsParent(CCJJCC,CJCCCJJ) then Call RedirectMessage(CJJCJJJJ("??????W") & CJCCCJJ & CJJCJJJJ("X??????W") & CCJJCC & CJJCJJJJ("X????????????@??,"))
dim CJJJCCJC:CJJJCCJC=CJCJJJC.GetChild(CJCCCJJ):if ubound(CJJJCCJC)<0 then Call RedirectMessage(CJJCJJJJ("??????????????????????????,"))
dim CCJJCJJ:CCJJCJJ=CJCJJJC.GetCurName(CJCCCJJ):dim CJJJJCC,CJJJCCC,CJJCJJJ,CCJJCJC,CCJJCCJ,CCJJCCC:dim CCJCJJJ():redim CCJCJJJ((ubound(CJJJCCJC)-1)/2,8):for CJJJJCC=0 to ubound(CJJJCCJC)-1 step 2:CJJCJJJ=CJJJJCC/2:CCJCJJJ(CJJCJJJ,0)=CJJJCCJC(CJJJJCC):CCJCJJJ(CJJCJJJ,1)=CJJJCCJC(CJJJJCC+1):for CJJJCCC=2 to ubound(CCJCJJJ,2):CCJCJJJ(CJJCJJJ,CJJJCCC)=0:next:CCJJCJC=CCJJCJC & CJJCJJJJ("M") & CCJCJJJ(CJJCJJJ,1):next:CCJJCJC=mid(CCJJCJC,2):dim CCJCJJC(1,7):CCJCJJC(0,0)=CJJCJJJJ("??"):CCJCJJC(1,0)=CJJCJJJJ("??"):for CJJJJCC=0 to 1:for CJJJCCC=1 to 7:CCJCJJC(CJJJJCC,CJJJCCC)=0:next:next:dim CJJJCJJ,CCJCJCJ,CCJCJCC,CCJCCJJ,CCJCCJC,CCJCCCJ,CCJCCCC:CCJCCJJ=Date:CCJCCJC=cdate(CJJCJJJJ("a___\`\`")):dim CCCJJJJ:CCCJJJJ=Array(0,0,0,0,0):if not CCCCJCC(CCJJJCJ) then
set CJCCJC=CJCJCC.execute(CJJCJJJJ("D6=64E ,E@A ,` ,EJA6 ,7C@> ,D49@@= ,H96C6 ,:5l") & CCJJJJC):if CJCCJC(0)<=2 or CJCCJC(0)=16 then
CCJJJCJ=159
elseif CJCCJC(0)=4 or CJCCJC(0)=6 then
CCJJJCJ=190
elseif CJCCJC(0)=7 or CJCCJC(0)=13 then
CCJJJCJ=164
else
CCJJJCJ=121
end if
end if:dim CCCJJJC:CCCJJJC=CJCJJJC.Sql_GetChildren(CJCCCJJ):CJCCCC=CJJCJJJJ("D6=64E ,4@F?EW:5X ,7C@> ,G0E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,=3l") & CCJJJCJ & CJJCJJJJ(" ,2?5 ,G2=:5l` ,2?5 ,WC6DF=ElVbV ,@C ,C6DF=ElVcVX")
if cstr(CJCCCJJ)=cstr(CCJJJJC) then CJCCCC=CJCCCC & CJJCJJJJ(" ,2?5 ,>6>36C0EJA60E@Al") & CCJJJJC else CJCCCC=CJCCCC & CJJCJJJJ(" ,2?5 ,") & CCCJJJC
if CCCCJCC(CJCCCJC) then CJCCCC=CJCCCC & CJJCJJJJ(" ,2?5 ,8C256l") & CJCCCJC
if CCCCJCC(CJCCCCJ) then CJCCCC=CJCCCC & CJJCJJJJ(" ,2?5 ,4FDE@>8C@FAl") & CJCCCCJ
if isdate(CJCCCCC) then CJCCCC=CJCCCC & CJJCJJJJ(" ,2?5 ,52E6E:>6mlV") & CJCCCCC & CJJCJJJJ("V")
if isdate(CCJJJJJ) then CJCCCC=CJCCCC & CJJCJJJJ(" ,2?5 ,52E6E:>6kV") & cdate(CCJJJJJ)+1 & CJJCJJJJ("V")
set CJCCJC=CJCCJJ.execute(CJCCCC):CCJCCCC=CJCCJC(0):CJCCCC=CJJCJJJJ("D6=64E ,C6DF=E[>6>36C0EJA60A2E9[D4@C60E[D6I[52E6E:>6[E6DE286[C62=?2>6[?F>36C[:5 ,7C@> ,G0E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,=3l") & CCCCJJJ & CJJCJJJJ(" ,2?5 ,G2=:5l`"):if cstr(CJCCCJJ)=cstr(CCJJJJC) then CJCCCC=CJCCCC & CJJCJJJJ(" ,2?5 ,>6>36C0EJA60E@Al") & CCJJJJC else CJCCCC=CJCCCC & CJJCJJJJ(" ,2?5 ,") & CCCJJJC
if CCCCJCC(CJCCCJC) then CJCCCC=CJCCCC & CJJCJJJJ(" ,2?5 ,8C256l") & CJCCCJC
if CCCCJCC(CJCCCCJ) then CJCCCC=CJCCCC & CJJCJJJJ(" ,2?5 ,4FDE@>8C@FAl") & CJCCCCJ
if CCCCJCC(CCJJJCC) then CJCCCC=CJCCCC & CJJCJJJJ(" ,2?5 ,EJA6l") & CCJJJCC
if isdate(CJCCCCC) then CJCCCC=CJCCCC & CJJCJJJJ(" ,2?5 ,52E6E:>6mlV") & CJCCCCC & CJJCJJJJ("V")
if isdate(CCJJJJJ) then CJCCCC=CJCCCC & CJJCJJJJ(" ,2?5 ,52E6E:>6kV") & cdate(CCJJJJJ)+1 & CJJCJJJJ("V")
set CJCCJC=CJCCJJ.execute(CJCCCC):if CJCCJC.eof then Call RedirectMessage(CJJCJJJJ("????????,????????????????,"))
while not CJCCJC.eof:if isnull(CJCCJC(0)) then Call RedirectMessage(CJCCJC(6) & CJJCJJJJ("??,") & CJCCJC(7) & CJJCJJJJ("??,????????????????????????,????????,") & CJCCJC(8) & CJJCJJJJ("??,??,"))
CJJJCJJ=split(CJCCJC(0),CJJCJJJJ("M")):CJJCJJJ=CJCCJC(0):CCCJJJJ(CJJCJJJ)=CCCJJJJ(CJJCJJJ)+1:CJJJCCC=ubound(CCJCJJJ):for CJJJJCC=0 to CJJJCCC-1:if instr(CJCCJC(1) & CJJCJJJJ("["),CJJCJJJJ("[") & CCJCJJJ(CJJJJCC,0) & CJJCJJJJ("["))>0 then
CJJJCCC=CJJJJCC:exit for
end if:next:CJJJJCC=CJJJCCC:CCJCJJJ(CJJJJCC,2)=CCJCJJJ(CJJJJCC,2)+1:CCJCJJJ(CJJJJCC,3)=CCJCJJJ(CJJJJCC,3) & CJJCJJJJ("M") & CJCCJC(2):CJJCJJJ=CJCCJC(0)+4:CCJCJJJ(CJJJJCC,CJJCJJJ)=CCJCJJJ(CJJJJCC,CJJCJJJ)+1:if CJCCJC(3) then CJJJCCC=0 else CJJJCCC=1
CCJCJJC(CJJJCCC,1)=CCJCJJC(CJJJCCC,1)+1:CCJCJJC(CJJJCCC,2)=CCJCJJC(CJJJCCC,2) & CJJCJJJJ("M") & CJCCJC(2):CJJCJJJ=CJCCJC(0)+3:CCJCJJC(CJJJCCC,CJJCJJJ)=CCJCJJC(CJJJCCC,CJJCJJJ)+1:CJJCJJJ=CJCCJC(4):if CJJCJJJ<CCJCCJJ then CCJCCJJ=CJJCJJJ
if CJJCJJJ>CCJCCJC then CCJCCJC=CJJCJJJ
CCJCCCJ=CCJCCCJ & CJJCJJJJ("M") & CJCCJC(5):CJCCJC.movenext:CCJCJCJ=CCJCJCJ+1:wend:Response.Write(vbCrLf):Response.Write(CJJCJJJJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJJCJJJJ("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJJCJJJJ("k9625m") & vbCrLf):Response.Write(CJJCJJJJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJJCJJJJ("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJJCJJJJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJJCJJJJ("kE:E=6m")):Response.Write  CCJJCJJ:Response.Write(CJJCJJJJ("\")):Response.Write  CCCCJJC:Response.Write(CJJCJJJJ("????????????k^E:E=6m") & vbCrLf):Response.Write(CJJCJJJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^2>2K6F:^4DD^2>2K6F:]>:?]4DDQm") & vbCrLf):Response.Write(CJJCJJJJ("kDEJ=6m") & vbCrLf):Response.Write(CJJCJJJJ("2CE:4=6 ,L ,3@I\D925@Hi ,_ ,_ ,dAI ,R444j ,A255:?8\E@Ai ,b_AIj ,A255:?8\3@EE@>i ,d_AIj ,N") & vbCrLf):Response.Write(CJJCJJJJ("2CE:4=6 ,9` ,L ,E6IE\2=:8?i ,46?E6Cj ,N") & vbCrLf):Response.Write(CJJCJJJJ("]2>\?2G32C\?2G ,]2>\7= ,L ,4@=@Ci ,R777j ,N") & vbCrLf):Response.Write(CJJCJJJJ("k^DEJ=6m") & vbCrLf):Response.Write(CJJCJJJJ("kDEJ=6 ,>65:2lQAC:?EQm") & vbCrLf):Response.Write(CJJCJJJJ("3@5J ,L ,324<8C@F?5\4@=@Ci ,EC2?DA2C6?Ej ,N") & vbCrLf):Response.Write(CJJCJJJJ("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(CJJCJJJJ("7@@E6C ,L ,5:DA=2Ji ,?@?6j ,N") & vbCrLf):Response.Write(CJJCJJJJ("k^DEJ=6m") & vbCrLf):Response.Write(CJJCJJJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJJJJ("kD4C:AE ,DC4lQ^$4C:AED^6492CED^6492CED]4@>>@?]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJJJJ("k^9625m") & vbCrLf):Response.Write(CJJCJJJJ("k3@5Jm") & vbCrLf):Response.Write(CJJCJJJJ("k:?AFE ,EJA6lQ9:556?Q ,:5lQIQ ,G2=F6lQ")):Response.Write  CCJJCJC:Response.Write(CJJCJJJJ("Qm") & vbCrLf):Response.Write(CJJCJJJJ("k2CE:4=6 ,4=2DDlQ2>\4@?E2:?6C ,2>\2CE:4=6Qm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k5:G ,4=2DDlQ2>\2CE:4=6\95Qm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k9` ,4=2DDlQ2>\2CE:4=6\E:E=6Qm")):Response.Write  CCJJCJJ:Response.Write(CJJCJJJJ("k3Cm") & vbCrLf):Response.Write(CJJCJJJJ(" ,")):Response.Write  CCCCJJC:Response.Write(CJJCJJJJ("????????????k^9`m") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k5:G ,4=2DDlQ2>\2CE:4=6\35Qm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k9am??,??,????????k^9am") & vbCrLf):Response.Write(CJJCJJJJ(" ,kAm????????????????????????????????????????????????????,??????????????????,??????????????????????????????????,??????a_????????,??@??c??????????,??????????????,??????????,??????????,????????,??????????????,????????????????????????????????????????,????????????,??????,??????,??????,??????,k^Am") & vbCrLf):Response.Write(CJJCJJJJ(" ,k9am????,????????k^9am") & vbCrLf):Response.Write(CJJCJJJJ(" ,kAm")):Response.Write  formatdatetime(CCJCCJJ,1):Response.Write(CJJCJJJJ("??,")):Response.Write  formatdatetime(CCJCCJC,1):Response.Write(CJJCJJJJ("k^Am") & vbCrLf):Response.Write(CJJCJJJJ(" ,k9am????,????????k^9am") & vbCrLf):Response.Write(CJJCJJJJ(" ,kAm????????????????????????????,k^Am") & vbCrLf):Response.Write(CJJCJJJJ(" ,kF=m") & vbCrLf):Response.Write(CJJCJJJJ(" ,")):if CCJCCCC=0 then
Response.Write(vbCrLf):Response.Write(CJJCJJJJ(" ,k=:m??????, ,????????????????????????????,????????")):Response.Write  CCJCCCC:Response.Write(CJJCJJJJ("????,????????")):Response.Write  CCJCJCJ:Response.Write(CJJCJJJJ("????,k^=:m") & vbCrLf):Response.Write(CJJCJJJJ(" ,"))
else
Response.Write(vbCrLf):Response.Write(CJJCJJJJ(" ,k=:m??????, ,????????????????????????????,????????")):Response.Write  CCJCCCC:Response.Write(CJJCJJJJ("????,????????")):Response.Write  CCJCJCJ:Response.Write(CJJCJJJJ("????,????????")):Response.Write  formatnumber(CCJCJCJ/CCJCCCC*100,2,-1):Response.Write(CJJCJJJJ("T??,k^=:m") & vbCrLf):Response.Write(CJJCJJJJ(" ,"))
end if:Response.Write(vbCrLf):Response.Write(CJJCJJJJ(" ,k=:m??????, ,????")):Response.Write  CCJCJJC(0,1):Response.Write(CJJCJJJJ("????,????")):Response.Write  CCJCJJC(1,1):Response.Write(CJJCJJJJ("????,k^=:m") & vbCrLf):Response.Write(CJJCJJJJ(" ,k=:m??????,") & vbCrLf):Response.Write(CJJCJJJJ(" ,")):CJJJCJJ=CJJJCCCJ(split(Mid(CCJCCCJ,2),CJJCJJJJ("M"))):response.Write CJJCJJJJ("????????") & formatnumber(CJJJCJJ(0),2,-1) & CJJCJJJJ("????,??????") & formatnumber(CJJJCJJ(1),2,-1) & CJJCJJJJ("??,??,"):Response.Write(vbCrLf):Response.Write(CJJCJJJJ(" ,k^=:m") & vbCrLf):Response.Write(CJJCJJJJ(" ,k=:m??????,") & vbCrLf):Response.Write(CJJCJJJJ(" ,")):CJJJCCC=0:for CJJJJCC=0 to ubound(CCJCJJJ):if CCJCJJJ(CJJJJCC,2)>0 then
CJJJCCC=CJJJCCC+1:response.Write CCJCJJJ(CJJJJCC,1) & CJJCJJJJ("??,") & CCJCJJJ(CJJJJCC,2) & CJJCJJJJ("????,")
end if:next:Response.Write(vbCrLf):Response.Write(CJJCJJJJ(" ,????")):Response.Write  CJJJCCC:Response.Write(CJJCJJJJ("??????") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^=:m") & vbCrLf):Response.Write(CJJCJJJJ(" ,k=:m??????,") & vbCrLf):Response.Write(CJJCJJJJ(" ,")):if CCCCJCC(CJCCCJC) then response.Write CJJJJJCJ(CJJCJJJJ(">6>36C08C256"),CCJJJJC,CJCCCJC) else response.Write CJJCJJJJ(",????.")
Response.Write(vbCrLf):Response.Write(CJJCJJJJ(" ,k^=:m") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^F=m") & vbCrLf):Response.Write(CJJCJJJJ(" ,k9am????,??????????????k^9am") & vbCrLf):Response.Write(CJJCJJJJ(" ,kAm????????????????????????????,??????????,??????????????????,????????????????,??????????????????????")):Response.Write  CCCJJJJ(0):Response.Write(CJJCJJJJ("????,??????????")):Response.Write  FormatPercent(CCCJJJJ(0)/CCJCJCJ,2,-1):Response.Write(CJJCJJJJ("??,????????????????")):Response.Write  CCCJJJJ(1):Response.Write(CJJCJJJJ("????,??????????")):Response.Write  FormatPercent(CCCJJJJ(1)/CCJCJCJ,2,-1):Response.Write(CJJCJJJJ("??,??????????????????")):Response.Write  CCCJJJJ(2):Response.Write(CJJCJJJJ("????,??????????")):Response.Write  FormatPercent(CCCJJJJ(2)/CCJCJCJ,2,-1):Response.Write(CJJCJJJJ("??,????????????????")):Response.Write  CCCJJJJ(3):Response.Write(CJJCJJJJ("????,??????????")):Response.Write  FormatPercent(CCCJJJJ(3)/CCJCJCJ,2,-1):Response.Write(CJJCJJJJ("??,??????????????????")):Response.Write  CCCJJJJ(4):Response.Write(CJJCJJJJ("????,??????????")):Response.Write  FormatPercent(CCCJJJJ(4)/CCJCJCJ,2,-1):Response.Write(CJJCJJJJ("??,k^Am") & vbCrLf):Response.Write(CJJCJJJJ(" ,kAm????????????????????,????????????????,????????????????,????????,??,??????????,????????,????????????????????????????????,????????????????????,????????????????,??????????????,k^Am") & vbCrLf):Response.Write(CJJCJJJJ(" ,kD4C:AE ,DC4lV^$4C:AED^492CE];Dn4lA:6UHldd_U9lb__UIl????M????M????M????M????UGl")):Response.Write  join(CCCJJJJ,CJJCJJJJ("M")):Response.Write(CJJCJJJJ("Vmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k9am????,??????????????????????k^9am") & vbCrLf):Response.Write(CJJCJJJJ(" ,k9bm`??,??????????k^9bm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE23=6 ,4=2DDlQ2>\E23=6 ,2>\E23=6\DEC:A65 ,2>\E23=6\4@>A24E ,2>\E23=6\46?E6C65 ,2>\E23=6\3@C56C65Qm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9625m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m??????k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m??????k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^E9625m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJCJJJJ(" ,")):CCJJCJC="":for CJJJJCC=0 to ubound(CCJCJJJ):if CCJCJJJ(CJJJJCC,2)>0 then
CCJJCJC=CCJJCJC & CJJCJJJJ("M") & CCJCJJJ(CJJJJCC,1):Response.Write(vbCrLf):Response.Write(CJJCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE5 ,4=2DDlQE6IE\=67EQm")):Response.Write  CCJCJJJ(CJJJJCC,1):Response.Write(CJJCJJJJ("k^E5m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE5m")):Response.Write  CCJCJJJ(CJJJJCC,2):Response.Write(CJJCJJJJ("k^E5m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE5m") & vbCrLf):Response.Write(CJJCJJJJ(" ,")):CJJJCJJ=CJJJCCCJ(split(Mid(CCJCJJJ(CJJJJCC,3),3),CJJCJJJJ("M"))):CCJCJCC=formatnumber(CJJJCJJ(0),2,-1):CCJJCCJ=CCJJCCJ & CJJCJJJJ("M") & CCJCJCC:response.Write CCJCJCC:Response.Write(vbCrLf):Response.Write(CJJCJJJJ(" ,k^E5m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE5m")):Response.Write  formatnumber(CJJJCJJ(1),2,-1):Response.Write(CJJCJJJJ("k^E5m") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,"))
end if:next:Response.Write(vbCrLf):Response.Write(CJJCJJJJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4l32CUHldd_U9l")):Response.Write  ubound(split(CCJJCJC,CJJCJJJJ("M")))*30+200:Response.Write(CJJCJJJJ("UIl")):Response.Write  mid(CCJJCJC,2):Response.Write(CJJCJJJJ("UGl")):Response.Write  mid(CCJJCCJ,2):Response.Write(CJJCJJJJ("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k9bma??,??????????????????????????????????k^9bm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE23=6 ,4=2DDlQ2>\E23=6 ,2>\E23=6\DEC:A65 ,2>\E23=6\4@>A24E ,2>\E23=6\46?E6C65 ,2>\E23=6\3@C56C65Qm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9625m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^E9625m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJCJJJJ(" ,")):for CJJJJCC=0 to ubound(CCJCJJJ):if CCJCJJJ(CJJJJCC,2)>0 then
Response.Write(vbCrLf):Response.Write(CJJCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE5 ,4=2DDlQE6IE\=67EQm")):Response.Write  CCJCJJJ(CJJJJCC,1):Response.Write(CJJCJJJJ("k^E5m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE5m")):Response.Write  CCJCJJJ(CJJJJCC,4):Response.Write(CJJCJJJJ("k^E5m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE5m")):Response.Write  CCJCJJJ(CJJJJCC,5):Response.Write(CJJCJJJJ("k^E5m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE5m")):Response.Write  CCJCJJJ(CJJJJCC,6):Response.Write(CJJCJJJJ("k^E5m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE5m")):Response.Write  CCJCJJJ(CJJJJCC,7):Response.Write(CJJCJJJJ("k^E5m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE5m")):Response.Write  CCJCJJJ(CJJJJCC,8):Response.Write(CJJCJJJJ("k^E5m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE5m")):Response.Write  CCJCJJJ(CJJJJCC,2):Response.Write(CJJCJJJJ("k^E5m") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,"))
end if:next:Response.Write(vbCrLf):Response.Write(CJJCJJJJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCJJJJ(" ,")):CCJJCCJ=CJJCJJJJ("LV?2>6ViV????V[V52E2Vi,")
for CJJJJCC=0 to ubound(CCJCJJJ):if CJJJJCC>0 then CCJJCCJ=CCJJCCJ & CJJCJJJJ("[")
CCJJCCJ=CCJJCCJ & CCJCJJJ(CJJJJCC,4):next:CCJJCCJ=CCJJCCJ & CJJCJJJJ(".N[LV?2>6ViV????V[V52E2Vi,")
for CJJJJCC=0 to ubound(CCJCJJJ):if CJJJJCC>0 then CCJJCCJ=CCJJCCJ & CJJCJJJJ("[")
CCJJCCJ=CCJJCCJ & CCJCJJJ(CJJJJCC,5):next:CCJJCCJ=CCJJCCJ & CJJCJJJJ(".N[LV?2>6ViV????V[V52E2Vi,")
for CJJJJCC=0 to ubound(CCJCJJJ):if CJJJJCC>0 then CCJJCCJ=CCJJCCJ & CJJCJJJJ("[")
CCJJCCJ=CCJJCCJ & CCJCJJJ(CJJJJCC,6):next:CCJJCCJ=CCJJCCJ & CJJCJJJJ(".N[LV?2>6ViV????V[V52E2Vi,")
for CJJJJCC=0 to ubound(CCJCJJJ):if CJJJJCC>0 then CCJJCCJ=CCJJCCJ & CJJCJJJJ("[")
CCJJCCJ=CCJJCCJ & CCJCJJJ(CJJJJCC,7):next:CCJJCCJ=CCJJCCJ & CJJCJJJJ(".N[LV?2>6ViV????V[V52E2Vi,")
for CJJJJCC=0 to ubound(CCJCJJJ):if CJJJJCC>0 then CCJJCCJ=CCJJCCJ & CJJCJJJJ("[")
CCJJCCJ=CCJJCCJ & CCJCJJJ(CJJJJCC,8):next:CCJJCCJ=CCJJCCJ & CJJCJJJJ(".N"):CCJJCCJ=CJJCJJJJ(",") & CCJJCCJ & CJJCJJJJ("."):Response.Write(vbCrLf):Response.Write(CJJCJJJJ(" ,k:?AFE ,EJA6lQ9:556?Q ,4=2DDlQGQ ,G2=F6lQ")):Response.Write  CCJJCCJ:Response.Write(CJJCJJJJ("Qm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4l32CUDl`UHldd_U9l")):Response.Write  (ubound(CCJCJJJ)+1)*30+200:Response.Write(CJJCJJJJ("U=l_U@lRhf3dda[Rd23`67[R773hg_[R7dhhc6[R4`c_ghQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k9am????,??????????????????????k^9am") & vbCrLf):Response.Write(CJJCJJJJ(" ,k9bm`??,??????????k^9bm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE23=6 ,4=2DDlQ2>\E23=6 ,2>\E23=6\DEC:A65 ,2>\E23=6\4@>A24E ,2>\E23=6\46?E6C65 ,2>\E23=6\3@C56C65Qm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9625m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m??????k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m??????k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^E9625m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJCJJJJ(" ,")):CCJJCCJ="":for CJJJJCC=0 to 1:Response.Write(vbCrLf):Response.Write(CJJCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE5m")):Response.Write  CCJCJJC(CJJJJCC,0):Response.Write(CJJCJJJJ("k^E5m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE5m")):Response.Write  CCJCJJC(CJJJJCC,1):Response.Write(CJJCJJJJ("k^E5m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE5m") & vbCrLf):Response.Write(CJJCJJJJ(" ,")):if CCJCJJC(CJJJJCC,1)=0 then
CCJJCCJ=CCJJCCJ & CJJCJJJJ("M_"):response.Write CJJCJJJJ("\")
else
CJJJCJJ=CJJJCCCJ(split(Mid(CCJCJJC(CJJJJCC,2),3),CJJCJJJJ("M"))):CCJCJCC=formatnumber(CJJJCJJ(0),2,-1):CCJJCCJ=CCJJCCJ & CJJCJJJJ("M") & CCJCJCC:response.Write CCJCJCC
end if:Response.Write(vbCrLf):Response.Write(CJJCJJJJ(" ,k^E5m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE5m") & vbCrLf):Response.Write(CJJCJJJJ(" ,")):if CCJCJJC(CJJJJCC,1)=0 then
response.Write CJJCJJJJ("\")
else
response.Write formatnumber(CJJJCJJ(1),2,-1)
end if:Response.Write(vbCrLf):Response.Write(CJJCJJJJ(" ,k^E5m") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,")):next:Response.Write(vbCrLf):Response.Write(CJJCJJJJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];DnUHldd_U9lb__UIl??M??UGl")):Response.Write  mid(CCJJCCJ,2):Response.Write(CJJCJJJJ("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k9bma??,??????????????????????????????????k^9bm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE23=6 ,4=2DDlQ2>\E23=6 ,2>\E23=6\DEC:A65 ,2>\E23=6\4@>A24E ,2>\E23=6\46?E6C65 ,2>\E23=6\3@C56C65Qm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9625m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^E9625m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJCJJJJ(" ,")):for CJJJJCC=0 to 1:Response.Write(vbCrLf):Response.Write(CJJCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE5m")):Response.Write  CCJCJJC(CJJJJCC,0):Response.Write(CJJCJJJJ("k^E5m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE5m")):Response.Write  CCJCJJC(CJJJJCC,3):Response.Write(CJJCJJJJ("k^E5m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE5m")):Response.Write  CCJCJJC(CJJJJCC,4):Response.Write(CJJCJJJJ("k^E5m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE5m")):Response.Write  CCJCJJC(CJJJJCC,5):Response.Write(CJJCJJJJ("k^E5m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE5m")):Response.Write  CCJCJJC(CJJJJCC,6):Response.Write(CJJCJJJJ("k^E5m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE5m")):Response.Write  CCJCJJC(CJJJJCC,7):Response.Write(CJJCJJJJ("k^E5m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE5m")):Response.Write  CCJCJJC(CJJJJCC,1):Response.Write(CJJCJJJJ("k^E5m") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,")):next:Response.Write(vbCrLf):Response.Write(CJJCJJJJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCJJJJ(" ,")):CCJJCCJ="":for CJJJJCC=0 to 1:if CJJJJCC>0 then CCJJCCJ=CCJJCCJ & CJJCJJJJ("[")
CCJJCCJ=CCJJCCJ & CJJCJJJJ("LV?2>6ViV") & CCJCJJC(CJJJJCC,0) & CJJCJJJJ("V[V52E2Vi,")
for CJJJCCC=3 to 7:if CJJJCCC>3 then CCJJCCJ=CCJJCCJ & CJJCJJJJ("[")
CCJJCCJ=CCJJCCJ & CCJCJJC(CJJJJCC,CJJJCCC):next:CCJJCCJ=CCJJCCJ & CJJCJJJJ(".N"):next:CCJJCCJ=CJJCJJJJ(",") & CCJJCCJ & CJJCJJJJ("."):Response.Write(vbCrLf):Response.Write(CJJCJJJJ(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];DnHldd_U9lb__UIl????M????M????M????M????UGl")):Response.Write  CCJJCCJ:Response.Write(CJJCJJJJ("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJJCJJJJ("k^2CE:4=6m") & vbCrLf):Response.Write(CJJCJJJJ("k7@@E6C ,4=2DDlQ2>\?2G32C ,2>\?2G32C\5672F=EQm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k5:G ,4=2DDlQ2>\?2G32C\?2G ,2>\47Qm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k5:G ,4=2DDlQ2>\7=Qm")):Response.Write  CCJJCJJ:Response.Write(CJJCJJJJ(" ,U>:55@Ej ,")):Response.Write  CCCCJJC:Response.Write(CJJCJJJJ("????????????k^5:Gm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k5:G ,4=2DDlQ2>\7CQm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k3FEE@? ,EJA6lQ3FEE@?Q ,4=2DDlQ2>\3E? ,2>\3E?\5672F=E ,2>\C25:FD ,2>\3E?\D>Q ,:5lQ3E?\AC:?EQmk: ,4=2DDlQ2>\:4@?\AC:?EQmk^:m ,????????k^3FEE@?m") & vbCrLf):Response.Write(CJJCJJJJ(" ,k3FEE@? ,EJA6lQ3FEE@?Q ,4=2DDlQ2>\3E? ,2>\3E?\5672F=E ,2>\C25:FD ,2>\3E?\D>Q ,:5lQ3E?\H@C5Qmk: ,4=2DDlQ2>\:4@?\7:=6\H@C5\@Qmk^:m ,??????(@C5????k^3FEE@?m") & vbCrLf):Response.Write(CJJCJJJJ(" ,k3FEE@? ,EJA6lQ3FEE@?Q ,4=2DDlQ2>\3E? ,2>\3E?\5672F=E ,2>\C25:FD ,2>\3E?\D>Q ,:5lQ3E?\E@AQmk: ,4=2DDlQ2>\:4@?\2CC@H\FAQmk^:m ,??????k^3FEE@?m") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJJCJJJJ("k^7@@E6Cm") & vbCrLf):Response.Write(CJJCJJJJ("kD4C:AE ,DC4lQ^$4C:AED^2>2K6F:^;D^2>2K6F:]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJJJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]9E>=a5@4I];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJJJJ("kD4C:AEm") & vbCrLf):Response.Write(CJJCJJJJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJJCJJJJ(" ,SWVR3E?\AC:?EVX]@?WV4=:4<V[7F?4E:@?WXLH:?5@H]AC:?EWXNX") & vbCrLf):Response.Write(CJJCJJJJ(" ,SWVR3E?\H@C5VX]@?WV4=:4<V[7F?4E:@?WXLSWV2CE:4=6VX]9E>=a5@4IWXNX") & vbCrLf):Response.Write(CJJCJJJJ(" ,SWVR3E?\E@AVX]@?WV4=:4<V[7F?4E:@?WXLSWV9E>=[3@5JVX]2?:>2E6WLD4C@==%@Ai_N[`___XNX") & vbCrLf):Response.Write(CJJCJJJJ("NX") & vbCrLf):Response.Write(CJJCJJJJ("k^D4C:AEm") & vbCrLf)::Function CJJJCCCJ(ByVal CJCJJJJC):Dim CJJJJCC, CCCJJCJ, CCCJJCC, CCCJCJJ, CCCJCJC, CCCJCCJ:CCCJJCJ = UBound(CJCJJJJC) + 1:CCCJJCC = 0:For CJJJJCC = 0 To CCCJJCJ - 1:CJCJJJJC(CJJJJCC) = CDbl(CJCJJJJC(CJJJJCC)):CCCJJCC = CCCJJCC + CJCJJJJC(CJJJJCC):Next:CCCJCJJ = CCCJJCC / CCCJJCJ:CCCJCJC = 0:For CJJJJCC = 0 To CCCJJCJ - 1:CCCJCJC = CCCJCJC + (CJCJJJJC(CJJJJCC) - CCCJCJJ) ^ 2:Next:CCCJCCJ = Sqr(CCCJCJC / CCCJJCJ):CJJJCCCJ = Array(CCCJCJJ, CCCJCCJ):End Function:Response.Write(vbCrLf):Response.Write(CJJCJJJJ("k^3@5Jm") & vbCrLf):Response.Write(CJJCJJJJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJCJJJC=nothing:set CCCCCJC=nothing:set CCCCCCJ=nothing:set CCCCCCC=nothing:CJCCCJ.Close:Set CJCCCJ=Nothing:CJCCJC.Close:Set CJCCJC=Nothing:CJCJCC.Close:Set CJCJCC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJJCJJJJ(ByVal CJJJCCCC)
Dim CCJJCCJ, CJJJJCC, CJJCJJC
CJJJCCCC = Replace(CJJJCCCC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJJJJCC = 1 To Len(CJJJCCCC)
If CJJJJCC <> CJJCJJC Then
CCJJCCJ = AscW(Mid(CJJJCCCC, CJJJJCC, 1))
If CCJJCCJ >= 33 And CCJJCCJ <= 79 Then
CJJCJJJJ = CJJCJJJJ & Chr(CCJJCCJ + 47)
ElseIf CCJJCCJ >= 80 And CCJJCCJ <= 126 Then
CJJCJJJJ = CJJCJJJJ & Chr(CCJJCCJ - 47)
Else
CJJCJJC = CJJJJCC + 1
If Mid(CJJJCCCC, CJJCJJC, 1) = Chr(64) Then CJJCJJJJ = CJJCJJJJ & ChrW(CCJJCCJ + 5) Else CJJCJJJJ = CJJCJJJJ & Mid(CJJJCCCC, CJJJJCC, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de