<%@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?@=@40 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 CJJCJJC0 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"" 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)V ,E2C86ElV03=2?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="√" 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==3246lQC64CF: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]76653246>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=:46>36CWXj") & vbCrLf):Response.Write(CJJJCCJJ(" ,SWVR>6>36C=:DEVX") & vbCrLf):Response.Write(CJJJCCJJ(" ,]@?WV4=:4D8V[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=:46>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=:46>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=:4WV揋@礵@：,创@陟@吉@封@丈@只@恝@夈@，,患@昪@眚@癿@襼@创@陟@诠@顴@盩@吒@？,-?-?挄@“,硩@宕@”,创@陟@-?挄@“,发@涃@”,丈@创@陟@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=:4A=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 %>