Edit D:\xinhaisoft\crisis_new\school\admin\GroupGuidance\member.asp

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJCCJC, CJCCCJ,CJCCCC, CCJJJJ, CCJJJC:Set CJCCJC = server.CreateObject(CJJJCCJJ("ps~sq]r@??64E:@?")):CJCCJC.open Application(CJJJCCJJ("r@??64E:@?$EC:?8")):Set CJCCCJ=CJCCJC::Dim CCJJCJ,CCJJCC,CCJCJJ,CCJCJC,CCJCCJ,CCJCCC,CCCJJJ,CCCJJC,CCCJCJ:Dim CCCJCC,CCCCJJ,CCCCJC,CCCCCJ,CCCCCC,CJJJJJJ:Dim CJJJJJC,CJJJJCJ,CJJJJCC:Dim CJJJCJJ:CJJJCJJ=Trim(Request.Cookies(CJJJCCJJ("!$*|t|qt#"))):if CJJJCJJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CCJJCJ>0 then
CCJJJC=CJJJCCJJ("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") & CCJJCC & CJJJCCJJ("V ,2?5 ,:5l") & CCJJCJ
set CJCCCC=CJCCJC.execute(CCJJJC):If CJCCCC.EOF Then
Call ClearMemberCookie
Else
CCJCJJ=CJCCCC(2) & "":CCJCJC=CJCCCC(3):CCJCCJ=CJCCCC(5):CCJCCC=CJCCCC(6):CCCJJJ=CJCCCC(9):CCCJJC=CJCCCC(15):CCCJCC=CJCCCC(0):CJJJJCJ=CJCCCC(1):CJJJJJC=CJCCCC(11) & "":CCCCJJ=CJCCCC(10) & "":CCCJCJ=CJCCCC(12):CCCCJC=CJCCCC(14):CCCCCJ=CJCCCC(13):CCCCCC=CJCCCC(7) & "":CJJJJJJ=CJCCCC(4):CJJJJCC=CJCCCC(8):if isnull(CCCJJC) then CCCJJC=0
if isnull(CCCJJJ) or CCCJJJ=0 then CCCJJJ=CCJCJC
if isnull(CJJJJJJ) then CJJJJJJ=0
if isnull(CCJCCJ) then CCJCCJ=0
if instr(CJJJCCJJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CCJJCC)>0 then Call RedirectMessage(CJJJCCJJ("????????,????????????????????????????????,"))
Call SetMemberCookie(CCJJCJ,CCJJCC)
End IF
end if:::Sub CheckLogined():if CCJJCJ=0 then
Call ClearMemberCookie:Call ConnClose:dim CJJJCJC:CJJJCJC=trim(request.QueryString(CJJJCCJJ("D49@@="))):if isnumeric(CJJJCJC) then
response.Redirect CJJJCCJJ("^>^G2?E^R^D49@@=^") & CJJJCJC & CJJJCCJJ("^DEF56?E^=@8:?nC65:C64El") & url
else
Call RedirectMessage(CJJJCCJJ("??????????????,????????????,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CJJJCCJJ("!$*|t|qt#"))="":CCJJCJ=0:CCJCCC=0:CCJJCC=Empty:CCJCCJ=0:CCCJJC=0:CCCJJJ=0:CCJCJC=0:CCCJCC=False:CJJJJCJ=False:CJJJJCC=Empty:End Sub:Sub CheckMemberCookie():dim CJJJCCJ,CJJJCCC,CJJCJJJ,CJJCJJC,CJJCJCJ:CJJJCCJ=split(CJJJCJJ,CJJJCCJJ("]")):if ubound(CJJJCCJ)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJJJCCJ(0)) or len(CJJJCCJ(1))<>32 or len(CJJJCCJ(2))<>32 then
Call ClearMemberCookie
else
CJJJCCC=CJJJCCJ(1):for CJJCJJJ=1 to len(CJJJCCC):CJJCJJC=mid(CJJJCCC,CJJCJJJ,1):if isnumeric(CJJCJJC) then CJJCJCJ=CJJCJCJ & CJJCJJC
if len(CJJCJCJ)=7 then exit for
next:CJJJCCC=CJJJCCJ(2):if CJJCJCJ<>mid(CJJJCCC,6,7) then
Call ClearMemberCookie
else
CJJCJJC=mid(CJJJCCC,18,10)/2:if CJJCJJC<DateDiff(CJJJCCJJ("D"), CJJJCCJJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CCJJCJ=Clng(CJJJCCJ(0)):CCJJCC=CJJJCCJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCJCCCJ,CJJJCCJC):dim CJJCJJJ,CJJCJJC,CJJCJCJ:for CJJCJJJ=1 to len(CJJJCCJC):CJJCJJC=mid(CJJJCCJC,CJJCJJJ,1):if isnumeric(CJJCJJC) then CJJCJCJ=CJJCJCJ & CJJCJJC
if len(CJJCJCJ)=7 then exit for
next:CJJCJCJ=CCJCCCJ & CJJJCCJJ("]") & CJJJCCJC & CJJJCCJJ("]") & Fix(10000*(Rnd+1)) & CJJCJCJ & Fix(10000*(Rnd+1)) & DateDiff(CJJJCCJJ("D"), CJJJCCJJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJJJCCJJ("!$*|t|qt#"))=CJJCJCJ:End Sub:::Function IIf(CJJJCCCJ, CJJJCCCC, CJJCJJJJ):if isnull(CJJJCCCJ) or isempty(CJJJCCCJ) then
IIf = CJJCJJJJ
elseif CJJJCCCJ Then
IIf = CJJJCCCC
Else
IIf = CJJCJJJJ
end if:End Function:Const CCCJJJC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::Sub Debug(str):response.Charset=CJJJCCJJ("FE7\g"):dim CJJCJJJ,CJJCJJC,CJJCJCC:if isarray(str) then
on error resume next:CJJCJJJ=ubound(str,2):CJJCJCC=err.number:err.clear:on error goto 0:if CJJCJCC<>0 then
for CJJCJJJ=0 to ubound(str):if CJJCJJJ>0 then response.Write CJJJCCJJ("k3C ,^m")
response.Write CJJCJJJ & CJJJCCJJ("i ,") & str(CJJCJJJ):next
else
response.Write CJJJCCJJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CJJCJJJ=0 to ubound(str,2):response.Write CJJJCCJJ("kE9 ,2=:8?lV=67EVm") & CJJCJJJ & CJJJCCJJ("k^E9m")
next:response.Write CJJJCCJJ("k^ECm"):for CJJCJJJ=0 to ubound(str):response.Write CJJJCCJJ("kECmkE9m") & CJJCJJJ & CJJJCCJJ("k^E9m"):for CJJCJJC=0 to ubound(str,2):response.Write CJJJCCJJ("kE5m") & str(CJJCJJJ,CJJCJJC) & CJJJCCJJ("k^E5m"):next:response.Write CJJJCCJJ("k^ECm"):next:response.Write CJJJCCJJ("k^E23=6m")
end if
elseif isnull(str) then
response.Write CJJJCCJJ(",}F==.")
else
Response.Write replace(str,vbcrlf,CJJJCCJJ("k3Cm"))
end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CJJCJJJC,CJJCJJCJ):dim CJJJCCJ:CJJJCCJ=CJJCJJJC & CJJJCCJJ("l") & CJJCJJCJ & CJJJCCJJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJJCCJJ("$6E\r@@<:6"),CJJJCCJ):End Sub:::::::Function CCCJCJJ(CJJCJCC):if isnull(CJJCJCC) or trim(CJJCJCC)="" or not isnumeric(CJJCJCC) then
CCCJCJJ=false
else
Dim CJJCCJJ:Set CJJCCJJ = New RegExp:CJJCCJJ.Pattern = CJJJCCJJ("/-5ZS"):CJJCCJJ.IgnoreCase = True:CCCJCJJ = CJJCCJJ.test(CJJCJCC):set CJJCCJJ=nothing
end if:End Function:Function CCCJCJC(CJJCJJCC):dim CJJCCJC,CJJCCCJ:CJJCCJC=CJJJCCJJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJJCJJCC & CJJJCCJJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJJCCCJ=CJCCJC.execute(CJJCCJC):CCCJCJC = CJJCCCJ(0):if isnull(CCCJCJC) then CCCJCJC=1
CJJCCCJ.close : set CJJCCCJ=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CJCCJCC=nothing:set CCCJCCJ=nothing:set CCCJCCC=nothing:set CCCCJJJ=nothing:CJJCCCJ.close : set CJJCCCJ=nothing:CCJJJJ.Close : Set CCJJJJ=Nothing:CJCCCC.Close : Set CJCCCC=Nothing:CCCCJJC.Close : Set CCCCJJC = Nothing:CJCCJC.Close : Set CJCCJC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJCJCJJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJJCCJJ("!$*0|6DD286"),server.URLEncode(CJJCJCJJ)):Response.Redirect CJJJCCJJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::Function CCCCJCJ(ByVal CCCCJCC,style):if not isdate(CCCCJCC) then
CCCCJCJ=CCCCJCC:exit function
end if:dim CJJCCCC,CJCJJJJ,CJCJJJC,CJCJJCJ:CCCCJCC=cdate(CCCCJCC):CJJCCCC=Year(CCCCJCC):CJCJJJJ=Month(CCCCJCC):CJCJJJC=Day(CCCCJCC):select case style:case 0:CCCCJCJ=CJJCCCC & CJJJCCJJ("\") & right(0 & CJCJJJJ,2) & CJJJCCJJ("\") & right(0 & CJCJJJC,2):case 1:CCCCJCJ=CJJCCCC & right(0 & CJCJJJJ,2) & right(0 & CJCJJJC,2):case 2:CCCCJCJ=right(CJJCCCC,2) & CJJJCCJJ("\") & right(0 & CJCJJJJ,2) & CJJJCCJJ("\") & right(0 & CJCJJJC,2):case 3:CCCCJCJ=CJJCCCC & CJJJCCJJ("\") & right(0 & CJCJJJJ,2):case 4:CCCCJCJ=right(0 & CJCJJJJ,2) & CJJJCCJJ("\") & right(0 & CJCJJJC,2):case 5:CCCCJCJ=right(0 & CJCJJJC,2):case 6:CCCCJCJ=CJJCCCC & CJJJCCJJ("??") & right(0 & CJCJJJJ,2) & CJJJCCJJ("??") & right(0 & CJCJJJC,2) & CJJJCCJJ("??"):case else
CCCCJCJ=CCCCJCC:end select:End Function:Function CCCCCJJ(Table):Dim CJJCCCJ, CJCJJCC, str(), CJJCJJJ,CJJCJJC,CJCJCJC:CJCJCJC=UCase(Table):If Not IsArray(Application(CJJJCCJJ("!$*0") & CJCJCJC)) Then
CCJJJC=CJJJCCJJ("D6=64E ,:5[?2>6[>6>36CEJA6 ,7C@> ,,") & Table & CJJJCCJJ(". ,@C56C ,3J ,D@CE[:5"):set CJJCCCJ=server.createobject(CJJJCCJJ("25@53]C64@C5D6E")):CJJCCCJ.open CCJJJC,CJCCJC,1:CJCJJCC = CJJCCCJ.RecordCount:ReDim str(CJCJJCC, 2):If CJCJJCC > 0 Then
For CJJCJJJ = 1 To CJCJJCC:for CJJCJJC=0 to 2:str(CJJCJJJ, CJJCJJC) = CJJCCCJ(CJJCJJC):next:CJJCCCJ.MoveNext:Next
End If:CJJCCCJ.Close: Set CJJCCCJ = Nothing:Application(CJJJCCJJ("!$*0") & CJCJCJC) = str
End If:CCCCCJJ = Application(CJJJCCJJ("!$*0") & CJCJCJC):End Function:Sub ShowListSelect(CJJCJJCC,CJJCJCJC,CJJCJCCJ):Dim str, CJJCJJJ, CJCJCCJ:CJCJCCJ = CCCCCJJ(CJJCJJCC):For CJJCJJJ = 1 To UBound(CJCJCCJ):if Cstr(CJCJCCJ(CJJCJJJ,2))=Cstr(CJJCJCJC) then
str = str & CJJJCCJJ("k@AE:@? ,G2=F6lV") & CJCJCCJ(CJJCJJJ, 0) & CJJJCCJJ("V")
If CStr(CJCJCCJ(CJJCJJJ, 0)) = CJJCJCCJ & "" Then str = str & CJJJCCJJ(" ,D6=64E65lVD6=64E65V")
str = str & CJJJCCJJ("m") & CJCJCCJ(CJJCJJJ, 1) & CJJJCCJJ("k^@AE:@?m")
end if:Next:Response.Write str:End Sub:Function CCCCCJC(CJJCJJCC,CJJCJCJC,CCJCCCJ):Dim str, CJJCJJJ, CJCJCCJ:CJCJCCJ = CCCCCJJ(CJJCJJCC):For CJJCJJJ = 1 To UBound(CJCJCCJ):if Cstr(CJCJCCJ(CJJCJJJ,2))=Cstr(CJJCJCJC) and CStr(CJCJCCJ(CJJCJJJ, 0)) = CCJCCCJ & "" then
str=CJCJCCJ(CJJCJJJ,1):exit for
end if:Next:if str="" then str=CJJJCCJJ(",????.")
CCCCCJC=str:End Function::::Function CCCCCCJ(CJCCCC):dim CJJCJJJ,CJCJCCC,CJCCJJJ,CJCCJJC,CJCCJCJ:CJCCJCJ=CJCCCC.fields.count-1:do while not CJCCCC.eof:CJCJCCC=CJCJCCC & CJJJCCJJ("[L"):for CJJCJJJ=0 to CJCCJCJ:CJCCJJJ=CJCCCC(CJJCJJJ).value:if CJJCJJJ>0 then CJCJCCC=CJCJCCC & CJJJCCJJ("[")
CJCJCCC=CJCJCCC & CJJJCCJJ("Q") & CJCCCC(CJJCJJJ).name & CJJJCCJJ("Qi"):if isnull(CJCCJJJ) or CJCCJJJ="" then
CJCJCCC=CJCJCCC & CJJJCCJJ("QQ")
elseif CJCCCC(CJJCJJJ).type=11 then
CJCJCCC=CJCJCCC & IIf(CJCCJJJ,1,0)
elseif isnumeric(CJCCJJJ) and instr(CJCCJJJ,CJJJCCJJ("["))=0 and len(CJCCJJJ)<7 then
CJCJCCC=CJCJCCC & CJCCJJJ
elseif lcase(CJCCJJJ)=CJJJCCJJ("ECF6") then
CJCJCCC=CJCJCCC & CJJJCCJJ("ECF6")
elseif lcase(CJCCJJJ)=CJJJCCJJ("72=D6") then
CJCJCCC=CJCJCCC & CJJJCCJJ("72=D6")
elseif isdate(CJCCJJJ) then
CJCJCCC=CJCJCCC & CJJJCCJJ("Q") & replace(CJCCJJJ,CJJJCCJJ("^"),CJJJCCJJ("\")) & CJJJCCJJ("Q")
else
CJCCJJC=CJCCJJJ:CJCCJJC=replace(CJCCJJC,vbcrlf,CJJJCCJJ("-?")):CJCCJJC=replace(CJCCJJC,chr(9),""):CJCCJJC=replace(CJCCJJC,CJJJCCJJ("Q"),CJJJCCJJ("-Q")):CJCJCCC=CJCJCCC & CJJJCCJJ("Q") & CJCCJJC & CJJJCCJJ("Q")
end if:next:CJCJCCC=CJCJCCC & CJJJCCJJ("N"):CJCCCC.movenext:if CJCCCC.eof then exit do
loop:if CJCJCCC<>"" then CJCJCCC=mid(CJCJCCC,2)
CCCCCCJ=CJJJCCJJ(",") & CJCJCCC & CJJJCCJJ("."):End Function:Function CCCCCCC(CCJJJC):dim CJJCCCJ:set CJJCCCJ=CJCCJC.execute(CCJJJC):CCCCCCC=CCCCCCJ(CJJCCCJ):CJJCCCJ.close:set CJJCCCJ=nothing:End Function::::::::::::Sub ClearCache(CJJCJCCC):Application.Contents.Remove CJJCJCCC
End Sub::Class jTree:Private CCJJJC, CJCCJCC, CJCCCJJ, CJCCCJC,CJCCCCJ,CJCCCCC,CCJJJJJ,CCJJJJC:Private Sub Class_Initialize():CJCCCJJ = 0:CJCCCJC = 0:CCJJJJC=10:End Sub:Public Property Let Table(value):if value="" then Call RedirectMessage(CJJJCCJJ("????????,;%C66????????????????????@??????????,"))
CJCCCCJ=value:CJCCCCC=CJJJCCJJ("!$*0") & UCase(CJCCCCJ):Call GetTreeArray:End Property:Public Property Get Table():Table=CJCCCCJ:End Property::Public Property Get Count():Count=CJCCCJC-CCJJJJC:End Property:Private Sub GetTreeArray():Dim CJJCJJJ, CJJCJJC, CCJJJCJ,RecordCount:CJCCJCC = Application(CJCCCCC):If Not IsArray(CJCCJCC) Then
CCJJJC = CJJJCCJJ("D6=64E ,4@F?EW:5X ,7C@> ,") & CJCCCCJ:if CCJJJJJ<>"" then CCJJJC=CCJJJC & CJJJCCJJ(" ,H96C6 ,") & CCJJJJJ
set CCJJJCJ=CJCCJC.execute(CCJJJC):RecordCount=CCJJJCJ(0):if RecordCount=0 then Call RedirectMessage(CJJJCCJJ("????W") & CJCCCCJ & CJJJCCJJ("^") & CCJJJJJ & CJJJCCJJ("X????????????"))
CJCCCJC=RecordCount+CCJJJJC:ReDim CJCCJCC(CJCCCJC, 4):CCJJJC = CJJJCCJJ("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCCCCJ & CJJJCCJJ(" ,H:E9 ,W?@=@4<X"):if CCJJJJJ<>"" then CCJJJC=CCJJJC & CJJJCCJJ(" ,H96C6 ,") & CCJJJJJ
CCJJJC=CCJJJC & CJJJCCJJ(" ,@C56C ,3J ,D@CE[:5"):set CCJJJCJ=CJCCJC.execute(CCJJJC):For CJJCJJJ = 1 To RecordCount:For CJJCJJC = 0 To 4:CJCCJCC(CJJCJJJ, CJJCJJC) = CCJJJCJ(CJJCJJC):if IsNull(CJCCJCC(CJJCJJJ,4)) then CJCCJCC(CJJCJJJ,4)=0
If CJCCJCC(CJJCJJJ,2)="" then CJCCJCC(CJJCJJJ,2)=CJJJCCJJ(",??.")
Next:CCJJJCJ.MoveNext:Next:CCJJJCJ.Close: Set CCJJJCJ = Nothing:for CJJCJJJ=CJCCCJC-(CCJJJJC-1) to CJCCCJC:CJCCJCC(CJJCJJJ,0)=CJJCJJJ:next:Application.Lock():Application(CJCCCCC) = CJCCJCC:Application.UnLock()
else
CJCCCJC=Ubound(CJCCJCC)
End If:End Sub:::::Private Function CJJJJJCJ(CCJCCCJ):dim CJJCJJJ,CCJJCJJ:CJJJJJCJ=0:CCJJCJJ=CStr(CCJCCCJ):if CCJJCJJ<>"0" then
for CJJCJJJ=1 to CJCCCJC:If CStr(CJCCJCC(CJJCJJJ, 0))=CCJJCJJ Then
CJJJJJCJ = CJJCJJJ:Exit For
End If:Next
end if:End Function:Public Function CJJJJJCC(CCJCCCJ):if Cstr(CCJCCCJ)="0" then
CJJJJJCC=CJJJCCJJ("??")
else
Dim CJJCJJJ,CCJJJCJ:CJJCJJJ=CJJJJJCJ(CCJCCCJ):if CJJCJJJ>0 then
CJJJJJCC=CJCCJCC(CJJCJJJ,2):if CJJJJJCC="" then
set CCJJJCJ=CJCCJC.execute(CJJJCCJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCCCCJ & CJJJCCJJ(" ,H96C6 ,:5l") & CCJCCCJ):if CCJJJCJ.eof then Call RedirectMessage(CJJJCCJJ("xs??,") & CCJCCCJ & CJJJCCJJ("??,??????"))
CJJJJJCC=CCJJJCJ(1):Call UpdateCache(CCJCCCJ,CCJJJCJ(0),CJJJJJCC,CCJJJCJ(2),CCJJJCJ(3)):CCJJJCJ.Close: Set CCJJJCJ = Nothing
end if
else
set CCJJJCJ=CJCCJC.execute(CJJJCCJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCCCCJ & CJJJCCJJ(" ,H96C6 ,:5l") & CCJCCCJ):if CCJJJCJ.eof then Call RedirectMessage(CJJJCCJJ("xs??,") & CCJCCCJ & CJJJCCJJ("??,??????"))
CJJJJJCC=CCJJJCJ(1):Call UpdateCache(CCJCCCJ,CCJJJCJ(0),CJJJJJCC,CCJJJCJ(2),CCJJJCJ(3)):CCJJJCJ.Close: Set CCJJJCJ = Nothing
end if
end if:End Function:::Public Function CJJJJCJJ(CCJCCCJ):Dim CJJCJJJ,CCJJCJC:CJJCJJJ=CJJJJJCJ(CCJCCCJ):if CJJCJJJ=0 then
CCJJCJC=CJJJJCJC(CCJCCCJ)
else
CCJJCJC=CJCCJCC(CJJCJJJ,3):if isnull(CCJJCJC) or CCJJCJC="" then
CCJJCJC=CJJJJCJC(CCJCCCJ)
elseif Mid(CCJJCJC,instrrev(CCJJCJC,CJJJCCJJ("["))+1)<>CStr(CCJCCCJ) then
CCJJCJC=CJJJJCJC(CCJCCCJ)
elseif Left(CCJJCJC,1)=CJJJCCJJ("[") then
CCJJCJC=CJJJJCJC(CCJCCCJ)
end if
end if:CJJJJCJJ=CCJJCJC:End Function:Private Function CJJJJCJC(CCJCCCJ):dim CCJJCJJ:CCJJCJJ=CStr(CCJCCCJ):if CCJJCJJ="0" then
CJJJJCJC=""
else
dim CCJJJCJ:set CCJJJCJ=CJCCJC.execute(CJJJCCJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCCCCJ & CJJJCCJJ(" ,H96C6 ,:5l") & CCJCCCJ):if CCJJJCJ.eof then
Call UpdateCache(CCJCCCJ,"","","",""):Call RedirectMessage(CJJJCCJJ("??????,xs??,") & CCJCCCJ & CJJJCCJJ("??,????????,????????????????????,"))
else
if CCJJJCJ(0)=0 then
CJJJJCJC="0," & CCJCCCJ
else
CJJJJCJC=CJJJJCJJ(CCJJJCJ(0)) & CJJJCCJJ("[") & CCJCCCJ
end if:if CCJJJCJ(2)<>CJJJJCJC then
CJCCJC.execute CJJJCCJJ("FA52E6 ,") & CJCCCCJ & CJJJCCJJ(" ,D6E ,A2E9lV") & CJJJJCJC & CJJJCCJJ("V ,H96C6 ,:5l") & CCJCCCJ
else
CJJJJCJC=CCJJJCJ(2)
end if
end if:Call UpdateCache(CCJCCCJ,CCJJJCJ(0),CCJJJCJ(1),CJJJJCJC,CCJJJCJ(3)):CCJJJCJ.Close: Set CCJJJCJ = Nothing
end if:End Function::Public Function CJJJJCCJ(CCJCCCJ):CJJJJCCJ = Mid(CJJJJCJJ(CCJCCCJ), 3):End Function:Public Function CJJJJCCC(CCJCCCJ):Dim CJJCJJJ, CJJCJJC, CCJJCCJ,Str, CCJJCJC, CJCJJCC, CCJJCCC():CCJJCJC = CJJJJCCJ(CCJCCCJ):CCJJCJC = Split(CCJJCJC, CJJJCCJJ("[")):for CJJCJJJ=0 to Ubound(CCJJCJC):CCJJCCJ=CCJJCJC(CJJCJJJ):str=str & CJJJCCJJ("M") & CCJJCCJ & CJJJCCJJ("M") & CJJJJJCC(CCJJCCJ):next:if str<>"" then str=Mid(str,2)
CJJJJCCC=str:End Function::::::::Public Sub ShowTree_Select(CCJCCCJ,ByVal CJJCJCCJ):Dim Str, CJJCJJJ:CCJCCCJ=CLng(CCJCCCJ):if isnumeric(CJJCJCCJ) then CJJCJCCJ=CLng(CJJCJCCJ) else CJJCJCCJ=0
if CCJCCCJ>0 then str=CJJJCCJJ("k@AE:@? ,G2=F6lV") & CCJCCCJ & CJJJCCJJ("V ,52E2\A:5lV_Vm") & CJJJJJCC(CCJCCCJ) & CJJJCCJJ("k^@AE:@?m")
For CJJCJJJ = 1 To CJCCCJC:If CCJCCCJ=0 or (CCJCCCJ>0 and InStr(CJCCJCC(CJJCJJJ, 3), CJJJCCJJ("[") & CCJCCCJ & CJJJCCJJ("[")) > 0) Then
str=str & CJJJCCJJ("k@AE:@?"):if CJCCJCC(CJJCJJJ,0)=CJJCJCCJ then str=str & CJJJCCJJ(" ,D6=64E65")
str=str & CJJJCCJJ(" ,G2=F6lV") & CJCCJCC(CJJCJJJ,0) & CJJJCCJJ("V ,52E2\A:5lV") & CJCCJCC(CJJCJJJ,1) & CJJJCCJJ("Vm") & CJCCJCC(CJJCJJJ,2) & CJJJCCJJ("k^@AE:@?m") & vbcrlf
End If:Next:response.Write str:End Sub::::Public Function GetPositionStr_From(CCJCCCJ, CJJJCJJC):if isnull(CCJCCCJ) or isnull(CJJJCJJC) then
GetPositionStr_From=CJJJCCJJ(",????????."):exit function
end if:Dim Str, CJJCJJJ, CCJJCCC, CJCJJCC, CCJCJJJ:CJJJCJJC = CStr(CJJJCJJC):If CJJJCJJC = "0" or CJJJCJJC = CStr(CCJCCCJ) Then
Str = CJJJJJCC(CCJCCCJ)
Else
CCJJCCC = Split(CJJJJCCC(CCJCCCJ), CJJJCCJJ("M")):CJCJJCC = UBound(CCJJCCC):CCJCJJJ = False:For CJJCJJJ = 0 To CJCJJCC Step 2:If CCJJCCC(CJJCJJJ) = CJJJCJJC And Not CCJCJJJ Then CCJCJJJ = True
If CCJCJJJ Then
If Str <> "" Then Str = Str & CJJJCCJJ("??,")
Str = Str & CCJJCCC(CJJCJJJ + 1)
End If:Next
End If:str=Mid(str,instr(str,CJJJCCJJ("??,"))+1):GetPositionStr_From = Str:End Function:::::::Public Sub ClearCache():Application.Contents.Remove CJCCCCC
End Sub:Public Sub UpdateCache(CCJCCCJ,CCJJCCJ,name,CCJJCJC,CJJCCJCJ):dim CJJCJJJ,CJJCJJC:CCJCCCJ=CLng(CCJCCCJ):CJJCJJJ=CJJJJJCJ(CCJCCCJ):if CCJJCCJ="" and name="" and CCJJCJC="" and CJJCCJCJ="" then
if CJJCJJJ>0 then
for CJJCJJC=1 to 4:CJCCJCC(CJJCJJJ,CJJCJJC)=Null:next
end if
else
if CJJCJJJ=0 then
for CJJCJJC=1 to CJCCCJC:if CJCCJCC(CJJCJJC,1) & ""="" then
CJJCJJJ=CJJCJJC:exit for
end if:next
end if:if CJJCJJJ=0 then
Call ClearCache
else
CJCCJCC(CJJCJJJ,0)=CLng(CCJCCCJ):if CCJJCCJ<>"" then CJCCJCC(CJJCJJJ,1)=CLng(CCJJCCJ)
if name<>"" then CJCCJCC(CJJCJJJ,2)=name
if CCJJCJC<>"" then CJCCJCC(CJJCJJJ,3)=CCJJCJC
if CJJCCJCJ<>"" then CJCCJCC(CJJCJJJ,4)=CLng(CJJCCJCJ)
end if
end if:if CJJCJJJ>0 then
Application.Lock():Application(CJCCCCC) = CJCCJCC:Application.UnLock()
end if:End Sub:Private Sub Debug(CJJCJCJJ):Call ConnClose:Response.Write CJJCJCJJ:Response.End:End Sub:Private Function CCCJCJC():CCCJCJC=CJJJCJCJ+1:End Function:Private Function CJJJCJCJ():dim CJJCCCJ:set CJJCCCJ=CJCCJC.execute(CJJJCCJJ("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CJCCCCJ & CJJJCCJJ(" ,@C56C ,3J ,:5 ,56D4")):CJJJCJCJ=CJJCCCJ(0):CJJCCCJ.Close: Set CJJCCCJ = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Call CheckLogined:if not CCCJCC then Call RedirectMessage(CJJJCCJJ("????????????M????????,????????????????????????,"))
dim CJJJCJC,CCJCJJC(38):CJJJCJC=CCCJJJ:if not CCCJCJJ(CJJJCJC) or CJJJCJC=0 then
server.Transfer CJJJCCJJ("=@8:?]2DA")
end if:CCJJJC=CJJJCCJJ("D6=64E ,E@A ,` ,;:2@H6:[EJA6[4FDE@>8C@FA[D:5632C0@E96C[E6DEC6DF=EG:6H[>2I>6>36C[766[C6E6DE52J[6IA:C652E6[E:E=6[>6>36C0EJA60?2>6[4@AJC:89E[A:4EFC6[DEF56?E2AA62=[6>2:=0D>EA[6>2:=0=@8:??2>6[6>2:=0=@8:?A2DD[6>2:=07C@>[D2?5E23=6[4C:D:D[JJ52E6[6IA6CE[72>:=J[4C:D:D=3[4C:D:D@=5[vC@FAvF:52?46[q:@u665324<[<6JDEC[=@8@[K:46[:D?6H ,7C@> ,G0D49@@= ,H96C6 ,:5l") & CJJJCJC:set CJCCCC=CJCCJC.execute(CCJJJC):if CJCCCC.eof then Call RedirectMessage(CJJJCCJJ("??????????M????????,??????????????W") & CJJJCJC & CJJJCCJJ("X??????????????????,??????????????,"))
CCJCJJC(0)=CJCCCC(0) & "":CCJCJJC(1)=CJCCCC(1):CCJCJJC(3)=CJCCCC(2) & "":CCJCJJC(4)=CJCCCC(3) & "":CCJCJJC(5)=CJCCCC(4):CCJCJJC(6)=CJCCCC(5):CCJCJJC(7)=CJCCCC(6):CCJCJJC(8)=CJCCCC(7):CCJCJJC(9)=CJCCCC(8):CCJCJJC(10)=CJCCCC(9) & "":CCJCJJC(11)=CJCCCC(11) & "":CCJCJJC(12)=CJCCCC(12) & "":CCJCJJC(14)=CJCCCC(14) & "":CCJCJJC(15)=CJCCCC(15) & "":CCJCJJC(16)=CJCCCC(16) & "":CCJCJJC(17)=CJCCCC(17) & "":CCJCJJC(18)=CJCCCC(18):CCJCJJC(19)=IIf(CJCCCC(19),True,False):CCJCJJC(20)=CJCCCC(20):CCJCJJC(25)=CJCCCC(21):CCJCJJC(27)=CJCCCC(22):CCJCJJC(28)=CJCCCC(23):CCJCJJC(29)=IIf(CJCCCC(24),False,True):CCJCJJC(30)=CJCCCC(25):CCJCJJC(31)=CJCCCC(26):CCJCJJC(32)=CJCCCC(27):CCJCJJC(33)=CJCCCC(28):CCJCJJC(34)=CJCCCC(29):CCJCJJC(35)=IIf(CJCCCC(30),True,False):CCJCJJC(36)=121:CCJCJJC(37)=111:CCJCJJC(38)=160:if isNull(CCJCJJC(7)) then CCJCJJC(7)=0
if not isdate(CCJCJJC(9)) then CCJCJJC(9)=Date+2 else CCJCJJC(9)=cdate(CCJCJJC(9))
if CCJCJJC(9)<Date then Call RedirectMessage(CJJJCCJJ("??????????M????????,????????????????W") & CCJCJJC(9) & CJJJCCJJ("X??????,"))
if CCJCJJC(10)="" then CCJCJJC(10)=CJCCCC(10)
if CCJCJJC(11)="" then CCJCJJC(11)=CJJJCCJJ("??????????,U4@AJj") & year(date)-1 & CJJJCCJJ("\") & year(date)+1 & CJJJCCJJ(" ,????????????????????????????????") & vbcrlf & CJJJCCJJ("??????????,_`_\eahge_``^`a") & vbcrlf & CJJJCCJJ("??????????,??????????????????,??????@??????????a????ac_`??W`___gdX") & vbcrlf & CJJJCCJJ("??????????,k2 ,9C67lV9EEADi^^HHH]I:?92:D@7E]4@>V ,E2C86ElV03=2?<VmHHH]I:?92:D@7E]4@>k^2m")
if not CCCJCJJ(CCJCJJC(20)) then CCJCJJC(20)=7
select case CCJCJJC(1):case 1,2,16:CCJCJJC(36)=159:case 4,5,6,10,11:CCJCJJC(36)=190:CCJCJJC(37)=178:CCJCJJC(38)=191:case 7,13:CCJCJJC(36)=164:CCJCJJC(37)=178:CCJCJJC(38)=179:end select:Function CCCCJJJ(CJJCCCJJ):dim CCJJCCC(7,1),CJJCJJJ,CCJCJCJ,CCJCJCC:CCJCJCJ=Array(CJJJCCJJ("$49@@="),CJJJCCJJ("$EF56?E"),CJJJCCJJ("s6AE"),CJJJCCJJ("vC256"),CJJJCCJJ("r=2DD>2E6"),CJJJCCJJ("}F>36C"),CJJJCCJJ("%62496C"),CJJJCCJJ("!2C6?E")):select case CCJCJJC(1):case 1,2 : CCJCJCC=Array(CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????")):case 3,16 : CCJCJCC=Array(CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????")):case 4 : CCJCJCC=Array(CJJJCCJJ("????"),CJJJCCJJ("??????@"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????")):case 5 : CCJCJCC=Array(CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????")):case 6 : CCJCJCC=Array(CJJJCCJJ("????"),CJJJCCJJ("??????@"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("??????"),CJJJCCJJ("????")):case 7 : CCJCJCC=Array(CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("??????"),CJJJCCJJ("????")):case 8 : CCJCJCC=Array(CJJJCCJJ("????"),CJJJCCJJ("??????@"),CJJJCCJJ("????"),CJJJCCJJ("????????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("??????"),CJJJCCJJ("????")):case 9 : CCJCJCC=Array(CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("??????"),CJJJCCJJ("????")):case 10 : CCJCJCC=Array(CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("??????"),CJJJCCJJ("????")):case 11 : CCJCJCC=Array(CJJJCCJJ("????"),CJJJCCJJ("??????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("??????"),CJJJCCJJ("????")):case 12 : CCJCJCC=Array(CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("??????"),CJJJCCJJ("????")):case 13 : CCJCJCC=Array(CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????")):case 14 : CCJCJCC=Array(CJJJCCJJ("??????"),CJJJCCJJ("??@??"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("??????"),CJJJCCJJ("????")):case 15 : CCJCJCC=Array(CJJJCCJJ("????"),CJJJCCJJ("????????"),CJJJCCJJ("????"),CJJJCCJJ("????????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("??????"),CJJJCCJJ("????")):case else : CCJCJCC=CCJCJCJ
end select:for CJJCJJJ=0 to Ubound(CCJJCCC):CCJJCCC(CJJCJJJ,0)=CCJCJCJ(CJJCJJJ):CCJJCCC(CJJCJJJ,1)=CCJCJCC(CJJCJJJ):next:for CJJCJJJ=0 to Ubound(CCJJCCC):if CCJJCCC(CJJCJJJ,0)=CJJCCCJJ then
CCCCJJJ=CCJJCCC(CJJCJJJ,1):exit for
end if:next:End Function:::if not CCJCJJC(30) then Call RedirectMessage(CJJJCCJJ("????????M????????,??????????????????????,"))
Const CCCJJCJ="<span style='color:#070;'>??</span>"
response.Charset="utf-8":dim CCJCCJJ,CCJCCJC,CJJCJJJ,CCJCCCJ:CCJCCJJ=Request(CJJJCCJJ("24E")):CCJCCJC=Request(CJJJCCJJ("4@FCD6:5")):CCJCCCJ=request(CJJJCCJJ(":5")):if not CCCJCJJ(CCJCCJC) then Call RedirectMessage(CJJJCCJJ("????????M??????????,"))
set CJCCCC=CJCCJC.execute(CJJJCCJJ("D6=64E ,E@A ,` ,Y ,7C@> ,vC@FAvF:52?46 ,H96C6 ,:5l") & CCJCCJC & CJJJCCJJ(" ,2?5 ,DE2EFDla ,2?5 ,>6>36CEJA6l") & CJJJCJC):if CJCCCC.eof then Call RedirectMessage(CJJJCCJJ("????????,????????????????@????,"))
dim CJCCJCC:set CJCCJCC=new jtree:CJCCJCC.table=CJJJCCJJ(">6>36C0EJA6"):if CCJCCJJ=CJJJCCJJ("C64CF:E") then
CCJJJC=CJJJCCJJ("FA52E6 ,vC@FAvF:52?46 ,D6E") & CJJJCCJJ(" ,C64CF:E0DE2CE52E6lV") & request.form(CJJJCCJJ("C64CF:E0DE2CE52E6")) & CJJJCCJJ("V") & CJJJCCJJ("[C64CF:E06?552E6lV") & request.form(CJJJCCJJ("C64CF:E06?552E6")) & CJJJCCJJ("V") & CJJJCCJJ("[C64CF:E0H2Jl") & request.form(CJJJCCJJ("C64CF:E0H2J")) & CJJJCCJJ("[C64CF:E056AEl") & cint(request.form(CJJJCCJJ("56AE"))) & CJJJCCJJ("[C64CF:E08C256l") & cint(request.form(CJJJCCJJ("8C256"))) & CJJJCCJJ("[C64CF:E08C@FAl") & cint(request.form(CJJJCCJJ("8C@FA"))) & CJJJCCJJ("[C64CF:E0>2Il") & request.form(CJJJCCJJ("C64CF:E0>2I")) & CJJJCCJJ(" ,H96C6 ,:5l") & CCJCCJC
CJCCJC.execute CCJJJC:response.end()
elseif CCJCCJJ=CJJJCCJJ("255") then
dim CCJCCCC:CCJCCCC=request.form(CJJJCCJJ(":5=:DE")):if CCJCCCC<>"" then
CCJCCCC=split(CCJCCCC,CJJJCCJJ("[")):CCJJJC="":for CJJCJJJ=0 to ubound(CCJCCCC):CCJJJC=CCJJJC & CJJJCCJJ(":?D6CE ,:?E@ ,vC@FAvF:52?460|6>36CW4@FCD6:5[>6>36C[52E6E:>6[7@4FD[DE2EFD[7665324<0=:<6X ,G2=F6DW") & CCJCCJC & CJJJCCJJ("[") & CCJCCCC(CJJCJJJ) & CJJJCCJJ("[86E52E6WX[_[`[_Xj"):next:CJCCJC.execute CCJJJC
end if:response.end
elseif CCJCCJJ=CJJJCCJJ("86E") then
CCJJJC=CJJJCCJJ("D6=64E ,Y ,7C@> ,G0vC@FAvF:52?460|6>36C ,H96C6 ,4@FCD6:5l") & CCJCCJC & CJJJCCJJ(" ,@C56C ,3J ,DE2EFD[52E6E:>6 ,56D4"):response.write CCCCCCC(CCJJJC):response.end
elseif CCJCCJJ=CJJJCCJJ("56AEDEC") then
response.write CJCCJCC.GetPositionStr_From(request.querystring(CJJJCCJJ(">E")),CJJJCJC):response.end
elseif CCJCCJJ=CJJJCCJJ("56=") then
CCJJJC=CJJJCCJJ("56=6E6 ,7C@> ,vC@FAvF:52?460|6>36C ,H96C6 ,:5l") & CCJCCCJ & CJJJCCJJ(" ,2?5 ,4@FCD6:5l") & CCJCCJC:CJCCJC.execute CCJJJC:response.end
elseif CCJCCJJ=CJJJCCJJ("C67FD6") then
CCJJJC=CJJJCCJJ("FA52E6 ,vC@FAvF:52?460|6>36C ,D6E ,DE2EFDla ,H96C6 ,:5l") & CCJCCCJ & CJJJCCJJ(" ,2?5 ,4@FCD6:5l") & CCJCCJC:CJCCJC.execute CCJJJC:response.end
elseif CCJCCJJ=CJJJCCJJ("2446AE") then
CCJJJC=CJJJCCJJ("FA52E6 ,vC@FAvF:52?460|6>36C ,D6E ,DE2EFDl` ,H96C6 ,:5l") & CCJCCCJ & CJJJCCJJ(" ,2?5 ,4@FCD6:5l") & CCJCCJC:CJCCJC.execute CCJJJC:response.end
end if:Response.Write(vbCrLf):Response.Write(CJJJCCJJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJJJCCJJ("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJJJCCJJ("k9625m") & vbCrLf):Response.Write(CJJJCCJJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJJJCCJJ("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJJJCCJJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJJJCCJJ("kE:E=6m????????k^E:E=6m") & vbCrLf):Response.Write(CJJJCCJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^49@D6?^49@D6?]>:?]4DDQm") & vbCrLf):Response.Write(CJJJCCJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ]]^DEJ=6]4DDQm") & vbCrLf):Response.Write(CJJJCCJJ("kDEJ=6m") & vbCrLf):Response.Write(CJJJCCJJ("E6>A=2E6[ ,5:G]E6>A=2E6[ ,E6IE2C62]E6>A=2E6 ,L ,5:DA=2Ji ,?@?6j ,N") & vbCrLf):Response.Write(CJJJCCJJ("E23=6 ,=236= ,L ,>2C8:?\=67Ei ,a6>j ,N") & vbCrLf):Response.Write(CJJJCCJJ(":7C2>6 ,L ,96:89Ei ,_j ,N") & vbCrLf):Response.Write(CJJJCCJJ("k^DEJ=6m") & vbCrLf):Response.Write(CJJJCCJJ("k^9625m") & vbCrLf):Response.Write(CJJJCCJJ("k3@5Jm") & vbCrLf):Response.Write(CJJJCCJJ("kE23=6 ,4=2DDlQE30E:E=6Qm") & vbCrLf):Response.Write(CJJJCCJJ(" ,kECm") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE9m????????k^E9m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE5 ,4=2DDlQ=236=Qm??????,k^E5m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE5m")):Response.Write  CJCCCC(CJJJCCJJ("?2>6")):Response.Write(CJJJCCJJ("k^E5m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE5 ,4=2DDlQ=236=Qm??????,k^E5m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE5m")):Response.Write  CJCCCC(CJJJCCJJ("A=246")):Response.Write(CJJJCCJJ("k^E5m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE5 ,4=2DDlQ=236=Qm??????????,k^E5m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE5m")):Response.Write  CJCCCC(CJJJCCJJ(">6>36C4@F?E")):Response.Write(CJJJCCJJ("k^E5m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE5 ,4=2DDlQ=236=Qm??@????,????,k^E5m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE5m")):Response.Write  CJCCCC(CJJJCCJJ("2FE9@C")):Response.Write(CJJJCCJJ("k^E5m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE5 ,4=2DDlQ24EQmk:?AFE ,EJA6lQ3FEE@?Q ,G2=F6lQ?? ,??Qmk^E5m") & vbCrLf):Response.Write(CJJJCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCJJ("k^E23=6m") & vbCrLf):Response.Write(CJJJCCJJ("k7@C>m") & vbCrLf):Response.Write(CJJJCCJJ(" ,k:?AFE ,EJA6lQ9:556?Q ,?2>6lQ4@FCD6:5Q ,:5lQ4@FCD6:5Q ,G2=F6lQ")):Response.Write  CCJCCJC:Response.Write(CJJJCCJJ("Qm") & vbCrLf):Response.Write(CJJJCCJJ(" ,k7:6=5D6Em") & vbCrLf):Response.Write(CJJJCCJJ(" ,k=686?5m????????????k^=686?5m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE23=6m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kECm") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE5m ,??, ,??????????????,k^E5m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE5mk:?AFE ,EJA6lQ52E6Q ,?2>6lQC64CF:E0DE2CE52E6Q ,G2=F6lQ")):Response.Write  CCCCJCJ(CJCCCC(CJJJCCJJ("C64CF:E0DE2CE52E6")),0):Response.Write(CJJJCCJJ("Q ,C6BF:C65m") & vbCrLf):Response.Write(CJJJCCJJ(" ,O") & vbCrLf):Response.Write(CJJJCCJJ(" ,k:?AFE ,EJA6lQ52E6Q ,?2>6lQC64CF:E06?552E6Q ,G2=F6lQ")):Response.Write  CCCCJCJ(CJCCCC(CJJJCCJJ("C64CF:E06?552E6")),0):Response.Write(CJJJCCJJ("Q ,C6BF:C65mk^E5m") & vbCrLf):Response.Write(CJJJCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCJJ(" ,kECm") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE5 ,4@=DA2?lQaQm ,??, ,??????????,k^E5m") & vbCrLf):Response.Write(CJJJCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCJJ(" ,kECm") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE5mk=236=m") & vbCrLf):Response.Write(CJJJCCJJ(" ,k:?AFE ,EJA6lQC25:@Q ,?2>6lQC64CF:E0H2JQ ,G2=F6lQ_Q ,")):Response.Write  IIf(CJCCCC(CJJJCCJJ("C64CF:E0H2J"))=0,CJJJCCJJ("4964<65"),""):Response.Write(CJJJCCJJ(" ,C6BF:C65m") & vbCrLf):Response.Write(CJJJCCJJ(" ,????k^=236=mk^E5m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE5mkD6=64E ,?2>6lQ56AEQm") & vbCrLf):Response.Write(CJJJCCJJ(" ,")):Call CJCCJCC.ShowTree_Select(CCJCJC,CJCCCC(CJJJCCJJ("C64CF:E056AE"))):Response.Write(vbCrLf):Response.Write(CJJJCCJJ(" ,k^D6=64Em") & vbCrLf):Response.Write(CJJJCCJJ(" ,")):If CCJCJJC(1)>=3 Then
Response.Write(vbCrLf):Response.Write(CJJJCCJJ(" ,kD6=64E ,?2>6lQ8C256Qm") & vbCrLf):Response.Write(CJJJCCJJ(" ,")):if CCCJJC=0 then
Call ShowListSelect(CJJJCCJJ(">6>36C08C256"),CJJJCJC,CJCCCC(CJJJCCJJ("C64CF:E08C256")))
else
response.Write CJJJCCJJ("k@AE:@? ,G2=F6lV") & CCCJJC & CJJJCCJJ("Vm") & CCCCCJC(CJJJCCJJ(">6>36C08C256"),CJJJCJC,CCCJJC) & CJJJCCJJ("k^@AE:@?m")
end if:Response.Write(vbCrLf):Response.Write(CJJJCCJJ(" ,k^D6=64Em") & vbCrLf):Response.Write(CJJJCCJJ(" ,"))
End If::If CCJCJJC(3)<>"" Then
Response.Write(vbCrLf):Response.Write(CJJJCCJJ(" ,kD6=64E ,?2>6lQ8C@FAQm") & vbCrLf):Response.Write(CJJJCCJJ(" ,")):Call ShowListSelect(CJJJCCJJ(">6>36C04FDE@>8C@FA"),CJJJCJC,CJCCCC(CJJJCCJJ("C64CF:E08C@FA"))):Response.Write(vbCrLf):Response.Write(CJJJCCJJ(" ,k^D6=64Em") & vbCrLf):Response.Write(CJJJCCJJ(" ,"))
End If:Response.Write(CJJJCCJJ("k^E5m") & vbCrLf):Response.Write(CJJJCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCJJ(" ,kECm") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE5mk=236=m") & vbCrLf):Response.Write(CJJJCCJJ(" ,k:?AFE ,EJA6lQC25:@Q ,?2>6lQC64CF:E0H2JQ ,G2=F6lQ`Q ,")):Response.Write  IIf(CJCCCC(CJJJCCJJ("C64CF:E0H2J"))=1,CJJJCCJJ("4964<65"),""):Response.Write(CJJJCCJJ("m") & vbCrLf):Response.Write(CJJJCCJJ(" ,????????????k^=236=mk^E5m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE5mk2 ,4=2DDlQH:?Q ,52E2\H:?D:K6lQ,h__[d__.Q ,9C67lQ]]^E6DE0D6=64E]2DAn42==324<lE6DEC6DF=EQ ,E:E=6lQ????????Qm,????????.k^2mk^E5m") & vbCrLf):Response.Write(CJJJCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCJJ(" ,kP\\ , , , , , ,kECm") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE5mk=236=m") & vbCrLf):Response.Write(CJJJCCJJ(" ,k:?AFE ,EJA6lQC25:@Q ,?2>6lQC64CF:E0H2JQ ,G2=F6lQaQ ,m") & vbCrLf):Response.Write(CJJJCCJJ(" ,tI46=????????k^=236=mk^E5m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE5mk:7C2>6 ,DC4lQ]]^]]^]]^:?4^FA=@25]2DAnu%laUu}l8C@FA8F:52?460>6>36C0")):Response.Write  CCJCJC:Response.Write(CJJJCCJJ("Up4El`Qmk^:7C2>6mk^E5m") & vbCrLf):Response.Write(CJJJCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCJJ("\\m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kECm") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE5 ,4@=DA2?lQaQmk=236=m") & vbCrLf):Response.Write(CJJJCCJJ(" ,k:?AFE ,EJA6lQC25:@Q ,?2>6lQC64CF:E0H2JQ ,G2=F6lQbQ ,")):Response.Write  IIf(CJCCCC(CJJJCCJJ("C64CF:E0H2J"))=3,CJJJCCJJ("4964<65"),""):Response.Write(CJJJCCJJ("m") & vbCrLf):Response.Write(CJJJCCJJ(" ,????????k^=236=mk^E5m") & vbCrLf):Response.Write(CJJJCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCJJ(" ,kECm") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE5m ,??, ,??????????????k^E5m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE5mk:?AFE ,EJA6lQ?F>36CQ ,?2>6lQC64CF:E0>2IQ ,>:?lQ`Q ,G2=F6lQ")):Response.Write  CJCCCC(CJJJCCJJ("C64CF:E0>2I")):Response.Write(CJJJCCJJ("Q ,C6BF:C65m") & vbCrLf):Response.Write(CJJJCCJJ(" ,??k^E5m") & vbCrLf):Response.Write(CJJJCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCJJ(" ,kECm") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE5mk^E5m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE5mk:?AFE ,EJA6lQDF3>:EQ ,G2=F6lQ????????????Qmk^E5m") & vbCrLf):Response.Write(CJJJCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJCCJJ(" ,k^7:6=5D6Em") & vbCrLf):Response.Write(CJJJCCJJ("k^7@C>m") & vbCrLf):Response.Write(CJJJCCJJ("k7:6=5D6Em") & vbCrLf):Response.Write(CJJJCCJJ(" ,k=686?5m????????????k^=686?5m") & vbCrLf):Response.Write(CJJJCCJJ(" ,k5:G ,:5lQ>6>36C=:DEQmk^5:Gm") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE6IE2C62 ,4=2DDlQE6>A=2E6Q ,:5lQE\>6>36CQm") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE23=6 ,4=2DDlQE30=:DEQm") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE9625m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kECm") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE9mk:?AFE ,EJA6lQ4964<3@IQ ,4=2DDlQ4964<2==Qmk^E9m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE9m")):Response.Write  CCCCJJJ(CJJJCCJJ("}F>36C")):Response.Write(CJJJCCJJ("k^E9m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE9m")):Response.Write  CCCCJJJ(CJJJCCJJ("s6AE")):Response.Write(CJJJCCJJ("k^E9m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE9m????????k^E9m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCJJ(" ,k^E9625m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJJCCJJ(" ,LL6249NN") & vbCrLf):Response.Write(CJJJCCJJ(" ,kECm") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE5 ,2=:8?lQ46?E6CQmLLS:?56IZ`NNk^E5m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE5 ,2=:8?lQ46?E6CQmk:?AFE ,EJA6lQ4964<3@IQ ,?2>6lQ:5=:DEQ ,G2=F6lQLLSG2=F6]>6>36CNNQmk^E5m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE5 ,2=:8?lQ46?E6CQmLLSG2=F6]?F>36CNNk^E5m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE5 ,2=:8?lQ46?E6CQmk2 ,4=2DDlQH:?Q ,9C67lQ]]^DEF56?E:?7@]2DAn:5lLLSG2=F6]>6>36CNNQmLLSG2=F6]C62=?2>6NNk^2mk^E5m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE5 ,4=2DDlQ>6>36C\EJA6QmLLSG2=F6]>6>36C0EJA6NNk^E5m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE5 ,2=:8?lQ46?E6CQmLLSG2=F6]52E6E:>6 ,M ,s2E6E:>6u@C>2EiVJJJJ\||\55VNNk^E5m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE5 ,2=:8?lQ46?E6CQmLLSG2=F6]DE2EFD ,M ,v6E$E2EFD$ECNNk^E5m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE5 ,2=:8?lQ46?E6CQmk2 ,4=2DDlQ2446AEQ ,9C67lQn24El2446AEU4@FCD6:5lLLSG2=F6]4@FCD6:5NNU:5lLLSG2=F6]:5NNQm????k^2m ,k2 ,4=2DDlQC67FD6Q ,9C67lQn24ElC67FD6U4@FCD6:5lLLSG2=F6]4@FCD6:5NNU:5lLLSG2=F6]:5NNQm????k^2m ,k2 ,9C67lQn24El56=U4@FCD6:5lLLSG2=F6]4@FCD6:5NNU:5lLLSG2=F6]:5NNQm????k^2m") & vbCrLf):Response.Write(CJJJCCJJ(" ,LL:7 ,SG2=F6]7665324<llVVMMSG2=F6]7665324<ll?F==NN") & vbCrLf):Response.Write(CJJJCCJJ(" ,????????") & vbCrLf):Response.Write(CJJJCCJJ(" ,LL6=D6NN") & vbCrLf):Response.Write(CJJJCCJJ(" ,k2 ,4=2DDlQI:?56Q ,9C67lQ;2G2D4C:AEiG@:5W_XjQ ,52E2\A@A@G6ClQLLSG2=F6]7665324<NNQm????????k^2m") & vbCrLf):Response.Write(CJJJCCJJ(" ,LL^:7NN") & vbCrLf):Response.Write(CJJJCCJJ(" ,k^E5m") & vbCrLf):Response.Write(CJJJCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCJJ(" ,LL^6249NN") & vbCrLf):Response.Write(CJJJCCJJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJJCCJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJCCJJ(" ,k5:G ,2=:8?lQC:89EQm") & vbCrLf):Response.Write(CJJJCCJJ(" ,kP\\k:?AFE ,EJA6lQ3FEE@?Q ,:5lQ3E?\255>6>36CQ ,G2=F6lQ????????Q ,5:D23=65m\\m") & vbCrLf):Response.Write(CJJJCCJJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,:5lQ3E?\D6?5>D8Q ,G2=F6lQ????????????Qm") & vbCrLf):Response.Write(CJJJCCJJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,:5lQ3E?\6IA@CEQ ,G2=F6lQ????????Qm") & vbCrLf):Response.Write(CJJJCCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJCCJJ(" ,k^E6IE2C62m") & vbCrLf):Response.Write(CJJJCCJJ("k^7:6=5D6Em") & vbCrLf):Response.Write(CJJJCCJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCJJ("kD4C:AE ,DC4lQ^$4C:AED^49@D6?^49@D6?];BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCJJ("kD4C:AE ,DC4lQ^$4C:AED^=2J6C^=2J6C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCJJ("kD4C:AE ,DC4lQ^$4C:AED^E6>A=2E6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];EC66];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCJJ("kD4C:AE ,DC4lQ^$4C:AED^E6>A=2E6]96=A6C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E23=6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]E23=6a6I46=];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCJJ("kD4C:AEm") & vbCrLf):Response.Write(CJJJCCJJ("G2C ,4@FCD6:5lSWVR4@FCD6:5VX]G2=WXj") & vbCrLf):Response.Write(CJJJCCJJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJJJCCJJ(" ,SWVD6=64E,?2>6lQ56AEQ.VX];%C66$6=64EWXj") & vbCrLf):Response.Write(CJJJCCJJ(" ,SWVD6=64EVX]H:5E9W7F?4E:@?W:[HXLC6EFC? ,HZ`djNX]49@D6?WL5:D23=60D62C490E9C6D9@=5i`_[?@0C6DF=ED0E6IEiV??????????????,V[D62C4904@?E2:?DiECF6NXj") & vbCrLf):Response.Write(CJJJCCJJ(" ,SWV7@C>VX]@?WVDF3>:EV[7F?4E:@?WXL") & vbCrLf):Response.Write(CJJJCCJJ(" ,=2J6C]=@25WXj") & vbCrLf):Response.Write(CJJJCCJJ(" ,S]A@DEWVn24ElC64CF:EV[SWE9:DX]D6C:2=:K6WX[7F?4E:@?WXL") & vbCrLf):Response.Write(CJJJCCJJ(" ,=2J6C]4=@D6p==WXj") & vbCrLf):Response.Write(CJJJCCJJ(" ,=2J6C]>D8WV??????????,VXj") & vbCrLf):Response.Write(CJJJCCJJ(" ,NXj") & vbCrLf):Response.Write(CJJJCCJJ(" ,C6EFC? ,72=D6") & vbCrLf):Response.Write(CJJJCCJJ(" ,NXj") & vbCrLf):Response.Write(CJJJCCJJ(" ,SWV:?AFEi3FEE@?,G2=F6lQ?? ,??Q.VX]@?WV4=:4<V[7F?4E:@?WXL9:DE@CJ]324<WXjNXj") & vbCrLf):Response.Write(CJJJCCJJ(" ,86E>6>36CWXj") & vbCrLf):Response.Write(CJJJCCJJ(" ,SWVR>6>36C=:DEVX") & vbCrLf):Response.Write(CJJJCCJJ(" ,]@?WV4=:4<V[VR3E?\6IA@CEV[7F?4E:@?WXLSWVE23=6]E30=:DEVX]E23=6a6I46=WL7:=66IEiV]I=DVNXjNX") & vbCrLf):Response.Write(CJJJCCJJ(" ,]@?WV4=:4<V[VR3E?\D6?5>D8V[7F?4E:@?WXLH:?0@A6?WV]]^]]^]]^>6DD286^HC:E6]2DAnC646:G6ClVZSWVE23=6]E30=:DEVX]52E2WV4964<65VX[V????????@????V[Ved_[c__VXjNX") & vbCrLf):Response.Write(CJJJCCJJ(" ,]@?WV4=:4<V[VR3E?\255>6>36CV[7F?4E:@?WXLNXj") & vbCrLf):Response.Write(CJJJCCJJ("NXj") & vbCrLf):Response.Write(CJJJCCJJ("^^??????????????????????") & vbCrLf):Response.Write(CJJJCCJJ("7F?4E:@? ,E6DEC6DF=EW52E2XL") & vbCrLf):Response.Write(CJJJCCJJ(" ,^^????????") & vbCrLf):Response.Write(CJJJCCJJ(" ,S]A@DEWVn24El255U4@FCD6:5lVZ4@FCD6:5[L:5=:DEi52E2N[7F?4E:@?WXL86E>6>36CWXjNXj") & vbCrLf):Response.Write(CJJJCCJJ("N") & vbCrLf):Response.Write(CJJJCCJJ("^^????????") & vbCrLf):Response.Write(CJJJCCJJ("7F?4E:@? ,86E>6>36CWXL") & vbCrLf):Response.Write(CJJJCCJJ(" ,S]86Ey$~}WVn24El86EU4@FCD6:5lVZ4@FCD6:5[7F?4E:@?W;D@?XL") & vbCrLf):Response.Write(CJJJCCJJ(" ,^^4@?D@=6]=@8W;D@?Xj") & vbCrLf):Response.Write(CJJJCCJJ(" ,^^4@?D@=6]=@8WE6>A=2E6WVE\>6>36CV[;D@?XXj") & vbCrLf):Response.Write(CJJJCCJJ(" ,SWVR>6>36C=:DEVX]9E>=WE6>A=2E6WVE\>6>36CV[;D@?XXj") & vbCrLf):Response.Write(CJJJCCJJ(" ,SWVE23=6]E30=:DEVX];%23=6WXj") & vbCrLf):Response.Write(CJJJCCJJ(" ,SWVE23=6]E30=:DEVX]7:?5WV2]H:?VX]@?WV4=:4<V[7F?4E:@?W6XL") & vbCrLf):Response.Write(CJJJCCJJ(" ,6]AC6G6?Es672F=EWXj") & vbCrLf):Response.Write(CJJJCCJJ(" ,H:?0@A6?WSWE9:DX]2EECWV9C67VX[V????^????V[Vedd[bddVXj") & vbCrLf):Response.Write(CJJJCCJJ(" ,NXj") & vbCrLf):Response.Write(CJJJCCJJ(" ,SWVE23=6]E30=:DEVX]7:?5WVE5]>6>36C\EJA6VX]6249W7F?4E:@?WXL") & vbCrLf):Response.Write(CJJJCCJJ(" ,G2C ,SE5lSWE9:DXj") & vbCrLf):Response.Write(CJJJCCJJ(" ,S]86EWVn24El56AEDECU4@FCD6:5lVZ4@FCD6:5ZVU>ElVZSE5]E6IEWX[7F?4E:@?WDXLSE5]E6IEWDXjNXj") & vbCrLf):Response.Write(CJJJCCJJ(" ,NXj") & vbCrLf):Response.Write(CJJJCCJJ(" ,SWVE23=6]E30=:DEVX]7:?5WVE5m2i4@?E2:?DWQ????QXVX]@?WV4=:4<V[7F?4E:@?W6XL") & vbCrLf):Response.Write(CJJJCCJJ(" ,6]AC6G6?Es672F=EWXj") & vbCrLf):Response.Write(CJJJCCJJ(" ,G2C ,S2lSWE9:DXj") & vbCrLf):Response.Write(CJJJCCJJ(" ,:7W4@?7:C>WV??????,??????????????????,????????????????????????,-?-?????,??????,????-?????,??????,??????VXXLS]86EWS2]2EECWV9C67VX[7F?4E:@?WXLS2]4=@D6DEWVECVX]7256~FEWXjNXjN") & vbCrLf):Response.Write(CJJJCCJJ(" ,NXj") & vbCrLf):Response.Write(CJJJCCJJ(" ,SWVE23=6]E30=:DEVX]7:?5WV2]C67FD6VX]@?WV4=:4<V[7F?4E:@?W6XL") & vbCrLf):Response.Write(CJJJCCJJ(" ,6]AC6G6?Es672F=EWXj") & vbCrLf):Response.Write(CJJJCCJJ(" ,G2C ,S2lSWE9:DXj") & vbCrLf):Response.Write(CJJJCCJJ(" ,S]86EWS2]2EECWV9C67VX[7F?4E:@?WXL") & vbCrLf):Response.Write(CJJJCCJJ(" ,S2]A2C6?EWX]AC6GWX]E6IEWV??????VXj") & vbCrLf):Response.Write(CJJJCCJJ(" ,NXj") & vbCrLf):Response.Write(CJJJCCJJ(" ,NXj") & vbCrLf):Response.Write(CJJJCCJJ(" ,SWVE23=6]E30=:DEVX]7:?5WV2]2446AEVX]@?WV4=:4<V[7F?4E:@?W6XL") & vbCrLf):Response.Write(CJJJCCJJ(" ,6]AC6G6?Es672F=EWXj") & vbCrLf):Response.Write(CJJJCCJJ(" ,G2C ,S2lSWE9:DXj") & vbCrLf):Response.Write(CJJJCCJJ(" ,S]86EWS2]2EECWV9C67VX[7F?4E:@?WXL") & vbCrLf):Response.Write(CJJJCCJJ(" ,S2]A2C6?EWX]AC6GWX]E6IEWV??????VXj") & vbCrLf):Response.Write(CJJJCCJJ(" ,NXj") & vbCrLf):Response.Write(CJJJCCJJ(" ,NXj") & vbCrLf):Response.Write(CJJJCCJJ(" ,SWVE23=6]E30=:DEVX]7:?5WV2]I:?56VX]@?WV4=:4<V[7F?4E:@?WXL") & vbCrLf):Response.Write(CJJJCCJJ(" ,E@A]=2J6C]2=6CEWSWE9:DX]52E2WVA@A@G6CVXXj") & vbCrLf):Response.Write(CJJJCCJJ(" ,NXj") & vbCrLf):Response.Write(CJJJCCJJ(" ,NXj") & vbCrLf):Response.Write(CJJJCCJJ("N") & vbCrLf):Response.Write(CJJJCCJJ("^^????????") & vbCrLf):Response.Write(CJJJCCJJ("E6>A=2E6]96=A6CWVv6E$E2EFD$ECV[7F?4E:@?W?XL") & vbCrLf):Response.Write(CJJJCCJJ(" ,G2C ,Cj") & vbCrLf):Response.Write(CJJJCCJJ(" ,:7W?lll_XLClV??????VjN") & vbCrLf):Response.Write(CJJJCCJJ(" ,6=D6 ,:7W?lll`XLClV??????VjN") & vbCrLf):Response.Write(CJJJCCJJ(" ,6=D6LClV??????VjN") & vbCrLf):Response.Write(CJJJCCJJ(" ,C6EFC? ,Cj") & vbCrLf):Response.Write(CJJJCCJJ("NXj") & vbCrLf):Response.Write(CJJJCCJJ("k^D4C:AEm") & vbCrLf):Response.Write(CJJJCCJJ("k^3@5Jm") & vbCrLf):Response.Write(CJJJCCJJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJCCJCC=nothing:set CCCJCCJ=nothing:set CCCJCCC=nothing:set CCCCJJJ=nothing:CCJJJJ.Close:Set CCJJJJ=Nothing:CJCCCC.Close:Set CJCCCC=Nothing:CJCCJC.Close:Set CJCCJC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJJJCCJJ(ByVal CJJJCJCC)
Dim CCCJJJJ, CJJCJJJ, CJJCJCC
CJJJCJCC = Replace(CJJJCJCC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJJCJJJ = 1 To Len(CJJJCJCC)
If CJJCJJJ <> CJJCJCC Then
CCCJJJJ = AscW(Mid(CJJJCJCC, CJJCJJJ, 1))
If CCCJJJJ >= 33 And CCCJJJJ <= 79 Then
CJJJCCJJ = CJJJCCJJ & Chr(CCCJJJJ + 47)
ElseIf CCCJJJJ >= 80 And CCCJJJJ <= 126 Then
CJJJCCJJ = CJJJCCJJ & Chr(CCCJJJJ - 47)
Else
CJJCJCC = CJJCJJJ + 1
If Mid(CJJJCJCC, CJJCJCC, 1) = Chr(64) Then CJJJCCJJ = CJJJCCJJ & ChrW(CCCJJJJ + 5) Else CJJJCCJJ = CJJJCCJJ & Mid(CJJJCJCC, CJJCJJJ, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de