<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJCJC, CJCCJ,CJCCC, CCJJJ, CCJJC:Set CJCJC = server.CreateObject(CCJJCJJ("ps~sq]r@??64E:@?")):CJCJC.open Application(CCJJCJJ("r@??64E:@?$EC:?8")):Set CJCCJ=CJCJC::Dim CCJCJ,CCJCC,CCCJJ,CCCJC,CCCCJ,CCCCC,CJJJJJ,CJJJJC,CJJJCJ:Dim CJJJCC,CJJCJJ,CJJCJC,CJJCCJ,CJJCCC,CJCJJJ:Dim CJCJJC,CJCJCJ,CJCJCC:Dim CJCCJJ:CJCCJJ=Trim(Request.Cookies(CCJJCJJ("!$*|t|qt#"))):if CJCCJJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CCJCJ>0 then
CCJJC=CCJJCJJ("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") & CCJCC & CCJJCJJ("V ,2?5 ,:5l") & CCJCJ
set CJCCC=CJCJC.execute(CCJJC):If CJCCC.EOF Then
Call ClearMemberCookie
Else
CCCJJ=CJCCC(2) & "":CCCJC=CJCCC(3):CCCCJ=CJCCC(5):CCCCC=CJCCC(6):CJJJJJ=CJCCC(9):CJJJJC=CJCCC(15):CJJJCC=CJCCC(0):CJCJCJ=CJCCC(1):CJCJJC=CJCCC(11) & "":CJJCJJ=CJCCC(10) & "":CJJJCJ=CJCCC(12):CJJCJC=CJCCC(14):CJJCCJ=CJCCC(13):CJJCCC=CJCCC(7) & "":CJCJJJ=CJCCC(4):CJCJCC=CJCCC(8):if isnull(CJJJJC) then CJJJJC=0
if isnull(CJJJJJ) or CJJJJJ=0 then CJJJJJ=CCCJC
if isnull(CJCJJJ) then CJCJJJ=0
if isnull(CCCCJ) then CCCCJ=0
if instr(CCJJCJJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CCJCC)>0 then Call RedirectMessage(CCJJCJJ("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CCJCJ,CCJCC)
End IF
end if:Sub CheckRight(CJJCJJC):dim CJCCJC,CJCCCJ:if CCJCJ=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CCJJCJJ("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
elseIf not CJCJCJJ(CJJCJJC) then
Call RedirectMessage(CCJJCJJ("朾@陋@W") & CJJCJJC & CCJJCJJ("X袦@祼@歝@，,诲@三@糶@绚@箜@琁@呓@聏@糶@。,"))
end if:End Sub:Function CJCJCJJ(CJJCJJC):dim CJCCJC,CJCCCJ:CJCCCJ=split(CJJCJJC,CCJJCJJ("[")):CJCJCJJ=False:for CJCCJC=0 to ubound(CJCCCJ):If Mid(CCCJJ,CJCCCJ(CJCCJC),1)="1" then
CJCJCJJ=True:exit function
end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CCJJCJJ("!$*|t|qt#"))="":CCJCJ=0:CCCCC=0:CCJCC=Empty:CCCCJ=0:CJJJJC=0:CJJJJJ=0:CCCJC=0:CJJJCC=False:CJCJCJ=False:CJCJCC=Empty:End Sub:Sub CheckMemberCookie():dim CJCCCC,CCJJJJ,CJCCJC,CCJJJC,CCJJCJ:CJCCCC=split(CJCCJJ,CCJJCJJ("]")):if ubound(CJCCCC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJCCCC(0)) or len(CJCCCC(1))<>32 or len(CJCCCC(2))<>32 then
Call ClearMemberCookie
else
CCJJJJ=CJCCCC(1):for CJCCJC=1 to len(CCJJJJ):CCJJJC=mid(CCJJJJ,CJCCJC,1):if isnumeric(CCJJJC) then CCJJCJ=CCJJCJ & CCJJJC
if len(CCJJCJ)=7 then exit for
next:CCJJJJ=CJCCCC(2):if CCJJCJ<>mid(CCJJJJ,6,7) then
Call ClearMemberCookie
else
CCJJJC=mid(CCJJJJ,18,10)/2:if CCJJJC<DateDiff(CCJJCJJ("D"), CCJJCJJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CCJCJ=Clng(CJCCCC(0)):CCJCC=CJCCCC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCJJJJC,CCJJCJC):dim CJCCJC,CCJJJC,CCJJCJ:for CJCCJC=1 to len(CCJJCJC):CCJJJC=mid(CCJJCJC,CJCCJC,1):if isnumeric(CCJJJC) then CCJJCJ=CCJJCJ & CCJJJC
if len(CCJJCJ)=7 then exit for
next:CCJJCJ=CCJJJJC & CCJJCJJ("]") & CCJJCJC & CCJJCJJ("]") & Fix(10000*(Rnd+1)) & CCJJCJ & Fix(10000*(Rnd+1)) & DateDiff(CCJJCJJ("D"), CCJJCJJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CCJJCJJ("!$*|t|qt#"))=CCJJCJ:End Sub::::Const CJCJJCJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::Sub Debug(str):response.Charset=CCJJCJJ("FE7\g"):dim CJCCJC,CCJJJC,CCJJCC:if isarray(str) then
on error resume next:CJCCJC=ubound(str,2):CCJJCC=err.number:err.clear:on error goto 0:if CCJJCC<>0 then
for CJCCJC=0 to ubound(str):if CJCCJC>0 then response.Write CCJJCJJ("k3C ,^m")
response.Write CJCCJC & CCJJCJJ("i ,") & str(CJCCJC):next
else
response.Write CCJJCJJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CJCCJC=0 to ubound(str,2):response.Write CCJJCJJ("kE9 ,2=:8?lV=67EVm") & CJCCJC & CCJJCJJ("k^E9m")
next:response.Write CCJJCJJ("k^ECm"):for CJCCJC=0 to ubound(str):response.Write CCJJCJJ("kECmkE9m") & CJCCJC & CCJJCJJ("k^E9m"):for CCJJJC=0 to ubound(str,2):response.Write CCJJCJJ("kE5m") & str(CJCCJC,CCJJJC) & CCJJCJJ("k^E5m"):next:response.Write CCJJCJJ("k^ECm"):next:response.Write CCJJCJJ("k^E23=6m")
end if
elseif isnull(str) then
response.Write CCJJCJJ(",}F==.")
else
Response.Write replace(str,vbcrlf,CCJJCJJ("k3Cm"))
end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CCJJCCJ,CCJJCCC):dim CJCCCC:CJCCCC=CCJJCCJ & CCJJCJJ("l") & CCJJCCC & CCJJCJJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCJJCJJ("$6E\r@@<:6"),CJCCCC):End Sub::::::sub ShowMessage(CCJCJJJ):response.Charset="utf-8":Response.Write CCJJCJJ("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") & CCJCJJJ & CCJJCJJ("k^5:Gmk^5:Gmk3Cm")
end sub:Function CJCJCJC(CCJJCC):if isnull(CCJJCC) or trim(CCJJCC)="" or not isnumeric(CCJJCC) then
CJCJCJC=false
else
Dim CCJCJJ:Set CCJCJJ = New RegExp:CCJCJJ.Pattern = CCJJCJJ("/-5ZS"):CCJCJJ.IgnoreCase = True:CJCJCJC = CCJCJJ.test(CCJJCC):set CCJCJJ=nothing
end if:End Function:Function CJCJCCJ(CCJCJJC):dim CCJCJC,CCJCCJ:CCJCJC=CCJJCJJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CCJCJJC & CCJJCJJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CCJCCJ=CJCJC.execute(CCJCJC):CJCJCCJ = CCJCCJ(0):if isnull(CJCJCCJ) then CJCJCCJ=1
CCJCCJ.close : set CCJCCJ=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CCCJJJ=nothing:set CJCJCCC=nothing:set CJCCJJJ=nothing:set CJCCJJC=nothing:CCJCCJ.close : set CCJCCJ=nothing:CCJJJ.Close : Set CCJJJ=Nothing:CJCCC.Close : Set CJCCC=Nothing:CJCCJCJ.Close : Set CJCCJCJ = Nothing:CJCJC.Close : Set CJCJC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCJCJJJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCJJCJJ("!$*0|6DD286"),server.URLEncode(CCJCJJJ)):Response.Redirect CCJJCJJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::Sub CheckQueryTime(CCJCJCJ,CCJCJCC):dim str,CCJJCC:str=CCJJCJJ("!$*0") & Ucase(CCJCJCJ):if Session(str)<>"" then
CCJJCC=DateDiff(CCJJCJJ("D"),Session(str),Time):if CCJJCC<CCJCJCC and CCJJCC>0 then
Call ConnClose:Call ShowMessage(CCJJCJJ("柠@话@闯@随@忀@顶@夢@争@ ,") & CCJCJCC & CCJJCJJ(" ,种@，,迓@剤@ ,") & CCJCJCC-CCJJCC & CCJJCJJ(" ,种@！,")):response.End()
else
Session.Contents.Remove(str)
end if
end if:Session(str)=Time:End Sub::::::::::Sub ClearCache(CCJCCJJ):Application.Contents.Remove CCJCCJJ
End Sub::Class jTree:Private CCJJC, CCCJJJ, CCCJJC, CCCJCJ,CCCJCC,CCCCJJ,CCCCJC,CCCCCJ:Private Sub Class_Initialize():CCCJJC = 0:CCCJCJ = 0:CCCCCJ=10:End Sub:Public Property Let Table(CCJCCJC):if CCJCCJC="" then Call RedirectMessage(CCJJCJJ("寴@丈@赲@，,;%C66籶@宙@來@匑@旱@沜@朄@讹@罩@忀@襼@癿@屙@怢@！,"))
CCCJCC=CCJCCJC:CCCCJJ=CCJJCJJ("!$*0") & UCase(CCCJCC):Call GetTreeArray:End Property:Public Property Get Table():Table=CCCJCC:End Property:::Private Sub GetTreeArray():Dim CJCCJC, CCJJJC, CCCCCC,CJJJJJJ:CCCJJJ = Application(CCCCJJ):If Not IsArray(CCCJJJ) Then
CCJJC = CCJJCJJ("D6=64E ,4@F?EW:5X ,7C@> ,") & CCCJCC:if CCCCJC<>"" then CCJJC=CCJJC & CCJJCJJ(" ,H96C6 ,") & CCCCJC
set CCCCCC=CJCJC.execute(CCJJC):CJJJJJJ=CCCCCC(0):if CJJJJJJ=0 then Call RedirectMessage(CCJJCJJ("柠@话@W") & CCCJCC & CCJJCJJ("^") & CCCCJC & CCJJCJJ("X沜@朄@绎@林@敫@捩@"))
CCCJCJ=CJJJJJJ+CCCCCJ:ReDim CCCJJJ(CCCJCJ, 4):CCJJC = CCJJCJJ("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCCJCC & CCJJCJJ(" ,H:E9 ,W?@=@4<X"):if CCCCJC<>"" then CCJJC=CCJJC & CCJJCJJ(" ,H96C6 ,") & CCCCJC
CCJJC=CCJJC & CCJJCJJ(" ,@C56C ,3J ,D@CE[:5"):set CCCCCC=CJCJC.execute(CCJJC):For CJCCJC = 1 To CJJJJJJ:For CCJJJC = 0 To 4:CCCJJJ(CJCCJC, CCJJJC) = CCCCCC(CCJJJC):if IsNull(CCCJJJ(CJCCJC,4)) then CCCJJJ(CJCCJC,4)=0
If CCCJJJ(CJCCJC,2)="" then CCCJJJ(CJCCJC,2)=CCJJCJJ(",穵@.")
Next:CCCCCC.MoveNext:Next:CCCCCC.Close: Set CCCCCC = Nothing:for CJCCJC=CCCJCJ-(CCCCCJ-1) to CCCJCJ:CCCJJJ(CJCCJC,0)=CJCCJC:next:Application.Lock():Application(CCCCJJ) = CCCJJJ:Application.UnLock()
else
CCCJCJ=Ubound(CCCJJJ)
End If:End Sub:::::Private Function CJCCCJJ(CCJJJJC):dim CJCCJC,CJJJJJC:CJCCCJJ=0:CJJJJJC=CStr(CCJJJJC):if CJJJJJC<>"0" then
for CJCCJC=1 to CCCJCJ:If CStr(CCCJJJ(CJCCJC, 0))=CJJJJJC Then
CJCCCJJ = CJCCJC:Exit For
End If:Next
end if:End Function::::Public Function CJCCCJC(CCJJJJC):Dim CJCCJC,CJJJJCJ:CJCCJC=CJCCCJJ(CCJJJJC):if CJCCJC=0 then
CJJJJCJ=CJCCCCJ(CCJJJJC)
else
CJJJJCJ=CCCJJJ(CJCCJC,3):if isnull(CJJJJCJ) or CJJJJCJ="" then
CJJJJCJ=CJCCCCJ(CCJJJJC)
elseif Mid(CJJJJCJ,instrrev(CJJJJCJ,CCJJCJJ("["))+1)<>CStr(CCJJJJC) then
CJJJJCJ=CJCCCCJ(CCJJJJC)
elseif Left(CJJJJCJ,1)=CCJJCJJ("[") then
CJJJJCJ=CJCCCCJ(CCJJJJC)
end if
end if:CJCCCJC=CJJJJCJ:End Function:Private Function CJCCCCJ(CCJJJJC):dim CJJJJJC:CJJJJJC=CStr(CCJJJJC):if CJJJJJC="0" then
CJCCCCJ=""
else
dim CCCCCC:set CCCCCC=CJCJC.execute(CCJJCJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCCJCC & CCJJCJJ(" ,H96C6 ,:5l") & CCJJJJC):if CCCCCC.eof then
Call UpdateCache(CCJJJJC,"","","",""):Call RedirectMessage(CCJJCJJ("顴@盩@（,xs：,") & CCJJJJC & CCJJCJJ("）,丈@孓@圣@，,诲@患@迏@囙@吉@釈@斫@擈@佗@。,"))
else
if CCCCCC(0)=0 then
CJCCCCJ="0," & CCJJJJC
else
CJCCCCJ=CJCCCJC(CCCCCC(0)) & CCJJCJJ("[") & CCJJJJC
end if:if CCCCCC(2)<>CJCCCCJ then
CJCJC.execute CCJJCJJ("FA52E6 ,") & CCCJCC & CCJJCJJ(" ,D6E ,A2E9lV") & CJCCCCJ & CCJJCJJ("V ,H96C6 ,:5l") & CCJJJJC
else
CJCCCCJ=CCCCCC(2)
end if
end if:Call UpdateCache(CCJJJJC,CCCCCC(0),CCCCCC(1),CJCCCCJ,CCCCCC(3)):CCCCCC.Close: Set CCCCCC = Nothing
end if:End Function::::Public Function IsParent(CCJCCCJ, CCJCCCC):IsParent=InStr(CJCCCJC(CCJCCCC) & CCJJCJJ("["), CCJJCJJ("[") & CCJCCCJ & CCJJCJJ("[")) > 0:End Function::::::::Public Function Sql_GetChildren(CCJJJJC):dim CJJJJCJ:CJJJJCJ=CJCCCJC(CCJJJJC):Sql_GetChildren = CCCJCC & CCJJCJJ("0A2E9ZV[V ,=:<6 ,V") & CJJJJCJ & CCJJCJJ("[TV")
End Function::::::::::Public Sub ClearCache():Application.Contents.Remove CCCCJJ
End Sub:Public Sub UpdateCache(CCJJJJC,CCCJJJJ,CCCJJJC,CJJJJCJ,CCCJJCJ):dim CJCCJC,CCJJJC:CCJJJJC=CLng(CCJJJJC):CJCCJC=CJCCCJJ(CCJJJJC):if CCCJJJJ="" and CCCJJJC="" and CJJJJCJ="" and CCCJJCJ="" then
if CJCCJC>0 then
for CCJJJC=1 to 4:CCCJJJ(CJCCJC,CCJJJC)=Null:next
end if
else
if CJCCJC=0 then
for CCJJJC=1 to CCCJCJ:if CCCJJJ(CCJJJC,1) & ""="" then
CJCCJC=CCJJJC:exit for
end if:next
end if:if CJCCJC=0 then
Call ClearCache
else
CCCJJJ(CJCCJC,0)=CLng(CCJJJJC):if CCCJJJJ<>"" then CCCJJJ(CJCCJC,1)=CLng(CCCJJJJ)
if CCCJJJC<>"" then CCCJJJ(CJCCJC,2)=CCCJJJC
if CJJJJCJ<>"" then CCCJJJ(CJCCJC,3)=CJJJJCJ
if CCCJJCJ<>"" then CCCJJJ(CJCCJC,4)=CLng(CCCJJCJ)
end if
end if:if CJCCJC>0 then
Application.Lock():Application(CCCCJJ) = CCCJJJ:Application.UnLock()
end if:End Sub:Private Sub Debug(CCJCJJJ):Call ConnClose:Response.Write CCJCJJJ:Response.End:End Sub:Private Function CJCJCCJ():CJCJCCJ=CCJJJCJ+1:End Function:Private Function CCJJJCJ():dim CCJCCJ:set CCJCCJ=CJCJC.execute(CCJJCJJ("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CCCJCC & CCJJCJJ(" ,@C56C ,3J ,:5 ,56D4")):CCJJJCJ=CCJCCJ(0):CCJCCJ.Close: Set CCJCCJ = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Const CJCJJCC=132:Call CheckRight("54,81"):Call CheckQueryTime(CCJJCJJ("%6DE0#6A@CE"),15):dim CJJJJCC,CJJJCJJ,CJJJCJC,CJJJCCJ,CJJJCCC,CJJCJJJ:CJJCJJJ=Request.QueryString(CCJJCJJ("D49@@=")):CJJJJCC=Request.QueryString(CCJJCJJ("s6AE")):CJJJCJJ=Request.QueryString(CCJJCJJ("vC256")):CJJJCJC=Request.QueryString(CCJJCJJ("vC@FA")):CJJJCCJ=Request.QueryString(CCJJCJJ("E`")):CJJJCCC=Request.QueryString(CCJJCJJ("Ea")):if not CJCJCJC(CJJJJCC) then Call RedirectMessage(CCJJCJJ("寴@丈@赲@，,糶@绚@厽@敫@丝@夬@！,"))
dim CCCJJJ:set CCCJJJ=new jtree:CCCJJJ.table=CCJJCJJ(">6>36C0EJA6"):if not CCCJJJ.IsParent(CCCJC,CJJJJCC) then Call RedirectMessage(CCJJCJJ("诠@苾@囯@W") & CJJJJCC & CCJJCJJ("X丈@圣@患@W") & CCCJC & CCJJCJJ("X癿@箜@琁@苾@囯@冀@。,"))
dim CJJCJJC(6,1),CJCCJC,CJJCJCJ(1):for CJCCJC=0 to ubound(CJJCJJC):CJJCJJC(CJCCJC,0)=0:next:CJJCJCJ(0)=0:dim CJJCJCC:CJJCJCC=split(CCJJCJJ("偊@扢@M刁@袽@栲@M辴@缓@垆@M囙@遺@垆@M侘@赑@垆@M張@迦@M袦@劣@收@凶@"),CCJJCJJ("M")):dim CJJCCJJ,CJJCCJC,CCJJCJ,CJJCCCJ,CJJCCCC,CJCJJJJ:CCJJC=CCJJCJJ("D6=64E ,?F>36C[C62=?2>6[C6DF=E ,7C@> ,G0E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,=3l") & CJCJJCC & CCJJCJJ(" ,2?5 ,G2=:5l`"):if cstr(CJJJJCC)=cstr(CJJCJJJ) then CCJJC=CCJJC & CCJJCJJ(" ,2?5 ,>6>36C0EJA60E@Al") & CJJCJJJ else CCJJC=CCJJC & CCJJCJJ(" ,2?5 ,") & CCCJJJ.Sql_GetChildren(CJJJJCC)
if CJCJCJC(CJJJCJJ) then CCJJC=CCJJC & CCJJCJJ(" ,2?5 ,8C256l") & CJJJCJJ
if CJCJCJC(CJJJCJC) then CCJJC=CCJJC & CCJJCJJ(" ,2?5 ,4FDE@>8C@FAl") & CJJJCJC
if isdate(CJJJCCJ) then CCJJC=CCJJC & CCJJCJJ(" ,2?5 ,52E6E:>6mlV") & CJJJCCJ & CCJJCJJ("V")
if isdate(CJJJCCC) then CCJJC=CCJJC & CCJJCJJ(" ,2?5 ,52E6E:>6kV") & cdate(CJJJCCC)+1 & CCJJCJJ("V")
set CJCCC=CJCJC.execute(CCJJC):if CJCCC.eof then Call RedirectMessage(CCJJCJJ("寴@丈@赲@，,迓@沜@朄@浆@访@讫@彐@！,"))
while not CJCCC.eof:CJJCCCJ=CJCCC(0) & CCJJCJJ("\") & CJCCC(1):if isnull(CJCCC(2)) then Call RedirectMessage(CJJCCCJ & CCJJCJJ("癿@浆@访@讫@彐@朄@诪@，,诲@创@陟@吉@冈@擈@佗@！,"))
CJJCCJJ=split(CJCCC(2),CCJJCJJ("M")):CCJJCJ=0:CJCJJJJ="":for CJCCJC=0 to 6:if CJJCCJJ(CJCCJC)="1" then
CJJCJJC(CJCCJC,0)=CJJCJJC(CJCCJC,0)+1:CJJCJJC(CJCCJC,1)=CJJCJJC(CJCCJC,1) & CCJJCJJ("、,") & CJJCCCJ:CCJJCJ=CCJJCJ+1:CJCJJJJ=CJCJJJJ & CCJJCJJ("、,") & CJJCJCC(CJCCJC)
end if:next:if CCJJCJ>=2 then CJJCCCC=CJJCCCC & CCJJCJJ("kECmkE5m") & CJJCCCJ & CCJJCJJ("k^E5mkE5 ,4=2DDlVE6IE\=67EVm") & mid(CJCJJJJ,2) & CCJJCJJ("k^E5mk^ECm")
if CJJCCJJ(7)="1" or CJJCCJJ(8)="1" or CJJCCJJ(9)="1" then
CJJCJCJ(0)=CJJCJCJ(0)+1:CJJCJCJ(1)=CJJCJCJ(1) & CCJJCJJ("、,") & CJJCCCJ
end if:CJCCC.movenext:wend:for CJCCJC=0 to ubound(CJJCJJC):if CJJCJJC(CJCCJC,0)>0 then CJJCJJC(CJCCJC,1)=Mid(CJJCJJC(CJCCJC,1),2)
next:if CJJCJCJ(0)>0 then CJJCJCJ(1)=Mid(CJJCJCJ(1),2)
Response.Write(vbCrLf):Response.Write(CCJJCJJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CCJJCJJ("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CCJJCJJ("k9625m") & vbCrLf):Response.Write(CCJJCJJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CCJJCJJ("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CCJJCJJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CCJJCJJ("kE:E=6m释@衣@一,·,亵@样@隗@碈@访@伫@愊@覼@k^E:E=6m") & vbCrLf):Response.Write(CCJJCJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ]]^]]^4DD^C6D6E]4DDQm") & vbCrLf):Response.Write(CCJJCJJ("kDEJ=6m") & vbCrLf):Response.Write(CCJJCJJ("^Y昹@礵@栲@弊@Y^") & vbCrLf):Response.Write(CCJJCJJ("3@5J[ ,E5[ ,E9[ ,9c[ ,9d[ ,A ,L ,7@?E\D:K6i ,`cAIj ,N") & vbCrLf):Response.Write(CCJJCJJ("3@5J ,L ,324<8C@F?5i ,Ruhuhuhj ,N") & vbCrLf):Response.Write(CCJJCJJ("9` ,L ,7@?E\D:K6i ,acAIj ,>2C8:?\3@EE@>ia_AIj ,N") & vbCrLf):Response.Write(CCJJCJJ("9a ,L ,7@?E\D:K6i ,`gAIj ,>2C8:?\E@Ai ,b_AIj ,N") & vbCrLf):Response.Write(CCJJCJJ("9b ,L ,7@?E\D:K6i ,`eAIj ,>2C8:?\E@Ai ,`eAIj ,N") & vbCrLf):Response.Write(CCJJCJJ("RA286\4@?E6?E ,L ,324<8C@F?5i ,R777j ,H:5E9i ,f__AIj ,>2C8:?i ,a_AI ,2FE@j ,A255:?8i ,d_AIj ,3@I\D925@Hi ,_ ,_ ,dAI ,R444j ,N") & vbCrLf):Response.Write(CCJJCJJ("7@@E6C ,L ,A@D:E:@?i ,7:I65j ,3@EE@>i ,_j ,=67Ei ,_j ,96:89Ei ,bdAIj ,=:?6\96:89Ei ,bdAIj ,324<8C@F?5i ,Rbqqcuaj ,H:5E9i ,`__Tj ,4@=@Ci ,R777j ,E6IE\2=:8?i ,46?E6Cj ,3@I\D925@Hi ,_ ,\aAI ,dAI ,Rhhhj ,@G6C7=@Hi ,9:556?j ,N") & vbCrLf):Response.Write(CCJJCJJ("7@@E6C ,]= ,L ,>2C8:?\=67Ei ,`_AIj ,7=@2Ei ,=67Ej ,N") & vbCrLf):Response.Write(CCJJCJJ("7@@E6C ,]C ,L ,>2C8:?\C:89Ei ,`_AIj ,7=@2Ei ,C:89Ej ,N") & vbCrLf):Response.Write(CCJJCJJ("k^DEJ=6m") & vbCrLf):Response.Write(CCJJCJJ("kDEJ=6 ,>65:2lQAC:?EQm") & vbCrLf):Response.Write(CCJJCJJ("^Y扎@卫@栲@弊@Y^") & vbCrLf):Response.Write(CCJJCJJ("3@5J ,L ,324<8C@F?5\4@=@Ci ,EC2?DA2C6?Ej ,N") & vbCrLf):Response.Write(CCJJCJJ("RA286\4@?E6?E ,L ,H:5E9i ,`__Tj ,>2C8:?i ,_j ,A255:?8i ,_j ,3@I\D925@Hi ,?@?6j ,324<8C@F?5\4@=@Ci ,EC2?DA2C6?Ej ,N") & vbCrLf):Response.Write(CCJJCJJ("7@@E6C ,L ,5:DA=2Ji ,?@?6j ,N") & vbCrLf):Response.Write(CCJJCJJ("k^DEJ=6m") & vbCrLf):Response.Write(CCJJCJJ("k^9625m") & vbCrLf):Response.Write(CCJJCJJ("k3@5Jm") & vbCrLf):Response.Write(CCJJCJJ("k5:G ,:5lQA286\4@?E6?EQm") & vbCrLf):Response.Write(CCJJCJJ(" ,kP\\冀@宴@\\m") & vbCrLf):Response.Write(CCJJCJJ(" ,k9`m释@衣@一,·,亵@样@隗@碈@访@伫@愊@覼@k^9`m") & vbCrLf):Response.Write(CCJJCJJ(" ,kAm释@衣@一,丶@襼@考,寚@亁@考,甚@昪@吡@只@胸@孓@圣@亵@样@隗@碈@，,诠@释@衣@丶@襼@兮@泣@癿@昪@仠@丆@f秈@亵@样@隗@碈@：,偊@扢@、,刁@袽@栲@、,辴@缓@垆@、,囙@遺@垆@、,侘@赑@垆@、,張@迦@（,宇@羉@亵@样@）,、,袦@劣@收@凶@。,k^Am") & vbCrLf):Response.Write(CCJJCJJ(" ,k9am一,、,亵@样@隗@碈@访@宕@—,—,朄@闩@颓@癿@严@低@k^9am") & vbCrLf):Response.Write(CCJJCJJ(" ,kAm严@刦@考,甚@只@胸@孓@圣@一,秈@我@夕@秈@亵@样@隗@碈@，,電@襼@釈@炴@力@仠@兮@泣@，,共@丨@：,k^Am") & vbCrLf):Response.Write(CCJJCJJ(" ,k9bm`．,偊@扢@k^9bm") & vbCrLf):Response.Write(CCJJCJJ(" ,kAm")):Response.Write  CJJCJJC(0,1):Response.Write(CCJJCJJ("k^Am") & vbCrLf):Response.Write(CCJJCJJ(" ,kAm丅@迫@")):Response.Write  CJJCJJC(0,0):Response.Write(CCJJCJJ("佈@考,甚@朄@偊@扢@垆@亵@样@癿@倹@同@，,丶@襼@衣@玫@丵@寴@仑@亵@宴@明@丈@俜@件@咇@猗@疌@，,帳@忻@疌@刦@亵@癿@忛@试@咇@只@靛@，,拀@徾@袦@判@産@、,欵@骒@咇@伟@宮@。,圣@三@亵@亟@彻@丨@昹@徒@囵@扢@，,喗@奸@亄@辤@，,宴@明@讫@仂@。,k^Am") & vbCrLf):Response.Write(CCJJCJJ(" ,k9bma．,刁@袽@栲@k^9bm") & vbCrLf):Response.Write(CCJJCJJ(" ,kAm")):Response.Write  CJJCJJC(1,1):Response.Write(CCJJCJJ("k^Am") & vbCrLf):Response.Write(CCJJCJJ(" ,kAm丅@迫@")):Response.Write  CJJCJJC(1,0):Response.Write(CCJJCJJ("佈@考,甚@朄@刁@袽@栲@亵@样@癿@倹@同@，,丶@襼@衣@玫@丵@严@低@三@礹@亟@兮@糶@晩@遈@脬@禶@，,缵@乊@寴@亭@寁@兮@糶@癿@同@彻@，,陟@盯@糶@亭@屙@夑@，,凛@义@沜@朄@亻@乃@亭@寁@我@矠@徾@朆@叆@。,幮@紛@喗@欝@狧@杠@狧@彻@，,惀@愚@冲@淜@，,寴@刦@亵@癿@赙@执@咇@扴@访@郸@昹@徒@旛@戻@谎@。,k^Am") & vbCrLf):Response.Write(CCJJCJJ(" ,k9bmb．,辴@缓@垆@k^9bm") & vbCrLf):Response.Write(CCJJCJJ(" ,kAm")):Response.Write  CJJCJJC(2,1):Response.Write(CCJJCJJ("k^Am") & vbCrLf):Response.Write(CCJJCJJ(" ,kAm丅@迫@")):Response.Write  CJJCJJC(2,0):Response.Write(CCJJCJJ("佈@考,甚@朄@辴@缓@垆@亵@样@癿@倹@同@，,丶@襼@牴@炴@昪@臥@戌@丈@硩@宕@、,惀@绥@丈@種@宕@咇@衇@丵@丅@癿@冭@劣@怢@。,帳@帳@寴@臥@戌@彝@豜@咇@臥@戌@愚@规@丈@硩@宕@，,缵@乊@臥@俜@，,徾@塾@丈@種@宕@。,亵@陀@兮@糶@丈@種@宕@，,明@冭@劣@，,怶@昪@杼@竪@琁@惮@匑@我@杼@竪@货@佉@，,隹@仠@俘@拼@镺@乀@癿@亭@寁@兮@糶@。,k^Am") & vbCrLf):Response.Write(CCJJCJJ(" ,k9bmc．,囙@遺@垆@k^9bm") & vbCrLf):Response.Write(CCJJCJJ(" ,kAm")):Response.Write  CJJCJJC(3,1):Response.Write(CCJJCJJ("k^Am") & vbCrLf):Response.Write(CCJJCJJ(" ,kAm丅@迫@")):Response.Write  CJJCJJC(3,0):Response.Write(CCJJCJJ("佈@考,甚@朄@囙@遺@垆@亵@样@癿@倹@同@，,丶@襼@牴@炴@昪@迂@夕@癿@臥@戌@吡@宕@咇@臥@卌@愚@，,敊@愚@羙@涤@，,宴@明@四@仑@亵@癿@扴@访@我@丈@赙@吇@耇@叒@别@伟@宮@，,四@耇@囙@遺@礹@亟@圵@吃@咇@三@亵@亟@彻@轾@夕@癿@聇@丕@洶@劣@。,k^Am") & vbCrLf):Response.Write(CCJJCJJ(" ,k9bmd．,侘@赑@垆@k^9bm") & vbCrLf):Response.Write(CCJJCJJ(" ,kAm")):Response.Write  CJJCJJC(4,1):Response.Write(CCJJCJJ("k^Am") & vbCrLf):Response.Write(CCJJCJJ(" ,kAm丅@迫@")):Response.Write  CJJCJJC(4,0):Response.Write(CCJJCJJ("佈@考,甚@朄@侘@赑@垆@亵@样@癿@倹@同@，,丶@襼@衣@玫@丵@昉@昹@癿@页@仉@咇@侘@阿@衇@丵@，,迂@刁@電@襼@袦@煢@项@，,宮@怐@刁@禶@。,寴@狧@臥@讜@刍@我@偕@了@愚@别@囫@隹@，,彻@彻@電@襼@刦@亵@丵@共@偕@冮@宕@。,隹@仠@內@廻@衣@边@三@刦@亵@丈@一,臯@，,丵@亁@三@刦@亵@俘@拼@一,臯@耇@孼@愺@偕@臥@巬@丈@愺@偕@癿@了@惀@。,k^Am") & vbCrLf):Response.Write(CCJJCJJ(" ,k9bme．,張@迦@（,宇@羉@亵@样@）,k^9bm") & vbCrLf):Response.Write(CCJJCJJ(" ,kAm")):Response.Write  CJJCJJC(5,1):Response.Write(CCJJCJJ("k^Am") & vbCrLf):Response.Write(CCJJCJJ(" ,kAm丅@迫@")):Response.Write  CJJCJJC(5,0):Response.Write(CCJJCJJ("佈@考,甚@朄@張@迦@垆@亵@样@癿@倹@同@，,丶@襼@衣@玫@丵@迂@刁@迸@氽@宇@羉@，,迂@刁@兮@泣@秤@床@、,覿@刔@咇@绁@艽@，,仠@臮@争@彬@哈@巠@佗@敃@玂@。,圣@過@徲@覽@忰@丅@迂@刁@丠@样@甕@臮@制@杺@。,圣@亵@陀@亟@彻@丨@，,一,舧@丈@愺@妠@半@，,孼@只@臥@巬@狧@竆@衇@了@乚@丈@愺@三@仑@亵@公@了@。,k^Am") & vbCrLf):Response.Write(CCJJCJJ(" ,k9bmf．,袦@劣@收@凶@k^9bm") & vbCrLf):Response.Write(CCJJCJJ(" ,kAm")):Response.Write  CJJCJJC(6,1):Response.Write(CCJJCJJ("k^Am") & vbCrLf):Response.Write(CCJJCJJ(" ,kAm丅@迫@")):Response.Write  CJJCJJC(6,0):Response.Write(CCJJCJJ("佈@考,甚@朄@袦@劣@收@凶@垆@亵@样@癿@倹@同@，,丶@襼@衣@玫@丵@喗@奸@亄@辤@，,怶@釂@发@寴@竆@衇@丵@我@吡@宕@咇@夬@贠@丶@乄@忼@庡@。,丈@轶@明@內@廻@衣@边@寴@朾@姼@亵@牤@癿@丈@滜@，,帳@帳@釂@发@袦@劣@抰@抒@咇@拑@廱@癿@劙@泐@，,衣@靝@丅@唪@唪@诵@诵@，,胇@圫@采@刔@丈@亃@吃@佗@。,k^Am") & vbCrLf):Response.Write(CCJJCJJ(" ,kAm圣@丅@迫@考,甚@丨@，,電@襼@泣@愊@只@胸@孓@圣@丟@秈@叅@仠@丅@亵@样@隗@碈@倹@同@癿@考,甚@，,廵@让@釈@炴@力@仠@兮@泣@：,k^Am") & vbCrLf):Response.Write(CCJJCJJ(" ,kE23=6 ,4=2DDlQE30DE2EQm") & vbCrLf):Response.Write(CCJJCJJ(" ,kECm") & vbCrLf):Response.Write(CCJJCJJ(" ,kE9m姎@合@k^E9m") & vbCrLf):Response.Write(CCJJCJJ(" ,kE9m徾@琁@痂@犱@k^E9m") & vbCrLf):Response.Write(CCJJCJJ(" ,k^ECm") & vbCrLf):Response.Write(CCJJCJJ(" ,")):Response.Write  CJJCCCC:Response.Write(vbCrLf):Response.Write(CCJJCJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CCJJCJJ(" ,k9am亇@、,牴@殅@惀@冰@误@昉@k^9am") & vbCrLf):Response.Write(CCJJCJJ(" ,kAm仠@丆@")):Response.Write  CJJCJCJ(0):Response.Write(CCJJCJJ("佈@考,甚@圣@囙@筏@闩@卲@旱@朄@误@谉@、,掤@饫@我@耀@丈@讟@眚@佗@筏@癿@戋@刁@，,沜@朄@宇@兣@挄@煢@宙@陀@惀@冰@迖@衇@佗@筏@。,寴@争@返@亖@考,甚@癿@访@宕@绎@林@，,顶@绎@吃@靝@诐@丨@癿@宙@陀@惀@冰@，,谣@慉@寴@往@。,共@仑@考,甚@癿@绎@林@刁@枋@厽@考,仲@倷@轾@髓@。,k^Am") & vbCrLf):Response.Write(CCJJCJJ(" ,kAm")):Response.Write  CJJCJCJ(1):Response.Write(CCJJCJJ("k^Am") & vbCrLf):Response.Write(CCJJCJJ("k^5:Gm") & vbCrLf):Response.Write(CCJJCJJ("k3Cm") & vbCrLf):Response.Write(CCJJCJJ("k3Cm") & vbCrLf):Response.Write(CCJJCJJ("k7@@E6Cm") & vbCrLf):Response.Write(CCJJCJJ(" ,k5:G ,4=2DDlQ=Qm释@衣@一,·,亵@样@隗@碈@访@伫@愊@覼@k^5:Gm") & vbCrLf):Response.Write(CCJJCJJ(" ,k5:G ,4=2DDlQCQm") & vbCrLf):Response.Write(CCJJCJJ(" ,k3FEE@? ,:5lQ3E?\AC:?EQm扎@卫@朧@顰@k^3FEE@?m") & vbCrLf):Response.Write(CCJJCJJ(" ,k3FEE@? ,:5lQ3E?\H@C5Qm俘@孓@丵@(@C5斂@桞@k^3FEE@?m") & vbCrLf):Response.Write(CCJJCJJ(" ,k3FEE@? ,:5lQ3E?\E@AQm别@顱@郣@k^3FEE@?m") & vbCrLf):Response.Write(CCJJCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCJJCJJ("k^7@@E6Cm") & vbCrLf):Response.Write(CCJJCJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJJCJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]9E>=a5@4I];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJJCJJ("kD4C:AEm") & vbCrLf):Response.Write(CCJJCJJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CCJJCJJ(" ,SWVR3E?\AC:?EVX]@?WV4=:4<V[7F?4E:@?WXLH:?5@H]AC:?EWXNX") & vbCrLf):Response.Write(CCJJCJJ(" ,SWVR3E?\H@C5VX]@?WV4=:4<V[7F?4E:@?WXLSWVRA286\4@?E6?EVX]9E>=a5@4IWXNX") & vbCrLf):Response.Write(CCJJCJJ(" ,SWVR3E?\E@AVX]@?WV4=:4<V[7F?4E:@?WXLSWV9E>=[3@5JVX]2?:>2E6WLD4C@==%@Ai_N[`___XNX") & vbCrLf):Response.Write(CCJJCJJ("NX") & vbCrLf):Response.Write(CCJJCJJ("k^D4C:AEm") & vbCrLf):Response.Write(CCJJCJJ("k^3@5Jm") & vbCrLf):Response.Write(CCJJCJJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCCJJJ=nothing:set CJCJCCC=nothing:set CJCCJJJ=nothing:set CJCCJJC=nothing:CCJJJ.Close:Set CCJJJ=Nothing:CJCCC.Close:Set CJCCC=Nothing:CJCJC.Close:Set CJCJC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CCJJCJJ(ByVal CCJJJCC)
Dim CJCJJJC, CJCCJC, CCJJCC
CCJJJCC = Replace(CCJJJCC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJCCJC = 1 To Len(CCJJJCC)
If CJCCJC <> CCJJCC Then
CJCJJJC = AscW(Mid(CCJJJCC, CJCCJC, 1))
If CJCJJJC >= 33 And CJCJJJC <= 79 Then
CCJJCJJ = CCJJCJJ & Chr(CJCJJJC + 47)
ElseIf CJCJJJC >= 80 And CJCJJJC <= 126 Then
CCJJCJJ = CCJJCJJ & Chr(CJCJJJC - 47)
Else
CCJJCC = CJCCJC + 1
If Mid(CCJJJCC, CCJJCC, 1) = Chr(64) Then CCJJCJJ = CCJJCJJ & ChrW(CJCJJJC + 5) Else CCJJCJJ = CCJJCJJ & Mid(CCJJJCC, CJCCJC, 1)
End If
End If
Next
End Function
%>