<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCCJCJ, CCCJCC,CCCCJJ, CCCCJC, CCCCCJ:Set CCCJCJ = server.CreateObject(CJCJJJCC("ps~sq]r@??64E:@?")):CCCJCJ.open Application(CJCJJJCC("r@??64E:@?$EC:?8")):Set CCCJCC=CCCJCJ::Dim CCCCCC,CJJJJJJ,CJJJJJC,CJJJJCJ,CJJJJCC,CJJJCJJ,CJJJCJC,CJJJCCJ,CJJJCCC:Dim CJJCJJJ,CJJCJJC,CJJCJCJ,CJJCJCC,CJJCCJJ,CJJCCJC:Dim CJJCCCJ,CJJCCCC,CJCJJJJ:Dim CJCJJJC:CJCJJJC=Trim(Request.Cookies(CJCJJJCC("!$*|t|qt#"))):if CJCJJJC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CCCCCC>0 then
CCCCCJ=CJCJJJCC("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") & CJJJJJJ & CJCJJJCC("V ,2?5 ,:5l") & CCCCCC
set CCCCJJ=CCCJCJ.execute(CCCCCJ):If CCCCJJ.EOF Then
Call ClearMemberCookie
Else
CJJJJJC=CCCCJJ(2) & "":CJJJJCJ=CCCCJJ(3):CJJJJCC=CCCCJJ(5):CJJJCJJ=CCCCJJ(6):CJJJCJC=CCCCJJ(9):CJJJCCJ=CCCCJJ(15):CJJCJJJ=CCCCJJ(0):CJJCCCC=CCCCJJ(1):CJJCCCJ=CCCCJJ(11) & "":CJJCJJC=CCCCJJ(10) & "":CJJJCCC=CCCCJJ(12):CJJCJCJ=CCCCJJ(14):CJJCJCC=CCCCJJ(13):CJJCCJJ=CCCCJJ(7) & "":CJJCCJC=CCCCJJ(4):CJCJJJJ=CCCCJJ(8):if isnull(CJJJCCJ) then CJJJCCJ=0
if isnull(CJJJCJC) or CJJJCJC=0 then CJJJCJC=CJJJJCJ
if isnull(CJJCCJC) then CJJCCJC=0
if isnull(CJJJJCC) then CJJJJCC=0
if instr(CJCJJJCC("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJJJJJ)>0 then Call RedirectMessage(CJCJJJCC("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CCCCCC,CJJJJJJ)
End IF
end if:Sub CheckRight(CJCCCCJ):dim CJCJJCJ,CJCJJCC:if CCCCCC=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJCJJJCC("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
elseIf not CJJJCJCC(CJCCCCJ) then
Call RedirectMessage(CJCJJJCC("朾@陋@W") & CJCCCCJ & CJCJJJCC("X袦@祼@歝@，,诲@三@糶@绚@箜@琁@呓@聏@糶@。,"))
end if:End Sub:Function CJJJCJCC(CJCCCCJ):dim CJCJJCJ,CJCJJCC:CJCJJCC=split(CJCCCCJ,CJCJJJCC("[")):CJJJCJCC=False:for CJCJJCJ=0 to ubound(CJCJJCC):If Mid(CJJJJJC,CJCJJCC(CJCJJCJ),1)="1" then
CJJJCJCC=True:exit function
end if:next:End Function:Sub CheckLogined():if CCCCCC=0 then
Call ClearMemberCookie:Call ConnClose:dim CJCJCJJ:CJCJCJJ=trim(request.QueryString(CJCJJJCC("D49@@="))):if isnumeric(CJCJCJJ) then
response.Redirect CJCJJJCC("^>^G2?E^R^D49@@=^") & CJCJCJJ & CJCJJJCC("^DEF56?E^=@8:?nC65:C64El") & url
else
Call RedirectMessage(CJCJJJCC("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CJCJJJCC("!$*|t|qt#"))="":CCCCCC=0:CJJJCJJ=0:CJJJJJJ=Empty:CJJJJCC=0:CJJJCCJ=0:CJJJCJC=0:CJJJJCJ=0:CJJCJJJ=False:CJJCCCC=False:CJCJJJJ=Empty:End Sub:Sub CheckMemberCookie():dim CJCJCJC,CJCJCCJ,CJCJJCJ,CJCJCCC,CJCCJJJ:CJCJCJC=split(CJCJJJC,CJCJJJCC("]")):if ubound(CJCJCJC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJCJCJC(0)) or len(CJCJCJC(1))<>32 or len(CJCJCJC(2))<>32 then
Call ClearMemberCookie
else
CJCJCCJ=CJCJCJC(1):for CJCJJCJ=1 to len(CJCJCCJ):CJCJCCC=mid(CJCJCCJ,CJCJJCJ,1):if isnumeric(CJCJCCC) then CJCCJJJ=CJCCJJJ & CJCJCCC
if len(CJCCJJJ)=7 then exit for
next:CJCJCCJ=CJCJCJC(2):if CJCCJJJ<>mid(CJCJCCJ,6,7) then
Call ClearMemberCookie
else
CJCJCCC=mid(CJCJCCJ,18,10)/2:if CJCJCCC<DateDiff(CJCJJJCC("D"), CJCJJJCC("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CCCCCC=Clng(CJCJCJC(0)):CJJJJJJ=CJCJCJC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCJJCCJ,CJCJJCJJ):dim CJCJJCJ,CJCJCCC,CJCCJJJ:for CJCJJCJ=1 to len(CJCJJCJJ):CJCJCCC=mid(CJCJJCJJ,CJCJJCJ,1):if isnumeric(CJCJCCC) then CJCCJJJ=CJCCJJJ & CJCJCCC
if len(CJCCJJJ)=7 then exit for
next:CJCCJJJ=CCJJCCJ & CJCJJJCC("]") & CJCJJCJJ & CJCJJJCC("]") & Fix(10000*(Rnd+1)) & CJCCJJJ & Fix(10000*(Rnd+1)) & DateDiff(CJCJJJCC("D"), CJCJJJCC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJCJJJCC("!$*|t|qt#"))=CJCCJJJ:End Sub:::Function IIf(CJCJJCJC, CJCJJCCJ, CJCJJCCC):if isnull(CJCJJCJC) or isempty(CJCJJCJC) then
IIf = CJCJJCCC
elseif CJCJJCJC Then
IIf = CJCJJCCJ
Else
IIf = CJCJJCCC
end if:End Function:Const CJJJCJJJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::Sub Debug(str):response.Charset="utf-8":dim CJCJJCJ,CJCJCCC,CJCCJJC:if isarray(str) then
on error resume next:CJCJJCJ=ubound(str,2):CJCCJJC=err.number:err.clear:on error goto 0:if CJCCJJC<>0 then
for CJCJJCJ=0 to ubound(str):if CJCJJCJ>0 then response.Write CJCJJJCC("k3C ,^m")
response.Write CJCJJCJ & CJCJJJCC("i ,") & str(CJCJJCJ):next
else
response.Write CJCJJJCC("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CJCJJCJ=0 to ubound(str,2):response.Write CJCJJJCC("kE9 ,2=:8?lV=67EVm") & CJCJJCJ & CJCJJJCC("k^E9m")
next:response.Write CJCJJJCC("k^ECm"):for CJCJJCJ=0 to ubound(str):response.Write CJCJJJCC("kECmkE9m") & CJCJJCJ & CJCJJJCC("k^E9m"):for CJCJCCC=0 to ubound(str,2):response.Write CJCJJJCC("kE5m") & str(CJCJJCJ,CJCJCCC) & CJCJJJCC("k^E5m"):next:response.Write CJCJJJCC("k^ECm"):next:response.Write CJCJJJCC("k^E23=6m")
end if
elseif isnull(str) then
response.Write CJCJJJCC(",}F==.")
else
Response.Write replace(str,vbcrlf,CJCJJJCC("k3Cm"))
end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CJCJCJJJ,CJCJCJJC):dim CJCJCJC:CJCJCJC=CJCJCJJJ & CJCJJJCC("l") & CJCJCJJC & CJCJJJCC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJCJJJCC("$6E\r@@<:6"),CJCJCJC):End Sub:::::::Function CJJJCCJC(CJCCJJC):if isnull(CJCCJJC) or trim(CJCCJJC)="" or not isnumeric(CJCCJJC) then
CJJJCCJC=false
else
Dim CJCCJCJ:Set CJCCJCJ = New RegExp:CJCCJCJ.Pattern = CJCJJJCC("/-5ZS"):CJCCJCJ.IgnoreCase = True:CJJJCCJC = CJCCJCJ.test(CJCCJJC):set CJCCJCJ=nothing
end if:End Function:Function CJJJCCCJ(CJCJCJCJ):dim CJCCJCC,CJCCCJJ:CJCCJCC=CJCJJJCC("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJCJCJCJ & CJCJJJCC("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJCCCJJ=CCCJCJ.execute(CJCCJCC):CJJJCCCJ = CJCCCJJ(0):if isnull(CJJJCCCJ) then CJJJCCCJ=1
CJCCCJJ.close : set CJCCCJJ=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CCJCCCJ=nothing:set CJJJCCCC=nothing:set CJJCJJJJ=nothing:set CJJCJJJC=nothing:CJCCCJJ.close : set CJCCCJJ=nothing:CCCCJC.Close : Set CCCCJC=Nothing:CCCCJJ.Close : Set CCCCJJ=Nothing:CJJCJJCJ.Close : Set CJJCJJCJ = Nothing:CCCJCJ.Close : Set CCCJCJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJCJCJCC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJCJJJCC("!$*0|6DD286"),server.URLEncode(CJCJCJCC)):Response.Redirect CJCJJJCC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::Function CJJCJJCC():Dim CJCCCJJ, CJCCCJC(), CJCJJCJ, CJCJCCC, CJCCCCJ,CJCCCCC:If Not IsArray(Application(CJCJJJCC("!$*0%6DED"))) Then
CCCCCJ=CJCJJJCC("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 CJCCCJJ=server.createobject(CJCJJJCC("25@53]C64@C5D6E")):CJCCCJJ.open CCCCCJ,CCCJCJ,1:CJCCCCJ = CJCCCJJ.RecordCount:CJCCCCC=CJCCCJJ.fields.count-1:ReDim CJCCCJC(CJCCCCJ, CJCCCCC):If CJCCCCJ > 0 Then
For CJCJJCJ = 1 To CJCCCCJ:For CJCJCCC = 0 To CJCCCCC:if CJCJCCC=4 or CJCJCCC=6 or CJCJCCC=19 then
CJCCCJC(CJCJJCJ, CJCJCCC) = CJJCCJJC(CJCCCJJ(CJCJCCC))
else
CJCCCJC(CJCJJCJ, CJCJCCC) = CJCCCJJ(CJCJCCC):if CJCCCJJ(CJCJCCC).type<>11 and isnull(CJCCCJC(CJCJJCJ, CJCJCCC)) then CJCCCJC(CJCJJCJ, CJCJCCC)=""
end if:Next:CJCCCJJ.MoveNext:Next
End If:CJCCCJJ.Close: Set CJCCCJJ = Nothing:Application(CJCJJJCC("!$*0%6DED")) = CJCCCJC
End If:CJJCJJCC = Application(CJCJJJCC("!$*0%6DED")):End Function::Function CJJCJCJJ(CJCCJJC):Dim CCJJJJJ, CCJJJJC, CCJJJCJ, CCJJJCC, str:If Not CJJJCCJC(CJCCJJC) or CJCCJJC=0 Then
str=0
else
CCJJJJJ = Fix(CJCCJJC / 86400):CCJJJJC = Fix((CJCCJJC - CCJJJJJ * 86400) / 3600):CCJJJCJ = Fix((CJCCJJC - CCJJJJJ * 86400 - CCJJJJC * 3600) / 60):CCJJJCC = Fix(CJCCJJC - CCJJJJJ * 86400 - CCJJJJC * 3600 - CCJJJCJ * 60):If CCJJJJJ <> 0 Then str = CCJJJJJ & CJCJJJCC("夤@")
If CCJJJJC <> 0 Then str = str & CCJJJJC & CJCJJJCC("尊@旱@")
If CCJJJCJ <> 0 Then str = str & CCJJJCJ & CJCJJJCC("刁@")
if CCJJJCC <> 0 Then str = str & CCJJJCC & CJCJJJCC("种@")
end if:CJJCJCJJ = str:End Function:::::::::Sub ShowTestsSelect(CJJJJCJ,CJCJCCJJ):Dim CJCJJCJ,CJCCCJC,CJCCCJJ,CCJJCJC,CCJJCCJ,CJCJCCC,CCJJCCC:set CJCCCJJ=CCCJCJ.execute(CJCJJJCC("D6=64E ,E@A ,` ,=3 ,7C@> ,>6>36C0EJA6 ,H96C6 ,:5l") & CJJJJCJ):CJCCCJC=CJCCCJJ(0):CCJJCJC=CJJCJJCC:CJCJCCC=1:for CJCJJCJ=1 to ubound(CCJJCJC):CCJJCCJ=CCJJCJC(CJCJJCJ,0):if instr(CJCJJJCC("[") & CJCCCJC & CJCJJJCC("["),CJCJJJCC("[") & CCJJCCJ & CJCJJJCC("["))>0 then
CCJJCCC=CCJJCJC(CJCJJCJ,1):response.Write CJCJJJCC("k@AE:@? ,G2=F6lV") & CCJJCCJ & CJCJJJCC("V") & IIf(Cstr(CCJJCCJ) = CStr(CJCJCCJJ),CJCJJJCC(" ,D6=64E65"),"") & CJCJJJCC("m") & CJCJCCC & CJCJJJCC("] ,") & CCJJCCC & CJCJJJCC("k^@AE:@?m")
CJCJCCC=CJCJCCC+1
end if:next:for CJCJJCJ=1 to ubound(CCJJCJC):CCJJCCJ=CCJJCJC(CJCJJCJ,0):if CCJJCJC(CJCJJCJ,8)=CJJJJCJ then
CCJJCCC=CCJJCJC(CJCJJCJ,1):response.Write CJCJJJCC("k@AE:@? ,G2=F6lV") & CCJJCCJ & CJCJJJCC("V") & IIf(Cstr(CCJJCCJ) = CStr(CJCJCCJJ),CJCJJJCC(" ,D6=64E65"),"") & CJCJJJCC("m") & CJCJCCC & CJCJJJCC("] ,") & CCJJCCC & CJCJJJCC("k^@AE:@?m")
CJCJCCC=CJCJCCC+1
end if:next:CJCCCJJ.close : set CJCCCJJ=nothing:End Sub:::Function CJJCJCJC(ByVal CJJCJCCJ,style):if not isdate(CJJCJCCJ) then
CJJCJCJC=CJJCJCCJ:exit function
end if:dim CCJCJJJ,CCJCJJC,CCJCJCJ,CCJCJCC:CJJCJCCJ=cdate(CJJCJCCJ):CCJCJJJ=Year(CJJCJCCJ):CCJCJJC=Month(CJJCJCCJ):CCJCJCJ=Day(CJJCJCCJ):select case style:case 0:CJJCJCJC=CCJCJJJ & CJCJJJCC("\") & right(0 & CCJCJJC,2) & CJCJJJCC("\") & right(0 & CCJCJCJ,2):case 1:CJJCJCJC=CCJCJJJ & right(0 & CCJCJJC,2) & right(0 & CCJCJCJ,2):case 2:CJJCJCJC=right(CCJCJJJ,2) & CJCJJJCC("\") & right(0 & CCJCJJC,2) & CJCJJJCC("\") & right(0 & CCJCJCJ,2):case 3:CJJCJCJC=CCJCJJJ & CJCJJJCC("\") & right(0 & CCJCJJC,2):case 4:CJJCJCJC=right(0 & CCJCJJC,2) & CJCJJJCC("\") & right(0 & CCJCJCJ,2):case 5:CJJCJCJC=right(0 & CCJCJCJ,2):case 6:CJJCJCJC=CCJCJJJ & CJCJJJCC("幯@") & right(0 & CCJCJJC,2) & CJCJJJCC("會@") & right(0 & CCJCJCJ,2) & CJCJJJCC("无@"):case else
CJJCJCJC=CJJCJCCJ:end select:End Function:Function CJJCJCCC(Table):Dim CJCCCJJ, CJCCCCJ, str(), CJCJJCJ,CJCJCCC,CCJCCJJ:CCJCCJJ=UCase(Table):If Not IsArray(Application(CJCJJJCC("!$*0") & CCJCCJJ)) Then
CCCCCJ=CJCJJJCC("D6=64E ,:5[?2>6[>6>36CEJA6 ,7C@> ,,") & Table & CJCJJJCC(". ,@C56C ,3J ,D@CE[:5"):set CJCCCJJ=server.createobject(CJCJJJCC("25@53]C64@C5D6E")):CJCCCJJ.open CCCCCJ,CCCJCJ,1:CJCCCCJ = CJCCCJJ.RecordCount:ReDim str(CJCCCCJ, 2):If CJCCCCJ > 0 Then
For CJCJJCJ = 1 To CJCCCCJ:for CJCJCCC=0 to 2:str(CJCJJCJ, CJCJCCC) = CJCCCJJ(CJCJCCC):next:CJCCCJJ.MoveNext:Next
End If:CJCCCJJ.Close: Set CJCCCJJ = Nothing:Application(CJCJJJCC("!$*0") & CCJCCJJ) = str
End If:CJJCJCCC = Application(CJCJJJCC("!$*0") & CCJCCJJ):End Function:Sub ShowListSelect(CJCJCJCJ,CJCJCCJC,CJCJCCJJ):Dim str, CJCJJCJ, CCJCCJC:CCJCCJC = CJJCJCCC(CJCJCJCJ):For CJCJJCJ = 1 To UBound(CCJCCJC):if Cstr(CCJCCJC(CJCJJCJ,2))=Cstr(CJCJCCJC) then
str = str & CJCJJJCC("k@AE:@? ,G2=F6lV") & CCJCCJC(CJCJJCJ, 0) & CJCJJJCC("V")
If CStr(CCJCCJC(CJCJJCJ, 0)) = CJCJCCJJ & "" Then str = str & CJCJJJCC(" ,D6=64E65lVD6=64E65V")
str = str & CJCJJJCC("m") & CCJCCJC(CJCJJCJ, 1) & CJCJJJCC("k^@AE:@?m")
end if:Next:Response.Write str:End Sub:Function CJJCCJJJ(CJCJCJCJ,CJCJCCJC,CCJJCCJ):Dim str, CJCJJCJ, CCJCCJC:CCJCCJC = CJJCJCCC(CJCJCJCJ):For CJCJJCJ = 1 To UBound(CCJCCJC):if Cstr(CCJCCJC(CJCJJCJ,2))=Cstr(CJCJCCJC) and CStr(CCJCCJC(CJCJJCJ, 0)) = CCJJCCJ & "" then
str=CCJCCJC(CJCJJCJ,1):exit for
end if:Next:if str="" then str=CJCJJJCC(",朥@矠@.")
CJJCCJJJ=str:End Function:::::::::::::Function CJJCCJJC(CJCJCCCJ):if isnull(CJCJCCCJ) then
CJJCCJJC=""
else
On Error Resume Next:CJJCCJJC=CJCJCCCJ:if err.number=-2147352567 then
CJJCCJJC="":err.Clear
end if
end if:End Function::::Sub ClearCache(CJCJCCCC):Application.Contents.Remove CJCJCCCC
End Sub::Class jTree:Private CCCCCJ, CCJCCCJ, CCJCCCC, CCCJJJJ,CCCJJJC,CCCJJCJ,CCCJJCC,CCCJCJJ:Private Sub Class_Initialize():CCJCCCC = 0:CCCJJJJ = 0:CCCJCJJ=10:End Sub:Public Property Let Table(CJCCJJJJ):if CJCCJJJJ="" then Call RedirectMessage(CJCJJJCC("寴@丈@赲@，,;%C66籶@宙@來@匑@旱@沜@朄@讹@罩@忀@襼@癿@屙@怢@！,"))
CCCJJJC=CJCCJJJJ:CCCJJCJ=CJCJJJCC("!$*0") & UCase(CCCJJJC):Call GetTreeArray:End Property:Public Property Get Table():Table=CCCJJJC:End Property::Public Property Get Count():Count=CCCJJJJ-CCCJCJJ:End Property:Private Sub GetTreeArray():Dim CJCJJCJ, CJCJCCC, CCCJCJC,RecordCount:CCJCCCJ = Application(CCCJJCJ):If Not IsArray(CCJCCCJ) Then
CCCCCJ = CJCJJJCC("D6=64E ,4@F?EW:5X ,7C@> ,") & CCCJJJC:if CCCJJCC<>"" then CCCCCJ=CCCCCJ & CJCJJJCC(" ,H96C6 ,") & CCCJJCC
set CCCJCJC=CCCJCJ.execute(CCCCCJ):RecordCount=CCCJCJC(0):if RecordCount=0 then Call RedirectMessage(CJCJJJCC("柠@话@W") & CCCJJJC & CJCJJJCC("^") & CCCJJCC & CJCJJJCC("X沜@朄@绎@林@敫@捩@"))
CCCJJJJ=RecordCount+CCCJCJJ:ReDim CCJCCCJ(CCCJJJJ, 4):CCCCCJ = CJCJJJCC("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCCJJJC & CJCJJJCC(" ,H:E9 ,W?@=@4<X"):if CCCJJCC<>"" then CCCCCJ=CCCCCJ & CJCJJJCC(" ,H96C6 ,") & CCCJJCC
CCCCCJ=CCCCCJ & CJCJJJCC(" ,@C56C ,3J ,D@CE[:5"):set CCCJCJC=CCCJCJ.execute(CCCCCJ):For CJCJJCJ = 1 To RecordCount:For CJCJCCC = 0 To 4:CCJCCCJ(CJCJJCJ, CJCJCCC) = CCCJCJC(CJCJCCC):if IsNull(CCJCCCJ(CJCJJCJ,4)) then CCJCCCJ(CJCJJCJ,4)=0
If CCJCCCJ(CJCJJCJ,2)="" then CCJCCCJ(CJCJJCJ,2)=CJCJJJCC(",穵@.")
Next:CCCJCJC.MoveNext:Next:CCCJCJC.Close: Set CCCJCJC = Nothing:for CJCJJCJ=CCCJJJJ-(CCCJCJJ-1) to CCCJJJJ:CCJCCCJ(CJCJJCJ,0)=CJCJJCJ:next:Application.Lock():Application(CCCJJCJ) = CCJCCCJ:Application.UnLock()
else
CCCJJJJ=Ubound(CCJCCCJ)
End If:End Sub:::::Private Function CJJCCCJJ(CCJJCCJ):dim CJCJJCJ,CCCJCCC:CJJCCCJJ=0:CCCJCCC=CStr(CCJJCCJ):if CCCJCCC<>"0" then
for CJCJJCJ=1 to CCCJJJJ:If CStr(CCJCCCJ(CJCJJCJ, 0))=CCCJCCC Then
CJJCCCJJ = CJCJJCJ:Exit For
End If:Next
end if:End Function:Public Function CJJCCCJC(CCJJCCJ):if Cstr(CCJJCCJ)="0" then
CJJCCCJC=CJCJJJCC("栴@")
else
Dim CJCJJCJ,CCCJCJC:CJCJJCJ=CJJCCCJJ(CCJJCCJ):if CJCJJCJ>0 then
CJJCCCJC=CCJCCCJ(CJCJJCJ,2):if CJJCCCJC="" then
set CCCJCJC=CCCJCJ.execute(CJCJJJCC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCCJJJC & CJCJJJCC(" ,H96C6 ,:5l") & CCJJCCJ):if CCCJCJC.eof then Call RedirectMessage(CJCJJJCC("xs（,") & CCJJCCJ & CJCJJJCC("）,朥@批@别@"))
CJJCCCJC=CCCJCJC(1):Call UpdateCache(CCJJCCJ,CCCJCJC(0),CJJCCCJC,CCCJCJC(2),CCCJCJC(3)):CCCJCJC.Close: Set CCCJCJC = Nothing
end if
else
set CCCJCJC=CCCJCJ.execute(CJCJJJCC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCCJJJC & CJCJJJCC(" ,H96C6 ,:5l") & CCJJCCJ):if CCCJCJC.eof then Call RedirectMessage(CJCJJJCC("xs（,") & CCJJCCJ & CJCJJJCC("）,朥@批@别@"))
CJJCCCJC=CCCJCJC(1):Call UpdateCache(CCJJCCJ,CCCJCJC(0),CJJCCCJC,CCCJCJC(2),CCCJCJC(3)):CCCJCJC.Close: Set CCCJCJC = Nothing
end if
end if:End Function:::Public Function CJJCCCCJ(CCJJCCJ):Dim CJCJJCJ,CCCCJJJ:CJCJJCJ=CJJCCCJJ(CCJJCCJ):if CJCJJCJ=0 then
CCCCJJJ=CJJCCCCC(CCJJCCJ)
else
CCCCJJJ=CCJCCCJ(CJCJJCJ,3):if isnull(CCCCJJJ) or CCCCJJJ="" then
CCCCJJJ=CJJCCCCC(CCJJCCJ)
elseif Mid(CCCCJJJ,instrrev(CCCCJJJ,CJCJJJCC("["))+1)<>CStr(CCJJCCJ) then
CCCCJJJ=CJJCCCCC(CCJJCCJ)
elseif Left(CCCCJJJ,1)=CJCJJJCC("[") then
CCCCJJJ=CJJCCCCC(CCJJCCJ)
end if
end if:CJJCCCCJ=CCCCJJJ:End Function:Private Function CJJCCCCC(CCJJCCJ):dim CCCJCCC:CCCJCCC=CStr(CCJJCCJ):if CCCJCCC="0" then
CJJCCCCC=""
else
dim CCCJCJC:set CCCJCJC=CCCJCJ.execute(CJCJJJCC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCCJJJC & CJCJJJCC(" ,H96C6 ,:5l") & CCJJCCJ):if CCCJCJC.eof then
Call UpdateCache(CCJJCCJ,"","","",""):Call RedirectMessage(CJCJJJCC("顴@盩@（,xs：,") & CCJJCCJ & CJCJJJCC("）,丈@孓@圣@，,诲@患@迏@囙@吉@釈@斫@擈@佗@。,"))
else
if CCCJCJC(0)=0 then
CJJCCCCC="0," & CCJJCCJ
else
CJJCCCCC=CJJCCCCJ(CCCJCJC(0)) & CJCJJJCC("[") & CCJJCCJ
end if:if CCCJCJC(2)<>CJJCCCCC then
CCCJCJ.execute CJCJJJCC("FA52E6 ,") & CCCJJJC & CJCJJJCC(" ,D6E ,A2E9lV") & CJJCCCCC & CJCJJJCC("V ,H96C6 ,:5l") & CCJJCCJ
else
CJJCCCCC=CCCJCJC(2)
end if
end if:Call UpdateCache(CCJJCCJ,CCCJCJC(0),CCCJCJC(1),CJJCCCCC,CCCJCJC(3)):CCCJCJC.Close: Set CCCJCJC = Nothing
end if:End Function:::::::::::Public Sub ShowTree_Select(CCJJCCJ,ByVal CJCJCCJJ):Dim Str, CJCJJCJ:CCJJCCJ=CLng(CCJJCCJ):if isnumeric(CJCJCCJJ) then CJCJCCJJ=CLng(CJCJCCJJ) else CJCJCCJJ=0
if CCJJCCJ>0 then str=CJCJJJCC("k@AE:@? ,G2=F6lV") & CCJJCCJ & CJCJJJCC("V ,52E2\A:5lV_Vm") & CJJCCCJC(CCJJCCJ) & CJCJJJCC("k^@AE:@?m")
For CJCJJCJ = 1 To CCCJJJJ:If CCJJCCJ=0 or (CCJJCCJ>0 and InStr(CCJCCCJ(CJCJJCJ, 3), CJCJJJCC("[") & CCJJCCJ & CJCJJJCC("[")) > 0) Then
str=str & CJCJJJCC("k@AE:@?"):if CCJCCCJ(CJCJJCJ,0)=CJCJCCJJ then str=str & CJCJJJCC(" ,D6=64E65")
str=str & CJCJJJCC(" ,G2=F6lV") & CCJCCCJ(CJCJJCJ,0) & CJCJJJCC("V ,52E2\A:5lV") & CCJCCCJ(CJCJJCJ,1) & CJCJJJCC("Vm") & CCJCCCJ(CJCJJCJ,2) & CJCJJJCC("k^@AE:@?m") & vbcrlf
End If:Next:response.Write str:End Sub:Public Function Sql_GetChildren(CCJJCCJ):dim CCCCJJJ:CCCCJJJ=CJJCCCCJ(CCJJCCJ):Sql_GetChildren = CCCJJJC & CJCJJJCC("0A2E9ZV[V ,=:<6 ,V") & CCCCJJJ & CJCJJJCC("[TV")
End Function::::::::::Public Sub ClearCache():Application.Contents.Remove CCCJJCJ
End Sub:Public Sub UpdateCache(CCJJCCJ,CJCCJJJC,CJCCJJCJ,CCCCJJJ,CJCCJJCC):dim CJCJJCJ,CJCJCCC:CCJJCCJ=CLng(CCJJCCJ):CJCJJCJ=CJJCCCJJ(CCJJCCJ):if CJCCJJJC="" and CJCCJJCJ="" and CCCCJJJ="" and CJCCJJCC="" then
if CJCJJCJ>0 then
for CJCJCCC=1 to 4:CCJCCCJ(CJCJJCJ,CJCJCCC)=Null:next
end if
else
if CJCJJCJ=0 then
for CJCJCCC=1 to CCCJJJJ:if CCJCCCJ(CJCJCCC,1) & ""="" then
CJCJJCJ=CJCJCCC:exit for
end if:next
end if:if CJCJJCJ=0 then
Call ClearCache
else
CCJCCCJ(CJCJJCJ,0)=CLng(CCJJCCJ):if CJCCJJJC<>"" then CCJCCCJ(CJCJJCJ,1)=CLng(CJCCJJJC)
if CJCCJJCJ<>"" then CCJCCCJ(CJCJJCJ,2)=CJCCJJCJ
if CCCCJJJ<>"" then CCJCCCJ(CJCJJCJ,3)=CCCCJJJ
if CJCCJJCC<>"" then CCJCCCJ(CJCJJCJ,4)=CLng(CJCCJJCC)
end if
end if:if CJCJJCJ>0 then
Application.Lock():Application(CCCJJCJ) = CCJCCCJ:Application.UnLock()
end if:End Sub:Private Sub Debug(CJCJCJCC):Call ConnClose:Response.Write CJCJCJCC:Response.End:End Sub:Private Function CJJJCCCJ():CJJJCCCJ=CJCJJJJC+1:End Function:Private Function CJCJJJJC():dim CJCCCJJ:set CJCCCJJ=CCCJCJ.execute(CJCJJJCC("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CCCJJJC & CJCJJJCC(" ,@C56C ,3J ,:5 ,56D4")):CJCJJJJC=CJCCCJJ(0):CJCCCJJ.Close: Set CJCCCJJ = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::dim CJCJCJJ:CCCCCJ=Request.ServerVariables(CJCJJJCC("!p%w0x}u~")):if instr(CCCCCJ,CJCJJJCC("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CJJCJJJ and not CJJCCCC then Call RedirectMessage(CJCJJJCC("寴@丈@赲@，,患@沜@朄@迖@兠@诠@顰@靝@癿@朾@陋@。,"))
CJCJCJJ=CJJJCJC
elseif instr(CCCCCJ,CJCJJJCC("^>^D49@@=^DEF56?E^"))>0 or instr(CCCCCJ,CJCJJJCC("^DEF56?E^"))>0 then
Call CheckLogined:CJCJCJJ=CJJJCJC
elseif instr(CCCCCJ,CJCJJJCC("^D49@@="))>0 then
CJCJCJJ=Request.QueryString(CJCJJJCC("D49@@=")):if not CJJJCCJC(CJCJCJJ) then CJCJCJJ=Request.QueryString(CJCJJJCC("F"))
if not CJJJCCJC(CJCJCJJ) then CJCJCJJ=Request.QueryString(CJCJJJCC("D4"))
if not CJJJCCJC(CJCJCJJ) then Call RedirectMessage(CJCJJJCC("糶@绚@厽@敫@W$49@@=X忀@顶@丵@敫@孒@。,"))
CJCJCJJ=csng(CJCJCJJ)
end if:if CJCJCJJ=0 then Call RedirectMessage(CJCJJJCC("糶@绚@厽@敫@W$49@@=X锔@诪@W_X。,"))
Dim CCCCJJC:Call SetConfig:Sub SetConfig():dim CJCJJCC,CJCCCJJ:CCCCCJ=CJCJJJCC("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") & CJCJCJJ:set CJCCCJJ=CCCJCJ.execute(CCCCCJ):if CJCCCJJ.eof then Call RedirectMessage(CJCJJJCC("患@W") & CCCCCC & CJCJJJCC("X戻@圣@癿@卐@佈@W") & CJCJCJJ & CJCJJJCC("X朥@批@别@。,"))
ReDim CJCJJCC(61):CJCJJCC(0)=CJCCCJJ(CJCJJJCC(";:2@H6:")) & "":CJCJJCC(1)=CJCCCJJ(CJCJJJCC("EJA6")):CJCJJCC(2)=CJCCCJJ(CJCJJJCC("D>D")):CJCJJCC(3)=CJCCCJJ(CJCJJJCC("4FDE@>8C@FA")) & "":CJCJJCC(4)=CJCCCJJ(CJCJJJCC("D:5632C0@E96C")) & "":CJCJJCC(5)=IIf(isnull(CJCCCJJ(CJCJJJCC("E6DEC6DF=EG:6H"))),0,CJCCCJJ(CJCJJJCC("E6DEC6DF=EG:6H"))):CJCJJCC(6)=CJCCCJJ(CJCJJJCC("K:IF?E:>6")):CJCJJCC(7)=CJCCCJJ(CJCJJJCC("766")):CJCJJCC(8)=CJCCCJJ(CJCJJJCC("C6E6DE52J")):CJCJJCC(9)=CJCCCJJ(CJCJJJCC("6IA:C652E6")):CJCJJCC(10)=CJCCCJJ(CJCJJJCC("E:E=6")):CJCJJCC(11)=CJCCCJJ(CJCJJJCC(":?EC@")) & "":CJCJJCC(12)=CJCCCJJ(CJCJJJCC("A:4EFC6")) & "":CJCJJCC(13)=CJCCCJJ(CJCJJJCC("72>:=J")):CJCJJCC(14)=CJCCCJJ(CJCJJJCC("4@AJC:89E")) & "":CJCJJCC(15)=IIf(isnull(CJCCCJJ(CJCJJJCC("D6>6DE6C0DE2CE052E6"))),CJCJJJCC("`h__\`\`"),CJCCCJJ(CJCJJJCC("D6>6DE6C0DE2CE052E6"))):CJCJJCC(16)=IIf(isnull(CJCCCJJ(CJCJJJCC("K:IF?0E:>6D09:89=:89E"))),0,CJCCCJJ(CJCJJJCC("K:IF?0E:>6D09:89=:89E"))):CJCJJCC(17)=CJCCCJJ(CJCJJJCC("4@?E24E")) & "":CJCJJCC(18)=CJCCCJJ(CJCJJJCC("D2?5E23=6")):CJCJJCC(19)=CJCCCJJ(CJCJJJCC("4C:D:D")):CJCJJCC(20)=CJCCCJJ(CJCJJJCC("JJ52E6")):CJCJJCC(21)=CJCCCJJ(CJCJJJCC("BB")):CJCJJCC(22)=CJCCCJJ(CJCJJJCC("JFJF60D>D0EA=")) & "":CJCJJCC(23)=CJCCCJJ(CJCJJJCC("JFJF60E6DE0=3")) & "":CJCJJCC(25)=CJCCCJJ(CJCJJJCC("6IA6CE")):CJCJJCC(26)=CJCCCJJ(CJCJJJCC(">@5:?7@")):CJCJJCC(27)=CJCCCJJ(CJCJJJCC("9@>6A286E@AA:4EFC6")) & "":CJCJJCC(28)=CJCCCJJ(CJCJJJCC("4C:D:D=3")):CJCJJCC(29)=IIf(CJCCCJJ(CJCJJJCC("4C:D:D@=5")),False,True):CJCJJCC(30)=CJCCCJJ(CJCJJJCC("8C@FA8F:52?46")):CJCJJCC(31)=CJCCCJJ(CJCJJJCC("3:@7665324<")):CJCJJCC(32)=CJCCCJJ(CJCJJJCC("<6JDEC")):CJCJJCC(33)=CJCCCJJ(CJCJJJCC("=@8@")) & "":CJCJJCC(34)=CJCCCJJ(CJCJJJCC("K:46")):CJCJJCC(35)=IIf(CJCCCJJ(CJCJJJCC(":D?6H")),True,False):CJCJJCC(36)=121:CJCJJCC(37)=111:CJCJJCC(38)=160:CJCJJCC(39)=CJCCCJJ(CJCJJJCC("8F6DE3@@<")):CJCJJCC(40)=CJCCCJJ(CJCJJJCC("75D")):CJCJJCC(42)=CJCCCJJ(CJCJJJCC("9@>6=@8:?")):CJCJJCC(43)=CJCCCJJ(CJCJJJCC("K:IF?0?6657665324<")):CJCJJCC(44)=CJCCCJJ(CJCJJJCC("K:IF?0E:>6D0=:>:E")):CJCJJCC(45)=CJCCCJJ(CJCJJJCC("4@>A=6E60:?7@")):CJCJJCC(46)=CJCCCJJ(CJCJJJCC("E6DE:?EC@")) & "":CJCJJCC(47)=IIf(isnull(CJCCCJJ(CJCJJJCC("JFJF60367@C60E:>6"))),0,CJCCCJJ(CJCJJJCC("JFJF60367@C60E:>6"))):CJCJJCC(49)=CJCCCJJ(CJCJJJCC("D>D0C646:G6C")):CJCJJCC(50)=CJCCCJJ(CJCJJJCC("D>D0D:8?")) & "":CJCJJCC(52)=CJCCCJJ(CJCJJJCC("JFJF602CC2?86")):CJCJJCC(53)=IIf(isnull(CJCCCJJ(CJCJJJCC("DEF56?E0BF6DE:@?04@F?E"))),0,CJCCCJJ(CJCJJJCC("DEF56?E0BF6DE:@?04@F?E"))):CJCJJCC(54)=CJCCCJJ(CJCJJJCC("9:560=30@FE@7286")):CJCJJCC(55)=CJCCCJJ(CJCJJJCC("JFJF60E6DE052JD")):CJCJJCC(56)=CJCCCJJ(CJCJJJCC("JFJF60H66<0=:>:E")):CJCJJCC(57)=CJCCCJJ(CJCJJJCC("JFJF604964<65")):CJCJJCC(58)=CJCCCJJ(CJCJJJCC("K:IF?0?6657665324<0?6IE")):CJCJJCC(59)=CJCCCJJ(CJCJJJCC("4964<?6HDEF56?E")):CJCJJCC(60)=CJCCCJJ(CJCJJJCC("K:IF?04=@D6052E6")):CJCCCJJ.close : set CJCCCJJ=nothing:if isNull(CJCJJCC(8)) or CJCJJCC(8)="" then CJCJJCC(8)=0
if isdate(CJCJJCC(9)) then
CJCJJCC(9)=cdate(CJCJJCC(9)):if CJCJJCC(9)<Date then Call RedirectMessage(CJCJJJCC("寴@丈@赲@，,患@癿@糶@绚@诐@産@朚@陋@W") & CJCJJCC(9) & CJCJJJCC("X巭@迂@。,"))
end if:if not CJJJCCJC(CJCJJCC(20)) then CJCJJCC(20)=7
select case CJCJJCC(1):case 1,2,16:CJCJJCC(36)=159:case 4,5,6,10,11:CJCJJCC(36)=190:CJCJJCC(37)=178:CJCJJCC(38)=191:case 7,13:CJCJJCC(36)=164:CJCJJCC(37)=178:CJCJJCC(38)=179:end select:CCCCJJC=CJCJJCC:End Sub:Function CJJCJJJC(CJCCJCJJ):dim CJCJJCC(7,1),CJCJJCJ,CCCCJCJ,CCCCJCC:CCCCJCJ=Array(CJCJJJCC("$49@@="),CJCJJJCC("$EF56?E"),CJCJJJCC("s6AE"),CJCJJJCC("vC256"),CJCJJJCC("r=2DD>2E6"),CJCJJJCC("}F>36C"),CJCJJJCC("%62496C"),CJCJJJCC("!2C6?E")):select case CCCCJJC(1):case 1,2 : CCCCJCC=Array(CJCJJJCC("孡@栜@"),CJCJJJCC("孡@甚@"),CJCJJJCC("珨@红@"),CJCJJJCC("幯@红@"),CJCJJJCC("吇@孡@"),CJCJJJCC("孡@史@"),CJCJJJCC("敔@布@"),CJCJJJCC("宱@镺@")):case 3,16 : CCCCJCC=Array(CJCJJJCC("孡@栜@"),CJCJJJCC("孡@甚@"),CJCJJJCC("陝@糶@"),CJCJJJCC("幯@红@"),CJCJJJCC("吇@孡@"),CJCJJJCC("孡@史@"),CJCJJJCC("敔@布@"),CJCJJJCC("宱@镺@")):case 4 : CCCCJCC=Array(CJCJJJCC("匶@陝@"),CJCJJJCC("杠@论@耀@"),CJCJJJCC("卐@佈@"),CJCJJJCC("幯@仸@"),CJCJJJCC("吇@了@"),CJCJJJCC("缑@史@"),CJCJJJCC("匶@甚@"),CJCJJJCC("宱@屙@")):case 5 : CCCCJCC=Array(CJCJJJCC("卐@佈@"),CJCJJJCC("呓@巠@"),CJCJJJCC("郣@闣@"),CJCJJJCC("幯@仸@"),CJCJJJCC("吇@了@"),CJCJJJCC("缑@史@"),CJCJJJCC("呓@巠@"),CJCJJJCC("宱@屙@")):case 6 : CCCCJCC=Array(CJCJJJCC("卐@佈@"),CJCJJJCC("杠@论@耀@"),CJCJJJCC("线@刦@"),CJCJJJCC("幯@仸@"),CJCJJJCC("吇@了@"),CJCJJJCC("缑@史@"),CJCJJJCC("咣@话@布@"),CJCJJJCC("宱@屙@")):case 7 : CCCCJCC=Array(CJCJJJCC("卐@佈@"),CJCJJJCC("宓@兰@"),CJCJJJCC("郣@闣@"),CJCJJJCC("幯@仸@"),CJCJJJCC("戓@叆@"),CJCJJJCC("缑@史@"),CJCJJJCC("咣@话@布@"),CJCJJJCC("宱@屙@")):case 8 : CCCCJCC=Array(CJCJJJCC("卐@佈@"),CJCJJJCC("杠@论@耀@"),CJCJJJCC("卐@佈@"),CJCJJJCC("兠@聇@幯@仸@"),CJCJJJCC("吇@了@"),CJCJJJCC("缑@史@"),CJCJJJCC("咣@话@布@"),CJCJJJCC("酈@偱@")):case 9 : CCCCJCC=Array(CJCJJJCC("卐@佈@"),CJCJJJCC("敔@布@"),CJCJJJCC("卐@佈@"),CJCJJJCC("幯@仸@"),CJCJJJCC("吇@了@"),CJCJJJCC("缑@史@"),CJCJJJCC("咣@话@布@"),CJCJJJCC("酈@偱@")):case 10 : CCCCJCC=Array(CJCJJJCC("卐@佈@"),CJCJJJCC("氌@譡@"),CJCJJJCC("郣@闣@"),CJCJJJCC("兠@譡@幯@仸@"),CJCJJJCC("吇@了@"),CJCJJJCC("缑@史@"),CJCJJJCC("咣@话@布@"),CJCJJJCC("宱@屙@")):case 11 : CCCCJCC=Array(CJCJJJCC("卐@佈@"),CJCJJJCC("內@劜@呓@"),CJCJJJCC("郣@闣@"),CJCJJJCC("幯@仸@"),CJCJJJCC("吇@了@"),CJCJJJCC("缑@史@"),CJCJJJCC("咣@话@布@"),CJCJJJCC("宱@屙@")):case 12 : CCCCJCC=Array(CJCJJJCC("卐@佈@"),CJCJJJCC("幭@譡@"),CJCJJJCC("卐@佈@"),CJCJJJCC("兠@譡@幯@仸@"),CJCJJJCC("吇@了@"),CJCJJJCC("缑@史@"),CJCJJJCC("咣@话@布@"),CJCJJJCC("宱@屙@")):case 13 : CCCCJCC=Array(CJCJJJCC("卐@佈@"),CJCJJJCC("孡@呓@"),CJCJJJCC("卐@佈@"),CJCJJJCC("幯@仸@"),CJCJJJCC("戓@叆@"),CJCJJJCC("缑@史@"),CJCJJJCC("敔@呓@"),CJCJJJCC("宱@屙@")):case 14 : CCCCJCC=Array(CJCJJJCC("月@劜@炴@"),CJCJJJCC("局@氌@"),CJCJJJCC("线@刦@"),CJCJJJCC("幯@仸@"),CJCJJJCC("邶@采@"),CJCJJJCC("缑@史@"),CJCJJJCC("咣@话@布@"),CJCJJJCC("宱@屙@")):case 15 : CCCCJCC=Array(CJCJJJCC("卐@佈@"),CJCJJJCC("盌@独@氌@譡@"),CJCJJJCC("卐@佈@"),CJCJJJCC("兠@譡@幯@仸@"),CJCJJJCC("吇@了@"),CJCJJJCC("缑@史@"),CJCJJJCC("咣@话@布@"),CJCJJJCC("宱@屙@")):case else : CCCCJCC=CCCCJCJ
end select:for CJCJJCJ=0 to Ubound(CJCJJCC):CJCJJCC(CJCJJCJ,0)=CCCCJCJ(CJCJJCJ):CJCJJCC(CJCJJCJ,1)=CCCCJCC(CJCJJCJ):next:for CJCJJCJ=0 to Ubound(CJCJJCC):if CJCJJCC(CJCJJCJ,0)=CJCCJCJJ then
CJJCJJJC=CJCJJCC(CJCJJCJ,1):exit for
end if:next:End Function::Call CheckRight(79):Const CJJJCJJC="<span style='color:#070;'>√</span>"
Const CJJJCJCJ="<span style='color:#A00;'>×</span>"
dim CCCCCJJ:CCCCCJJ=request.querystring(CJCJJJCC("42==324<")):dim CCCCCJC,CCCCCCJ,CCCCCCC,CJJJJJJJ,CJJJJJJC,CJJJJJCJ,CJCJJCJ,CJJJJJCC,CJJJJCJJ,CJJJJCJC,CCJCJJC,CJJJJCCJ:CCCCCJC=Request.QueryString(CJCJJJCC("56AE")):CCCCCCJ=Request.QueryString(CJCJJJCC("=3:5")):CCCCCCC=Request.QueryString(CJCJJJCC("8C256")):CJJJJCCJ=Request.QueryString(CJCJJJCC("vC@FA")):CJJJJJJJ=Request.QueryString(CJCJJJCC("!@DE")):CJJJJJJC=Request.QueryString(CJCJJJCC("D6I")):CJJJJJCJ=Request.QueryString(CJCJJJCC("?@C>2=")):CJJJJJCC=Request.QueryString(CJCJJJCC("%`")):CJJJJCJJ=Request.QueryString(CJCJJJCC("%a")):CJJJJCJC=Request.QueryString(CJCJJJCC("$")):CCJCJJC=Request.QueryString(CJCJJJCC("|")):if not CJJJCCJC(CCCCCJC) then CCCCCJC=CJJJJCJ
dim CCJCCCJ:set CCJCCCJ=new jtree:CCJCCCJ.table=CJCJJJCC(">6>36C0EJA6"):Response.Write(vbCrLf):Response.Write(CJCJJJCC("kP5@4EJA6 ,9E>=m") & vbCrLf):Response.Write(CJCJJJCC("k9E>=m") & vbCrLf):Response.Write(CJCJJJCC("k9625m") & vbCrLf):Response.Write(CJCJJJCC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJCJJJCC("kE:E=6m旛@栂@颓@斂@桞@k^E:E=6m") & vbCrLf):Response.Write(CJCJJJCC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CJCJJJCC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^49@D6?^49@D6?]>:?]4DDQm") & vbCrLf):Response.Write(CJCJJJCC("k^9625m") & vbCrLf):Response.Write(CJCJJJCC("k3@5Jm") & vbCrLf):Response.Write(CJCJJJCC("k7@C> ,?2>6lQ7@C>`Q ,>6E9@5lQ86EQ ,24E:@?lQQm") & vbCrLf):Response.Write(CJCJJJCC(" ,kE23=6 ,4=2DDlQE30E:E=6Qm") & vbCrLf):Response.Write(CJCJJJCC(" ,kECm") & vbCrLf):Response.Write(CJCJJJCC(" ,kE9 ,C@HDA2?lQaQm浆@访@k^E9m") & vbCrLf):Response.Write(CJCJJJCC(" ,kE5 ,4=2DDlQ=236=Qm苾@囯@：,k^E5m") & vbCrLf):Response.Write(CJCJJJCC(" ,kE5mkD6=64E ,?2>6lQs6AEQ ,:5lQs6AEQm") & vbCrLf):Response.Write(CJCJJJCC(" ,")):Call CCJCCCJ.ShowTree_Select(CJJJJCJ, CCCCCJC):Response.Write(vbCrLf):Response.Write(CJCJJJCC(" ,k^D6=64Em") & vbCrLf):Response.Write(CJCJJJCC(" ,")):If CCCCJJC(1)>=3 Then
Response.Write(vbCrLf):Response.Write(CJCJJJCC(" ,kD6=64E ,?2>6lQvC256Q ,:5lQvC256Qm") & vbCrLf):Response.Write(CJCJJJCC(" ,")):if CJJJCCJ=0 then
response.Write CJCJJJCC("k@AE:@? ,G2=F6lVVm,幯@红@.k^@AE:@?m")
Call ShowListSelect(CJCJJJCC(">6>36C08C256"),CJCJCJJ,CCCCCCC)
else
response.Write CJCJJJCC("k@AE:@? ,G2=F6lV") & CJJJCCJ & CJCJJJCC("Vm") & CJJCCJJJ(CJCJJJCC(">6>36C08C256"),CJCJCJJ,CJJJCCJ) & CJCJJJCC("k^@AE:@?m")
end if:Response.Write(vbCrLf):Response.Write(CJCJJJCC(" ,k^D6=64Em") & vbCrLf):Response.Write(CJCJJJCC(" ,"))
End If::If CCCCJJC(3)<>"" Then
Response.Write(vbCrLf):Response.Write(CJCJJJCC(" ,kD6=64E ,?2>6lQ8C@FAQ ,:5lQ8C@FAQm") & vbCrLf):Response.Write(CJCJJJCC(" ,k@AE:@? ,G2=F6lQQm,")):Response.Write  CCCCJJC(3):Response.Write(CJCJJJCC(".k^@AE:@?m") & vbCrLf):Response.Write(CJCJJJCC(" ,")):Call ShowListSelect(CJCJJJCC(">6>36C04FDE@>8C@FA"),CJJJCJC,CJJJJCCJ):Response.Write(vbCrLf):Response.Write(CJCJJJCC(" ,k^D6=64Em") & vbCrLf):Response.Write(CJCJJJCC(" ,"))
End If:Response.Write(CJCJJJCC("k^E5m") & vbCrLf):Response.Write(CJCJJJCC(" ,kE5 ,4=2DDlQ=236=Qm旱@闯@：,k^E5m") & vbCrLf):Response.Write(CJCJJJCC(" ,kE5mk:?AFE ,?2>6lQ%`Q ,EJA6lQ52E6Q ,G2=F6lQ")):Response.Write  CJJJJJCC:Response.Write(CJCJJJCC("Qm") & vbCrLf):Response.Write(CJCJJJCC(" ,k:?AFE ,?2>6lQ%aQ ,EJA6lQ52E6Q ,G2=F6lQ")):Response.Write  CJJJJCJJ:Response.Write(CJCJJJCC("Qmk^E5m") & vbCrLf):Response.Write(CJCJJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJCJJJCC(" ,kECm") & vbCrLf):Response.Write(CJCJJJCC(" ,kE5 ,4=2DDlQ=236=Qm释@衣@：,k^E5m") & vbCrLf):Response.Write(CJCJJJCC(" ,kE5mkD6=64E ,?2>6lQ=3:5Q ,:5lQ=3:5Qm") & vbCrLf):Response.Write(CJCJJJCC(" ,k@AE:@? ,G2=F6lQQm,丈@陋@.k^@AE:@?m") & vbCrLf):Response.Write(CJCJJJCC(" ,")):Call ShowTestsSelect(CJJJCJC,CCCCCCJ):Response.Write(vbCrLf):Response.Write(CJCJJJCC(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CJCJJJCC(" ,kE5 ,4=2DDlQ=236=Qm共@仑@：,k^E5m") & vbCrLf):Response.Write(CJCJJJCC(" ,kE5mkD6=64E ,?2>6lQ$6IQ ,:5lQ$6IQm") & vbCrLf):Response.Write(CJCJJJCC(" ,k@AE:@? ,G2=F6lQQm,怢@刦@.k^@AE:@?m") & vbCrLf):Response.Write(CJCJJJCC(" ,k@AE:@? ,G2=F6lQ`Q ,")):Response.Write  IIf(CJJJJJJC="1",CJCJJJCC("D6=64E65"),""):Response.Write(CJCJJJCC("m甲@k^@AE:@?m") & vbCrLf):Response.Write(CJCJJJCC(" ,k@AE:@? ,G2=F6lQ_Q ,")):Response.Write  IIf(CJJJJJJC="0",CJCJJJCC("D6=64E65"),""):Response.Write(CJCJJJCC("m奮@k^@AE:@?m") & vbCrLf):Response.Write(CJCJJJCC(" ,k^D6=64Em") & vbCrLf):Response.Write(CJCJJJCC(" ,kD6=64E ,?2>6lQ}@C>2=Q ,:5lQ}@C>2=Qm") & vbCrLf):Response.Write(CJCJJJCC(" ,k@AE:@? ,G2=F6lQQm,歞@廽@帳@.k^@AE:@?m") & vbCrLf):Response.Write(CJCJJJCC(" ,k@AE:@? ,G2=F6lQ`Q ,")):Response.Write  IIf(CJJJJJCJ="1",CJCJJJCC("D6=64E65"),""):Response.Write(CJCJJJCC("m歞@帳@k^@AE:@?m") & vbCrLf):Response.Write(CJCJJJCC(" ,k@AE:@? ,G2=F6lQ_Q ,")):Response.Write  IIf(CJJJJJCJ="0",CJCJJJCC("D6=64E65"),""):Response.Write(CJCJJJCC("m廽@帳@k^@AE:@?m") & vbCrLf):Response.Write(CJCJJJCC(" ,k^D6=64Em") & vbCrLf):Response.Write(CJCJJJCC(" ,kD6=64E ,?2>6lQ$Q ,@?r92?86lQ;2G2D4C:AEi7@C>`]DF3>:EWXQm") & vbCrLf):Response.Write(CJCJJJCC(" ,k@AE:@? ,G2=F6lQQm,掍@床@.k^@AE:@?m") & vbCrLf):Response.Write(CJCJJJCC(" ,k@AE:@? ,G2=F6lQ52E6E:>6 ,56D4Q ,")):Response.Write  IIf(CJJJJCJC=CJCJJJCC("52E6E:>6 ,56D4"),CJCJJJCC("D6=64E65"),""):Response.Write(CJCJJJCC("m旱@闯@k^@AE:@?m") & vbCrLf):Response.Write(CJCJJJCC(" ,k@AE:@? ,G2=F6lQ>6>36CQ ,")):Response.Write  IIf(CJJJJCJC=CJCJJJCC(">6>36C"),CJCJJJCC("D6=64E65"),""):Response.Write(CJCJJJCC("m")):Response.Write  CJJCJJJC(CJCJJJCC("$EF56?E")):Response.Write(CJCJJJCC("k^@AE:@?m") & vbCrLf):Response.Write(CJCJJJCC(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CJCJJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJCJJJCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJCJJJCC(" ,kE23=6 ,H:5E9lQ`__TQm") & vbCrLf):Response.Write(CJCJJJCC(" ,kECm") & vbCrLf):Response.Write(CJCJJJCC(" ,")):if CJJJJJJJ="1" then
Response.Write(vbCrLf):Response.Write(CJCJJJCC(" ,kE5mk:?AFE ,EJA6lQ3FEE@?Q ,:5lQ3E?\@<Q ,G2=F6lQ逄@奸@亁@Qmk^E5m") & vbCrLf):Response.Write(CJCJJJCC(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CJCJJJCC(" ,kE5 ,2=:8?lQC:89EQmk:?AFE ,EJA6lQ9:556?Q ,?2>6lQA@DEQ ,G2=F6lQ`Qm") & vbCrLf):Response.Write(CJCJJJCC(" ,k:?AFE ,EJA6lQ9:556?Q ,?2>6lQ42==324<Q ,:5lQ42==324<Q ,G2=F6lQ")):Response.Write  CCCCCJJ:Response.Write(CJCJJJCC("Qm") & vbCrLf):Response.Write(CJCJJJCC(" ,k:?AFE ,EJA6lQDF3>:EQ ,G2=F6lQ柠@ ,话@Qm") & vbCrLf):Response.Write(CJCJJJCC(" ,k:?AFE ,EJA6lQ3FEE@?Q ,E:E=6lQ釈@罩@戻@朄@杜@仱@Q ,@?4=:4<lQ;2G2D4C:AEi=@42E:@?lVnVQ ,G2=F6lQ釈@ ,罩@Qmk^E5m") & vbCrLf):Response.Write(CJCJJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJCJJJCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJCJJJCC("k^7@C>m") & vbCrLf)::if CJJJJJJJ="1" then
Response.Write(vbCrLf):Response.Write(CJCJJJCC("kE23=6 ,4=2DDlQE30=:DEQm") & vbCrLf):Response.Write(CJCJJJCC(" ,kECm") & vbCrLf):Response.Write(CJCJJJCC(" ,kE9m床@k^E9m") & vbCrLf):Response.Write(CJCJJJCC(" ,kE9mk:?AFE ,EJA6lQ4964<3@IQ ,:5lQ4964<2==Qmk^E9m") & vbCrLf):Response.Write(CJCJJJCC(" ,kE9m")):Response.Write  CJJCJJJC(CJCJJJCC("}F>36C")):Response.Write(CJCJJJCC("k^E9m") & vbCrLf):Response.Write(CJCJJJCC(" ,kE9m姎@合@k^E9m") & vbCrLf):Response.Write(CJCJJJCC(" ,kE9m怢@刦@k^E9m") & vbCrLf):Response.Write(CJCJJJCC(" ,kE9m幯@齿@k^E9m") & vbCrLf):Response.Write(CJCJJJCC(" ,kE9m释@衣@k^E9m") & vbCrLf):Response.Write(CJCJJJCC(" ,kE9m访@浆@旱@闯@k^E9m") & vbCrLf):Response.Write(CJCJJJCC(" ,kE9m耒@旱@k^E9m") & vbCrLf):Response.Write(CJCJJJCC(" ,kE9m籶@垆@k^E9m") & vbCrLf):Response.Write(CJCJJJCC(" ,kE9m歞@廽@帳@k^E9m") & vbCrLf):Response.Write(CJCJJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJCJJJCC(" ,")):CCCCCJ=CJCJJJCC("H96C6 ,W=3k`_f ,@C ,=3m`_gX ,2?5 ,G2=:5l`"):if CCCCCJC=cstr(CJCJCJJ) then CCCCCJ=CCCCCJ & CJCJJJCC(" ,2?5 ,>6>36C0EJA60E@Al") & CCCCCJC else CCCCCJ=CCCCCJ & CJCJJJCC(" ,2?5 ,") & CCJCCCJ.Sql_GetChildren(CCCCCJC)
if CJJJCCJC(CCJCJJC) then CCCCCJ=CCCCCJ & CJCJJJCC(" ,2?5 ,>6>36Cl") & CCJCJJC
if CJJJCCJC(CCCCCCC) then CCCCCJ=CCCCCJ & CJCJJJCC(" ,2?5 ,8C256l") & CCCCCCC
if CJJJCCJC(CJJJJCCJ) then CCCCCJ=CCCCCJ & CJCJJJCC(" ,2?5 ,4FDE@>8C@FAl") & CJJJJCCJ
if CJJJCCJC(CCCCCCJ) then CCCCCJ=CCCCCJ & CJCJJJCC(" ,2?5 ,=3l") & CCCCCCJ
if CJJJCCJC(CJJJJJJC) then CCCCCJ=CCCCCJ & CJCJJJCC(" ,2?5 ,D6Il") & CJJJJJJC
if CJJJCCJC(CJJJJJCJ) then CCCCCJ=CCCCCJ & CJCJJJCC(" ,2?5 ,?@C>2=l") & CJJJJJCJ
if isDate(CJJJJJCC) then CCCCCJ=CCCCCJ & CJCJJJCC(" ,2?5 ,52E6E:>6mlV") & CJJJJJCC & CJCJJJCC("V")
if isDate(CJJJJCJJ) then CCCCCJ=CCCCCJ & CJCJJJCC(" ,2?5 ,52E6E:>6klV") & cdate(CJJJJCJJ)+1 & CJCJJJCC("V")
if CJCJCJJ<>"44" then CCCCCJ=CCCCCJ & CJCJJJCC(" ,2?5 ,>6>36C ,?@E ,:?W`[a[gghhb[``chga[abbebdfeX")
if CJJJJCJC="" then CCCCCJ=CCCCCJ & CJCJJJCC(" ,@C56C ,3J ,52E6E:>6 ,56D4") else CCCCCJ=CCCCCJ & CJCJJJCC(" ,@C56C ,3J ,") & CJJJJCJC
CCCCCJ=CJCJJJCC("D6=64E ,:5[?F>36C[C62=?2>6[52E6E:>6[?@C>2=[D6I[286[>6>36C[9@H=@?8[=3?2>649[EJA6 ,7C@> ,G0E6DE ,") & CCCCCJ:set CCCCJJ=CCCJCJ.execute(CCCCCJ):CJCJJCJ=1:while not CCCCJJ.eof:Response.Write(vbCrLf):Response.Write(CJCJJJCC(" ,kECm") & vbCrLf):Response.Write(CJCJJJCC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  CJCJJCJ:Response.Write(CJCJJJCC("k^E5m") & vbCrLf):Response.Write(CJCJJJCC(" ,kE5 ,2=:8?lQ46?E6CQmk:?AFE ,?2>6lQ:5=:DEQ ,EJA6lQ4964<3@IQ ,:5lQ:5=:DE0")):Response.Write  CCCCJJ(7):Response.Write(CJCJJJCC("Q ,G2=F6lQ")):Response.Write  CCCCJJ(7):Response.Write(CJCJJJCC("Qmk^E5m") & vbCrLf):Response.Write(CJCJJJCC(" ,kE5 ,4=2DDlQD>2==7@?EQm")):Response.Write  CCCCJJ(1):Response.Write(CJCJJJCC("k^E5m") & vbCrLf):Response.Write(CJCJJJCC(" ,kE5m")):Response.Write  CCCCJJ(2):Response.Write(CJCJJJCC("k^E5m") & vbCrLf):Response.Write(CJCJJJCC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  IIf(CCCCJJ(5),CJCJJJCC("甲@"),CJCJJJCC("奮@")):Response.Write(CJCJJJCC("k^E5m") & vbCrLf):Response.Write(CJCJJJCC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  CCCCJJ(6):Response.Write(CJCJJJCC("k^E5m") & vbCrLf):Response.Write(CJCJJJCC(" ,kE5m")):Response.Write  CCCCJJ(9):Response.Write(CJCJJJCC("k^E5m") & vbCrLf):Response.Write(CJCJJJCC(" ,kE5 ,2=:8?lQ46?E6CQ ,4=2DDlQD>2==7@?EQm")):Response.Write  CJJCJCJC(CCCCJJ(3),0):Response.Write(CJCJJJCC("k^E5m") & vbCrLf):Response.Write(CJCJJJCC(" ,kE5 ,2=:8?lQC:89EQm")):Response.Write  CJJCJCJJ(CCCCJJ(8)):Response.Write(CJCJJJCC("k^E5m") & vbCrLf):Response.Write(CJCJJJCC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  IIf(CCCCJJ(10)=0,CJCJJJCC("晩@柠@"),CJCJJJCC("臥@浆@")):Response.Write(CJCJJJCC("k^E5m") & vbCrLf):Response.Write(CJCJJJCC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  IIf(CCCCJJ(4),CJJJCJJC,CJJJCJCJ):Response.Write(CJCJJJCC("k^E5m") & vbCrLf):Response.Write(CJCJJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJCJJJCC(" ,")):CCCCJJ.movenext:CJCJJCJ=CJCJJCJ+1:wend:Response.Write(vbCrLf):Response.Write(CJCJJJCC("k^E23=6m") & vbCrLf)
End If:Response.Write(vbCrLf):Response.Write(CJCJJJCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJJJCC("kD4C:AE ,DC4lQ^$4C:AED^49@D6?^49@D6?];BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJJJCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E23=6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJJJCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];EC66];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJJJCC("kD4C:AEm") & vbCrLf):Response.Write(CJCJJJCC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJCJJJCC(" ,SWQE23=6]E30=:DEQX];%23=6WXj") & vbCrLf):Response.Write(CJCJJJCC(" ,SWQRs6AEQX];%C66$6=64EWXj") & vbCrLf):Response.Write(CJCJJJCC(" ,SWVD6=64EVX]H:5E9W7F?4E:@?W:[HXLC6EFC? ,HZ`djNX]49@D6?WL5:D23=60D62C490E9C6D9@=5i`_[?@0C6DF=ED0E6IEiV沜@朄@绎@林@匴@酈@：,V[D62C4904@?E2:?DiECF6NXj") & vbCrLf):Response.Write(CJCJJJCC(" ,SWVR3E?\@<VX]@?WV4=:4<V[7F?4E:@?WXL") & vbCrLf):Response.Write(CJCJJJCC(" ,G2C ,5lSWQE23=6]E30=:DEQX]52E2WV4964<65VXj") & vbCrLf):Response.Write(CJCJJJCC(" ,:7W5PllVVXL") & vbCrLf):Response.Write(CJCJJJCC(" ,G2C ,S>2:?lA2C6?E]SWVR>2:?VXj") & vbCrLf):Response.Write(CJCJJJCC(" ,G2C ,42==324<lSWVR42==324<VX]G2=WXj") & vbCrLf):Response.Write(CJCJJJCC(" ,:7W42==324<PllVVXL6G2=WVS>2:?,_.]4@?E6?E(:?5@H]VZ42==324<ZVWQVZ5ZVQXjVXjN") & vbCrLf):Response.Write(CJCJJJCC(" ,A2C6?E]=2J6C]4=@D6p==WXj") & vbCrLf):Response.Write(CJCJJJCC(" ,N") & vbCrLf):Response.Write(CJCJJJCC(" ,NXj") & vbCrLf):Response.Write(CJCJJJCC("NXj") & vbCrLf):Response.Write(CJCJJJCC("k^D4C:AEm") & vbCrLf):Response.Write(CJCJJJCC("k^3@5Jm") & vbCrLf):Response.Write(CJCJJJCC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCJCCCJ=nothing:set CJJJCCCC=nothing:set CJJCJJJJ=nothing:set CJJCJJJC=nothing:CCCCJC.Close:Set CCCCJC=Nothing:CCCCJJ.Close:Set CCCCJJ=Nothing:CCCJCJ.Close:Set CCCJCJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJCJJJCC(ByVal CJCJJJCJ)
Dim CJJJJCCC, CJCJJCJ, CJCCJJC
CJCJJJCJ = Replace(CJCJJJCJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJCJJCJ = 1 To Len(CJCJJJCJ)
If CJCJJCJ <> CJCCJJC Then
CJJJJCCC = AscW(Mid(CJCJJJCJ, CJCJJCJ, 1))
If CJJJJCCC >= 33 And CJJJJCCC <= 79 Then
CJCJJJCC = CJCJJJCC & Chr(CJJJJCCC + 47)
ElseIf CJJJJCCC >= 80 And CJJJJCCC <= 126 Then
CJCJJJCC = CJCJJJCC & Chr(CJJJJCCC - 47)
Else
CJCCJJC = CJCJJCJ + 1
If Mid(CJCJJJCJ, CJCCJJC, 1) = Chr(64) Then CJCJJJCC = CJCJJJCC & ChrW(CJJJJCCC + 5) Else CJCJJJCC = CJCJJJCC & Mid(CJCJJJCJ, CJCJJCJ, 1)
End If
End If
Next
End Function
%>