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

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJJJJCJ, CJJJJCC,CJJJCJJ, CJJJCJC, CJJJCCJ:Set CJJJJCJ = server.CreateObject(CJJJJCCJ("ps~sq]r@??64E:@?")):CJJJJCJ.open Application(CJJJJCCJ("r@??64E:@?$EC:?8")):Set CJJJJCC=CJJJJCJ::Dim CJJJCCC,CJJCJJJ,CJJCJJC,CJJCJCJ,CJJCJCC,CJJCCJJ,CJJCCJC,CJJCCCJ,CJJCCCC:Dim CJCJJJJ,CJCJJJC,CJCJJCJ,CJCJJCC,CJCJCJJ,CJCJCJC:Dim CJCJCCJ,CJCJCCC,CJCCJJJ:Dim CJCCJJC:CJCCJJC=Trim(Request.Cookies(CJJJJCCJ("!$*|t|qt#"))):if CJCCJJC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJJJCCC>0 then
CJJJCCJ=CJJJJCCJ("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") & CJJCJJJ & CJJJJCCJ("V ,2?5 ,:5l") & CJJJCCC
set CJJJCJJ=CJJJJCJ.execute(CJJJCCJ):If CJJJCJJ.EOF Then
Call ClearMemberCookie
Else
CJJCJJC=CJJJCJJ(2) & "":CJJCJCJ=CJJJCJJ(3):CJJCJCC=CJJJCJJ(5):CJJCCJJ=CJJJCJJ(6):CJJCCJC=CJJJCJJ(9):CJJCCCJ=CJJJCJJ(15):CJCJJJJ=CJJJCJJ(0):CJCJCCC=CJJJCJJ(1):CJCJCCJ=CJJJCJJ(11) & "":CJCJJJC=CJJJCJJ(10) & "":CJJCCCC=CJJJCJJ(12):CJCJJCJ=CJJJCJJ(14):CJCJJCC=CJJJCJJ(13):CJCJCJJ=CJJJCJJ(7) & "":CJCJCJC=CJJJCJJ(4):CJCCJJJ=CJJJCJJ(8):if isnull(CJJCCCJ) then CJJCCCJ=0
if isnull(CJJCCJC) or CJJCCJC=0 then CJJCCJC=CJJCJCJ
if isnull(CJCJCJC) then CJCJCJC=0
if isnull(CJJCJCC) then CJJCJCC=0
if instr(CJJJJCCJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJCJJJ)>0 then Call RedirectMessage(CJJJJCCJ("????????,????????????????????????????????,"))
Call SetMemberCookie(CJJJCCC,CJJCJJJ)
End IF
end if:::Sub CheckLogined():if CJJJCCC=0 then
Call ClearMemberCookie:Call ConnClose:dim CJCCJCJ:CJCCJCJ=trim(request.QueryString(CJJJJCCJ("D49@@="))):if isnumeric(CJCCJCJ) then
response.Redirect CJJJJCCJ("^>^G2?E^R^D49@@=^") & CJCCJCJ & CJJJJCCJ("^DEF56?E^=@8:?nC65:C64El") & CCJJJCJ
else
Call RedirectMessage(CJJJJCCJ("??????????????,????????????,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CJJJJCCJ("!$*|t|qt#"))="":CJJJCCC=0:CJJCCJJ=0:CJJCJJJ=Empty:CJJCJCC=0:CJJCCCJ=0:CJJCCJC=0:CJJCJCJ=0:CJCJJJJ=False:CJCJCCC=False:CJCCJJJ=Empty:End Sub:Sub CheckMemberCookie():dim CJCCJCC,CJCCCJJ,CJCCCJC,CJCCCCJ,CJCCCCC:CJCCJCC=split(CJCCJJC,CJJJJCCJ("]")):if ubound(CJCCJCC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJCCJCC(0)) or len(CJCCJCC(1))<>32 or len(CJCCJCC(2))<>32 then
Call ClearMemberCookie
else
CJCCCJJ=CJCCJCC(1):for CJCCCJC=1 to len(CJCCCJJ):CJCCCCJ=mid(CJCCCJJ,CJCCCJC,1):if isnumeric(CJCCCCJ) then CJCCCCC=CJCCCCC & CJCCCCJ
if len(CJCCCCC)=7 then exit for
next:CJCCCJJ=CJCCJCC(2):if CJCCCCC<>mid(CJCCCJJ,6,7) then
Call ClearMemberCookie
else
CJCCCCJ=mid(CJCCCJJ,18,10)/2:if CJCCCCJ<DateDiff(CJJJJCCJ("D"), CJJJJCCJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJJJCCC=Clng(CJCCJCC(0)):CJJCJJJ=CJCCJCC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJJJJJCC,CJJJJCCC):dim CJCCCJC,CJCCCCJ,CJCCCCC:for CJCCCJC=1 to len(CJJJJCCC):CJCCCCJ=mid(CJJJJCCC,CJCCCJC,1):if isnumeric(CJCCCCJ) then CJCCCCC=CJCCCCC & CJCCCCJ
if len(CJCCCCC)=7 then exit for
next:CJCCCCC=CJJJJJCC & CJJJJCCJ("]") & CJJJJCCC & CJJJJCCJ("]") & Fix(10000*(Rnd+1)) & CJCCCCC & Fix(10000*(Rnd+1)) & DateDiff(CJJJJCCJ("D"), CJJJJCCJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJJJJCCJ("!$*|t|qt#"))=CJCCCCC:End Sub:::Function IIf(CJJJCJJJ, CJJJCJJC, CJJJCJCJ):if isnull(CJJJCJJJ) or isempty(CJJJCJJJ) then
IIf = CJJJCJCJ
elseif CJJJCJJJ Then
IIf = CJJJCJJC
Else
IIf = CJJJCJCJ
end if:End Function:Const CCCJCCJ="^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 CJCCCJC,CJCCCCJ,CCJJJJJ:if isarray(str) then
on error resume next:CJCCCJC=ubound(str,2):CCJJJJJ=err.number:err.clear:on error goto 0:if CCJJJJJ<>0 then
for CJCCCJC=0 to ubound(str):if CJCCCJC>0 then response.Write CJJJJCCJ("k3C ,^m")
response.Write CJCCCJC & CJJJJCCJ("i ,") & str(CJCCCJC):next
else
response.Write CJJJJCCJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CJCCCJC=0 to ubound(str,2):response.Write CJJJJCCJ("kE9 ,2=:8?lV=67EVm") & CJCCCJC & CJJJJCCJ("k^E9m")
next:response.Write CJJJJCCJ("k^ECm"):for CJCCCJC=0 to ubound(str):response.Write CJJJJCCJ("kECmkE9m") & CJCCCJC & CJJJJCCJ("k^E9m"):for CJCCCCJ=0 to ubound(str,2):response.Write CJJJJCCJ("kE5m") & str(CJCCCJC,CJCCCCJ) & CJJJJCCJ("k^E5m"):next:response.Write CJJJJCCJ("k^ECm"):next:response.Write CJJJJCCJ("k^E23=6m")
end if
elseif isnull(str) then
response.Write CJJJJCCJ(",}F==.")
else
Response.Write replace(str,vbcrlf,CJJJJCCJ("k3Cm"))
end if:Call ConnClose:Response.End:End Sub:Public Function CCCCJJJ():Dim CCJJJJC, CCJJJCJ:CCJJJCJ = Request.ServerVariables(CJJJJCCJ("!p%w0x}u~")):CCJJJJC = Request.ServerVariables(CJJJJCCJ("""&t#*0$%#x}v")):If CCJJJJC <> Empty Then
if instr(lcase(CCJJJJC),CJJJJCCJ("Tb4:7C2>6"))>0 or instr(lcase(CCJJJJC),CJJJJCCJ("Tb4D4C:AE"))>0 then Call RedirectMessage(CJJJJCCJ("????????,????????????????????????,??,??,"))
CCJJJCJ = CCJJJCJ & CJJJJCCJ("n") & CCJJJJC
end if:CCCCJJJ = CCJJJCJ:End Function:Sub SetHttpOnlyCookie(CJJJCCJJ,CJJJCCJC):dim CJCCJCC:CJCCJCC=CJJJCCJJ & CJJJJCCJ("l") & CJJJCCJC & CJJJJCCJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJJJCCJ("$6E\r@@<:6"),CJCCJCC):End Sub:::::::Function CCCCJJC(CCJJJJJ):if isnull(CCJJJJJ) or trim(CCJJJJJ)="" or not isnumeric(CCJJJJJ) then
CCCCJJC=false
else
Dim CCJJJCC:Set CCJJJCC = New RegExp:CCJJJCC.Pattern = CJJJJCCJ("/-5ZS"):CCJJJCC.IgnoreCase = True:CCCCJJC = CCJJJCC.test(CCJJJJJ):set CCJJJCC=nothing
end if:End Function:Function CCCCJCJ(CJJJCCCJ):dim CCJJCJJ,CCJJCJC:CCJJCJJ=CJJJJCCJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJJJCCCJ & CJJJJCCJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CCJJCJC=CJJJJCJ.execute(CCJJCJJ):CCCCJCJ = CCJJCJC(0):if isnull(CCCCJCJ) then CCCCJCJ=1
CCJJCJC.close : set CCJJCJC=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CCJJCCJ=nothing:set CCCCJCC=nothing:set CCCCCJJ=nothing:set CCCCCJC=nothing:CCJJCJC.close : set CCJJCJC=nothing:CJJJCJC.Close : Set CJJJCJC=Nothing:CJJJCJJ.Close : Set CJJJCJJ=Nothing:CCCCCCJ.Close : Set CCCCCCJ = Nothing:CJJJJCJ.Close : Set CJJJJCJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJJCCCC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJJJCCJ("!$*0|6DD286"),server.URLEncode(CJJJCCCC)):Response.Redirect CJJJJCCJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::::::::::::Sub ClearCache(CJJCJJJJ):Application.Contents.Remove CJJCJJJJ
End Sub::Class jTree:Private CJJJCCJ, CCJJCCJ, CCJJCCC, CCJCJJJ,CCJCJJC,CCJCJCJ,CCJCJCC,CCJCCJJ:Private Sub Class_Initialize():CCJJCCC = 0:CCJCJJJ = 0:CCJCCJJ=10:End Sub:Public Property Let CCCCCCC(CJJCJJJC):if CJJCJJJC="" then Call RedirectMessage(CJJJJCCJ("????????,;%C66????????????????????@??????????,"))
CCJCJJC=CJJCJJJC:CCJCJCJ=CJJJJCCJ("!$*0") & UCase(CCJCJJC):Call GetTreeArray:End Property:Public Property Get CCCCCCC():CCCCCCC=CCJCJJC:End Property:::Private Sub GetTreeArray():Dim CJCCCJC, CJCCCCJ, CCJCCJC,CCJCCCJ:CCJJCCJ = Application(CCJCJCJ):If Not IsArray(CCJJCCJ) Then
CJJJCCJ = CJJJJCCJ("D6=64E ,4@F?EW:5X ,7C@> ,") & CCJCJJC:if CCJCJCC<>"" then CJJJCCJ=CJJJCCJ & CJJJJCCJ(" ,H96C6 ,") & CCJCJCC
set CCJCCJC=CJJJJCJ.execute(CJJJCCJ):CCJCCCJ=CCJCCJC(0):if CCJCCCJ=0 then Call RedirectMessage(CJJJJCCJ("????W") & CCJCJJC & CJJJJCCJ("^") & CCJCJCC & CJJJJCCJ("X????????????"))
CCJCJJJ=CCJCCCJ+CCJCCJJ:ReDim CCJJCCJ(CCJCJJJ, 4):CJJJCCJ = CJJJJCCJ("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJCJJC & CJJJJCCJ(" ,H:E9 ,W?@=@4<X"):if CCJCJCC<>"" then CJJJCCJ=CJJJCCJ & CJJJJCCJ(" ,H96C6 ,") & CCJCJCC
CJJJCCJ=CJJJCCJ & CJJJJCCJ(" ,@C56C ,3J ,D@CE[:5"):set CCJCCJC=CJJJJCJ.execute(CJJJCCJ):For CJCCCJC = 1 To CCJCCCJ:For CJCCCCJ = 0 To 4:CCJJCCJ(CJCCCJC, CJCCCCJ) = CCJCCJC(CJCCCCJ):if IsNull(CCJJCCJ(CJCCCJC,4)) then CCJJCCJ(CJCCCJC,4)=0
If CCJJCCJ(CJCCCJC,2)="" then CCJJCCJ(CJCCCJC,2)=CJJJJCCJ(",??.")
Next:CCJCCJC.MoveNext:Next:CCJCCJC.Close: Set CCJCCJC = Nothing:for CJCCCJC=CCJCJJJ-(CCJCCJJ-1) to CCJCJJJ:CCJJCCJ(CJCCCJC,0)=CJCCCJC:next:Application.Lock():Application(CCJCJCJ) = CCJJCCJ:Application.UnLock()
else
CCJCJJJ=Ubound(CCJJCCJ)
End If:End Sub:::::Private Function CJJJJJJJ(CJJJJJCC):dim CJCCCJC,CCJCCCC:CJJJJJJJ=0:CCJCCCC=CStr(CJJJJJCC):if CCJCCCC<>"0" then
for CJCCCJC=1 to CCJCJJJ:If CStr(CCJJCCJ(CJCCCJC, 0))=CCJCCCC Then
CJJJJJJJ = CJCCCJC:Exit For
End If:Next
end if:End Function::::Public Function CJJJJJJC(CJJJJJCC):Dim CJCCCJC,CCCJJJJ:CJCCCJC=CJJJJJJJ(CJJJJJCC):if CJCCCJC=0 then
CCCJJJJ=CJJJJJCJ(CJJJJJCC)
else
CCCJJJJ=CCJJCCJ(CJCCCJC,3):if isnull(CCCJJJJ) or CCCJJJJ="" then
CCCJJJJ=CJJJJJCJ(CJJJJJCC)
elseif Mid(CCCJJJJ,instrrev(CCCJJJJ,CJJJJCCJ("["))+1)<>CStr(CJJJJJCC) then
CCCJJJJ=CJJJJJCJ(CJJJJJCC)
elseif Left(CCCJJJJ,1)=CJJJJCCJ("[") then
CCCJJJJ=CJJJJJCJ(CJJJJJCC)
end if
end if:CJJJJJJC=CCCJJJJ:End Function:Private Function CJJJJJCJ(CJJJJJCC):dim CCJCCCC:CCJCCCC=CStr(CJJJJJCC):if CCJCCCC="0" then
CJJJJJCJ=""
else
dim CCJCCJC:set CCJCCJC=CJJJJCJ.execute(CJJJJCCJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJCJJC & CJJJJCCJ(" ,H96C6 ,:5l") & CJJJJJCC):if CCJCCJC.eof then
Call UpdateCache(CJJJJJCC,"","","",""):Call RedirectMessage(CJJJJCCJ("??????,xs??,") & CJJJJJCC & CJJJJCCJ("??,????????,????????????????????,"))
else
if CCJCCJC(0)=0 then
CJJJJJCJ="0," & CJJJJJCC
else
CJJJJJCJ=CJJJJJJC(CCJCCJC(0)) & CJJJJCCJ("[") & CJJJJJCC
end if:if CCJCCJC(2)<>CJJJJJCJ then
CJJJJCJ.execute CJJJJCCJ("FA52E6 ,") & CCJCJJC & CJJJJCCJ(" ,D6E ,A2E9lV") & CJJJJJCJ & CJJJJCCJ("V ,H96C6 ,:5l") & CJJJJJCC
else
CJJJJJCJ=CCJCCJC(2)
end if
end if:Call UpdateCache(CJJJJJCC,CCJCCJC(0),CCJCCJC(1),CJJJJJCJ,CCJCCJC(3)):CCJCCJC.Close: Set CCJCCJC = Nothing
end if:End Function::::::::::::::::::::::Public Sub ClearCache():Application.Contents.Remove CCJCJCJ
End Sub:Public Sub UpdateCache(CJJJJJCC,CJJCJJCJ,CJJCJJCC,CCCJJJJ,CJJCJCJJ):dim CJCCCJC,CJCCCCJ:CJJJJJCC=CLng(CJJJJJCC):CJCCCJC=CJJJJJJJ(CJJJJJCC):if CJJCJJCJ="" and CJJCJJCC="" and CCCJJJJ="" and CJJCJCJJ="" then
if CJCCCJC>0 then
for CJCCCCJ=1 to 4:CCJJCCJ(CJCCCJC,CJCCCCJ)=Null:next
end if
else
if CJCCCJC=0 then
for CJCCCCJ=1 to CCJCJJJ:if CCJJCCJ(CJCCCCJ,1) & ""="" then
CJCCCJC=CJCCCCJ:exit for
end if:next
end if:if CJCCCJC=0 then
Call ClearCache
else
CCJJCCJ(CJCCCJC,0)=CLng(CJJJJJCC):if CJJCJJCJ<>"" then CCJJCCJ(CJCCCJC,1)=CLng(CJJCJJCJ)
if CJJCJJCC<>"" then CCJJCCJ(CJCCCJC,2)=CJJCJJCC
if CCCJJJJ<>"" then CCJJCCJ(CJCCCJC,3)=CCCJJJJ
if CJJCJCJJ<>"" then CCJJCCJ(CJCCCJC,4)=CLng(CJJCJCJJ)
end if
end if:if CJCCCJC>0 then
Application.Lock():Application(CCJCJCJ) = CCJJCCJ:Application.UnLock()
end if:End Sub:Private Sub Debug(CJJJCCCC):Call ConnClose:Response.Write CJJJCCCC:Response.End:End Sub:Private Function CCCCJCJ():CCCCJCJ=CJJJJCJJ+1:End Function:Private Function CJJJJCJJ():dim CCJJCJC:set CCJJCJC=CJJJJCJ.execute(CJJJJCCJ("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CCJCJJC & CJJJJCCJ(" ,@C56C ,3J ,:5 ,56D4")):CJJJJCJJ=CCJJCJC(0):CCJJCJC.Close: Set CCJJCJC = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::dim CJCCJCJ:CJJJCCJ=Request.ServerVariables(CJJJJCCJ("!p%w0x}u~")):if instr(CJJJCCJ,CJJJJCCJ("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CJCJJJJ and not CJCJCCC then Call RedirectMessage(CJJJJCCJ("????????,????????????????????????,"))
CJCCJCJ=CJJCCJC
elseif instr(CJJJCCJ,CJJJJCCJ("^>^D49@@=^DEF56?E^"))>0 or instr(CJJJCCJ,CJJJJCCJ("^DEF56?E^"))>0 then
Call CheckLogined:CJCCJCJ=CJJCCJC
elseif instr(CJJJCCJ,CJJJJCCJ("^D49@@="))>0 then
CJCCJCJ=Request.QueryString(CJJJJCCJ("D49@@=")):if not CCCCJJC(CJCCJCJ) then CJCCJCJ=Request.QueryString(CJJJJCCJ("F"))
if not CCCCJJC(CJCCJCJ) then CJCCJCJ=Request.QueryString(CJJJJCCJ("D4"))
if not CCCCJJC(CJCCJCJ) then Call RedirectMessage(CJJJJCCJ("????????W$49@@=X??@??????????,"))
CJCCJCJ=csng(CJCCJCJ)
end if:if CJCCJCJ=0 then Call RedirectMessage(CJJJJCCJ("????????W$49@@=X????W_X??,"))
Dim CCCJJJC:Call SetConfig:Sub SetConfig():dim CCCJJCJ,CCJJCJC:CJJJCCJ=CJJJJCCJ("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") & CJCCJCJ:set CCJJCJC=CJJJJCJ.execute(CJJJCCJ):if CCJJCJC.eof then Call RedirectMessage(CJJJJCCJ("??W") & CJJJCCC & CJJJJCCJ("X??????????W") & CJCCJCJ & CJJJJCCJ("X????????,"))
ReDim CCCJJCJ(61):CCCJJCJ(0)=CCJJCJC(CJJJJCCJ(";:2@H6:")) & "":CCCJJCJ(1)=CCJJCJC(CJJJJCCJ("EJA6")):CCCJJCJ(2)=CCJJCJC(CJJJJCCJ("D>D")):CCCJJCJ(3)=CCJJCJC(CJJJJCCJ("4FDE@>8C@FA")) & "":CCCJJCJ(4)=CCJJCJC(CJJJJCCJ("D:5632C0@E96C")) & "":CCCJJCJ(5)=IIf(isnull(CCJJCJC(CJJJJCCJ("E6DEC6DF=EG:6H"))),0,CCJJCJC(CJJJJCCJ("E6DEC6DF=EG:6H"))):CCCJJCJ(6)=CCJJCJC(CJJJJCCJ("K:IF?E:>6")):CCCJJCJ(7)=CCJJCJC(CJJJJCCJ("766")):CCCJJCJ(8)=CCJJCJC(CJJJJCCJ("C6E6DE52J")):CCCJJCJ(9)=CCJJCJC(CJJJJCCJ("6IA:C652E6")):CCCJJCJ(10)=CCJJCJC(CJJJJCCJ("E:E=6")):CCCJJCJ(11)=CCJJCJC(CJJJJCCJ(":?EC@")) & "":CCCJJCJ(12)=CCJJCJC(CJJJJCCJ("A:4EFC6")) & "":CCCJJCJ(13)=CCJJCJC(CJJJJCCJ("72>:=J")):CCCJJCJ(14)=CCJJCJC(CJJJJCCJ("4@AJC:89E")) & "":CCCJJCJ(15)=IIf(isnull(CCJJCJC(CJJJJCCJ("D6>6DE6C0DE2CE052E6"))),CJJJJCCJ("`h__\`\`"),CCJJCJC(CJJJJCCJ("D6>6DE6C0DE2CE052E6"))):CCCJJCJ(16)=IIf(isnull(CCJJCJC(CJJJJCCJ("K:IF?0E:>6D09:89=:89E"))),0,CCJJCJC(CJJJJCCJ("K:IF?0E:>6D09:89=:89E"))):CCCJJCJ(17)=CCJJCJC(CJJJJCCJ("4@?E24E")) & "":CCCJJCJ(18)=CCJJCJC(CJJJJCCJ("D2?5E23=6")):CCCJJCJ(19)=CCJJCJC(CJJJJCCJ("4C:D:D")):CCCJJCJ(20)=CCJJCJC(CJJJJCCJ("JJ52E6")):CCCJJCJ(21)=CCJJCJC(CJJJJCCJ("BB")):CCCJJCJ(22)=CCJJCJC(CJJJJCCJ("JFJF60D>D0EA=")) & "":CCCJJCJ(23)=CCJJCJC(CJJJJCCJ("JFJF60E6DE0=3")) & "":CCCJJCJ(25)=CCJJCJC(CJJJJCCJ("6IA6CE")):CCCJJCJ(26)=CCJJCJC(CJJJJCCJ(">@5:?7@")):CCCJJCJ(27)=CCJJCJC(CJJJJCCJ("9@>6A286E@AA:4EFC6")) & "":CCCJJCJ(28)=CCJJCJC(CJJJJCCJ("4C:D:D=3")):CCCJJCJ(29)=IIf(CCJJCJC(CJJJJCCJ("4C:D:D@=5")),False,True):CCCJJCJ(30)=CCJJCJC(CJJJJCCJ("8C@FA8F:52?46")):CCCJJCJ(31)=CCJJCJC(CJJJJCCJ("3:@7665324<")):CCCJJCJ(32)=CCJJCJC(CJJJJCCJ("<6JDEC")):CCCJJCJ(33)=CCJJCJC(CJJJJCCJ("=@8@")) & "":CCCJJCJ(34)=CCJJCJC(CJJJJCCJ("K:46")):CCCJJCJ(35)=IIf(CCJJCJC(CJJJJCCJ(":D?6H")),True,False):CCCJJCJ(36)=121:CCCJJCJ(37)=111:CCCJJCJ(38)=160:CCCJJCJ(39)=CCJJCJC(CJJJJCCJ("8F6DE3@@<")):CCCJJCJ(40)=CCJJCJC(CJJJJCCJ("75D")):CCCJJCJ(42)=CCJJCJC(CJJJJCCJ("9@>6=@8:?")):CCCJJCJ(43)=CCJJCJC(CJJJJCCJ("K:IF?0?6657665324<")):CCCJJCJ(44)=CCJJCJC(CJJJJCCJ("K:IF?0E:>6D0=:>:E")):CCCJJCJ(45)=CCJJCJC(CJJJJCCJ("4@>A=6E60:?7@")):CCCJJCJ(46)=CCJJCJC(CJJJJCCJ("E6DE:?EC@")) & "":CCCJJCJ(47)=IIf(isnull(CCJJCJC(CJJJJCCJ("JFJF60367@C60E:>6"))),0,CCJJCJC(CJJJJCCJ("JFJF60367@C60E:>6"))):CCCJJCJ(49)=CCJJCJC(CJJJJCCJ("D>D0C646:G6C")):CCCJJCJ(50)=CCJJCJC(CJJJJCCJ("D>D0D:8?")) & "":CCCJJCJ(52)=CCJJCJC(CJJJJCCJ("JFJF602CC2?86")):CCCJJCJ(53)=IIf(isnull(CCJJCJC(CJJJJCCJ("DEF56?E0BF6DE:@?04@F?E"))),0,CCJJCJC(CJJJJCCJ("DEF56?E0BF6DE:@?04@F?E"))):CCCJJCJ(54)=CCJJCJC(CJJJJCCJ("9:560=30@FE@7286")):CCCJJCJ(55)=CCJJCJC(CJJJJCCJ("JFJF60E6DE052JD")):CCCJJCJ(56)=CCJJCJC(CJJJJCCJ("JFJF60H66<0=:>:E")):CCCJJCJ(57)=CCJJCJC(CJJJJCCJ("JFJF604964<65")):CCCJJCJ(58)=CCJJCJC(CJJJJCCJ("K:IF?0?6657665324<0?6IE")):CCCJJCJ(59)=CCJJCJC(CJJJJCCJ("4964<?6HDEF56?E")):CCCJJCJ(60)=CCJJCJC(CJJJJCCJ("K:IF?04=@D6052E6")):CCJJCJC.close : set CCJJCJC=nothing:if isNull(CCCJJCJ(8)) or CCCJJCJ(8)="" then CCCJJCJ(8)=0
if isdate(CCCJJCJ(9)) then
CCCJJCJ(9)=cdate(CCCJJCJ(9)):if CCCJJCJ(9)<Date then Call RedirectMessage(CJJJJCCJ("????????,????????????????W") & CCCJJCJ(9) & CJJJJCCJ("X??????,"))
end if:if not CCCCJJC(CCCJJCJ(20)) then CCCJJCJ(20)=7
select case CCCJJCJ(1):case 1,2,16:CCCJJCJ(36)=159:case 4,5,6,10,11:CCCJJCJ(36)=190:CCCJJCJ(37)=178:CCCJJCJ(38)=191:case 7,13:CCCJJCJ(36)=164:CCCJJCJ(37)=178:CCCJJCJ(38)=179:end select:CCCJJJC=CCCJJCJ:End Sub:Function CCCCCJC(CJJCJCJC):dim CCCJJCJ(7,1),CJCCCJC,CCCJJCC,CCCJCJJ:CCCJJCC=Array(CJJJJCCJ("$49@@="),CJJJJCCJ("$EF56?E"),CJJJJCCJ("s6AE"),CJJJJCCJ("vC256"),CJJJJCCJ("r=2DD>2E6"),CJJJJCCJ("}F>36C"),CJJJJCCJ("%62496C"),CJJJJCCJ("!2C6?E")):select case CCCJJJC(1):case 1,2 : CCCJCJJ=Array(CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????")):case 3,16 : CCCJCJJ=Array(CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????")):case 4 : CCCJCJJ=Array(CJJJJCCJ("????"),CJJJJCCJ("??????@"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????")):case 5 : CCCJCJJ=Array(CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????")):case 6 : CCCJCJJ=Array(CJJJJCCJ("????"),CJJJJCCJ("??????@"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("??????"),CJJJJCCJ("????")):case 7 : CCCJCJJ=Array(CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("??????"),CJJJJCCJ("????")):case 8 : CCCJCJJ=Array(CJJJJCCJ("????"),CJJJJCCJ("??????@"),CJJJJCCJ("????"),CJJJJCCJ("????????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("??????"),CJJJJCCJ("????")):case 9 : CCCJCJJ=Array(CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("??????"),CJJJJCCJ("????")):case 10 : CCCJCJJ=Array(CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("??????"),CJJJJCCJ("????")):case 11 : CCCJCJJ=Array(CJJJJCCJ("????"),CJJJJCCJ("??????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("??????"),CJJJJCCJ("????")):case 12 : CCCJCJJ=Array(CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("??????"),CJJJJCCJ("????")):case 13 : CCCJCJJ=Array(CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????")):case 14 : CCCJCJJ=Array(CJJJJCCJ("??????"),CJJJJCCJ("??@??"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("??????"),CJJJJCCJ("????")):case 15 : CCCJCJJ=Array(CJJJJCCJ("????"),CJJJJCCJ("????????"),CJJJJCCJ("????"),CJJJJCCJ("????????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("??????"),CJJJJCCJ("????")):case else : CCCJCJJ=CCCJJCC
end select:for CJCCCJC=0 to Ubound(CCCJJCJ):CCCJJCJ(CJCCCJC,0)=CCCJJCC(CJCCCJC):CCCJJCJ(CJCCCJC,1)=CCCJCJJ(CJCCCJC):next:for CJCCCJC=0 to Ubound(CCCJJCJ):if CCCJJCJ(CJCCCJC,0)=CJJCJCJC then
CCCCCJC=CCCJJCJ(CJCCCJC,1):exit for
end if:next:End Function:Response.Write(vbCrLf):Response.Write(CJJJJCCJ("kP5@4EJA6 ,9E>=m") & vbCrLf):Response.Write(CJJJJCCJ("k9E>=m") & vbCrLf):Response.Write(CJJJJCCJ("k9625m") & vbCrLf):Response.Write(CJJJJCCJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJJJJCCJ("kE:E=6m")):Response.Write  CCCJJJC(10):Response.Write(CJJJJCCJ("\????k^E:E=6m") & vbCrLf):Response.Write(CJJJJCCJ("kDEJ=6m") & vbCrLf):Response.Write(CJJJJCCJ("E5[ ,E9[ ,:?AFE[ ,D6=64E ,L ,7@?Ei ,`cAI ,Q??????@??Q[ ,'6C52?2[ ,Q????Qj ,N") & vbCrLf):Response.Write(CJJJJCCJ("k^DEJ=6m") & vbCrLf):Response.Write(CJJJJCCJ("k^9625m") & vbCrLf):Response.Write(CJJJJCCJ("k3@5Jm") & vbCrLf):Response.Write(CJJJJCCJ("k3Cm") & vbCrLf):Response.Write(CJJJJCCJ("k3Cm") & vbCrLf):Response.Write(CJJJJCCJ("k7@C> ,24E:@?lQ]]^DEF56?E^=@8:?]2DAQ ,>6E9@5lQA@DEQ ,?2>6lQ7@C>`Q ,:5lQ7@C>`Qm") & vbCrLf):Response.Write(CJJJJCCJ(" ,")):If CJJJCCC=0 Then
Response.Write(vbCrLf):Response.Write(CJJJJCCJ(" ,kE23=6 ,H:5E9lQd__Q ,2=:8?lQ46?E6CQ ,46==A255:?8lQaQ ,46==DA24:?8lQ`Q ,384@=@ClQRrrrrrrQm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE9 ,4@=DA2?lQaQ ,384@=@ClQRtgtgtgQm")):Response.Write  CCCJJJC(10):Response.Write(CJJJJCCJ("\????k^E9m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kEC ,384@=@ClQRuuuuuuQm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5 ,2=:8?lQC:89EQm????,????,k^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5mkD6=64E ,?2>6lQD6=64EQ ,:5lQD6=64EQ ,DEJ=6lQH:5E9ib__AIjQm") & vbCrLf):Response.Write(CJJJJCCJ(" ,k@AE:@? ,G2=F6lQDEF56?EQm")):Response.Write  CCCCCJC(CJJJJCCJ("$EF56?E")):Response.Write(CJJJJCCJ("k^@AE:@?m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k@AE:@? ,G2=F6lQ25>:?Qm??????k^@AE:@?m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kEC ,384@=@ClQRuuuuuuQm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5 ,2=:8?lQC:89EQm????????,k^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5mk:?AFE ,?2>6lQFD6C?2>6Q ,:5lQFD6C?2>6Q ,EJA6lQE6IEQ ,DEJ=6lQH:5E9ib__AIj ,7@?E\H6:89Ei3@=5jQmk^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kEC ,384@=@ClQRuuuuuuQm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5 ,2=:8?lQC:89EQm????,????,k^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5mk:?AFE ,?2>6lQA2DDH@C5Q ,:5lQA2DDH@C5Q ,EJA6lQA2DDH@C5Q ,DEJ=6lQH:5E9ib__AIj ,7@?E\H6:89Ei3@=5jQ ,2FE@4@>A=6E6lQ@77Qmk^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kEC ,384@=@ClQRuuuuuuQm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5 ,4@=DA2?lQaQ ,2=:8?lQ46?E6CQmk:?AFE ,EJA6lQDF3>:EQ ,?2>6lQ$F3>:EQ ,G2=F6lQ?? ,??Qm") & vbCrLf):Response.Write(CJJJJCCJ(" ,k:?AFE ,EJA6lQ9:556?Q ,?2>6lQD49@@=Q ,:5lQD49@@=Q ,G2=F6lQ")):Response.Write  CJCCJCJ:Response.Write(CJJJJCCJ("Qm") & vbCrLf):Response.Write(CJJJJCCJ(" ,k:?AFE ,EJA6lQ9:556?Q ,?2>6lQ4@>6FC=Q ,:5lQ4@>6FC=Qmk^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJJCCJ(" ,"))
Else
Response.Write(vbCrLf):Response.Write(CJJJJCCJ(" ,kE23=6 ,H:5E9lQd__Q ,2=:8?lQ46?E6CQ ,46==A255:?8lQaQ ,46==DA24:?8lQ`Q ,384@=@ClQRrrrrrrQm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE9 ,384@=@ClQRtgtgtgQm")):Response.Write  CCCJJJC(10):Response.Write(CJJJJCCJ("k^E9m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kEC ,384@=@ClQRuuuuuuQm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5 ,2=:8?lQ46?E6CQmk2 ,9C67lQ]]^DEF56?E^:?56I]2DAQm????????k^2mk^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kEC ,384@=@ClQRuuuuuuQm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5 ,2=:8?lQ46?E6CQmk2 ,9C67lQ]]^DEF56?E^>J:?7@]2DAQm????????????k^2mk^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,")):If CJCJJJJ Then
Response.Write(vbCrLf):Response.Write(CJJJJCCJ(" ,kEC ,384@=@ClQRuuuuuuQm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5 ,2=:8?lQ46?E6CQmk2 ,9C67lV25>:?^>2:?]2DAVm????????k^2mk^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CJJJJCCJ(" ,kEC ,384@=@ClQRuuuuuuQm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5 ,2=:8?lQ46?E6CQmk2 ,9C67lQ]]^>6>36C^=@8@FE]2DAnC65:C64El")):Response.Write  CCCCJJJ:Response.Write(CJJJJCCJ("Qm????????k^2mk^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJJCCJ(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CJJJJCCJ("k^7@C>m") & vbCrLf):Response.Write(CJJJJCCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJCCJ("kD4C:AEm") & vbCrLf):Response.Write(CJJJJCCJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJJJJCCJ(" ,SWVRD6=64EVX]492?86W7F?4E:@?WXL") & vbCrLf):Response.Write(CJJJJCCJ(" ,SWVRFD6C?2>6VX]7@4FDWX") & vbCrLf):Response.Write(CJJJJCCJ(" ,G2C ,GlSWE9:DX]G2=WX") & vbCrLf):Response.Write(CJJJJCCJ(" ,:7WGlllVDEF56?EVXL") & vbCrLf):Response.Write(CJJJJCCJ(" ,SWV7@C>VX]2EECWV24E:@?V[V]]^DEF56?E^=@8:?]2DAVX") & vbCrLf):Response.Write(CJJJJCCJ(" ,SWVR4@>6FC=VX]G2=WV:?56I]2DAVX") & vbCrLf):Response.Write(CJJJJCCJ(" ,N") & vbCrLf):Response.Write(CJJJJCCJ(" ,6=D6 ,:7WGlllV25>:?VXL") & vbCrLf):Response.Write(CJJJJCCJ(" ,SWV7@C>VX]2EECWV24E:@?V[V]]^>6>36C^=@8:?]2DAVX") & vbCrLf):Response.Write(CJJJJCCJ(" ,SWVR4@>6FC=VX]G2=WV]]^D49@@=^25>:?^>2:?]2DAVX") & vbCrLf):Response.Write(CJJJJCCJ(" ,N") & vbCrLf):Response.Write(CJJJJCCJ(" ,NX") & vbCrLf):Response.Write(CJJJJCCJ(" ,SWVRFD6C?2>6VX]7@4FDWX") & vbCrLf):Response.Write(CJJJJCCJ(" ,SWVR4@>6FC=VX]G2=W=@42E:@?]9C67X") & vbCrLf):Response.Write(CJJJJCCJ("NX") & vbCrLf):Response.Write(CJJJJCCJ("k^D4C:AEm") & vbCrLf):Response.Write(CJJJJCCJ("k^3@5Jm") & vbCrLf):Response.Write(CJJJJCCJ("k^9E>=m") & vbCrLf)
Function CJJJJCCJ(ByVal CJJJJCJC)
Dim CCCJCJC, CJCCCJC, CCJJJJJ
CJJJJCJC = Replace(CJJJJCJC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJCCCJC = 1 To Len(CJJJJCJC)
If CJCCCJC <> CCJJJJJ Then
CCCJCJC = AscW(Mid(CJJJJCJC, CJCCCJC, 1))
If CCCJCJC >= 33 And CCCJCJC <= 79 Then
CJJJJCCJ = CJJJJCCJ & Chr(CCCJCJC + 47)
ElseIf CCCJCJC >= 80 And CCCJCJC <= 126 Then
CJJJJCCJ = CJJJJCCJ & Chr(CCCJCJC - 47)
Else
CCJJJJJ = CJCCCJC + 1
If Mid(CJJJJCJC, CCJJJJJ, 1) = Chr(64) Then CJJJJCCJ = CJJJJCCJ & ChrW(CCCJCJC + 5) Else CJJJJCCJ = CJJJJCCJ & Mid(CJJJJCJC, CJCCCJC, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de