Edit D:\xinhaisoft\crisis_new\school\admin\answerimport.asp

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCCJJC, CCCJCJ,CCCJCC, CCCCJJ, CCCCJC:Set CCCJJC = server.CreateObject(CCCJJJJC("ps~sq]r@??64E:@?")):CCCJJC.open Application(CCCJJJJC("r@??64E:@?$EC:?8")):Set CCCJCJ=CCCJJC::Dim CCCCCJ,CCCCCC,CJJJJJJ,CJJJJJC,CJJJJCJ,CJJJJCC,CJJJCJJ,CJJJCJC,CJJJCCJ:Dim CJJJCCC,CJJCJJJ,CJJCJJC,CJJCJCJ,CJJCJCC,CJJCCJJ:Dim CJJCCJC,CJJCCCJ,CJJCCCC:Dim CJCJJJJ:CJCJJJJ=Trim(Request.Cookies(CCCJJJJC("!$*|t|qt#"))):if CJCJJJJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CCCCCJ>0 then
CCCCJC=CCCJJJJC("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") & CCCCCC & CCCJJJJC("V ,2?5 ,:5l") & CCCCCJ
set CCCJCC=CCCJJC.execute(CCCCJC):If CCCJCC.EOF Then
Call ClearMemberCookie
Else
CJJJJJJ=CCCJCC(2) & "":CJJJJJC=CCCJCC(3):CJJJJCJ=CCCJCC(5):CJJJJCC=CCCJCC(6):CJJJCJJ=CCCJCC(9):CJJJCJC=CCCJCC(15):CJJJCCC=CCCJCC(0):CJJCCCJ=CCCJCC(1):CJJCCJC=CCCJCC(11) & "":CJJCJJJ=CCCJCC(10) & "":CJJJCCJ=CCCJCC(12):CJJCJJC=CCCJCC(14):CJJCJCJ=CCCJCC(13):CJJCJCC=CCCJCC(7) & "":CJJCCJJ=CCCJCC(4):CJJCCCC=CCCJCC(8):if isnull(CJJJCJC) then CJJJCJC=0
if isnull(CJJJCJJ) or CJJJCJJ=0 then CJJJCJJ=CJJJJJC
if isnull(CJJCCJJ) then CJJCCJJ=0
if isnull(CJJJJCJ) then CJJJJCJ=0
if instr(CCCJJJJC("6`_254bhch32dh2336de6_df7a_7ggb6"),CCCCCC)>0 then Call RedirectMessage(CCCJJJJC("????????,????????????????????????????????,"))
Call SetMemberCookie(CCCCCJ,CCCCCC)
End IF
end if:Sub CheckRight(CCJJJJC):dim CJCJJJC,CJCJJCJ:if CCCCCJ=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CCCJJJJC("??????????????,????????????,"))
elseIf not CCJJJJJC(CCJJJJC) then
Call RedirectMessage(CCCJJJJC("????W") & CCJJJJC & CCCJJJJC("X????????,????????????????????,"))
end if:End Sub:Function CCJJJJJC(CCJJJJC):dim CJCJJJC,CJCJJCJ:CJCJJCJ=split(CCJJJJC,CCCJJJJC("[")):CCJJJJJC=False:for CJCJJJC=0 to ubound(CJCJJCJ):If Mid(CJJJJJJ,CJCJJCJ(CJCJJJC),1)="1" then
CCJJJJJC=True:exit function
end if:next:End Function:Sub CheckLogined():if CCCCCJ=0 then
Call ClearMemberCookie:Call ConnClose:dim CJCJJCC:CJCJJCC=trim(request.QueryString(CCCJJJJC("D49@@="))):if isnumeric(CJCJJCC) then
response.Redirect CCCJJJJC("^>^G2?E^R^D49@@=^") & CJCJJCC & CCCJJJJC("^DEF56?E^=@8:?nC65:C64El") & CJCCCJC
else
Call RedirectMessage(CCCJJJJC("??????????????,????????????,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CCCJJJJC("!$*|t|qt#"))="":CCCCCJ=0:CJJJJCC=0:CCCCCC=Empty:CJJJJCJ=0:CJJJCJC=0:CJJJCJJ=0:CJJJJJC=0:CJJJCCC=False:CJJCCCJ=False:CJJCCCC=Empty:End Sub:Sub CheckMemberCookie():dim CJCJCJJ,CJCJCJC,CJCJJJC,CJCJCCJ,CJCJCCC:CJCJCJJ=split(CJCJJJJ,CCCJJJJC("]")):if ubound(CJCJCJJ)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJCJCJJ(0)) or len(CJCJCJJ(1))<>32 or len(CJCJCJJ(2))<>32 then
Call ClearMemberCookie
else
CJCJCJC=CJCJCJJ(1):for CJCJJJC=1 to len(CJCJCJC):CJCJCCJ=mid(CJCJCJC,CJCJJJC,1):if isnumeric(CJCJCCJ) then CJCJCCC=CJCJCCC & CJCJCCJ
if len(CJCJCCC)=7 then exit for
next:CJCJCJC=CJCJCJJ(2):if CJCJCCC<>mid(CJCJCJC,6,7) then
Call ClearMemberCookie
else
CJCJCCJ=mid(CJCJCJC,18,10)/2:if CJCJCCJ<DateDiff(CCCJJJJC("D"), CCCJJJJC("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CCCCCJ=Clng(CJCJCJJ(0)):CCCCCC=CJCJCJJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJCJJJCC,CJCJJCJJ):dim CJCJJJC,CJCJCCJ,CJCJCCC:for CJCJJJC=1 to len(CJCJJCJJ):CJCJCCJ=mid(CJCJJCJJ,CJCJJJC,1):if isnumeric(CJCJCCJ) then CJCJCCC=CJCJCCC & CJCJCCJ
if len(CJCJCCC)=7 then exit for
next:CJCJCCC=CJCJJJCC & CCCJJJJC("]") & CJCJJCJJ & CCCJJJJC("]") & Fix(10000*(Rnd+1)) & CJCJCCC & Fix(10000*(Rnd+1)) & DateDiff(CCCJJJJC("D"), CCCJJJJC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CCCJJJJC("!$*|t|qt#"))=CJCJCCC:End Sub::Function CCJJJJCJ(CCCJJJCJ):Dim str,CJCCJJC:str = Trim(CCCJJJCJ):If IsNull(str) Or str = "" Then
CCJJJJCJ = ""
else
str=Replace(str, CCCJJJJC("V"), "")
str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CCCJJJJC("k:7C2>6"), CCCJJJJC("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CCCJJJJC("kD4C:AE"), CCCJJJJC("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CJCCJJC=new RegExp:CJCCJJC.Pattern=CCCJJJJC("@?W,2\K.ZXl"):CJCCJJC.IgnoreCase = True:CJCCJJC.Global=True:str=CJCCJJC.Replace(str,CCCJJJJC("@?S`U6BF2=Dj")):set CJCCJJC=nothing:CCJJJJCJ=str
End If:End Function:Function IIf(CCCJJJCC, CCCJJCJJ, CCCJJCJC):if isnull(CCCJJJCC) or isempty(CCCJJJCC) then
IIf = CCCJJCJC
elseif CCCJJJCC Then
IIf = CCCJJCJJ
Else
IIf = CCCJJCJC
end if:End Function:Const CJCJCJJC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$"::Function CCJJJCJJ():dim CJCCJCJ:CJCCJCJ = Cstr(Request.ServerVariables("HTTP_X_FORWARDED_FOR")):If CJCCJCJ = "" Then CJCCJCJ = Cstr(Request.ServerVariables(CCCJJJJC("#t|~%t0pss#")))
if instr(CJCCJCJ,CCCJJJJC("i"))>0 then
CJCCJCJ=left(CJCCJCJ,instr(CJCCJCJ,CCCJJJJC("i"))-1)
elseif instr(CJCCJCJ,CCCJJJJC("["))>0 then
CJCCJCJ=left(CJCCJCJ,instr(CJCCJCJ,CCCJJJJC("["))-1)
end if:CCJJJCJJ=left(CJCCJCJ,15):End Function:Sub Debug(str):response.Charset=CCCJJJJC("FE7\g"):dim CJCJJJC,CJCJCCJ,CJCCJCC:if isarray(str) then
on error resume next:CJCJJJC=ubound(str,2):CJCCJCC=err.number:err.clear:on error goto 0:if CJCCJCC<>0 then
for CJCJJJC=0 to ubound(str):if CJCJJJC>0 then response.Write CCCJJJJC("k3C ,^m")
response.Write CJCJJJC & CCCJJJJC("i ,") & str(CJCJJJC):next
else
response.Write CCCJJJJC("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CJCJJJC=0 to ubound(str,2):response.Write CCCJJJJC("kE9 ,2=:8?lV=67EVm") & CJCJJJC & CCCJJJJC("k^E9m")
next:response.Write CCCJJJJC("k^ECm"):for CJCJJJC=0 to ubound(str):response.Write CCCJJJJC("kECmkE9m") & CJCJJJC & CCCJJJJC("k^E9m"):for CJCJCCJ=0 to ubound(str,2):response.Write CCCJJJJC("kE5m") & str(CJCJJJC,CJCJCCJ) & CCCJJJJC("k^E5m"):next:response.Write CCCJJJJC("k^ECm"):next:response.Write CCCJJJJC("k^E23=6m")
end if
elseif isnull(str) then
response.Write CCCJJJJC(",}F==.")
else
Response.Write replace(str,vbcrlf,CCCJJJJC("k3Cm"))
end if:Call ConnClose:Response.End:End Sub:Public Function CCJJJCJC():Dim CJCCCJJ, CJCCCJC:CJCCCJC = Request.ServerVariables(CCCJJJJC("!p%w0x}u~")):CJCCCJJ = Request.ServerVariables(CCCJJJJC("""&t#*0$%#x}v")):If CJCCCJJ <> Empty Then
if instr(lcase(CJCCCJJ),CCCJJJJC("Tb4:7C2>6"))>0 or instr(lcase(CJCCCJJ),CCCJJJJC("Tb4D4C:AE"))>0 then Call RedirectMessage(CCCJJJJC("????????,????????????????????????,??,??,"))
CJCCCJC = CJCCCJC & CCCJJJJC("n") & CJCCCJJ
end if:CCJJJCJC = CJCCCJC:End Function:Sub SetHttpOnlyCookie(CCCJJCCJ,CCCJJCCC):dim CJCJCJJ:CJCJCJJ=CCCJJCCJ & CCCJJJJC("l") & CCCJJCCC & CCCJJJJC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCCJJJJC("$6E\r@@<:6"),CJCJCJJ):End Sub:::::::Function CCJJJCCJ(CJCCJCC):if isnull(CJCCJCC) or trim(CJCCJCC)="" or not isnumeric(CJCCJCC) then
CCJJJCCJ=false
else
Dim CJCCJJC:Set CJCCJJC = New RegExp:CJCCJJC.Pattern = CCCJJJJC("/-5ZS"):CJCCJJC.IgnoreCase = True:CCJJJCCJ = CJCCJJC.test(CJCCJCC):set CJCCJJC=nothing
end if:End Function:Function CCJJJCCC(CCCJCJJJ):dim CJCCCCJ,CJCCCCC:CJCCCCJ=CCCJJJJC("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CCCJCJJJ & CCCJJJJC("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJCCCCC=CCCJJC.execute(CJCCCCJ):CCJJJCCC = CJCCCCC(0):if isnull(CCJJJCCC) then CCJJJCCC=1
CJCCCCC.close : set CJCCCCC=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CCJJCJJ=nothing:set CCJJCJJJ=nothing:set CCJJCJJC=nothing:set CCJJCJCJ=nothing:CJCCCCC.close : set CJCCCCC=nothing:CCCCJJ.Close : Set CCCCJJ=Nothing:CCCJCC.Close : Set CCCJCC=Nothing:CJJJCCCJ.Close : Set CJJJCCCJ = Nothing:CCCJJC.Close : Set CCCJJC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCCJCJJC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCCJJJJC("!$*0|6DD286"),server.URLEncode(CCCJCJJC)):Response.Redirect CCCJJJJC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::Function CCJJCJCC():Dim CJCCCCC, CCJJJJJ(), CJCJJJC, CJCJCCJ, CCJJJJC,CCJJJCJ:If Not IsArray(Application(CCCJJJJC("!$*0%6DED"))) Then
CCCCJC=CCCJJJJC("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 CJCCCCC=server.createobject(CCCJJJJC("25@53]C64@C5D6E")):CJCCCCC.open CCCCJC,CCCJJC,1:CCJJJJC = CJCCCCC.RecordCount:CCJJJCJ=CJCCCCC.fields.count-1:ReDim CCJJJJJ(CCJJJJC, CCJJJCJ):If CCJJJJC > 0 Then
For CJCJJJC = 1 To CCJJJJC:For CJCJCCJ = 0 To CCJJJCJ:if CJCJCCJ=4 or CJCJCCJ=6 or CJCJCCJ=19 then
CCJJJJJ(CJCJJJC, CJCJCCJ) = CCJJCCJC(CJCCCCC(CJCJCCJ))
else
CCJJJJJ(CJCJJJC, CJCJCCJ) = CJCCCCC(CJCJCCJ):if CJCCCCC(CJCJCCJ).type<>11 and isnull(CCJJJJJ(CJCJJJC, CJCJCCJ)) then CCJJJJJ(CJCJJJC, CJCJCCJ)=""
end if:Next:CJCCCCC.MoveNext:Next
End If:CJCCCCC.Close: Set CJCCCCC = Nothing:Application(CCCJJJJC("!$*0%6DED")) = CCJJJJJ
End If:CCJJCJCC = Application(CCCJJJJC("!$*0%6DED")):End Function:::::::::::::::Function CCJJCCJJ(Table):Dim CJCCCCC, CCJJJJC, str(), CJCJJJC,CJCJCCJ,CCJJJCC:CCJJJCC=UCase(Table):If Not IsArray(Application(CCCJJJJC("!$*0") & CCJJJCC)) Then
CCCCJC=CCCJJJJC("D6=64E ,:5[?2>6[>6>36CEJA6 ,7C@> ,,") & Table & CCCJJJJC(". ,@C56C ,3J ,D@CE[:5"):set CJCCCCC=server.createobject(CCCJJJJC("25@53]C64@C5D6E")):CJCCCCC.open CCCCJC,CCCJJC,1:CCJJJJC = CJCCCCC.RecordCount:ReDim str(CCJJJJC, 2):If CCJJJJC > 0 Then
For CJCJJJC = 1 To CCJJJJC:for CJCJCCJ=0 to 2:str(CJCJJJC, CJCJCCJ) = CJCCCCC(CJCJCCJ):next:CJCCCCC.MoveNext:Next
End If:CJCCCCC.Close: Set CJCCCCC = Nothing:Application(CCCJJJJC("!$*0") & CCJJJCC) = str
End If:CCJJCCJJ = Application(CCCJJJJC("!$*0") & CCJJJCC):End Function:::Sub InsertLog(CCCJCJCJ,CJJJJCJC):dim CJCCCCJ:CJCCCCJ=CCCJJJJC("x?D6CE ,:?E@ ,=@8W>6>36C[:A[4@?E6?E[EJA6[FC=X ,G2=F6DW") & CCCCCJ  & CCCJJJJC("[V") & CCJJJCJJ & CCCJJJJC("V") & CCCJJJJC("[V") & CCJJJJCJ(CJJJJCJC) & CCCJJJJC("V") & CCCJJJJC("[") & CCCJCJCJ  & CCCJJJJC("[V") & CCJJJCJC & CCCJJJJC("V") & CCCJJJJC("X")
CCCJJC.execute CJCCCCJ:End Sub::::::::::::Function CCJJCCJC(CCCJCJCC):if isnull(CCCJCJCC) then
CCJJCCJC=""
else
On Error Resume Next:CCJJCCJC=CCCJCJCC:if err.number=-2147352567 then
CCJJCCJC="":err.Clear
end if
end if:End Function::::Sub ClearCache(CCCJCCJJ):Application.Contents.Remove CCCJCCJJ
End Sub::Class jTree:Private CCCCJC, CCJJCJJ, CCJJCJC, CCJJCCJ,CCJJCCC,CCJCJJJ,CCJCJJC,CCJCJCJ:Private Sub Class_Initialize():CCJJCJC = 0:CCJJCCJ = 0:CCJCJCJ=10:End Sub:Public Property Let Table(CCCJCCJC):if CCCJCCJC="" then Call RedirectMessage(CCCJJJJC("????????,;%C66????????????????????@??????????,"))
CCJJCCC=CCCJCCJC:CCJCJJJ=CCCJJJJC("!$*0") & UCase(CCJJCCC):Call GetTreeArray:End Property:Public Property Get Table():Table=CCJJCCC:End Property::Public Property Get Count():Count=CCJJCCJ-CCJCJCJ:End Property:Private Sub GetTreeArray():Dim CJCJJJC, CJCJCCJ, CCJCJCC,RecordCount:CCJJCJJ = Application(CCJCJJJ):If Not IsArray(CCJJCJJ) Then
CCCCJC = CCCJJJJC("D6=64E ,4@F?EW:5X ,7C@> ,") & CCJJCCC:if CCJCJJC<>"" then CCCCJC=CCCCJC & CCCJJJJC(" ,H96C6 ,") & CCJCJJC
set CCJCJCC=CCCJJC.execute(CCCCJC):RecordCount=CCJCJCC(0):if RecordCount=0 then Call RedirectMessage(CCCJJJJC("????W") & CCJJCCC & CCCJJJJC("^") & CCJCJJC & CCCJJJJC("X????????????"))
CCJJCCJ=RecordCount+CCJCJCJ:ReDim CCJJCJJ(CCJJCCJ, 4):CCCCJC = CCCJJJJC("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJJCCC & CCCJJJJC(" ,H:E9 ,W?@=@4<X"):if CCJCJJC<>"" then CCCCJC=CCCCJC & CCCJJJJC(" ,H96C6 ,") & CCJCJJC
CCCCJC=CCCCJC & CCCJJJJC(" ,@C56C ,3J ,D@CE[:5"):set CCJCJCC=CCCJJC.execute(CCCCJC):For CJCJJJC = 1 To RecordCount:For CJCJCCJ = 0 To 4:CCJJCJJ(CJCJJJC, CJCJCCJ) = CCJCJCC(CJCJCCJ):if IsNull(CCJJCJJ(CJCJJJC,4)) then CCJJCJJ(CJCJJJC,4)=0
If CCJJCJJ(CJCJJJC,2)="" then CCJJCJJ(CJCJJJC,2)=CCCJJJJC(",??.")
Next:CCJCJCC.MoveNext:Next:CCJCJCC.Close: Set CCJCJCC = Nothing:for CJCJJJC=CCJJCCJ-(CCJCJCJ-1) to CCJJCCJ:CCJJCJJ(CJCJJJC,0)=CJCJJJC:next:Application.Lock():Application(CCJCJJJ) = CCJJCJJ:Application.UnLock()
else
CCJJCCJ=Ubound(CCJJCJJ)
End If:End Sub:::::Private Function CCJJCCCC(CJCJJJCC):dim CJCJJJC,CCJCCJC:CCJJCCCC=0:CCJCCJC=CStr(CJCJJJCC):if CCJCCJC<>"0" then
for CJCJJJC=1 to CCJJCCJ:If CStr(CCJJCJJ(CJCJJJC, 0))=CCJCCJC Then
CCJJCCCC = CJCJJJC:Exit For
End If:Next
end if:End Function::::Public Function CCJCJJJJ(CJCJJJCC):Dim CJCJJJC,CCJCCCJ:CJCJJJC=CCJJCCCC(CJCJJJCC):if CJCJJJC=0 then
CCJCCCJ=CCJCJJJC(CJCJJJCC)
else
CCJCCCJ=CCJJCJJ(CJCJJJC,3):if isnull(CCJCCCJ) or CCJCCCJ="" then
CCJCCCJ=CCJCJJJC(CJCJJJCC)
elseif Mid(CCJCCCJ,instrrev(CCJCCCJ,CCCJJJJC("["))+1)<>CStr(CJCJJJCC) then
CCJCCCJ=CCJCJJJC(CJCJJJCC)
elseif Left(CCJCCCJ,1)=CCCJJJJC("[") then
CCJCCCJ=CCJCJJJC(CJCJJJCC)
end if
end if:CCJCJJJJ=CCJCCCJ:End Function:Private Function CCJCJJJC(CJCJJJCC):dim CCJCCJC:CCJCCJC=CStr(CJCJJJCC):if CCJCCJC="0" then
CCJCJJJC=""
else
dim CCJCJCC:set CCJCJCC=CCCJJC.execute(CCCJJJJC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJJCCC & CCCJJJJC(" ,H96C6 ,:5l") & CJCJJJCC):if CCJCJCC.eof then
Call UpdateCache(CJCJJJCC,"","","",""):Call RedirectMessage(CCCJJJJC("??????,xs??,") & CJCJJJCC & CCCJJJJC("??,????????,????????????????????,"))
else
if CCJCJCC(0)=0 then
CCJCJJJC="0," & CJCJJJCC
else
CCJCJJJC=CCJCJJJJ(CCJCJCC(0)) & CCCJJJJC("[") & CJCJJJCC
end if:if CCJCJCC(2)<>CCJCJJJC then
CCCJJC.execute CCCJJJJC("FA52E6 ,") & CCJJCCC & CCCJJJJC(" ,D6E ,A2E9lV") & CCJCJJJC & CCCJJJJC("V ,H96C6 ,:5l") & CJCJJJCC
else
CCJCJJJC=CCJCJCC(2)
end if
end if:Call UpdateCache(CJCJJJCC,CCJCJCC(0),CCJCJCC(1),CCJCJJJC,CCJCJCC(3)):CCJCJCC.Close: Set CCJCJCC = Nothing
end if:End Function::::::::Public Function GetAllChildID(CJCJJJCC):Dim Str, CJCJJJC:if CCJCJJCC(CJCJJJCC) then
For CJCJJJC = 1 To CCJJCCJ:If InStr(CCJJCJJ(CJCJJJC, 3) & CCCJJJJC("["), CCCJJJJC("[") & CJCJJJCC & CCCJJJJC("[")) > 0 Then
Str = Str & CCCJJJJC("[") & CCJJCJJ(CJCJJJC, 0)
End If:Next:Str = Mid(Str, 2)
else
str=CJCJJJCC
end if:GetAllChildID = Str:End Function:::::Public Function CCJCJJCC(CJCJJJCC):Dim CJCJJJC:CCJCJJCC = False:CJCJJJCC=CLng(CJCJJJCC):For CJCJJJC = 1 To CCJJCCJ:If CCJJCJJ(CJCJJJC, 1) = CJCJJJCC Then
CCJCJJCC = True:Exit For
End If:Next:End Function:::::::::Public Sub ClearCache():Application.Contents.Remove CCJCJJJ
End Sub:Public Sub UpdateCache(CJCJJJCC,CCCJCCCJ,name,CCJCCCJ,CCCCJJJJ):dim CJCJJJC,CJCJCCJ:CJCJJJCC=CLng(CJCJJJCC):CJCJJJC=CCJJCCCC(CJCJJJCC):if CCCJCCCJ="" and name="" and CCJCCCJ="" and CCCCJJJJ="" then
if CJCJJJC>0 then
for CJCJCCJ=1 to 4:CCJJCJJ(CJCJJJC,CJCJCCJ)=Null:next
end if
else
if CJCJJJC=0 then
for CJCJCCJ=1 to CCJJCCJ:if CCJJCJJ(CJCJCCJ,1) & ""="" then
CJCJJJC=CJCJCCJ:exit for
end if:next
end if:if CJCJJJC=0 then
Call ClearCache
else
CCJJCJJ(CJCJJJC,0)=CLng(CJCJJJCC):if CCCJCCCJ<>"" then CCJJCJJ(CJCJJJC,1)=CLng(CCCJCCCJ)
if name<>"" then CCJJCJJ(CJCJJJC,2)=name
if CCJCCCJ<>"" then CCJJCJJ(CJCJJJC,3)=CCJCCCJ
if CCCCJJJJ<>"" then CCJJCJJ(CJCJJJC,4)=CLng(CCCCJJJJ)
end if
end if:if CJCJJJC>0 then
Application.Lock():Application(CCJCJJJ) = CCJJCJJ:Application.UnLock()
end if:End Sub:Private Sub Debug(CCCJCJJC):Call ConnClose:Response.Write CCCJCJJC:Response.End:End Sub:Private Function CCJJJCCC():CCJJJCCC=CCJCJCJJ+1:End Function:Private Function CCJCJCJJ():dim CJCCCCC:set CJCCCCC=CCCJJC.execute(CCCJJJJC("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CCJJCCC & CCCJJJJC(" ,@C56C ,3J ,:5 ,56D4")):CCJCJCJJ=CJCCCCC(0):CJCCCCC.Close: Set CJCCCCC = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Private Const CJCJCJCJ =8:Private Const CJCJCJCC =4:Private Const CJCJCCJJ =32:Private CCJCCCC(30):Private CCCJJJJ(30):Private Function CCJCJCJC(CCCCJJJC, CCCCJJCJ):If CCCCJJCJ = 0 Then
CCJCJCJC = CCCCJJJC:Exit Function
ElseIf CCCCJJCJ = 31 Then
If CCCCJJJC And 1 Then
CCJCJCJC = &H80000000
Else
CCJCJCJC = 0
End If:Exit Function
ElseIf CCCCJJCJ < 0 Or CCCCJJCJ > 31 Then
Err.Raise 6
End If:If (CCCCJJJC And CCCJJJJ(31 - CCCCJJCJ)) Then
CCJCJCJC = ((CCCCJJJC And CCJCCCC(31 - (CCCCJJCJ + 1))) * CCCJJJJ(CCCCJJCJ)) Or &H80000000
Else
CCJCJCJC = ((CCCCJJJC And CCJCCCC(31 - CCCCJJCJ)) * CCCJJJJ(CCCCJJCJ))
End If:End Function:Private Function CCJCJCCJ(CCCCJJJC, CCCCJJCJ):If CCCCJJCJ = 0 Then
CCJCJCCJ = CCCCJJJC:Exit Function
ElseIf CCCCJJCJ = 31 Then
If CCCCJJJC And &H80000000 Then
CCJCJCCJ = 1
Else
CCJCJCCJ = 0
End If:Exit Function
ElseIf CCCCJJCJ < 0 Or CCCCJJCJ > 31 Then
Err.Raise 6
End If:CCJCJCCJ = (CCCCJJJC And &H7FFFFFFE) \ CCCJJJJ(CCCCJJCJ):If (CCCCJJJC And &H80000000) Then
CCJCJCCJ = (CCJCJCCJ Or (&H40000000 \ CCCJJJJ(CCCCJJCJ - 1)))
End If:End Function:Private Function CCJCJCCC(CCCCJJJC, CCCCJJCJ):CCJCJCCC = CCJCJCJC(CCCCJJJC, CCCCJJCJ) Or CCJCJCCJ(CCCCJJJC, (32 - CCCCJJCJ)):End Function:Private Function CCJCCJJJ(CCCCJJCC, CCCCJCJJ):Dim CCCJJJC:Dim CCCJJCJ:Dim CCCJJCC:Dim CCCJCJJ:Dim CCCJCJC:CCCJJCC = CCCCJJCC And &H80000000:CCCJCJJ = CCCCJCJJ And &H80000000:CCCJJJC = CCCCJJCC And &H40000000:CCCJJCJ = CCCCJCJJ And &H40000000:CCCJCJC = (CCCCJJCC And &H3FFFFFFF) + (CCCCJCJJ And &H3FFFFFFF):If CCCJJJC And CCCJJCJ Then
CCCJCJC = CCCJCJC Xor &H80000000 Xor CCCJJCC Xor CCCJCJJ
ElseIf CCCJJJC Or CCCJJCJ Then
If CCCJCJC And &H40000000 Then
CCCJCJC = CCCJCJC Xor &HC0000000 Xor CCCJJCC Xor CCCJCJJ
Else
CCCJCJC = CCCJCJC Xor &H40000000 Xor CCCJJCC Xor CCCJCJJ
End If
Else
CCCJCJC = CCCJCJC Xor CCCJJCC Xor CCCJCJJ
End If:CCJCCJJJ = CCCJCJC:End Function:Private Function CCJCCJJC(CCCCCCJ, CCCCJCJC, CCCCJCCJ):CCJCCJJC = (CCCCCCJ And CCCCJCJC) Or ((Not CCCCCCJ) And CCCCJCCJ):End Function:Private Function CCJCCJCJ(CCCCCCJ, CCCCJCJC, CCCCJCCJ):CCJCCJCJ = (CCCCCCJ And CCCCJCCJ) Or (CCCCJCJC And (Not CCCCJCCJ)):End Function:Private Function CCJCCJCC(CCCCCCJ, CCCCJCJC, CCCCJCCJ):CCJCCJCC = (CCCCCCJ Xor CCCCJCJC Xor CCCCJCCJ):End Function:Private Function CCJCCCJJ(CCCCCCJ, CCCCJCJC, CCCCJCCJ):CCJCCCJJ = (CCCCJCJC Xor (CCCCCCJ Or (Not CCCCJCCJ))):End Function:Private Sub md5_FF(CJJJJJCC, CJJJJCJJ, CJJJJCJC, CJJJJCCJ, CCCCCCJ, CJCJJCCJ, CCCCJCCC):CJJJJJCC = CCJCCJJJ(CJJJJJCC, CCJCCJJJ(CCJCCJJJ(CCJCCJJC(CJJJJCJJ, CJJJJCJC, CJJJJCCJ), CCCCCCJ), CCCCJCCC)):CJJJJJCC = CCJCJCCC(CJJJJJCC, CJCJJCCJ):CJJJJJCC = CCJCCJJJ(CJJJJJCC, CJJJJCJJ):End Sub:Private Sub md5_GG(CJJJJJCC, CJJJJCJJ, CJJJJCJC, CJJJJCCJ, CCCCCCJ, CJCJJCCJ, CCCCJCCC):CJJJJJCC = CCJCCJJJ(CJJJJJCC, CCJCCJJJ(CCJCCJJJ(CCJCCJCJ(CJJJJCJJ, CJJJJCJC, CJJJJCCJ), CCCCCCJ), CCCCJCCC)):CJJJJJCC = CCJCJCCC(CJJJJJCC, CJCJJCCJ):CJJJJJCC = CCJCCJJJ(CJJJJJCC, CJJJJCJJ):End Sub:Private Sub md5_HH(CJJJJJCC, CJJJJCJJ, CJJJJCJC, CJJJJCCJ, CCCCCCJ, CJCJJCCJ, CCCCJCCC):CJJJJJCC = CCJCCJJJ(CJJJJJCC, CCJCCJJJ(CCJCCJJJ(CCJCCJCC(CJJJJCJJ, CJJJJCJC, CJJJJCCJ), CCCCCCJ), CCCCJCCC)):CJJJJJCC = CCJCJCCC(CJJJJJCC, CJCJJCCJ):CJJJJJCC = CCJCCJJJ(CJJJJJCC, CJJJJCJJ):End Sub:Private Sub md5_II(CJJJJJCC, CJJJJCJJ, CJJJJCJC, CJJJJCCJ, CCCCCCJ, CJCJJCCJ, CCCCJCCC):CJJJJJCC = CCJCCJJJ(CJJJJJCC, CCJCCJJJ(CCJCCJJJ(CCJCCCJJ(CJJJJCJJ, CJJJJCJC, CJJJJCCJ), CCCCCCJ), CCCCJCCC)):CJJJJJCC = CCJCJCCC(CJJJJJCC, CJCJJCCJ):CJJJJJCC = CCJCCJJJ(CJJJJJCC, CJJJJCJJ):End Sub:Private Function CCJCCCJC(CCCCCJJJ):Dim CCCJCCJ:Dim CCCJCCC:Dim CCCCJJJ():Dim CCCCJJC:Dim CCCCJCJ:Dim CCCCJCC:Const CJCJCCJC =512:Const CJCJCCCJ =448:CCCJCCJ = Len(CCCCCJJJ):CCCJCCC = (((CCCJCCJ + ((CJCJCCJC - CJCJCCCJ) \ CJCJCJCJ)) \ (CJCJCCJC \ CJCJCJCJ)) + 1) * (CJCJCCJC \ CJCJCCJJ):ReDim CCCCJJJ(CCCJCCC - 1):CCCCJJC = 0:CCCCJCJ = 0:Do Until CCCCJCJ >= CCCJCCJ:CCCCJCC = CCCCJCJ \ CJCJCJCC:CCCCJJC = (CCCCJCJ Mod CJCJCJCC) * CJCJCJCJ:CCCCJJJ(CCCCJCC) = CCCCJJJ(CCCCJCC) Or CCJCJCJC(Asc(Mid(CCCCCJJJ, CCCCJCJ + 1, 1)), CCCCJJC):CCCCJCJ = CCCCJCJ + 1:Loop:CCCCJCC = CCCCJCJ \ CJCJCJCC:CCCCJJC = (CCCCJCJ Mod CJCJCJCC) * CJCJCJCJ:CCCCJJJ(CCCCJCC) = CCCCJJJ(CCCCJCC) Or CCJCJCJC(&H80, CCCCJJC):CCCCJJJ(CCCJCCC - 2) = CCJCJCJC(CCCJCCJ, 3):CCCCJJJ(CCCJCCC - 1) = CCJCJCCJ(CCCJCCJ, 29):CCJCCCJC = CCCCJJJ:End Function:Private Function CCJCCCCJ(CCCCJJJC):Dim CCCCCJJ:Dim CCCCCJC:For CCCCCJC = 0 To 3:CCCCCJJ = CCJCJCCJ(CCCCJJJC, CCCCCJC * CJCJCJCJ) And CCJCCCC(CJCJCJCJ - 1):CCJCCCCJ = CCJCCCCJ & Right("0" & Hex(CCCCCJJ), 2):Next:End Function:Public Function CCJCCCCC(CCCCCJJJ):CCJCCCC(0) = CLng(1):CCJCCCC(1) = CLng(3):CCJCCCC(2) = CLng(7):CCJCCCC(3) = CLng(15):CCJCCCC(4) = CLng(31):CCJCCCC(5) = CLng(63):CCJCCCC(6) = CLng(127):CCJCCCC(7) = CLng(255):CCJCCCC(8) = CLng(511):CCJCCCC(9) = CLng(1023):CCJCCCC(10) = CLng(2047):CCJCCCC(11) = CLng(4095):CCJCCCC(12) = CLng(8191):CCJCCCC(13) = CLng(16383):CCJCCCC(14) = CLng(32767):CCJCCCC(15) = CLng(65535):CCJCCCC(16) = CLng(131071):CCJCCCC(17) = CLng(262143):CCJCCCC(18) = CLng(524287):CCJCCCC(19) = CLng(1048575):CCJCCCC(20) = CLng(2097151):CCJCCCC(21) = CLng(4194303):CCJCCCC(22) = CLng(8388607):CCJCCCC(23) = CLng(16777215):CCJCCCC(24) = CLng(33554431):CCJCCCC(25) = CLng(67108863):CCJCCCC(26) = CLng(134217727):CCJCCCC(27) = CLng(268435455):CCJCCCC(28) = CLng(536870911):CCJCCCC(29) = CLng(1073741823):CCJCCCC(30) = CLng(2147483647):CCCJJJJ(0) = CLng(1):CCCJJJJ(1) = CLng(2):CCCJJJJ(2) = CLng(4):CCCJJJJ(3) = CLng(8):CCCJJJJ(4) = CLng(16):CCCJJJJ(5) = CLng(32):CCCJJJJ(6) = CLng(64):CCCJJJJ(7) = CLng(128):CCCJJJJ(8) = CLng(256):CCCJJJJ(9) = CLng(512):CCCJJJJ(10) = CLng(1024):CCCJJJJ(11) = CLng(2048):CCCJJJJ(12) = CLng(4096):CCCJJJJ(13) = CLng(8192):CCCJJJJ(14) = CLng(16384):CCCJJJJ(15) = CLng(32768):CCCJJJJ(16) = CLng(65536):CCCJJJJ(17) = CLng(131072):CCCJJJJ(18) = CLng(262144):CCCJJJJ(19) = CLng(524288):CCCJJJJ(20) = CLng(1048576):CCCJJJJ(21) = CLng(2097152):CCCJJJJ(22) = CLng(4194304):CCCJJJJ(23) = CLng(8388608):CCCJJJJ(24) = CLng(16777216):CCCJJJJ(25) = CLng(33554432):CCCJJJJ(26) = CLng(67108864):CCCJJJJ(27) = CLng(134217728):CCCJJJJ(28) = CLng(268435456):CCCJJJJ(29) = CLng(536870912):CCCJJJJ(30) = CLng(1073741824):Dim CCCCCCJ:Dim CJCJCCC:Dim CCCCCCC:Dim CJJJJJJJ:Dim CJJJJJJC:Dim CJJJJJCJ:Dim CJJJJJCC:Dim CJJJJCJJ:Dim CJJJJCJC:Dim CJJJJCCJ:Const CJCJCCCC =7:Const CJCCJJJJ =12:Const CJCCJJJC =17:Const CJCCJJCJ =22:Const CJCCJJCC =5:Const CJCCJCJJ =9:Const CJCCJCJC =14:Const CJCCJCCJ =20:Const CJCCJCCC =4:Const CJCCCJJJ =11:Const CJCCCJJC =16:Const CJCCCJCJ =23:Const CJCCCJCC =6:Const CJCCCCJJ =10:Const CJCCCCJC =15:Const CJCCCCCJ =21:CCCCCCJ = CCJCCCJC(CCCCCJJJ):CJJJJJCC = &H67452301:CJJJJCJJ = &HEFCDAB89:CJJJJCJC = &H98BADCFE:CJJJJCCJ = &H10325476:For CJCJCCC = 0 To UBound(CCCCCCJ) Step 16:CCCCCCC = CJJJJJCC:CJJJJJJJ = CJJJJCJJ:CJJJJJJC = CJJJJCJC:CJJJJJCJ = CJJJJCCJ:md5_FF CJJJJJCC, CJJJJCJJ, CJJJJCJC, CJJJJCCJ, CCCCCCJ(CJCJCCC + 0), CJCJCCCC, &HD76AA478:md5_FF CJJJJCCJ, CJJJJJCC, CJJJJCJJ, CJJJJCJC, CCCCCCJ(CJCJCCC + 1), CJCCJJJJ, &HE8C7B756:md5_FF CJJJJCJC, CJJJJCCJ, CJJJJJCC, CJJJJCJJ, CCCCCCJ(CJCJCCC + 2), CJCCJJJC, &H242070DB:md5_FF CJJJJCJJ, CJJJJCJC, CJJJJCCJ, CJJJJJCC, CCCCCCJ(CJCJCCC + 3), CJCCJJCJ, &HC1BDCEEE:md5_FF CJJJJJCC, CJJJJCJJ, CJJJJCJC, CJJJJCCJ, CCCCCCJ(CJCJCCC + 4), CJCJCCCC, &HF57C0FAF:md5_FF CJJJJCCJ, CJJJJJCC, CJJJJCJJ, CJJJJCJC, CCCCCCJ(CJCJCCC + 5), CJCCJJJJ, &H4787C62A:md5_FF CJJJJCJC, CJJJJCCJ, CJJJJJCC, CJJJJCJJ, CCCCCCJ(CJCJCCC + 6), CJCCJJJC, &HA8304613:md5_FF CJJJJCJJ, CJJJJCJC, CJJJJCCJ, CJJJJJCC, CCCCCCJ(CJCJCCC + 7), CJCCJJCJ, &HFD469501:md5_FF CJJJJJCC, CJJJJCJJ, CJJJJCJC, CJJJJCCJ, CCCCCCJ(CJCJCCC + 8), CJCJCCCC, &H698098D8:md5_FF CJJJJCCJ, CJJJJJCC, CJJJJCJJ, CJJJJCJC, CCCCCCJ(CJCJCCC + 9), CJCCJJJJ, &H8B44F7AF:md5_FF CJJJJCJC, CJJJJCCJ, CJJJJJCC, CJJJJCJJ, CCCCCCJ(CJCJCCC + 10), CJCCJJJC, &HFFFF5BB1:md5_FF CJJJJCJJ, CJJJJCJC, CJJJJCCJ, CJJJJJCC, CCCCCCJ(CJCJCCC + 11), CJCCJJCJ, &H895CD7BE:md5_FF CJJJJJCC, CJJJJCJJ, CJJJJCJC, CJJJJCCJ, CCCCCCJ(CJCJCCC + 12), CJCJCCCC, &H6B901122:md5_FF CJJJJCCJ, CJJJJJCC, CJJJJCJJ, CJJJJCJC, CCCCCCJ(CJCJCCC + 13), CJCCJJJJ, &HFD987193:md5_FF CJJJJCJC, CJJJJCCJ, CJJJJJCC, CJJJJCJJ, CCCCCCJ(CJCJCCC + 14), CJCCJJJC, &HA679438E:md5_FF CJJJJCJJ, CJJJJCJC, CJJJJCCJ, CJJJJJCC, CCCCCCJ(CJCJCCC + 15), CJCCJJCJ, &H49B40821:md5_GG CJJJJJCC, CJJJJCJJ, CJJJJCJC, CJJJJCCJ, CCCCCCJ(CJCJCCC + 1), CJCCJJCC, &HF61E2562:md5_GG CJJJJCCJ, CJJJJJCC, CJJJJCJJ, CJJJJCJC, CCCCCCJ(CJCJCCC + 6), CJCCJCJJ, &HC040B340:md5_GG CJJJJCJC, CJJJJCCJ, CJJJJJCC, CJJJJCJJ, CCCCCCJ(CJCJCCC + 11), CJCCJCJC, &H265E5A51:md5_GG CJJJJCJJ, CJJJJCJC, CJJJJCCJ, CJJJJJCC, CCCCCCJ(CJCJCCC + 0), CJCCJCCJ, &HE9B6C7AA:md5_GG CJJJJJCC, CJJJJCJJ, CJJJJCJC, CJJJJCCJ, CCCCCCJ(CJCJCCC + 5), CJCCJJCC, &HD62F105D:md5_GG CJJJJCCJ, CJJJJJCC, CJJJJCJJ, CJJJJCJC, CCCCCCJ(CJCJCCC + 10), CJCCJCJJ, &H2441453:md5_GG CJJJJCJC, CJJJJCCJ, CJJJJJCC, CJJJJCJJ, CCCCCCJ(CJCJCCC + 15), CJCCJCJC, &HD8A1E681:md5_GG CJJJJCJJ, CJJJJCJC, CJJJJCCJ, CJJJJJCC, CCCCCCJ(CJCJCCC + 4), CJCCJCCJ, &HE7D3FBC8:md5_GG CJJJJJCC, CJJJJCJJ, CJJJJCJC, CJJJJCCJ, CCCCCCJ(CJCJCCC + 9), CJCCJJCC, &H21E1CDE6:md5_GG CJJJJCCJ, CJJJJJCC, CJJJJCJJ, CJJJJCJC, CCCCCCJ(CJCJCCC + 14), CJCCJCJJ, &HC33707D6:md5_GG CJJJJCJC, CJJJJCCJ, CJJJJJCC, CJJJJCJJ, CCCCCCJ(CJCJCCC + 3), CJCCJCJC, &HF4D50D87:md5_GG CJJJJCJJ, CJJJJCJC, CJJJJCCJ, CJJJJJCC, CCCCCCJ(CJCJCCC + 8), CJCCJCCJ, &H455A14ED:md5_GG CJJJJJCC, CJJJJCJJ, CJJJJCJC, CJJJJCCJ, CCCCCCJ(CJCJCCC + 13), CJCCJJCC, &HA9E3E905:md5_GG CJJJJCCJ, CJJJJJCC, CJJJJCJJ, CJJJJCJC, CCCCCCJ(CJCJCCC + 2), CJCCJCJJ, &HFCEFA3F8:md5_GG CJJJJCJC, CJJJJCCJ, CJJJJJCC, CJJJJCJJ, CCCCCCJ(CJCJCCC + 7), CJCCJCJC, &H676F02D9:md5_GG CJJJJCJJ, CJJJJCJC, CJJJJCCJ, CJJJJJCC, CCCCCCJ(CJCJCCC + 12), CJCCJCCJ, &H8D2A4C8A:md5_HH CJJJJJCC, CJJJJCJJ, CJJJJCJC, CJJJJCCJ, CCCCCCJ(CJCJCCC + 5), CJCCJCCC, &HFFFA3942:md5_HH CJJJJCCJ, CJJJJJCC, CJJJJCJJ, CJJJJCJC, CCCCCCJ(CJCJCCC + 8), CJCCCJJJ, &H8771F681:md5_HH CJJJJCJC, CJJJJCCJ, CJJJJJCC, CJJJJCJJ, CCCCCCJ(CJCJCCC + 11), CJCCCJJC, &H6D9D6122:md5_HH CJJJJCJJ, CJJJJCJC, CJJJJCCJ, CJJJJJCC, CCCCCCJ(CJCJCCC + 14), CJCCCJCJ, &HFDE5380C:md5_HH CJJJJJCC, CJJJJCJJ, CJJJJCJC, CJJJJCCJ, CCCCCCJ(CJCJCCC + 1), CJCCJCCC, &HA4BEEA44:md5_HH CJJJJCCJ, CJJJJJCC, CJJJJCJJ, CJJJJCJC, CCCCCCJ(CJCJCCC + 4), CJCCCJJJ, &H4BDECFA9:md5_HH CJJJJCJC, CJJJJCCJ, CJJJJJCC, CJJJJCJJ, CCCCCCJ(CJCJCCC + 7), CJCCCJJC, &HF6BB4B60:md5_HH CJJJJCJJ, CJJJJCJC, CJJJJCCJ, CJJJJJCC, CCCCCCJ(CJCJCCC + 10), CJCCCJCJ, &HBEBFBC70:md5_HH CJJJJJCC, CJJJJCJJ, CJJJJCJC, CJJJJCCJ, CCCCCCJ(CJCJCCC + 13), CJCCJCCC, &H289B7EC6:md5_HH CJJJJCCJ, CJJJJJCC, CJJJJCJJ, CJJJJCJC, CCCCCCJ(CJCJCCC + 0), CJCCCJJJ, &HEAA127FA:md5_HH CJJJJCJC, CJJJJCCJ, CJJJJJCC, CJJJJCJJ, CCCCCCJ(CJCJCCC + 3), CJCCCJJC, &HD4EF3085:md5_HH CJJJJCJJ, CJJJJCJC, CJJJJCCJ, CJJJJJCC, CCCCCCJ(CJCJCCC + 6), CJCCCJCJ, &H4881D05:md5_HH CJJJJJCC, CJJJJCJJ, CJJJJCJC, CJJJJCCJ, CCCCCCJ(CJCJCCC + 9), CJCCJCCC, &HD9D4D039:md5_HH CJJJJCCJ, CJJJJJCC, CJJJJCJJ, CJJJJCJC, CCCCCCJ(CJCJCCC + 12), CJCCCJJJ, &HE6DB99E5:md5_HH CJJJJCJC, CJJJJCCJ, CJJJJJCC, CJJJJCJJ, CCCCCCJ(CJCJCCC + 15), CJCCCJJC, &H1FA27CF8:md5_HH CJJJJCJJ, CJJJJCJC, CJJJJCCJ, CJJJJJCC, CCCCCCJ(CJCJCCC + 2), CJCCCJCJ, &HC4AC5665:md5_II CJJJJJCC, CJJJJCJJ, CJJJJCJC, CJJJJCCJ, CCCCCCJ(CJCJCCC + 0), CJCCCJCC, &HF4292244:md5_II CJJJJCCJ, CJJJJJCC, CJJJJCJJ, CJJJJCJC, CCCCCCJ(CJCJCCC + 7), CJCCCCJJ, &H432AFF97:md5_II CJJJJCJC, CJJJJCCJ, CJJJJJCC, CJJJJCJJ, CCCCCCJ(CJCJCCC + 14), CJCCCCJC, &HAB9423A7:md5_II CJJJJCJJ, CJJJJCJC, CJJJJCCJ, CJJJJJCC, CCCCCCJ(CJCJCCC + 5), CJCCCCCJ, &HFC93A039:md5_II CJJJJJCC, CJJJJCJJ, CJJJJCJC, CJJJJCCJ, CCCCCCJ(CJCJCCC + 12), CJCCCJCC, &H655B59C3:md5_II CJJJJCCJ, CJJJJJCC, CJJJJCJJ, CJJJJCJC, CCCCCCJ(CJCJCCC + 3), CJCCCCJJ, &H8F0CCC92:md5_II CJJJJCJC, CJJJJCCJ, CJJJJJCC, CJJJJCJJ, CCCCCCJ(CJCJCCC + 10), CJCCCCJC, &HFFEFF47D:md5_II CJJJJCJJ, CJJJJCJC, CJJJJCCJ, CJJJJJCC, CCCCCCJ(CJCJCCC + 1), CJCCCCCJ, &H85845DD1:md5_II CJJJJJCC, CJJJJCJJ, CJJJJCJC, CJJJJCCJ, CCCCCCJ(CJCJCCC + 8), CJCCCJCC, &H6FA87E4F:md5_II CJJJJCCJ, CJJJJJCC, CJJJJCJJ, CJJJJCJC, CCCCCCJ(CJCJCCC + 15), CJCCCCJJ, &HFE2CE6E0:md5_II CJJJJCJC, CJJJJCCJ, CJJJJJCC, CJJJJCJJ, CCCCCCJ(CJCJCCC + 6), CJCCCCJC, &HA3014314:md5_II CJJJJCJJ, CJJJJCJC, CJJJJCCJ, CJJJJJCC, CCCCCCJ(CJCJCCC + 13), CJCCCCCJ, &H4E0811A1:md5_II CJJJJJCC, CJJJJCJJ, CJJJJCJC, CJJJJCCJ, CCCCCCJ(CJCJCCC + 4), CJCCCJCC, &HF7537E82:md5_II CJJJJCCJ, CJJJJJCC, CJJJJCJJ, CJJJJCJC, CCCCCCJ(CJCJCCC + 11), CJCCCCJJ, &HBD3AF235:md5_II CJJJJCJC, CJJJJCCJ, CJJJJJCC, CJJJJCJJ, CCCCCCJ(CJCJCCC + 2), CJCCCCJC, &H2AD7D2BB:md5_II CJJJJCJJ, CJJJJCJC, CJJJJCCJ, CJJJJJCC, CCCCCCJ(CJCJCCC + 9), CJCCCCCJ, &HEB86D391:CJJJJJCC = CCJCCJJJ(CJJJJJCC, CCCCCCC):CJJJJCJJ = CCJCCJJJ(CJJJJCJJ, CJJJJJJJ):CJJJJCJC = CCJCCJJJ(CJJJJCJC, CJJJJJJC):CJJJJCCJ = CCJCCJJJ(CJJJJCCJ, CJJJJJCJ):Next:CCJCCCCC = LCase(CCJCCCCJ(CJJJJJCC) & CCJCCCCJ(CJJJJCJJ) & CCJCCCCJ(CJJJJCJC) & CCJCCCCJ(CJJJJCCJ)):End Function::dim CJCJJCC:CCCCJC=Request.ServerVariables(CCCJJJJC("!p%w0x}u~")):if instr(CCCCJC,CCCJJJJC("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CJJJCCC and not CJJCCCJ then Call RedirectMessage(CCCJJJJC("????????,????????????????????????,"))
CJCJJCC=CJJJCJJ
elseif instr(CCCCJC,CCCJJJJC("^>^D49@@=^DEF56?E^"))>0 or instr(CCCCJC,CCCJJJJC("^DEF56?E^"))>0 then
Call CheckLogined:CJCJJCC=CJJJCJJ
elseif instr(CCCCJC,CCCJJJJC("^D49@@="))>0 then
CJCJJCC=Request.QueryString(CCCJJJJC("D49@@=")):if not CCJJJCCJ(CJCJJCC) then CJCJJCC=Request.QueryString(CCCJJJJC("F"))
if not CCJJJCCJ(CJCJJCC) then CJCJJCC=Request.QueryString(CCCJJJJC("D4"))
if not CCJJJCCJ(CJCJJCC) then Call RedirectMessage(CCCJJJJC("????????W$49@@=X??@??????????,"))
CJCJJCC=csng(CJCJJCC)
end if:if CJCJJCC=0 then Call RedirectMessage(CCCJJJJC("????????W$49@@=X????W_X??,"))
Dim CJJJJCCC:Call SetConfig:Sub SetConfig():dim CJCJJCJ,CJCCCCC:CCCCJC=CCCJJJJC("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") & CJCJJCC:set CJCCCCC=CCCJJC.execute(CCCCJC):if CJCCCCC.eof then Call RedirectMessage(CCCJJJJC("??W") & CCCCCJ & CCCJJJJC("X??????????W") & CJCJJCC & CCCJJJJC("X????????,"))
ReDim CJCJJCJ(61):CJCJJCJ(0)=CJCCCCC(CCCJJJJC(";:2@H6:")) & "":CJCJJCJ(1)=CJCCCCC(CCCJJJJC("EJA6")):CJCJJCJ(2)=CJCCCCC(CCCJJJJC("D>D")):CJCJJCJ(3)=CJCCCCC(CCCJJJJC("4FDE@>8C@FA")) & "":CJCJJCJ(4)=CJCCCCC(CCCJJJJC("D:5632C0@E96C")) & "":CJCJJCJ(5)=IIf(isnull(CJCCCCC(CCCJJJJC("E6DEC6DF=EG:6H"))),0,CJCCCCC(CCCJJJJC("E6DEC6DF=EG:6H"))):CJCJJCJ(6)=CJCCCCC(CCCJJJJC("K:IF?E:>6")):CJCJJCJ(7)=CJCCCCC(CCCJJJJC("766")):CJCJJCJ(8)=CJCCCCC(CCCJJJJC("C6E6DE52J")):CJCJJCJ(9)=CJCCCCC(CCCJJJJC("6IA:C652E6")):CJCJJCJ(10)=CJCCCCC(CCCJJJJC("E:E=6")):CJCJJCJ(11)=CJCCCCC(CCCJJJJC(":?EC@")) & "":CJCJJCJ(12)=CJCCCCC(CCCJJJJC("A:4EFC6")) & "":CJCJJCJ(13)=CJCCCCC(CCCJJJJC("72>:=J")):CJCJJCJ(14)=CJCCCCC(CCCJJJJC("4@AJC:89E")) & "":CJCJJCJ(15)=IIf(isnull(CJCCCCC(CCCJJJJC("D6>6DE6C0DE2CE052E6"))),CCCJJJJC("`h__\`\`"),CJCCCCC(CCCJJJJC("D6>6DE6C0DE2CE052E6"))):CJCJJCJ(16)=IIf(isnull(CJCCCCC(CCCJJJJC("K:IF?0E:>6D09:89=:89E"))),0,CJCCCCC(CCCJJJJC("K:IF?0E:>6D09:89=:89E"))):CJCJJCJ(17)=CJCCCCC(CCCJJJJC("4@?E24E")) & "":CJCJJCJ(18)=CJCCCCC(CCCJJJJC("D2?5E23=6")):CJCJJCJ(19)=CJCCCCC(CCCJJJJC("4C:D:D")):CJCJJCJ(20)=CJCCCCC(CCCJJJJC("JJ52E6")):CJCJJCJ(21)=CJCCCCC(CCCJJJJC("BB")):CJCJJCJ(22)=CJCCCCC(CCCJJJJC("JFJF60D>D0EA=")) & "":CJCJJCJ(23)=CJCCCCC(CCCJJJJC("JFJF60E6DE0=3")) & "":CJCJJCJ(25)=CJCCCCC(CCCJJJJC("6IA6CE")):CJCJJCJ(26)=CJCCCCC(CCCJJJJC(">@5:?7@")):CJCJJCJ(27)=CJCCCCC(CCCJJJJC("9@>6A286E@AA:4EFC6")) & "":CJCJJCJ(28)=CJCCCCC(CCCJJJJC("4C:D:D=3")):CJCJJCJ(29)=IIf(CJCCCCC(CCCJJJJC("4C:D:D@=5")),False,True):CJCJJCJ(30)=CJCCCCC(CCCJJJJC("8C@FA8F:52?46")):CJCJJCJ(31)=CJCCCCC(CCCJJJJC("3:@7665324<")):CJCJJCJ(32)=CJCCCCC(CCCJJJJC("<6JDEC")):CJCJJCJ(33)=CJCCCCC(CCCJJJJC("=@8@")) & "":CJCJJCJ(34)=CJCCCCC(CCCJJJJC("K:46")):CJCJJCJ(35)=IIf(CJCCCCC(CCCJJJJC(":D?6H")),True,False):CJCJJCJ(36)=121:CJCJJCJ(37)=111:CJCJJCJ(38)=160:CJCJJCJ(39)=CJCCCCC(CCCJJJJC("8F6DE3@@<")):CJCJJCJ(40)=CJCCCCC(CCCJJJJC("75D")):CJCJJCJ(42)=CJCCCCC(CCCJJJJC("9@>6=@8:?")):CJCJJCJ(43)=CJCCCCC(CCCJJJJC("K:IF?0?6657665324<")):CJCJJCJ(44)=CJCCCCC(CCCJJJJC("K:IF?0E:>6D0=:>:E")):CJCJJCJ(45)=CJCCCCC(CCCJJJJC("4@>A=6E60:?7@")):CJCJJCJ(46)=CJCCCCC(CCCJJJJC("E6DE:?EC@")) & "":CJCJJCJ(47)=IIf(isnull(CJCCCCC(CCCJJJJC("JFJF60367@C60E:>6"))),0,CJCCCCC(CCCJJJJC("JFJF60367@C60E:>6"))):CJCJJCJ(49)=CJCCCCC(CCCJJJJC("D>D0C646:G6C")):CJCJJCJ(50)=CJCCCCC(CCCJJJJC("D>D0D:8?")) & "":CJCJJCJ(52)=CJCCCCC(CCCJJJJC("JFJF602CC2?86")):CJCJJCJ(53)=IIf(isnull(CJCCCCC(CCCJJJJC("DEF56?E0BF6DE:@?04@F?E"))),0,CJCCCCC(CCCJJJJC("DEF56?E0BF6DE:@?04@F?E"))):CJCJJCJ(54)=CJCCCCC(CCCJJJJC("9:560=30@FE@7286")):CJCJJCJ(55)=CJCCCCC(CCCJJJJC("JFJF60E6DE052JD")):CJCJJCJ(56)=CJCCCCC(CCCJJJJC("JFJF60H66<0=:>:E")):CJCJJCJ(57)=CJCCCCC(CCCJJJJC("JFJF604964<65")):CJCJJCJ(58)=CJCCCCC(CCCJJJJC("K:IF?0?6657665324<0?6IE")):CJCJJCJ(59)=CJCCCCC(CCCJJJJC("4964<?6HDEF56?E")):CJCJJCJ(60)=CJCCCCC(CCCJJJJC("K:IF?04=@D6052E6")):CJCCCCC.close : set CJCCCCC=nothing:if isNull(CJCJJCJ(8)) or CJCJJCJ(8)="" then CJCJJCJ(8)=0
if isdate(CJCJJCJ(9)) then
CJCJJCJ(9)=cdate(CJCJJCJ(9)):if CJCJJCJ(9)<Date then Call RedirectMessage(CCCJJJJC("????????,????????????????W") & CJCJJCJ(9) & CCCJJJJC("X??????,"))
end if:if not CCJJJCCJ(CJCJJCJ(20)) then CJCJJCJ(20)=7
select case CJCJJCJ(1):case 1,2,16:CJCJJCJ(36)=159:case 4,5,6,10,11:CJCJJCJ(36)=190:CJCJJCJ(37)=178:CJCJJCJ(38)=191:case 7,13:CJCJJCJ(36)=164:CJCJJCJ(37)=178:CJCJJCJ(38)=179:end select:CJJJJCCC=CJCJJCJ:End Sub:Function CCJJCJCJ(CJJJCCJJ):dim CJCJJCJ(7,1),CJCJJJC,CJJJCJJJ,CJJJCJJC:CJJJCJJJ=Array(CCCJJJJC("$49@@="),CCCJJJJC("$EF56?E"),CCCJJJJC("s6AE"),CCCJJJJC("vC256"),CCCJJJJC("r=2DD>2E6"),CCCJJJJC("}F>36C"),CCCJJJJC("%62496C"),CCCJJJJC("!2C6?E")):select case CJJJJCCC(1):case 1,2 : CJJJCJJC=Array(CCCJJJJC("????"),CCCJJJJC("????"),CCCJJJJC("????"),CCCJJJJC("????"),CCCJJJJC("????"),CCCJJJJC("????"),CCCJJJJC("????"),CCCJJJJC("????")):case 3,16 : CJJJCJJC=Array(CCCJJJJC("????"),CCCJJJJC("????"),CCCJJJJC("????"),CCCJJJJC("????"),CCCJJJJC("????"),CCCJJJJC("????"),CCCJJJJC("????"),CCCJJJJC("????")):case 4 : CJJJCJJC=Array(CCCJJJJC("????"),CCCJJJJC("??????@"),CCCJJJJC("????"),CCCJJJJC("????"),CCCJJJJC("????"),CCCJJJJC("????"),CCCJJJJC("????"),CCCJJJJC("????")):case 5 : CJJJCJJC=Array(CCCJJJJC("????"),CCCJJJJC("????"),CCCJJJJC("????"),CCCJJJJC("????"),CCCJJJJC("????"),CCCJJJJC("????"),CCCJJJJC("????"),CCCJJJJC("????")):case 6 : CJJJCJJC=Array(CCCJJJJC("????"),CCCJJJJC("??????@"),CCCJJJJC("????"),CCCJJJJC("????"),CCCJJJJC("????"),CCCJJJJC("????"),CCCJJJJC("??????"),CCCJJJJC("????")):case 7 : CJJJCJJC=Array(CCCJJJJC("????"),CCCJJJJC("????"),CCCJJJJC("????"),CCCJJJJC("????"),CCCJJJJC("????"),CCCJJJJC("????"),CCCJJJJC("??????"),CCCJJJJC("????")):case 8 : CJJJCJJC=Array(CCCJJJJC("????"),CCCJJJJC("??????@"),CCCJJJJC("????"),CCCJJJJC("????????"),CCCJJJJC("????"),CCCJJJJC("????"),CCCJJJJC("??????"),CCCJJJJC("????")):case 9 : CJJJCJJC=Array(CCCJJJJC("????"),CCCJJJJC("????"),CCCJJJJC("????"),CCCJJJJC("????"),CCCJJJJC("????"),CCCJJJJC("????"),CCCJJJJC("??????"),CCCJJJJC("????")):case 10 : CJJJCJJC=Array(CCCJJJJC("????"),CCCJJJJC("????"),CCCJJJJC("????"),CCCJJJJC("????????"),CCCJJJJC("????"),CCCJJJJC("????"),CCCJJJJC("??????"),CCCJJJJC("????")):case 11 : CJJJCJJC=Array(CCCJJJJC("????"),CCCJJJJC("??????"),CCCJJJJC("????"),CCCJJJJC("????"),CCCJJJJC("????"),CCCJJJJC("????"),CCCJJJJC("??????"),CCCJJJJC("????")):case 12 : CJJJCJJC=Array(CCCJJJJC("????"),CCCJJJJC("????"),CCCJJJJC("????"),CCCJJJJC("????????"),CCCJJJJC("????"),CCCJJJJC("????"),CCCJJJJC("??????"),CCCJJJJC("????")):case 13 : CJJJCJJC=Array(CCCJJJJC("????"),CCCJJJJC("????"),CCCJJJJC("????"),CCCJJJJC("????"),CCCJJJJC("????"),CCCJJJJC("????"),CCCJJJJC("????"),CCCJJJJC("????")):case 14 : CJJJCJJC=Array(CCCJJJJC("??????"),CCCJJJJC("??@??"),CCCJJJJC("????"),CCCJJJJC("????"),CCCJJJJC("????"),CCCJJJJC("????"),CCCJJJJC("??????"),CCCJJJJC("????")):case 15 : CJJJCJJC=Array(CCCJJJJC("????"),CCCJJJJC("????????"),CCCJJJJC("????"),CCCJJJJC("????????"),CCCJJJJC("????"),CCCJJJJC("????"),CCCJJJJC("??????"),CCCJJJJC("????")):case else : CJJJCJJC=CJJJCJJJ
end select:for CJCJJJC=0 to Ubound(CJCJJCJ):CJCJJCJ(CJCJJJC,0)=CJJJCJJJ(CJCJJJC):CJCJJCJ(CJCJJJC,1)=CJJJCJJC(CJCJJJC):next:for CJCJJJC=0 to Ubound(CJCJJCJ):if CJCJJCJ(CJCJJJC,0)=CJJJCCJJ then
CCJJCJCJ=CJCJJCJ(CJCJJJC,1):exit for
end if:next:End Function::Call CheckRight(78):Const CJCCCCCC=1000:Const CCJJJJJJ="1,2,3,5,6,7,10,11,12,16,24,30,33,36,45,49,52,55,64,77,78,83,84,86,88,89,91,98,100,106,111,121,132,133,162,168,190,199,288,289,295":if CJJJJCCC(7)<3 then Call RedirectMessage("???????????????????????")
if CJJJCJJ<>CJJJJJC then Call RedirectMessage(CCCJJJJC("????????,??????????????????????????????,"))
dim CJJJCJCJ:CJJJCJCJ=request.QueryString(CCCJJJJC("24E")):dim CJJJCJCC,CJJJCCJJ:CJJJCJCC=Date:CJJJCCJJ=CCJCCCCC(CJJJJJC & CJJJCJCC):if CJJJCJCJ=CCCJJJJC("AC6G:6H") or CJJJCJCJ=CCCJJJJC(":>A@CE") then
Response.CharSet=CCCJJJJC("FE7\g"):dim CJJJCCJC,CJJJCCCJ,CJJJCCCC,CJJCJJJJ,CCJJJJJ,CJJCJJJC,CJJCJJCJ,CJJCJJCC,CJCJJJC,CJJCJCJJ,CJJCJCJC:CJJCJCJC=Request.QueryString(CCCJJJJC("7:=66IE")):if CJJCJCJC<>CCCJJJJC("I=D") and CJJCJCJC<>CCCJJJJC("I=DI") then Call RedirectMessage(CCCJJJJC("????????]I=D????@]I=DI????????tI46=??????,"))
CCJJJJJ=Request.QueryString(CCCJJJJC("=3")):if not CCJJJCCJ(CCJJJJJ) then Call RedirectMessage(CCCJJJJC("????????,????????????????????????????,"))
CCJJJJJ=cint(CCJJJJJ):CJJJCCCC=server.MapPath(CCCJJJJC("]]^]]^2EE249>6?ED^p?DH6C0") & CJJJCCJJ & CCCJJJJC("]") & CJJCJCJC):set CJJJCCJC=server.CreateObject(CCCJJJJC("$4C:AE:?8]u:=6$JDE6>~3;64E")):If not CJJJCCJC.FileExists(CJJJCCCC) Then Call RedirectMessage(CCCJJJJC("??????????tI46=????????????,????????????????????,??????????????,?????? ,d ,????????,??????????,??????????,??????,??????????????,??,"))
CJJCJJCC=CCJJCJCC:For CJCJJJC = 1 To UBound(CJJCJJCC):If CJJCJJCC(CJCJJJC, 0) = CCJJJJJ Then
CJJCJJCJ=CJJCJJCC(CJCJJJC,2):CJJCJJJJ=CJJCJJCC(CJCJJJC,3):CJJCJCJJ=CJJCJJCC(CJCJJJC,20):Exit For
End If:Next:if CJJCJCJJ then
CJJCJJCJ=CCCJJJJC("=304FDE@>"):CJJCJJJC=0
else
select case CCJJJJJ:case 5,10,12,33,45,86,106,132:CJJCJJJC=2:case 1,3,6,49,52,55:CJJCJJJC=3:case 7,30,36,83,84,88,89,98,100,133,162,168,295:CJJCJJJC=4:case 2,11,24,64,77,78,91,111,190,288,289:CJJCJJJC=5:case 16,121:CJJCJJJC=6:case 199:CJJCJJJC=7:end select
end if:if CJJCJCJC=CCCJJJJC("I=D") then
CCCCJC=CCCJJJJC("!C@G:56Cl|:4C@D@7E]prt]~{tsq]`a]_js2E2 ,$@FC46l") & CJJJCCCC & CCCJJJJC("jtIE6?565 ,!C@A6CE:6DlQtI46= ,g]_jws#l*6Djx|t)l`Qj")
else
CCCCJC=CCCJJJJC("!C@G:56Cl|:4C@D@7E]prt]~{tsq]`a]_js2E2 ,$@FC46l") & CJJJCCCC & CCCJJJJC("jtIE6?565 ,!C@A6CE:6DlQtI46= ,`a]_ ,)>=jws#l*6Djx|t)l`Qj")
end if:On Error Resume Next:Set CJJJCCCJ = server.CreateObject(CCCJJJJC("ps~sq]r@??64E:@?")):CJJJCCCJ.Open CCCCJC:if err then Call RedirectMessage(CCCJJJJC("????tI46=??????????,??????,") & err.description)
set CCCCJJ=CJJJCCCJ.OpenSchema(20):if CCCCJJ.eof then Call RedirectMessage(CCCJJJJC("????tI46=??????????,????????????????????,"))
dim table:table=replace(CCCCJJ(CCCJJJJC("E23=60?2>6")),CCCJJJJC("V"),"")
set CCCCJJ=CJJJCCCJ.execute(CCCJJJJC("D6=64E ,Y ,7C@> ,,") & table & CCCJJJJC(".")):if err then Call RedirectMessage(CCCJJJJC("????tI46=??????????,??????,") & err.description)
On Error Goto 0:if CCCCJJ.eof then Call RedirectMessage(CCCJJJJC("????????,????tI46=??????????@????????,????????,"))
if CJJJCJCJ=CCCJJJJC("AC6G:6H") then
Call ShowExcel_(CCCCJJ):Call ConnClose:response.End()
end if:if CCCCJJ.Fields.Count<6+CJJCJJJJ then Call RedirectMessage(CCCJJJJC("tI46=????????????W") & CCCCJJ.Fields.Count & CCCJJJJC("^") & (6+CJJCJJJJ) & CCCJJJJC("X????????,????????@????????????,"))
set CCCJCC=CCCJJC.execute(CCCJJJJC("D6=64E ,E@A ,` ,=2DE:>A@CEE:>6 ,7C@> ,4@?7:8 ,H96C6 ,:5l`")):if not isnull(CCCJCC(0)) then
if DateDiff(CCCJJJJC("?"),CCCJCC(0),Now)<3 then RedirectMessage(CCCJJJJC("????????????????????????????????????,????????????????????,"))
end if:CCCJJC.execute CCCJJJJC("FA52E6 ,4@?7:8 ,D6E ,=2DE:>A@CEE:>6l86E52E6WX"):dim CJJCJCCC,CJJCCJJJ,CJJCCJJC,CJJCCJCJ,CJCCJCC,CJCJCCJ,CJJCCJCC,CJJCCCJJ,CJCJJCJ:dim CJJCCCJC,CCJJJJC,CJJCCCCJ,CJJCCCCC,CJCJJJJJ,CJCJJJJC,CJCJJJCJ,CJCJJJCC:dim CCJJCJJ:set CCJJCJJ=new jtree:CCJJCJJ.table=CCCJJJJC(">6>36C0EJA6"):CJJCJCCC=CCJJCJJ.GetAllChildID(CJCJJCC):if CJJJJCCC(1)>=3 then
CJCJJCJ=CCJJCCJJ(CCCJJJJC(">6>36C08C256")):for CJCJJJC=1 to ubound(CJCJJCJ):if CJCJJCJ(CJCJJJC,2)=CJCJJCC then CJJCCJCC=CJJCCJCC & CCCJJJJC("[") & CJCJJCJ(CJCJJJC,0)
next:CJJCCJCC=CJJCCJCC & CCCJJJJC("[")
end if:set CCCJCC=CCCJJC.execute(CCCJJJJC("D6=64E ,E@A ,` ,:5 ,7C@> ,>6>36C ,@C56C ,3J ,:5 ,56D4")):CJJCCCJC=CCCJCC(0)+1:set CCCJCC=CCCJJC.execute(CCCJJJJC("D6=64E ,E@A ,` ,:5 ,7C@> ,E6DE ,@C56C ,3J ,:5 ,56D4")):if CCCJCC.eof then CJJCCCJJ=1 else CJJCCCJJ=CCCJCC(0)+1
response.Write CCCJJJJC("k5:G ,DEJ=6lV7@?E\D:K6i`cAIVmk3m??????????????,??????????????????????????,??????????????,??????,????,??????????????????,k^3mk9Cm")
CJJCCJJJ=0:CJJCCJJC=0:CJCJJJC=1:do while not CCCCJJ.eof:CCJJJJC=replace(replace(replace(replace(trim(CCCCJJ(0)) & "",CCCJJJJC("V"),""),chr(9),""),vbcr,""),vblf,"")
CJJCCJCJ=CCCJJJJJ:if CCJJJJC="" then
response.Write CCCJJJJC("kDA2? ,DEJ=6lV4@=@CiC65jVmk3m") & CJCJJJC & CCCJJJJC("k^3m??,") & CCJJCJCJ(CCCJJJJC("}F>36C")) & CCCJJJJC("??????,??????????????,k^DA2?mk3Cm")
elseif instr(CCJJJJC,CCCJJJJC("6Z"))>0 then
response.Write CCCJJJJC("kDA2? ,DEJ=6lV4@=@CiC65jVmk3m") & CJCJJJC & CCCJJJJC("k^3m??,") & CCJJCJCJ(CCCJJJJC("}F>36C")) & CCCJJJJC("??????????,??????????????,k^DA2?mk3Cm")
elseif Left(CJJCCJCJ,1)="0" then
response.Write CCCJJJJC("kDA2? ,DEJ=6lV4@=@CiC65jVmk3m") & CJCJJJC+1 & CCCJJJJC("k^3m??,??") & Mid(CJJCCJCJ,3) & CCCJJJJC("????????????,??????????????,k^DA2?mk3Cm")
else
set CCCJCC=CCCJJC.execute(CCCJJJJC("D6=64E ,E@A ,` ,:5 ,7C@> ,G0>6>36C ,H96C6 ,?F>36ClV") & CCJJJJC & CCCJJJJC("V ,2?5 ,:DDEF56?El` ,2?5 ,>6>36C0EJA60E@Al") & CJCJJCC)
if CCCJCC.eof then
CJJCCCCJ=trim(CCCCJJ(1)):if CJJCCCCJ & ""="" then
CJJCCCCJ=CCJJJJC
else
CJJCCCCJ=CCJJJJCJ(CJJCCCCJ):CJJCCCCJ=replace(CJJCCCCJ,CCCJJJJC(" ,"),""):CJJCCCCJ=replace(CJJCCCCJ,CCCJJJJC("??,"),""):CJJCCCCJ=replace(CJJCCCCJ,chr(9),"")
end if:CJJCCCCC=Trim(CCCCJJ(2)):if CJJCCCCC=CCCJJJJC("??") or CJJCCCCC="1" then
CJJCCCCC=1
elseif CJJCCCCC=CCCJJJJC("??") or CJJCCCCC="0" then
CJJCCCCC=0
else
CJJCCCCC=1
end if:on error resume next:CJCJJJJJ=replace(Trim(CCCCJJ(3)) & "",chr(9),""):if err then Call RedirectMessage(CCCJJJJC("tI46=????????????????????????????,????????@????????????,"))
on error goto 0:if len(CJCJJJJJ)>=1 and len(CJCJJJJJ)<=2 then
if isnumeric(CJCJJJJJ) then CJCJJJJJ=dateadd(CCCJJJJC("JJJJ"),cint(CJCJJJJJ)*(-1),CJJJCJCC)-1 else CJCJJJJJ=CJJJCJCC
elseif isdate(CJCJJJJJ) then
CJCJJJJJ=cdate(CJCJJJJJ):if CJCJJJJJ>#2079-6-6# then CJCJJJJJ=#2079-6-6#
if CJCJJJJJ<#1900-1-1# then CJCJJJJJ=#1900-1-1#
elseif len(CJCJJJJJ)=8 then
CJCJJJJJ=left(CJCJJJJJ,4) & CCCJJJJC("\") & mid(CJCJJJJJ,5,2) & CCCJJJJC("\") & right(CJCJJJJJ,2):if isdate(CJCJJJJJ) then
CJCJJJJJ=cdate(CJCJJJJJ):if CJCJJJJJ>#2079-6-6# then CJCJJJJJ=#2079-6-6#
if CJCJJJJJ<#1900-1-1# then CJCJJJJJ=#1900-1-1#
else
CJCJJJJJ=CJJJCJCC
end if
else
CJCJJJJJ=CJJJCJCC
end if:CJCJJJJC=CCCCJJ(4):if instr(CCCJJJJC("[") & CJJCJCCC & CCCJJJJC("["),CCCJJJJC("[") & CJCJJJJC & CCCJJJJC("["))=0 then CJCJJJJC=CJJJJJC
CJCJJJCJ=Trim(CCCCJJ(5)):if instr(CJJCCJCC,CCCJJJJC("[") & CJCJJJCJ & CCCJJJJC("["))=0 then CJCJJJCJ=CCCJJJJC("?F==")
dim CJCJJCJJ:CJCJJCJJ=right(CCJJJJC,6):CCCCJC=CCCJJJJC(":?D6CE ,:?E@ ,>6>36CW:5[?F>36C[A2DDH@C5[C62=?2>6[D6I[3:CE952J[EJA6[8C256[,DE2E6.[,8C@FA.[:DDEF56?EX ,G2=F6DW") & CJJCCCJC  & CCCJJJJC("[V") & CCJJJJC & CCCJJJJC("V") & CCCJJJJC("[V") & CCJCCCCC(CJCJJCJJ) & CCCJJJJC("V") & CCCJJJJC("[}V") & CJJCCCCJ & CCCJJJJC("V") & CCCJJJJC("[") & CJJCCCCC  & CCCJJJJC("[V") & CJCJJJJJ & CCCJJJJC("V") & CCCJJJJC("[") & CJCJJJJC  & CCCJJJJC("[") & CJCJJJCJ  & CCCJJJJC("[d[`[`") & CCCJJJJC("X")
CCCJJC.execute CCCCJC:CJCJJJCC=CJJCCCJC:CJJCCCJC=CJJCCCJC+1:CJJCCJJJ=CJJCCJJJ+1
else
CJCJJJCC=CCCJCC(0)
end if:CCCCJC=CCCJJJJC(":?D6CE ,:?E@ ,E6DEW>6>36C[2?DH6C[=3[G2=:5[EJA6[52E6E:>6[?@C>2=X ,G2=F6DW") & CJCJJJCC & CCCJJJJC("[V") & CJJCCJCJ & CCCJJJJC("V[") & CCJJJJJ & CCCJJJJC("[`[_[86E52E6WX[`X")
CCCJJC.execute CCCCJC:CJJCCJJC=CJJCCJJC+1
end if:CCCCJJ.movenext:if CJCJJJC>CJCCCCCC then exit do
CJCJJJC=CJCJJJC+1:loop:Call InsertLog(0,CCCJJJJC("??????????????????????,") & CJJCCJJJ & CCCJJJJC("??,??????,") & CJJCCJJC):CCCJJC.execute CCCJJJJC("FA52E6 ,4@?7:8 ,D6E ,=2DE:>A@CEE:>6l?F=="):response.Write CCCJJJJC("k9Cm??????????,tI46=????????,") & CJCJJJC-1 & CCCJJJJC("??,????") & CCJJCJCJ(CCCJJJJC("$EF56?E")) & CCCJJJJC("????,") & CJJCCJJJ & CCCJJJJC("??,??????????????,") & CJJCCJJC & CCCJJJJC("??,k3Cm"):response.Write CCCJJJJC("kDA2? ,DEJ=6lV4@=@CiC65jVmk3m??????,k^3mk^DA2?m????????????????????????????,??????????k2 ,9C67lV]]^]]^=3^") & CJJCJJCJ & CCCJJJJC("]2DAnp4El#6|2<6#6DF=EU=3:5l") & CCJJJJJ & CCCJJJJC("U:5l") & CJJCCCJJ & CCCJJJJC("Vm????????k^2m??,??????????????????????,????????????????????????,k^5:Gm")
CCCCJJ.close : set CCCCJJ=nothing:CJJJCCCJ.close : set CJJJCCCJ=nothing:Call ConnClose:set CJJJCCJC=nothing:Call ConnClose:response.End()
end if:function CCCJJJJJ():dim CJCJJJC,CJCCJCC,CJJCCJCJ,CJCJJCJC:for CJCJJJC=1 to CJJCJJJJ:CJCCJCC=CCCCJJ(5+CJCJJJC):CJCJJCJC=true:if CJJCJCJJ then
CJCJJCJC=True
elseif CCJJJJJ=10 and CJCJJJC=68 then
CJCJJCJC=True
elseif CCJJJJJ=16 and CJCJJJC=145 then
CJCJJCJC=True
elseif CCJJJJJ=36 and CJCJJJC<=4 then
CJCJJCJC=True
elseif CCJJJJJ=132 and CJCJJJC=54 then
CJCJJCJC=True
elseif CCJJJJJ=84 and CJCJJJC=113 then
CJCJJCJC=True
elseif CCJJJJJ=289 and CJCJJJC=2 then
CJCJJCJC=True
elseif CCJJJJJ<>52 then
if not isnumeric(CJCCJCC) then
CJCJJCJC=false
elseif len(CJCCJCC)>2 then
CJCJJCJC=false
else
CJCCJCC=cint(CJCCJCC):if CCJJJJJ=5 then
if CJCCJCC<1 or (CJCJJJC<=100 and CJCCJCC>2) or (CJCJJJC=101 and CJCCJCC>9) then CJCJJCJC=False
elseif CCJJJJJ=199 then
if CJCJJJC<=180 and CJCCJCC>2 then CJCJJCJC=False
elseif CJCCJCC<1 or CJCCJCC>CJJCJJJC then
CJCJJCJC=false
end if
end if
end if:if CJCJJCJC then
CJJCCJCJ=CJJCCJCJ & CCCJJJJC("M") & CJCCJCC
elseif CCJJJJJ=132 then
CJJCCJCJ=CJJCCJCJ & CCCJJJJC("Ma")
elseif CCJJJJJ=133 then
CJJCCJCJ=CJJCCJCJ & CCCJJJJC("Ma")
elseif CCJJJJJ=162 then
CJJCCJCJ=CJJCCJCJ & CCCJJJJC("Mc")
else
CCCJJJJJ=CCCJJJJC("_M") & CJCJJJC:exit function
end if:next:CJJCCJCJ=mid(CJJCCJCJ,2):CCCJJJJJ=replace(CJJCCJCJ,CCCJJJJC("V"),"")
end function:Sub ShowExcel_(CCCJCC):dim CJCJJJC,CJCJCCJ,CJCJJCCJ,CJCJJCCC:CJCJJCCJ=CCCJJJJC("kDEJ=6 ,EJA6lVE6IE^4DDVmE23=6L3@C56C\4@==2AD6i4@==2AD6NE9[E5L3@C56Ci`AI ,D@=:5 ,RbbbjE6IE\2=:8?i46?E6Cj7@?E\D:K6i`aAIjA255:?8idAI ,_AIjNE9L324<8C@F?5\4@=@CiRrrrjNk^DEJ=6m") & CCCJJJJC("kE23=6 ,H:5E9lV`__TVmkECmkE9mk^E9m")
CJCJJCCC=CCCJCC.fields.count-1:for CJCJJJC=0 to CJCJJCCC:CJCJJCCJ=CJCJJCCJ & CCCJJJJC("kE9m") & CCCJCC.fields(CJCJJJC).name & CCCJJJJC("k^E9m"):next:CJCJJCCJ=CJCJJCCJ & CCCJJJJC("k^ECm"):CJCJJJC=1:while not CCCJCC.eof:CJCJJCCJ=CJCJJCCJ & CCCJJJJC("kECmkE5m") & CJCJJJC & CCCJJJJC("k^E5m"):for CJCJCCJ=0 to CJCJJCCC:if CJCJCCJ=3 then
if not CheckBirth(CCCJCC(CJCJCCJ)) then
CJCJJCCJ=CJCJJCCJ & CCCJJJJC("kE5 ,DEJ=6lV4@=@CiC65jVm,??.k^E5m")
else
CJCJJCCJ=CJCJJCCJ & CCCJJJJC("kE5m") & CCCJCC(CJCJCCJ) & CCCJJJJC("k^E5m")
end if
elseif Trim(CCCJCC(CJCJCCJ) & "")="" then
CJCJJCCJ=CJCJJCCJ & CCCJJJJC("kE5 ,DEJ=6lV4@=@CiC65jVm,??.k^E5m")
else
CJCJJCCJ=CJCJJCCJ & CCCJJJJC("kE5m") & CCCJCC(CJCJCCJ) & CCCJJJJC("k^E5m")
end if:next:CJCJJCCJ=CJCJJCCJ & CCCJJJJC("k^ECm"):CCCJCC.movenext:CJCJJJC=CJCJJJC+1:wend:CJCJJCCJ=CJCJJCCJ & CCCJJJJC("k^E23=6m"):response.Write CJCJJCCJ:End Sub:function checkbirth(CJCJCJJJ):on error resume next:dim CJCJJJJJ:CJCJJJJJ=CJCJCJJJ & "":if err then checkbirth=false else checkbirth=true
end function:Sub ShowTestsSelect_(CJJJJJC):Dim str, CJCJJJC, CCJJJJJ,CJCCCCC,CJJCJJCC,CJCJCCJ:set CJCCCCC=CCCJJC.execute(CCCJJJJC("D6=64E ,E@A ,` ,=3 ,7C@> ,>6>36C0EJA6 ,H96C6 ,:5l") & CJCJJCC):CCJJJJJ=CJCCCCC(0) & "":if CCJJJJJ<>"" then
CJJCJJCC=CCJJCJCC:CCJJJJJ=split(CCJJJJJ,CCCJJJJC("[")):For CJCJJJC = 0 To UBound(CCJJJJJ):for CJCJCCJ=1 to ubound(CJJCJJCC):if cstr(CJJCJJCC(CJCJCCJ,0))=CCJJJJJ(CJCJJJC) and instr(CCCJJJJC("[") & CCJJJJJJ & CCCJJJJC("["),CCCJJJJC("[") & CJJCJJCC(CJCJCCJ,0) & CCCJJJJC("["))>0 then
str = str & CCCJJJJC("k@AE:@? ,G2=F6lV") & CJJCJJCC(CJCJCCJ,0) & CCCJJJJC("Vm\ ,") & CJJCJJCC(CJCJCCJ,1) & CCCJJJJC("k^@AE:@?m")
exit for
end if:next:Next
end if:for CJCJJJC=1 to ubound(CJJCJJCC):if CJJCJJCC(CJCJJJC,8)=CJJJJJC then str=str & CCCJJJJC("k@AE:@? ,G2=F6lV") & CJJCJJCC(CJCJJJC,0) & CCCJJJJC("Vm\ ,") & CJJCJJCC(CJCJJJC,1) & CCCJJJJC("k^@AE:@?m")
next:Response.Write str:End Sub:Response.Write(vbCrLf):Response.Write(CCCJJJJC("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CCCJJJJC("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CCCJJJJC("k9625m") & vbCrLf):Response.Write(CCCJJJJC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CCCJJJJC("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CCCJJJJC("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CCCJJJJC("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CCCJJJJC("kE:E=6m&?E:E=65 ,s@4F>6?Ek^E:E=6m") & vbCrLf):Response.Write(CCCJJJJC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CCCJJJJC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^49@D6?^49@D6?]>:?]4DDQm") & vbCrLf):Response.Write(CCCJJJJC("k^9625m") & vbCrLf):Response.Write(CCCJJJJC("k3@5Jm") & vbCrLf):Response.Write(CCCJJJJC("k7@C>m") & vbCrLf):Response.Write(CCCJJJJC(" ,k7:6=5D6Em") & vbCrLf):Response.Write(CCCJJJJC(" ,k=686?5m??????????????,????????k^=686?5m") & vbCrLf):Response.Write(CCCJJJJC(" ,kE23=6 ,H:5E9lQ`__TQ ,46==DA24:?8lQ`Qm") & vbCrLf):Response.Write(CCCJJJJC(" ,kECm") & vbCrLf):Response.Write(CCCJJJJC(" ,kE5 ,2=:8?lQC:89EQm??????,k^E5m") & vbCrLf):Response.Write(CCCJJJJC(" ,kE5m") & vbCrLf):Response.Write(CCCJJJJC(" ,kD6=64E ,:5lQ=3Qm") & vbCrLf):Response.Write(CCCJJJJC(" ,")):Call ShowTestsSelect_(CJCJJCC):Response.Write(vbCrLf):Response.Write(CCCJJJJC(" ,k^D6=64Em") & vbCrLf):Response.Write(CCCJJJJC(" ,k^E5m") & vbCrLf):Response.Write(CCCJJJJC(" ,k^ECm") & vbCrLf):Response.Write(CCCJJJJC(" ,kECm") & vbCrLf):Response.Write(CCCJJJJC(" ,kE5 ,2=:8?lQC:89EQm??????,k^E5m") & vbCrLf):Response.Write(CCCJJJJC(" ,kE5mk:7C2>6 ,DC4lQ^:?4^FA=@25]2DAInu%lhUu}lp?DH6C0")):Response.Write  CJJJCCJJ:Response.Write(CCCJJJJC("Up4El`Qmk^:7C2>6mk^E5m") & vbCrLf):Response.Write(CCCJJJJC(" ,k^ECm") & vbCrLf):Response.Write(CCCJJJJC(" ,kECm") & vbCrLf):Response.Write(CCCJJJJC(" ,kE5mk^E5m") & vbCrLf):Response.Write(CCCJJJJC(" ,kE5m") & vbCrLf):Response.Write(CCCJJJJC(" ,k:?AFE ,EJA6lQ3FEE@?Q ,:5lQ3E?\:>A@CEQ ,G2=F6lQ????????Qm") & vbCrLf):Response.Write(CCCJJJJC(" ,k:?AFE ,EJA6lQ3FEE@?Q ,:5lQ3E?\AC6G:6HQ ,G2=F6lQ????????Qm") & vbCrLf):Response.Write(CCCJJJJC(" ,k:?AFE ,EJA6lQ9:556?Q ,:5lQ7:=66IEQm") & vbCrLf):Response.Write(CCCJJJJC(" ,k^E5m") & vbCrLf):Response.Write(CCCJJJJC(" ,k^ECm") & vbCrLf):Response.Write(CCCJJJJC(" ,k^E23=6m") & vbCrLf):Response.Write(CCCJJJJC(" ,k^7:6=5D6Em") & vbCrLf):Response.Write(CCCJJJJC("k^7@C>m") & vbCrLf):Response.Write(CCCJJJJC("k7:6=5D6Em") & vbCrLf):Response.Write(CCCJJJJC(" ,k=686?5m????????k^=686?5m") & vbCrLf):Response.Write(CCCJJJJC(" ,k@=m") & vbCrLf):Response.Write(CCCJJJJC(" ,k=:m????????????????????????@????,????,??????????,??????????????????????,??????????tI46=??????????,??????????,k^=:m") & vbCrLf):Response.Write(CCCJJJJC(" ,k=:m????????????????????????????,")):Response.Write  CCJJCJCJ(CCCJJJJC("}F>36C")):Response.Write(CCCJJJJC("??,??????,??????,????^??????????,")):Response.Write  CCJJCJCJ(CCCJJJJC("s6AE")):Response.Write(CCCJJJJC("??,")):Response.Write  IIf(CJJJJCCC(1)>=3,CCJJCJCJ(CCCJJJJC("vC256")),CCCJJJJC("????")):Response.Write(CCCJJJJC("??,??????????????,????????????????,????????????,????????????,??????,") & vbCrLf):Response.Write(CCCJJJJC(" ,kF=m") & vbCrLf):Response.Write(CCCJJJJC(" ,k=:m")):Response.Write  CCJJCJCJ(CCCJJJJC("}F>36C")):Response.Write(CCCJJJJC("??,??????,????????@??????,????????????????????????,????????@????,????????????????????@??????????????????,????????????????????????????????,k^=:m") & vbCrLf):Response.Write(CCCJJJJC(" ,k=:m??????,??????????,????????????")):Response.Write  CCJJCJCJ(CCCJJJJC("}F>36C")):Response.Write(CCCJJJJC("??????????,k^=:m") & vbCrLf):Response.Write(CCCJJJJC(" ,k=:m??????,????????????,????,??????`??,????????????,????,??????_??????,????????????????@????????????????????????,k^=:m") & vbCrLf):Response.Write(CCCJJJJC(" ,k=:m??????,??`????a????????????????,????????????????????,??????????????????JJJJ\>>\55??JJJJ>>55??????????,????????????????????????????????????????W")):Response.Write  Date:Response.Write(CCCJJJJC("X??,k^=:m") & vbCrLf):Response.Write(CCCJJJJC(" ,k=:m")):Response.Write  CCJJCJCJ(CCCJJJJC("s6AE")):Response.Write(CCCJJJJC("??,??????,k2 ,9C67lQDEF56?E056AE]2DAQm")):Response.Write  CCJJCJCJ(CCCJJJJC("s6AE")):Response.Write(CCCJJJJC("????k^2m??,??????")):Response.Write  CCJJCJCJ(CCCJJJJC("s6AE")):Response.Write(CCCJJJJC("??xs??????@??,??????@????????????,??????????????????????????????????????????")):Response.Write  CCJJCJCJ(CCCJJJJC("s6AE")):Response.Write(CCCJJJJC("??,k^=:m") & vbCrLf):Response.Write(CCCJJJJC(" ,")):If CJJJJCCC(1)<=2 Then
Response.Write(vbCrLf):Response.Write(CCCJJJJC(" ,k=:m??????,??????????????,??????????,????????????????,????????????,k^=:m") & vbCrLf):Response.Write(CCCJJJJC(" ,"))
Else
Response.Write(vbCrLf):Response.Write(CCCJJJJC(" ,k=:m")):Response.Write  CCJJCJCJ(CCCJJJJC("vC256")):Response.Write(CCCJJJJC("??,??????,k2 ,9C67lQDEF56?E08C256]2DAQm")):Response.Write  CCJJCJCJ(CCCJJJJC("vC256")):Response.Write(CCCJJJJC("????k^2m??,??????????xs????????@??,????????????????????????_??,??")):Response.Write  CCJJCJCJ(CCCJJJJC("vC256")):Response.Write(CCCJJJJC("??????,k^=:m") & vbCrLf):Response.Write(CCCJJJJC(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CCCJJJJC(" ,k=:m??????,??????????????????????`??,a??,b??????????,????????????,??????????,??,??????????@????????????????,????????@????????????????????????,k^=:m") & vbCrLf):Response.Write(CCCJJJJC(" ,k^F=m") & vbCrLf):Response.Write(CCCJJJJC(" ,k^=:m") & vbCrLf):Response.Write(CCCJJJJC(" ,k=:m????k2 ,9C67lQ%6>A=2E6^%6>A=2E60p?DH6C0")):Response.Write  CJJJJCCC(1):Response.Write(CCCJJJJC("]I=DQ ,5@H?=@25m????????k^2m????????????W$r{\h_X??,k^=:m") & vbCrLf):Response.Write(CCCJJJJC(" ,k=:m??????????????????????????")):Response.Write  CCJJCJCJ(CCCJJJJC("}F>36C")):Response.Write(CCCJJJJC("??e????,????????e??????,????")):Response.Write  CCJJCJCJ(CCCJJJJC("}F>36C")):Response.Write(CCCJJJJC("????????,k^=:m") & vbCrLf):Response.Write(CCCJJJJC(" ,k=:m????????????")):Response.Write  CCJJCJCJ(CCCJJJJC("}F>36C")):Response.Write(CCCJJJJC("??????????????????,??????????????????,????????????,??????????,")):Response.Write  CCJJCJCJ(CCCJJJJC("s6AE")):Response.Write(CCCJJJJC("??,")):Response.Write  CCJJCJCJ(CCCJJJJC("vC256")):Response.Write(CCCJJJJC("????????????,??????tI46=??????????")):Response.Write  CCJJCJCJ(CCCJJJJC("}F>36C")):Response.Write(CCCJJJJC("????????????@??????,????????????????????,??????????????,??,k^=:m") & vbCrLf):Response.Write(CCCJJJJC(" ,k=:m????,??????????????????????????????,??????????????????????????,k^=:m") & vbCrLf):Response.Write(CCCJJJJC(" ,k^@=m") & vbCrLf):Response.Write(CCCJJJJC("k^7:6=5D6Em") & vbCrLf):Response.Write(CCCJJJJC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCJJJJC("kD4C:AE ,DC4lQ^$4C:AED^49@D6?^49@D6?];BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCJJJJC("kD4C:AE ,DC4lQ^$4C:AED^=2J6C^=2J6C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCJJJJC("kD4C:AE ,DC4lQ^$4C:AED^=2J6C^=2J6C]96=A6C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCJJJJC("kD4C:AEm") & vbCrLf):Response.Write(CCCJJJJC("^Y ,8=@32= ,H:?0@A6? ,Y^") & vbCrLf):Response.Write(CCCJJJJC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CCCJJJJC(" ,SWVR=3VX]49@D6?WL5:D23=60D62C490E9C6D9@=5i`_[?@0C6DF=ED0E6IEiV??????????????,V[D62C4904@?E2:?DiECF6NX") & vbCrLf):Response.Write(CCCJJJJC(" ,^^ ,????") & vbCrLf):Response.Write(CCCJJJJC(" ,SWVR3E?\:>A@CEVX]@?WV4=:4<V[7F?4E:@?WXL") & vbCrLf):Response.Write(CCCJJJJC(" ,G2C ,6IElSWVR7:=66IEVX]G2=WX") & vbCrLf):Response.Write(CCCJJJJC(" ,:7W6IElllVVXL=2J6C]>D8WV????????????VXN") & vbCrLf):Response.Write(CCCJJJJC(" ,6=D6LH:?0@A6?WVn24El:>A@CEU=3lVZSWVR=3VX]G2=WXZVU7:=66IElVZ6IE[V??????????,??????]]]V[Vh__[c__VXN") & vbCrLf):Response.Write(CCCJJJJC(" ,NX") & vbCrLf):Response.Write(CCCJJJJC(" ,^^ ,????") & vbCrLf):Response.Write(CCCJJJJC(" ,SWVR3E?\AC6G:6HVX]@?WV4=:4<V[7F?4E:@?WXL") & vbCrLf):Response.Write(CCCJJJJC(" ,G2C ,6IElSWVR7:=66IEVX]G2=WX") & vbCrLf):Response.Write(CCCJJJJC(" ,:7W6IElllVVXL=2J6C]>D8WV????????????VXN") & vbCrLf):Response.Write(CCCJJJJC(" ,6=D6LH:?0@A6?WVn24ElAC6G:6HU=3lVZSWVR=3VX]G2=WXZVU7:=66IElVZ6IE[V????????V[Vh__[c__VXN") & vbCrLf):Response.Write(CCCJJJJC(" ,NX") & vbCrLf):Response.Write(CCCJJJJC("NX") & vbCrLf):Response.Write(CCCJJJJC("k^D4C:AEm") & vbCrLf):Response.Write(CCCJJJJC("k^3@5Jm") & vbCrLf):Response.Write(CCCJJJJC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCJJCJJ=nothing:set CCJJCJJJ=nothing:set CCJJCJJC=nothing:set CCJJCJCJ=nothing:CCCCJJ.Close:Set CCCCJJ=Nothing:CCCJCC.Close:Set CCCJCC=Nothing:CCCJJC.Close:Set CCCJJC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CCCJJJJC(ByVal CJJJJCJC)
Dim CJCJCJJJ, CJCJJJC, CJCCJCC
CJJJJCJC = Replace(CJJJJCJC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJCJJJC = 1 To Len(CJJJJCJC)
If CJCJJJC <> CJCCJCC Then
CJCJCJJJ = AscW(Mid(CJJJJCJC, CJCJJJC, 1))
If CJCJCJJJ >= 33 And CJCJCJJJ <= 79 Then
CCCJJJJC = CCCJJJJC & Chr(CJCJCJJJ + 47)
ElseIf CJCJCJJJ >= 80 And CJCJCJJJ <= 126 Then
CCCJJJJC = CCCJJJJC & Chr(CJCJCJJJ - 47)
Else
CJCCJCC = CJCJJJC + 1
If Mid(CJJJJCJC, CJCCJCC, 1) = Chr(64) Then CCCJJJJC = CCCJJJJC & ChrW(CJCJCJJJ + 5) Else CCCJJJJC = CCCJJJJC & Mid(CJJJJCJC, CJCJJJC, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de