Edit D:\xinhaisoft\crisis_new\lb\report

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

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

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de