Edit D:\xinhaisoft\crisis_new\school\apiforvue.asp

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJCCCJ, CJCCCC,CCJJJJ, CCJJJC, CCJJCJ:Set CJCCCJ = server.CreateObject(CCCJJCJ("ps~sq]r@??64E:@?")):CJCCCJ.open Application(CCCJJCJ("r@??64E:@?$EC:?8")):Set CJCCCC=CJCCCJ:::Function IIf(CCCJJCC, CCCJCJJ, CCCJCJC):if isnull(CCCJJCC) or isempty(CCCJJCC) then
IIf = CCCJCJC
elseif CCCJJCC Then
IIf = CCCJCJJ
Else
IIf = CCCJCJC
end if:End Function:Const CJCCJCJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::Sub Debug(str):response.Charset=CCCJJCJ("FE7\g"):dim CCJJCC,CCJCJJ,CCJCJC:if isarray(str) then
on error resume next:CCJJCC=ubound(str,2):CCJCJC=err.number:err.clear:on error goto 0:if CCJCJC<>0 then
for CCJJCC=0 to ubound(str):if CCJJCC>0 then response.Write CCCJJCJ("k3C ,^m")
response.Write CCJJCC & CCCJJCJ("i ,") & str(CCJJCC):next
else
response.Write CCCJJCJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CCJJCC=0 to ubound(str,2):response.Write CCCJJCJ("kE9 ,2=:8?lV=67EVm") & CCJJCC & CCCJJCJ("k^E9m")
next:response.Write CCCJJCJ("k^ECm"):for CCJJCC=0 to ubound(str):response.Write CCCJJCJ("kECmkE9m") & CCJJCC & CCCJJCJ("k^E9m"):for CCJCJJ=0 to ubound(str,2):response.Write CCCJJCJ("kE5m") & str(CCJJCC,CCJCJJ) & CCCJJCJ("k^E5m"):next:response.Write CCCJJCJ("k^ECm"):next:response.Write CCCJJCJ("k^E23=6m")
end if
elseif isnull(str) then
response.Write CCCJJCJ(",}F==.")
else
Response.Write replace(str,vbcrlf,CCCJJCJ("k3Cm"))
end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CCCJCCJ,CCCJCCC):dim CCJCCJ:CCJCCJ=CCCJCCJ & CCCJJCJ("l") & CCCJCCC & CCCJJCJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCCJJCJ("$6E\r@@<:6"),CCJCCJ):End Sub:::::::Function CJCCCJJ(CCJCJC):if isnull(CCJCJC) or trim(CCJCJC)="" or not isnumeric(CCJCJC) then
CJCCCJJ=false
else
Dim CCJCCC:Set CCJCCC = New RegExp:CCJCCC.Pattern = CCCJJCJ("/-5ZS"):CCJCCC.IgnoreCase = True:CJCCCJJ = CCJCCC.test(CCJCJC):set CCJCCC=nothing
end if:End Function:Function CJCCCJC(CCCCJJJ):dim CCCJJJ,CCCJJC:CCCJJJ=CCCJJCJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CCCCJJJ & CCCJJCJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CCCJJC=CJCCCJ.execute(CCCJJJ):CJCCCJC = CCCJJC(0):if isnull(CJCCCJC) then CJCCCJC=1
CCCJJC.close : set CCCJJC=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CCCCCJ=nothing:set CJCCCCJ=nothing:set CJCCCCC=nothing:set CCJJJJJ=nothing:CCCJJC.close : set CCCJJC=nothing:CCJJJC.Close : Set CCJJJC=Nothing:CCJJJJ.Close : Set CCJJJJ=Nothing:CCJJJJC.Close : Set CCJJJJC = Nothing:CJCCCJ.Close : Set CJCCCJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCCCJJC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCCJJCJ("!$*0|6DD286"),server.URLEncode(CCCCJJC)):Response.Redirect CCCJJCJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub::::::::::::::::::Function CCJJJCJ(Table):Dim CCCJJC, CCCJCJ, str(), CCJJCC,CCJCJJ,CCCCJJ:CCCCJJ=UCase(Table):If Not IsArray(Application(CCCJJCJ("!$*0") & CCCCJJ)) Then
CCJJCJ=CCCJJCJ("D6=64E ,:5[?2>6[>6>36CEJA6 ,7C@> ,,") & Table & CCCJJCJ(". ,@C56C ,3J ,D@CE[:5"):set CCCJJC=server.createobject(CCCJJCJ("25@53]C64@C5D6E")):CCCJJC.open CCJJCJ,CJCCCJ,1:CCCJCJ = CCCJJC.RecordCount:ReDim str(CCCJCJ, 2):If CCCJCJ > 0 Then
For CCJJCC = 1 To CCCJCJ:for CCJCJJ=0 to 2:str(CCJJCC, CCJCJJ) = CCCJJC(CCJCJJ):next:CCCJJC.MoveNext:Next
End If:CCCJJC.Close: Set CCCJJC = Nothing:Application(CCCJJCJ("!$*0") & CCCCJJ) = str
End If:CCJJJCJ = Application(CCCJJCJ("!$*0") & CCCCJJ):End Function::Function CCJJJCC(CCCCJJJ,CCCCJCJ,CJCJCCC):Dim str, CCJJCC, CCCCJC:CCCCJC = CCJJJCJ(CCCCJJJ):For CCJJCC = 1 To UBound(CCCCJC):if Cstr(CCCCJC(CCJJCC,2))=Cstr(CCCCJCJ) and CStr(CCCCJC(CCJJCC, 0)) = CJCJCCC & "" then
str=CCCCJC(CCJJCC,1):exit for
end if:Next:if str="" then str=CCCJJCJ(",????.")
CCJJJCC=str:End Function:::::::::::::::::Sub ClearCache(CCCCJCC):Application.Contents.Remove CCCCJCC
End Sub::Class jTree:Private CCJJCJ, CCCCCJ, CCCCCC, CJJJJJJ,CJJJJJC,CJJJJCJ,CJJJJCC,CJJJCJJ:Private Sub Class_Initialize():CCCCCC = 0:CJJJJJJ = 0:CJJJCJJ=10:End Sub:Public Property Let Table(CCCCCJJ):if CCCCCJJ="" then Call RedirectMessage(CCCJJCJ("????????,;%C66????????????????????@??????????,"))
CJJJJJC=CCCCCJJ:CJJJJCJ=CCCJJCJ("!$*0") & UCase(CJJJJJC):Call GetTreeArray:End Property:Public Property Get Table():Table=CJJJJJC:End Property:::Private Sub GetTreeArray():Dim CCJJCC, CCJCJJ, CJJJCJC,RecordCount:CCCCCJ = Application(CJJJJCJ):If Not IsArray(CCCCCJ) Then
CCJJCJ = CCCJJCJ("D6=64E ,4@F?EW:5X ,7C@> ,") & CJJJJJC:if CJJJJCC<>"" then CCJJCJ=CCJJCJ & CCCJJCJ(" ,H96C6 ,") & CJJJJCC
set CJJJCJC=CJCCCJ.execute(CCJJCJ):RecordCount=CJJJCJC(0):if RecordCount=0 then Call RedirectMessage(CCCJJCJ("????W") & CJJJJJC & CCCJJCJ("^") & CJJJJCC & CCCJJCJ("X????????????"))
CJJJJJJ=RecordCount+CJJJCJJ:ReDim CCCCCJ(CJJJJJJ, 4):CCJJCJ = CCCJJCJ("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJJJJC & CCCJJCJ(" ,H:E9 ,W?@=@4<X"):if CJJJJCC<>"" then CCJJCJ=CCJJCJ & CCCJJCJ(" ,H96C6 ,") & CJJJJCC
CCJJCJ=CCJJCJ & CCCJJCJ(" ,@C56C ,3J ,D@CE[:5"):set CJJJCJC=CJCCCJ.execute(CCJJCJ):For CCJJCC = 1 To RecordCount:For CCJCJJ = 0 To 4:CCCCCJ(CCJJCC, CCJCJJ) = CJJJCJC(CCJCJJ):if IsNull(CCCCCJ(CCJJCC,4)) then CCCCCJ(CCJJCC,4)=0
If CCCCCJ(CCJJCC,2)="" then CCCCCJ(CCJJCC,2)=CCCJJCJ(",??.")
Next:CJJJCJC.MoveNext:Next:CJJJCJC.Close: Set CJJJCJC = Nothing:for CCJJCC=CJJJJJJ-(CJJJCJJ-1) to CJJJJJJ:CCCCCJ(CCJJCC,0)=CCJJCC:next:Application.Lock():Application(CJJJJCJ) = CCCCCJ:Application.UnLock()
else
CJJJJJJ=Ubound(CCCCCJ)
End If:End Sub:::::Private Function CCJJCJC(CJCJCCC):dim CCJJCC,CJJJCCC:CCJJCJC=0:CJJJCCC=CStr(CJCJCCC):if CJJJCCC<>"0" then
for CCJJCC=1 to CJJJJJJ:If CStr(CCCCCJ(CCJJCC, 0))=CJJJCCC Then
CCJJCJC = CCJJCC:Exit For
End If:Next
end if:End Function:Public Function CCJJCCJ(CJCJCCC):if Cstr(CJCJCCC)="0" then
CCJJCCJ=CCCJJCJ("??")
else
Dim CCJJCC,CJJJCJC:CCJJCC=CCJJCJC(CJCJCCC):if CCJJCC>0 then
CCJJCCJ=CCCCCJ(CCJJCC,2):if CCJJCCJ="" then
set CJJJCJC=CJCCCJ.execute(CCCJJCJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJJJJC & CCCJJCJ(" ,H96C6 ,:5l") & CJCJCCC):if CJJJCJC.eof then Call RedirectMessage(CCCJJCJ("xs??,") & CJCJCCC & CCCJJCJ("??,??????"))
CCJJCCJ=CJJJCJC(1):Call UpdateCache(CJCJCCC,CJJJCJC(0),CCJJCCJ,CJJJCJC(2),CJJJCJC(3)):CJJJCJC.Close: Set CJJJCJC = Nothing
end if
else
set CJJJCJC=CJCCCJ.execute(CCCJJCJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJJJJC & CCCJJCJ(" ,H96C6 ,:5l") & CJCJCCC):if CJJJCJC.eof then Call RedirectMessage(CCCJJCJ("xs??,") & CJCJCCC & CCCJJCJ("??,??????"))
CCJJCCJ=CJJJCJC(1):Call UpdateCache(CJCJCCC,CJJJCJC(0),CCJJCCJ,CJJJCJC(2),CJJJCJC(3)):CJJJCJC.Close: Set CJJJCJC = Nothing
end if
end if:End Function:::Public Function CCJJCCC(CJCJCCC):Dim CCJJCC,CJJCJJJ:CCJJCC=CCJJCJC(CJCJCCC):if CCJJCC=0 then
CJJCJJJ=CCJCJJJ(CJCJCCC)
else
CJJCJJJ=CCCCCJ(CCJJCC,3):if isnull(CJJCJJJ) or CJJCJJJ="" then
CJJCJJJ=CCJCJJJ(CJCJCCC)
elseif Mid(CJJCJJJ,instrrev(CJJCJJJ,CCCJJCJ("["))+1)<>CStr(CJCJCCC) then
CJJCJJJ=CCJCJJJ(CJCJCCC)
elseif Left(CJJCJJJ,1)=CCCJJCJ("[") then
CJJCJJJ=CCJCJJJ(CJCJCCC)
end if
end if:CCJJCCC=CJJCJJJ:End Function:Private Function CCJCJJJ(CJCJCCC):dim CJJJCCC:CJJJCCC=CStr(CJCJCCC):if CJJJCCC="0" then
CCJCJJJ=""
else
dim CJJJCJC:set CJJJCJC=CJCCCJ.execute(CCCJJCJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJJJJC & CCCJJCJ(" ,H96C6 ,:5l") & CJCJCCC):if CJJJCJC.eof then
Call UpdateCache(CJCJCCC,"","","",""):Call RedirectMessage(CCCJJCJ("??????,xs??,") & CJCJCCC & CCCJJCJ("??,????????,????????????????????,"))
else
if CJJJCJC(0)=0 then
CCJCJJJ="0," & CJCJCCC
else
CCJCJJJ=CCJJCCC(CJJJCJC(0)) & CCCJJCJ("[") & CJCJCCC
end if:if CJJJCJC(2)<>CCJCJJJ then
CJCCCJ.execute CCCJJCJ("FA52E6 ,") & CJJJJJC & CCCJJCJ(" ,D6E ,A2E9lV") & CCJCJJJ & CCCJJCJ("V ,H96C6 ,:5l") & CJCJCCC
else
CCJCJJJ=CJJJCJC(2)
end if
end if:Call UpdateCache(CJCJCCC,CJJJCJC(0),CJJJCJC(1),CCJCJJJ,CJJJCJC(3)):CJJJCJC.Close: Set CJJJCJC = Nothing
end if:End Function::Public Function CCJCJJC(CJCJCCC):CCJCJJC = Mid(CCJJCCC(CJCJCCC), 3):End Function:Public Function CCJCJCJ(CJCJCCC):Dim CCJJCC, CCJCJJ, CJJCJJC,Str, CJJCJJJ, CCCJCJ, CJJCJCJ():CJJCJJJ = CCJCJJC(CJCJCCC):CJJCJJJ = Split(CJJCJJJ, CCCJJCJ("[")):for CCJJCC=0 to Ubound(CJJCJJJ):CJJCJJC=CJJCJJJ(CCJJCC):str=str & CCCJJCJ("M") & CJJCJJC & CCCJJCJ("M") & CCJJCCJ(CJJCJJC):next:if str<>"" then str=Mid(str,2)
CCJCJCJ=str:End Function::::::::::::Public Function GetPositionStr_From(CJCJCCC, CCJCCJJ):if isnull(CJCJCCC) or isnull(CCJCCJJ) then
GetPositionStr_From=CCCJJCJ(",????????."):exit function
end if:Dim Str, CCJJCC, CJJCJCJ, CCCJCJ, CJJCJCC:CCJCCJJ = CStr(CCJCCJJ):If CCJCCJJ = "0" or CCJCCJJ = CStr(CJCJCCC) Then
Str = CCJJCCJ(CJCJCCC)
Else
CJJCJCJ = Split(CCJCJCJ(CJCJCCC), CCCJJCJ("M")):CCCJCJ = UBound(CJJCJCJ):CJJCJCC = False:For CCJJCC = 0 To CCCJCJ Step 2:If CJJCJCJ(CCJJCC) = CCJCCJJ And Not CJJCJCC Then CJJCJCC = True
If CJJCJCC Then
If Str <> "" Then Str = Str & CCCJJCJ("??,")
Str = Str & CJJCJCJ(CCJJCC + 1)
End If:Next
End If:str=Mid(str,instr(str,CCCJJCJ("??,"))+1):GetPositionStr_From = Str:End Function:::::::Public Sub ClearCache():Application.Contents.Remove CJJJJCJ
End Sub:Public Sub UpdateCache(CJCJCCC,CJJCJJC,CCCCCJC,CJJCJJJ,CCCCCCJ):dim CCJJCC,CCJCJJ:CJCJCCC=CLng(CJCJCCC):CCJJCC=CCJJCJC(CJCJCCC):if CJJCJJC="" and CCCCCJC="" and CJJCJJJ="" and CCCCCCJ="" then
if CCJJCC>0 then
for CCJCJJ=1 to 4:CCCCCJ(CCJJCC,CCJCJJ)=Null:next
end if
else
if CCJJCC=0 then
for CCJCJJ=1 to CJJJJJJ:if CCCCCJ(CCJCJJ,1) & ""="" then
CCJJCC=CCJCJJ:exit for
end if:next
end if:if CCJJCC=0 then
Call ClearCache
else
CCCCCJ(CCJJCC,0)=CLng(CJCJCCC):if CJJCJJC<>"" then CCCCCJ(CCJJCC,1)=CLng(CJJCJJC)
if CCCCCJC<>"" then CCCCCJ(CCJJCC,2)=CCCCCJC
if CJJCJJJ<>"" then CCCCCJ(CCJJCC,3)=CJJCJJJ
if CCCCCCJ<>"" then CCCCCJ(CCJJCC,4)=CLng(CCCCCCJ)
end if
end if:if CCJJCC>0 then
Application.Lock():Application(CJJJJCJ) = CCCCCJ:Application.UnLock()
end if:End Sub:Private Sub Debug(CCCCJJC):Call ConnClose:Response.Write CCCCJJC:Response.End:End Sub:Private Function CJCCCJC():CJCCCJC=CCJCCJC+1:End Function:Private Function CCJCCJC():dim CCCJJC:set CCCJJC=CJCCCJ.execute(CCCJJCJ("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CJJJJJC & CCCJJCJ(" ,@C56C ,3J ,:5 ,56D4")):CCJCCJC=CCCJJC(0):CCCJJC.Close: Set CCCJJC = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class:::Public Function CCJCCCJ(CCJCJC):dim CJJCCJJ:if isnull(CCJCJC) or trim(CCJCJC)="" or not isnumeric(CCJCJC) or instr(CCJCJC,CCCJJCJ("\"))>0 or instr(CCJCJC,CCCJJCJ("]"))>0 or len(CCJCJC)<6 then
CJJCCJJ=""
else
CJJCCJJ=CCJCJC:CJJCCJJ=Left(CJJCCJJ,Len(CJJCCJJ)-2):if Right(CCJCJC,2)=CCCJJJJ(CJJCCJJ) then
CJJCCJJ=CCJCCCC(CJJCCJJ):CJJCCJJ=Left(CJJCCJJ,Len(CJJCCJJ)-2):if Left(CJJCCJJ,1)="0" then CJJCCJJ=Mid(CJJCCJJ,2)
else
CJJCCJJ=""
end if
end if:CCJCCCJ=CJJCCJJ:End Function:Private Function CCJCCCC(str):Dim CJJCCJC, CCJJCC, CJJCCCJ, CJJCCCC, CJCJJJJ, CCJCJC,CJJCCJJ:CJJCCCC = Len(str):For CCJJCC = 1 To CJJCCCC:CJJCCCJ = CInt(Mid(str, CCJJCC, 1)):If CJJCCCJ < 5 Then CJJCCCJ = CJJCCCJ + 5 Else CJJCCCJ = CJJCCCJ - 5
CJJCCJC = CJJCCJC & CJJCCCJ:Next:For CCJJCC = 1 To CJJCCCC - 1 Step 2:CJCJJJJ = Mid(CJJCCJC, CCJJCC, 1):CCJCJC = Mid(CJJCCJC, CCJJCC + 1, 1):CJJCCJJ = CJJCCJJ & CCJCJC & CJCJJJJ:Next:CCJCCCC = StrReverse(CJJCCJJ):End Function:Private Function CCCJJJJ(CCCCCCC):Dim CJJCCCC, CCJJCC, CCJCJC, CJJCCJC:CJJCCCC = Len(CCCCCCC):CCJCJC = 0:For CCJJCC = 1 To CJJCCCC:CJJCCJC = CInt(Mid(CCCCCCC, CCJJCC, 1)):If CCJJCC Mod 2 = 0 Then CCJCJC = CCJCJC + CJJCCJC * 3 Else CCJCJC = CCJCJC + CJJCCJC
Next:CCJCJC = CCJCJC Mod 100:CCJCJC = 100 - CCJCJC:CCCJJJJ = Right("0" & CCJCJC, 2):End Function::dim CJCJJJC:CCJJCJ=Request.ServerVariables(CCCJJCJ("!p%w0x}u~")):if instr(CCJJCJ,CCCJJCJ("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not memIsSchoolAdmin and not memIsConsultant then Call RedirectMessage(CCCJJCJ("????????,????????????????????????,"))
CJCJJJC=memTopType
elseif instr(CCJJCJ,CCCJJCJ("^>^D49@@=^DEF56?E^"))>0 or instr(CCJJCJ,CCCJJCJ("^DEF56?E^"))>0 then
Call CheckLogined:CJCJJJC=memTopType
elseif instr(CCJJCJ,CCCJJCJ("^D49@@="))>0 then
CJCJJJC=Request.QueryString(CCCJJCJ("D49@@=")):if not CJCCCJJ(CJCJJJC) then CJCJJJC=Request.QueryString(CCCJJCJ("F"))
if not CJCCCJJ(CJCJJJC) then CJCJJJC=Request.QueryString(CCCJJCJ("D4"))
if not CJCCCJJ(CJCJJJC) then Call RedirectMessage(CCCJJCJ("????????W$49@@=X??@??????????,"))
CJCJJJC=csng(CJCJJJC)
end if:if CJCJJJC=0 then Call RedirectMessage(CCCJJCJ("????????W$49@@=X????W_X??,"))
Dim CJCJJCJ:Call SetConfig:Sub SetConfig():dim CJJCJCJ,CCCJJC:CCJJCJ=CCCJJCJ("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") & CJCJJJC:set CCCJJC=CJCCCJ.execute(CCJJCJ):if CCCJJC.eof then Call RedirectMessage(CCCJJCJ("??W") & memID & CCCJJCJ("X??????????W") & CJCJJJC & CCCJJCJ("X????????,"))
ReDim CJJCJCJ(61):CJJCJCJ(0)=CCCJJC(CCCJJCJ(";:2@H6:")) & "":CJJCJCJ(1)=CCCJJC(CCCJJCJ("EJA6")):CJJCJCJ(2)=CCCJJC(CCCJJCJ("D>D")):CJJCJCJ(3)=CCCJJC(CCCJJCJ("4FDE@>8C@FA")) & "":CJJCJCJ(4)=CCCJJC(CCCJJCJ("D:5632C0@E96C")) & "":CJJCJCJ(5)=IIf(isnull(CCCJJC(CCCJJCJ("E6DEC6DF=EG:6H"))),0,CCCJJC(CCCJJCJ("E6DEC6DF=EG:6H"))):CJJCJCJ(6)=CCCJJC(CCCJJCJ("K:IF?E:>6")):CJJCJCJ(7)=CCCJJC(CCCJJCJ("766")):CJJCJCJ(8)=CCCJJC(CCCJJCJ("C6E6DE52J")):CJJCJCJ(9)=CCCJJC(CCCJJCJ("6IA:C652E6")):CJJCJCJ(10)=CCCJJC(CCCJJCJ("E:E=6")):CJJCJCJ(11)=CCCJJC(CCCJJCJ(":?EC@")) & "":CJJCJCJ(12)=CCCJJC(CCCJJCJ("A:4EFC6")) & "":CJJCJCJ(13)=CCCJJC(CCCJJCJ("72>:=J")):CJJCJCJ(14)=CCCJJC(CCCJJCJ("4@AJC:89E")) & "":CJJCJCJ(15)=IIf(isnull(CCCJJC(CCCJJCJ("D6>6DE6C0DE2CE052E6"))),CCCJJCJ("`h__\`\`"),CCCJJC(CCCJJCJ("D6>6DE6C0DE2CE052E6"))):CJJCJCJ(16)=IIf(isnull(CCCJJC(CCCJJCJ("K:IF?0E:>6D09:89=:89E"))),0,CCCJJC(CCCJJCJ("K:IF?0E:>6D09:89=:89E"))):CJJCJCJ(17)=CCCJJC(CCCJJCJ("4@?E24E")) & "":CJJCJCJ(18)=CCCJJC(CCCJJCJ("D2?5E23=6")):CJJCJCJ(19)=CCCJJC(CCCJJCJ("4C:D:D")):CJJCJCJ(20)=CCCJJC(CCCJJCJ("JJ52E6")):CJJCJCJ(21)=CCCJJC(CCCJJCJ("BB")):CJJCJCJ(22)=CCCJJC(CCCJJCJ("JFJF60D>D0EA=")) & "":CJJCJCJ(23)=CCCJJC(CCCJJCJ("JFJF60E6DE0=3")) & "":CJJCJCJ(25)=CCCJJC(CCCJJCJ("6IA6CE")):CJJCJCJ(26)=CCCJJC(CCCJJCJ(">@5:?7@")):CJJCJCJ(27)=CCCJJC(CCCJJCJ("9@>6A286E@AA:4EFC6")) & "":CJJCJCJ(28)=CCCJJC(CCCJJCJ("4C:D:D=3")):CJJCJCJ(29)=IIf(CCCJJC(CCCJJCJ("4C:D:D@=5")),False,True):CJJCJCJ(30)=CCCJJC(CCCJJCJ("8C@FA8F:52?46")):CJJCJCJ(31)=CCCJJC(CCCJJCJ("3:@7665324<")):CJJCJCJ(32)=CCCJJC(CCCJJCJ("<6JDEC")):CJJCJCJ(33)=CCCJJC(CCCJJCJ("=@8@")) & "":CJJCJCJ(34)=CCCJJC(CCCJJCJ("K:46")):CJJCJCJ(35)=IIf(CCCJJC(CCCJJCJ(":D?6H")),True,False):CJJCJCJ(36)=121:CJJCJCJ(37)=111:CJJCJCJ(38)=160:CJJCJCJ(39)=CCCJJC(CCCJJCJ("8F6DE3@@<")):CJJCJCJ(40)=CCCJJC(CCCJJCJ("75D")):CJJCJCJ(42)=CCCJJC(CCCJJCJ("9@>6=@8:?")):CJJCJCJ(43)=CCCJJC(CCCJJCJ("K:IF?0?6657665324<")):CJJCJCJ(44)=CCCJJC(CCCJJCJ("K:IF?0E:>6D0=:>:E")):CJJCJCJ(45)=CCCJJC(CCCJJCJ("4@>A=6E60:?7@")):CJJCJCJ(46)=CCCJJC(CCCJJCJ("E6DE:?EC@")) & "":CJJCJCJ(47)=IIf(isnull(CCCJJC(CCCJJCJ("JFJF60367@C60E:>6"))),0,CCCJJC(CCCJJCJ("JFJF60367@C60E:>6"))):CJJCJCJ(49)=CCCJJC(CCCJJCJ("D>D0C646:G6C")):CJJCJCJ(50)=CCCJJC(CCCJJCJ("D>D0D:8?")) & "":CJJCJCJ(52)=CCCJJC(CCCJJCJ("JFJF602CC2?86")):CJJCJCJ(53)=IIf(isnull(CCCJJC(CCCJJCJ("DEF56?E0BF6DE:@?04@F?E"))),0,CCCJJC(CCCJJCJ("DEF56?E0BF6DE:@?04@F?E"))):CJJCJCJ(54)=CCCJJC(CCCJJCJ("9:560=30@FE@7286")):CJJCJCJ(55)=CCCJJC(CCCJJCJ("JFJF60E6DE052JD")):CJJCJCJ(56)=CCCJJC(CCCJJCJ("JFJF60H66<0=:>:E")):CJJCJCJ(57)=CCCJJC(CCCJJCJ("JFJF604964<65")):CJJCJCJ(58)=CCCJJC(CCCJJCJ("K:IF?0?6657665324<0?6IE")):CJJCJCJ(59)=CCCJJC(CCCJJCJ("4964<?6HDEF56?E")):CJJCJCJ(60)=CCCJJC(CCCJJCJ("K:IF?04=@D6052E6")):CCCJJC.close : set CCCJJC=nothing:if isNull(CJJCJCJ(8)) or CJJCJCJ(8)="" then CJJCJCJ(8)=0
if isdate(CJJCJCJ(9)) then
CJJCJCJ(9)=cdate(CJJCJCJ(9)):if CJJCJCJ(9)<Date then Call RedirectMessage(CCCJJCJ("????????,????????????????W") & CJJCJCJ(9) & CCCJJCJ("X??????,"))
end if:if not CJCCCJJ(CJJCJCJ(20)) then CJJCJCJ(20)=7
select case CJJCJCJ(1):case 1,2,16:CJJCJCJ(36)=159:case 4,5,6,10,11:CJJCJCJ(36)=190:CJJCJCJ(37)=178:CJJCJCJ(38)=191:case 7,13:CJJCJCJ(36)=164:CJJCJCJ(37)=178:CJJCJCJ(38)=179:end select:CJCJJCJ=CJJCJCJ:End Sub:Function CCJJJJJ(CJJJJJJJ):dim CJJCJCJ(7,1),CCJJCC,CJCJJCC,CJCJCJJ:CJCJJCC=Array(CCCJJCJ("$49@@="),CCCJJCJ("$EF56?E"),CCCJJCJ("s6AE"),CCCJJCJ("vC256"),CCCJJCJ("r=2DD>2E6"),CCCJJCJ("}F>36C"),CCCJJCJ("%62496C"),CCCJJCJ("!2C6?E")):select case CJCJJCJ(1):case 1,2 : CJCJCJJ=Array(CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????")):case 3,16 : CJCJCJJ=Array(CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????")):case 4 : CJCJCJJ=Array(CCCJJCJ("????"),CCCJJCJ("??????@"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????")):case 5 : CJCJCJJ=Array(CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????")):case 6 : CJCJCJJ=Array(CCCJJCJ("????"),CCCJJCJ("??????@"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("??????"),CCCJJCJ("????")):case 7 : CJCJCJJ=Array(CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("??????"),CCCJJCJ("????")):case 8 : CJCJCJJ=Array(CCCJJCJ("????"),CCCJJCJ("??????@"),CCCJJCJ("????"),CCCJJCJ("????????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("??????"),CCCJJCJ("????")):case 9 : CJCJCJJ=Array(CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("??????"),CCCJJCJ("????")):case 10 : CJCJCJJ=Array(CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("??????"),CCCJJCJ("????")):case 11 : CJCJCJJ=Array(CCCJJCJ("????"),CCCJJCJ("??????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("??????"),CCCJJCJ("????")):case 12 : CJCJCJJ=Array(CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("??????"),CCCJJCJ("????")):case 13 : CJCJCJJ=Array(CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????")):case 14 : CJCJCJJ=Array(CCCJJCJ("??????"),CCCJJCJ("??@??"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("??????"),CCCJJCJ("????")):case 15 : CJCJCJJ=Array(CCCJJCJ("????"),CCCJJCJ("????????"),CCCJJCJ("????"),CCCJJCJ("????????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("??????"),CCCJJCJ("????")):case else : CJCJCJJ=CJCJJCC
end select:for CCJJCC=0 to Ubound(CJJCJCJ):CJJCJCJ(CCJJCC,0)=CJCJJCC(CCJJCC):CJJCJCJ(CCJJCC,1)=CJCJCJJ(CCJJCC):next:for CCJJCC=0 to Ubound(CJJCJCJ):if CJJCJCJ(CCJJCC,0)=CJJJJJJJ then
CCJJJJJ=CJJCJCJ(CCJJCC,1):exit for
end if:next:End Function::dim CJCJCJC,CJCJCCJ:CJCJCCJ=Request.QueryString(CCCJJCJ("24E")):if CJCJCCJ="1" then
dim CJCJCCC:CJCJCCC=CCJCCCJ(Request.QueryString(CCCJJCJ(":5"))):if not CJCCCJJ(CJCJCCC) then
CJCJCJC=CCCJJCJ("L4@56i\aN")
else
set CCJJJJ=CJCCCC.execute(CCCJJCJ("D6=64E ,E@A ,` ,?F>36C[C62=?2>6[D6I[>@3:=6[EJA6[8C256[4FDE@>8C@FA ,7C@> ,>6>36C ,H96C6 ,:5l") & CJCJCCC):if CCJJJJ.eof then
CJCJCJC=CCCJJCJ("L4@56i`[>6DD286iV??????????VN")
else
dim CCCCCJ:set CCCCCJ=new jtree:CCCCCJ.table=CCCJJCJ(">6>36C0EJA6"):CJCJCJC=CCCJJCJ("L4@56i_[52E2i,"):CJCJCJC=CJCJCJC & CCCJJCJ("L=236=iV") & CCJJJJJ(CCCJJCJ("}F>36C")) & CCCJJCJ("V[G2=F6iV") & CCJJJJ(0) & CCCJJCJ("VN")
CJCJCJC=CJCJCJC & CCCJJCJ("[L=236=iV????V[G2=F6iV") & CCJJJJ(1) & CCCJJCJ("VN")
CJCJCJC=CJCJCJC & CCCJJCJ("[L=236=iV????V[G2=F6iV") & IIf(CCJJJJ(2),CCCJJCJ("??"),CCCJJCJ("??")) & CCCJJCJ("VN")
CJCJCJC=CJCJCJC & CCCJJCJ("[L=236=iV") & CCJJJJJ(CCCJJCJ("s6AE")) & CCCJJCJ("V[G2=F6iV") & CCCCCJ.GetPositionStr_From(CCJJJJ(4),CJCJJJC) & CCCJJCJ("VN")
If CJCJJCJ(1)>=3 Then CJCJCJC=CJCJCJC & CCCJJCJ("[L=236=iV") & CCJJJJJ(CCCJJCJ("vC256")) & CCCJJCJ("V[G2=F6iV") & CCJJJCC(CCCJJCJ(">6>36C08C256"),CJCJJJC,CCJJJJ(5)) & CCCJJCJ("VN")
If CJCJJCJ(3)<>"" Then CJCJCJC=CJCJCJC & CCCJJCJ("[L=236=iV") & CJCJJCJ(3) & CCCJJCJ("V[G2=F6iV") & CCJJJCC(CCCJJCJ(">6>36C04FDE@>8C@FA"),CJCJJJC,CCJJJJ(6)) & CCCJJCJ("VN")
CJCJCJC=CJCJCJC & CCCJJCJ("[L=236=iV????V[G2=F6iV") & CCJJJJ(3) & CCCJJCJ("VN")
CJCJCJC=CJCJCJC & CCCJJCJ(".N")
end if
end if
else
CJCJCJC=CCCJJCJ("L4@56i\aN")
end if:CJCJCJC=replace(CJCJCJC,CCCJJCJ("V"),CCCJJCJ("Q"))
Response.CharSet="utf-8":dim CJCCJJJ:CJCCJJJ=Request.QueryString(CCCJJCJ("42==324<")):if CJCCJJJ="" then
Response.Write CJCJCJC
else
Response.Write CJCCJJJ & CCCJJCJ("W") & CJCJCJC & CCCJJCJ("X")
end if::On Error Resume Next:set CCCCCJ=nothing:set CJCCCCJ=nothing:set CJCCCCC=nothing:set CCJJJJJ=nothing:CCJJJC.Close:Set CCJJJC=Nothing:CCJJJJ.Close:Set CCJJJJ=Nothing:CJCCCJ.Close:Set CJCCCJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CCCJJCJ(ByVal CCCJJJC)
Dim CJCCJJC, CCJJCC, CCJCJC
CCCJJJC = Replace(CCCJJJC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CCJJCC = 1 To Len(CCCJJJC)
If CCJJCC <> CCJCJC Then
CJCCJJC = AscW(Mid(CCCJJJC, CCJJCC, 1))
If CJCCJJC >= 33 And CJCCJJC <= 79 Then
CCCJJCJ = CCCJJCJ & Chr(CJCCJJC + 47)
ElseIf CJCCJJC >= 80 And CJCCJJC <= 126 Then
CCCJJCJ = CCCJJCJ & Chr(CJCCJJC - 47)
Else
CCJCJC = CCJJCC + 1
If Mid(CCCJJJC, CCJCJC, 1) = Chr(64) Then CCCJJCJ = CCCJJCJ & ChrW(CJCCJJC + 5) Else CCCJJCJ = CCCJJCJ & Mid(CCCJJJC, CCJJCC, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de