Edit D:\xinhaisoft\crisis_new\lb\report_dept\xljk2020

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

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

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de