<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJJJCJJ, CJJJCJC,CJJJCCJ, CJJJCCC, CJJCJJJ:Set CJJJCJJ = server.CreateObject(CJCJCCCC("ps~sq]r@??64E:@?")):CJJJCJJ.open Application(CJCJCCCC("r@??64E:@?$EC:?8")):Set CJJJCJC=CJJJCJJ::Dim CJJCJJC,CJJCJCJ,CJJCJCC,CJJCCJJ,CJJCCJC,CJJCCCJ,CJJCCCC,CJCJJJJ,CJCJJJC:Dim CJCJJCJ,CJCJJCC,CJCJCJJ,CJCJCJC,CJCJCCJ,CJCJCCC:Dim CJCCJJJ,CJCCJJC,CJCCJCJ:Dim CJCCJCC:CJCCJCC=Trim(Request.Cookies(CJCJCCCC("!$*|t|qt#"))):if CJCCJCC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJJCJJC>0 then
CJJCJJJ=CJCJCCCC("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") & CJJCJCJ & CJCJCCCC("V ,2?5 ,:5l") & CJJCJJC
set CJJJCCJ=CJJJCJJ.execute(CJJCJJJ):If CJJJCCJ.EOF Then
Call ClearMemberCookie
Else
CJJCJCC=CJJJCCJ(2) & "":CJJCCJJ=CJJJCCJ(3):CJJCCJC=CJJJCCJ(5):CJJCCCJ=CJJJCCJ(6):CJJCCCC=CJJJCCJ(9):CJCJJJJ=CJJJCCJ(15):CJCJJCJ=CJJJCCJ(0):CJCCJJC=CJJJCCJ(1):CJCCJJJ=CJJJCCJ(11) & "":CJCJJCC=CJJJCCJ(10) & "":CJCJJJC=CJJJCCJ(12):CJCJCJJ=CJJJCCJ(14):CJCJCJC=CJJJCCJ(13):CJCJCCJ=CJJJCCJ(7) & "":CJCJCCC=CJJJCCJ(4):CJCCJCJ=CJJJCCJ(8):if isnull(CJCJJJJ) then CJCJJJJ=0
if isnull(CJJCCCC) or CJJCCCC=0 then CJJCCCC=CJJCCJJ
if isnull(CJCJCCC) then CJCJCCC=0
if isnull(CJJCCJC) then CJJCCJC=0
if instr(CJCJCCCC("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJCJCJ)>0 then Call RedirectMessage(CJCJCCCC("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CJJCJJC,CJJCJCJ)
End IF
end if:Sub CheckRight(CCJCJJJ):dim CJCCCJJ,CJCCCJC:if CJJCJJC=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJCJCCCC("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
elseIf not CJJCJCJC(CCJCJJJ) then
Call RedirectMessage(CJCJCCCC("朾@陋@W") & CCJCJJJ & CJCJCCCC("X袦@祼@歝@，,诲@三@糶@绚@箜@琁@呓@聏@糶@。,"))
end if:End Sub:Function CJJCJCJC(CCJCJJJ):dim CJCCCJJ,CJCCCJC:CJCCCJC=split(CCJCJJJ,CJCJCCCC("[")):CJJCJCJC=False:for CJCCCJJ=0 to ubound(CJCCCJC):If Mid(CJJCJCC,CJCCCJC(CJCCCJJ),1)="1" then
CJJCJCJC=True:exit function
end if:next:End Function:Sub CheckLogined():if CJJCJJC=0 then
Call ClearMemberCookie:Call ConnClose:dim CJCCCCJ:CJCCCCJ=trim(request.QueryString(CJCJCCCC("D49@@="))):if isnumeric(CJCCCCJ) then
response.Redirect CJCJCCCC("^>^G2?E^R^D49@@=^") & CJCCCCJ & CJCJCCCC("^DEF56?E^=@8:?nC65:C64El") & url
else
Call RedirectMessage(CJCJCCCC("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CJCJCCCC("!$*|t|qt#"))="":CJJCJJC=0:CJJCCCJ=0:CJJCJCJ=Empty:CJJCCJC=0:CJCJJJJ=0:CJJCCCC=0:CJJCCJJ=0:CJCJJCJ=False:CJCCJJC=False:CJCCJCJ=Empty:End Sub:Sub CheckMemberCookie():dim CJCCCCC,CCJJJJJ,CJCCCJJ,CCJJJJC,CCJJJCJ:CJCCCCC=split(CJCCJCC,CJCJCCCC("]")):if ubound(CJCCCCC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJCCCCC(0)) or len(CJCCCCC(1))<>32 or len(CJCCCCC(2))<>32 then
Call ClearMemberCookie
else
CCJJJJJ=CJCCCCC(1):for CJCCCJJ=1 to len(CCJJJJJ):CCJJJJC=mid(CCJJJJJ,CJCCCJJ,1):if isnumeric(CCJJJJC) then CCJJJCJ=CCJJJCJ & CCJJJJC
if len(CCJJJCJ)=7 then exit for
next:CCJJJJJ=CJCCCCC(2):if CCJJJCJ<>mid(CCJJJJJ,6,7) then
Call ClearMemberCookie
else
CCJJJJC=mid(CCJJJJJ,18,10)/2:if CCJJJJC<DateDiff(CJCJCCCC("D"), CJCJCCCC("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJJCJJC=Clng(CJCCCCC(0)):CJJCJCJ=CJCCCCC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJJJCJJC,CJCCJJJJ):dim CJCCCJJ,CCJJJJC,CCJJJCJ:for CJCCCJJ=1 to len(CJCCJJJJ):CCJJJJC=mid(CJCCJJJJ,CJCCCJJ,1):if isnumeric(CCJJJJC) then CCJJJCJ=CCJJJCJ & CCJJJJC
if len(CCJJJCJ)=7 then exit for
next:CCJJJCJ=CJJJCJJC & CJCJCCCC("]") & CJCCJJJJ & CJCJCCCC("]") & Fix(10000*(Rnd+1)) & CCJJJCJ & Fix(10000*(Rnd+1)) & DateDiff(CJCJCCCC("D"), CJCJCCCC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJCJCCCC("!$*|t|qt#"))=CCJJJCJ:End Sub:::Function IIf(CJCCJJJC, CJCCJJCJ, CJCCJJCC):if isnull(CJCCJJJC) or isempty(CJCCJJJC) then
IIf = CJCCJJCC
elseif CJCCJJJC Then
IIf = CJCCJJCJ
Else
IIf = CJCCJJCC
end if:End Function:Const CJJCJCJJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::Sub Debug(str):response.Charset=CJCJCCCC("FE7\g"):dim CJCCCJJ,CCJJJJC,CCJJJCC:if isarray(str) then
on error resume next:CJCCCJJ=ubound(str,2):CCJJJCC=err.number:err.clear:on error goto 0:if CCJJJCC<>0 then
for CJCCCJJ=0 to ubound(str):if CJCCCJJ>0 then response.Write CJCJCCCC("k3C ,^m")
response.Write CJCCCJJ & CJCJCCCC("i ,") & str(CJCCCJJ):next
else
response.Write CJCJCCCC("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CJCCCJJ=0 to ubound(str,2):response.Write CJCJCCCC("kE9 ,2=:8?lV=67EVm") & CJCCCJJ & CJCJCCCC("k^E9m")
next:response.Write CJCJCCCC("k^ECm"):for CJCCCJJ=0 to ubound(str):response.Write CJCJCCCC("kECmkE9m") & CJCCCJJ & CJCJCCCC("k^E9m"):for CCJJJJC=0 to ubound(str,2):response.Write CJCJCCCC("kE5m") & str(CJCCCJJ,CCJJJJC) & CJCJCCCC("k^E5m"):next:response.Write CJCJCCCC("k^ECm"):next:response.Write CJCJCCCC("k^E23=6m")
end if
elseif isnull(str) then
response.Write CJCJCCCC(",}F==.")
else
Response.Write replace(str,vbcrlf,CJCJCCCC("k3Cm"))
end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CJCCJCJJ,CJCCJCJC):dim CJCCCCC:CJCCCCC=CJCCJCJJ & CJCJCCCC("l") & CJCCJCJC & CJCJCCCC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJCJCCCC("$6E\r@@<:6"),CJCCCCC):End Sub::::::sub ShowMessage(CJCCJCCJ):response.Charset="utf-8":Response.Write CJCJCCCC("k3Cmk5:G ,2=:8?lV46?E6CVmk5:G ,DEJ=6lV4@=@CiC65j ,7@?E\H6:89Ei3@=5j ,E6IE\2=:8?i46?E6Cj ,3@C56Ci`AI ,D@=:5 ,Rrrrrrrj ,324<8C@F?5\4@=@CiRtgtgtgj ,A255:?8icAI ,aAI ,aAIj ,H:5E9ibd_AIj ,7@?E\D:K6i`aAIVm") & CJCCJCCJ & CJCJCCCC("k^5:Gmk^5:Gmk3Cm")
end sub:Function CJJCJCCC(CCJJJCC):if isnull(CCJJJCC) or trim(CCJJJCC)="" or not isnumeric(CCJJJCC) then
CJJCJCCC=false
else
Dim CCJJCJJ:Set CCJJCJJ = New RegExp:CCJJCJJ.Pattern = CJCJCCCC("/-5ZS"):CCJJCJJ.IgnoreCase = True:CJJCJCCC = CCJJCJJ.test(CCJJJCC):set CCJJCJJ=nothing
end if:End Function:Function CJJCCJJJ(CJCCJCCC):dim CCJJCJC,CCJJCCJ:CCJJCJC=CJCJCCCC("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJCCJCCC & CJCJCCCC("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CCJJCCJ=CJJJCJJ.execute(CCJJCJC):CJJCCJJJ = CCJJCCJ(0):if isnull(CJJCCJJJ) then CJJCCJJJ=1
CCJJCCJ.close : set CCJJCCJ=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CCCCJJC=nothing:set CJJCCJJC=nothing:set CJJCCJCJ=nothing:set CJJCCJCC=nothing:CCJJCCJ.close : set CCJJCCJ=nothing:CJJJCCC.Close : Set CJJJCCC=Nothing:CJJJCCJ.Close : Set CJJJCCJ=Nothing:CJJCCCJJ.Close : Set CJJCCCJJ = Nothing:CJJJCJJ.Close : Set CJJJCJJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJCCJCCJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJCJCCCC("!$*0|6DD286"),server.URLEncode(CJCCJCCJ)):Response.Redirect CJCJCCCC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::Function CJJCCCJC():Dim CCJJCCJ, CCJJCCC(), CJCCCJJ, CCJJJJC, CCJCJJJ,CCJCJJC:If Not IsArray(Application(CJCJCCCC("!$*0%6DED"))) Then
CJJCJJJ=CJCJCCCC("D6=64E ,:5[?2>6049[?2>606?[BF6DE4@F?E[E6DEE:A[E:>60>2I[:?EC@`[2?DH6C[>6>36CEJA6[2860>2I[24E[>@?6J[5@4[?F==[?2>607C[724E@C`[E:>60>:?[2860>:?[724E@Ca[:?EC@a[:D4FDE@>[?F==[A:4EFC6[2CE:4=6 ,7C@> ,=3 ,H96C6 ,2G2:=23=6l` ,@C56C ,3J ,D@CE"):set CCJJCCJ=server.createobject(CJCJCCCC("25@53]C64@C5D6E")):CCJJCCJ.open CJJCJJJ,CJJJCJJ,1:CCJCJJJ = CCJJCCJ.RecordCount:CCJCJJC=CCJJCCJ.fields.count-1:ReDim CCJJCCC(CCJCJJJ, CCJCJJC):If CCJCJJJ > 0 Then
For CJCCCJJ = 1 To CCJCJJJ:For CCJJJJC = 0 To CCJCJJC:if CCJJJJC=4 or CCJJJJC=6 or CCJJJJC=19 then
CCJJCCC(CJCCCJJ, CCJJJJC) = CJCJJJCJ(CCJJCCJ(CCJJJJC))
else
CCJJCCC(CJCCCJJ, CCJJJJC) = CCJJCCJ(CCJJJJC):if CCJJCCJ(CCJJJJC).type<>11 and isnull(CCJJCCC(CJCCCJJ, CCJJJJC)) then CCJJCCC(CJCCCJJ, CCJJJJC)=""
end if:Next:CCJJCCJ.MoveNext:Next
End If:CCJJCCJ.Close: Set CCJJCCJ = Nothing:Application(CJCJCCCC("!$*0%6DED")) = CCJJCCC
End If:CJJCCCJC = Application(CJCJCCCC("!$*0%6DED")):End Function:Function CJJCCCCJ(CJJJCJCC):Dim CJCCCJJ, CCJCJCJ(), CCJJCCJ,CCJCJCC,CCJCCJJ,CCJCCJC,CCJCCCJ:CCJCCJJ = CJJCCCJC:For CJCCCJJ = 1 To UBound(CCJCCJJ):If CStr(CCJCCJJ(CJCCCJJ, 0)) = CStr(CJJJCJCC) Then
CCJCCCJ=CCJCCJJ(CJCCCJJ,2):CCJCCJC=CCJCCJJ(CJCCCJJ,7):CCJCJCC=CCJCCJJ(CJCCCJJ,3):Exit For
End If:Next:if CCJCCJC="" then
CJJCJJJ=CJCJCCCC("D6=64E ,BF6DE:@?[2?DH6C[EJA6 ,7C@> ,=3BF6DE:@? ,H96C6 ,=3l") & CJJJCJCC & CJCJCCCC(" ,@C56C ,3J ,D@CE")
else
CJJCJJJ=CJCJCCCC("$t{tr% ,BF6DE:@?[ ,WD6=64E ,E@A ,` ,2?DH6C ,7C@> ,=3 ,H96C6 ,:5l") & CJJJCJCC & CJCJCCCC("X ,p$ ,2?DH6C[EJA6 ,u#~| ,=3BF6DE:@? ,H96C6 ,=3l") & CJJJCJCC & CJCJCCCC(" ,~#st# ,q* ,D@CE")
end if:set CCJJCCJ=CJJJCJJ.execute(CJJCJJJ):ReDim CCJCJCJ(CCJCJCC, 2):For CJCCCJJ = 1 To CCJCJCC:CCJCJCJ(CJCCCJJ, 0) = CCJJCCJ(0) & "":CCJCJCJ(CJCCCJJ, 1) = CCJJCCJ(1) & "":CCJCJCJ(CJCCCJJ, 2) = CCJJCCJ(2):CCJJCCJ.MoveNext:Next:CCJJCCJ.Close: Set CCJJCCJ = Nothing:CJJCCCCJ = CCJCJCJ:End Function::::::::::::::Function CJJCCCCC(Table):Dim CCJJCCJ, CCJCJJJ, str(), CJCCCJJ,CCJJJJC,CCCJJJJ:CCCJJJJ=UCase(Table):If Not IsArray(Application(CJCJCCCC("!$*0") & CCCJJJJ)) Then
CJJCJJJ=CJCJCCCC("D6=64E ,:5[?2>6[>6>36CEJA6 ,7C@> ,,") & Table & CJCJCCCC(". ,@C56C ,3J ,D@CE[:5"):set CCJJCCJ=server.createobject(CJCJCCCC("25@53]C64@C5D6E")):CCJJCCJ.open CJJCJJJ,CJJJCJJ,1:CCJCJJJ = CCJJCCJ.RecordCount:ReDim str(CCJCJJJ, 2):If CCJCJJJ > 0 Then
For CJCCCJJ = 1 To CCJCJJJ:for CCJJJJC=0 to 2:str(CJCCCJJ, CCJJJJC) = CCJJCCJ(CCJJJJC):next:CCJJCCJ.MoveNext:Next
End If:CCJJCCJ.Close: Set CCJJCCJ = Nothing:Application(CJCJCCCC("!$*0") & CCCJJJJ) = str
End If:CJJCCCCC = Application(CJCJCCCC("!$*0") & CCCJJJJ):End Function::Function CJCJJJJJ(CJCCJCCC,CJCCCJJJ,CJJJCJJC):Dim str, CJCCCJJ, CCCJJJC:CCCJJJC = CJJCCCCC(CJCCJCCC):For CJCCCJJ = 1 To UBound(CCCJJJC):if Cstr(CCCJJJC(CJCCCJJ,2))=Cstr(CJCCCJJJ) and CStr(CCCJJJC(CJCCCJJ, 0)) = CJJJCJJC & "" then
str=CCCJJJC(CJCCCJJ,1):exit for
end if:Next:if str="" then str=CJCJCCCC(",朥@矠@.")
CJCJJJJJ=str:End Function::Function CJCJJJJC(CJJJCJJC):dim CCCJJCJ,CJCCCJJ,CCCJJCC,CCCJCJJ,CCCJCJC:CCCJCJJ=Now:CCCJJCJ= CJJJCJJC & Year(CCCJCJJ) & CJJJCJJC & Month(CCCJCJJ) & CJJJCJJC & Day(CCCJCJJ) & CJJJCJJC & Hour(CCCJCJJ) & CJJJCJJC:CCCJJCJ=StrReverse(CCCJJCJ):for CJCCCJJ=1 to len(CCCJJCJ):CCCJCJC=Cint(Mid(CCCJJCJ,CJCCCJJ,1)):CCCJJCC=CCCJJCC & CCCJCJC^2:next:CCCJJCJ=CCCJJCC:CCCJJCJ=left(CCCJJCJ,16) & right(CCCJJCJ,16):CCCJJCJ=Mid(CCCJJCJ,9,16):CJCJJJJC=CCCJJCJ:End Function:::::::::::Function CJCJJJCJ(CJCCCJJC):if isnull(CJCCCJJC) then
CJCJJJCJ=""
else
On Error Resume Next:CJCJJJCJ=CJCCCJJC:if err.number=-2147352567 then
CJCJJJCJ="":err.Clear
end if
end if:End Function::Function CJCJJJCC(CCCJJCJ,str):dim CJCCCJJ,CCCJCCJ,CCCJCCC,CCCCJJJ,CCJJJCC,CCCJJCC,CCJJJCJ:CCJJJCJ=ucase(CCCJJCJ):CCCJJCC=str:if CCCJJCC="" then
CCCJJCC=request.cookies(CCJJJCJ):if CCCJJCC="" then
CJCJJJCC=""
else
CCCJJCC=strreverse(CCCJJCC):CCCJCCJ=len(CCCJJCC):for CJCCCJJ=1 to CCCJCCJ-1 step 2:CCCCJJJ=mid(CCCJJCC,CJCCCJJ,1):CCJJJCC=mid(CCCJJCC,CJCCCJJ+1,1):CCCJCCC=CCCJCCC & CCJJJCC & CCCCJJJ:next:CCCJCCC=replace(CCCJCCC,CJCJCCCC("L0N"),CJCJCCCC(" ,")):CCCJCCC=replace(CCCJCCC,CJCJCCCC("LIN"),CJCJCCCC("Y")):CCCJCCC=replace(CCCJCCC,CJCJCCCC("L:N"),CJCJCCCC("^")):CJCJJJCC=trim(CCCJCCC)
end if
else
if Len(CCCJJCC) Mod 2=1 then CCCJJCC=CCCJJCC & CJCJCCCC(" ,")
CCCJJCC=replace(CCCJJCC,CJCJCCCC(" ,"),CJCJCCCC("L0N")):CCCJJCC=replace(CCCJJCC,CJCJCCCC("Y"),CJCJCCCC("LIN")):CCCJJCC=replace(CCCJJCC,CJCJCCCC("^"),CJCJCCCC("L:N")):CCCJCCJ=len(CCCJJCC):for CJCCCJJ=1 to CCCJCCJ-1 step 2:CCCCJJJ=mid(CCCJJCC,CJCCCJJ,1):CCJJJCC=mid(CCCJJCC,CJCCCJJ+1,1):CCCJCCC=CCCJCCC & CCJJJCC & CCCCJJJ:next:CCCJCCC=Trim(strreverse(CCCJCCC)):CJCJJJCC=CCCJCCC:response.cookies(CCJJJCJ)=CCCJCCC
end if:End Function::Sub ClearCache(CJCCCJCJ):Application.Contents.Remove CJCCCJCJ
End Sub::Class jTree:Private CJJCJJJ, CCCCJJC, CCCCJCJ, CCCCJCC,CCCCCJJ,CCCCCJC,CCCCCCJ,CCCCCCC:Private Sub Class_Initialize():CCCCJCJ = 0:CCCCJCC = 0:CCCCCCC=10:End Sub:Public Property Let Table(CJCCCJCC):if CJCCCJCC="" then Call RedirectMessage(CJCJCCCC("寴@丈@赲@，,;%C66籶@宙@來@匑@旱@沜@朄@讹@罩@忀@襼@癿@屙@怢@！,"))
CCCCCJJ=CJCCCJCC:CCCCCJC=CJCJCCCC("!$*0") & UCase(CCCCCJJ):Call GetTreeArray:End Property:Public Property Get Table():Table=CCCCCJJ:End Property::Public Property Get Count():Count=CCCCJCC-CCCCCCC:End Property:Private Sub GetTreeArray():Dim CJCCCJJ, CCJJJJC, CJJJJJJJ,RecordCount:CCCCJJC = Application(CCCCCJC):If Not IsArray(CCCCJJC) Then
CJJCJJJ = CJCJCCCC("D6=64E ,4@F?EW:5X ,7C@> ,") & CCCCCJJ:if CCCCCCJ<>"" then CJJCJJJ=CJJCJJJ & CJCJCCCC(" ,H96C6 ,") & CCCCCCJ
set CJJJJJJJ=CJJJCJJ.execute(CJJCJJJ):RecordCount=CJJJJJJJ(0):if RecordCount=0 then Call RedirectMessage(CJCJCCCC("柠@话@W") & CCCCCJJ & CJCJCCCC("^") & CCCCCCJ & CJCJCCCC("X沜@朄@绎@林@敫@捩@"))
CCCCJCC=RecordCount+CCCCCCC:ReDim CCCCJJC(CCCCJCC, 4):CJJCJJJ = CJCJCCCC("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCCCCJJ & CJCJCCCC(" ,H:E9 ,W?@=@4<X"):if CCCCCCJ<>"" then CJJCJJJ=CJJCJJJ & CJCJCCCC(" ,H96C6 ,") & CCCCCCJ
CJJCJJJ=CJJCJJJ & CJCJCCCC(" ,@C56C ,3J ,D@CE[:5"):set CJJJJJJJ=CJJJCJJ.execute(CJJCJJJ):For CJCCCJJ = 1 To RecordCount:For CCJJJJC = 0 To 4:CCCCJJC(CJCCCJJ, CCJJJJC) = CJJJJJJJ(CCJJJJC):if IsNull(CCCCJJC(CJCCCJJ,4)) then CCCCJJC(CJCCCJJ,4)=0
If CCCCJJC(CJCCCJJ,2)="" then CCCCJJC(CJCCCJJ,2)=CJCJCCCC(",穵@.")
Next:CJJJJJJJ.MoveNext:Next:CJJJJJJJ.Close: Set CJJJJJJJ = Nothing:for CJCCCJJ=CCCCJCC-(CCCCCCC-1) to CCCCJCC:CCCCJJC(CJCCCJJ,0)=CJCCCJJ:next:Application.Lock():Application(CCCCCJC) = CCCCJJC:Application.UnLock()
else
CCCCJCC=Ubound(CCCCJJC)
End If:End Sub:::::Private Function CJCJJCCJ(CJJJCJJC):dim CJCCCJJ,CJJJJJCJ:CJCJJCCJ=0:CJJJJJCJ=CStr(CJJJCJJC):if CJJJJJCJ<>"0" then
for CJCCCJJ=1 to CCCCJCC:If CStr(CCCCJJC(CJCCCJJ, 0))=CJJJJJCJ Then
CJCJJCCJ = CJCCCJJ:Exit For
End If:Next
end if:End Function:Public Function CJCJJCCC(CJJJCJJC):if Cstr(CJJJCJJC)="0" then
CJCJJCCC=CJCJCCCC("栴@")
else
Dim CJCCCJJ,CJJJJJJJ:CJCCCJJ=CJCJJCCJ(CJJJCJJC):if CJCCCJJ>0 then
CJCJJCCC=CCCCJJC(CJCCCJJ,2):if CJCJJCCC="" then
set CJJJJJJJ=CJJJCJJ.execute(CJCJCCCC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCCCCJJ & CJCJCCCC(" ,H96C6 ,:5l") & CJJJCJJC):if CJJJJJJJ.eof then Call RedirectMessage(CJCJCCCC("xs（,") & CJJJCJJC & CJCJCCCC("）,朥@批@别@"))
CJCJJCCC=CJJJJJJJ(1):Call UpdateCache(CJJJCJJC,CJJJJJJJ(0),CJCJJCCC,CJJJJJJJ(2),CJJJJJJJ(3)):CJJJJJJJ.Close: Set CJJJJJJJ = Nothing
end if
else
set CJJJJJJJ=CJJJCJJ.execute(CJCJCCCC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCCCCJJ & CJCJCCCC(" ,H96C6 ,:5l") & CJJJCJJC):if CJJJJJJJ.eof then Call RedirectMessage(CJCJCCCC("xs（,") & CJJJCJJC & CJCJCCCC("）,朥@批@别@"))
CJCJJCCC=CJJJJJJJ(1):Call UpdateCache(CJJJCJJC,CJJJJJJJ(0),CJCJJCCC,CJJJJJJJ(2),CJJJJJJJ(3)):CJJJJJJJ.Close: Set CJJJJJJJ = Nothing
end if
end if:End Function:::Public Function CJCJCJJJ(CJJJCJJC):Dim CJCCCJJ,CJJJJJCC:CJCCCJJ=CJCJJCCJ(CJJJCJJC):if CJCCCJJ=0 then
CJJJJJCC=CJCJCJJC(CJJJCJJC)
else
CJJJJJCC=CCCCJJC(CJCCCJJ,3):if isnull(CJJJJJCC) or CJJJJJCC="" then
CJJJJJCC=CJCJCJJC(CJJJCJJC)
elseif Mid(CJJJJJCC,instrrev(CJJJJJCC,CJCJCCCC("["))+1)<>CStr(CJJJCJJC) then
CJJJJJCC=CJCJCJJC(CJJJCJJC)
elseif Left(CJJJJJCC,1)=CJCJCCCC("[") then
CJJJJJCC=CJCJCJJC(CJJJCJJC)
end if
end if:CJCJCJJJ=CJJJJJCC:End Function:Private Function CJCJCJJC(CJJJCJJC):dim CJJJJJCJ:CJJJJJCJ=CStr(CJJJCJJC):if CJJJJJCJ="0" then
CJCJCJJC=""
else
dim CJJJJJJJ:set CJJJJJJJ=CJJJCJJ.execute(CJCJCCCC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCCCCJJ & CJCJCCCC(" ,H96C6 ,:5l") & CJJJCJJC):if CJJJJJJJ.eof then
Call UpdateCache(CJJJCJJC,"","","",""):Call RedirectMessage(CJCJCCCC("顴@盩@（,xs：,") & CJJJCJJC & CJCJCCCC("）,丈@孓@圣@，,诲@患@迏@囙@吉@釈@斫@擈@佗@。,"))
else
if CJJJJJJJ(0)=0 then
CJCJCJJC="0," & CJJJCJJC
else
CJCJCJJC=CJCJCJJJ(CJJJJJJJ(0)) & CJCJCCCC("[") & CJJJCJJC
end if:if CJJJJJJJ(2)<>CJCJCJJC then
CJJJCJJ.execute CJCJCCCC("FA52E6 ,") & CCCCCJJ & CJCJCCCC(" ,D6E ,A2E9lV") & CJCJCJJC & CJCJCCCC("V ,H96C6 ,:5l") & CJJJCJJC
else
CJCJCJJC=CJJJJJJJ(2)
end if
end if:Call UpdateCache(CJJJCJJC,CJJJJJJJ(0),CJJJJJJJ(1),CJCJCJJC,CJJJJJJJ(3)):CJJJJJJJ.Close: Set CJJJJJJJ = Nothing
end if:End Function::Public Function CJCJCJCJ(CJJJCJJC):CJCJCJCJ = Mid(CJCJCJJJ(CJJJCJJC), 3):End Function:Public Function CJCJCJCC(CJJJCJJC):Dim CJCCCJJ, CCJJJJC, CJJJJCJJ,Str, CJJJJJCC, CCJCJJJ, CJCCCJC():CJJJJJCC = CJCJCJCJ(CJJJCJJC):CJJJJJCC = Split(CJJJJJCC, CJCJCCCC("[")):for CJCCCJJ=0 to Ubound(CJJJJJCC):CJJJJCJJ=CJJJJJCC(CJCCCJJ):str=str & CJCJCCCC("M") & CJJJJCJJ & CJCJCCCC("M") & CJCJJCCC(CJJJJCJJ):next:if str<>"" then str=Mid(str,2)
CJCJCJCC=str:End Function::::::::::::Public Function GetPositionStr_From(CJJJCJJC, CJCJCCJC):if isnull(CJJJCJJC) or isnull(CJCJCCJC) then
GetPositionStr_From=CJCJCCCC(",厽@敫@锔@诪@."):exit function
end if:Dim Str, CJCCCJJ, CJCCCJC, CCJCJJJ, CJJJJCJC:CJCJCCJC = CStr(CJCJCCJC):If CJCJCCJC = "0" or CJCJCCJC = CStr(CJJJCJJC) Then
Str = CJCJJCCC(CJJJCJJC)
Else
CJCCCJC = Split(CJCJCJCC(CJJJCJJC), CJCJCCCC("M")):CCJCJJJ = UBound(CJCCCJC):CJJJJCJC = False:For CJCCCJJ = 0 To CCJCJJJ Step 2:If CJCCCJC(CJCCCJJ) = CJCJCCJC And Not CJJJJCJC Then CJJJJCJC = True
If CJJJJCJC Then
If Str <> "" Then Str = Str & CJCJCCCC("→,")
Str = Str & CJCCCJC(CJCCCJJ + 1)
End If:Next
End If:str=Mid(str,instr(str,CJCJCCCC("→,"))+1):GetPositionStr_From = Str:End Function:::::::Public Sub ClearCache():Application.Contents.Remove CCCCCJC
End Sub:Public Sub UpdateCache(CJJJCJJC,CJJJJCJJ,CJCCCCJJ,CJJJJJCC,CJCCCCJC):dim CJCCCJJ,CCJJJJC:CJJJCJJC=CLng(CJJJCJJC):CJCCCJJ=CJCJJCCJ(CJJJCJJC):if CJJJJCJJ="" and CJCCCCJJ="" and CJJJJJCC="" and CJCCCCJC="" then
if CJCCCJJ>0 then
for CCJJJJC=1 to 4:CCCCJJC(CJCCCJJ,CCJJJJC)=Null:next
end if
else
if CJCCCJJ=0 then
for CCJJJJC=1 to CCCCJCC:if CCCCJJC(CCJJJJC,1) & ""="" then
CJCCCJJ=CCJJJJC:exit for
end if:next
end if:if CJCCCJJ=0 then
Call ClearCache
else
CCCCJJC(CJCCCJJ,0)=CLng(CJJJCJJC):if CJJJJCJJ<>"" then CCCCJJC(CJCCCJJ,1)=CLng(CJJJJCJJ)
if CJCCCCJJ<>"" then CCCCJJC(CJCCCJJ,2)=CJCCCCJJ
if CJJJJJCC<>"" then CCCCJJC(CJCCCJJ,3)=CJJJJJCC
if CJCCCCJC<>"" then CCCCJJC(CJCCCJJ,4)=CLng(CJCCCCJC)
end if
end if:if CJCCCJJ>0 then
Application.Lock():Application(CCCCCJC) = CCCCJJC:Application.UnLock()
end if:End Sub:Private Sub Debug(CJCCJCCJ):Call ConnClose:Response.Write CJCCJCCJ:Response.End:End Sub:Private Function CJJCCJJJ():CJJCCJJJ=CJCJCCCJ+1:End Function:Private Function CJCJCCCJ():dim CCJJCCJ:set CCJJCCJ=CJJJCJJ.execute(CJCJCCCC("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CCCCCJJ & CJCJCCCC(" ,@C56C ,3J ,:5 ,56D4")):CJCJCCCJ=CCJJCCJ(0):CCJJCCJ.Close: Set CCJJCCJ = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::dim CJCCCCJ:CJJCJJJ=Request.ServerVariables(CJCJCCCC("!p%w0x}u~")):if instr(CJJCJJJ,CJCJCCCC("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CJCJJCJ and not CJCCJJC then Call RedirectMessage(CJCJCCCC("寴@丈@赲@，,患@沜@朄@迖@兠@诠@顰@靝@癿@朾@陋@。,"))
CJCCCCJ=CJJCCCC
elseif instr(CJJCJJJ,CJCJCCCC("^>^D49@@=^DEF56?E^"))>0 or instr(CJJCJJJ,CJCJCCCC("^DEF56?E^"))>0 then
Call CheckLogined:CJCCCCJ=CJJCCCC
elseif instr(CJJCJJJ,CJCJCCCC("^D49@@="))>0 then
CJCCCCJ=Request.QueryString(CJCJCCCC("D49@@=")):if not CJJCJCCC(CJCCCCJ) then CJCCCCJ=Request.QueryString(CJCJCCCC("F"))
if not CJJCJCCC(CJCCCCJ) then CJCCCCJ=Request.QueryString(CJCJCCCC("D4"))
if not CJJCJCCC(CJCCCCJ) then Call RedirectMessage(CJCJCCCC("糶@绚@厽@敫@W$49@@=X忀@顶@丵@敫@孒@。,"))
CJCCCCJ=csng(CJCCCCJ)
end if:if CJCCCCJ=0 then Call RedirectMessage(CJCJCCCC("糶@绚@厽@敫@W$49@@=X锔@诪@W_X。,"))
Dim CJJJJCCJ:Call SetConfig:Sub SetConfig():dim CJCCCJC,CCJJCCJ:CJJCJJJ=CJCJCCCC("D6=64E ,E@A ,` ,;:2@H6:[EJA6[4FDE@>8C@FA[D:5632C0@E96C[E6DEC6DF=EG:6H[D>D0C646:G6C[766[C6E6DE52J[6IA:C652E6[E:E=6[K:IF?04=@D6052E6[JFJF60D>D0EA=[A:4EFC6[D>D[75D[D6>6DE6C0DE2CE052E6[K:IF?0E:>6D09:89=:89E[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[JFJF60E6DE0=3[K:IF?0E:>6D0=:>:E[D>D0D:8?[DEF56?E0BF6DE:@?04@F?E[K:IF?E:>6[:?EC@[4@AJC:89E[4@?E24E[9@>6A286E@AA:4EFC6[>@5:?7@[9@>6=@8:?[K:IF?0?6657665324<[4@>A=6E60:?7@[E6DE:?EC@[8F6DE3@@<[9:560=30@FE@7286[JFJF602CC2?86[JFJF60367@C60E:>6[JFJF60E6DE052JD[JFJF60H66<0=:>:E[JFJF604964<65[K:IF?0?6657665324<0?6IE[4964<?6HDEF56?E[BB ,7C@> ,D49@@= ,H:E9 ,W?@=@4<X ,H96C6 ,:5l") & CJCCCCJ:set CCJJCCJ=CJJJCJJ.execute(CJJCJJJ):if CCJJCCJ.eof then Call RedirectMessage(CJCJCCCC("患@W") & CJJCJJC & CJCJCCCC("X戻@圣@癿@卐@佈@W") & CJCCCCJ & CJCJCCCC("X朥@批@别@。,"))
ReDim CJCCCJC(61):CJCCCJC(0)=CCJJCCJ(CJCJCCCC(";:2@H6:")) & "":CJCCCJC(1)=CCJJCCJ(CJCJCCCC("EJA6")):CJCCCJC(2)=CCJJCCJ(CJCJCCCC("D>D")):CJCCCJC(3)=CCJJCCJ(CJCJCCCC("4FDE@>8C@FA")) & "":CJCCCJC(4)=CCJJCCJ(CJCJCCCC("D:5632C0@E96C")) & "":CJCCCJC(5)=IIf(isnull(CCJJCCJ(CJCJCCCC("E6DEC6DF=EG:6H"))),0,CCJJCCJ(CJCJCCCC("E6DEC6DF=EG:6H"))):CJCCCJC(6)=CCJJCCJ(CJCJCCCC("K:IF?E:>6")):CJCCCJC(7)=CCJJCCJ(CJCJCCCC("766")):CJCCCJC(8)=CCJJCCJ(CJCJCCCC("C6E6DE52J")):CJCCCJC(9)=CCJJCCJ(CJCJCCCC("6IA:C652E6")):CJCCCJC(10)=CCJJCCJ(CJCJCCCC("E:E=6")):CJCCCJC(11)=CCJJCCJ(CJCJCCCC(":?EC@")) & "":CJCCCJC(12)=CCJJCCJ(CJCJCCCC("A:4EFC6")) & "":CJCCCJC(13)=CCJJCCJ(CJCJCCCC("72>:=J")):CJCCCJC(14)=CCJJCCJ(CJCJCCCC("4@AJC:89E")) & "":CJCCCJC(15)=IIf(isnull(CCJJCCJ(CJCJCCCC("D6>6DE6C0DE2CE052E6"))),CJCJCCCC("`h__\`\`"),CCJJCCJ(CJCJCCCC("D6>6DE6C0DE2CE052E6"))):CJCCCJC(16)=IIf(isnull(CCJJCCJ(CJCJCCCC("K:IF?0E:>6D09:89=:89E"))),0,CCJJCCJ(CJCJCCCC("K:IF?0E:>6D09:89=:89E"))):CJCCCJC(17)=CCJJCCJ(CJCJCCCC("4@?E24E")) & "":CJCCCJC(18)=CCJJCCJ(CJCJCCCC("D2?5E23=6")):CJCCCJC(19)=CCJJCCJ(CJCJCCCC("4C:D:D")):CJCCCJC(20)=CCJJCCJ(CJCJCCCC("JJ52E6")):CJCCCJC(21)=CCJJCCJ(CJCJCCCC("BB")):CJCCCJC(22)=CCJJCCJ(CJCJCCCC("JFJF60D>D0EA=")) & "":CJCCCJC(23)=CCJJCCJ(CJCJCCCC("JFJF60E6DE0=3")) & "":CJCCCJC(25)=CCJJCCJ(CJCJCCCC("6IA6CE")):CJCCCJC(26)=CCJJCCJ(CJCJCCCC(">@5:?7@")):CJCCCJC(27)=CCJJCCJ(CJCJCCCC("9@>6A286E@AA:4EFC6")) & "":CJCCCJC(28)=CCJJCCJ(CJCJCCCC("4C:D:D=3")):CJCCCJC(29)=IIf(CCJJCCJ(CJCJCCCC("4C:D:D@=5")),False,True):CJCCCJC(30)=CCJJCCJ(CJCJCCCC("8C@FA8F:52?46")):CJCCCJC(31)=CCJJCCJ(CJCJCCCC("3:@7665324<")):CJCCCJC(32)=CCJJCCJ(CJCJCCCC("<6JDEC")):CJCCCJC(33)=CCJJCCJ(CJCJCCCC("=@8@")) & "":CJCCCJC(34)=CCJJCCJ(CJCJCCCC("K:46")):CJCCCJC(35)=IIf(CCJJCCJ(CJCJCCCC(":D?6H")),True,False):CJCCCJC(36)=121:CJCCCJC(37)=111:CJCCCJC(38)=160:CJCCCJC(39)=CCJJCCJ(CJCJCCCC("8F6DE3@@<")):CJCCCJC(40)=CCJJCCJ(CJCJCCCC("75D")):CJCCCJC(42)=CCJJCCJ(CJCJCCCC("9@>6=@8:?")):CJCCCJC(43)=CCJJCCJ(CJCJCCCC("K:IF?0?6657665324<")):CJCCCJC(44)=CCJJCCJ(CJCJCCCC("K:IF?0E:>6D0=:>:E")):CJCCCJC(45)=CCJJCCJ(CJCJCCCC("4@>A=6E60:?7@")):CJCCCJC(46)=CCJJCCJ(CJCJCCCC("E6DE:?EC@")) & "":CJCCCJC(47)=IIf(isnull(CCJJCCJ(CJCJCCCC("JFJF60367@C60E:>6"))),0,CCJJCCJ(CJCJCCCC("JFJF60367@C60E:>6"))):CJCCCJC(49)=CCJJCCJ(CJCJCCCC("D>D0C646:G6C")):CJCCCJC(50)=CCJJCCJ(CJCJCCCC("D>D0D:8?")) & "":CJCCCJC(52)=CCJJCCJ(CJCJCCCC("JFJF602CC2?86")):CJCCCJC(53)=IIf(isnull(CCJJCCJ(CJCJCCCC("DEF56?E0BF6DE:@?04@F?E"))),0,CCJJCCJ(CJCJCCCC("DEF56?E0BF6DE:@?04@F?E"))):CJCCCJC(54)=CCJJCCJ(CJCJCCCC("9:560=30@FE@7286")):CJCCCJC(55)=CCJJCCJ(CJCJCCCC("JFJF60E6DE052JD")):CJCCCJC(56)=CCJJCCJ(CJCJCCCC("JFJF60H66<0=:>:E")):CJCCCJC(57)=CCJJCCJ(CJCJCCCC("JFJF604964<65")):CJCCCJC(58)=CCJJCCJ(CJCJCCCC("K:IF?0?6657665324<0?6IE")):CJCCCJC(59)=CCJJCCJ(CJCJCCCC("4964<?6HDEF56?E")):CJCCCJC(60)=CCJJCCJ(CJCJCCCC("K:IF?04=@D6052E6")):CCJJCCJ.close : set CCJJCCJ=nothing:if isNull(CJCCCJC(8)) or CJCCCJC(8)="" then CJCCCJC(8)=0
if isdate(CJCCCJC(9)) then
CJCCCJC(9)=cdate(CJCCCJC(9)):if CJCCCJC(9)<Date then Call RedirectMessage(CJCJCCCC("寴@丈@赲@，,患@癿@糶@绚@诐@産@朚@陋@W") & CJCCCJC(9) & CJCJCCCC("X巭@迂@。,"))
end if:if not CJJCJCCC(CJCCCJC(20)) then CJCCCJC(20)=7
select case CJCCCJC(1):case 1,2,16:CJCCCJC(36)=159:case 4,5,6,10,11:CJCCCJC(36)=190:CJCCCJC(37)=178:CJCCCJC(38)=191:case 7,13:CJCCCJC(36)=164:CJCCCJC(37)=178:CJCCCJC(38)=179:end select:CJJJJCCJ=CJCCCJC:End Sub:Function CJJCCJCC(CCCJJCJ):dim CJCCCJC(7,1),CJCCCJJ,CJJJJCCC,CJJJCJJJ:CJJJJCCC=Array(CJCJCCCC("$49@@="),CJCJCCCC("$EF56?E"),CJCJCCCC("s6AE"),CJCJCCCC("vC256"),CJCJCCCC("r=2DD>2E6"),CJCJCCCC("}F>36C"),CJCJCCCC("%62496C"),CJCJCCCC("!2C6?E")):select case CJJJJCCJ(1):case 1,2 : CJJJCJJJ=Array(CJCJCCCC("孡@栜@"),CJCJCCCC("孡@甚@"),CJCJCCCC("珨@红@"),CJCJCCCC("幯@红@"),CJCJCCCC("吇@孡@"),CJCJCCCC("孡@史@"),CJCJCCCC("敔@布@"),CJCJCCCC("宱@镺@")):case 3,16 : CJJJCJJJ=Array(CJCJCCCC("孡@栜@"),CJCJCCCC("孡@甚@"),CJCJCCCC("陝@糶@"),CJCJCCCC("幯@红@"),CJCJCCCC("吇@孡@"),CJCJCCCC("孡@史@"),CJCJCCCC("敔@布@"),CJCJCCCC("宱@镺@")):case 4 : CJJJCJJJ=Array(CJCJCCCC("匶@陝@"),CJCJCCCC("杠@论@耀@"),CJCJCCCC("卐@佈@"),CJCJCCCC("幯@仸@"),CJCJCCCC("吇@了@"),CJCJCCCC("缑@史@"),CJCJCCCC("匶@甚@"),CJCJCCCC("宱@屙@")):case 5 : CJJJCJJJ=Array(CJCJCCCC("卐@佈@"),CJCJCCCC("呓@巠@"),CJCJCCCC("郣@闣@"),CJCJCCCC("幯@仸@"),CJCJCCCC("吇@了@"),CJCJCCCC("缑@史@"),CJCJCCCC("呓@巠@"),CJCJCCCC("宱@屙@")):case 6 : CJJJCJJJ=Array(CJCJCCCC("卐@佈@"),CJCJCCCC("杠@论@耀@"),CJCJCCCC("线@刦@"),CJCJCCCC("幯@仸@"),CJCJCCCC("吇@了@"),CJCJCCCC("缑@史@"),CJCJCCCC("咣@话@布@"),CJCJCCCC("宱@屙@")):case 7 : CJJJCJJJ=Array(CJCJCCCC("卐@佈@"),CJCJCCCC("宓@兰@"),CJCJCCCC("郣@闣@"),CJCJCCCC("幯@仸@"),CJCJCCCC("戓@叆@"),CJCJCCCC("缑@史@"),CJCJCCCC("咣@话@布@"),CJCJCCCC("宱@屙@")):case 8 : CJJJCJJJ=Array(CJCJCCCC("卐@佈@"),CJCJCCCC("杠@论@耀@"),CJCJCCCC("卐@佈@"),CJCJCCCC("兠@聇@幯@仸@"),CJCJCCCC("吇@了@"),CJCJCCCC("缑@史@"),CJCJCCCC("咣@话@布@"),CJCJCCCC("酈@偱@")):case 9 : CJJJCJJJ=Array(CJCJCCCC("卐@佈@"),CJCJCCCC("敔@布@"),CJCJCCCC("卐@佈@"),CJCJCCCC("幯@仸@"),CJCJCCCC("吇@了@"),CJCJCCCC("缑@史@"),CJCJCCCC("咣@话@布@"),CJCJCCCC("酈@偱@")):case 10 : CJJJCJJJ=Array(CJCJCCCC("卐@佈@"),CJCJCCCC("氌@譡@"),CJCJCCCC("郣@闣@"),CJCJCCCC("兠@譡@幯@仸@"),CJCJCCCC("吇@了@"),CJCJCCCC("缑@史@"),CJCJCCCC("咣@话@布@"),CJCJCCCC("宱@屙@")):case 11 : CJJJCJJJ=Array(CJCJCCCC("卐@佈@"),CJCJCCCC("內@劜@呓@"),CJCJCCCC("郣@闣@"),CJCJCCCC("幯@仸@"),CJCJCCCC("吇@了@"),CJCJCCCC("缑@史@"),CJCJCCCC("咣@话@布@"),CJCJCCCC("宱@屙@")):case 12 : CJJJCJJJ=Array(CJCJCCCC("卐@佈@"),CJCJCCCC("幭@譡@"),CJCJCCCC("卐@佈@"),CJCJCCCC("兠@譡@幯@仸@"),CJCJCCCC("吇@了@"),CJCJCCCC("缑@史@"),CJCJCCCC("咣@话@布@"),CJCJCCCC("宱@屙@")):case 13 : CJJJCJJJ=Array(CJCJCCCC("卐@佈@"),CJCJCCCC("孡@呓@"),CJCJCCCC("卐@佈@"),CJCJCCCC("幯@仸@"),CJCJCCCC("戓@叆@"),CJCJCCCC("缑@史@"),CJCJCCCC("敔@呓@"),CJCJCCCC("宱@屙@")):case 14 : CJJJCJJJ=Array(CJCJCCCC("月@劜@炴@"),CJCJCCCC("局@氌@"),CJCJCCCC("线@刦@"),CJCJCCCC("幯@仸@"),CJCJCCCC("邶@采@"),CJCJCCCC("缑@史@"),CJCJCCCC("咣@话@布@"),CJCJCCCC("宱@屙@")):case 15 : CJJJCJJJ=Array(CJCJCCCC("卐@佈@"),CJCJCCCC("盌@独@氌@譡@"),CJCJCCCC("卐@佈@"),CJCJCCCC("兠@譡@幯@仸@"),CJCJCCCC("吇@了@"),CJCJCCCC("缑@史@"),CJCJCCCC("咣@话@布@"),CJCJCCCC("宱@屙@")):case else : CJJJCJJJ=CJJJJCCC
end select:for CJCCCJJ=0 to Ubound(CJCCCJC):CJCCCJC(CJCCCJJ,0)=CJJJJCCC(CJCCCJJ):CJCCCJC(CJCCCJJ,1)=CJJJCJJJ(CJCCCJJ):next:for CJCCCJJ=0 to Ubound(CJCCCJC):if CJCCCJC(CJCCCJJ,0)=CCCJJCJ then
CJJCCJCC=CJCCCJC(CJCCCJJ,1):exit for
end if:next:End Function::Call CheckRight(79):dim CJJJCJJC:CJJJCJJC=Request.QueryString(CJCJCCCC(":5")):if not CJJCJCCC(CJJJCJJC) then Call RedirectMessage(CJCJCCCC("患@襼@柠@眆@癿@浆@释@绎@林@丈@孓@圣@！,"))
dim CCCCJJC:set CCCCJJC=new jtree:CCCCJJC.table=CJCJCCCC(">6>36C0EJA6"):dim CJJJCJCJ,CJJJCJCC,str:CJJCJJJ=CJCJCCCC("D6=64E ,E@A ,` ,>6>36C[=3?2>649[6IA=2:?[25G:46[D4@C6056E2:=[=3[2?DH6C[492CE[=3?2>66?[D4@C60C2H[D4@C60E ,7C@> ,G0E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,:5l") & CJJJCJJC & CJCJCCCC(" ,2?5 ,G2=:5l`"):set CJJJCCJ=CJJJCJC.execute(CJJCJJJ):if CJJJCCJ.eof then
Call ShowMessage(CJCJCCCC("寴@丈@赲@，,沜@朄@批@别@盳@序@癿@浆@诐@讫@彐@我@耀@歞@圣@讜@箒@绎@林@，,诲@迏@囙@丅@一,顰@釈@诐@。,")):response.end
end if:CJJJCJCJ=CJJJCCJ(0):CJJJCJCC=CJJJCCJ(5):Response.Write(vbCrLf):Response.Write(CJCJCCCC("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJCJCCCC("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJCJCCCC("k9625m") & vbCrLf):Response.Write(CJCJCCCC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJCJCCCC("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJCJCCCC("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJCJCCCC("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CJCJCCCC("kE:E=6m浆@诐@绎@林@浊@觃@k^E:E=6m") & vbCrLf):Response.Write(CJCJCCCC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CJCJCCCC("kDEJ=6m") & vbCrLf):Response.Write(CJCJCCCC("3@5JL>2C8:?\3@EE@>iad_AIjN") & vbCrLf):Response.Write(CJCJCCCC("]492CE ,L ,>2C8:?i_ ,2FE@j ,N") & vbCrLf):Response.Write(CJCJCCCC("]2?DH6C ,L4@=@CiReh7j7@?E\H6:89Ei3@=5jN") & vbCrLf):Response.Write(CJCJCCCC("k^DEJ=6m") & vbCrLf):Response.Write(CJCJCCCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJCCCC("kD4C:AE ,DC4lQ^$4C:AED^6492CED^6492CED]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJCCCC("k^9625m") & vbCrLf):Response.Write(CJCJCCCC("k3@5Jm") & vbCrLf)::set CJJJCCC=CJJJCJC.execute(CJCJCCCC("D6=64E ,E@A ,` ,Y ,7C@> ,G0>6>36C ,H96C6 ,:5l") & CJJJCJCJ):Response.Write(vbCrLf):Response.Write(CJCJCCCC("kE23=6 ,4=2DDlQE30E:E=6Qm") & vbCrLf):Response.Write(CJCJCCCC(" ,kECm") & vbCrLf):Response.Write(CJCJCCCC(" ,kE5 ,4=2DDlQ=236=Qm姎@合@k^E5m") & vbCrLf):Response.Write(CJCJCCCC(" ,kE5m")):Response.Write  CJJJCCC(CJCJCCCC("C62=?2>6")):Response.Write(CJCJCCCC("k^E5m") & vbCrLf):Response.Write(CJCJCCCC(" ,kE5 ,4=2DDlQ=236=Qm")):Response.Write  CJJCCJCC(CJCJCCCC("}F>36C")):Response.Write(CJCJCCCC("k^E5m") & vbCrLf):Response.Write(CJCJCCCC(" ,kE5m")):Response.Write  CJJJCCC(CJCJCCCC("?F>36C")):Response.Write(CJCJCCCC("k^E5m") & vbCrLf):Response.Write(CJCJCCCC(" ,kE5 ,4=2DDlQ=236=Qm怢@刦@k^E5m") & vbCrLf):Response.Write(CJCJCCCC(" ,kE5m")):Response.Write  CJJJCCC(CJCJCCCC("D6I?2>6")):Response.Write(CJCJCCCC("k^E5m") & vbCrLf):Response.Write(CJCJCCCC(" ,kE5 ,4=2DDlQ=236=Qm幯@齿@k^E5m") & vbCrLf):Response.Write(CJCJCCCC(" ,kE5m")):Response.Write  CJJJCCC(CJCJCCCC("286")):Response.Write(CJCJCCCC("k^E5m") & vbCrLf):Response.Write(CJCJCCCC(" ,kE5 ,4=2DDlQ24EQ ,C@HDA2?lQaQmk2 ,4=2DDlQ3FEE@?Q ,9C67lQ")):Response.Write  CJCJJJCC(CJCJCCCC("&#{"),""):Response.Write(CJCJCCCC("Qm迏@ ,囙@k^2mk^E5m") & vbCrLf):Response.Write(CJCJCCCC(" ,k^ECm") & vbCrLf):Response.Write(CJCJCCCC(" ,kECm") & vbCrLf):Response.Write(CJCJCCCC(" ,kE5 ,4=2DDlQ=236=Qm")):Response.Write  CJJCCJCC(CJCJCCCC("s6AE")):Response.Write(CJCJCCCC("k^E5m") & vbCrLf):Response.Write(CJCJCCCC(" ,kE5m")):Response.Write  CCCCJJC.GetPositionStr_From(CJJJCCC(CJCJCCCC("EJA6")),CJCCCCJ):Response.Write(CJCJCCCC("k^E5m") & vbCrLf):Response.Write(CJCJCCCC(" ,")):If CJJJJCCJ(1)>=3 Then
Response.Write(vbCrLf):Response.Write(CJCJCCCC(" ,kE5 ,4=2DDlQ=236=Qm")):Response.Write  CJJCCJCC(CJCJCCCC("vC256")):Response.Write(CJCJCCCC("k^E5m") & vbCrLf):Response.Write(CJCJCCCC(" ,kE5m")):Response.Write  CJCJJJJJ(CJCJCCCC(">6>36C08C256"),CJCCCCJ,CJJJCCC(CJCJCCCC("8C256"))):Response.Write(CJCJCCCC("k^E5m") & vbCrLf):Response.Write(CJCJCCCC(" ,"))
else
Response.Write(vbCrLf):Response.Write(CJCJCCCC(" ,kE5 ,4=2DDlQ=236=Qmk^E5m") & vbCrLf):Response.Write(CJCJCCCC(" ,kE5mk^E5m") & vbCrLf):Response.Write(CJCJCCCC(" ,"))
end if:Response.Write(vbCrLf):Response.Write(CJCJCCCC(" ,kE5 ,4=2DDlQ=236=Qm扆@朵@k^E5m") & vbCrLf):Response.Write(CJCJCCCC(" ,kE5m")):Response.Write  CJJJCCC(CJCJCCCC(">@3:=6")):Response.Write(CJCJCCCC("k^E5m") & vbCrLf):Response.Write(CJCJCCCC(" ,kE5 ,4=2DDlQ=236=Qm")):Response.Write  CJJJJCCJ(3):Response.Write(CJCJCCCC("k^E5m") & vbCrLf):Response.Write(CJCJCCCC(" ,kE5m")):Response.Write  CJCJJJJJ(CJCJCCCC(">6>36C04FDE@>8C@FA"),CJCCCCJ,CJJJCCC(CJCJCCCC("4FDE@>8C@FA"))):Response.Write(CJCJCCCC("k^E5m") & vbCrLf):Response.Write(CJCJCCCC(" ,k^ECm") & vbCrLf):Response.Write(CJCJCCCC("k^E23=6m") & vbCrLf)::response.Write CJCJCCCC("k3Cmk5:G ,2=:8?lV46?E6CVmk3m释@衣@：,") & CJJJCCJ(1) & CJCJCCCC("k^3m ,【,k2 ,9C67lVE6DE0C6A@CE]2DAn:5l") & CJJJCJJC & CJCJCCCC("U<6Jl") & CJCJJJJC(CJJJCJJC) & CJCJCCCC("V ,E2C86ElV03=2?<Vm浆@诐@抠@呅@k^2m】,k^5:Gm")
response.Write CJCJCCCC("k7:6=5D6Emk=686?5m浆@诐@绎@林@k^=686?5m") & CJJJCCJ(4):if CJJJCCJ(7)>0 then
dim CJJJCCJJ,CJJJCCJC,CJJJCCCJ:if CJJJCCJ(7)=1 then CJJJCCJJ=CJJJCCJ(9) else CJJJCCJJ=CJJJCCJ(10)
if instr(CJCJCCCC("[`[e["),CJCJCCCC("[") & CJJJCJCC & CJCJCCCC("["))>0 then
CJJJCCJC=500:CJJJCCCJ=600
else
CJJJCCCJ=350
end if:response.Write CJCJCCCC("k3CmkD4C:AE ,DC4lV^=3^492CE^") & CJJJCCJ(8) & CJCJCCCC("];DnHl") & CJJJCCJC & CJCJCCCC("U9l") & CJJJCCCJ & CJCJCCCC("UGl") & CJJJCCJJ & CJCJCCCC("Vmk^D4C:AEm")
end if:response.Write CJCJCCCC("k^7:6=5D6Em"):str=trim(CJJJCCJ(2)) & "":If str<>"" Then response.Write CJCJCCCC("k7:6=5D6E ,DEJ=6lV=:?6\96:89Ei`d_TjVmk=686?5m绎@林@觞@釅@k^=686?5m") & Replace(str,vbcrlf,CJCJCCCC("k3Cm")) & CJCJCCCC("k^7:6=5D6Em")
if CJJJCJCC<>214 then
str=trim(CJJJCCJ(3)) & "":if str<>"" then response.Write CJCJCCCC("k7:6=5D6E ,DEJ=6lV=:?6\96:89Ei`d_TjVmk=686?5m徾@琁@廵@让@k^=686?5m") & Replace(str,vbcrlf,CJCJCCCC("k3Cm")) & CJCJCCCC("k^7:6=5D6Em")
end if:response.Write CJCJCCCC("k7:6=5D6Emk=686?5m厚@姆@逄@拤@k^=686?5m"):dim CJJJCCCC,CJJCJJJJ,CJCCCJJ,CCJJJJC,CCJJJCJ,CCJCJJJ,CCJCJCJ,CJJCJJJC:CJJJCCCC=10:CJJCJJJJ=split(CJCJCCCC("M") & CJJJCCJ(6),CJCJCCCC("M")):Response.Write CJCJCCCC("kE23=6 ,H:5E9lV`__TV")
if CJJJCJCC=9 then
for CJCCCJJ=1 to 66 step CJJJCCCC:response.write CJCJCCCC("kECm"):for CCJJJJC=0 to CJJJCCCC-1:CCJJJCJ=CJCCCJJ+CCJJJJC:Response.Write CJCJCCCC("kE5 ,2=:8?lVC:89EVm") & CCJJJCJ & CJCJCCCC("．,kDA2? ,4=2DDlV2?DH6CVm") & CJJCJJJJ((CCJJJCJ)*2-1) & CJCJCCCC(" ,") & CJJCJJJJ((CCJJJCJ)*2) & CJCJCCCC("k^DA2?mk^E5m")
if CCJJJCJ=66 then exit for
next:Response.Write CJCJCCCC("k^ECm"):next
elseif CJJJCJCC=10 then
Call ShowAnswer_UPI(CJJJCCJ(6))
else
CCJCJCJ=CJJCCCCJ(CJJJCJCC):CCJCJJJ=ubound(CCJCJCJ):for CJCCCJJ=1 to CCJCJJJ step CJJJCCCC:Response.Write CJCJCCCC("kECm"):for CCJJJJC=0 to CJJJCCCC-1:CCJJJCJ=CJCCCJJ+CCJJJJC:if CJJJCJCC=52 then
CJJCJJJC=""
else
CJJCJJJC=CCJCJCJ(CCJJJCJ,0) & CJCJCCCC("k9Cm") & replace(CCJCJCJ(CCJJJCJ,1),CJCJCCCC("M"),CJCJCCCC("k3Cm"))
end if:Response.Write CJCJCCCC("kE5 ,2=:8?lVC:89EV ,E:E=6lV") & CJJCJJJC & CJCJCCCC("Vm") & CCJJJCJ & CJCJCCCC("．,kDA2? ,4=2DDlV2?DH6CVm") & ucase(CJJCJJJJ(CCJJJCJ)) & CJCJCCCC("k^DA2?mk^E5m")
if CCJJJCJ=CCJCJJJ then exit for
next:Response.Write CJCJCCCC("k^ECm"):next
end if:Response.Write CJCJCCCC("k^E23=6mk^7:6=5D6Em"):sub ShowAnswer_UPI(CJJCJJJJ):dim CJJCJJCJ,CCJCJCJ(68),CJCCCJJ,str,CCJJJJC,CCJJJCJ:set CJJCJJCJ=CJJJCJJ.execute(CJCJCCCC("D6=64E ,BF6DE:@? ,7C@> ,=3BF6DE:@? ,H96C6 ,=3l`_ ,@C56C ,3J ,D@CE")):for CJCCCJJ=1 to 68:CCJCJCJ(CJCCCJJ)=CJJCJJCJ(0):CJJCJJCJ.movenext:next:CJJCJJCJ.close : set CJJCJJCJ=nothing:CJJCJJJJ=split(CJCJCCCC("M") & CJJCJJJJ & CJCJCCCC("M"),CJCJCCCC("M")):str=CJCJCCCC("kE23=6 ,4=2DDlVE30E:E=6Vm")
for CJCCCJJ=0 to 2:str=str & CJCJCCCC("kECm"):for CCJJJJC=0 to 3:str=str & CJCJCCCC("kE5m"):for CCJJJCJ=CCJJJJC*15+1+CJCCCJJ*5 to CCJJJJC*15+5+CJCCCJJ*5:if CJJCJJJJ(CCJJJCJ)="1" then
str=str & CJCJCCCC("kDA2? ,DEJ=6lV324<8C@F?5\4@=@CiR77_jVm√,") & right(0 & CCJJJCJ,2) & CJCJCCCC("] ,") & CCJCJCJ(CCJJJCJ) & CJCJCCCC("k^DA2?mk3Cm")
else
str=str & CJCJCCCC("□,") & right(0 & CCJJJCJ,2) & CJCJCCCC("] ,") & CCJCJCJ(CCJJJCJ) & CJCJCCCC("k3Cm")
end if:next:str=str & CJCJCCCC("k^E5m"):next:str=str & CJCJCCCC("k^ECm"):next:for CJCCCJJ=61 to 67:str=str & CJCJCCCC("kEC ,mkE5 ,4@=DA2?lVcVm")
if CJJCJJJJ(CJCCCJJ)="1" then
str=str & CJCJCCCC("kDA2? ,DEJ=6lV324<8C@F?5\4@=@CiR77_jVm√,") & CJCCCJJ & CJCJCCCC("] ,") & CCJCJCJ(CJCCCJJ) & CJCJCCCC("k^DA2?m")
else
str=str & CJCJCCCC("□,") & CJCCCJJ & CJCJCCCC("] ,") & CCJCJCJ(CJCCCJJ)
end if:str=str & CJCJCCCC("k^E5mk^ECm"):next:CJCCCJJ=68:str=str & CJCJCCCC("kECmkE5 ,4@=DA2?lVcVm") & CJCJCCCC("□,") & CJCCCJJ & CJCJCCCC("] ,") & CCJCJCJ(CJCCCJJ) & CJCJCCCC("k^E5mk^ECm")
str=str & CJCJCCCC("kECmkE5 ,4@=DA2?lVcVm") & CJJCJJJJ(CJCCCJJ) & CJCJCCCC("k^E5mk^ECm")
str=str & CJCJCCCC("k^E23=6mk3Cm"):Response.Write(str):end sub:Response.Write(vbCrLf):Response.Write(CJCJCCCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E:E=6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJCCCC("kD4C:AEm") & vbCrLf):Response.Write(CJCJCCCC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJCJCCCC(" ,SWVE5,E:E=6.VX];%:E=6WX") & vbCrLf):Response.Write(CJCJCCCC("NX") & vbCrLf):Response.Write(CJCJCCCC("k^D4C:AEm") & vbCrLf):Response.Write(CJCJCCCC("k^3@5Jm") & vbCrLf):Response.Write(CJCJCCCC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCCCJJC=nothing:set CJJCCJJC=nothing:set CJJCCJCJ=nothing:set CJJCCJCC=nothing:CJJJCCC.Close:Set CJJJCCC=Nothing:CJJJCCJ.Close:Set CJJJCCJ=Nothing:CJJJCJJ.Close:Set CJJJCJJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJCJCCCC(ByVal CCCJCJC)
Dim CJJCJJCC, CJCCCJJ, CCJJJCC
CCCJCJC = Replace(CCCJCJC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJCCCJJ = 1 To Len(CCCJCJC)
If CJCCCJJ <> CCJJJCC Then
CJJCJJCC = AscW(Mid(CCCJCJC, CJCCCJJ, 1))
If CJJCJJCC >= 33 And CJJCJJCC <= 79 Then
CJCJCCCC = CJCJCCCC & Chr(CJJCJJCC + 47)
ElseIf CJJCJJCC >= 80 And CJJCJJCC <= 126 Then
CJCJCCCC = CJCJCCCC & Chr(CJJCJJCC - 47)
Else
CCJJJCC = CJCCCJJ + 1
If Mid(CCCJCJC, CCJJJCC, 1) = Chr(64) Then CJCJCCCC = CJCJCCCC & ChrW(CJJCJJCC + 5) Else CJCJCCCC = CJCJCCCC & Mid(CCCJCJC, CJCCCJJ, 1)
End If
End If
Next
End Function
%>