Edit D:\xinhaisoft\crisis_new\school\admin\zixun

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

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJJJCJJ, CJJJCJC,CJJJCCJ, CJJJCCC, CJJCJJJ:Set CJJJCJJ = server.CreateObject(CJJCCJJC("ps~sq]r@??64E:@?")):CJJJCJJ.open Application(CJJCCJJC("r@??64E:@?$EC:?8")):Set CJJJCJC=CJJJCJJ::Dim CJJCJJC,CJJCJCJ,CJJCJCC,CJJCCJJ,CJJCCJC,CJJCCCJ,CJJCCCC,CJCJJJJ,CJCJJJC:Dim CJCJJCJ,CJCJJCC,CJCJCJJ,CJCJCJC,CJCJCCJ,CJCJCCC:Dim CJCCJJJ,CJCCJJC,CJCCJCJ:Dim CJCCJCC:CJCCJCC=Trim(Request.Cookies(CJJCCJJC("!$*|t|qt#"))):if CJCCJCC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJJCJJC>0 then
CJJCJJJ=CJJCCJJC("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") & CJJCJCJ & CJJCCJJC("V ,2?5 ,:5l") & CJJCJJC
set CJJJCCJ=CJJJCJJ.execute(CJJCJJJ):If CJJJCCJ.EOF Then
Call ClearMemberCookie
Else
CJJCJCC=CJJJCCJ(2) & "":CJJCCJJ=CJJJCCJ(3):CJJCCJC=CJJJCCJ(5):CJJCCCJ=CJJJCCJ(6):CJJCCCC=CJJJCCJ(9):CJCJJJJ=CJJJCCJ(15):CJCJJCJ=CJJJCCJ(0):CJCCJJC=CJJJCCJ(1):CJCCJJJ=CJJJCCJ(11) & "":CJCJJCC=CJJJCCJ(10) & "":CJCJJJC=CJJJCCJ(12):CJCJCJJ=CJJJCCJ(14):CJCJCJC=CJJJCCJ(13):CJCJCCJ=CJJJCCJ(7) & "":CJCJCCC=CJJJCCJ(4):CJCCJCJ=CJJJCCJ(8):if isnull(CJCJJJJ) then CJCJJJJ=0
if isnull(CJJCCCC) or CJJCCCC=0 then CJJCCCC=CJJCCJJ
if isnull(CJCJCCC) then CJCJCCC=0
if isnull(CJJCCJC) then CJJCCJC=0
if instr(CJJCCJJC("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJCJCJ)>0 then Call RedirectMessage(CJJCCJJC("????????,????????????????????????????????,"))
Call SetMemberCookie(CJJCJJC,CJJCJCJ)
End IF
end if:Sub CheckRight(CJJCCJCJ):dim CJCCCJJ,CJCCCJC:if CJJCJJC=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJJCCJJC("??????????????,????????????,"))
elseIf not CJJJJCCJ(CJJCCJCJ) then
Call RedirectMessage(CJJCCJJC("????W") & CJJCCJCJ & CJJCCJJC("X????????,????????????????????,"))
end if:End Sub:Function CJJJJCCJ(CJJCCJCJ):dim CJCCCJJ,CJCCCJC:CJCCCJC=split(CJJCCJCJ,CJJCCJJC("[")):CJJJJCCJ=False:for CJCCCJJ=0 to ubound(CJCCCJC):If Mid(CJJCJCC,CJCCCJC(CJCCCJJ),1)="1" then
CJJJJCCJ=True:exit function
end if:next:End Function:Sub CheckLogined():if CJJCJJC=0 then
Call ClearMemberCookie:Call ConnClose:dim CJCCCCJ:CJCCCCJ=trim(request.QueryString(CJJCCJJC("D49@@="))):if isnumeric(CJCCCCJ) then
response.Redirect CJJCCJJC("^>^G2?E^R^D49@@=^") & CJCCCCJ & CJJCCJJC("^DEF56?E^=@8:?nC65:C64El") & CCJJCCC
else
Call RedirectMessage(CJJCCJJC("??????????????,????????????,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CJJCCJJC("!$*|t|qt#"))="":CJJCJJC=0:CJJCCCJ=0:CJJCJCJ=Empty:CJJCCJC=0:CJCJJJJ=0:CJJCCCC=0:CJJCCJJ=0:CJCJJCJ=False:CJCCJJC=False:CJCCJCJ=Empty:End Sub:Sub CheckMemberCookie():dim CJCCCCC,CCJJJJJ,CJCCCJJ,CCJJJJC,CCJJJCJ:CJCCCCC=split(CJCCJCC,CJJCCJJC("]")):if ubound(CJCCCCC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJCCCCC(0)) or len(CJCCCCC(1))<>32 or len(CJCCCCC(2))<>32 then
Call ClearMemberCookie
else
CCJJJJJ=CJCCCCC(1):for CJCCCJJ=1 to len(CCJJJJJ):CCJJJJC=mid(CCJJJJJ,CJCCCJJ,1):if isnumeric(CCJJJJC) then CCJJJCJ=CCJJJCJ & CCJJJJC
if len(CCJJJCJ)=7 then exit for
next:CCJJJJJ=CJCCCCC(2):if CCJJJCJ<>mid(CCJJJJJ,6,7) then
Call ClearMemberCookie
else
CCJJJJC=mid(CCJJJJJ,18,10)/2:if CCJJJJC<DateDiff(CJJCCJJC("D"), CJJCCJJC("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJJCJJC=Clng(CJCCCCC(0)):CJJCJCJ=CJCCCCC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCCJCCJ,CJJCCJCC):dim CJCCCJJ,CCJJJJC,CCJJJCJ:for CJCCCJJ=1 to len(CJJCCJCC):CCJJJJC=mid(CJJCCJCC,CJCCCJJ,1):if isnumeric(CCJJJJC) then CCJJJCJ=CCJJJCJ & CCJJJJC
if len(CCJJJCJ)=7 then exit for
next:CCJJJCJ=CCCJCCJ & CJJCCJJC("]") & CJJCCJCC & CJJCCJJC("]") & Fix(10000*(Rnd+1)) & CCJJJCJ & Fix(10000*(Rnd+1)) & DateDiff(CJJCCJJC("D"), CJJCCJJC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJJCCJJC("!$*|t|qt#"))=CCJJJCJ:End Sub::Function CJJJJCCC(CJJCCCJJ):Dim str,CCJJCJJ:str = Trim(CJJCCCJJ):If IsNull(str) Or str = "" Then
CJJJJCCC = ""
else
str=Replace(str, CJJCCJJC("V"), "")
str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CJJCCJJC("k:7C2>6"), CJJCCJJC("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CJJCCJJC("kD4C:AE"), CJJCCJJC("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CCJJCJJ=new RegExp:CCJJCJJ.Pattern=CJJCCJJC("@?W,2\K.ZXl"):CCJJCJJ.IgnoreCase = True:CCJJCJJ.Global=True:str=CCJJCJJ.Replace(str,CJJCCJJC("@?S`U6BF2=Dj")):set CCJJCJJ=nothing:CJJJJCCC=str
End If:End Function:Function IIf(CJJCCCJC, CJJCCCCJ, CJJCCCCC):if isnull(CJJCCCJC) or isempty(CJJCCCJC) then
IIf = CJJCCCCC
elseif CJJCCCJC Then
IIf = CJJCCCCJ
Else
IIf = CJJCCCCC
end if:End Function:Const CJJJJCJJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$"::Function CJJJCJJC():dim CCJJCJC:CCJJCJC = Cstr(Request.ServerVariables("HTTP_X_FORWARDED_FOR")):If CCJJCJC = "" Then CCJJCJC = Cstr(Request.ServerVariables(CJJCCJJC("#t|~%t0pss#")))
if instr(CCJJCJC,CJJCCJJC("i"))>0 then
CCJJCJC=left(CCJJCJC,instr(CCJJCJC,CJJCCJJC("i"))-1)
elseif instr(CCJJCJC,CJJCCJJC("["))>0 then
CCJJCJC=left(CCJJCJC,instr(CCJJCJC,CJJCCJJC("["))-1)
end if:CJJJCJJC=left(CCJJCJC,15):End Function::Public Function CJJJCJCJ():Dim CCJJCCJ, CCJJCCC:CCJJCCC = Request.ServerVariables(CJJCCJJC("!p%w0x}u~")):CCJJCCJ = Request.ServerVariables(CJJCCJJC("""&t#*0$%#x}v")):If CCJJCCJ <> Empty Then
if instr(lcase(CCJJCCJ),CJJCCJJC("Tb4:7C2>6"))>0 or instr(lcase(CCJJCCJ),CJJCCJJC("Tb4D4C:AE"))>0 then Call RedirectMessage(CJJCCJJC("????????,????????????????????????,??,??,"))
CCJJCCC = CCJJCCC & CJJCCJJC("n") & CCJJCCJ
end if:CJJJCJCJ = CCJJCCC:End Function:Sub SetHttpOnlyCookie(CJCJJJJJ,CJCJJJJC):dim CJCCCCC:CJCCCCC=CJCJJJJJ & CJJCCJJC("l") & CJCJJJJC & CJJCCJJC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJCCJJC("$6E\r@@<:6"),CJCCCCC):End Sub:::::::Function CJJJCJCC(CCCJJJC):if isnull(CCCJJJC) or trim(CCCJJJC)="" or not isnumeric(CCCJJJC) then
CJJJCJCC=false
else
Dim CCJJCJJ:Set CCJJCJJ = New RegExp:CCJJCJJ.Pattern = CJJCCJJC("/-5ZS"):CCJJCJJ.IgnoreCase = True:CJJJCJCC = CCJJCJJ.test(CCCJJJC):set CCJJCJJ=nothing
end if:End Function:Function CJJJCCJJ(CJCJJJCJ):dim CCJCJJJ,CCJCJJC:CCJCJJJ=CJJCCJJC("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJCJJJCJ & CJJCCJJC("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CCJCJJC=CJJJCJJ.execute(CCJCJJJ):CJJJCCJJ = CCJCJJC(0):if isnull(CJJJCCJJ) then CJJJCCJJ=1
CCJCJJC.close : set CCJCJJC=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CJJJCCJC=nothing:set CJJJCCCJ=nothing:set CJJJCCCC=nothing:set CJJCJJJJ=nothing:CCJCJJC.close : set CCJCJJC=nothing:CJJJCCC.Close : Set CJJJCCC=Nothing:CJJJCCJ.Close : Set CJJJCCJ=Nothing:CJJCJJJC.Close : Set CJJCJJJC = Nothing:CJJJCJJ.Close : Set CJJJCJJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJCJJJCC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJCCJJC("!$*0|6DD286"),server.URLEncode(CJCJJJCC)):Response.Redirect CJJCCJJC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::function CJJCJJCJ(CJCCCCJ):dim CCJCJCJ(),CJCCCJJ,CCJCJJC,CCJCJJJ:redim CCJCJCJ(1,0):CCJCJCJ(0,0)=0:CCJCJCJ(1,0)=CJJCCJJC(",??."):CCJCJJJ=CJJCCJJC("D6=64E ,:5[C62=?2>6 ,7C@> ,G0>6>36C ,H:E9 ,W?@=@4<X ,H96C6 ,>6>36C0EJA60E@Al") & CJCCCCJ & CJJCCJJC(" ,2?5 ,DE2E6ld ,2?5 ,:D4@?DF=E2?El`"):if cstr(CJCCCCJ)<>"1" then CCJCJJJ=CCJCJJJ & CJJCCJJC(" ,2?5 ,,8C@FA.kd")
CCJCJJJ=CCJCJJJ & CJJCCJJC(" ,@C56C ,3J ,:5"):set CCJCJJC=CJJJCJJ.execute(CCJCJJJ):CJCCCJJ=0:while not CCJCJJC.eof:redim preserve CCJCJCJ(1,CJCCCJJ):CCJCJCJ(0,CJCCCJJ)=CCJCJJC(0):CCJCJCJ(1,CJCCCJJ)=CCJCJJC(1):CJCCCJJ=CJCCCJJ+1:CCJCJJC.movenext:wend:CCJCJJC.close : set CCJCJJC=nothing:CJJCJJCJ=CCJCJCJ:end function::Function CJJCJJCC(ByVal CJJCJCJJ,style):if not isdate(CJJCJCJJ) then
CJJCJJCC=CJJCJCJJ:exit function
end if:dim CCJCJCC,CCJCJCJ,CCJCCJJ,CCJCCJC:CJJCJCJJ=cdate(CJJCJCJJ):CCJCJCC=Year(CJJCJCJJ):CCJCJCJ=Month(CJJCJCJJ):CCJCCJJ=Day(CJJCJCJJ):select case style:case 0:CJJCJJCC=CCJCJCC & CJJCCJJC("\") & right(0 & CCJCJCJ,2) & CJJCCJJC("\") & right(0 & CCJCCJJ,2):case 1:CJJCJJCC=CCJCJCC & right(0 & CCJCJCJ,2) & right(0 & CCJCCJJ,2):case 2:CJJCJJCC=right(CCJCJCC,2) & CJJCCJJC("\") & right(0 & CCJCJCJ,2) & CJJCCJJC("\") & right(0 & CCJCCJJ,2):case 3:CJJCJJCC=CCJCJCC & CJJCCJJC("\") & right(0 & CCJCJCJ,2):case 4:CJJCJJCC=right(0 & CCJCJCJ,2) & CJJCCJJC("\") & right(0 & CCJCCJJ,2):case 5:CJJCJJCC=right(0 & CCJCCJJ,2):case 6:CJJCJJCC=CCJCJCC & CJJCCJJC("??") & right(0 & CCJCJCJ,2) & CJJCCJJC("??") & right(0 & CCJCCJJ,2) & CJJCCJJC("??"):case else
CJJCJJCC=CJJCJCJJ:end select:End Function::::Sub InsertLog(CJCJJCJJ,CJJCCJJJ):dim CCJCJJJ:CCJCJJJ=CJJCCJJC("x?D6CE ,:?E@ ,=@8W>6>36C[:A[4@?E6?E[EJA6[FC=X ,G2=F6DW") & CJJCJJC  & CJJCCJJC("[V") & CJJJCJJC & CJJCCJJC("V") & CJJCCJJC("[V") & CJJJJCCC(CJJCCJJJ) & CJJCCJJC("V") & CJJCCJJC("[") & CJCJJCJJ  & CJJCCJJC("[V") & CJJJCJCJ & CJJCCJJC("V") & CJJCCJJC("X")
CJJJCJJ.execute CCJCJJJ:End Sub::::::::::::::::::Public Function CJJCJCJC(CCCJJJC):dim CCJCCCJ:if isnull(CCCJJJC) or trim(CCCJJJC)="" or not isnumeric(CCCJJJC) or instr(CCCJJJC,CJJCCJJC("\"))>0 or instr(CCCJJJC,CJJCCJJC("]"))>0 or left(CCCJJJC,1)="0" then
CCJCCCJ=""
else
CCJCCCJ=CCCJJJC:if Len(CCJCCCJ) Mod 2=1 then CCJCCCJ="0" & CCJCCCJ
Randomize:CCJCCCJ=CCJCCCJ & Int((99-10+1)*Rnd+10):CCJCCCJ=CJJCJCCJ(CCJCCCJ):CCJCCCJ=CCJCCCJ & CJJCJCCC(CCJCCCJ)
end if:CJJCJCJC=CCJCCCJ:End Function::Private Function CJJCJCCJ(str):Dim CCJCCCC, CJCCCJJ, CCJJJCJ, CCCJJJJ, CCJCJCJ, CCCJJJC,CCJCCCJ:CCCJJJJ = Len(str):For CJCCCJJ = 1 To CCCJJJJ:CCJJJCJ = CInt(Mid(str, CJCCCJJ, 1)):If CCJJJCJ < 5 Then CCJJJCJ = CCJJJCJ + 5 Else CCJJJCJ = CCJJJCJ - 5
CCJCCCC = CCJCCCC & CCJJJCJ:Next:For CJCCCJJ = 1 To CCCJJJJ - 1 Step 2:CCJCJCJ = Mid(CCJCCCC, CJCCCJJ, 1):CCCJJJC = Mid(CCJCCCC, CJCCCJJ + 1, 1):CCJCCCJ = CCJCCCJ & CCCJJJC & CCJCJCJ:Next:CJJCJCCJ = StrReverse(CCJCCCJ):End Function:Private Function CJJCJCCC(CJCJJCJC):Dim CCCJJJJ, CJCCCJJ, CCCJJJC, CCJCCCC:CCCJJJJ = Len(CJCJJCJC):CCCJJJC = 0:For CJCCCJJ = 1 To CCCJJJJ:CCJCCCC = CInt(Mid(CJCJJCJC, CJCCCJJ, 1)):If CJCCCJJ Mod 2 = 0 Then CCCJJJC = CCCJJJC + CCJCCCC * 3 Else CCCJJJC = CCCJJJC + CCJCCCC
Next:CCCJJJC = CCCJJJC Mod 100:CCCJJJC = 100 - CCCJJJC:CJJCJCCC = Right("0" & CCCJJJC, 2):End Function::dim CJCCCCJ:CJJCJJJ=Request.ServerVariables(CJJCCJJC("!p%w0x}u~")):if instr(CJJCJJJ,CJJCCJJC("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CJCJJCJ and not CJCCJJC then Call RedirectMessage(CJJCCJJC("????????,????????????????????????,"))
CJCCCCJ=CJJCCCC
elseif instr(CJJCJJJ,CJJCCJJC("^>^D49@@=^DEF56?E^"))>0 or instr(CJJCJJJ,CJJCCJJC("^DEF56?E^"))>0 then
Call CheckLogined:CJCCCCJ=CJJCCCC
elseif instr(CJJCJJJ,CJJCCJJC("^D49@@="))>0 then
CJCCCCJ=Request.QueryString(CJJCCJJC("D49@@=")):if not CJJJCJCC(CJCCCCJ) then CJCCCCJ=Request.QueryString(CJJCCJJC("F"))
if not CJJJCJCC(CJCCCCJ) then CJCCCCJ=Request.QueryString(CJJCCJJC("D4"))
if not CJJJCJCC(CJCCCCJ) then Call RedirectMessage(CJJCCJJC("????????W$49@@=X??@??????????,"))
CJCCCCJ=csng(CJCCCCJ)
end if:if CJCCCCJ=0 then Call RedirectMessage(CJJCCJJC("????????W$49@@=X????W_X??,"))
Dim CCCJJCJ:Call SetConfig:Sub SetConfig():dim CJCCCJC,CCJCJJC:CJJCJJJ=CJJCCJJC("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") & CJCCCCJ:set CCJCJJC=CJJJCJJ.execute(CJJCJJJ):if CCJCJJC.eof then Call RedirectMessage(CJJCCJJC("??W") & CJJCJJC & CJJCCJJC("X??????????W") & CJCCCCJ & CJJCCJJC("X????????,"))
ReDim CJCCCJC(61):CJCCCJC(0)=CCJCJJC(CJJCCJJC(";:2@H6:")) & "":CJCCCJC(1)=CCJCJJC(CJJCCJJC("EJA6")):CJCCCJC(2)=CCJCJJC(CJJCCJJC("D>D")):CJCCCJC(3)=CCJCJJC(CJJCCJJC("4FDE@>8C@FA")) & "":CJCCCJC(4)=CCJCJJC(CJJCCJJC("D:5632C0@E96C")) & "":CJCCCJC(5)=IIf(isnull(CCJCJJC(CJJCCJJC("E6DEC6DF=EG:6H"))),0,CCJCJJC(CJJCCJJC("E6DEC6DF=EG:6H"))):CJCCCJC(6)=CCJCJJC(CJJCCJJC("K:IF?E:>6")):CJCCCJC(7)=CCJCJJC(CJJCCJJC("766")):CJCCCJC(8)=CCJCJJC(CJJCCJJC("C6E6DE52J")):CJCCCJC(9)=CCJCJJC(CJJCCJJC("6IA:C652E6")):CJCCCJC(10)=CCJCJJC(CJJCCJJC("E:E=6")):CJCCCJC(11)=CCJCJJC(CJJCCJJC(":?EC@")) & "":CJCCCJC(12)=CCJCJJC(CJJCCJJC("A:4EFC6")) & "":CJCCCJC(13)=CCJCJJC(CJJCCJJC("72>:=J")):CJCCCJC(14)=CCJCJJC(CJJCCJJC("4@AJC:89E")) & "":CJCCCJC(15)=IIf(isnull(CCJCJJC(CJJCCJJC("D6>6DE6C0DE2CE052E6"))),CJJCCJJC("`h__\`\`"),CCJCJJC(CJJCCJJC("D6>6DE6C0DE2CE052E6"))):CJCCCJC(16)=IIf(isnull(CCJCJJC(CJJCCJJC("K:IF?0E:>6D09:89=:89E"))),0,CCJCJJC(CJJCCJJC("K:IF?0E:>6D09:89=:89E"))):CJCCCJC(17)=CCJCJJC(CJJCCJJC("4@?E24E")) & "":CJCCCJC(18)=CCJCJJC(CJJCCJJC("D2?5E23=6")):CJCCCJC(19)=CCJCJJC(CJJCCJJC("4C:D:D")):CJCCCJC(20)=CCJCJJC(CJJCCJJC("JJ52E6")):CJCCCJC(21)=CCJCJJC(CJJCCJJC("BB")):CJCCCJC(22)=CCJCJJC(CJJCCJJC("JFJF60D>D0EA=")) & "":CJCCCJC(23)=CCJCJJC(CJJCCJJC("JFJF60E6DE0=3")) & "":CJCCCJC(25)=CCJCJJC(CJJCCJJC("6IA6CE")):CJCCCJC(26)=CCJCJJC(CJJCCJJC(">@5:?7@")):CJCCCJC(27)=CCJCJJC(CJJCCJJC("9@>6A286E@AA:4EFC6")) & "":CJCCCJC(28)=CCJCJJC(CJJCCJJC("4C:D:D=3")):CJCCCJC(29)=IIf(CCJCJJC(CJJCCJJC("4C:D:D@=5")),False,True):CJCCCJC(30)=CCJCJJC(CJJCCJJC("8C@FA8F:52?46")):CJCCCJC(31)=CCJCJJC(CJJCCJJC("3:@7665324<")):CJCCCJC(32)=CCJCJJC(CJJCCJJC("<6JDEC")):CJCCCJC(33)=CCJCJJC(CJJCCJJC("=@8@")) & "":CJCCCJC(34)=CCJCJJC(CJJCCJJC("K:46")):CJCCCJC(35)=IIf(CCJCJJC(CJJCCJJC(":D?6H")),True,False):CJCCCJC(36)=121:CJCCCJC(37)=111:CJCCCJC(38)=160:CJCCCJC(39)=CCJCJJC(CJJCCJJC("8F6DE3@@<")):CJCCCJC(40)=CCJCJJC(CJJCCJJC("75D")):CJCCCJC(42)=CCJCJJC(CJJCCJJC("9@>6=@8:?")):CJCCCJC(43)=CCJCJJC(CJJCCJJC("K:IF?0?6657665324<")):CJCCCJC(44)=CCJCJJC(CJJCCJJC("K:IF?0E:>6D0=:>:E")):CJCCCJC(45)=CCJCJJC(CJJCCJJC("4@>A=6E60:?7@")):CJCCCJC(46)=CCJCJJC(CJJCCJJC("E6DE:?EC@")) & "":CJCCCJC(47)=IIf(isnull(CCJCJJC(CJJCCJJC("JFJF60367@C60E:>6"))),0,CCJCJJC(CJJCCJJC("JFJF60367@C60E:>6"))):CJCCCJC(49)=CCJCJJC(CJJCCJJC("D>D0C646:G6C")):CJCCCJC(50)=CCJCJJC(CJJCCJJC("D>D0D:8?")) & "":CJCCCJC(52)=CCJCJJC(CJJCCJJC("JFJF602CC2?86")):CJCCCJC(53)=IIf(isnull(CCJCJJC(CJJCCJJC("DEF56?E0BF6DE:@?04@F?E"))),0,CCJCJJC(CJJCCJJC("DEF56?E0BF6DE:@?04@F?E"))):CJCCCJC(54)=CCJCJJC(CJJCCJJC("9:560=30@FE@7286")):CJCCCJC(55)=CCJCJJC(CJJCCJJC("JFJF60E6DE052JD")):CJCCCJC(56)=CCJCJJC(CJJCCJJC("JFJF60H66<0=:>:E")):CJCCCJC(57)=CCJCJJC(CJJCCJJC("JFJF604964<65")):CJCCCJC(58)=CCJCJJC(CJJCCJJC("K:IF?0?6657665324<0?6IE")):CJCCCJC(59)=CCJCJJC(CJJCCJJC("4964<?6HDEF56?E")):CJCCCJC(60)=CCJCJJC(CJJCCJJC("K:IF?04=@D6052E6")):CCJCJJC.close : set CCJCJJC=nothing:if isNull(CJCCCJC(8)) or CJCCCJC(8)="" then CJCCCJC(8)=0
if isdate(CJCCCJC(9)) then
CJCCCJC(9)=cdate(CJCCCJC(9)):if CJCCCJC(9)<Date then Call RedirectMessage(CJJCCJJC("????????,????????????????W") & CJCCCJC(9) & CJJCCJJC("X??????,"))
end if:if not CJJJCJCC(CJCCCJC(20)) then CJCCCJC(20)=7
select case CJCCCJC(1):case 1,2,16:CJCCCJC(36)=159:case 4,5,6,10,11:CJCCCJC(36)=190:CJCCCJC(37)=178:CJCCCJC(38)=191:case 7,13:CJCCCJC(36)=164:CJCCCJC(37)=178:CJCCCJC(38)=179:end select:CCCJJCJ=CJCCCJC:End Sub:Function CJJCJJJJ(CJCJJCCJ):dim CJCCCJC(7,1),CJCCCJJ,CCCJJCC,CCCJCJJ:CCCJJCC=Array(CJJCCJJC("$49@@="),CJJCCJJC("$EF56?E"),CJJCCJJC("s6AE"),CJJCCJJC("vC256"),CJJCCJJC("r=2DD>2E6"),CJJCCJJC("}F>36C"),CJJCCJJC("%62496C"),CJJCCJJC("!2C6?E")):select case CCCJJCJ(1):case 1,2 : CCCJCJJ=Array(CJJCCJJC("????"),CJJCCJJC("????"),CJJCCJJC("????"),CJJCCJJC("????"),CJJCCJJC("????"),CJJCCJJC("????"),CJJCCJJC("????"),CJJCCJJC("????")):case 3,16 : CCCJCJJ=Array(CJJCCJJC("????"),CJJCCJJC("????"),CJJCCJJC("????"),CJJCCJJC("????"),CJJCCJJC("????"),CJJCCJJC("????"),CJJCCJJC("????"),CJJCCJJC("????")):case 4 : CCCJCJJ=Array(CJJCCJJC("????"),CJJCCJJC("??????@"),CJJCCJJC("????"),CJJCCJJC("????"),CJJCCJJC("????"),CJJCCJJC("????"),CJJCCJJC("????"),CJJCCJJC("????")):case 5 : CCCJCJJ=Array(CJJCCJJC("????"),CJJCCJJC("????"),CJJCCJJC("????"),CJJCCJJC("????"),CJJCCJJC("????"),CJJCCJJC("????"),CJJCCJJC("????"),CJJCCJJC("????")):case 6 : CCCJCJJ=Array(CJJCCJJC("????"),CJJCCJJC("??????@"),CJJCCJJC("????"),CJJCCJJC("????"),CJJCCJJC("????"),CJJCCJJC("????"),CJJCCJJC("??????"),CJJCCJJC("????")):case 7 : CCCJCJJ=Array(CJJCCJJC("????"),CJJCCJJC("????"),CJJCCJJC("????"),CJJCCJJC("????"),CJJCCJJC("????"),CJJCCJJC("????"),CJJCCJJC("??????"),CJJCCJJC("????")):case 8 : CCCJCJJ=Array(CJJCCJJC("????"),CJJCCJJC("??????@"),CJJCCJJC("????"),CJJCCJJC("????????"),CJJCCJJC("????"),CJJCCJJC("????"),CJJCCJJC("??????"),CJJCCJJC("????")):case 9 : CCCJCJJ=Array(CJJCCJJC("????"),CJJCCJJC("????"),CJJCCJJC("????"),CJJCCJJC("????"),CJJCCJJC("????"),CJJCCJJC("????"),CJJCCJJC("??????"),CJJCCJJC("????")):case 10 : CCCJCJJ=Array(CJJCCJJC("????"),CJJCCJJC("????"),CJJCCJJC("????"),CJJCCJJC("????????"),CJJCCJJC("????"),CJJCCJJC("????"),CJJCCJJC("??????"),CJJCCJJC("????")):case 11 : CCCJCJJ=Array(CJJCCJJC("????"),CJJCCJJC("??????"),CJJCCJJC("????"),CJJCCJJC("????"),CJJCCJJC("????"),CJJCCJJC("????"),CJJCCJJC("??????"),CJJCCJJC("????")):case 12 : CCCJCJJ=Array(CJJCCJJC("????"),CJJCCJJC("????"),CJJCCJJC("????"),CJJCCJJC("????????"),CJJCCJJC("????"),CJJCCJJC("????"),CJJCCJJC("??????"),CJJCCJJC("????")):case 13 : CCCJCJJ=Array(CJJCCJJC("????"),CJJCCJJC("????"),CJJCCJJC("????"),CJJCCJJC("????"),CJJCCJJC("????"),CJJCCJJC("????"),CJJCCJJC("????"),CJJCCJJC("????")):case 14 : CCCJCJJ=Array(CJJCCJJC("??????"),CJJCCJJC("??@??"),CJJCCJJC("????"),CJJCCJJC("????"),CJJCCJJC("????"),CJJCCJJC("????"),CJJCCJJC("??????"),CJJCCJJC("????")):case 15 : CCCJCJJ=Array(CJJCCJJC("????"),CJJCCJJC("????????"),CJJCCJJC("????"),CJJCCJJC("????????"),CJJCCJJC("????"),CJJCCJJC("????"),CJJCCJJC("??????"),CJJCCJJC("????")):case else : CCCJCJJ=CCCJJCC
end select:for CJCCCJJ=0 to Ubound(CJCCCJC):CJCCCJC(CJCCCJJ,0)=CCCJJCC(CJCCCJJ):CJCCCJC(CJCCCJJ,1)=CCCJCJJ(CJCCCJJ):next:for CJCCCJJ=0 to Ubound(CJCCCJC):if CJCCCJC(CJCCCJJ,0)=CJCJJCCJ then
CJJCJJJJ=CJCCCJC(CJCCCJJ,1):exit for
end if:next:End Function::Call CheckRight(86):Const CJJJJCJC="zx_time":if CJJCCCC<>CJJCCJJ then Call RedirectMessage("?????????????????????????????")
dim CJCCCJJ,CCJCJCJ,CCCJCJC:CCJCJCJ=CJJCJJCJ(CJCCCCJ):dim CCCJCCJ,CCCJCCC:CCCJCCJ=Request.QueryString(CJJCCJJC(":5")):CCCJCCC=Request.QueryString(CJJCCJJC("24E")):if CCCJCCC=CJJCCJJC("56=") and CJJJCJCC(CCCJCCJ) then
set CJJJCCJ=CJJJCJJ.execute(CJJCCJJC("D6=64E ,E@A ,` ,4@?DF=E2?E[H66<52J[E:>6`DEC[E:>6aDEC[E9652E6 ,7C@> ,G0KI0E:>6 ,H96C6 ,:5l") & CCCJCCJ):if not CJJJCCJ.eof then
CJJCJJJ=CJJCCJJC("56=6E6 ,7C@> ,KI03FDJ ,H96C6 ,KI0E:>60:5l") & CCCJCCJ  & CJJCCJJC("j56=6E6 ,7C@> ,") & CJJJJCJC & CJJCCJJC(" ,H96C6 ,:5l") & CCCJCCJ:CJJJCJJ.execute CJJCJJJ:Call InsertLog(3,CJJCCJJC("????????????,") & CJJJCCJ(0) & CJJCCJJC("^") & CJJJCCJ(1) & CJJCCJJC("^") & CJJJCCJ(2) & CJJCCJJC("^") & CJJJCCJ(3) & CJJCCJJC("^") & CJJJCCJ(4) & CJJCCJJC("??,"))
end if:Call ConnClose:Response.end
end if:if Request.ServerVariables(CJJCCJJC("#t""&t$%0|t%w~s"))=CJJCCJJC("!~$%") then
dim CCCCJJJ,CCCCJJC,CCCCJCJ,CCCCJCC,weekday,CCCCCJC,CCCCCCJ
CCCCJJC=CJJJJCCC(replace(Request.Form(CJJCCJJC("E:>6`")),CJJCCJJC("??,"),CJJCCJJC("i"))):CCCCJCJ=CJJJJCCC(replace(Request.Form(CJJCCJJC("E:>6a")),CJJCCJJC("??,"),CJJCCJJC("i"))):CCCCCJC=CJJJJCCC(replace(Request.Form(CJJCCJJC("C@@>")),chr(9),"")):CCCCCCJ=CJJJJCCC(replace(Request.Form(CJJCCJJC("C6>2C<")),chr(9),""))
CCCCJCC=Request.Form(CJJCCJJC("E6>A")):weekday=Request.Form(CJJCCJJC("H66<52J")):CCCCJJJ=Request.Form(CJJCCJJC("E9652E6")):CCCJCJC=Request.Form(CJJCCJJC("H2J")):if cdate(CCCCJJC)>=cdate(CCCCJCJ) then Call RedirectMessage(CJJCCJJC("??????????????????,????????????????????"))
if CCCCJCC="1" then
weekday=CJJCCJJC("?F=="):CCCCJJJ=CJJCCJJC("V") & CCCCJJJ & CJJCCJJC("V")
else
CCCCJJJ=CJJCCJJC("?F==")
end if:if CCCJCCC=CJJCCJJC("255") then
CCCJCCJ=CJJJCCJJ(CJJJJCJC):CJJCJJJ=CJJCCJJC(":?D6CE ,:?E@ ,") & CJJJJCJC & CJJCCJJC("W:5[4@?DF=E2?E[H66<52J[E9652E6[E:>6`[E:>6a[C@@>[C6>2C<[E6>A[H2JX ,G2=F6DW") & CCCJCCJ  & CJJCCJJC("[") & Request.Form(CJJCCJJC("4@?DF=E2?E")) & CJJCCJJC("[") & weekday  & CJJCCJJC("[") & CCCCJJJ  & CJJCCJJC("[V") & CCCCJJC & CJJCCJJC("V") & CJJCCJJC("[V") & CCCCJCJ & CJJCCJJC("V") & CJJCCJJC("[V") & CCCCCJC & CJJCCJJC("V") & CJJCCJJC("[V") & CCCCCCJ & CJJCCJJC("V") & CJJCCJJC("[") & CCCCJCC  & CJJCCJJC("[") & CCCJCJC  & CJJCCJJC("X")
CJJJCJJ.execute CJJCJJJ
elseif CCCJCCC=CJJCCJJC(">@5") and CJJJCJCC(CCCJCCJ) then
CJJCJJJ=CJJCCJJC("FA52E6 ,") & CJJJJCJC & CJJCCJJC(" ,D6E") & CJJCCJJC(" ,4@?DF=E2?El") & Request.Form(CJJCCJJC("4@?DF=E2?E")) & CJJCCJJC("[H66<52Jl") & weekday  & CJJCCJJC("[E9652E6l") & CCCCJJJ  & CJJCCJJC("[E:>6`lV") & CCCCJJC & CJJCCJJC("V") & CJJCCJJC("[E:>6alV") & CCCCJCJ & CJJCCJJC("V") & CJJCCJJC("[C@@>lV") & CCCCCJC & CJJCCJJC("V") & CJJCCJJC("[C6>2C<lV") & CCCCCCJ & CJJCCJJC("V") & CJJCCJJC("[E6>Al") & CCCCJCC  & CJJCCJJC("[H2Jl") & CCCJCJC  & CJJCCJJC(" ,H96C6 ,:5l") & CCCJCCJ
CJJJCJJ.execute CJJCJJJ
end if:CCCJCCC=""
end if:dim CCCCCCC,CJJJJJJJ,CJJJJJJC:CCCCCCC=Request.QueryString(CJJCCJJC("H66<")):CJJJJJJJ=Request.QueryString(CJJCCJJC("4@?DF=E2?E:5")):CJJJJJJC=Request.QueryString(CJJCCJJC("D9@HE6>A")):CCCJCJC=Request.QueryString(CJJCCJJC("H2J")):Response.Write(vbCrLf):Response.Write(CJJCCJJC("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJJCCJJC("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJJCCJJC("k9625m") & vbCrLf):Response.Write(CJJCCJJC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJJCCJJC("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJJCCJJC("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJJCCJJC("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CJJCCJJC("kE:E=6m??????????k^E:E=6m") & vbCrLf):Response.Write(CJJCCJJC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CJJCCJJC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^52E6A:4<6C^52E6A:4<6C]>:?]4DDQm") & vbCrLf):Response.Write(CJJCCJJC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^49@D6?^49@D6?]>:?]4DDQm") & vbCrLf):Response.Write(CJJCCJJC("kDEJ=6m") & vbCrLf):Response.Write(CJJCCJJC("]49@D6?\D:?8=6[]24E:G6\C6DF=ELE6IE\2=:8?i=67EjN") & vbCrLf):Response.Write(CJJCCJJC("k^DEJ=6m") & vbCrLf):Response.Write(CJJCCJJC("k^9625m") & vbCrLf):Response.Write(CJJCCJJC("k3@5Jm") & vbCrLf):Response.Write(CJJCCJJC("k7@C> ,:5lQ7@C>`Q ,?2>6lQ7@C>`Q ,>6E9@5lQ86EQ ,24E:@?lQQm") & vbCrLf):Response.Write(CJJCCJJC(" ,kE23=6 ,4=2DDlQE30E:E=6Qm") & vbCrLf):Response.Write(CJJCCJJC(" ,kECm") & vbCrLf):Response.Write(CJJCCJJC(" ,kE9m??????????k^E9m") & vbCrLf):Response.Write(CJJCCJJC(" ,kE5 ,4=2DDlQ=236=Qm????k^E5m") & vbCrLf):Response.Write(CJJCCJJC(" ,kE5m") & vbCrLf):Response.Write(CJJCCJJC(" ,kD6=64E ,?2>6lQH66<Qm") & vbCrLf):Response.Write(CJJCCJJC(" ,k@AE:@? ,G2=F6lQQm,????.k^@AE:@?m") & vbCrLf):Response.Write(CJJCCJJC(" ,")):for CJCCCJJ=0 to 6:Response.Write CJJCCJJC("k@AE:@? ,G2=F6lV") & CJCCCJJ & CJJCCJJC("V") & IIf(cstr(CJCCCJJ)=CCCCCCC,CJJCCJJC(" ,D6=64E65"),"") & CJJCCJJC("m") & wd(CJCCCJJ) & CJJCCJJC("k^@AE:@?m")
next:Response.Write(vbCrLf):Response.Write(CJJCCJJC(" ,k^D6=64Em") & vbCrLf):Response.Write(CJJCCJJC(" ,k^E5m") & vbCrLf):Response.Write(CJJCCJJC(" ,kE5 ,4=2DDlQ=236=Qm??????k^E5m") & vbCrLf):Response.Write(CJJCCJJC(" ,kE5m") & vbCrLf):Response.Write(CJJCCJJC(" ,kD6=64E ,?2>6lQ4@?DF=E2?E:5Qm") & vbCrLf):Response.Write(CJJCCJJC(" ,k@AE:@? ,G2=F6lQQm,????.k^@AE:@?m") & vbCrLf):Response.Write(CJJCCJJC(" ,")):for CJCCCJJ=0 to ubound(CCJCJCJ,2):Response.Write CJJCCJJC("k@AE:@? ,G2=F6lV") & CCJCJCJ(0,CJCCCJJ) & CJJCCJJC("V") & IIf(cstr(CCJCJCJ(0,CJCCCJJ))=CJJJJJJJ,CJJCCJJC(" ,D6=64E65"),"") & CJJCCJJC("m") & CCJCJCJ(1,CJCCCJJ) & CJJCCJJC("k^@AE:@?m")
next:Response.Write(vbCrLf):Response.Write(CJJCCJJC(" ,k^D6=64Em") & vbCrLf):Response.Write(CJJCCJJC(" ,k^E5m") & vbCrLf):Response.Write(CJJCCJJC(" ,kE5 ,4=2DDlQ=236=Qm????????k^E5m") & vbCrLf):Response.Write(CJJCCJJC(" ,kE5m") & vbCrLf):Response.Write(CJJCCJJC(" ,kD6=64E ,?2>6lQH2JQm") & vbCrLf):Response.Write(CJJCCJJC(" ,k@AE:@? ,G2=F6lQQm,????.k^@AE:@?m") & vbCrLf):Response.Write(CJJCCJJC(" ,k@AE:@? ,G2=F6lQ_Q ,")):Response.Write  IIf(CCCJCJC="0",CJJCCJJC("D6=64E65"),""):Response.Write(CJJCCJJC("m????k^@AE:@?m") & vbCrLf):Response.Write(CJJCCJJC(" ,k@AE:@? ,G2=F6lQ`Q ,")):Response.Write  IIf(CCCJCJC="1",CJJCCJJC("D6=64E65"),""):Response.Write(CJJCCJJC("m????k^@AE:@?m") & vbCrLf):Response.Write(CJJCCJJC(" ,k^D6=64Em") & vbCrLf):Response.Write(CJJCCJJC(" ,k^E5m") & vbCrLf):Response.Write(CJJCCJJC(" ,kE5 ,4=2DDlQ=236=Qm??????????????????k^E5m") & vbCrLf):Response.Write(CJJCCJJC(" ,kE5mk:?AFE ,EJA6lQ4964<3@IQ ,?2>6lQD9@HE6>AQ ,G2=F6lQ`Q ,")):Response.Write  IIf(CJJJJJJC="1",CJJCCJJC("4964<65"),""):Response.Write(CJJCCJJC("mk^E5m") & vbCrLf):Response.Write(CJJCCJJC(" ,kE5 ,4=2DDlQ24EQm") & vbCrLf):Response.Write(CJJCCJJC(" ,k:?AFE ,EJA6lQDF3>:EQ ,G2=F6lQ?? ,??Qm") & vbCrLf):Response.Write(CJJCCJJC(" ,k2 ,4=2DDlQ3FEE@?Q ,9C67lQn24El255U4@?DF=E2?E:5l")):Response.Write  CJJJJJJJ:Response.Write(CJJCCJJC("UH66<l")):Response.Write  CCCCCCC:Response.Write(CJJCCJJC("UD9@HE6>Al")):Response.Write  CJJJJJJC:Response.Write(CJJCCJJC("Qm?? ,??k^2m") & vbCrLf):Response.Write(CJJCCJJC(" ,k:?AFE ,EJA6lQ3FEE@?Q ,:5lQ3E?\6IA@CEQ ,G2=F6lQ?? ,??Qm") & vbCrLf):Response.Write(CJJCCJJC(" ,k^E5m") & vbCrLf):Response.Write(CJJCCJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJCCJJC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCCJJC("k^7@C>m") & vbCrLf):Response.Write(CJJCCJJC("k7@C> ,:5lQ7@C>aQ ,?2>6lQ7@C>aQ ,>6E9@5lQA@DEQ ,24E:@?lQQm") & vbCrLf):Response.Write(CJJCCJJC(" ,kE23=6 ,4=2DDlQE30DE2EQm") & vbCrLf):Response.Write(CJJCCJJC(" ,kECm") & vbCrLf):Response.Write(CJJCCJJC(" ,kE9m????^????k^E9m") & vbCrLf):Response.Write(CJJCCJJC(" ,kE9m??????k^E9m") & vbCrLf):Response.Write(CJJCCJJC(" ,kE9m??????k^E9m") & vbCrLf):Response.Write(CJJCCJJC(" ,kE9m??????k^E9m") & vbCrLf):Response.Write(CJJCCJJC(" ,kE9m????^????k^E9m") & vbCrLf):Response.Write(CJJCCJJC(" ,kE9m????????k^E9m") & vbCrLf):Response.Write(CJJCCJJC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJCCJJC(" ,kE9 ,4=2DDlQ?@\I=DQm????k^E9m") & vbCrLf):Response.Write(CJJCCJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJCCJJC(" ,")):if CCCJCCC=CJJCCJJC("255") then
Response.Write(vbCrLf):Response.Write(CJJCCJJC(" ,kEC ,4=2DDlQ?@\I=DQm") & vbCrLf):Response.Write(CJJCCJJC(" ,kE5m") & vbCrLf):Response.Write(CJJCCJJC(" ,kD6=64E ,?2>6lQE6>AQ ,:5lQE6>AQm") & vbCrLf):Response.Write(CJJCCJJC(" ,k@AE:@? ,G2=F6lQ_Qm????k^@AE:@?m") & vbCrLf):Response.Write(CJJCCJJC(" ,k@AE:@? ,G2=F6lQ`Qm????k^@AE:@?m") & vbCrLf):Response.Write(CJJCCJJC(" ,k^D6=64Em") & vbCrLf):Response.Write(CJJCCJJC(" ,kD6=64E ,?2>6lQH66<52JQ ,G:D:3=JlQE6>Ai_Qm") & vbCrLf):Response.Write(CJJCCJJC(" ,")):for CJCCCJJ=0 to 6:Response.Write CJJCCJJC("k@AE:@? ,G2=F6lV") & CJCCCJJ & CJJCCJJC("V") & IIf(cstr(CJCCCJJ)=CCCCCCC,CJJCCJJC(" ,D6=64E65"),"") & CJJCCJJC("m") & wd(CJCCCJJ) & CJJCCJJC("k^@AE:@?m")
next:Response.Write(vbCrLf):Response.Write(CJJCCJJC(" ,k^D6=64Em") & vbCrLf):Response.Write(CJJCCJJC(" ,k:?AFE ,EJA6lQE6IEQ ,?2>6lQE9652E6Q ,4=2DDlQ52E6Q ,G2=F6lQ")):Response.Write  CJJCJJCC(date,0):Response.Write(CJJCCJJC("Q ,G:D:3=JlQE6>Ai`Qm") & vbCrLf):Response.Write(CJJCCJJC(" ,k^E5m") & vbCrLf):Response.Write(CJJCCJJC(" ,kE5mk:?AFE ,EJA6lQE:>6Q ,?2>6lQE:>6`Q ,C6BF:C65mk^E5m") & vbCrLf):Response.Write(CJJCCJJC(" ,kE5mk:?AFE ,EJA6lQE:>6Q ,?2>6lQE:>6aQ ,C6BF:C65mk^E5m") & vbCrLf):Response.Write(CJJCCJJC(" ,kE5m") & vbCrLf):Response.Write(CJJCCJJC(" ,kD6=64E ,?2>6lQ4@?DF=E2?EQm") & vbCrLf):Response.Write(CJJCCJJC(" ,")):for CJCCCJJ=0 to ubound(CCJCJCJ,2):Response.Write CJJCCJJC("k@AE:@? ,G2=F6lV") & CCJCJCJ(0,CJCCCJJ) & CJJCCJJC("V") & IIf(cstr(CCJCJCJ(0,CJCCCJJ))=CJJJJJJJ,CJJCCJJC(" ,D6=64E65"),"") & CJJCCJJC("m") & CCJCJCJ(1,CJCCCJJ) & CJJCCJJC("k^@AE:@?m")
next:Response.Write(vbCrLf):Response.Write(CJJCCJJC(" ,k^D6=64Em") & vbCrLf):Response.Write(CJJCCJJC(" ,k^E5m") & vbCrLf):Response.Write(CJJCCJJC(" ,kE5 ,4=2DDlQE6IE\=67EQmk:?AFE ,EJA6lQE6IEQ ,?2>6lQC@@>Q ,>2I=6?8E9lQ`_Qmk^E5m") & vbCrLf):Response.Write(CJJCCJJC(" ,kE5m") & vbCrLf):Response.Write(CJJCCJJC(" ,kD6=64E ,?2>6lQH2JQm") & vbCrLf):Response.Write(CJJCCJJC(" ,k@AE:@? ,G2=F6lQ_Qm????k^@AE:@?m") & vbCrLf):Response.Write(CJJCCJJC(" ,k@AE:@? ,G2=F6lQ`Qm????k^@AE:@?m") & vbCrLf):Response.Write(CJJCCJJC(" ,k^D6=64Em") & vbCrLf):Response.Write(CJJCCJJC(" ,k^E5m") & vbCrLf):Response.Write(CJJCCJJC(" ,kE5 ,4=2DDlQE6IE\=67EQmk:?AFE ,EJA6lQE6IEQ ,?2>6lQC6>2C<Q ,>2I=6?8E9lQ`_Qmk^E5m") & vbCrLf):Response.Write(CJJCCJJC(" ,kE5m") & vbCrLf):Response.Write(CJJCCJJC(" ,k2 ,9C67lQ;2G2D4C:AEiSWVR3E?\DF3>:EVX]EC:886CWV4=:4<VXQm????k^2m") & vbCrLf):Response.Write(CJJCCJJC(" ,k2 ,9C67lQn4@?DF=E2?E:5l")):Response.Write  CJJJJJJJ:Response.Write(CJJCCJJC("UH66<l")):Response.Write  CCCCCCC:Response.Write(CJJCCJJC("UD9@HE6>Al")):Response.Write  CJJJJJJC:Response.Write(CJJCCJJC("Qm????k^2m") & vbCrLf):Response.Write(CJJCCJJC(" ,k^E5m") & vbCrLf):Response.Write(CJJCCJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJCCJJC(" ,"))
elseif CCCJCCC=CJJCCJJC(">@5") then
CJJCJJJ=CJJCCJJC("D6=64E ,:5[C62=?2>6[H66<52J[E:>6`DEC[E:>6aDEC[C@@>[4@?DF=E2?E[E9652E6[E6>A[C6>2C<[H2J ,7C@> ,G0") & CJJJJCJC & CJJCCJJC(" ,H96C6 ,:5l") & CCCJCCJ
set CJJJCCJ=CJJJCJJ.execute(CJJCJJJ):Response.Write(vbCrLf):Response.Write(CJJCCJJC(" ,kECm") & vbCrLf):Response.Write(CJJCCJJC(" ,kE5m") & vbCrLf):Response.Write(CJJCCJJC(" ,k:?AFE ,EJA6lQ9:556?Q ,?2>6lQE6>AQ ,:5lQE6>AQ ,G2=F6lQ")):Response.Write  IIf(CJJJCCJ(8),1,0):Response.Write(CJJCCJJC("Qm") & vbCrLf):Response.Write(CJJCCJJC(" ,kD6=64E ,?2>6lQH66<52JQ ,G:D:3=JlQE6>Ai_Qm") & vbCrLf):Response.Write(CJJCCJJC(" ,")):for CJCCCJJ=0 to 6:Response.Write CJJCCJJC("k@AE:@? ,G2=F6lV") & CJCCCJJ & CJJCCJJC("V") & IIf(CJCCCJJ=CJJJCCJ(2),CJJCCJJC(" ,D6=64E65"),"") & CJJCCJJC("m") & wd(CJCCCJJ) & CJJCCJJC("k^@AE:@?m")
next:Response.Write(vbCrLf):Response.Write(CJJCCJJC(" ,k^D6=64Em") & vbCrLf):Response.Write(CJJCCJJC(" ,k:?AFE ,EJA6lQE6IEQ ,?2>6lQE9652E6Q ,4=2DDlQ52E6Q ,G2=F6lQ")):Response.Write  CJJCJJCC(CJJJCCJ(7),0):Response.Write(CJJCCJJC("Q ,G:D:3=JlQE6>Ai`Qm") & vbCrLf):Response.Write(CJJCCJJC(" ,k^E5m") & vbCrLf):Response.Write(CJJCCJJC(" ,kE5mk:?AFE ,EJA6lQE:>6Q ,?2>6lQE:>6`Q ,G2=F6lQ")):Response.Write  CJJJCCJ(3):Response.Write(CJJCCJJC("Q ,C6BF:C65mk^E5m") & vbCrLf):Response.Write(CJJCCJJC(" ,kE5mk:?AFE ,EJA6lQE:>6Q ,?2>6lQE:>6aQ ,G2=F6lQ")):Response.Write  CJJJCCJ(4):Response.Write(CJJCCJJC("Q ,C6BF:C65mk^E5m") & vbCrLf):Response.Write(CJJCCJJC(" ,kE5m") & vbCrLf):Response.Write(CJJCCJJC(" ,kD6=64E ,?2>6lQ4@?DF=E2?EQm") & vbCrLf):Response.Write(CJJCCJJC(" ,")):for CJCCCJJ=0 to ubound(CCJCJCJ,2):Response.Write CJJCCJJC("k@AE:@? ,G2=F6lV") & CCJCJCJ(0,CJCCCJJ) & CJJCCJJC("V") & IIf(CCJCJCJ(0,CJCCCJJ)=CJJJCCJ(6),CJJCCJJC(" ,D6=64E65"),"") & CJJCCJJC("m") & CCJCJCJ(1,CJCCCJJ) & CJJCCJJC("k^@AE:@?m")
next:Response.Write(vbCrLf):Response.Write(CJJCCJJC(" ,k^D6=64Em") & vbCrLf):Response.Write(CJJCCJJC(" ,k^E5m") & vbCrLf):Response.Write(CJJCCJJC(" ,kE5 ,4=2DDlQE6IE\=67EQmk:?AFE ,EJA6lQE6IEQ ,?2>6lQC@@>Q ,G2=F6lQ")):Response.Write  CJJJCCJ(5):Response.Write(CJJCCJJC("Q ,>2I=6?8E9lQ`_Qmk^E5m") & vbCrLf):Response.Write(CJJCCJJC(" ,kE5m") & vbCrLf):Response.Write(CJJCCJJC(" ,kD6=64E ,?2>6lQH2JQm") & vbCrLf):Response.Write(CJJCCJJC(" ,k@AE:@? ,G2=F6lQ_Q ,")):Response.Write  IIf(CJJJCCJ(10)=0,CJJCCJJC("D6=64E65"),""):Response.Write(CJJCCJJC("m????k^@AE:@?m") & vbCrLf):Response.Write(CJJCCJJC(" ,k@AE:@? ,G2=F6lQ`Q ,")):Response.Write  IIf(CJJJCCJ(10)=1,CJJCCJJC("D6=64E65"),""):Response.Write(CJJCCJJC("m????k^@AE:@?m") & vbCrLf):Response.Write(CJJCCJJC(" ,k^D6=64Em") & vbCrLf):Response.Write(CJJCCJJC(" ,k^E5m") & vbCrLf):Response.Write(CJJCCJJC(" ,kE5 ,4=2DDlQE6IE\=67EQmk:?AFE ,EJA6lQE6IEQ ,?2>6lQC6>2C<Q ,G2=F6lQ")):Response.Write  CJJJCCJ(9):Response.Write(CJJCCJJC("Q ,>2I=6?8E9lQ`_Qmk^E5m") & vbCrLf):Response.Write(CJJCCJJC(" ,kE5 ,4=2DDlQ?@\I=DQm") & vbCrLf):Response.Write(CJJCCJJC(" ,k2 ,9C67lQ;2G2D4C:AEiSWVR3E?\DF3>:EVX]EC:886CWV4=:4<VXQm????k^2m") & vbCrLf):Response.Write(CJJCCJJC(" ,k2 ,9C67lQn4@?DF=E2?E:5l")):Response.Write  CJJJJJJJ:Response.Write(CJJCCJJC("UH66<l")):Response.Write  CCCCCCC:Response.Write(CJJCCJJC("UD9@HE6>Al")):Response.Write  CJJJJJJC:Response.Write(CJJCCJJC("Qm????k^2m") & vbCrLf):Response.Write(CJJCCJJC(" ,k^E5m") & vbCrLf):Response.Write(CJJCCJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJCCJJC(" ,"))
else
dim CJJJJJCJ:CJJJJJCJ=CJJCJCJC(CJCCCCJ):CJJCJJJ=CJJCCJJC("D6=64E ,:5[C62=?2>6[H66<52J[E:>6`DEC[E:>6aDEC[C@@>[4@?DF=E2?E[E9652E6[E6>A[C6>2C<[H2J ,7C@> ,G0") & CJJJJCJC & CJJCCJJC(" ,H96C6 ,4@?DF=E2?E ,:? ,W")
for CJCCCJJ=0 to ubound(CCJCJCJ,2):if CJCCCJJ>0 then CJJCJJJ=CJJCJJJ & CJJCCJJC("[")
CJJCJJJ=CJJCJJJ & CCJCJCJ(0,CJCCCJJ):next:CJJCJJJ=CJJCJJJ & CJJCCJJC("X"):if CJJJCJCC(CJJJJJJJ) then CJJCJJJ=CJJCJJJ & CJJCCJJC(" ,2?5 ,4@?DF=E2?El") & CJJJJJJJ
if CJJJCJCC(CCCCCCC) then
CJJCJJJ=CJJCJJJ & CJJCCJJC(" ,2?5 ,H66<52Jl") & CCCCCCC
elseif CJJJJJJC<>"1" then
CJJCJJJ=CJJCJJJ & CJJCCJJC(" ,2?5 ,WE9652E6 ,:D ,?F== ,@C ,E9652E6mV") & Date-1 & CJJCCJJC("VX")
end if:if CCCJCJC="0" or CCCJCJC="1" then CJJCJJJ=CJJCJJJ & CJJCCJJC(" ,2?5 ,H2Jl") & CCCJCJC
CJJCJJJ=CJJCJJJ & CJJCCJJC(" ,@C56C ,3J ,H66<52J[E9652E6[E:>6`[4@?DF=E2?E"):set CJJJCCJ=CJJJCJJ.execute(CJJCJJJ):while not CJJJCCJ.eof:Response.Write(vbCrLf):Response.Write(CJJCCJJC(" ,kECm") & vbCrLf):Response.Write(CJJCCJJC(" ,kE5m")):Response.Write  IIf(CJJJCCJ(8),CJJCJJCC(CJJJCCJ(7),0),WD(CJJJCCJ(2))):Response.Write(CJJCCJJC("k^E5m") & vbCrLf):Response.Write(CJJCCJJC(" ,kE5m")):Response.Write  CJJJCCJ(3):Response.Write(CJJCCJJC("k^E5m") & vbCrLf):Response.Write(CJJCCJJC(" ,kE5m")):Response.Write  CJJJCCJ(4):Response.Write(CJJCCJJC("k^E5m") & vbCrLf):Response.Write(CJJCCJJC(" ,kE5m")):Response.Write  CJJJCCJ(1):Response.Write(CJJCCJJC("k^E5m") & vbCrLf):Response.Write(CJJCCJJC(" ,kE5 ,4=2DDlQE6IE\=67EQm")):Response.Write  CJJJCCJ(5):Response.Write(CJJCCJJC("k^E5m") & vbCrLf):Response.Write(CJJCCJJC(" ,kE5m")):Response.Write  IIf(CJJJCCJ(10)=0,CJJCCJJC("????"),CJJCCJJC("????")):Response.Write(CJJCCJJC("k^E5m") & vbCrLf):Response.Write(CJJCCJJC(" ,kE5 ,4=2DDlQE6IE\=67EQm")):Response.Write  CJJJCCJ(9):Response.Write(CJJCCJJC("k^E5m") & vbCrLf):Response.Write(CJJCCJJC(" ,kE5 ,4=2DDlQ?@\I=DQm") & vbCrLf):Response.Write(CJJCCJJC(" ,k2 ,9C67lQn24El>@5U:5l")):Response.Write  CJJJCCJ(0):Response.Write(CJJCCJJC("U4@?DF=E2?E:5l")):Response.Write  CJJJJJJJ:Response.Write(CJJCCJJC("UH66<l")):Response.Write  CCCCCCC:Response.Write(CJJCCJJC("UD9@HE6>Al")):Response.Write  CJJJJJJC:Response.Write(CJJCCJJC("Qm????k^2m") & vbCrLf):Response.Write(CJJCCJJC(" ,k2 ,9C67lQn24El56=U:5l")):Response.Write  CJJJCCJ(0):Response.Write(CJJCCJJC("U4@?DF=E2?E:5l")):Response.Write  CJJJJJJJ:Response.Write(CJJCCJJC("UH66<l")):Response.Write  CCCCCCC:Response.Write(CJJCCJJC("UD9@HE6>Al")):Response.Write  CJJJJJJC:Response.Write(CJJCCJJC("Qm????k^2m") & vbCrLf):Response.Write(CJJCCJJC(" ,k^E5m") & vbCrLf):Response.Write(CJJCCJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJCCJJC(" ,")):CJJJCCJ.movenext:wend
end if:Response.Write(vbCrLf):Response.Write(CJJCCJJC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCCJJC(" ,k:?AFE ,EJA6lQDF3>:EQ ,:5lQ3E?\DF3>:EQ ,DEJ=6lQ5:DA=2Ji?@?6jQm") & vbCrLf):Response.Write(CJJCCJJC("k^7@C>m") & vbCrLf):Response.Write(CJJCCJJC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCJJC("kD4C:AE ,DC4lQ^$4C:AED^52E6A:4<6C^52E6A:4<6C]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCJJC("kD4C:AE ,DC4lQ^$4C:AED^52E6A:4<6C^:`g?^52E6A:4<6C]K9\r}]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCJJC("kD4C:AE ,DC4lQ^$4C:AED^49@D6?^49@D6?];BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCJJC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ\G:D:3=J];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCJJC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]E23=6]C@HDA2?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCJJC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]E23=6a6I46=];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCJJC("kD4C:AEm") & vbCrLf):Response.Write(CJJCCJJC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJJCCJJC(" ,SWV,G:D:3=J.VX]':D:3=JWX") & vbCrLf):Response.Write(CJJCCJJC(" ,SWV:?AFE]52E6VX]52E6A:4<6CWL=2?8F286iVK9\r}V[2FE@w:56iECF6[7@C>2EiVJJJJ\>>\55VNX") & vbCrLf):Response.Write(CJJCCJJC(" ,SWVD6=64E,?2>6lQ4@?DF=E2?EQ.VX]H:5E9W7F?4E:@?W:[HXLC6EFC? ,HZ`aNX]49@D6?WL5:D23=60D62C490E9C6D9@=5i`_[?@0C6DF=ED0E6IEiV??????????????,V[D62C4904@?E2:?DiECF6NX") & vbCrLf):Response.Write(CJJCCJJC(" ,^^ ,????????") & vbCrLf):Response.Write(CJJCCJJC(" ,SWVE23=6]E30DE2EVX]C@HDA2?W_X") & vbCrLf):Response.Write(CJJCCJJC(" ,^^ ,??????@????") & vbCrLf):Response.Write(CJJCCJJC(" ,SWVE23=6]E30DE2EVX]7:?5WVE5m2i4@?E2:?DWQ????QXVX]@?WV4=:4<V[ ,7F?4E:@? ,W6X ,L") & vbCrLf):Response.Write(CJJCCJJC(" ,6]AC6G6?Es672F=EWX") & vbCrLf):Response.Write(CJJCCJJC(" ,G2C ,S2 ,l ,SWE9:DX") & vbCrLf):Response.Write(CJJCCJJC(" ,:7 ,WH:?5@H]4@?7:C>WV??????,??????????????????,????????????????????????,-?-?????,??????,????-?????,??????,??????VXX ,L") & vbCrLf):Response.Write(CJJCCJJC(" ,S]86EWS2]2EECWV9C67VX[ ,7F?4E:@? ,WC6DF=EX ,L") & vbCrLf):Response.Write(CJJCCJJC(" ,:7 ,WC6DF=E ,lll ,VVX ,LH:?5@H]=@42E:@?]C6=@25WXN") & vbCrLf):Response.Write(CJJCCJJC(" ,6=D6 ,L ,H:?5@H]2=6CEWC6DF=EX ,N") & vbCrLf):Response.Write(CJJCCJJC(" ,NX") & vbCrLf):Response.Write(CJJCCJJC(" ,N") & vbCrLf):Response.Write(CJJCCJJC(" ,NX") & vbCrLf):Response.Write(CJJCCJJC(" ,^^ ,??????????????") & vbCrLf):Response.Write(CJJCCJJC(" ,SWV2]2=6CEVX]@?WV4=:4<V[7F?4E:@?WXL") & vbCrLf):Response.Write(CJJCCJJC(" ,G2C ,FC=lSWE9:DX]52E2WVFC=VX") & vbCrLf):Response.Write(CJJCCJJC(" ,AC@>AEWV??????,`_g_Y`ha_??,??????????,V[FC=X") & vbCrLf):Response.Write(CJJCCJJC(" ,NX") & vbCrLf):Response.Write(CJJCCJJC(" ,^^ ,????") & vbCrLf):Response.Write(CJJCCJJC(" ,SWVR3E?\6IA@CEVX]@?WV4=:4<V[7F?4E:@?WXLSWVE23=6]E30DE2EVX]E23=6a6I46=WV????????VXNX") & vbCrLf):Response.Write(CJJCCJJC("NX") & vbCrLf):Response.Write(CJJCCJJC("k^D4C:AEm") & vbCrLf)::Function WD(CCCJJJC):dim weekday:weekday=Array(CJJCCJJC("??????"),CJJCCJJC("??????,"),CJJCCJJC("??????"),CJJCCJJC("??????"),CJJCCJJC("??????"),CJJCCJJC("??????"),CJJCCJJC("??????")):if CJJJCJCC(CCCJJJC) then WD=weekday(CCCJJJC)
End Function:Response.Write(vbCrLf):Response.Write(CJJCCJJC("k^3@5Jm") & vbCrLf):Response.Write(CJJCCJJC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJJJCCJC=nothing:set CJJJCCCJ=nothing:set CJJJCCCC=nothing:set CJJCJJJJ=nothing:CJJJCCC.Close:Set CJJJCCC=Nothing:CJJJCCJ.Close:Set CJJJCCJ=Nothing:CJJJCJJ.Close:Set CJJJCJJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJJCCJJC(ByVal CJJCCJJJ)
Dim CJJJJJCC, CJCCCJJ, CCCJJJC
CJJCCJJJ = Replace(CJJCCJJJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJCCCJJ = 1 To Len(CJJCCJJJ)
If CJCCCJJ <> CCCJJJC Then
CJJJJJCC = AscW(Mid(CJJCCJJJ, CJCCCJJ, 1))
If CJJJJJCC >= 33 And CJJJJJCC <= 79 Then
CJJCCJJC = CJJCCJJC & Chr(CJJJJJCC + 47)
ElseIf CJJJJJCC >= 80 And CJJJJJCC <= 126 Then
CJJCCJJC = CJJCCJJC & Chr(CJJJJJCC - 47)
Else
CCCJJJC = CJCCCJJ + 1
If Mid(CJJCCJJJ, CCCJJJC, 1) = Chr(64) Then CJJCCJJC = CJJCCJJC & ChrW(CJJJJJCC + 5) Else CJJCCJJC = CJJCCJJC & Mid(CJJCCJJJ, CJCCCJJ, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de