Edit D:\xinhaisoft\crisis_new\student\test

Edit D:\xinhaisoft\crisis_new\student\test_puce.asp

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJCJCJ, CJCJCC,CJCCJJ, CJCCJC, CJCCCJ:Set CJCJCJ = server.CreateObject(CJJJJJJJ("ps~sq]r@??64E:@?")):CJCJCJ.open Application(CJJJJJJJ("r@??64E:@?$EC:?8")):Set CJCJCC=CJCJCJ::Dim CJCCCC,CCJJJJ,CCJJJC,CCJJCJ,CCJJCC,CCJCJJ,CCJCJC,CCJCCJ,CCJCCC:Dim CCCJJJ,CCCJJC,CCCJCJ,CCCJCC,CCCCJJ,CCCCJC:Dim CCCCCJ,CCCCCC,CJJJJJJ:Dim CJJJJJC:CJJJJJC=Trim(Request.Cookies(CJJJJJJJ("!$*|t|qt#"))):if CJJJJJC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJCCCC>0 then
CJCCCJ=CJJJJJJJ("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") & CCJJJJ & CJJJJJJJ("V ,2?5 ,:5l") & CJCCCC
set CJCCJJ=CJCJCJ.execute(CJCCCJ):If CJCCJJ.EOF Then
Call ClearMemberCookie
Else
CCJJJC=CJCCJJ(2) & "":CCJJCJ=CJCCJJ(3):CCJJCC=CJCCJJ(5):CCJCJJ=CJCCJJ(6):CCJCJC=CJCCJJ(9):CCJCCJ=CJCCJJ(15):CCCJJJ=CJCCJJ(0):CCCCCC=CJCCJJ(1):CCCCCJ=CJCCJJ(11) & "":CCCJJC=CJCCJJ(10) & "":CCJCCC=CJCCJJ(12):CCCJCJ=CJCCJJ(14):CCCJCC=CJCCJJ(13):CCCCJJ=CJCCJJ(7) & "":CCCCJC=CJCCJJ(4):CJJJJJJ=CJCCJJ(8):if isnull(CCJCCJ) then CCJCCJ=0
if isnull(CCJCJC) or CCJCJC=0 then CCJCJC=CCJJCJ
if isnull(CCCCJC) then CCCCJC=0
if isnull(CCJJCC) then CCJJCC=0
if instr(CJJJJJJJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CCJJJJ)>0 then Call RedirectMessage(CJJJJJJJ("????????,????????????????????????????????,"))
Call SetMemberCookie(CJCCCC,CCJJJJ)
End IF
end if:::Sub CheckLogined():if CJCCCC=0 then
Call ClearMemberCookie:Call ConnClose:dim CJJJJCJ:CJJJJCJ=trim(request.QueryString(CJJJJJJJ("D49@@="))):if isnumeric(CJJJJCJ) then
response.Redirect CJJJJJJJ("^>^G2?E^R^D49@@=^") & CJJJJCJ & CJJJJJJJ("^DEF56?E^=@8:?nC65:C64El") & url
else
Call RedirectMessage(CJJJJJJJ("??????????????,????????????,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CJJJJJJJ("!$*|t|qt#"))="":CJCCCC=0:CCJCJJ=0:CCJJJJ=Empty:CCJJCC=0:CCJCCJ=0:CCJCJC=0:CCJJCJ=0:CCCJJJ=False:CCCCCC=False:CJJJJJJ=Empty:End Sub:Sub CheckMemberCookie():dim CJJJJCC,CJJJCJJ,CJJJCJC,CJJJCCJ,CJJJCCC:CJJJJCC=split(CJJJJJC,CJJJJJJJ("]")):if ubound(CJJJJCC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJJJJCC(0)) or len(CJJJJCC(1))<>32 or len(CJJJJCC(2))<>32 then
Call ClearMemberCookie
else
CJJJCJJ=CJJJJCC(1):for CJJJCJC=1 to len(CJJJCJJ):CJJJCCJ=mid(CJJJCJJ,CJJJCJC,1):if isnumeric(CJJJCCJ) then CJJJCCC=CJJJCCC & CJJJCCJ
if len(CJJJCCC)=7 then exit for
next:CJJJCJJ=CJJJJCC(2):if CJJJCCC<>mid(CJJJCJJ,6,7) then
Call ClearMemberCookie
else
CJJJCCJ=mid(CJJJCJJ,18,10)/2:if CJJJCCJ<DateDiff(CJJJJJJJ("D"), CJJJJJJJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJCCCC=Clng(CJJJJCC(0)):CCJJJJ=CJJJJCC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCCCJCJ,CJJJJJJC):dim CJJJCJC,CJJJCCJ,CJJJCCC:for CJJJCJC=1 to len(CJJJJJJC):CJJJCCJ=mid(CJJJJJJC,CJJJCJC,1):if isnumeric(CJJJCCJ) then CJJJCCC=CJJJCCC & CJJJCCJ
if len(CJJJCCC)=7 then exit for
next:CJJJCCC=CCCCJCJ & CJJJJJJJ("]") & CJJJJJJC & CJJJJJJJ("]") & Fix(10000*(Rnd+1)) & CJJJCCC & Fix(10000*(Rnd+1)) & DateDiff(CJJJJJJJ("D"), CJJJJJJJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJJJJJJJ("!$*|t|qt#"))=CJJJCCC:End Sub:::Function IIf(CJJJJJCJ, CJJJJJCC, CJJJJCJJ):if isnull(CJJJJJCJ) or isempty(CJJJJJCJ) then
IIf = CJJJJCJJ
elseif CJJJJJCJ Then
IIf = CJJJJJCC
Else
IIf = CJJJJCJJ
end if:End Function:Const CCJCJJC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":Function CCJCJCC(str):if isnull(str) or str="" then
CCJCJCC=False:exit function
end if:Dim CJJCJJJ:Set CJJCJJJ = New RegExp:CJJCJJJ.Pattern = CJJJJJJJ("/`Wb,_\h.Mc,dfh.Md,_`abdefgh.Me,aef.Mf,_`abdefg.Mg,_\h.Mh,`dgh.X-5LgNS"):CJJCJJJ.IgnoreCase = True:CCJCJCC = CJJCJJJ.test(str):set CJJCJJJ=nothing:End Function::Sub Debug(str):response.Charset=CJJJJJJJ("FE7\g"):dim CJJJCJC,CJJJCCJ,CJJCJJC:if isarray(str) then
on error resume next:CJJJCJC=ubound(str,2):CJJCJJC=err.number:err.clear:on error goto 0:if CJJCJJC<>0 then
for CJJJCJC=0 to ubound(str):if CJJJCJC>0 then response.Write CJJJJJJJ("k3C ,^m")
response.Write CJJJCJC & CJJJJJJJ("i ,") & str(CJJJCJC):next
else
response.Write CJJJJJJJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CJJJCJC=0 to ubound(str,2):response.Write CJJJJJJJ("kE9 ,2=:8?lV=67EVm") & CJJJCJC & CJJJJJJJ("k^E9m")
next:response.Write CJJJJJJJ("k^ECm"):for CJJJCJC=0 to ubound(str):response.Write CJJJJJJJ("kECmkE9m") & CJJJCJC & CJJJJJJJ("k^E9m"):for CJJJCCJ=0 to ubound(str,2):response.Write CJJJJJJJ("kE5m") & str(CJJJCJC,CJJJCCJ) & CJJJJJJJ("k^E5m"):next:response.Write CJJJJJJJ("k^ECm"):next:response.Write CJJJJJJJ("k^E23=6m")
end if
elseif isnull(str) then
response.Write CJJJJJJJ(",}F==.")
else
Response.Write replace(str,vbcrlf,CJJJJJJJ("k3Cm"))
end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CJJJJCCJ,CJJJJCCC):dim CJJJJCC:CJJJJCC=CJJJJCCJ & CJJJJJJJ("l") & CJJJJCCC & CJJJJJJJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJJJJJJ("$6E\r@@<:6"),CJJJJCC):End Sub::::::sub ShowMessage(CJJJCJJJ):response.Charset=CJJJJJJJ("FE7\g"):Response.Write CJJJJJJJ("k3Cmk5:G ,2=:8?lV46?E6CVmk5:G ,DEJ=6lV4@=@CiC65j ,7@?E\H6:89Ei3@=5j ,E6IE\2=:8?i46?E6Cj ,3@C56Ci`AI ,D@=:5 ,Rrrrrrrj ,324<8C@F?5\4@=@CiRtgtgtgj ,A255:?8icAI ,aAI ,aAIj ,H:5E9ibd_AIj ,7@?E\D:K6i`aAIVm") & CJJJCJJJ & CJJJJJJJ("k^5:Gmk^5:Gmk3Cm")
end sub:Function CCJCCJJ(CJJCJJC):if isnull(CJJCJJC) or trim(CJJCJJC)="" or not isnumeric(CJJCJJC) then
CCJCCJJ=false
else
Dim CJJCJJJ:Set CJJCJJJ = New RegExp:CJJCJJJ.Pattern = CJJJJJJJ("/-5ZS"):CJJCJJJ.IgnoreCase = True:CCJCCJJ = CJJCJJJ.test(CJJCJJC):set CJJCJJJ=nothing
end if:End Function:Function CCJCCJC(CJJJCJJC):dim CJJCJCJ,CJJCJCC:CJJCJCJ=CJJJJJJJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJJJCJJC & CJJJJJJJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJJCJCC=CJCJCJ.execute(CJJCJCJ):CCJCCJC = CJJCJCC(0):if isnull(CCJCCJC) then CCJCCJC=1
CJJCJCC.close : set CJJCJCC=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CJJCCCC=nothing:set CCJCCCJ=nothing:set CCJCCCC=nothing:set CCCJJJJ=nothing:CJJCJCC.close : set CJJCJCC=nothing:CJCCJC.Close : Set CJCCJC=Nothing:CJCCJJ.Close : Set CJCCJJ=Nothing:CCCJJJC.Close : Set CCCJJJC = Nothing:CJCJCJ.Close : Set CJCJCJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJJCJJJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJJJJJJ("!$*0|6DD286"),server.URLEncode(CJJJCJJJ)):Response.Redirect CJJJJJJJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::Function CCCJJCJ():Dim CJJCJCC, CJJCCJJ(), CJJJCJC, CJJJCCJ, CJJCCJC,CJJCCCJ:If Not IsArray(Application(CJJJJJJJ("!$*0%6DED"))) Then
CJCCCJ=CJJJJJJJ("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 CJJCJCC=server.createobject(CJJJJJJJ("25@53]C64@C5D6E")):CJJCJCC.open CJCCCJ,CJCJCJ,1:CJJCCJC = CJJCJCC.RecordCount:CJJCCCJ=CJJCJCC.fields.count-1:ReDim CJJCCJJ(CJJCCJC, CJJCCCJ):If CJJCCJC > 0 Then
For CJJJCJC = 1 To CJJCCJC:For CJJJCCJ = 0 To CJJCCCJ:if CJJJCCJ=4 or CJJJCCJ=6 or CJJJCCJ=19 then
CJJCCJJ(CJJJCJC, CJJJCCJ) = CCCJJCC(CJJCJCC(CJJJCCJ))
else
CJJCCJJ(CJJJCJC, CJJJCCJ) = CJJCJCC(CJJJCCJ):if CJJCJCC(CJJJCCJ).type<>11 and isnull(CJJCCJJ(CJJJCJC, CJJJCCJ)) then CJJCCJJ(CJJJCJC, CJJJCCJ)=""
end if:Next:CJJCJCC.MoveNext:Next
End If:CJJCJCC.Close: Set CJJCJCC = Nothing:Application(CJJJJJJJ("!$*0%6DED")) = CJJCCJJ
End If:CCCJJCJ = Application(CJJJJJJJ("!$*0%6DED")):End Function::::::::::::::::::::::::::::::Function CCCJJCC(CJJJCJCJ):if isnull(CJJJCJCJ) then
CCCJJCC=""
else
On Error Resume Next:CCCJJCC=CJJJCJCJ:if err.number=-2147352567 then
CCCJJCC="":err.Clear
end if
end if:End Function::::Sub ClearCache(CJJJCJCC):Application.Contents.Remove CJJJCJCC
End Sub::Class jTree:Private CJCCCJ, CJJCCCC, CJCJJJJ, CJCJJJC,CJCJJCJ,CJCJJCC,CJCJCJJ,CJCJCJC:Private Sub Class_Initialize():CJCJJJJ = 0:CJCJJJC = 0:CJCJCJC=10:End Sub:Public Property Let Table(CJJJCCJJ):if CJJJCCJJ="" then Call RedirectMessage(CJJJJJJJ("????????,;%C66????????????????????@??????????,"))
CJCJJCJ=CJJJCCJJ:CJCJJCC=CJJJJJJJ("!$*0") & UCase(CJCJJCJ):Call GetTreeArray:End Property:Public Property Get Table():Table=CJCJJCJ:End Property::Public Property Get Count():Count=CJCJJJC-CJCJCJC:End Property:Private Sub GetTreeArray():Dim CJJJCJC, CJJJCCJ, CJCJCCJ,RecordCount:CJJCCCC = Application(CJCJJCC):If Not IsArray(CJJCCCC) Then
CJCCCJ = CJJJJJJJ("D6=64E ,4@F?EW:5X ,7C@> ,") & CJCJJCJ:if CJCJCJJ<>"" then CJCCCJ=CJCCCJ & CJJJJJJJ(" ,H96C6 ,") & CJCJCJJ
set CJCJCCJ=CJCJCJ.execute(CJCCCJ):RecordCount=CJCJCCJ(0):if RecordCount=0 then Call RedirectMessage(CJJJJJJJ("????W") & CJCJJCJ & CJJJJJJJ("^") & CJCJCJJ & CJJJJJJJ("X????????????"))
CJCJJJC=RecordCount+CJCJCJC:ReDim CJJCCCC(CJCJJJC, 4):CJCCCJ = CJJJJJJJ("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCJJCJ & CJJJJJJJ(" ,H:E9 ,W?@=@4<X"):if CJCJCJJ<>"" then CJCCCJ=CJCCCJ & CJJJJJJJ(" ,H96C6 ,") & CJCJCJJ
CJCCCJ=CJCCCJ & CJJJJJJJ(" ,@C56C ,3J ,D@CE[:5"):set CJCJCCJ=CJCJCJ.execute(CJCCCJ):For CJJJCJC = 1 To RecordCount:For CJJJCCJ = 0 To 4:CJJCCCC(CJJJCJC, CJJJCCJ) = CJCJCCJ(CJJJCCJ):if IsNull(CJJCCCC(CJJJCJC,4)) then CJJCCCC(CJJJCJC,4)=0
If CJJCCCC(CJJJCJC,2)="" then CJJCCCC(CJJJCJC,2)=CJJJJJJJ(",??.")
Next:CJCJCCJ.MoveNext:Next:CJCJCCJ.Close: Set CJCJCCJ = Nothing:for CJJJCJC=CJCJJJC-(CJCJCJC-1) to CJCJJJC:CJJCCCC(CJJJCJC,0)=CJJJCJC:next:Application.Lock():Application(CJCJJCC) = CJJCCCC:Application.UnLock()
else
CJCJJJC=Ubound(CJJCCCC)
End If:End Sub:::::Private Function CCCJCCJ(CCCCJCJ):dim CJJJCJC,CJCCJJJ:CCCJCCJ=0:CJCCJJJ=CStr(CCCCJCJ):if CJCCJJJ<>"0" then
for CJJJCJC=1 to CJCJJJC:If CStr(CJJCCCC(CJJJCJC, 0))=CJCCJJJ Then
CCCJCCJ = CJJJCJC:Exit For
End If:Next
end if:End Function::::Public Function CCCJCCC(CCCCJCJ):Dim CJJJCJC,CJCCJJC:CJJJCJC=CCCJCCJ(CCCCJCJ):if CJJJCJC=0 then
CJCCJJC=CCCCJJJ(CCCCJCJ)
else
CJCCJJC=CJJCCCC(CJJJCJC,3):if isnull(CJCCJJC) or CJCCJJC="" then
CJCCJJC=CCCCJJJ(CCCCJCJ)
elseif Mid(CJCCJJC,instrrev(CJCCJJC,CJJJJJJJ("["))+1)<>CStr(CCCCJCJ) then
CJCCJJC=CCCCJJJ(CCCCJCJ)
elseif Left(CJCCJJC,1)=CJJJJJJJ("[") then
CJCCJJC=CCCCJJJ(CCCCJCJ)
end if
end if:CCCJCCC=CJCCJJC:End Function:Private Function CCCCJJJ(CCCCJCJ):dim CJCCJJJ:CJCCJJJ=CStr(CCCCJCJ):if CJCCJJJ="0" then
CCCCJJJ=""
else
dim CJCJCCJ:set CJCJCCJ=CJCJCJ.execute(CJJJJJJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCJJCJ & CJJJJJJJ(" ,H96C6 ,:5l") & CCCCJCJ):if CJCJCCJ.eof then
Call UpdateCache(CCCCJCJ,"","","",""):Call RedirectMessage(CJJJJJJJ("??????,xs??,") & CCCCJCJ & CJJJJJJJ("??,????????,????????????????????,"))
else
if CJCJCCJ(0)=0 then
CCCCJJJ="0," & CCCCJCJ
else
CCCCJJJ=CCCJCCC(CJCJCCJ(0)) & CJJJJJJJ("[") & CCCCJCJ
end if:if CJCJCCJ(2)<>CCCCJJJ then
CJCJCJ.execute CJJJJJJJ("FA52E6 ,") & CJCJJCJ & CJJJJJJJ(" ,D6E ,A2E9lV") & CCCCJJJ & CJJJJJJJ("V ,H96C6 ,:5l") & CCCCJCJ
else
CCCCJJJ=CJCJCCJ(2)
end if
end if:Call UpdateCache(CCCCJCJ,CJCJCCJ(0),CJCJCCJ(1),CCCCJJJ,CJCJCCJ(3)):CJCJCCJ.Close: Set CJCJCCJ = Nothing
end if:End Function::Public Function GetAllParID(CCCCJCJ):GetAllParID = Mid(CCCJCCC(CCCCJCJ), 3):End Function::::::::::::::::::::Public Sub ClearCache():Application.Contents.Remove CJCJJCC
End Sub:Public Sub UpdateCache(CCCCJCJ,CJJJCCJC,CJJJCCCJ,CJCCJJC,CJJJCCCC):dim CJJJCJC,CJJJCCJ:CCCCJCJ=CLng(CCCCJCJ):CJJJCJC=CCCJCCJ(CCCCJCJ):if CJJJCCJC="" and CJJJCCCJ="" and CJCCJJC="" and CJJJCCCC="" then
if CJJJCJC>0 then
for CJJJCCJ=1 to 4:CJJCCCC(CJJJCJC,CJJJCCJ)=Null:next
end if
else
if CJJJCJC=0 then
for CJJJCCJ=1 to CJCJJJC:if CJJCCCC(CJJJCCJ,1) & ""="" then
CJJJCJC=CJJJCCJ:exit for
end if:next
end if:if CJJJCJC=0 then
Call ClearCache
else
CJJCCCC(CJJJCJC,0)=CLng(CCCCJCJ):if CJJJCCJC<>"" then CJJCCCC(CJJJCJC,1)=CLng(CJJJCCJC)
if CJJJCCCJ<>"" then CJJCCCC(CJJJCJC,2)=CJJJCCCJ
if CJCCJJC<>"" then CJJCCCC(CJJJCJC,3)=CJCCJJC
if CJJJCCCC<>"" then CJJCCCC(CJJJCJC,4)=CLng(CJJJCCCC)
end if
end if:if CJJJCJC>0 then
Application.Lock():Application(CJCJJCC) = CJJCCCC:Application.UnLock()
end if:End Sub:Private Sub Debug(CJJJCJJJ):Call ConnClose:Response.Write CJJJCJJJ:Response.End:End Sub:Private Function CCJCCJC():CCJCCJC=CCCCJCC+1:End Function:Private Function CCCCJCC():dim CJJCJCC:set CJJCJCC=CJCJCJ.execute(CJJJJJJJ("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CJCJJCJ & CJJJJJJJ(" ,@C56C ,3J ,:5 ,56D4")):CCCCJCC=CJJCJCC(0):CJJCJCC.Close: Set CJJCJCC = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Public Function CCCCCJJ(CJJCJJC):dim CJCCJCJ:if isnull(CJJCJJC) or trim(CJJCJJC)="" or not isnumeric(CJJCJJC) or instr(CJJCJJC,CJJJJJJJ("\"))>0 or instr(CJJCJJC,CJJJJJJJ("]"))>0 or left(CJJCJJC,1)="0" then
CJCCJCJ=""
else
CJCCJCJ=CJJCJJC:if Len(CJCCJCJ) Mod 2=1 then CJCCJCJ="0" & CJCCJCJ
Randomize:CJCCJCJ=CJCCJCJ & Int((99-10+1)*Rnd+10):CJCCJCJ=CCCCCJC(CJCCJCJ):CJCCJCJ=CJCCJCJ & CCCCCCJ(CJCCJCJ)
end if:CCCCCJJ=CJCCJCJ:End Function::Private Function CCCCCJC(str):Dim CJCCJCC, CJJJCJC, CJJJCCC, CJCCCJJ, CJCCCJC, CJJCJJC,CJCCJCJ:CJCCCJJ = Len(str):For CJJJCJC = 1 To CJCCCJJ:CJJJCCC = CInt(Mid(str, CJJJCJC, 1)):If CJJJCCC < 5 Then CJJJCCC = CJJJCCC + 5 Else CJJJCCC = CJJJCCC - 5
CJCCJCC = CJCCJCC & CJJJCCC:Next:For CJJJCJC = 1 To CJCCCJJ - 1 Step 2:CJCCCJC = Mid(CJCCJCC, CJJJCJC, 1):CJJCJJC = Mid(CJCCJCC, CJJJCJC + 1, 1):CJCCJCJ = CJCCJCJ & CJJCJJC & CJCCCJC:Next:CCCCCJC = StrReverse(CJCCJCJ):End Function:Private Function CCCCCCJ(CJJCJJJJ):Dim CJCCCJJ, CJJJCJC, CJJCJJC, CJCCJCC:CJCCCJJ = Len(CJJCJJJJ):CJJCJJC = 0:For CJJJCJC = 1 To CJCCCJJ:CJCCJCC = CInt(Mid(CJJCJJJJ, CJJJCJC, 1)):If CJJJCJC Mod 2 = 0 Then CJJCJJC = CJJCJJC + CJCCJCC * 3 Else CJJCJJC = CJJCJJC + CJCCJCC
Next:CJJCJJC = CJJCJJC Mod 100:CJJCJJC = 100 - CJJCJJC:CCCCCCJ = Right("0" & CJJCJJC, 2):End Function::dim CJJJJCJ:CJCCCJ=Request.ServerVariables(CJJJJJJJ("!p%w0x}u~")):if instr(CJCCCJ,CJJJJJJJ("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CCCJJJ and not CCCCCC then Call RedirectMessage(CJJJJJJJ("????????,????????????????????????,"))
CJJJJCJ=CCJCJC
elseif instr(CJCCCJ,CJJJJJJJ("^>^D49@@=^DEF56?E^"))>0 or instr(CJCCCJ,CJJJJJJJ("^DEF56?E^"))>0 then
Call CheckLogined:CJJJJCJ=CCJCJC
elseif instr(CJCCCJ,CJJJJJJJ("^D49@@="))>0 then
CJJJJCJ=Request.QueryString(CJJJJJJJ("D49@@=")):if not CCJCCJJ(CJJJJCJ) then CJJJJCJ=Request.QueryString(CJJJJJJJ("F"))
if not CCJCCJJ(CJJJJCJ) then CJJJJCJ=Request.QueryString(CJJJJJJJ("D4"))
if not CCJCCJJ(CJJJJCJ) then Call RedirectMessage(CJJJJJJJ("????????W$49@@=X??@??????????,"))
CJJJJCJ=csng(CJJJJCJ)
end if:if CJJJJCJ=0 then Call RedirectMessage(CJJJJJJJ("????????W$49@@=X????W_X??,"))
Dim CJCCCCJ:Call SetConfig:Sub SetConfig():dim CJCCCCC,CJJCJCC:CJCCCJ=CJJJJJJJ("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") & CJJJJCJ:set CJJCJCC=CJCJCJ.execute(CJCCCJ):if CJJCJCC.eof then Call RedirectMessage(CJJJJJJJ("??W") & CJCCCC & CJJJJJJJ("X??????????W") & CJJJJCJ & CJJJJJJJ("X????????,"))
ReDim CJCCCCC(61):CJCCCCC(0)=CJJCJCC(CJJJJJJJ(";:2@H6:")) & "":CJCCCCC(1)=CJJCJCC(CJJJJJJJ("EJA6")):CJCCCCC(2)=CJJCJCC(CJJJJJJJ("D>D")):CJCCCCC(3)=CJJCJCC(CJJJJJJJ("4FDE@>8C@FA")) & "":CJCCCCC(4)=CJJCJCC(CJJJJJJJ("D:5632C0@E96C")) & "":CJCCCCC(5)=IIf(isnull(CJJCJCC(CJJJJJJJ("E6DEC6DF=EG:6H"))),0,CJJCJCC(CJJJJJJJ("E6DEC6DF=EG:6H"))):CJCCCCC(6)=CJJCJCC(CJJJJJJJ("K:IF?E:>6")):CJCCCCC(7)=CJJCJCC(CJJJJJJJ("766")):CJCCCCC(8)=CJJCJCC(CJJJJJJJ("C6E6DE52J")):CJCCCCC(9)=CJJCJCC(CJJJJJJJ("6IA:C652E6")):CJCCCCC(10)=CJJCJCC(CJJJJJJJ("E:E=6")):CJCCCCC(11)=CJJCJCC(CJJJJJJJ(":?EC@")) & "":CJCCCCC(12)=CJJCJCC(CJJJJJJJ("A:4EFC6")) & "":CJCCCCC(13)=CJJCJCC(CJJJJJJJ("72>:=J")):CJCCCCC(14)=CJJCJCC(CJJJJJJJ("4@AJC:89E")) & "":CJCCCCC(15)=IIf(isnull(CJJCJCC(CJJJJJJJ("D6>6DE6C0DE2CE052E6"))),CJJJJJJJ("`h__\`\`"),CJJCJCC(CJJJJJJJ("D6>6DE6C0DE2CE052E6"))):CJCCCCC(16)=IIf(isnull(CJJCJCC(CJJJJJJJ("K:IF?0E:>6D09:89=:89E"))),0,CJJCJCC(CJJJJJJJ("K:IF?0E:>6D09:89=:89E"))):CJCCCCC(17)=CJJCJCC(CJJJJJJJ("4@?E24E")) & "":CJCCCCC(18)=CJJCJCC(CJJJJJJJ("D2?5E23=6")):CJCCCCC(19)=CJJCJCC(CJJJJJJJ("4C:D:D")):CJCCCCC(20)=CJJCJCC(CJJJJJJJ("JJ52E6")):CJCCCCC(21)=CJJCJCC(CJJJJJJJ("BB")):CJCCCCC(22)=CJJCJCC(CJJJJJJJ("JFJF60D>D0EA=")) & "":CJCCCCC(23)=CJJCJCC(CJJJJJJJ("JFJF60E6DE0=3")) & "":CJCCCCC(25)=CJJCJCC(CJJJJJJJ("6IA6CE")):CJCCCCC(26)=CJJCJCC(CJJJJJJJ(">@5:?7@")):CJCCCCC(27)=CJJCJCC(CJJJJJJJ("9@>6A286E@AA:4EFC6")) & "":CJCCCCC(28)=CJJCJCC(CJJJJJJJ("4C:D:D=3")):CJCCCCC(29)=IIf(CJJCJCC(CJJJJJJJ("4C:D:D@=5")),False,True):CJCCCCC(30)=CJJCJCC(CJJJJJJJ("8C@FA8F:52?46")):CJCCCCC(31)=CJJCJCC(CJJJJJJJ("3:@7665324<")):CJCCCCC(32)=CJJCJCC(CJJJJJJJ("<6JDEC")):CJCCCCC(33)=CJJCJCC(CJJJJJJJ("=@8@")) & "":CJCCCCC(34)=CJJCJCC(CJJJJJJJ("K:46")):CJCCCCC(35)=IIf(CJJCJCC(CJJJJJJJ(":D?6H")),True,False):CJCCCCC(36)=121:CJCCCCC(37)=111:CJCCCCC(38)=160:CJCCCCC(39)=CJJCJCC(CJJJJJJJ("8F6DE3@@<")):CJCCCCC(40)=CJJCJCC(CJJJJJJJ("75D")):CJCCCCC(42)=CJJCJCC(CJJJJJJJ("9@>6=@8:?")):CJCCCCC(43)=CJJCJCC(CJJJJJJJ("K:IF?0?6657665324<")):CJCCCCC(44)=CJJCJCC(CJJJJJJJ("K:IF?0E:>6D0=:>:E")):CJCCCCC(45)=CJJCJCC(CJJJJJJJ("4@>A=6E60:?7@")):CJCCCCC(46)=CJJCJCC(CJJJJJJJ("E6DE:?EC@")) & "":CJCCCCC(47)=IIf(isnull(CJJCJCC(CJJJJJJJ("JFJF60367@C60E:>6"))),0,CJJCJCC(CJJJJJJJ("JFJF60367@C60E:>6"))):CJCCCCC(49)=CJJCJCC(CJJJJJJJ("D>D0C646:G6C")):CJCCCCC(50)=CJJCJCC(CJJJJJJJ("D>D0D:8?")) & "":CJCCCCC(52)=CJJCJCC(CJJJJJJJ("JFJF602CC2?86")):CJCCCCC(53)=IIf(isnull(CJJCJCC(CJJJJJJJ("DEF56?E0BF6DE:@?04@F?E"))),0,CJJCJCC(CJJJJJJJ("DEF56?E0BF6DE:@?04@F?E"))):CJCCCCC(54)=CJJCJCC(CJJJJJJJ("9:560=30@FE@7286")):CJCCCCC(55)=CJJCJCC(CJJJJJJJ("JFJF60E6DE052JD")):CJCCCCC(56)=CJJCJCC(CJJJJJJJ("JFJF60H66<0=:>:E")):CJCCCCC(57)=CJJCJCC(CJJJJJJJ("JFJF604964<65")):CJCCCCC(58)=CJJCJCC(CJJJJJJJ("K:IF?0?6657665324<0?6IE")):CJCCCCC(59)=CJJCJCC(CJJJJJJJ("4964<?6HDEF56?E")):CJCCCCC(60)=CJJCJCC(CJJJJJJJ("K:IF?04=@D6052E6")):CJJCJCC.close : set CJJCJCC=nothing:if isNull(CJCCCCC(8)) or CJCCCCC(8)="" then CJCCCCC(8)=0
if isdate(CJCCCCC(9)) then
CJCCCCC(9)=cdate(CJCCCCC(9)):if CJCCCCC(9)<Date then Call RedirectMessage(CJJJJJJJ("????????,????????????????W") & CJCCCCC(9) & CJJJJJJJ("X??????,"))
end if:if not CCJCCJJ(CJCCCCC(20)) then CJCCCCC(20)=7
select case CJCCCCC(1):case 1,2,16:CJCCCCC(36)=159:case 4,5,6,10,11:CJCCCCC(36)=190:CJCCCCC(37)=178:CJCCCCC(38)=191:case 7,13:CJCCCCC(36)=164:CJCCCCC(37)=178:CJCCCCC(38)=179:end select:CJCCCCJ=CJCCCCC:End Sub:Function CCCJJJJ(CJJCJJJC):dim CJCCCCC(7,1),CJJJCJC,CCJJJJJ,CCJJJJC:CCJJJJJ=Array(CJJJJJJJ("$49@@="),CJJJJJJJ("$EF56?E"),CJJJJJJJ("s6AE"),CJJJJJJJ("vC256"),CJJJJJJJ("r=2DD>2E6"),CJJJJJJJ("}F>36C"),CJJJJJJJ("%62496C"),CJJJJJJJ("!2C6?E")):select case CJCCCCJ(1):case 1,2 : CCJJJJC=Array(CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????")):case 3,16 : CCJJJJC=Array(CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????")):case 4 : CCJJJJC=Array(CJJJJJJJ("????"),CJJJJJJJ("??????@"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????")):case 5 : CCJJJJC=Array(CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????")):case 6 : CCJJJJC=Array(CJJJJJJJ("????"),CJJJJJJJ("??????@"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("??????"),CJJJJJJJ("????")):case 7 : CCJJJJC=Array(CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("??????"),CJJJJJJJ("????")):case 8 : CCJJJJC=Array(CJJJJJJJ("????"),CJJJJJJJ("??????@"),CJJJJJJJ("????"),CJJJJJJJ("????????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("??????"),CJJJJJJJ("????")):case 9 : CCJJJJC=Array(CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("??????"),CJJJJJJJ("????")):case 10 : CCJJJJC=Array(CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("??????"),CJJJJJJJ("????")):case 11 : CCJJJJC=Array(CJJJJJJJ("????"),CJJJJJJJ("??????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("??????"),CJJJJJJJ("????")):case 12 : CCJJJJC=Array(CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("??????"),CJJJJJJJ("????")):case 13 : CCJJJJC=Array(CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????")):case 14 : CCJJJJC=Array(CJJJJJJJ("??????"),CJJJJJJJ("??@??"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("??????"),CJJJJJJJ("????")):case 15 : CCJJJJC=Array(CJJJJJJJ("????"),CJJJJJJJ("????????"),CJJJJJJJ("????"),CJJJJJJJ("????????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("??????"),CJJJJJJJ("????")):case else : CCJJJJC=CCJJJJJ
end select:for CJJJCJC=0 to Ubound(CJCCCCC):CJCCCCC(CJJJCJC,0)=CCJJJJJ(CJJJCJC):CJCCCCC(CJJJCJC,1)=CCJJJJC(CJJJCJC):next:for CJJJCJC=0 to Ubound(CJCCCCC):if CJCCCCC(CJJJCJC,0)=CJJCJJJC then
CCCJJJJ=CJCCCCC(CJJJCJC,1):exit for
end if:next:End Function::if CJCCCCJ(45) and (CCCJCC="" or CCJCCC<6 or not CCJCJCC(CCCCJJ)) then
Call RedirectMessage(CJJJJJJJ("????k2 ,9C67lV]]^DEF56?E^>J:?7@]2DAVm,????.k^2m??????????????????????????????,"))
end if:dim CJJCCCC:set CJJCCCC=new jtree:CJJCCCC.table=CJJJJJJJ(">6>36C0EJA6"):Response.Write(vbCrLf):Response.Write(CJJJJJJJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJJJJJJJ("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJJJJJJJ("k9625m") & vbCrLf):Response.Write(CJJJJJJJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJJJJJJJ("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJJJJJJJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJJJJJJJ("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CJJJJJJJ("kE:E=6m")):Response.Write  CJCCCCJ(10):Response.Write(CJJJJJJJ("\????k^E:E=6m") & vbCrLf):Response.Write(CJJJJJJJ("k=:?< ,9C67lQ]]^4DD^C6D6E]4DDQ ,C6=lQDEJ=6D966EQm") & vbCrLf):Response.Write(CJJJJJJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CJJJJJJJ("kDEJ=6m") & vbCrLf):Response.Write(CJJJJJJJ("5= ,L ,>2C8:?i ,dAI ,_AIj ,3@C56Ci ,`AI ,5@EE65 ,Rbbbj ,A255:?8i ,`_AIj ,324<8C@F?5i ,Ru`u`u` ,N") & vbCrLf):Response.Write(CJJJJJJJ("5E ,L ,7@?E\H6:89Ei ,3@=5j ,7@?E\D:K6i ,`cAIj ,N") & vbCrLf):Response.Write(CJJJJJJJ("55 ,L ,A255:?8\=67Ei ,agAIj ,N") & vbCrLf):Response.Write(CJJJJJJJ("DA2?]9:56 ,L ,5:DA=2Ji ,?@?6j ,N") & vbCrLf):Response.Write(CJJJJJJJ("k^DEJ=6m") & vbCrLf):Response.Write(CJJJJJJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJJJJ("k^9625m") & vbCrLf):Response.Write(CJJJJJJJ("k3@5Jm") & vbCrLf):Response.Write(CJJJJJJJ("k5:G ,:5lQ4@?E2:?6CQm") & vbCrLf):Response.Write(CJJJJJJJ(" ,k5:G ,:5lQ96256CQm") & vbCrLf):Response.Write(CJJJJJJJ(" ,k9`m")):Response.Write  CJCCCCJ(10):Response.Write(CJJJJJJJ("k^9`m") & vbCrLf):Response.Write(CJJJJJJJ("kF= ,:5lQ?2GQm") & vbCrLf):Response.Write(CJJJJJJJ(" ,k=: ,E:E=6lQxsi ,")):Response.Write  CJCCCC:Response.Write(CJJJJJJJ("Qm????????,")):Response.Write  CCCJCC:Response.Write(CJJJJJJJ("??,")):Response.Write  CCJCJJ:Response.Write(CJJJJJJJ("??,k^=:m") & vbCrLf):Response.Write(CJJJJJJJ(" ,k=:mk2 ,9C67lQ:?56I]2DAQm????k^2mk^=:m") & vbCrLf):Response.Write(CJJJJJJJ(" ,")):set CJCCJJ=CJCJCJ.execute(CJJJJJJJ("D6=64E ,4@F?EW:5X ,7C@> ,>6DD286 ,H96C6 ,:D?6Hl` ,2?5 ,C646:G6Cl") & CJCCCC):if CJCCJJ(0)=0 then
Response.Write CJJJJJJJ("k=:mk2 ,9C67lV]]^>6DD286^:?]2DAnC625@?=Jl`V ,E2C86ElV03=2?<Vm????k^2mk^=:m")
else
Response.Write CJJJJJJJ("k=:mk2 ,9C67lV]]^>6DD286^:?]2DAnC625@?=Jl`V ,E2C86ElV03=2?<Vm???? ,kDA2? ,DEJ=6lV4@=@CiR777j7@?E\D:K6i`_AIj5:DA=2Ji:?=:?6\3=@4<j324<8C@F?5\4@=@CiR7b_j96:89Ei`dAIjA255:?8i_ ,aAIj=:?6\96:89Ei`dAIj3@C56C\C25:FDibAIjVm") & CJCCJJ(0) & CJJJJJJJ("k^DA2?mk^2mk^=:m")
end if:Response.Write(vbCrLf):Response.Write(CJJJJJJJ(" ,k=:mk2 ,9C67lQ>J:?7@]2DAQm????????????k^2mk^=:m") & vbCrLf):Response.Write(CJJJJJJJ(" ,k=:mk2 ,9C67lQ492?86ADH]2DAQm????????????k^2mk^=:m") & vbCrLf):Response.Write(CJJJJJJJ(" ,")):If CCCJJJ or CCCCCC Then
Response.Write(vbCrLf):Response.Write(CJJJJJJJ(" ,k=:mk2 ,9C67lQ]]^D49@@=^25>:?^>2:?]2DAQm????????k^2mk^=:m") & vbCrLf):Response.Write(CJJJJJJJ(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CJJJJJJJ(" ,k=:mk2 ,9C67lQ]]^>6>36C^=@8@FE]2DAnC65:C64El^D49@@=^:?56I]2DAnD49@@=l")):Response.Write  CJJJJCJ:Response.Write(CJJJJJJJ("Qm????????k^2mk^=:m") & vbCrLf):Response.Write(CJJJJJJJ("k^F=m") & vbCrLf):Response.Write(CJJJJJJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJJJJJ(" ,k5:G ,:5lQ>2:?Qm") & vbCrLf):Response.Write(CJJJJJJJ(" ,k5:G ,:5lQ>2:?4@?E6?EQm") & vbCrLf):Response.Write(CJJJJJJJ(" ,k9am??????@??????k^9am") & vbCrLf):Response.Write(CJJJJJJJ(" ,k5:G ,4=2DDlQ4@?E6?EQm") & vbCrLf):Response.Write(CJJJJJJJ(" ,")):dim CJJCCJJ,CCJJJCJ,CCJJJCC,CJJJCJC,CCJJCJJ,CCJJCJC,CCJJCCJ,CCJJCCC:CCJJCCC=CCCCCJJ(CJCCCC):CJCCCJ=CJJJJJJJ("D6=64E ,=3 ,7C@> ,E6DE032E49 ,H96C6 ,E@52E6Z`ml86E52E6WX ,2?5 ,WWEJA6 ,:? ,W") & CJJCCCC.GetAllParID(CCJJCJ) & CJJJJJJJ("X") & CJJJJJJJ(" ,2?5 ,W8C256l_ ,@C ,8C256l") & CCJCCJ & CJJJJJJJ(" ,@C ,8C256 ,:D ,?F==X ,2?5 ,W4FDE@>8C@FAl_ ,@C ,4FDE@>8C@FAl") & CCCCJC & CJJJJJJJ(" ,@C ,4FDE@>8C@FA ,:D ,?F==XX ,@C ,>6>36Cl") & CJCCCC & CJJJJJJJ("X"):set CJCCJJ=CJCJCJ.execute(CJCCCJ):while not CJCCJJ.eof:CCJJJCJ=CCJJJCJ & CJJJJJJJ("[") & CJCCJJ(0):CJCCJJ.movenext:wend:if CCJJJCJ="" then CCJJJCJ=CJJJJJJJ("[")
CCJJJCJ=CCJJJCJ & CJJJJJJJ("["):CJCCCJ=CJJJJJJJ("D6=64E ,=3 ,7C@> ,E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,>6>36Cl") & CJCCCC & CJJJJJJJ(" ,2?5 ,G2=:5l`"):if CJCCCCJ(8)>0 then CJCCCJ=CJCCCJ & CJJJJJJJ(" ,2?5 ,52E6E:>6mV") & Date-CJCCCCJ(8) & CJJJJJJJ("V")
set CJCCJJ=CJCJCJ.execute(CJCCCJ):while not CJCCJJ.eof:CCJJJCC=CCJJJCC & CJJJJJJJ("[") & CJCCJJ(0):CJCCJJ.movenext:wend:if CCJJJCC="" then CCJJJCC=CJJJJJJJ("[")
CCJJJCC=CCJJJCC & CJJJJJJJ("["):response.Write CJJJJJJJ("kDA2? ,4=2DDlV9:56Vm??????,") & CJCCCC & CJJJJJJJ("??,??@????,") & CCJJJCJ & CJJJJJJJ("??,??????,") & CCJJJCC & CJJJJJJJ("??,k^DA2?m")
CJJCCJJ=CCCJJCJ:for CJJJCJC=1 to ubound(CJJCCJJ):CCJJCJC=CJJCCJJ(CJJJCJC,0):if instr(CCJJJCJ,CJJJJJJJ("[") & CCJJCJC & CJJJJJJJ("["))>0 and instr(CCJJJCC,CJJJJJJJ("[") & CCJJCJC & CJJJJJJJ("["))=0 then
if CJCCCCJ(54) then
if CCJCCC>=CJJCCJJ(CJJJCJC,17) and CCJCCC<=CJJCCJJ(CJJJCJC,9) then
CCJJCCJ=CCJJCCJ & CJJJJJJJ("[") & CCJJCJC:CCJJCJJ=CCJJCJJ & CJJJJJJJ("k5=m") & CJJJJJJJ("k5Emk2 ,9C67lV^=3^:?4^DE2CE]9E>n=3:5l") & CCJJCJC & CJJJJJJJ("UE6DEEJA6l_U<6Jl") & CCJJCCC & CJJJJJJJ("V ,E:E=6lV????????????V ,52E2\286lV") & CJJCCJJ(CJJJCJC,17) & CJJJJJJJ("[") & CJJCCJJ(CJJJCJC,9) & CJJJJJJJ("Vm") & IIf(CJJCCJJ(CJJJCJC,14)="",CJJCCJJ(CJJJCJC,1),CJJCCJJ(CJJJCJC,14)) & CJJJJJJJ("k^2mk^5Em") & CJJJJJJJ("k55m??????,") & CJJCCJJ(CJJJCJC,3) & CJJJJJJJ("??k3Cm") & CJJJJJJJ("??????,") & IIf(CJJCCJJ(CJJJCJC,5)="0",CJJJJJJJ("????"),CJJCCJJ(CJJJCJC,5) & CJJJJJJJ("????")) & CJJJJJJJ("k^55m") & CJJJJJJJ("k^5=m")
end if
else
CCJJCCJ=CCJJCCJ & CJJJJJJJ("[") & CCJJCJC:CCJJCJJ=CCJJCJJ & CJJJJJJJ("k5=m") & CJJJJJJJ("k5Emk2 ,9C67lV^=3^:?4^DE2CE]9E>n=3:5l") & CCJJCJC & CJJJJJJJ("UE6DEEJA6l_U<6Jl") & CCJJCCC & CJJJJJJJ("V ,E:E=6lV????????????V ,52E2\286lV") & CJJCCJJ(CJJJCJC,17) & CJJJJJJJ("[") & CJJCCJJ(CJJJCJC,9) & CJJJJJJJ("Vm") & IIf(CJJCCJJ(CJJJCJC,14)="",CJJCCJJ(CJJJCJC,1),CJJCCJJ(CJJJCJC,14)) & CJJJJJJJ("k^2mk^5Em") & CJJJJJJJ("k55m??????,") & CJJCCJJ(CJJJCJC,3) & CJJJJJJJ("??k3Cm") & CJJJJJJJ("??????,") & IIf(CJJCCJJ(CJJJCJC,5)="0",CJJJJJJJ("????"),CJJCCJJ(CJJJCJC,5) & CJJJJJJJ("????")) & CJJJJJJJ("k^55m") & CJJJJJJJ("k^5=m")
end if
end if:next:if CCJJCCJ<>"" then
CCJJCCJ=Mid(CCJJCCJ,2):Response.Cookies(CJJJJJJJ("%6DE{:DE"))=CCJJCCJ
end if:if CCJJCJJ="" then
Call ShowMessage(CJJJJJJJ("??????????????????????????,"))
else
response.write CCJJCJJ
end if:Response.Write(vbCrLf):Response.Write(CJJJJJJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJJJJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJJJJJ(" ,k5:G ,:5lQD:56Qm") & vbCrLf):Response.Write(CJJJJJJJ(" ,k9bm????????????k^9bm") & vbCrLf):Response.Write(CJJJJJJJ("kF=m") & vbCrLf):Response.Write(CJJJJJJJ(" ,k=:mk2 ,9C67lQE6DE0AF46]2DAQm????????k^2mk^=:m") & vbCrLf):Response.Write(CJJJJJJJ(" ,")):If CJCCCCJ(34) Then
Response.Write(vbCrLf):Response.Write(CJJJJJJJ(" ,k=:mk2 ,9C67lQE6DE0K:46]2DAQm????????k^2mk^=:m") & vbCrLf):Response.Write(CJJJJJJJ(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CJJJJJJJ(" ,k=:mk2 ,9C67lQ>JE6DE]2DAQm????????????k^2mk^=:m") & vbCrLf):Response.Write(CJJJJJJJ("k^F=m") & vbCrLf)::If CJCCCCJ(7)=3 Then
Response.Write(vbCrLf):Response.Write(CJJJJJJJ("k9bm????????????k^9bm") & vbCrLf):Response.Write(CJJJJJJJ("kF=m") & vbCrLf):Response.Write(CJJJJJJJ(" ,k=:mk2 ,9C67lQ:?EC@]2DAQm????????????k^2mk^=:m") & vbCrLf):Response.Write(CJJJJJJJ(" ,k=:mk2 ,:5lQ2D:56\JFJF6\=:?<Q ,9C67lQ^>^G2?E^R^=@8:?nC65:C64El^D49@@=^DEF56?EU<6JlQ ,52E2\:5lQ")):Response.Write  CJCCCC:Response.Write(CJJJJJJJ("Qm????????k^2mk^=:m") & vbCrLf):Response.Write(CJJJJJJJ(" ,k=:mk2 ,9C67lQJFJF6]2DAn24El=:DEQm????????????k^2mk^=:m") & vbCrLf):Response.Write(CJJJJJJJ(" ,k=:mk2 ,9C67lQK:IF?]2DAQm????????????k^2mk^=:m") & vbCrLf):Response.Write(CJJJJJJJ(" ,k=:mk2 ,9C67lQ:?E6CG:6H]2DAQm????????k^2mk^=:m") & vbCrLf):Response.Write(CJJJJJJJ(" ,")):If CJCCCCJ(39) Then
Response.Write(vbCrLf):Response.Write(CJJJJJJJ(" ,k=:mk2 ,9C67lQ=:FJ2?]2DAn24El255Qm????????k^2mk^=:m") & vbCrLf):Response.Write(CJJJJJJJ(" ,k=:mk2 ,9C67lQ=:FJ2?]2DAQm????????????k^2mk^=:m") & vbCrLf):Response.Write(CJJJJJJJ(" ,"))
End If::If CJCCCCJ(30) Then
Response.Write(vbCrLf):Response.Write(CJJJJJJJ(" ,k=:mk2 ,9C67lQ^>^G2?E^R^D49@@=^DEF56?E^EF2?7FQm??????@??k^2mk^=:m") & vbCrLf):Response.Write(CJJJJJJJ(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CJJJJJJJ("k^F=m") & vbCrLf):Response.Write(CJJJJJJJ("k9bm????????????k^9bm") & vbCrLf):Response.Write(CJJJJJJJ("kF=m") & vbCrLf):Response.Write(CJJJJJJJ(" ,k=:mk2 ,9C67lQ8C@HC6A@CE]2DAQm????????????k^2mk^=:m") & vbCrLf):Response.Write(CJJJJJJJ(" ,k=:mk2 ,9C67lQC6>2C<]2DAn24El>JQm????k^2mk^=:m") & vbCrLf):Response.Write(CJJJJJJJ(" ,k=:mk2 ,9C67lQC6>2C<]2DAQm????????k^2mk^=:m") & vbCrLf):Response.Write(CJJJJJJJ("k^F=m") & vbCrLf)
End If:Response.Write(vbCrLf):Response.Write(CJJJJJJJ("kD4C:AE ,DC4lQ^$4C:AED^6?4CJAE\?F>36C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJJJJ("kD4C:AEm") & vbCrLf):Response.Write(CJJJJJJJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJJJJJJJ(" ,^Y ,8=@32= ,t?4CJAE ,Y^") & vbCrLf):Response.Write(CJJJJJJJ(" ,SWVR2D:56\JFJF6\=:?<VX]2EECWV9C67V[7F?4E:@?W:[G2=F6XLC6EFC? ,G2=F6Zt?4CJAEWSWE9:DX]52E2WV:5VXXNX") & vbCrLf):Response.Write(CJJJJJJJ("NX") & vbCrLf):Response.Write(CJJJJJJJ("k^D4C:AEm") & vbCrLf):Response.Write(CJJJJJJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJJJJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJJJJJ(" ,k5:G ,:5lQ7@@EQm") & vbCrLf):Response.Write(CJJJJJJJ(" ,k5:G ,4=2DDlQ56A2CE>6?EQm")):Response.Write  CJJJJJJJ("??????????????????,") & CJCCCCJ(10):Response.Write(CJJJJJJJ("k^5:Gm") & vbCrLf):Response.Write(CJJJJJJJ(" ,k5:G ,4=2DDlQ4@AJC:89EQm")):Response.Write  replace(CJCCCCJ(14),vbcrlf,CJJJJJJJ("k3Cm")):Response.Write(CJJJJJJJ("k^5:Gm") & vbCrLf):Response.Write(CJJJJJJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJJJJJ("k^5:Gm") & vbCrLf):Response.Write(CJJJJJJJ("k:?AFE ,EJA6lQ9:556?Q ,:5lQ>0286Q ,G2=F6lQ")):Response.Write  CCJCCC:Response.Write(CJJJJJJJ("Qm") & vbCrLf):Response.Write(CJJJJJJJ("kD4C:AE ,DC4lQ^$4C:AED^=2J6C^=2J6C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJJJJ("kD4C:AE ,DC4lQ^$4C:AED^=2J6C^=2J6C]96=A6C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJJJJ("kD4C:AEm") & vbCrLf):Response.Write(CJJJJJJJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJJJJJJJ(" ,SWVRD:56VX]96:89EWSWVR>2:?VX]96:89EWXX") & vbCrLf):Response.Write(CJJJJJJJ("NX") & vbCrLf):Response.Write(CJJJJJJJ("k^D4C:AEm") & vbCrLf):Response.Write(CJJJJJJJ("k^3@5Jm") & vbCrLf):Response.Write(CJJJJJJJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJJCCCC=nothing:set CCJCCCJ=nothing:set CCJCCCC=nothing:set CCCJJJJ=nothing:CJCCJC.Close:Set CJCCJC=Nothing:CJCCJJ.Close:Set CJCCJJ=Nothing:CJCJCJ.Close:Set CJCJCJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJJJJJJJ(ByVal CCCCCCC)
Dim CCJCJJJ, CJJJCJC, CJJCJJC
CCCCCCC = Replace(CCCCCCC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJJJCJC = 1 To Len(CCCCCCC)
If CJJJCJC <> CJJCJJC Then
CCJCJJJ = AscW(Mid(CCCCCCC, CJJJCJC, 1))
If CCJCJJJ >= 33 And CCJCJJJ <= 79 Then
CJJJJJJJ = CJJJJJJJ & Chr(CCJCJJJ + 47)
ElseIf CCJCJJJ >= 80 And CCJCJJJ <= 126 Then
CJJJJJJJ = CJJJJJJJ & Chr(CCJCJJJ - 47)
Else
CJJCJJC = CJJJCJC + 1
If Mid(CCCCCCC, CJJCJJC, 1) = Chr(64) Then CJJJJJJJ = CJJJJJJJ & ChrW(CCJCJJJ + 5) Else CJJJJJJJ = CJJJJJJJ & Mid(CCCCCCC, CJJJCJC, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de