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

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCJCJJ, CCJCJC,CCJCCJ, CCJCCC, CCCJJJ:Set CCJCJJ = server.CreateObject(CJJJCJCJ("ps~sq]r@??64E:@?")):CCJCJJ.open Application(CJJJCJCJ("r@??64E:@?$EC:?8")):Set CCJCJC=CCJCJJ::Dim CCCJJC,CCCJCJ,CCCJCC,CCCCJJ,CCCCJC,CCCCCJ,CCCCCC,CJJJJJJ,CJJJJJC:Dim CJJJJCJ,CJJJJCC,CJJJCJJ,CJJJCJC,CJJJCCJ,CJJJCCC:Dim CJJCJJJ,CJJCJJC,CJJCJCJ:Dim CJJCJCC:CJJCJCC=Trim(Request.Cookies(CJJJCJCJ("!$*|t|qt#"))):if CJJCJCC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CCCJJC>0 then
CCCJJJ=CJJJCJCJ("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") & CCCJCJ & CJJJCJCJ("V ,2?5 ,:5l") & CCCJJC
set CCJCCJ=CCJCJJ.execute(CCCJJJ):If CCJCCJ.EOF Then
Call ClearMemberCookie
Else
CCCJCC=CCJCCJ(2) & "":CCCCJJ=CCJCCJ(3):CCCCJC=CCJCCJ(5):CCCCCJ=CCJCCJ(6):CCCCCC=CCJCCJ(9):CJJJJJJ=CCJCCJ(15):CJJJJCJ=CCJCCJ(0):CJJCJJC=CCJCCJ(1):CJJCJJJ=CCJCCJ(11) & "":CJJJJCC=CCJCCJ(10) & "":CJJJJJC=CCJCCJ(12):CJJJCJJ=CCJCCJ(14):CJJJCJC=CCJCCJ(13):CJJJCCJ=CCJCCJ(7) & "":CJJJCCC=CCJCCJ(4):CJJCJCJ=CCJCCJ(8):if isnull(CJJJJJJ) then CJJJJJJ=0
if isnull(CCCCCC) or CCCCCC=0 then CCCCCC=CCCCJJ
if isnull(CJJJCCC) then CJJJCCC=0
if isnull(CCCCJC) then CCCCJC=0
if instr(CJJJCJCJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CCCJCJ)>0 then Call RedirectMessage(CJJJCJCJ("????????,????????????????????????????????,"))
Call SetMemberCookie(CCCJJC,CCCJCJ)
End IF
end if:Sub CheckRight(CJJJCJCC):dim CJJCCJJ,CJJCCJC:if CCCJJC=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJJJCJCJ("??????????????,????????????,"))
elseIf not CCCJCCJ(CJJJCJCC) then
Call RedirectMessage(CJJJCJCJ("????W") & CJJJCJCC & CJJJCJCJ("X????????,????????????????????,"))
end if:End Sub:Function CCCJCCJ(CJJJCJCC):dim CJJCCJJ,CJJCCJC:CJJCCJC=split(CJJJCJCC,CJJJCJCJ("[")):CCCJCCJ=False:for CJJCCJJ=0 to ubound(CJJCCJC):If Mid(CCCJCC,CJJCCJC(CJJCCJJ),1)="1" then
CCCJCCJ=True:exit function
end if:next:End Function:Sub CheckLogined():if CCCJJC=0 then
Call ClearMemberCookie:Call ConnClose:dim CJJCCCJ:CJJCCCJ=trim(request.QueryString(CJJJCJCJ("D49@@="))):if isnumeric(CJJCCCJ) then
response.Redirect CJJJCJCJ("^>^G2?E^R^D49@@=^") & CJJCCCJ & CJJJCJCJ("^DEF56?E^=@8:?nC65:C64El") & url
else
Call RedirectMessage(CJJJCJCJ("??????????????,????????????,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CJJJCJCJ("!$*|t|qt#"))="":CCCJJC=0:CCCCCJ=0:CCCJCJ=Empty:CCCCJC=0:CJJJJJJ=0:CCCCCC=0:CCCCJJ=0:CJJJJCJ=False:CJJCJJC=False:CJJCJCJ=Empty:End Sub:Sub CheckMemberCookie():dim CJJCCCC,CJCJJJJ,CJJCCJJ,CJCJJJC,CJCJJCJ:CJJCCCC=split(CJJCJCC,CJJJCJCJ("]")):if ubound(CJJCCCC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJJCCCC(0)) or len(CJJCCCC(1))<>32 or len(CJJCCCC(2))<>32 then
Call ClearMemberCookie
else
CJCJJJJ=CJJCCCC(1):for CJJCCJJ=1 to len(CJCJJJJ):CJCJJJC=mid(CJCJJJJ,CJJCCJJ,1):if isnumeric(CJCJJJC) then CJCJJCJ=CJCJJCJ & CJCJJJC
if len(CJCJJCJ)=7 then exit for
next:CJCJJJJ=CJJCCCC(2):if CJCJJCJ<>mid(CJCJJJJ,6,7) then
Call ClearMemberCookie
else
CJCJJJC=mid(CJCJJJJ,18,10)/2:if CJCJJJC<DateDiff(CJJJCJCJ("D"), CJJJCJCJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CCCJJC=Clng(CJJCCCC(0)):CCCJCJ=CJJCCCC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJJJJCCJ,CJJJCCJJ):dim CJJCCJJ,CJCJJJC,CJCJJCJ:for CJJCCJJ=1 to len(CJJJCCJJ):CJCJJJC=mid(CJJJCCJJ,CJJCCJJ,1):if isnumeric(CJCJJJC) then CJCJJCJ=CJCJJCJ & CJCJJJC
if len(CJCJJCJ)=7 then exit for
next:CJCJJCJ=CJJJJCCJ & CJJJCJCJ("]") & CJJJCCJJ & CJJJCJCJ("]") & Fix(10000*(Rnd+1)) & CJCJJCJ & Fix(10000*(Rnd+1)) & DateDiff(CJJJCJCJ("D"), CJJJCJCJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJJJCJCJ("!$*|t|qt#"))=CJCJJCJ:End Sub:::Function IIf(CJJJCCJC, CJJJCCCJ, CJJJCCCC):if isnull(CJJJCCJC) or isempty(CJJJCCJC) then
IIf = CJJJCCCC
elseif CJJJCCJC Then
IIf = CJJJCCCJ
Else
IIf = CJJJCCCC
end if:End Function:Const CCCJCJC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::Sub Debug(str):response.Charset=CJJJCJCJ("FE7\g"):dim CJJCCJJ,CJCJJJC,CJCJJCC:if isarray(str) then
on error resume next:CJJCCJJ=ubound(str,2):CJCJJCC=err.number:err.clear:on error goto 0:if CJCJJCC<>0 then
for CJJCCJJ=0 to ubound(str):if CJJCCJJ>0 then response.Write CJJJCJCJ("k3C ,^m")
response.Write CJJCCJJ & CJJJCJCJ("i ,") & str(CJJCCJJ):next
else
response.Write CJJJCJCJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CJJCCJJ=0 to ubound(str,2):response.Write CJJJCJCJ("kE9 ,2=:8?lV=67EVm") & CJJCCJJ & CJJJCJCJ("k^E9m")
next:response.Write CJJJCJCJ("k^ECm"):for CJJCCJJ=0 to ubound(str):response.Write CJJJCJCJ("kECmkE9m") & CJJCCJJ & CJJJCJCJ("k^E9m"):for CJCJJJC=0 to ubound(str,2):response.Write CJJJCJCJ("kE5m") & str(CJJCCJJ,CJCJJJC) & CJJJCJCJ("k^E5m"):next:response.Write CJJJCJCJ("k^ECm"):next:response.Write CJJJCJCJ("k^E23=6m")
end if
elseif isnull(str) then
response.Write CJJJCJCJ(",}F==.")
else
Response.Write replace(str,vbcrlf,CJJJCJCJ("k3Cm"))
end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CJJCJJJJ,CJJCJJJC):dim CJJCCCC:CJJCCCC=CJJCJJJJ & CJJJCJCJ("l") & CJJCJJJC & CJJJCJCJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJJCJCJ("$6E\r@@<:6"),CJJCCCC):End Sub::::::sub ShowMessage(CCCCJCJ):response.Charset=CJJJCJCJ("FE7\g"):Response.Write CJJJCJCJ("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") & CCCCJCJ & CJJJCJCJ("k^5:Gmk^5:Gmk3Cm")
end sub:Function CCCCJJJ(CJCJJCC):if isnull(CJCJJCC) or trim(CJCJJCC)="" or not isnumeric(CJCJJCC) then
CCCCJJJ=false
else
Dim CJCJCJJ:Set CJCJCJJ = New RegExp:CJCJCJJ.Pattern = CJJJCJCJ("/-5ZS"):CJCJCJJ.IgnoreCase = True:CCCCJJJ = CJCJCJJ.test(CJCJJCC):set CJCJCJJ=nothing
end if:End Function:Function CCCCJJC(CJJCJJCJ):dim CJCJCJC,CJCJCCJ:CJCJCJC=CJJJCJCJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJJCJJCJ & CJJJCJCJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJCJCCJ=CCJCJJ.execute(CJCJCJC):CCCCJJC = CJCJCCJ(0):if isnull(CCCCJJC) then CCCCJJC=1
CJCJCCJ.close : set CJCJCCJ=nothing:End Function::sub Alert(ByVal CCCCJCJ):Call ConnClose:CCCCJCJ=replace(CCCCJCJ,vbcrlf,CJJJCJCJ("-?")):CCCCJCJ=replace(CCCCJCJ,CJJJCJCJ("V"),CJJJCJCJ("-V"))
response.Charset=CJJJCJCJ("FE7\g"):response.write CJJJCJCJ("kD4C:AEm2=6CEWV") & CCCCJCJ & CJJJCJCJ("VXj9:DE@CJ]324<WXk^D4C:AEm")
response.end:end sub::Sub ConnClose():On Error Resume Next:set CJCCCCJ=nothing:set CCCCJCC=nothing:set CCCCCJJ=nothing:set CCCCCJC=nothing:CJCJCCJ.close : set CJCJCCJ=nothing:CCJCCC.Close : Set CCJCCC=Nothing:CCJCCJ.Close : Set CCJCCJ=Nothing:CCCCCCJ.Close : Set CCCCCCJ = Nothing:CCJCJJ.Close : Set CCJCJJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCCCJCJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJJCJCJ("!$*0|6DD286"),server.URLEncode(CCCCJCJ)):Response.Redirect CJJJCJCJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub::Sub StringDown(CJJCJJCC, str):Call ConnClose:Response.Charset="utf-8":Response.Buffer = True:Response.Clear:if right(CJJCJJCC,4)=CJJJCJCJ("]4DG") then Response.BinaryWrite ChrB(&HEF) & ChrB(&HBB) & ChrB(&HBF)
Response.AddHeader CJJJCJCJ("r@?E6?E\s:DA@D:E:@?"), CJJJCJCJ("2EE249>6?Ej ,7:=6?2>6l") & CJJCJJCC:Response.ContentType = CJJJCJCJ("2AA=:42E:@?^@4E6E\DEC62>"):Response.Write str:Response.End:End Sub:::::::::::::::Function CCCCCCC(ByVal CJJJJJJJ,style):if not isdate(CJJJJJJJ) then
CCCCCCC=CJJJJJJJ:exit function
end if:dim CJCJCCC,CJCCJJJ,CJCCJJC,CJCCJCJ:CJJJJJJJ=cdate(CJJJJJJJ):CJCJCCC=Year(CJJJJJJJ):CJCCJJJ=Month(CJJJJJJJ):CJCCJJC=Day(CJJJJJJJ):select case style:case 0:CCCCCCC=CJCJCCC & CJJJCJCJ("\") & right(0 & CJCCJJJ,2) & CJJJCJCJ("\") & right(0 & CJCCJJC,2):case 1:CCCCCCC=CJCJCCC & right(0 & CJCCJJJ,2) & right(0 & CJCCJJC,2):case 2:CCCCCCC=right(CJCJCCC,2) & CJJJCJCJ("\") & right(0 & CJCCJJJ,2) & CJJJCJCJ("\") & right(0 & CJCCJJC,2):case 3:CCCCCCC=CJCJCCC & CJJJCJCJ("\") & right(0 & CJCCJJJ,2):case 4:CCCCCCC=right(0 & CJCCJJJ,2) & CJJJCJCJ("\") & right(0 & CJCCJJC,2):case 5:CCCCCCC=right(0 & CJCCJJC,2):case 6:CCCCCCC=CJCJCCC & CJJJCJCJ("??") & right(0 & CJCCJJJ,2) & CJJJCJCJ("??") & right(0 & CJCCJJC,2) & CJJJCJCJ("??"):case else
CCCCCCC=CJJJJJJJ:end select:End Function::::::::::::::::::Function CJJJJJJC(CJJCJCJJ,str):dim CJJCCJJ,CJCCJCC,CJCCCJJ,CJCCJJJ,CJCJJCC,CJCCCJC,CJCJJCJ:CJCJJCJ=ucase(CJJCJCJJ):CJCCCJC=str:if CJCCCJC="" then
CJCCCJC=request.cookies(CJCJJCJ):if CJCCCJC="" then
CJJJJJJC=""
else
CJCCCJC=strreverse(CJCCCJC):CJCCJCC=len(CJCCCJC):for CJJCCJJ=1 to CJCCJCC-1 step 2:CJCCJJJ=mid(CJCCCJC,CJJCCJJ,1):CJCJJCC=mid(CJCCCJC,CJJCCJJ+1,1):CJCCCJJ=CJCCCJJ & CJCJJCC & CJCCJJJ:next:CJCCCJJ=replace(CJCCCJJ,CJJJCJCJ("L0N"),CJJJCJCJ(" ,")):CJCCCJJ=replace(CJCCCJJ,CJJJCJCJ("LIN"),CJJJCJCJ("Y")):CJCCCJJ=replace(CJCCCJJ,CJJJCJCJ("L:N"),CJJJCJCJ("^")):CJJJJJJC=trim(CJCCCJJ)
end if
else
if Len(CJCCCJC) Mod 2=1 then CJCCCJC=CJCCCJC & CJJJCJCJ(" ,")
CJCCCJC=replace(CJCCCJC,CJJJCJCJ(" ,"),CJJJCJCJ("L0N")):CJCCCJC=replace(CJCCCJC,CJJJCJCJ("Y"),CJJJCJCJ("LIN")):CJCCCJC=replace(CJCCCJC,CJJJCJCJ("^"),CJJJCJCJ("L:N")):CJCCJCC=len(CJCCCJC):for CJJCCJJ=1 to CJCCJCC-1 step 2:CJCCJJJ=mid(CJCCCJC,CJJCCJJ,1):CJCJJCC=mid(CJCCCJC,CJJCCJJ+1,1):CJCCCJJ=CJCCCJJ & CJCJJCC & CJCCJJJ:next:CJCCCJJ=Trim(strreverse(CJCCCJJ)):CJJJJJJC=CJCCCJJ:response.cookies(CJCJJCJ)=CJCCCJJ
end if:End Function::Sub ClearCache(CJJCJCJC):Application.Contents.Remove CJJCJCJC
End Sub::Class jTree:Private CCCJJJ, CJCCCCJ, CJCCCCC, CCJJJJJ,CCJJJJC,CCJJJCJ,CCJJJCC,CCJJCJJ:Private Sub Class_Initialize():CJCCCCC = 0:CCJJJJJ = 0:CCJJCJJ=10:End Sub:Public Property Let Table(CJJCJCCJ):if CJJCJCCJ="" then Call RedirectMessage(CJJJCJCJ("????????,;%C66????????????????????@??????????,"))
CCJJJJC=CJJCJCCJ:CCJJJCJ=CJJJCJCJ("!$*0") & UCase(CCJJJJC):Call GetTreeArray:End Property:Public Property Get Table():Table=CCJJJJC:End Property:::Private Sub GetTreeArray():Dim CJJCCJJ, CJCJJJC, CCJJCJC,CCJJCCJ:CJCCCCJ = Application(CCJJJCJ):If Not IsArray(CJCCCCJ) Then
CCCJJJ = CJJJCJCJ("D6=64E ,4@F?EW:5X ,7C@> ,") & CCJJJJC:if CCJJJCC<>"" then CCCJJJ=CCCJJJ & CJJJCJCJ(" ,H96C6 ,") & CCJJJCC
set CCJJCJC=CCJCJJ.execute(CCCJJJ):CCJJCCJ=CCJJCJC(0):if CCJJCCJ=0 then Call RedirectMessage(CJJJCJCJ("????W") & CCJJJJC & CJJJCJCJ("^") & CCJJJCC & CJJJCJCJ("X????????????"))
CCJJJJJ=CCJJCCJ+CCJJCJJ:ReDim CJCCCCJ(CCJJJJJ, 4):CCCJJJ = CJJJCJCJ("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJJJJC & CJJJCJCJ(" ,H:E9 ,W?@=@4<X"):if CCJJJCC<>"" then CCCJJJ=CCCJJJ & CJJJCJCJ(" ,H96C6 ,") & CCJJJCC
CCCJJJ=CCCJJJ & CJJJCJCJ(" ,@C56C ,3J ,D@CE[:5"):set CCJJCJC=CCJCJJ.execute(CCCJJJ):For CJJCCJJ = 1 To CCJJCCJ:For CJCJJJC = 0 To 4:CJCCCCJ(CJJCCJJ, CJCJJJC) = CCJJCJC(CJCJJJC):if IsNull(CJCCCCJ(CJJCCJJ,4)) then CJCCCCJ(CJJCCJJ,4)=0
If CJCCCCJ(CJJCCJJ,2)="" then CJCCCCJ(CJJCCJJ,2)=CJJJCJCJ(",??.")
Next:CCJJCJC.MoveNext:Next:CCJJCJC.Close: Set CCJJCJC = Nothing:for CJJCCJJ=CCJJJJJ-(CCJJCJJ-1) to CCJJJJJ:CJCCCCJ(CJJCCJJ,0)=CJJCCJJ:next:Application.Lock():Application(CCJJJCJ) = CJCCCCJ:Application.UnLock()
else
CCJJJJJ=Ubound(CJCCCCJ)
End If:End Sub:::::Private Function CJJJJJCC(CJJJJCCJ):dim CJJCCJJ,CCJJCCC:CJJJJJCC=0:CCJJCCC=CStr(CJJJJCCJ):if CCJJCCC<>"0" then
for CJJCCJJ=1 to CCJJJJJ:If CStr(CJCCCCJ(CJJCCJJ, 0))=CCJJCCC Then
CJJJJJCC = CJJCCJJ:Exit For
End If:Next
end if:End Function::::Public Function CJJJJCJJ(CJJJJCCJ):Dim CJJCCJJ,CCJCJJJ:CJJCCJJ=CJJJJJCC(CJJJJCCJ):if CJJCCJJ=0 then
CCJCJJJ=CJJJJCJC(CJJJJCCJ)
else
CCJCJJJ=CJCCCCJ(CJJCCJJ,3):if isnull(CCJCJJJ) or CCJCJJJ="" then
CCJCJJJ=CJJJJCJC(CJJJJCCJ)
elseif Mid(CCJCJJJ,instrrev(CCJCJJJ,CJJJCJCJ("["))+1)<>CStr(CJJJJCCJ) then
CCJCJJJ=CJJJJCJC(CJJJJCCJ)
elseif Left(CCJCJJJ,1)=CJJJCJCJ("[") then
CCJCJJJ=CJJJJCJC(CJJJJCCJ)
end if
end if:CJJJJCJJ=CCJCJJJ:End Function:Private Function CJJJJCJC(CJJJJCCJ):dim CCJJCCC:CCJJCCC=CStr(CJJJJCCJ):if CCJJCCC="0" then
CJJJJCJC=""
else
dim CCJJCJC:set CCJJCJC=CCJCJJ.execute(CJJJCJCJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJJJJC & CJJJCJCJ(" ,H96C6 ,:5l") & CJJJJCCJ):if CCJJCJC.eof then
Call UpdateCache(CJJJJCCJ,"","","",""):Call RedirectMessage(CJJJCJCJ("??????,xs??,") & CJJJJCCJ & CJJJCJCJ("??,????????,????????????????????,"))
else
if CCJJCJC(0)=0 then
CJJJJCJC="0," & CJJJJCCJ
else
CJJJJCJC=CJJJJCJJ(CCJJCJC(0)) & CJJJCJCJ("[") & CJJJJCCJ
end if:if CCJJCJC(2)<>CJJJJCJC then
CCJCJJ.execute CJJJCJCJ("FA52E6 ,") & CCJJJJC & CJJJCJCJ(" ,D6E ,A2E9lV") & CJJJJCJC & CJJJCJCJ("V ,H96C6 ,:5l") & CJJJJCCJ
else
CJJJJCJC=CCJJCJC(2)
end if
end if:Call UpdateCache(CJJJJCCJ,CCJJCJC(0),CCJJCJC(1),CJJJJCJC,CCJJCJC(3)):CCJJCJC.Close: Set CCJJCJC = Nothing
end if:End Function::::::::::::::::::::::Public Sub ClearCache():Application.Contents.Remove CCJJJCJ
End Sub:Public Sub UpdateCache(CJJJJCCJ,CJJCJCCC,CJJCCJJJ,CCJCJJJ,CJJCCJJC):dim CJJCCJJ,CJCJJJC:CJJJJCCJ=CLng(CJJJJCCJ):CJJCCJJ=CJJJJJCC(CJJJJCCJ):if CJJCJCCC="" and CJJCCJJJ="" and CCJCJJJ="" and CJJCCJJC="" then
if CJJCCJJ>0 then
for CJCJJJC=1 to 4:CJCCCCJ(CJJCCJJ,CJCJJJC)=Null:next
end if
else
if CJJCCJJ=0 then
for CJCJJJC=1 to CCJJJJJ:if CJCCCCJ(CJCJJJC,1) & ""="" then
CJJCCJJ=CJCJJJC:exit for
end if:next
end if:if CJJCCJJ=0 then
Call ClearCache
else
CJCCCCJ(CJJCCJJ,0)=CLng(CJJJJCCJ):if CJJCJCCC<>"" then CJCCCCJ(CJJCCJJ,1)=CLng(CJJCJCCC)
if CJJCCJJJ<>"" then CJCCCCJ(CJJCCJJ,2)=CJJCCJJJ
if CCJCJJJ<>"" then CJCCCCJ(CJJCCJJ,3)=CCJCJJJ
if CJJCCJJC<>"" then CJCCCCJ(CJJCCJJ,4)=CLng(CJJCCJJC)
end if
end if:if CJJCCJJ>0 then
Application.Lock():Application(CCJJJCJ) = CJCCCCJ:Application.UnLock()
end if:End Sub:Private Sub Debug(CCCCJCJ):Call ConnClose:Response.Write CCCCJCJ:Response.End:End Sub:Private Function CCCCJJC():CCCCJJC=CJJJJCCC+1:End Function:Private Function CJJJJCCC():dim CJCJCCJ:set CJCJCCJ=CCJCJJ.execute(CJJJCJCJ("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CCJJJJC & CJJJCJCJ(" ,@C56C ,3J ,:5 ,56D4")):CJJJJCCC=CJCJCCJ(0):CJCJCCJ.Close: Set CJCJCCJ = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::dim CJJCCCJ:CCCJJJ=Request.ServerVariables(CJJJCJCJ("!p%w0x}u~")):if instr(CCCJJJ,CJJJCJCJ("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CJJJJCJ and not CJJCJJC then Call RedirectMessage(CJJJCJCJ("????????,????????????????????????,"))
CJJCCCJ=CCCCCC
elseif instr(CCCJJJ,CJJJCJCJ("^>^D49@@=^DEF56?E^"))>0 or instr(CCCJJJ,CJJJCJCJ("^DEF56?E^"))>0 then
Call CheckLogined:CJJCCCJ=CCCCCC
elseif instr(CCCJJJ,CJJJCJCJ("^D49@@="))>0 then
CJJCCCJ=Request.QueryString(CJJJCJCJ("D49@@=")):if not CCCCJJJ(CJJCCCJ) then CJJCCCJ=Request.QueryString(CJJJCJCJ("F"))
if not CCCCJJJ(CJJCCCJ) then CJJCCCJ=Request.QueryString(CJJJCJCJ("D4"))
if not CCCCJJJ(CJJCCCJ) then Call RedirectMessage(CJJJCJCJ("????????W$49@@=X??@??????????,"))
CJJCCCJ=csng(CJJCCCJ)
end if:if CJJCCCJ=0 then Call RedirectMessage(CJJJCJCJ("????????W$49@@=X????W_X??,"))
Dim CCJCJJC:Call SetConfig:Sub SetConfig():dim CJJCCJC,CJCJCCJ:CCCJJJ=CJJJCJCJ("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") & CJJCCCJ:set CJCJCCJ=CCJCJJ.execute(CCCJJJ):if CJCJCCJ.eof then Call RedirectMessage(CJJJCJCJ("??W") & CCCJJC & CJJJCJCJ("X??????????W") & CJJCCCJ & CJJJCJCJ("X????????,"))
ReDim CJJCCJC(61):CJJCCJC(0)=CJCJCCJ(CJJJCJCJ(";:2@H6:")) & "":CJJCCJC(1)=CJCJCCJ(CJJJCJCJ("EJA6")):CJJCCJC(2)=CJCJCCJ(CJJJCJCJ("D>D")):CJJCCJC(3)=CJCJCCJ(CJJJCJCJ("4FDE@>8C@FA")) & "":CJJCCJC(4)=CJCJCCJ(CJJJCJCJ("D:5632C0@E96C")) & "":CJJCCJC(5)=IIf(isnull(CJCJCCJ(CJJJCJCJ("E6DEC6DF=EG:6H"))),0,CJCJCCJ(CJJJCJCJ("E6DEC6DF=EG:6H"))):CJJCCJC(6)=CJCJCCJ(CJJJCJCJ("K:IF?E:>6")):CJJCCJC(7)=CJCJCCJ(CJJJCJCJ("766")):CJJCCJC(8)=CJCJCCJ(CJJJCJCJ("C6E6DE52J")):CJJCCJC(9)=CJCJCCJ(CJJJCJCJ("6IA:C652E6")):CJJCCJC(10)=CJCJCCJ(CJJJCJCJ("E:E=6")):CJJCCJC(11)=CJCJCCJ(CJJJCJCJ(":?EC@")) & "":CJJCCJC(12)=CJCJCCJ(CJJJCJCJ("A:4EFC6")) & "":CJJCCJC(13)=CJCJCCJ(CJJJCJCJ("72>:=J")):CJJCCJC(14)=CJCJCCJ(CJJJCJCJ("4@AJC:89E")) & "":CJJCCJC(15)=IIf(isnull(CJCJCCJ(CJJJCJCJ("D6>6DE6C0DE2CE052E6"))),CJJJCJCJ("`h__\`\`"),CJCJCCJ(CJJJCJCJ("D6>6DE6C0DE2CE052E6"))):CJJCCJC(16)=IIf(isnull(CJCJCCJ(CJJJCJCJ("K:IF?0E:>6D09:89=:89E"))),0,CJCJCCJ(CJJJCJCJ("K:IF?0E:>6D09:89=:89E"))):CJJCCJC(17)=CJCJCCJ(CJJJCJCJ("4@?E24E")) & "":CJJCCJC(18)=CJCJCCJ(CJJJCJCJ("D2?5E23=6")):CJJCCJC(19)=CJCJCCJ(CJJJCJCJ("4C:D:D")):CJJCCJC(20)=CJCJCCJ(CJJJCJCJ("JJ52E6")):CJJCCJC(21)=CJCJCCJ(CJJJCJCJ("BB")):CJJCCJC(22)=CJCJCCJ(CJJJCJCJ("JFJF60D>D0EA=")) & "":CJJCCJC(23)=CJCJCCJ(CJJJCJCJ("JFJF60E6DE0=3")) & "":CJJCCJC(25)=CJCJCCJ(CJJJCJCJ("6IA6CE")):CJJCCJC(26)=CJCJCCJ(CJJJCJCJ(">@5:?7@")):CJJCCJC(27)=CJCJCCJ(CJJJCJCJ("9@>6A286E@AA:4EFC6")) & "":CJJCCJC(28)=CJCJCCJ(CJJJCJCJ("4C:D:D=3")):CJJCCJC(29)=IIf(CJCJCCJ(CJJJCJCJ("4C:D:D@=5")),False,True):CJJCCJC(30)=CJCJCCJ(CJJJCJCJ("8C@FA8F:52?46")):CJJCCJC(31)=CJCJCCJ(CJJJCJCJ("3:@7665324<")):CJJCCJC(32)=CJCJCCJ(CJJJCJCJ("<6JDEC")):CJJCCJC(33)=CJCJCCJ(CJJJCJCJ("=@8@")) & "":CJJCCJC(34)=CJCJCCJ(CJJJCJCJ("K:46")):CJJCCJC(35)=IIf(CJCJCCJ(CJJJCJCJ(":D?6H")),True,False):CJJCCJC(36)=121:CJJCCJC(37)=111:CJJCCJC(38)=160:CJJCCJC(39)=CJCJCCJ(CJJJCJCJ("8F6DE3@@<")):CJJCCJC(40)=CJCJCCJ(CJJJCJCJ("75D")):CJJCCJC(42)=CJCJCCJ(CJJJCJCJ("9@>6=@8:?")):CJJCCJC(43)=CJCJCCJ(CJJJCJCJ("K:IF?0?6657665324<")):CJJCCJC(44)=CJCJCCJ(CJJJCJCJ("K:IF?0E:>6D0=:>:E")):CJJCCJC(45)=CJCJCCJ(CJJJCJCJ("4@>A=6E60:?7@")):CJJCCJC(46)=CJCJCCJ(CJJJCJCJ("E6DE:?EC@")) & "":CJJCCJC(47)=IIf(isnull(CJCJCCJ(CJJJCJCJ("JFJF60367@C60E:>6"))),0,CJCJCCJ(CJJJCJCJ("JFJF60367@C60E:>6"))):CJJCCJC(49)=CJCJCCJ(CJJJCJCJ("D>D0C646:G6C")):CJJCCJC(50)=CJCJCCJ(CJJJCJCJ("D>D0D:8?")) & "":CJJCCJC(52)=CJCJCCJ(CJJJCJCJ("JFJF602CC2?86")):CJJCCJC(53)=IIf(isnull(CJCJCCJ(CJJJCJCJ("DEF56?E0BF6DE:@?04@F?E"))),0,CJCJCCJ(CJJJCJCJ("DEF56?E0BF6DE:@?04@F?E"))):CJJCCJC(54)=CJCJCCJ(CJJJCJCJ("9:560=30@FE@7286")):CJJCCJC(55)=CJCJCCJ(CJJJCJCJ("JFJF60E6DE052JD")):CJJCCJC(56)=CJCJCCJ(CJJJCJCJ("JFJF60H66<0=:>:E")):CJJCCJC(57)=CJCJCCJ(CJJJCJCJ("JFJF604964<65")):CJJCCJC(58)=CJCJCCJ(CJJJCJCJ("K:IF?0?6657665324<0?6IE")):CJJCCJC(59)=CJCJCCJ(CJJJCJCJ("4964<?6HDEF56?E")):CJJCCJC(60)=CJCJCCJ(CJJJCJCJ("K:IF?04=@D6052E6")):CJCJCCJ.close : set CJCJCCJ=nothing:if isNull(CJJCCJC(8)) or CJJCCJC(8)="" then CJJCCJC(8)=0
if isdate(CJJCCJC(9)) then
CJJCCJC(9)=cdate(CJJCCJC(9)):if CJJCCJC(9)<Date then Call RedirectMessage(CJJJCJCJ("????????,????????????????W") & CJJCCJC(9) & CJJJCJCJ("X??????,"))
end if:if not CCCCJJJ(CJJCCJC(20)) then CJJCCJC(20)=7
select case CJJCCJC(1):case 1,2,16:CJJCCJC(36)=159:case 4,5,6,10,11:CJJCCJC(36)=190:CJJCCJC(37)=178:CJJCCJC(38)=191:case 7,13:CJJCCJC(36)=164:CJJCCJC(37)=178:CJJCCJC(38)=179:end select:CCJCJJC=CJJCCJC:End Sub:Function CCCCCJC(CJJCJCJJ):dim CJJCCJC(7,1),CJJCCJJ,CCJCJCJ,CCJCJCC:CCJCJCJ=Array(CJJJCJCJ("$49@@="),CJJJCJCJ("$EF56?E"),CJJJCJCJ("s6AE"),CJJJCJCJ("vC256"),CJJJCJCJ("r=2DD>2E6"),CJJJCJCJ("}F>36C"),CJJJCJCJ("%62496C"),CJJJCJCJ("!2C6?E")):select case CCJCJJC(1):case 1,2 : CCJCJCC=Array(CJJJCJCJ("????"),CJJJCJCJ("????"),CJJJCJCJ("????"),CJJJCJCJ("????"),CJJJCJCJ("????"),CJJJCJCJ("????"),CJJJCJCJ("????"),CJJJCJCJ("????")):case 3,16 : CCJCJCC=Array(CJJJCJCJ("????"),CJJJCJCJ("????"),CJJJCJCJ("????"),CJJJCJCJ("????"),CJJJCJCJ("????"),CJJJCJCJ("????"),CJJJCJCJ("????"),CJJJCJCJ("????")):case 4 : CCJCJCC=Array(CJJJCJCJ("????"),CJJJCJCJ("??????@"),CJJJCJCJ("????"),CJJJCJCJ("????"),CJJJCJCJ("????"),CJJJCJCJ("????"),CJJJCJCJ("????"),CJJJCJCJ("????")):case 5 : CCJCJCC=Array(CJJJCJCJ("????"),CJJJCJCJ("????"),CJJJCJCJ("????"),CJJJCJCJ("????"),CJJJCJCJ("????"),CJJJCJCJ("????"),CJJJCJCJ("????"),CJJJCJCJ("????")):case 6 : CCJCJCC=Array(CJJJCJCJ("????"),CJJJCJCJ("??????@"),CJJJCJCJ("????"),CJJJCJCJ("????"),CJJJCJCJ("????"),CJJJCJCJ("????"),CJJJCJCJ("??????"),CJJJCJCJ("????")):case 7 : CCJCJCC=Array(CJJJCJCJ("????"),CJJJCJCJ("????"),CJJJCJCJ("????"),CJJJCJCJ("????"),CJJJCJCJ("????"),CJJJCJCJ("????"),CJJJCJCJ("??????"),CJJJCJCJ("????")):case 8 : CCJCJCC=Array(CJJJCJCJ("????"),CJJJCJCJ("??????@"),CJJJCJCJ("????"),CJJJCJCJ("????????"),CJJJCJCJ("????"),CJJJCJCJ("????"),CJJJCJCJ("??????"),CJJJCJCJ("????")):case 9 : CCJCJCC=Array(CJJJCJCJ("????"),CJJJCJCJ("????"),CJJJCJCJ("????"),CJJJCJCJ("????"),CJJJCJCJ("????"),CJJJCJCJ("????"),CJJJCJCJ("??????"),CJJJCJCJ("????")):case 10 : CCJCJCC=Array(CJJJCJCJ("????"),CJJJCJCJ("????"),CJJJCJCJ("????"),CJJJCJCJ("????????"),CJJJCJCJ("????"),CJJJCJCJ("????"),CJJJCJCJ("??????"),CJJJCJCJ("????")):case 11 : CCJCJCC=Array(CJJJCJCJ("????"),CJJJCJCJ("??????"),CJJJCJCJ("????"),CJJJCJCJ("????"),CJJJCJCJ("????"),CJJJCJCJ("????"),CJJJCJCJ("??????"),CJJJCJCJ("????")):case 12 : CCJCJCC=Array(CJJJCJCJ("????"),CJJJCJCJ("????"),CJJJCJCJ("????"),CJJJCJCJ("????????"),CJJJCJCJ("????"),CJJJCJCJ("????"),CJJJCJCJ("??????"),CJJJCJCJ("????")):case 13 : CCJCJCC=Array(CJJJCJCJ("????"),CJJJCJCJ("????"),CJJJCJCJ("????"),CJJJCJCJ("????"),CJJJCJCJ("????"),CJJJCJCJ("????"),CJJJCJCJ("????"),CJJJCJCJ("????")):case 14 : CCJCJCC=Array(CJJJCJCJ("??????"),CJJJCJCJ("??@??"),CJJJCJCJ("????"),CJJJCJCJ("????"),CJJJCJCJ("????"),CJJJCJCJ("????"),CJJJCJCJ("??????"),CJJJCJCJ("????")):case 15 : CCJCJCC=Array(CJJJCJCJ("????"),CJJJCJCJ("????????"),CJJJCJCJ("????"),CJJJCJCJ("????????"),CJJJCJCJ("????"),CJJJCJCJ("????"),CJJJCJCJ("??????"),CJJJCJCJ("????")):case else : CCJCJCC=CCJCJCJ
end select:for CJJCCJJ=0 to Ubound(CJJCCJC):CJJCCJC(CJJCCJJ,0)=CCJCJCJ(CJJCCJJ):CJJCCJC(CJJCCJJ,1)=CCJCJCC(CJJCCJJ):next:for CJJCCJJ=0 to Ubound(CJJCCJC):if CJJCCJC(CJJCCJJ,0)=CJJCJCJJ then
CCCCCJC=CJJCCJC(CJJCCJJ,1):exit for
end if:next:End Function::Server.ScriptTimeout = 180:Call CheckRight(69):dim CCJCCJJ:CCJCCJJ=Request.QueryString(CJJJCJCJ("24E")):CCCJJJ="":if CCJCCJJ=CJJJCJCJ("4964<65") then
dim CCJCCJC:CCJCCJC=Trim(Request.Form(CJJJCJCJ(":5=:DE"))):CCJCCJC=replace(CCJCCJC,CJJJCJCJ(" ,"),""):if CCJCCJC<>"" then CCCJJJ=CJJJCJCJ("D6=64E ,?F>36C[C62=?2>6[D6I?2>6[3:CE952J[EJA6[8C256[4FDE@>8C@FA[>@3:=6[6>2:=[=2DEE:>6[=@8E:>6D[2?DH6C[EJA6?2>6[255C6DD ,7C@> ,G0>6>36C ,H:E9 ,W?@=@4<X ,H96C6 ,:5 ,:? ,W") & CCJCCJC & CJJJCJCJ("X ,@C56C ,3J ,:5")
elseif CCJCCJJ=CJJJCJCJ("2==") then
dim CCJCCCJ:CCJCCCJ=CJJJJJJC(CJJJCJCJ("$""{"),""):if CCJCCCJ<>"" then CCCJJJ=CJJJCJCJ("D6=64E ,?F>36C[C62=?2>6[D6I?2>6[3:CE952J[EJA6[8C256[4FDE@>8C@FA[>@3:=6[6>2:=[=2DEE:>6[=@8E:>6D[2?DH6C[EJA6?2>6[255C6DD ,7C@> ,G0>6>36C ,H:E9 ,W?@=@4<X ,") & CCJCCCJ
end if:if CCCJJJ="" then
Call Alert(CJJJCJCJ("????????,??????????????????????@??????????,"))
else
set CCJCCJ=CCJCJC.execute(CCCJJJ):if CCJCCJ.eof then
Call ShowMessage(CJJJCJCJ("????????,??????????????????,"))
else
dim CJCCCJC,str,CJJCCJJ,CCCJJJJ(),CCCJJJC(),CCCJJCJ,CCCJJCC:CJCCCJC = CJJJCJCJ("["):dim CJCCCCJ:set CJCCCCJ=new jtree:CJCCCCJ.table=CJJJCJCJ(">6>36C0EJA6"):set CCJCCC=CCJCJJ.execute(CJJJCJCJ("D6=64E ,:5[BF6DE ,7C@> ,>6>36C0BF6DE:@? ,H96C6 ,D49@@=l") & IIf(CCJCJJC(53)=0,0,CJJCCCJ) & CJJJCJCJ(" ,@C56C ,3J ,D@CE")):while not CCJCCC.eof:redim preserve CCCJJJJ(CCCJJCJ):redim preserve CCCJJJC(CCCJJCJ):CCCJJJJ(CCCJJCJ)=CCJCCC(0):CCCJJJC(CCCJJCJ)=CCJCCC(1):CCJCCC.movenext:CCCJJCJ=CCCJJCJ+1:wend:str=CCCCCJC(CJJJCJCJ("}F>36C")) & CJJJCJCJ("[????[????[????????[") & CCCCCJC(CJJJCJCJ("s6AE")) & CJJJCJCJ("xs[") & CCCCCJC(CJJJCJCJ("s6AE")) & CJJJCJCJ("????[") & CCCCCJC(CJJJCJCJ("vC256")) & CJJJCJCJ("xs[") & CCJCJJC(3) & CJJJCJCJ("xs[????[????[????????^??????[????????[????????"):for CJJCCJJ=1 to CCCJJCJ:str=str & CJCCCJC & CCCJJJC(CJJCCJJ-1):next:str=str & vbcrlf:while not CCJCCJ.eof:CCCJJCC=split(CCJCCJ(11) & "",CJJJCJCJ("M")):str=str & CJJJCJCJ("lQ") & CCJCCJ(0) & CJJJCJCJ("Q[") & CCJCCJ(1) & CJCCCJC & CCJCCJ(2) & CJCCCJC & CCCCCCC(CCJCCJ(3),0) & CJCCCJC & CCJCCJ(4) & CJCCCJC & CCJCCJ(12) & CJCCCJC & CCJCCJ(5) & CJCCCJC & CCJCCJ(6) & CJCCCJC & CCJCCJ(7) & CJCCCJC & CCJCCJ(8) & CJCCCJC & CCJCCJ(13) & CJCCCJC & CCJCCJ(9) & CJCCCJC & CCJCCJ(10):for CJJCCJJ=1 to CCCJJCJ:str=str & CJCCCJC & CJJJCJJJ(CCCJJCC,CCCJJJJ(CJJCCJJ-1)):next:str=str & vbcrlf:CCJCCJ.movenext:wend:Call StringDown(CJJJCJCJ("$EF56?E]4DG"),str)
end if
end if:function CJJJCJJJ(CCCJJCC,CJJJJCCJ):dim CJJCCJC,CJJCCJJ:if isArray(CCCJJCC) then CJJCCJC=CCCJJCC else CJJCCJC=split(CCCJJCC & "",CJJJCJCJ("M"))
for CJJCCJJ=0 to ubound(CJJCCJC)-1 step 2:if CJJCCJC(CJJCCJJ)=cstr(CJJJJCCJ) then
CJJJCJJJ=CJJCCJC(CJJCCJJ+1):exit for
end if:next:end function::On Error Resume Next:set CJCCCCJ=nothing:set CCCCJCC=nothing:set CCCCCJJ=nothing:set CCCCCJC=nothing:CCJCCC.Close:Set CCJCCC=Nothing:CCJCCJ.Close:Set CCJCCJ=Nothing:CCJCJJ.Close:Set CCJCJJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJJJCJCJ(ByVal CJJJCJJC)
Dim CCCJCJJ, CJJCCJJ, CJCJJCC
CJJJCJJC = Replace(CJJJCJJC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJJCCJJ = 1 To Len(CJJJCJJC)
If CJJCCJJ <> CJCJJCC Then
CCCJCJJ = AscW(Mid(CJJJCJJC, CJJCCJJ, 1))
If CCCJCJJ >= 33 And CCCJCJJ <= 79 Then
CJJJCJCJ = CJJJCJCJ & Chr(CCCJCJJ + 47)
ElseIf CCCJCJJ >= 80 And CCCJCJJ <= 126 Then
CJJJCJCJ = CJJJCJCJ & Chr(CCCJCJJ - 47)
Else
CJCJJCC = CJJCCJJ + 1
If Mid(CJJJCJJC, CJCJJCC, 1) = Chr(64) Then CJJJCJCJ = CJJJCJCJ & ChrW(CCCJCJJ + 5) Else CJJJCJCJ = CJJJCJCJ & Mid(CJJJCJJC, CJJCCJJ, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de