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

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCJJC, CCJCJ,CCJCC, CCCJJ, CCCJC:Set CCJJC = server.CreateObject(CCJJCJJ("ps~sq]r@??64E:@?")):CCJJC.open Application(CCJJCJJ("r@??64E:@?$EC:?8")):Set CCJCJ=CCJJC::Dim CCCCJ,CCCCC,CJJJJJ,CJJJJC,CJJJCJ,CJJJCC,CJJCJJ,CJJCJC,CJJCCJ:Dim CJJCCC,CJCJJJ,CJCJJC,CJCJCJ,CJCJCC,CJCCJJ:Dim CJCCJC,CJCCCJ,CJCCCC:Dim CCJJJJ:CCJJJJ=Trim(Request.Cookies(CCJJCJJ("!$*|t|qt#"))):if CCJJJJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CCCCJ>0 then
CCCJC=CCJJCJJ("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") & CCCCC & CCJJCJJ("V ,2?5 ,:5l") & CCCCJ
set CCJCC=CCJJC.execute(CCCJC):If CCJCC.EOF Then
Call ClearMemberCookie
Else
CJJJJJ=CCJCC(2) & "":CJJJJC=CCJCC(3):CJJJCJ=CCJCC(5):CJJJCC=CCJCC(6):CJJCJJ=CCJCC(9):CJJCJC=CCJCC(15):CJJCCC=CCJCC(0):CJCCCJ=CCJCC(1):CJCCJC=CCJCC(11) & "":CJCJJJ=CCJCC(10) & "":CJJCCJ=CCJCC(12):CJCJJC=CCJCC(14):CJCJCJ=CCJCC(13):CJCJCC=CCJCC(7) & "":CJCCJJ=CCJCC(4):CJCCCC=CCJCC(8):if isnull(CJJCJC) then CJJCJC=0
if isnull(CJJCJJ) or CJJCJJ=0 then CJJCJJ=CJJJJC
if isnull(CJCCJJ) then CJCCJJ=0
if isnull(CJJJCJ) then CJJJCJ=0
if instr(CCJJCJJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CCCCC)>0 then Call RedirectMessage(CCJJCJJ("????????,????????????????????????????????,"))
Call SetMemberCookie(CCCCJ,CCCCC)
End IF
end if:Sub CheckRight(CJJCJJJ):dim CCJJJC,CCJJCJ:if CCCCJ=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CCJJCJJ("??????????????,????????????,"))
elseIf not CJCJJCC(CJJCJJJ) then
Call RedirectMessage(CCJJCJJ("????W") & CJJCJJJ & CCJJCJJ("X????????,????????????????????,"))
end if:End Sub:Function CJCJJCC(CJJCJJJ):dim CCJJJC,CCJJCJ:CCJJCJ=split(CJJCJJJ,CCJJCJJ("[")):CJCJJCC=False:for CCJJJC=0 to ubound(CCJJCJ):If Mid(CJJJJJ,CCJJCJ(CCJJJC),1)="1" then
CJCJJCC=True:exit function
end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CCJJCJJ("!$*|t|qt#"))="":CCCCJ=0:CJJJCC=0:CCCCC=Empty:CJJJCJ=0:CJJCJC=0:CJJCJJ=0:CJJJJC=0:CJJCCC=False:CJCCCJ=False:CJCCCC=Empty:End Sub:Sub CheckMemberCookie():dim CCJJCC,CCJCJJ,CCJJJC,CCJCJC,CCJCCJ:CCJJCC=split(CCJJJJ,CCJJCJJ("]")):if ubound(CCJJCC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CCJJCC(0)) or len(CCJJCC(1))<>32 or len(CCJJCC(2))<>32 then
Call ClearMemberCookie
else
CCJCJJ=CCJJCC(1):for CCJJJC=1 to len(CCJCJJ):CCJCJC=mid(CCJCJJ,CCJJJC,1):if isnumeric(CCJCJC) then CCJCCJ=CCJCCJ & CCJCJC
if len(CCJCCJ)=7 then exit for
next:CCJCJJ=CCJJCC(2):if CCJCCJ<>mid(CCJCJJ,6,7) then
Call ClearMemberCookie
else
CCJCJC=mid(CCJCJJ,18,10)/2:if CCJCJC<DateDiff(CCJJCJJ("D"), CCJJCJJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CCCCJ=Clng(CCJJCC(0)):CCCCC=CCJJCC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJJCJCC,CCJJCJC):dim CCJJJC,CCJCJC,CCJCCJ:for CCJJJC=1 to len(CCJJCJC):CCJCJC=mid(CCJJCJC,CCJJJC,1):if isnumeric(CCJCJC) then CCJCCJ=CCJCCJ & CCJCJC
if len(CCJCCJ)=7 then exit for
next:CCJCCJ=CJJCJCC & CCJJCJJ("]") & CCJJCJC & CCJJCJJ("]") & Fix(10000*(Rnd+1)) & CCJCCJ & Fix(10000*(Rnd+1)) & DateDiff(CCJJCJJ("D"), CCJJCJJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CCJJCJJ("!$*|t|qt#"))=CCJCCJ:End Sub::::Const CJCJJJC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::Sub Debug(str):response.Charset="utf-8":dim CCJJJC,CCJCJC,CCJCCC:if isarray(str) then
on error resume next:CCJJJC=ubound(str,2):CCJCCC=err.number:err.clear:on error goto 0:if CCJCCC<>0 then
for CCJJJC=0 to ubound(str):if CCJJJC>0 then response.Write CCJJCJJ("k3C ,^m")
response.Write CCJJJC & CCJJCJJ("i ,") & str(CCJJJC):next
else
response.Write CCJJCJJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CCJJJC=0 to ubound(str,2):response.Write CCJJCJJ("kE9 ,2=:8?lV=67EVm") & CCJJJC & CCJJCJJ("k^E9m")
next:response.Write CCJJCJJ("k^ECm"):for CCJJJC=0 to ubound(str):response.Write CCJJCJJ("kECmkE9m") & CCJJJC & CCJJCJJ("k^E9m"):for CCJCJC=0 to ubound(str,2):response.Write CCJJCJJ("kE5m") & str(CCJJJC,CCJCJC) & CCJJCJJ("k^E5m"):next:response.Write CCJJCJJ("k^ECm"):next:response.Write CCJJCJJ("k^E23=6m")
end if
elseif isnull(str) then
response.Write CCJJCJJ(",}F==.")
else
Response.Write replace(str,vbcrlf,CCJJCJJ("k3Cm"))
end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CCJJCCJ,CCJJCCC):dim CCJJCC:CCJJCC=CCJJCCJ & CCJJCJJ("l") & CCJJCCC & CCJJCJJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCJJCJJ("$6E\r@@<:6"),CCJJCC):End Sub:::::::Function CJCJCJJ(CCJCCC):if isnull(CCJCCC) or trim(CCJCCC)="" or not isnumeric(CCJCCC) then
CJCJCJJ=false
else
Dim CCCJJJ:Set CCCJJJ = New RegExp:CCCJJJ.Pattern = CCJJCJJ("/-5ZS"):CCCJJJ.IgnoreCase = True:CJCJCJJ = CCCJJJ.test(CCJCCC):set CCCJJJ=nothing
end if:End Function:Function CJCJCJC(CCJCJJJ):dim CCCJJC,CCCJCJ:CCCJJC=CCJJCJJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CCJCJJJ & CCJJCJJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CCCJCJ=CCJJC.execute(CCCJJC):CJCJCJC = CCCJCJ(0):if isnull(CJCJCJC) then CJCJCJC=1
CCCJCJ.close : set CCCJCJ=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CCCJCC=nothing:set CJCJCCJ=nothing:set CJCJCCC=nothing:set CJCCJJJ=nothing:CCCJCJ.close : set CCCJCJ=nothing:CCCJJ.Close : Set CCCJJ=Nothing:CCJCC.Close : Set CCJCC=Nothing:CJCCJJC.Close : Set CJCCJJC = Nothing:CCJJC.Close : Set CCJJC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCJCJJC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCJJCJJ("!$*0|6DD286"),server.URLEncode(CCJCJJC)):Response.Redirect CCJJCJJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::::::::::::Sub ClearCache(CCJCJCJ):Application.Contents.Remove CCJCJCJ
End Sub::Class jTree:Private CCCJC, CCCJCC, CCCCJJ, CCCCJC,CCCCCJ,CCCCCC,CJJJJJJ,CJJJJJC:Private Sub Class_Initialize():CCCCJJ = 0:CCCCJC = 0:CJJJJJC=10:End Sub:Public Property Let Table(CCJCJCC):if CCJCJCC="" then Call RedirectMessage(CCJJCJJ("????????,;%C66????????????????????@??????????,"))
CCCCCJ=CCJCJCC:CCCCCC=CCJJCJJ("!$*0") & UCase(CCCCCJ):Call GetTreeArray:End Property:Public Property Get Table():Table=CCCCCJ:End Property:::Private Sub GetTreeArray():Dim CCJJJC, CCJCJC, CJJJJCJ,CJJJJCC:CCCJCC = Application(CCCCCC):If Not IsArray(CCCJCC) Then
CCCJC = CCJJCJJ("D6=64E ,4@F?EW:5X ,7C@> ,") & CCCCCJ:if CJJJJJJ<>"" then CCCJC=CCCJC & CCJJCJJ(" ,H96C6 ,") & CJJJJJJ
set CJJJJCJ=CCJJC.execute(CCCJC):CJJJJCC=CJJJJCJ(0):if CJJJJCC=0 then Call RedirectMessage(CCJJCJJ("????W") & CCCCCJ & CCJJCJJ("^") & CJJJJJJ & CCJJCJJ("X????????????"))
CCCCJC=CJJJJCC+CJJJJJC:ReDim CCCJCC(CCCCJC, 4):CCCJC = CCJJCJJ("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCCCCJ & CCJJCJJ(" ,H:E9 ,W?@=@4<X"):if CJJJJJJ<>"" then CCCJC=CCCJC & CCJJCJJ(" ,H96C6 ,") & CJJJJJJ
CCCJC=CCCJC & CCJJCJJ(" ,@C56C ,3J ,D@CE[:5"):set CJJJJCJ=CCJJC.execute(CCCJC):For CCJJJC = 1 To CJJJJCC:For CCJCJC = 0 To 4:CCCJCC(CCJJJC, CCJCJC) = CJJJJCJ(CCJCJC):if IsNull(CCCJCC(CCJJJC,4)) then CCCJCC(CCJJJC,4)=0
If CCCJCC(CCJJJC,2)="" then CCCJCC(CCJJJC,2)=CCJJCJJ(",??.")
Next:CJJJJCJ.MoveNext:Next:CJJJJCJ.Close: Set CJJJJCJ = Nothing:for CCJJJC=CCCCJC-(CJJJJJC-1) to CCCCJC:CCCJCC(CCJJJC,0)=CCJJJC:next:Application.Lock():Application(CCCCCC) = CCCJCC:Application.UnLock()
else
CCCCJC=Ubound(CCCJCC)
End If:End Sub:::::Private Function CJCCJCC(CJJCJCC):dim CCJJJC,CJJJCJJ:CJCCJCC=0:CJJJCJJ=CStr(CJJCJCC):if CJJJCJJ<>"0" then
for CCJJJC=1 to CCCCJC:If CStr(CCCJCC(CCJJJC, 0))=CJJJCJJ Then
CJCCJCC = CCJJJC:Exit For
End If:Next
end if:End Function:Public Function GetCurName(CJJCJCC):if Cstr(CJJCJCC)="0" then
GetCurName=CCJJCJJ("??")
else
Dim CCJJJC,CJJJJCJ:CCJJJC=CJCCJCC(CJJCJCC):if CCJJJC>0 then
GetCurName=CCCJCC(CCJJJC,2):if GetCurName="" then
set CJJJJCJ=CCJJC.execute(CCJJCJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCCCCJ & CCJJCJJ(" ,H96C6 ,:5l") & CJJCJCC):if CJJJJCJ.eof then Call RedirectMessage(CCJJCJJ("xs??,") & CJJCJCC & CCJJCJJ("??,??????"))
GetCurName=CJJJJCJ(1):Call UpdateCache(CJJCJCC,CJJJJCJ(0),GetCurName,CJJJJCJ(2),CJJJJCJ(3)):CJJJJCJ.Close: Set CJJJJCJ = Nothing
end if
else
set CJJJJCJ=CCJJC.execute(CCJJCJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCCCCJ & CCJJCJJ(" ,H96C6 ,:5l") & CJJCJCC):if CJJJJCJ.eof then Call RedirectMessage(CCJJCJJ("xs??,") & CJJCJCC & CCJJCJJ("??,??????"))
GetCurName=CJJJJCJ(1):Call UpdateCache(CJJCJCC,CJJJJCJ(0),GetCurName,CJJJJCJ(2),CJJJJCJ(3)):CJJJJCJ.Close: Set CJJJJCJ = Nothing
end if
end if:End Function:::Public Function CJCCCJC(CJJCJCC):Dim CCJJJC,CJJJCJC:CCJJJC=CJCCJCC(CJJCJCC):if CCJJJC=0 then
CJJJCJC=CJCCCCJ(CJJCJCC)
else
CJJJCJC=CCCJCC(CCJJJC,3):if isnull(CJJJCJC) or CJJJCJC="" then
CJJJCJC=CJCCCCJ(CJJCJCC)
elseif Mid(CJJJCJC,instrrev(CJJJCJC,CCJJCJJ("["))+1)<>CStr(CJJCJCC) then
CJJJCJC=CJCCCCJ(CJJCJCC)
elseif Left(CJJJCJC,1)=CCJJCJJ("[") then
CJJJCJC=CJCCCCJ(CJJCJCC)
end if
end if:CJCCCJC=CJJJCJC:End Function:Private Function CJCCCCJ(CJJCJCC):dim CJJJCJJ:CJJJCJJ=CStr(CJJCJCC):if CJJJCJJ="0" then
CJCCCCJ=""
else
dim CJJJJCJ:set CJJJJCJ=CCJJC.execute(CCJJCJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCCCCJ & CCJJCJJ(" ,H96C6 ,:5l") & CJJCJCC):if CJJJJCJ.eof then
Call UpdateCache(CJJCJCC,"","","",""):Call RedirectMessage(CCJJCJJ("??????,xs??,") & CJJCJCC & CCJJCJJ("??,????????,????????????????????,"))
else
if CJJJJCJ(0)=0 then
CJCCCCJ="0," & CJJCJCC
else
CJCCCCJ=CJCCCJC(CJJJJCJ(0)) & CCJJCJJ("[") & CJJCJCC
end if:if CJJJJCJ(2)<>CJCCCCJ then
CCJJC.execute CCJJCJJ("FA52E6 ,") & CCCCCJ & CCJJCJJ(" ,D6E ,A2E9lV") & CJCCCCJ & CCJJCJJ("V ,H96C6 ,:5l") & CJJCJCC
else
CJCCCCJ=CJJJJCJ(2)
end if
end if:Call UpdateCache(CJJCJCC,CJJJJCJ(0),CJJJJCJ(1),CJCCCCJ,CJJJJCJ(3)):CJJJJCJ.Close: Set CJJJJCJ = Nothing
end if:End Function::Public Function CJCCCCC(CJJCJCC):CJCCCCC = Mid(CJCCCJC(CJJCJCC), 3):End Function:Public Function CCJJJJJ(CJJCJCC):Dim CCJJJC, CCJCJC, CJJJCCJ,Str, CJJJCJC, CJJCJJJ, CCJJCJ():CJJJCJC = CJCCCCC(CJJCJCC):CJJJCJC = Split(CJJJCJC, CCJJCJJ("[")):for CCJJJC=0 to Ubound(CJJJCJC):CJJJCCJ=CJJJCJC(CCJJJC):str=str & CCJJCJJ("M") & CJJJCCJ & CCJJCJJ("M") & GetCurName(CJJJCCJ):next:if str<>"" then str=Mid(str,2)
CCJJJJJ=str:End Function::Public Sub WritePosition(CJJCJCC):Dim CCJJCJ, CCJJJC, CJJCJJJ:If Cstr(CJJCJCC) = "0" Then
Response.Write CCJJCJJ("??")
Else
Response.Write (CCJJCJJ("k2 ,9C67lVn!2Cxsl_Vm??k^2m") & CCJJCJJ("??,"))
CCJJCJ = Split(CCJJJJJ(CJJCJCC), CCJJCJJ("M")):CJJCJJJ = UBound(CCJJCJ):For CCJJJC = 0 To CJJCJJJ - 2 Step 2:Response.Write CCJJCJJ("k2 ,9C67lVn!2Cxsl") & CCJJCJ(CCJJJC) & CCJJCJJ("V ,E:E=6lV") & CCJJCJ(CCJJJC) & CCJJCJJ("Vm") & CCJJCJ(CCJJJC + 1) & CCJJCJJ("k^2m") & CCJJCJJ("??,")
Next:Response.Write CCJJCJJ("kDA2? ,E:E=6lV") & CJJCJCC & CCJJCJJ("Vm") & CCJJCJ(CJJCJJJ) & CCJJCJJ("k^DA2?m")
End If:End Sub:::::::::::Public Function AddType(CJJJCCJ, CJJCCJC):Dim CJJCJJC, CJJJCJC:If CStr(CJJJCCJ) = "0" Then
CJJCJJC = CJCJCJC:CJJJCJC = "0," & CJJCJJC
Else
CJJJCJC = CJCCCJC(CJJJCCJ):if CJJJCJC="" then
Call RedirectMessage(CCJJCJJ("????????,??????????????,????,??????,") & CJJJCCJ & CCJJCJJ("??,"))
else
CJJCJJC = CJCJCJC:CJJJCJC = CJJJCJC & CCJJCJJ("[") & CJJCJJC
end if
end if:CCCJC = CCJJCJJ(":?D6CE ,:?E@ ,") & CCCCCJ & CCJJCJJ("W:5[A2C:5[?2>6[A2E9[D@CEX ,G2=F6DW") & CJJCJJC & CCJJCJJ("[") & CJJJCCJ & CCJJCJJ("[V") & CJJCCJC & CCJJCJJ("V[V") & CJJJCJC & CCJJCJJ("V[") & CJJCJJC & CCJJCJJ("X")
CCJJC.Execute CCCJC:Call UpdateCache(CJJCJJC,CJJJCCJ,CJJCCJC,CJJJCJC,CJJCJJC):AddType = CJJCJJC:End Function:::Public Sub DeleteType(CJJCJCC):dim CCCJCJ:set CCCJCJ=CCJJC.execute(CCJJCJJ("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CCCCCJ & CCJJCJJ(" ,H96C6 ,A2C:5l") & CJJCJCC):if CCCJCJ.eof then
CCJJC.Execute CCJJCJJ("56=6E6 ,7C@> ,") & CCCCCJ & CCJJCJJ(" ,H96C6 ,:5l") & CJJCJCC:Call UpdateCache(CJJCJCC,"","","","")
else
Call RedirectMessage(CCJJCJJ("??????????@??????????,????????????????,"))
end if:CCCJCJ.close : set CCCJCJ=nothing:End Sub:::Public Sub ClearCache():Application.Contents.Remove CCCCCC
End Sub:Public Sub UpdateCache(CJJCJCC,CJJJCCJ,CCJCCJJ,CJJJCJC,CCJCCJC):dim CCJJJC,CCJCJC:CJJCJCC=CLng(CJJCJCC):CCJJJC=CJCCJCC(CJJCJCC):if CJJJCCJ="" and CCJCCJJ="" and CJJJCJC="" and CCJCCJC="" then
if CCJJJC>0 then
for CCJCJC=1 to 4:CCCJCC(CCJJJC,CCJCJC)=Null:next
end if
else
if CCJJJC=0 then
for CCJCJC=1 to CCCCJC:if CCCJCC(CCJCJC,1) & ""="" then
CCJJJC=CCJCJC:exit for
end if:next
end if:if CCJJJC=0 then
Call ClearCache
else
CCCJCC(CCJJJC,0)=CLng(CJJCJCC):if CJJJCCJ<>"" then CCCJCC(CCJJJC,1)=CLng(CJJJCCJ)
if CCJCCJJ<>"" then CCCJCC(CCJJJC,2)=CCJCCJJ
if CJJJCJC<>"" then CCCJCC(CCJJJC,3)=CJJJCJC
if CCJCCJC<>"" then CCCJCC(CCJJJC,4)=CLng(CCJCCJC)
end if
end if:if CCJJJC>0 then
Application.Lock():Application(CCCCCC) = CCCJCC:Application.UnLock()
end if:End Sub:Private Sub Debug(CCJCJJC):Call ConnClose:Response.Write CCJCJJC:Response.End:End Sub:Private Function CJCJCJC():CJCJCJC=CCJJJCJ+1:End Function:Private Function CCJJJCJ():dim CCCJCJ:set CCCJCJ=CCJJC.execute(CCJJCJJ("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CCCCCJ & CCJJCJJ(" ,@C56C ,3J ,:5 ,56D4")):CCJJJCJ=CCCJCJ(0):CCCJCJ.Close: Set CCCJCJ = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Call CheckRight(25):Const CJCJJCJ="<span style='color:#070;'>??</span>"
dim CCCJCC:set CCCJCC=new jtree:CCCJCC.table=CCJJCJJ("D49@@=0>6?F"):dim CJJCJCJ,CJJJCCJ,CCJJJC,CJJCJCC,CJJCCJJ:CJJCJCJ=Request.QueryString(CCJJCJJ("24E")):CJJJCCJ=Request.QueryString(CCJJCJJ("A2C:5")):CJJCJCC=Request.QueryString(CCJJCJJ(":5")):if not CJCJCJJ(CJJJCCJ) then CJJJCCJ=0
CJJCCJJ=CCCJCC.GetCurName(CJJJCCJ):if CJJCJCJ=CCJJCJJ("4=62C42496") then
Application.Contents.Remove CCJJCJJ("!$*0") & ucase(CCCJCC.table)
elseif CJJCJCJ=CCJJCJJ("56=") and CJCJCJJ(CJJCJCC) then
Call CCCJCC.DeleteType(CJJCJCC):Response.Redirect CCJJCJJ("nA2C:5l") & CJJJCCJ
end if:If Request.ServerVariables(CCJJCJJ("#t""&t$%0|t%w~s"))=CCJJCJJ("!~$%") then
dim CJJCCJC,CJJCCCJ:CJJCCJC=request.Form(CCJJCJJ("?2>6")):CJJCCCJ=request.Form(CCJJCJJ("D@CE")):if CJJCJCJ=CCJJCJJ("255") then
CJJCJCC=CCCJCC.AddType(CJJJCCJ,CJJCCJC):CCCJC=CCJJCJJ("FA52E6 ,") & CCCJCC.table & CCJJCJJ(" ,D6E") & CCJJCJJ(" ,:?EC@lV") & request.Form(CCJJCJJ(":?EC@")) & CCJJCJJ("V") & CCJJCJJ("[D@CEl") & CJJCCCJ  & CCJJCJJ("[:4@?lV") & request.Form(CCJJCJJ(":4@?")) & CCJJCJJ("V") & CCJJCJJ("[FC=lV") & request.Form(CCJJCJJ("FC=")) & CCJJCJJ("V") & CCJJCJJ("[,C:89E.lV") & request.Form(CCJJCJJ("C:89E")) & CCJJCJJ("V") & CCJJCJJ("[766l") & cint(request.Form(CCJJCJJ("766"))) & CCJJCJJ(" ,H96C6 ,:5l") & CJJCJCC
CCJJC.execute CCCJC
elseif CJJCJCJ=CCJJCJJ(">@5") then
CCCJC=CCJJCJJ("FA52E6 ,") & CCCJCC.table & CCJJCJJ(" ,D6E") & CCJJCJJ(" ,?2>6lV") & CJJCCJC & CCJJCJJ("V") & CCJJCJJ("[:?EC@lV") & request.Form(CCJJCJJ(":?EC@")) & CCJJCJJ("V") & CCJJCJJ("[D@CEl") & CJJCCCJ  & CCJJCJJ("[:4@?lV") & request.Form(CCJJCJJ(":4@?")) & CCJJCJJ("V") & CCJJCJJ("[FC=lV") & request.Form(CCJJCJJ("FC=")) & CCJJCJJ("V") & CCJJCJJ("[,C:89E.lV") & request.Form(CCJJCJJ("C:89E")) & CCJJCJJ("V") & CCJJCJJ("[766l") & cint(request.Form(CCJJCJJ("766"))) & CCJJCJJ(" ,H96C6 ,:5l") & CJJCJCC
CCJJC.execute CCCJC:Call CCCJCC.UpdateCache(CJJCJCC,"",CJJCCJC,"",CJJCCCJ)
end if:CJJCJCJ=""
End If:Response.Write(vbCrLf):Response.Write(CCJJCJJ("kP5@4EJA6 ,9E>=m") & vbCrLf):Response.Write(CCJJCJJ("k9E>=m") & vbCrLf):Response.Write(CCJJCJJ("k9625m") & vbCrLf):Response.Write(CCJJCJJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CCJJCJJ("kE:E=6m??????????k^E:E=6m") & vbCrLf):Response.Write(CCJJCJJ("k=:?< ,9C67lQ]]^DEJ=6]4DDQ ,C6=lQDEJ=6D966EQm") & vbCrLf):Response.Write(CCJJCJJ("k=:?< ,9C67lQ^$4C:AED^7@?E\2H6D@>6^4DD^7@?E\2H6D@>6]>:?]4DDQ ,C6=lQDEJ=6D966EQm") & vbCrLf):Response.Write(CCJJCJJ("kDEJ=6mk^DEJ=6m") & vbCrLf):Response.Write(CCJJCJJ("k^9625m") & vbCrLf):Response.Write(CCJJCJJ("k3@5Jm") & vbCrLf):Response.Write(CCJJCJJ("k5:G ,4=2DDlQE:E=6Qm,k2 ,9C67lQn24El4=62C42496UA2C:5l")):Response.Write  CJJJCCJ:Response.Write(CCJJCJJ("Q ,E:E=6lQ??????????????????,??????????????Qm??@??????k^2m.??????????,") & vbCrLf):Response.Write(CCJJCJJ(" ,")):Call CCCJCC.WritePosition(CJJJCCJ):Response.Write(vbCrLf):Response.Write(CCJJCJJ("k^5:Gm") & vbCrLf):Response.Write(CCJJCJJ("k7@C> ,?2>6lQ7@C>`Q ,>6E9@5lQA@DEQ ,24E:@?lQQm") & vbCrLf):Response.Write(CCJJCJJ(" ,kE23=6 ,4=2DDlQE30=:DEQm") & vbCrLf):Response.Write(CCJJCJJ(" ,kECm") & vbCrLf):Response.Write(CCJJCJJ(" ,kE9mxsk^E9m") & vbCrLf):Response.Write(CCJJCJJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CCJJCJJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CCJJCJJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CCJJCJJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CCJJCJJ(" ,kE9m????????k^E9m") & vbCrLf):Response.Write(CCJJCJJ(" ,kE9 ,E:E=6lQ??????????,k3Cm`\??????????????????k3Cma\??????????????????????????,????????????k3Cmb\????????????????????,????????????????Qm????WnXk^E9m") & vbCrLf):Response.Write(CCJJCJJ(" ,kE9 ,E:E=6lQ????????????????????????,????????????????????Qm??????WnXk^E9m") & vbCrLf):Response.Write(CCJJCJJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CCJJCJJ(" ,k^ECm") & vbCrLf):Response.Write(CCJJCJJ(" ,")):dim CJJCCCC:set CCJCC=CCJJC.execute(CCJJCJJ("D6=64E ,:5[,C:89E.[?2>6[:?EC@[D@CE[:4@?[FC=[766 ,7C@> ,") & CCCJCC.table & CCJJCJJ(" ,H96C6 ,A2C:5l") & CJJJCCJ & CCJJCJJ(" ,@C56C ,3J ,D@CE[:5")):while not CCJCC.eof:CJJCCCC=CCJCC(0):If CJJCJCJ=CCJJCJJ(">@5") and Cstr(CJJCCCC)=CJJCJCC Then
Response.Write(vbCrLf):Response.Write(CCJJCJJ(" ,kECm") & vbCrLf):Response.Write(CCJJCJJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  CJJCCCC:Response.Write(CCJJCJJ("k^E5m") & vbCrLf):Response.Write(CCJJCJJ(" ,kE5mk:?AFE ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,?2>6lQ?2>6Q ,G2=F6lQ")):Response.Write  CCJCC(2):Response.Write(CCJJCJJ("Q ,D:K6lQa_Qmk^E5m") & vbCrLf):Response.Write(CCJJCJJ(" ,kE5mk:?AFE ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,?2>6lQ:?EC@Q ,G2=F6lQ")):Response.Write  CCJCC(3):Response.Write(CCJJCJJ("Q ,D:K6lQb_Qmk^E5m") & vbCrLf):Response.Write(CCJJCJJ(" ,kE5mk:?AFE ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,?2>6lQD@CEQ ,D:K6lQbQ ,G2=F6lQ")):Response.Write  CCJCC(4):Response.Write(CCJJCJJ("Qmk^E5m") & vbCrLf):Response.Write(CCJJCJJ(" ,kE5mk:?AFE ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,?2>6lQ:4@?Q ,G2=F6lQ")):Response.Write  CCJCC(5):Response.Write(CCJJCJJ("Q ,D:K6lQ`_Qmk^E5m") & vbCrLf):Response.Write(CCJJCJJ(" ,kE5mk:?AFE ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,?2>6lQFC=Q ,G2=F6lQ")):Response.Write  CCJCC(6):Response.Write(CCJJCJJ("Q ,D:K6lQc_Qmk^E5m") & vbCrLf):Response.Write(CCJJCJJ(" ,kE5mk:?AFE ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,?2>6lQ766Q ,G2=F6lQ")):Response.Write  CCJCC(7):Response.Write(CCJJCJJ("Q ,D:K6lQaQmk^E5m") & vbCrLf):Response.Write(CCJJCJJ(" ,kE5mk:?AFE ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,?2>6lQC:89EQ ,G2=F6lQ")):Response.Write  CCJCC(1):Response.Write(CCJJCJJ("Q ,D:K6lQa_Qmk^E5m") & vbCrLf):Response.Write(CCJJCJJ(" ,kE5 ,2=:8?lQC:89EQmk2 ,9C67lQ;2G2D4C:AEi5@4F>6?E]7@C>`]DF3>:EWXjQm????k^2m ,k2 ,9C67lQnA2C:5l")):Response.Write  CJJJCCJ:Response.Write(CCJJCJJ("Qm????k^2mk^E5m") & vbCrLf):Response.Write(CCJJCJJ(" ,k^ECm") & vbCrLf):Response.Write(CCJJCJJ(" ,"))
Else
Response.Write(vbCrLf):Response.Write(CCJJCJJ(" ,kECm") & vbCrLf):Response.Write(CCJJCJJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  CJJCCCC:Response.Write(CCJJCJJ("k^E5m") & vbCrLf):Response.Write(CCJJCJJ(" ,kE5mk2 ,9C67lQn!2Cxsl")):Response.Write  CJJCCCC:Response.Write(CCJJCJJ("Qm")):Response.Write  CCJCC(2):Response.Write(CCJJCJJ("k^2mk^E5m") & vbCrLf):Response.Write(CCJJCJJ(" ,kE5m")):Response.Write  CCJCC(3):Response.Write(CCJJCJJ("k^E5m") & vbCrLf):Response.Write(CCJJCJJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  CCJCC(4):Response.Write(CCJJCJJ("k^E5m") & vbCrLf):Response.Write(CCJJCJJ(" ,kE5 ,2=:8?lQ46?E6CQmk: ,4=2DDlQ72 ,72\")):Response.Write  CCJCC(5):Response.Write(CCJJCJJ("Qmk^:mk^E5m") & vbCrLf):Response.Write(CCJJCJJ(" ,kE5m")):Response.Write  CCJCC(6):Response.Write(CCJJCJJ("k^E5m") & vbCrLf):Response.Write(CCJJCJJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  CCJCC(7):Response.Write(CCJJCJJ("k^E5m") & vbCrLf):Response.Write(CCJJCJJ(" ,kE5m")):Response.Write  CCJCC(1):Response.Write(CCJJCJJ("k^E5m") & vbCrLf):Response.Write(CCJJCJJ(" ,kE5 ,2=:8?lQC:89EQmk2 ,9C67lQn:5l")):Response.Write  CJJCCCC:Response.Write(CCJJCJJ("U24El>@5UA2C:5l")):Response.Write  CJJJCCJ:Response.Write(CCJJCJJ("Qm????k^2m ,k2 ,9C67lQn24El56=UA2C:5l")):Response.Write  CJJJCCJ:Response.Write(CCJJCJJ("U:5l")):Response.Write  CJJCCCC:Response.Write(CCJJCJJ("Qm????k^2mk^E5m") & vbCrLf):Response.Write(CCJJCJJ(" ,k^ECm") & vbCrLf):Response.Write(CCJJCJJ(" ,"))
end if:CCJCC.movenext:wend:If CJJCJCJ=CCJJCJJ("255") Then
Response.Write(vbCrLf):Response.Write(CCJJCJJ(" ,kECm") & vbCrLf):Response.Write(CCJJCJJ(" ,kE5mk^E5m") & vbCrLf):Response.Write(CCJJCJJ(" ,kE5mk:?AFE ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,?2>6lQ?2>6Q ,D:K6lQa_Qmk^E5m") & vbCrLf):Response.Write(CCJJCJJ(" ,kE5mk:?AFE ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,?2>6lQ:?EC@Q ,D:K6lQb_Qmk^E5m") & vbCrLf):Response.Write(CCJJCJJ(" ,kE5mk:?AFE ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,?2>6lQD@CEQ ,D:K6lQbQ ,G2=F6lQ_Qmk^E5m") & vbCrLf):Response.Write(CCJJCJJ(" ,kE5mk:?AFE ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,?2>6lQ:4@?Q ,D:K6lQ`_Qmk^E5m") & vbCrLf):Response.Write(CCJJCJJ(" ,kE5mk:?AFE ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,?2>6lQFC=Q ,D:K6lQc_Qmk^E5m") & vbCrLf):Response.Write(CCJJCJJ(" ,kE5mk:?AFE ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,?2>6lQ766Q ,D:K6lQaQ ,G2=F6lQ`Qmk^E5m") & vbCrLf):Response.Write(CCJJCJJ(" ,kE5mk:?AFE ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,?2>6lQC:89EQ ,D:K6lQa_Qmk^E5m") & vbCrLf):Response.Write(CCJJCJJ(" ,kE5 ,2=:8?lQC:89EQmk2 ,9C67lQ;2G2D4C:AEi5@4F>6?E]7@C>`]DF3>:EWXjQm????k^2m ,k2 ,9C67lQnA2C:5l")):Response.Write  CJJJCCJ:Response.Write(CCJJCJJ("Qm????k^2mk^E5m") & vbCrLf):Response.Write(CCJJCJJ(" ,k^ECm") & vbCrLf):Response.Write(CCJJCJJ(" ,"))
Else
Response.Write(vbCrLf):Response.Write(CCJJCJJ(" ,kECm") & vbCrLf):Response.Write(CCJJCJJ(" ,kE5 ,4@=DA2?lQhQ ,2=:8?lQC:89EQmk2 ,9C67lQn!2Cxsl")):Response.Write  CJJJCCJ:Response.Write(CCJJCJJ("Up4El255Qm????k^2mk^E5m") & vbCrLf):Response.Write(CCJJCJJ(" ,k^ECm") & vbCrLf):Response.Write(CCJJCJJ(" ,"))
end if:Response.Write(vbCrLf):Response.Write(CCJJCJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CCJJCJJ(" ,k3Cm") & vbCrLf):Response.Write(CCJJCJJ(" ,k@=m") & vbCrLf):Response.Write(CCJJCJJ(" ,k=:m????????????????b????,k^=:m") & vbCrLf):Response.Write(CCJJCJJ(" ,k=:m??????????????????,$EF56?E.??????????,,!2C6?E.??????????,??????????,k^=:m") & vbCrLf):Response.Write(CCJJCJJ(" ,k=:m????????????????????,k2 ,9C67lQ9EEAi^^2>2K6F:]@C8^4DD^:4@?RDF@\J@F\EF\3:2@\=:6\3:2@Q ,E2C86ElQ03=2?<Qm????k^2m.??,????????????????????,??????????????????????,k^=:m") & vbCrLf):Response.Write(CCJJCJJ(" ,k^@=m") & vbCrLf):Response.Write(CCJJCJJ("k^7@C>m") & vbCrLf):Response.Write(CCJJCJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm ,") & vbCrLf):Response.Write(CCJJCJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E23=6];DQmk^D4C:AEm ,") & vbCrLf):Response.Write(CCJJCJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E:E=6];DQmk^D4C:AEm ,") & vbCrLf):Response.Write(CCJJCJJ("kD4C:AEm") & vbCrLf):Response.Write(CCJJCJJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CCJJCJJ(" ,SWQE23=6]E30=:DEQX];%23=6WX]7:?5WVE9,E:E=6.VX];%:E=6WXj") & vbCrLf):Response.Write(CCJJCJJ(" ,^^??????????@????????") & vbCrLf):Response.Write(CCJJCJJ(" ,SWVE23=6]E30=:DE ,E5m2i4@?E2:?DWQ????QXVX]@?WV4=:4<V[7F?4E:@?WXL:7WP4@?7:C>WV??????,??????????????????,????????????????????????,-?-?????,??????,????-?????,??????,??????VXXLC6EFC? ,72=D6jNNXj") & vbCrLf):Response.Write(CCJJCJJ("NXj") & vbCrLf):Response.Write(CCJJCJJ("k^D4C:AEm") & vbCrLf):Response.Write(CCJJCJJ("k^3@5Jm") & vbCrLf):Response.Write(CCJJCJJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCCJCC=nothing:set CJCJCCJ=nothing:set CJCJCCC=nothing:set CJCCJJJ=nothing:CCCJJ.Close:Set CCCJJ=Nothing:CCJCC.Close:Set CCJCC=Nothing:CCJJC.Close:Set CCJJC = Nothing:err.Clear:On Error Goto 0
Function CCJJCJJ(ByVal CCJJJCC)
Dim CJCJJJJ, CCJJJC, CCJCCC
CCJJJCC = Replace(CCJJJCC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CCJJJC = 1 To Len(CCJJJCC)
If CCJJJC <> CCJCCC Then
CJCJJJJ = AscW(Mid(CCJJJCC, CCJJJC, 1))
If CJCJJJJ >= 33 And CJCJJJJ <= 79 Then
CCJJCJJ = CCJJCJJ & Chr(CJCJJJJ + 47)
ElseIf CJCJJJJ >= 80 And CJCJJJJ <= 126 Then
CCJJCJJ = CCJJCJJ & Chr(CJCJJJJ - 47)
Else
CCJCCC = CCJJJC + 1
If Mid(CCJJJCC, CCJCCC, 1) = Chr(64) Then CCJJCJJ = CCJJCJJ & ChrW(CJCJJJJ + 5) Else CCJJCJJ = CCJJCJJ & Mid(CCJJJCC, CCJJJC, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de