<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim CCJCCJ, CCJCCC,CCCJJJ, CCCJJC, CCCJCJ:Set CCJCCJ = server.CreateObject(CJJJCCJC("ps~sq]r@??64E:@?")):CCJCCJ.open Application(CJJJCCJC("r@??64E:@?$EC:?8")):Set CCJCCC=CCJCCJ::Dim CCCJCC,CCCCJJ,CCCCJC,CCCCCJ,CCCCCC,CJJJJJJ,CJJJJJC,CJJJJCJ,CJJJJCC:Dim CJJJCJJ,CJJJCJC,CJJJCCJ,CJJJCCC,CJJCJJJ,CJJCJJC:Dim CJJCJCJ,CJJCJCC,CJJCCJJ:Dim CJJCCJC:CJJCCJC=Trim(Request.Cookies(CJJJCCJC("!$*|t|qt#"))):if CJJCCJC="" then Call ClearMemberCookie else Call CheckMemberCookie end if:if CCCJCC>0 then CCCJCJ=CJJJCCJC("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(CJJJCCJC("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,")) Call SetMemberCookie(CCCJCC,CCCCJJ) End IF end if::Function CCCJCCC(CJJJCCCJ):dim CJJCCCJ,CJJCCCC:CJJCCCC=split(CJJJCCCJ,CJJJCCJC("[")):CCCJCCC=False:for CJJCCCJ=0 to ubound(CJJCCCC):If Mid(CCCCJC,CJJCCCC(CJJCCCJ),1)="1" then CCCJCCC=True:exit function end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CJJJCCJC("!$*|t|qt#"))="":CCCJCC=0:CJJJJJJ=0:CCCCJJ=Empty:CCCCCC=0:CJJJJCJ=0:CJJJJJC=0:CCCCCJ=0:CJJJCJJ=False:CJJCJCC=False:CJJCCJJ=Empty:End Sub:Sub CheckMemberCookie():dim CJCJJJJ,CJCJJJC,CJJCCCJ,CJCJJCJ,CJCJJCC:CJCJJJJ=split(CJJCCJC,CJJJCCJC("]")):if ubound(CJCJJJJ)<>2 then Call ClearMemberCookie elseif not isnumeric(CJCJJJJ(0)) or len(CJCJJJJ(1))<>32 or len(CJCJJJJ(2))<>32 then Call ClearMemberCookie else CJCJJJC=CJCJJJJ(1):for CJJCCCJ=1 to len(CJCJJJC):CJCJJCJ=mid(CJCJJJC,CJJCCCJ,1):if isnumeric(CJCJJCJ) then CJCJJCC=CJCJJCC & CJCJJCJ if len(CJCJJCC)=7 then exit for next:CJCJJJC=CJCJJJJ(2):if CJCJJCC<>mid(CJCJJJC,6,7) then Call ClearMemberCookie else CJCJJCJ=mid(CJCJJJC,18,10)/2:if CJCJJCJ0 then for CJJCCCJ=0 to ubound(str):if CJJCCCJ>0 then response.Write CJJJCCJC("k3C ,^m") response.Write CJJCCCJ & CJJJCCJC("i ,") & str(CJJCCCJ):next else response.Write CJJJCCJC("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m") for CJJCCCJ=0 to ubound(str,2):response.Write CJJJCCJC("kE9 ,2=:8?lV=67EVm") & CJJCCCJ & CJJJCCJC("k^E9m") next:response.Write CJJJCCJC("k^ECm"):for CJJCCCJ=0 to ubound(str):response.Write CJJJCCJC("kECmkE9m") & CJJCCCJ & CJJJCCJC("k^E9m"):for CJCJJCJ=0 to ubound(str,2):response.Write CJJJCCJC("kE5m") & str(CJJCCCJ,CJCJJCJ) & CJJJCCJC("k^E5m"):next:response.Write CJJJCCJC("k^ECm"):next:response.Write CJJJCCJC("k^E23=6m") end if elseif isnull(str) then response.Write CJJJCCJC(",}F==.") else Response.Write replace(str,vbcrlf,CJJJCCJC("k3Cm")) end if:Call ConnClose:Response.End:End Sub:Public Function CCCCJJC():Dim CJCJCJC, CJCJCCJ:CJCJCCJ = Request.ServerVariables(CJJJCCJC("!p%w0x}u~")):CJCJCJC = Request.ServerVariables(CJJJCCJC("""&t#*0$%#x}v")):If CJCJCJC <> Empty Then if instr(lcase(CJCJCJC),CJJJCCJC("Tb4:7C2>6"))>0 or instr(lcase(CJCJCJC),CJJJCCJC("Tb4D4C:AE"))>0 then Call RedirectMessage(CJJJCCJC("寴@丈@赲@，,患@癿@圫@圻@栊@否@朄@静@泐@孒@笡@！,！,！,")) CJCJCCJ = CJCJCCJ & CJJJCCJC("n") & CJCJCJC end if:CCCCJJC = CJCJCCJ:End Function:Sub SetHttpOnlyCookie(CJJCJCJJ,CJJCJCJC):dim CJCJJJJ:CJCJJJJ=CJJCJCJJ & CJJJCCJC("l") & CJJCJCJC & CJJJCCJC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJJCCJC("$6E\r@@<:6"),CJCJJJJ):End Sub:::Function CCCCJCJ(ByVal Str, ByVal StrLen):Dim CJCJCCC, CJCCJJJ, CJCCJJC, CJJCCCJ:if isnull(str) then CCCCJCJ="" else CJCJCCC = Len(Str):CJCCJJJ = 0:For CJJCCCJ = 1 To CJCJCCC:CJCCJJC = AscW(Mid(Str, CJJCCCJ, 1)):If CJCCJJC < 0 Or CJCCJJC > 255 Then CJCCJJJ = CJCCJJJ + 2 Else CJCCJJJ = CJCCJJJ + 1 If CJCCJJJ >= StrLen Then CCCCJCJ = Left(Str, CJJCCCJ) & CJJJCCJC("]]]"):Exit For Else CCCCJCJ = Str End If:Next end if:End Function::::Function CCCCJCC(CJCJCJJ):if isnull(CJCJCJJ) or trim(CJCJCJJ)="" or not isnumeric(CJCJCJJ) then CCCCJCC=false else Dim CJCCJCJ:Set CJCCJCJ = New RegExp:CJCCJCJ.Pattern = CJJJCCJC("/-5ZS"):CJCCJCJ.IgnoreCase = True:CCCCJCC = CJCCJCJ.test(CJCJCJJ):set CJCCJCJ=nothing end if:End Function:Function CCCCCJJ(CJJCJCCJ):dim CJCCJCC,CJCCCJJ:CJCCJCC=CJJJCCJC("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJJCJCCJ & CJJJCCJC("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJCCCJJ=CCJCCJ.execute(CJCCJCC):CCCCCJJ = CJCCCJJ(0):if isnull(CCCCCJJ) then CCCCCJJ=1 CJCCCJJ.close : set CJCCCJJ=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CCJJCJJ=nothing:set CCCCCJC=nothing:set CCCCCCJ=nothing:set CCCCCCC=nothing:CJCCCJJ.close : set CJCCCJJ=nothing:CCCJJC.Close : Set CCCJJC=Nothing:CCCJJJ.Close : Set CCCJJJ=Nothing:CJJJJJJJ.Close : Set CJJJJJJJ = Nothing:CCJCCJ.Close : Set CCJCCJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJCJCCC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJJCCJC("!$*0|6DD286"),server.URLEncode(CJJCJCCC)):Response.Redirect CJJJCCJC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::Function CJJJJJJC(ByVal CJJJJJCJ,style):if not isdate(CJJJJJCJ) then CJJJJJJC=CJJJJJCJ:exit function end if:dim CJCCCJC,CJCCCCJ,CJCCCCC,CCJJJJJ:CJJJJJCJ=cdate(CJJJJJCJ):CJCCCJC=Year(CJJJJJCJ):CJCCCCJ=Month(CJJJJJCJ):CJCCCCC=Day(CJJJJJCJ):select case style:case 0:CJJJJJJC=CJCCCJC & CJJJCCJC("\") & right(0 & CJCCCCJ,2) & CJJJCCJC("\") & right(0 & CJCCCCC,2):case 1:CJJJJJJC=CJCCCJC & right(0 & CJCCCCJ,2) & right(0 & CJCCCCC,2):case 2:CJJJJJJC=right(CJCCCJC,2) & CJJJCCJC("\") & right(0 & CJCCCCJ,2) & CJJJCCJC("\") & right(0 & CJCCCCC,2):case 3:CJJJJJJC=CJCCCJC & CJJJCCJC("\") & right(0 & CJCCCCJ,2):case 4:CJJJJJJC=right(0 & CJCCCCJ,2) & CJJJCCJC("\") & right(0 & CJCCCCC,2):case 5:CJJJJJJC=right(0 & CJCCCCC,2):case 6:CJJJJJJC=CJCCCJC & CJJJCCJC("幯@") & right(0 & CJCCCCJ,2) & CJJJCCJC("會@") & right(0 & CJCCCCC,2) & CJJJCCJC("无@"):case else CJJJJJJC=CJJJJJCJ:end select:End Function:::::::Function CJJJJJCC(CCCJJJ):dim CJJCCCJ,CCJJJJC,CCJJJCJ,CJCJCJC,CCJJJCC:CCJJJCC=CCCJJJ.fields.count-1:do while not CCCJJJ.eof:CCJJJJC=CCJJJJC & CJJJCCJC("[L"):for CJJCCCJ=0 to CCJJJCC:CCJJJCJ=CCCJJJ(CJJCCCJ).value:if CJJCCCJ>0 then CCJJJJC=CCJJJJC & CJJJCCJC("[") CCJJJJC=CCJJJJC & CJJJCCJC("Q") & CCCJJJ(CJJCCCJ).name & CJJJCCJC("Qi"):if isnull(CCJJJCJ) or CCJJJCJ="" then CCJJJJC=CCJJJJC & CJJJCCJC("QQ") elseif CCCJJJ(CJJCCCJ).type=11 then CCJJJJC=CCJJJJC & IIf(CCJJJCJ,1,0) elseif isnumeric(CCJJJCJ) and instr(CCJJJCJ,CJJJCCJC("["))=0 and len(CCJJJCJ)<7 then CCJJJJC=CCJJJJC & CCJJJCJ elseif lcase(CCJJJCJ)=CJJJCCJC("ECF6") then CCJJJJC=CCJJJJC & CJJJCCJC("ECF6") elseif lcase(CCJJJCJ)=CJJJCCJC("72=D6") then CCJJJJC=CCJJJJC & CJJJCCJC("72=D6") elseif isdate(CCJJJCJ) then CCJJJJC=CCJJJJC & CJJJCCJC("Q") & replace(CCJJJCJ,CJJJCCJC("^"),CJJJCCJC("\")) & CJJJCCJC("Q") else CJCJCJC=CCJJJCJ:CJCJCJC=replace(CJCJCJC,vbcrlf,CJJJCCJC("-?")):CJCJCJC=replace(CJCJCJC,chr(9),""):CJCJCJC=replace(CJCJCJC,CJJJCCJC("Q"),CJJJCCJC("-Q")):CCJJJJC=CCJJJJC & CJJJCCJC("Q") & CJCJCJC & CJJJCCJC("Q") end if:next:CCJJJJC=CCJJJJC & CJJJCCJC("N"):CCCJJJ.movenext:if CCCJJJ.eof then exit do loop:if CCJJJJC<>"" then CCJJJJC=mid(CCJJJJC,2) CJJJJJCC=CJJJCCJC(",") & CCJJJJC & CJJJCCJC("."):End Function:Function CJJJJCJJ(CCCJCJ):dim CJCCCJJ:set CJCCCJJ=CCJCCJ.execute(CCCJCJ):CJJJJCJJ=CJJJJJCC(CJCCCJJ):CJCCCJJ.close:set CJCCCJJ=nothing:End Function::::::::::::Sub ClearCache(CJJCCJJJ):Application.Contents.Remove CJJCCJJJ End Sub::Class jTree:Private CCCJCJ, CCJJCJJ, CCJJCJC, CCJJCCJ,CCJJCCC,CCJCJJJ,CCJCJJC,CCJCJCJ:Private Sub Class_Initialize():CCJJCJC = 0:CCJJCCJ = 0:CCJCJCJ=10:End Sub:Public Property Let Table(value):if value="" then Call RedirectMessage(CJJJCCJC("寴@丈@赲@，,;%C66籶@宙@來@匑@旱@沜@朄@讹@罩@忀@襼@癿@屙@怢@！,")) CCJJCCC=value:CCJCJJJ=CJJJCCJC("!$*0") & UCase(CCJJCCC):Call GetTreeArray:End Property:Public Property Get Table():Table=CCJJCCC:End Property::Public Property Get Count():Count=CCJJCCJ-CCJCJCJ:End Property:Private Sub GetTreeArray():Dim CJJCCCJ, CJCJJCJ, CCJCJCC,CCJCCJJ:CCJJCJJ = Application(CCJCJJJ):If Not IsArray(CCJJCJJ) Then CCCJCJ = CJJJCCJC("D6=64E ,4@F?EW:5X ,7C@> ,") & CCJJCCC:if CCJCJJC<>"" then CCCJCJ=CCCJCJ & CJJJCCJC(" ,H96C6 ,") & CCJCJJC set CCJCJCC=CCJCCJ.execute(CCCJCJ):CCJCCJJ=CCJCJCC(0):if CCJCCJJ=0 then Call RedirectMessage(CJJJCCJC("柠@话@W") & CCJJCCC & CJJJCCJC("^") & CCJCJJC & CJJJCCJC("X沜@朄@绎@林@敫@捩@")) CCJJCCJ=CCJCCJJ+CCJCJCJ:ReDim CCJJCJJ(CCJJCCJ, 4):CCCJCJ = CJJJCCJC("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJJCCC & CJJJCCJC(" ,H:E9 ,W?@=@4"" then CCCJCJ=CCCJCJ & CJJJCCJC(" ,H96C6 ,") & CCJCJJC CCCJCJ=CCCJCJ & CJJJCCJC(" ,@C56C ,3J ,D@CE[:5"):set CCJCJCC=CCJCCJ.execute(CCCJCJ):For CJJCCCJ = 1 To CCJCCJJ:For CJCJJCJ = 0 To 4:CCJJCJJ(CJJCCCJ, CJCJJCJ) = CCJCJCC(CJCJJCJ):if IsNull(CCJJCJJ(CJJCCCJ,4)) then CCJJCJJ(CJJCCCJ,4)=0 If CCJJCJJ(CJJCCCJ,2)="" then CCJJCJJ(CJJCCCJ,2)=CJJJCCJC(",穵@.") Next:CCJCJCC.MoveNext:Next:CCJCJCC.Close: Set CCJCJCC = Nothing:for CJJCCCJ=CCJJCCJ-(CCJCJCJ-1) to CCJJCCJ:CCJJCJJ(CJJCCCJ,0)=CJJCCCJ:next:Application.Lock():Application(CCJCJJJ) = CCJJCJJ:Application.UnLock() else CCJJCCJ=Ubound(CCJJCJJ) End If:End Sub:::::Private Function CJJJJCCC(CJJJCJCC):dim CJJCCCJ,CCJCCJC:CJJJJCCC=0:CCJCCJC=CStr(CJJJCJCC):if CCJCCJC<>"0" then for CJJCCCJ=1 to CCJJCCJ:If CStr(CCJJCJJ(CJJCCCJ, 0))=CCJCCJC Then CJJJJCCC = CJJCCCJ:Exit For End If:Next end if:End Function:Public Function GetCurName(CJJJCJCC):if Cstr(CJJJCJCC)="0" then GetCurName=CJJJCCJC("栴@") else Dim CJJCCCJ,CCJCJCC:CJJCCCJ=CJJJJCCC(CJJJCJCC):if CJJCCCJ>0 then GetCurName=CCJJCJJ(CJJCCCJ,2):if GetCurName="" then set CCJCJCC=CCJCCJ.execute(CJJJCCJC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJJCCC & CJJJCCJC(" ,H96C6 ,:5l") & CJJJCJCC):if CCJCJCC.eof then Call RedirectMessage(CJJJCCJC("xs（,") & CJJJCJCC & CJJJCCJC("）,朥@批@别@")) GetCurName=CCJCJCC(1):Call UpdateCache(CJJJCJCC,CCJCJCC(0),GetCurName,CCJCJCC(2),CCJCJCC(3)):CCJCJCC.Close: Set CCJCJCC = Nothing end if else set CCJCJCC=CCJCCJ.execute(CJJJCCJC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJJCCC & CJJJCCJC(" ,H96C6 ,:5l") & CJJJCJCC):if CCJCJCC.eof then Call RedirectMessage(CJJJCCJC("xs（,") & CJJJCJCC & CJJJCCJC("）,朥@批@别@")) GetCurName=CCJCJCC(1):Call UpdateCache(CJJJCJCC,CCJCJCC(0),GetCurName,CCJCJCC(2),CCJCJCC(3)):CCJCJCC.Close: Set CCJCJCC = Nothing end if end if:End Function:::Public Function CJJJCJJC(CJJJCJCC):Dim CJJCCCJ,CCJCCCJ:CJJCCCJ=CJJJJCCC(CJJJCJCC):if CJJCCCJ=0 then CCJCCCJ=CJJJCJCJ(CJJJCJCC) else CCJCCCJ=CCJJCJJ(CJJCCCJ,3):if isnull(CCJCCCJ) or CCJCCCJ="" then CCJCCCJ=CJJJCJCJ(CJJJCJCC) elseif Mid(CCJCCCJ,instrrev(CCJCCCJ,CJJJCCJC("["))+1)<>CStr(CJJJCJCC) then CCJCCCJ=CJJJCJCJ(CJJJCJCC) elseif Left(CCJCCCJ,1)=CJJJCCJC("[") then CCJCCCJ=CJJJCJCJ(CJJJCJCC) end if end if:CJJJCJJC=CCJCCCJ:End Function:Private Function CJJJCJCJ(CJJJCJCC):dim CCJCCJC:CCJCCJC=CStr(CJJJCJCC):if CCJCCJC="0" then CJJJCJCJ="" else dim CCJCJCC:set CCJCJCC=CCJCCJ.execute(CJJJCCJC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJJCCC & CJJJCCJC(" ,H96C6 ,:5l") & CJJJCJCC):if CCJCJCC.eof then Call UpdateCache(CJJJCJCC,"","","",""):Call RedirectMessage(CJJJCCJC("顴@盩@（,xs：,") & CJJJCJCC & CJJJCCJC("）,丈@孓@圣@，,诲@患@迏@囙@吉@釈@斫@擈@佗@。,")) else if CCJCJCC(0)=0 then CJJJCJCJ="0," & CJJJCJCC else CJJJCJCJ=CJJJCJJC(CCJCJCC(0)) & CJJJCCJC("[") & CJJJCJCC end if:if CCJCJCC(2)<>CJJJCJCJ then CCJCCJ.execute CJJJCCJC("FA52E6 ,") & CCJJCCC & CJJJCCJC(" ,D6E ,A2E9lV") & CJJJCJCJ & CJJJCCJC("V ,H96C6 ,:5l") & CJJJCJCC else CJJJCJCJ=CCJCJCC(2) end if end if:Call UpdateCache(CJJJCJCC,CCJCJCC(0),CCJCJCC(1),CJJJCJCJ,CCJCJCC(3)):CCJCJCC.Close: Set CCJCJCC = Nothing end if:End Function::::::::::::::::::::::Public Sub ClearCache():Application.Contents.Remove CCJCJJJ End Sub:Public Sub UpdateCache(CJJJCJCC,CJJCCJCJ,name,CCJCCCJ,CJJCCCJJ):dim CJJCCCJ,CJCJJCJ:CJJJCJCC=CLng(CJJJCJCC):CJJCCCJ=CJJJJCCC(CJJJCJCC):if CJJCCJCJ="" and name="" and CCJCCCJ="" and CJJCCCJJ="" then if CJJCCCJ>0 then for CJCJJCJ=1 to 4:CCJJCJJ(CJJCCCJ,CJCJJCJ)=Null:next end if else if CJJCCCJ=0 then for CJCJJCJ=1 to CCJJCCJ:if CCJJCJJ(CJCJJCJ,1) & ""="" then CJJCCCJ=CJCJJCJ:exit for end if:next end if:if CJJCCCJ=0 then Call ClearCache else CCJJCJJ(CJJCCCJ,0)=CLng(CJJJCJCC):if CJJCCJCJ<>"" then CCJJCJJ(CJJCCCJ,1)=CLng(CJJCCJCJ) if name<>"" then CCJJCJJ(CJJCCCJ,2)=name if CCJCCCJ<>"" then CCJJCJJ(CJJCCCJ,3)=CCJCCCJ if CJJCCCJJ<>"" then CCJJCJJ(CJJCCCJ,4)=CLng(CJJCCCJJ) end if end if:if CJJCCCJ>0 then Application.Lock():Application(CCJCJJJ) = CCJJCJJ:Application.UnLock() end if:End Sub:Private Sub Debug(CJJCJCCC):Call ConnClose:Response.Write CJJCJCCC:Response.End:End Sub:Private Function CCCCCJJ():CCCCCJJ=CJJJCCJJ+1:End Function:Private Function CJJJCCJJ():dim CJCCCJJ:set CJCCCJJ=CCJCCJ.execute(CJJJCCJC("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CCJJCCC & CJJJCCJC(" ,@C56C ,3J ,:5 ,56D4")):CJJJCCJJ=CJCCCJJ(0):CJCCCJJ.Close: Set CJCCCJJ = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::dim CCJCCCC,CCCJJJJ(0):CCJCCCC=Request.QueryString(CJJJCCJC("F")):if not CCCCJCC(CCJCCCC) then CCJCCCC=CCCCCJ if not CCCCJCC(CCJCCCC) then CCJCCCC=2 dim CCJJCJJ:set CCJJCJJ=new jtree:CCJJCJJ.table=CJJJCCJC(">6>36C0EJA6"):CCCJJJJ(0)=CCJJCJJ.GetCurName(CCJCCCC):dim CCCJJJC:set CCCJJJ=CCJCCJ.execute(CJJJCCJC("D6=64E ,E@A ,` ,:5 ,7C@> ,2CE:4=60EJA6 ,H96C6 ,>6>36CEJA6l") & CCJCCCC):if CCCJJJ.eof then Call RedirectMessage(CJJJCCJC("寴@丈@赲@，,彎@剈@罌@竔@尕@朥@讹@罩@栊@盩@！,")) CCCJJJC=CCCJJJ(0):Response.Write(vbCrLf):Response.Write(CJJJCCJC("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJJJCCJC("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJJJCCJC("k9625m") & vbCrLf):Response.Write(CJJJCCJC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJJJCCJC("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJJJCCJC("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJJJCCJC("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CJJJCCJC("kE:E=6m")):Response.Write CCCJJJJ(0):Response.Write(CJJJCCJC("k^E:E=6m") & vbCrLf):Response.Write(CJJJCCJC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^4DD^C6D6E]4DDQm") & vbCrLf):Response.Write(CJJJCCJC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CJJJCCJC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^>rFDE@>$4C@==32C^;BF6CJ]>rFDE@>$4C@==32C]>:?]4DDQm") & vbCrLf):Response.Write(CJJJCCJC("kDEJ=6m") & vbCrLf):Response.Write(CJJJCCJC("R>2:?\E@A ,L ,>2C8:?\E@Ai ,`_AIj ,A@D:E:@?i ,C6=2E:G6j ,96:89Ei ,bc_AIj ,N") & vbCrLf):Response.Write(CJJJCCJC("RI:2D9F ,L ,3@C56Ci ,`AI ,D@=:5 ,R`_drdaj ,96:89Ei ,bc_AIj ,H:5E9i ,aegAIj ,324<8C@F?5i ,R777j ,@G6C7=@Hi ,9:556?j ,N") & vbCrLf):Response.Write(CJJJCCJC("RI:2D9F ,]E:E=6 ,L ,324<8C@F?5i ,R`dghfcj ,96:89Ei ,baAIj ,=:?6\96:89Ei ,baAIj ,7@?E\D:K6i ,`cAIj ,4@=@Ci ,Ruuuj ,E6IE\2=:8?i ,46?E6Cj ,N") & vbCrLf):Response.Write(CJJJCCJC("RI:2D9F ,]4@?E6?E ,L ,96:89Ei ,agdAIj ,@G6C7=@Hi ,2FE@j ,N") & vbCrLf):Response.Write(CJJJCCJC("RI:2D9F ,]4@?E6?E ,=: ,L ,=:?6\96:89Ei ,adAIj ,3@C56C\3@EE@>i ,`AI ,52D965 ,R444j ,A255:?8\=67Ei ,`_AIj ,=:DE\DEJ=6i ,?@?6j ,N") & vbCrLf):Response.Write(CJJJCCJC("RI:2D9F ,]4@?E6?E ,2 ,L ,4@=@Ci ,Rh`h_hgj ,N") & vbCrLf):Response.Write(CJJJCCJC("RI:2D9F ,]4@?E6?E ,2i9@G6C ,L ,4@=@Ci ,Ruh_j ,N") & vbCrLf):Response.Write(CJJJCCJC("R>2:?\E@A ,]3F==6E:? ,L ,324<8C@F?5i ,FC=W:>286D^3F==6E:?]8:7X ,?@\C6A62E ,=67E ,cAIj ,A255:?8\=67Ei ,`dAIj ,A@D:E:@?i ,23D@=FE6j ,=67Ei ,agaAIj ,E@Ai ,dAIj ,H:5E9i ,ed_AIj ,N") & vbCrLf):Response.Write(CJJJCCJC("R>2:?\E@A ,]3F==6E:? ,>2CBF66 ,L ,7=@2Ei ,C:89Ej ,H:5E9i ,dg_AIj ,N") & vbCrLf):Response.Write(CJJJCCJC("R>2:?\E@A ,]3F==6E:? ,2i9@G6C ,L ,4@=@Ci ,Ruh_j ,N") & vbCrLf):Response.Write(CJJJCCJC("R>2:?\E@A ,]7@4FD ,L ,324<8C@F?5i ,Ruuuj ,A@D:E:@?i ,23D@=FE6j ,=67Ei ,agaAIj ,E@Ai ,b_AIj ,N") & vbCrLf):Response.Write(CJJJCCJC("R>2:?\3@EE@> ,L ,>2C8:?\E@Ai ,`_AIj ,@G6C7=@Hi ,9:556?j ,>2C8:?\3@EE@>i ,`_AIj ,N") & vbCrLf):Response.Write(CJJJCCJC("R>2:?\3@EE@> ,]D:56 ,L ,H:5E9i ,af_AIj ,7=@2Ei ,=67Ej ,N") & vbCrLf):Response.Write(CJJJCCJC("R>2:?\3@EE@> ,]D:56 ,5:G ,L ,3@C56C\C25:FDi ,`_AIj ,324<8C@F?5i ,R777j ,>2C8:?\3@EE@>i ,`_AIj ,N") & vbCrLf):Response.Write(CJJJCCJC("R>2:?\3@EE@> ,]D:56 ,9b ,L ,324<8C@F?5i ,R`cggf`j ,4@=@Ci ,R777j ,7@?E\D:K6i ,`eAIj ,A255:?8\=67Ei ,a_AIj ,7@?E\H6:89Ei ,?@C>2=j ,96:89Ei ,c_AIj ,=:?6\96:89Ei ,c_AIj ,3@C56C\C25:FDi ,`_AI ,`_AI ,_ ,_j ,N") & vbCrLf):Response.Write(CJJJCCJC("R>2:?\3@EE@> ,]D:56 ,F= ,L ,>2C8:?i ,`_AI ,dAIj ,N") & vbCrLf):Response.Write(CJJJCCJC("R>2:?\3@EE@> ,]D:56 ,=: ,L ,=:?6\96:89Ei ,b_AIj ,3@C56C\3@EE@>i ,`AI ,D@=:5 ,R`cggfbj ,A255:?8\=67Ei ,`_AIj ,N") & vbCrLf):Response.Write(CJJJCCJC("R>2:?\3@EE@> ,]D:56 ,=: ,]5@E ,L ,4@=@Ci ,R`cggfbj ,>2C8:?\C:89Ei ,`_AIj ,N") & vbCrLf):Response.Write(CJJJCCJC("R>2:?\3@EE@> ,]>2:? ,L ,H:5E9i ,eegAIj ,7=@2Ei ,C:89Ej ,324<8C@F?5i ,FC=W:>286D^>2:?];A8X ,?@\C6A62Ej ,96:89Ei ,eegAIj ,N") & vbCrLf):Response.Write(CJJJCCJC("R>2:?\3@EE@> ,]>2:? ,]3@I ,L ,7=@2Ei ,=67Ej ,H:5E9i ,ba_AIj ,96:89Ei ,a`_AIj ,>2C8:?\=67Ei ,`_AIj ,N") & vbCrLf):Response.Write(CJJJCCJC("R>2:?\3@EE@> ,]>2:? ,]3@I ,9a ,L ,7@?E\D:K6i ,`eAIj ,A255:?8\E@Ai ,eAIj ,A255:?8\=67Ei ,c_AIj ,N") & vbCrLf):Response.Write(CJJJCCJC("R>2:?\3@EE@> ,]>2:? ,]3@I ,9a ,2 ,L ,5:DA=2Ji ,3=@42:?\3@EE@> ,]>2:? ,]3@I ,9a ,2i9@G6C ,L ,4@=@Ci ,Ruh_j ,E6IE\564@C2E:@?i ,?@?6j ,N") & vbCrLf):Response.Write(CJJJCCJC("R>2:?\3@EE@> ,]>2:? ,]3@I ,F= ,L ,>2C8:?\E@Ai ,`dAIj ,>2C8:?\=67Ei ,b_AIj ,N") & vbCrLf):Response.Write(CJJJCCJC("R>2:?\3@EE@> ,]>2:? ,]3@I ,=: ,L ,=:?6\96:89Ei ,b_AIj ,7@?E\D:K6i ,`cAIj ,N") & vbCrLf):Response.Write(CJJJCCJC("R>2:?\3@EE@> ,]>2:? ,]3@I ,=: ,DA2? ,L ,7=@2Ei ,C:89Ej ,4@=@Ci ,Rhhhj ,>2C8:?\C:89Ei ,`_AIj ,7@?E\D:K6i ,`aAIj ,N") & vbCrLf):Response.Write(CJJJCCJC("R=:?< ,L ,96:89Ei ,c_AIj ,324<8C@F?5i ,Ruuuj ,>2C8:?\3@EE@>i ,`_AIj ,=:?6\96:89Ei ,c_AIj ,E6IE\2=:8?i ,46?E6Cj ,3@C56C\C25:FDi ,`_AIj ,N") & vbCrLf):Response.Write(CJJJCCJC("k^DEJ=6m") & vbCrLf):Response.Write(CJJJCCJC("k^9625m") & vbCrLf):Response.Write(CJJJCCJC("k3@5Jm") & vbCrLf):Response.Write(CJJJCCJC("k5:G ,:5lQ4@?E2:?6CQm") & vbCrLf):Response.Write(CJJJCCJC(" ,k5:G ,:5lQE@AQm") & vbCrLf):Response.Write(CJJJCCJC(" ,")):if CCCJCC>0 then If CCCJCCC(5) Then Response.Write(vbCrLf):Response.Write(CJJJCCJC(" ,URgaaej ,k2 ,9C67lV25>:?^>2:?]2DAVm吉@叫@箜@琁@k^2m") & vbCrLf):Response.Write(CJJJCCJC(" ,")) End If:Response.Write(vbCrLf):Response.Write(CJJJCCJC(" ,URgaaej ,k2 ,9C67lQ]]^>6>36C^=@8@FE]2DAn4@>6FC=l")):Response.Write CCCCJJC:Response.Write(CJJJCCJC("Qm迻@凵@癶@彐@k^2m") & vbCrLf):Response.Write(CJJJCCJC(" ,")) Else Response.Write(vbCrLf):Response.Write(CJJJCCJC(" ,k7@C> ,?2>6lQ7@C>`Q ,>6E9@5lQA@DEQ ,24E:@?lQ]]^>6>36C^=@8:?]2DAQm") & vbCrLf):Response.Write(CJJJCCJC(" ,産@戲@合@：,") & vbCrLf):Response.Write(CJJJCCJC(" ,k:?AFE ,EJA6lQE6IEQ ,?2>6lQFD6C?2>6Q ,:5lQFD6C?2>6Qm") & vbCrLf):Response.Write(CJJJCCJC(" ,寁@矼@：,") & vbCrLf):Response.Write(CJJJCCJC(" ,k:?AFE ,EJA6lQA2DDH@C5Q ,?2>6lQA2DDH@C5Q ,:5lQA2DDH@C5Q ,2FE@4@>A=6E6lQ@77Qm") & vbCrLf):Response.Write(CJJJCCJC(" ,k:?AFE ,EJA6lQDF3>:EQ ,?2>6lQ3FEE@?Q ,:5lQ3FEE@?Q ,G2=F6lQ癶@ ,彐@Qm") & vbCrLf):Response.Write(CJJJCCJC(" ,k:?AFE ,EJA6lQ9:556?Q ,?2>6lQ4@>6FC=Q ,:5lQ4@>6FC=Q ,G2=F6lQ")):Response.Write CCCCJJC:Response.Write(CJJJCCJC("Qm") & vbCrLf):Response.Write(CJJJCCJC(" ,k^7@C>m") & vbCrLf):Response.Write(CJJJCCJC(" ,")) End If:Response.Write(vbCrLf):Response.Write(CJJJCCJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJCCJC(" ,k5:G ,:5lQ96256CQm") & vbCrLf):Response.Write(CJJJCCJC(" ,k9`mkDA2?m")):Response.Write CCCJJJJ(0):Response.Write(CJJJCCJC("k^DA2?mk^9`m") & vbCrLf):Response.Write(CJJJCCJC(" ,kF= ,:5lQ?2GQm") & vbCrLf):Response.Write(CJJJCCJC(" ,k=:mk2 ,9C67lQ]Qm罌@竔@馑@顰@k^2mk^=:m") & vbCrLf):Response.Write(CJJJCCJC(" ,")):dim CJJCCCJ,CCCJJCJ,CCCJJCC:CJJCCCJ=0:set CCCJJJ=CCJCCJ.execute(CJJJCCJC("D6=64E ,:5[?2>6[:?EC@[:DE@A ,7C@> ,2CE:4=60EJA6 ,H96C6 ,A2C:5l") & CCCJJJC & CJJJCCJC(" ,@C56C ,3J ,D@CE")):while not CCCJJJ.eof:if CCCJJJ(3) then CCCJJCJ=CCCJJCJ & CJJJCCJC("M") & CCCJJJ(0) & CJJJCCJC("M") & CCCJJJ(1):CCCJJCC=CCCJJCC+1 end if:response.write CJJJCCJC("k=:mk2 ,9C67lV=:DE]2DAnEJA6:5l") & CCCJJJ(0) & CJJJCCJC("V ,E:E=6lV") & CCCJJJ(2) & CJJJCCJC("Vm") & CCCJJJ(1) & CJJJCCJC("k^2mk^=:m") CCCJJJ.movenext:CJJCCCJ=CJJCCCJ+1:wend:CCCJJCJ=CCCJJCJ & CJJJCCJC("MfM巠@佗@劣@忼@MgM攺@筑@斂@仱@MhM徾@琁@臥@劤@M`_M宱@庨@敔@肭@M``M徾@琁@布@贿@M`aM趞@呮@穵@闯@"):CCCJJCJ=split(Mid(CCCJJCJ,2),CJJJCCJC("M")):Response.Write(vbCrLf):Response.Write(CJJJCCJC(" ,k^F=m") & vbCrLf):Response.Write(CJJJCCJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJCCJC(" ,k5:G ,:5lQ>2:?\E@AQm") & vbCrLf):Response.Write(CJJJCCJC(" ,k5:G ,:5lQI:2D9FQm") & vbCrLf):Response.Write(CJJJCCJC(" ,k5:G ,4=2DDlQE:E=6Qm卐@佈@k^5:Gm") & vbCrLf):Response.Write(CJJJCCJC(" ,k5:G ,4=2DDlQ4@?E6?EQm") & vbCrLf):Response.Write(CJJJCCJC(" ,")):set CCCJJJ=CCJCCJ.execute(CJJJCCJC("D6=64E ,:5[?2>6[:?EC@[EJA6[:DD49@@= ,7C@> ,>6>36C0EJA6 ,H96C6 ,A2C:5l") & CCJCCCC & CJJJCCJC(" ,@C56C ,3J ,D@CE")):while not CCCJJJ.eof:if CCCJJJ(4) then response.write CJJJCCJC("k=:mk2 ,9C67lV]]^D49@@=^:?56I]2DAnD49@@=l") & CCCJJJ(0) & CJJJCCJC("Vm▶,U?3DAj") & CCCCJCJ(CCCJJJ(1),26) & CJJJCCJC("k^2mk^=:m") else response.write CJJJCCJC("k=:mk2 ,9C67lV:?56I]2DAnFl") & CCCJJJ(0) & CJJJCCJC("Vm▶,U?3DAj") & CCCCJCJ(CCCJJJ(1),26) & CJJJCCJC("k^2mk^=:m") end if:CCCJJJ.movenext:wend:Response.Write(vbCrLf):Response.Write(CJJJCCJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJCCJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJCCJC(" ,k5:G ,4=2DDlQ3F==6E:?Qm竔@冀@內@呅@：,") & vbCrLf):Response.Write(CJJJCCJC(" ,k>2CBF66 ,D4C@==2>@F?ElQbQ ,@?|@FD6~G6ClQ;2G2D4C:AEiE9:D]DE@AWXjQ ,@?|@FD6~FElQ;2G2D4C:AEiE9:D]DE2CEWXjQm") & vbCrLf):Response.Write(CJJJCCJC(" ,")):set CCCJJJ=CCJCCJ.execute(CJJJCCJC("D6=64E ,E@A ,d ,:5[E:E=6 ,7C@> ,3F==6E:? ,H96C6 ,@FED:56l` ,2?5 ,V[VZEJA6ZV[V ,=:<6 ,V[T") & CCJCCCC & CJJJCCJC("[TV ,@C56C ,3J ,:5 ,56D4")) while not CCCJJJ.eof:response.Write CJJJCCJC("k2 ,9C67lVG:6H]2DAn24El3F==6E:?UFl") & CCJCCCC & CJJJCCJC("U:5l") & CCCJJJ(0) & CJJJCCJC("Vm■, ,") & CCCJJJ(1) & CJJJCCJC("k^2mU?3DAjU?3DAj") CCCJJJ.movenext:wend:Response.Write(vbCrLf):Response.Write(CJJJCCJC(" ,k^>2CBF66m") & vbCrLf):Response.Write(CJJJCCJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJCCJC(" ,k5:G ,4=2DDlQ7@4FDQmk:>8 ,DC4lQ]]^]]^:>286D^=@25:?8]8:7Q ,H:5E9lQ`eQ ,96:89ElQ`eQ ,^mk^5:Gm") & vbCrLf):Response.Write(CJJJCCJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJCCJC(" ,k5:G ,:5lQ>2:?\3@EE@>Qm") & vbCrLf):Response.Write(CJJJCCJC(" ,k5:G ,4=2DDlQD:56Qm") & vbCrLf):Response.Write(CJJJCCJC(" ,k5:G ,4=2DDlQ9@EQm") & vbCrLf):Response.Write(CJJJCCJC(" ,k9bm兮@泣@烨@炴@k^9bm") & vbCrLf):Response.Write(CJJJCCJC(" ,kF=m") & vbCrLf):Response.Write(CJJJCCJC(" ,")):dim CCCJCJJ:CCCJCJ=CJJJCCJC("D6=64E ,E@A ,h ,:5[E:E=6 ,7C@> ,G02CE:4=6 ,H96C6 ,A2CEJA6l") & CCCJJJC & CJJJCCJC(" ,@C56C ,3J ,9:E ,56D4[:5 ,56D4"):set CCCJJJ=CCJCCJ.execute(CCCJCJ):while not CCCJJJ.eof:CCCJCJJ=CCCJJJ(1):response.write CJJJCCJC("k=:mkDA2? ,4=2DDlV5@EVm●,k^DA2?mk2 ,9C67lVG:6H]2DAnFl") & CCJCCCC & CJJJCCJC("U:5l") & CCCJJJ(0) & CJJJCCJC("V ,E:E=6lV") & CCCJCJJ & CJJJCCJC("Vm") & CCCCJCJ(CCCJCJJ,34) & CJJJCCJC("k^2mk^=:m") CCCJJJ.movenext:wend:Response.Write(vbCrLf):Response.Write(CJJJCCJC(" ,k^F=m") & vbCrLf):Response.Write(CJJJCCJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJCCJC(" ,k5:G ,4=2DDlQ?6HQm") & vbCrLf):Response.Write(CJJJCCJC(" ,k9bm曻@斫@斂@竛@k^9bm") & vbCrLf):Response.Write(CJJJCCJC(" ,kF=m") & vbCrLf):Response.Write(CJJJCCJC(" ,")):CCCJCJ=CJJJCCJC("D6=64E ,E@A ,h ,:5[E:E=6 ,7C@> ,G02CE:4=6 ,H96C6 ,A2CEJA6l") & CCCJJJC & CJJJCCJC(" ,@C56C ,3J ,:5 ,56D4"):set CCCJJJ=CCJCCJ.execute(CCCJCJ):while not CCCJJJ.eof:CCCJCJJ=CCCJJJ(1):response.write CJJJCCJC("k=:mkDA2? ,4=2DDlV5@EVm●,k^DA2?mk2 ,9C67lVG:6H]2DAnFl") & CCJCCCC & CJJJCCJC("U:5l") & CCCJJJ(0) & CJJJCCJC("V ,E:E=6lV") & CCCJCJJ & CJJJCCJC("Vm") & CCCCJCJ(CCCJCJJ,34) & CJJJCCJC("k^2mk^=:m") CCCJJJ.movenext:wend:Response.Write(vbCrLf):Response.Write(CJJJCCJC(" ,k^F=m") & vbCrLf):Response.Write(CJJJCCJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJCCJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJCCJC(" ,k5:G ,4=2DDlQ>2:?Qm") & vbCrLf):Response.Write(CJJJCCJC(" ,")):for CJJCCCJ=0 to ubound(CCCJJCJ)-1 step 2:if CJJCCCJ=12 then exit for Response.Write(vbCrLf):Response.Write(CJJJCCJC(" ,k5:G ,4=2DDlQ3@IQm") & vbCrLf):Response.Write(CJJJCCJC(" ,k9amk2 ,9C67lQ=:DE]2DAnFl")):Response.Write CCJCCCC:Response.Write(CJJJCCJC("UEJA6:5l")):Response.Write CCCJJCJ(CJJCCCJ):Response.Write(CJJJCCJC("Qm")):Response.Write CCCJJCJ(CJJCCCJ+1):Response.Write(CJJJCCJC("k^2mk^9am") & vbCrLf):Response.Write(CJJJCCJC(" ,kF=m") & vbCrLf):Response.Write(CJJJCCJC(" ,")):set CCCJJJ=CCJCCJ.execute(CJJJCCJC("D6=64E ,E@A ,d ,:5[E:E=6[52E6E:>6 ,7C@> ,2CE:4=6 ,H96C6 ,EJA6l") & CCCJJCJ(CJJCCCJ) & CJJJCCJC(" ,@C56C ,3J ,:5 ,56D4")):while not CCCJJJ.eof:Response.Write(vbCrLf):Response.Write(CJJJCCJC(" ,k=:mk2 ,9C67lQG:6H]2DAnFl")):Response.Write CCJCCCC:Response.Write(CJJJCCJC("U:5l")):Response.Write CCCJJJ(0):Response.Write(CJJJCCJC("Q ,E:E=6lQ")):Response.Write CCCJJJ(1):Response.Write(CJJJCCJC("Qm")):Response.Write CCCCJCJ(CCCJJJ(1),26):Response.Write(CJJJCCJC("k^2mkDA2?m,")):Response.Write CJJJJJJC(CCCJJJ(2),0):Response.Write(CJJJCCJC(".k^DA2?mk^=:m") & vbCrLf):Response.Write(CJJJCCJC(" ,")):CCCJJJ.movenext:wend:Response.Write(vbCrLf):Response.Write(CJJJCCJC(" ,k^F=m") & vbCrLf):Response.Write(CJJJCCJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJCCJC(" ,")):next:Response.Write(vbCrLf):Response.Write(CJJJCCJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJCCJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJCCJC(" ,k5:G ,:5lQ=:? ,25G6CE ,H96C6 ,A=246l`d ,2?5 ,>6>36CEJA6l") & CCJCCCC):while not CCCJJJ.eof:response.Write CJJJCCJC("k2 ,9C67lV") & CCCJJJ(1) & CJJJCCJC("V ,E2C86ElV03=2?:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCJC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]5]:>286492?86];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCJC("kD4C:AE ,DC4lQ^$4C:AED^>rFDE@>$4C@==32C^;BF6CJ]>rFDE@>$4C@==32C]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCJC("kD4C:AEm") & vbCrLf):Response.Write(CJJJCCJC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJJJCCJC(" ,^^ ,滕@劣@杜@") & vbCrLf):Response.Write(CJJJCCJC(" ,SWQRI:2D9F ,]4@?E6?EQX]>rFDE@>$4C@==32CWLE96>6iV52C2:?\E@A ,]7@4FDQX]50:>286492?86WL") & vbCrLf):Response.Write(CJJJCCJC(" ,52E2i ,")):Response.Write CJJJJCJJ(CJJJCCJC("D6=64E ,A:4EFC6 ,2D ,DC4[=:?< ,2D ,9C67[E6IE ,2D ,E:E=6 ,7C@> ,25G6CE ,H96C6 ,>6>36CEJA6l") & CCJCCCC & CJJJCCJC(" ,2?5 ,A=246l`c ,@C56C ,3J ,:5 ,56D4")):Response.Write(CJJJCCJC("[") & vbCrLf):Response.Write(CJJJCCJC(" ,H:5E9ieef[") & vbCrLf):Response.Write(CJJJCCJC(" ,96:89Eib``[") & vbCrLf):Response.Write(CJJJCCJC(" ,2?:>2E6$EJ=6iVIV[") & vbCrLf):Response.Write(CJJJCCJC(" ,E:E=6%@Ai`_[") & vbCrLf):Response.Write(CJJJCCJC(" ,3E?%@Ai`a[") & vbCrLf):Response.Write(CJJJCCJC(" ,A=2J%:>6ib___") & vbCrLf):Response.Write(CJJJCCJC(" ,NXj") & vbCrLf):Response.Write(CJJJCCJC("NXj") & vbCrLf):Response.Write(CJJJCCJC("k^D4C:AEm") & vbCrLf):Response.Write(CJJJCCJC("k^3@5Jm") & vbCrLf):Response.Write(CJJJCCJC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCJJCJJ=nothing:set CCCCCJC=nothing:set CCCCCCJ=nothing:set CCCCCCC=nothing:CCCJJC.Close:Set CCCJJC=Nothing:CCCJJJ.Close:Set CCCJJJ=Nothing:CCJCCJ.Close:Set CCJCCJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf) Function CJJJCCJC(ByVal CJCCJJC) Dim CCCJCJC, CJJCCCJ, CJCJCJJ CJCCJJC = Replace(CJCCJJC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62)) For CJJCCCJ = 1 To Len(CJCCJJC) If CJJCCCJ <> CJCJCJJ Then CCCJCJC = AscW(Mid(CJCCJJC, CJJCCCJ, 1)) If CCCJCJC >= 33 And CCCJCJC <= 79 Then CJJJCCJC = CJJJCCJC & Chr(CCCJCJC + 47) ElseIf CCCJCJC >= 80 And CCCJCJC <= 126 Then CJJJCCJC = CJJJCCJC & Chr(CCCJCJC - 47) Else CJCJCJJ = CJJCCCJ + 1 If Mid(CJCCJJC, CJCJCJJ, 1) = Chr(64) Then CJJJCCJC = CJJJCCJC & ChrW(CCCJCJC + 5) Else CJJJCCJC = CJJJCCJC & Mid(CJCCJJC, CJJCCCJ, 1) End If End If Next End Function %>