Edit D:\xinhaisoft\crisis_new\school\admin\room\time.asp

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJCJCJ, CJCJCC,CJCCJJ, CJCCJC, CJCCCJ:Set CJCJCJ = server.CreateObject(CCJJJCJ("ps~sq]r@??64E:@?")):CJCJCJ.open Application(CCJJJCJ("r@??64E:@?$EC:?8")):Set CJCJCC=CJCJCJ::Dim CJCCCC,CCJJJJ,CCJJJC,CCJJCJ,CCJJCC,CCJCJJ,CCJCJC,CCJCCJ,CCJCCC:Dim CCCJJJ,CCCJJC,CCCJCJ,CCCJCC,CCCCJJ,CCCCJC:Dim CCCCCJ,CCCCCC,CJJJJJJ:Dim CJJJJJC:CJJJJJC=Trim(Request.Cookies(CCJJJCJ("!$*|t|qt#"))):if CJJJJJC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJCCCC>0 then
CJCCCJ=CCJJJCJ("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") & CCJJJJ & CCJJJCJ("V ,2?5 ,:5l") & CJCCCC
set CJCCJJ=CJCJCJ.execute(CJCCCJ):If CJCCJJ.EOF Then
Call ClearMemberCookie
Else
CCJJJC=CJCCJJ(2) & "":CCJJCJ=CJCCJJ(3):CCJJCC=CJCCJJ(5):CCJCJJ=CJCCJJ(6):CCJCJC=CJCCJJ(9):CCJCCJ=CJCCJJ(15):CCCJJJ=CJCCJJ(0):CCCCCC=CJCCJJ(1):CCCCCJ=CJCCJJ(11) & "":CCCJJC=CJCCJJ(10) & "":CCJCCC=CJCCJJ(12):CCCJCJ=CJCCJJ(14):CCCJCC=CJCCJJ(13):CCCCJJ=CJCCJJ(7) & "":CCCCJC=CJCCJJ(4):CJJJJJJ=CJCCJJ(8):if isnull(CCJCCJ) then CCJCCJ=0
if isnull(CCJCJC) or CCJCJC=0 then CCJCJC=CCJJCJ
if isnull(CCCCJC) then CCCCJC=0
if isnull(CCJJCC) then CCJJCC=0
if instr(CCJJJCJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CCJJJJ)>0 then Call RedirectMessage(CCJJJCJ("????????,????????????????????????????????,"))
Call SetMemberCookie(CJCCCC,CCJJJJ)
End IF
end if:::Sub CheckLogined():if CJCCCC=0 then
Call ClearMemberCookie:Call ConnClose:dim CJJJJCJ:CJJJJCJ=trim(request.QueryString(CCJJJCJ("D49@@="))):if isnumeric(CJJJJCJ) then
response.Redirect CCJJJCJ("^>^G2?E^R^D49@@=^") & CJJJJCJ & CCJJJCJ("^DEF56?E^=@8:?nC65:C64El") & url
else
Call RedirectMessage(CCJJJCJ("??????????????,????????????,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CCJJJCJ("!$*|t|qt#"))="":CJCCCC=0:CCJCJJ=0:CCJJJJ=Empty:CCJJCC=0:CCJCCJ=0:CCJCJC=0:CCJJCJ=0:CCCJJJ=False:CCCCCC=False:CJJJJJJ=Empty:End Sub:Sub CheckMemberCookie():dim CJJJJCC,CJJJCJJ,CJJJCJC,CJJJCCJ,CJJJCCC:CJJJJCC=split(CJJJJJC,CCJJJCJ("]")):if ubound(CJJJJCC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJJJJCC(0)) or len(CJJJJCC(1))<>32 or len(CJJJJCC(2))<>32 then
Call ClearMemberCookie
else
CJJJCJJ=CJJJJCC(1):for CJJJCJC=1 to len(CJJJCJJ):CJJJCCJ=mid(CJJJCJJ,CJJJCJC,1):if isnumeric(CJJJCCJ) then CJJJCCC=CJJJCCC & CJJJCCJ
if len(CJJJCCC)=7 then exit for
next:CJJJCJJ=CJJJJCC(2):if CJJJCCC<>mid(CJJJCJJ,6,7) then
Call ClearMemberCookie
else
CJJJCCJ=mid(CJJJCJJ,18,10)/2:if CJJJCCJ<DateDiff(CCJJJCJ("D"), CCJJJCJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJCCCC=Clng(CJJJJCC(0)):CCJJJJ=CJJJJCC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJCJJJC,CCJJJCC):dim CJJJCJC,CJJJCCJ,CJJJCCC:for CJJJCJC=1 to len(CCJJJCC):CJJJCCJ=mid(CCJJJCC,CJJJCJC,1):if isnumeric(CJJJCCJ) then CJJJCCC=CJJJCCC & CJJJCCJ
if len(CJJJCCC)=7 then exit for
next:CJJJCCC=CJCJJJC & CCJJJCJ("]") & CCJJJCC & CCJJJCJ("]") & Fix(10000*(Rnd+1)) & CJJJCCC & Fix(10000*(Rnd+1)) & DateDiff(CCJJJCJ("D"), CCJJJCJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CCJJJCJ("!$*|t|qt#"))=CJJJCCC:End Sub::Function CJCCJJJ(CCJJCJJ):Dim str,CJJCJJC:str = Trim(CCJJCJJ):If IsNull(str) Or str = "" Then
CJCCJJJ = ""
else
str=Replace(str, CCJJJCJ("V"), "")
str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CCJJJCJ("k:7C2>6"), CCJJJCJ("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CCJJJCJ("kD4C:AE"), CCJJJCJ("U=EjD4C:AE"),1,-1,1):str=Replace(str,CCJJJCJ(";2G2D4C:AEi"), CCJJJCJ(",IDD."),1,-1,1):str=Replace(str,CCJJJCJ("2=6CEW"), CCJJJCJ(",IDD."),1,-1,1):str=Replace(str,CCJJJCJ("4@?7:C>W"), CCJJJCJ(",IDD."),1,-1,1):str=Replace(str,CCJJJCJ("AC@>AEW"), CCJJJCJ(",IDD."),1,-1,1):str=Replace(str,CCJJJCJ("6G2=W"), CCJJJCJ(",IDD."),1,-1,1):str=Replace(str,CCJJJCJ("5@4F>6?E]"), CCJJJCJ(",IDD."),1,-1,1):On Error Goto 0:set CJJCJJC=new RegExp:CJJCJJC.Pattern=CCJJJCJ("@?W,2\K.ZXl"):CJJCJJC.IgnoreCase = True:CJJCJJC.Global=True:str=CJJCJJC.Replace(str,CCJJJCJ("@?S`U6BF2=Dj")):set CJJCJJC=nothing:CJCCJJJ=str
End If:End Function:Function IIf(CCJJCJC, CCJJCCJ, CCJJCCC):if isnull(CCJJCJC) or isempty(CCJJCJC) then
IIf = CCJJCCC
elseif CCJJCJC Then
IIf = CCJJCCJ
Else
IIf = CCJJCCC
end if:End Function:Const CJCJCCJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CCJCJJJ,CCJCJJC):dim CJJJJCC:CJJJJCC=CCJCJJJ & "=" & CCJCJJC & CCJJJCJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCJJJCJ("$6E\r@@<:6"),CJJJJCC):End Sub:::::::Function CJCCJCJ(CJCJCJC):if isnull(CJCJCJC) or trim(CJCJCJC)="" or not isnumeric(CJCJCJC) then
CJCCJCJ=false
else
Dim CJJCJJC:Set CJJCJJC = New RegExp:CJJCJJC.Pattern = CCJJJCJ("/-5ZS"):CJJCJJC.IgnoreCase = True:CJCCJCJ = CJJCJJC.test(CJCJCJC):set CJJCJJC=nothing
end if:End Function:Function CJCCJCC(CCJCJCJ):dim CJJCJCJ,CJJCJCC:CJJCJCJ=CCJJJCJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CCJCJCJ & CCJJJCJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJJCJCC=CJCJCJ.execute(CJJCJCJ):CJCCJCC = CJJCJCC(0):if isnull(CJCCJCC) then CJCCJCC=1
CJJCJCC.close : set CJJCJCC=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CJCCCJJ=nothing:set CJCCCJC=nothing:set CJCCCCJ=nothing:set CJCCCCC=nothing:CJJCJCC.close : set CJJCJCC=nothing:CJCCJC.Close : Set CJCCJC=Nothing:CJCCJJ.Close : Set CJCCJJ=Nothing:CCJJJJJ.Close : Set CCJJJJJ = Nothing:CJCJCJ.Close : Set CJCJCJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCJCJCC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCJJJCJ("!$*0|6DD286"),server.URLEncode(CCJCJCC)):Response.Redirect CCJJJCJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::::::::::::::Call CheckLogined:if not CCCJJJ then Call RedirectMessage(CCJJJCJ("????????????M????????,????????????????????????,"))
dim CJJJJCJ,CJJCCJJ(38):CJJJJCJ=CCJCJC:if not CJCCJCJ(CJJJJCJ) or CJJJJCJ=0 then
server.Transfer CCJJJCJ("=@8:?]2DA")
end if:CJCCCJ=CCJJJCJ("D6=64E ,E@A ,` ,;:2@H6:[EJA6[4FDE@>8C@FA[D:5632C0@E96C[E6DEC6DF=EG:6H[>2I>6>36C[:D?6H[C6E6DE52J[6IA:C652E6[E:E=6[>6>36C0EJA60?2>6[4@AJC:89E[A:4EFC6[DEF56?E2AA62=[6>2:=0D>EA[6>2:=0=@8:??2>6[6>2:=0=@8:?A2DD[6>2:=07C@>[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 ,7C@> ,G0D49@@= ,H96C6 ,:5l") & CJJJJCJ:set CJCCJJ=CJCJCJ.execute(CJCCCJ):if CJCCJJ.eof then Call RedirectMessage(CCJJJCJ("??????????M????????,??????????????W") & CJJJJCJ & CCJJJCJ("X??????????????????,??????????????,"))
CJJCCJJ(0)=CJCCJJ(0) & "":CJJCCJJ(1)=CJCCJJ(1):CJJCCJJ(3)=CJCCJJ(2) & "":CJJCCJJ(4)=CJCCJJ(3) & "":CJJCCJJ(5)=CJCCJJ(4):CJJCCJJ(6)=CJCCJJ(5):CJJCCJJ(8)=CJCCJJ(7):CJJCCJJ(9)=CJCCJJ(8):CJJCCJJ(10)=CJCCJJ(9) & "":CJJCCJJ(11)=CJCCJJ(11) & "":CJJCCJJ(12)=CJCCJJ(12) & "":CJJCCJJ(14)=CJCCJJ(14) & "":CJJCCJJ(15)=CJCCJJ(15) & "":CJJCCJJ(16)=CJCCJJ(16) & "":CJJCCJJ(17)=CJCCJJ(17) & "":CJJCCJJ(18)=CJCCJJ(18):CJJCCJJ(19)=IIf(CJCCJJ(19),True,False):CJJCCJJ(20)=CJCCJJ(20):CJJCCJJ(25)=CJCCJJ(21):CJJCCJJ(27)=CJCCJJ(22):CJJCCJJ(28)=CJCCJJ(23):CJJCCJJ(29)=IIf(CJCCJJ(24),False,True):CJJCCJJ(30)=CJCCJJ(25):CJJCCJJ(31)=CJCCJJ(26):CJJCCJJ(32)=CJCCJJ(27):CJJCCJJ(33)=CJCCJJ(28):CJJCCJJ(34)=CJCCJJ(29):CJJCCJJ(35)=IIf(CJCCJJ(6),True,False):CJJCCJJ(36)=121:CJJCCJJ(37)=111:CJJCCJJ(38)=160:if isNull(CJJCCJJ(8)) then CJJCCJJ(8)=0
if not isdate(CJJCCJJ(9)) then CJJCCJJ(9)=Date+2 else CJJCCJJ(9)=cdate(CJJCCJJ(9))
if CJJCCJJ(9)<Date then Call RedirectMessage(CCJJJCJ("??????????M????????,????????????????W") & CJJCCJJ(9) & CCJJJCJ("X??????,"))
if CJJCCJJ(10)="" then CJJCCJJ(10)=CJCCJJ(10)
if CJJCCJJ(11)="" then CJJCCJJ(11)=CCJJJCJ("??????????,U4@AJj") & year(date)-1 & CCJJJCJ("\") & year(date)+1 & CCJJJCJ(" ,????????????????????????????????") & vbcrlf & CCJJJCJ("??????????,_`_\eahge_``^`a") & vbcrlf & CCJJJCJ("??????????,??????????????????,??????@??????????a????ac_`??W`___gdX") & vbcrlf & CCJJJCJ("??????????,k2 ,9C67lV9EEADi^^HHH]I:?92:D@7E]4@>V ,E2C86ElV03=2?<VmHHH]I:?92:D@7E]4@>k^2m")
if not CJCCJCJ(CJJCCJJ(20)) then CJJCCJJ(20)=7
select case CJJCCJJ(1):case 1,2,16:CJJCCJJ(36)=159:case 4,5,6,10,11:CJJCCJJ(36)=190:CJJCCJJ(37)=178:CJJCCJJ(38)=191:case 7,13:CJJCCJJ(36)=164:CJJCCJJ(37)=178:CJJCCJJ(38)=179:end select:Function CJCCCCC(CCJCCJC):dim CJJCCJC(7,1),CJJJCJC,CJJCCCJ,CJJCCCC:CJJCCCJ=Array(CCJJJCJ("$49@@="),CCJJJCJ("$EF56?E"),CCJJJCJ("s6AE"),CCJJJCJ("vC256"),CCJJJCJ("r=2DD>2E6"),CCJJJCJ("}F>36C"),CCJJJCJ("%62496C"),CCJJJCJ("!2C6?E")):select case CJJCCJJ(1):case 1,2 : CJJCCCC=Array(CCJJJCJ("????"),CCJJJCJ("????"),CCJJJCJ("????"),CCJJJCJ("????"),CCJJJCJ("????"),CCJJJCJ("????"),CCJJJCJ("????"),CCJJJCJ("????")):case 3,16 : CJJCCCC=Array(CCJJJCJ("????"),CCJJJCJ("????"),CCJJJCJ("????"),CCJJJCJ("????"),CCJJJCJ("????"),CCJJJCJ("????"),CCJJJCJ("????"),CCJJJCJ("????")):case 4 : CJJCCCC=Array(CCJJJCJ("????"),CCJJJCJ("??????@"),CCJJJCJ("????"),CCJJJCJ("????"),CCJJJCJ("????"),CCJJJCJ("????"),CCJJJCJ("????"),CCJJJCJ("????")):case 5 : CJJCCCC=Array(CCJJJCJ("????"),CCJJJCJ("????"),CCJJJCJ("????"),CCJJJCJ("????"),CCJJJCJ("????"),CCJJJCJ("????"),CCJJJCJ("????"),CCJJJCJ("????")):case 6 : CJJCCCC=Array(CCJJJCJ("????"),CCJJJCJ("??????@"),CCJJJCJ("????"),CCJJJCJ("????"),CCJJJCJ("????"),CCJJJCJ("????"),CCJJJCJ("??????"),CCJJJCJ("????")):case 7 : CJJCCCC=Array(CCJJJCJ("????"),CCJJJCJ("????"),CCJJJCJ("????"),CCJJJCJ("????"),CCJJJCJ("????"),CCJJJCJ("????"),CCJJJCJ("??????"),CCJJJCJ("????")):case 8 : CJJCCCC=Array(CCJJJCJ("????"),CCJJJCJ("??????@"),CCJJJCJ("????"),CCJJJCJ("????????"),CCJJJCJ("????"),CCJJJCJ("????"),CCJJJCJ("??????"),CCJJJCJ("????")):case 9 : CJJCCCC=Array(CCJJJCJ("????"),CCJJJCJ("????"),CCJJJCJ("????"),CCJJJCJ("????"),CCJJJCJ("????"),CCJJJCJ("????"),CCJJJCJ("??????"),CCJJJCJ("????")):case 10 : CJJCCCC=Array(CCJJJCJ("????"),CCJJJCJ("????"),CCJJJCJ("????"),CCJJJCJ("????????"),CCJJJCJ("????"),CCJJJCJ("????"),CCJJJCJ("??????"),CCJJJCJ("????")):case 11 : CJJCCCC=Array(CCJJJCJ("????"),CCJJJCJ("??????"),CCJJJCJ("????"),CCJJJCJ("????"),CCJJJCJ("????"),CCJJJCJ("????"),CCJJJCJ("??????"),CCJJJCJ("????")):case 12 : CJJCCCC=Array(CCJJJCJ("????"),CCJJJCJ("????"),CCJJJCJ("????"),CCJJJCJ("????????"),CCJJJCJ("????"),CCJJJCJ("????"),CCJJJCJ("??????"),CCJJJCJ("????")):case 13 : CJJCCCC=Array(CCJJJCJ("????"),CCJJJCJ("????"),CCJJJCJ("????"),CCJJJCJ("????"),CCJJJCJ("????"),CCJJJCJ("????"),CCJJJCJ("????"),CCJJJCJ("????")):case 14 : CJJCCCC=Array(CCJJJCJ("??????"),CCJJJCJ("??@??"),CCJJJCJ("????"),CCJJJCJ("????"),CCJJJCJ("????"),CCJJJCJ("????"),CCJJJCJ("??????"),CCJJJCJ("????")):case 15 : CJJCCCC=Array(CCJJJCJ("????"),CCJJJCJ("????????"),CCJJJCJ("????"),CCJJJCJ("????????"),CCJJJCJ("????"),CCJJJCJ("????"),CCJJJCJ("??????"),CCJJJCJ("????")):case else : CJJCCCC=CJJCCCJ
end select:for CJJJCJC=0 to Ubound(CJJCCJC):CJJCCJC(CJJJCJC,0)=CJJCCCJ(CJJJCJC):CJJCCJC(CJJJCJC,1)=CJJCCCC(CJJJCJC):next:for CJJJCJC=0 to Ubound(CJJCCJC):if CJJCCJC(CJJJCJC,0)=CCJCCJC then
CJCCCCC=CJJCCJC(CJJJCJC,1):exit for
end if:next:End Function:::if CCJCJC<>CCJJCJ then Call RedirectMessage(CCJJJCJ("????????,??????????????????????????????,"))
Const CJCJCCC="FunctionalRoom_Time":dim CJCJJJJ,CJCJJJC,CJCJJCJ:CJCJJCJ=request.querystring("room"):CJCJJJJ=request.querystring(CCJJJCJ("24E")):CJCJJJC=request.querystring(CCJJJCJ(":5")):if not CJCCJCJ(CJCJJCJ) then Call RedirectMessage(CCJJJCJ("????????,??????????????,"))
if CJCJJJJ=CCJJJCJ("56=") then
CJCCCJ=CCJJJCJ("56=6E6 ,7C@> ,uF?4E:@?2=#@@>0&D6 ,H96C6 ,E:>6:5l") & CJCJJJC  & CCJJJCJ("j56=6E6 ,7C@> ,") & CJCJCCC & CCJJJCJ(" ,H96C6 ,:5l") & CJCJJJC:CJCJCJ.execute CJCCCJ:CJCJJJJ=""
end if:if Request.ServerVariables(CCJJJCJ("#t""&t$%0|t%w~s"))=CCJJJCJ("!~$%") then
if CJCJJJJ=CCJJJCJ("255") then
CJCCCJ=CCJJJCJ(":?D6CE ,:?E@ ,") & CJCJCCC & CCJJJCJ("W:5[H66<52J[,E:>6.[C@@>X ,G2=F6DW") & CJCCJCC(CJCJCCC) & CCJJJCJ("[V") & request.form(CCJJJCJ("H66<52J")) & CCJJJCJ("V") & CCJJJCJ("[V") & CJCCJJJ(request.form(CCJJJCJ("E:>6"))) & CCJJJCJ("V") & CCJJJCJ("[") & CJCJJCJ  & CCJJJCJ("X")
CJCJCJ.execute CJCCCJ:CJCJJJJ=""
elseif CJCJJJJ=CCJJJCJ(">@5") then
CJCCCJ=CCJJJCJ("FA52E6 ,") & CJCJCCC & CCJJJCJ(" ,D6E") & CCJJJCJ(" ,H66<52JlV") & request.form(CCJJJCJ("H66<52J")) & CCJJJCJ("V") & CCJJJCJ("[,E:>6.lV") & CJCCJJJ(request.form(CCJJJCJ("E:>6"))) & CCJJJCJ("V") & CCJJJCJ(" ,H96C6 ,C@@>l") & CJCJJCJ & CCJJJCJ(" ,2?5 ,:5l") & CJCJJJC
CJCJCJ.execute CJCCCJ:CJCJJJJ=""
end if
end if:dim CJCJJCC,CJJJCJC:CJCJJCC=Array(CCJJJCJ("??????"),CCJJJCJ("??????,"),CCJJJCJ("??????"),CCJJJCJ("??????"),CCJJJCJ("??????"),CCJJJCJ("??????"),CCJJJCJ("??????")):Response.Write(vbCrLf):Response.Write(CCJJJCJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CCJJJCJ("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CCJJJCJ("k9625m") & vbCrLf):Response.Write(CCJJJCJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CCJJJCJ("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CCJJJCJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CCJJJCJ("kE:E=6m????????k^E:E=6m") & vbCrLf):Response.Write(CCJJJCJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ]]^DEJ=6]4DDQm") & vbCrLf):Response.Write(CCJJJCJ("kDEJ=6m") & vbCrLf):Response.Write(CCJJJCJ("R3E?\DF3>:E ,L ,5:DA=2Ji ,?@?6j ,N") & vbCrLf):Response.Write(CCJJJCJ("k^DEJ=6m") & vbCrLf):Response.Write(CCJJJCJ("k^9625m") & vbCrLf):Response.Write(CCJJJCJ("k3@5Jm") & vbCrLf):Response.Write(CCJJJCJ("k7@C> ,>6E9@5lQA@DEQm") & vbCrLf):Response.Write(CCJJJCJ(" ,kE23=6 ,4=2DDlQE30=:DEQm") & vbCrLf):Response.Write(CCJJJCJ(" ,kECm") & vbCrLf):Response.Write(CCJJJCJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CCJJJCJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CCJJJCJ(" ,kE9m????????,??????????,??????????????,k^E9m") & vbCrLf):Response.Write(CCJJJCJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CCJJJCJ(" ,k^ECm") & vbCrLf):Response.Write(CCJJJCJ(" ,")):If CJCJJJJ=CCJJJCJ("255") Then
Response.Write(vbCrLf):Response.Write(CCJJJCJ(" ,kECm") & vbCrLf):Response.Write(CCJJJCJ(" ,kE5mk^E5m") & vbCrLf):Response.Write(CCJJJCJ(" ,kE5 ,2=:8?lQ46?E6CQmkD6=64E ,?2>6lQH66<52JQm") & vbCrLf):Response.Write(CCJJJCJ(" ,")):for CJJJCJC=0 to 6:Response.Write CCJJJCJ("k@AE:@? ,G2=F6lV") & CJJJCJC & CCJJJCJ("Vm") & CJCJJCC(CJJJCJC) & CCJJJCJ("k^@AE:@?m")
next:Response.Write(vbCrLf):Response.Write(CCJJJCJ(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CCJJJCJ(" ,kE5mk:?AFE ,EJA6lQE6IEQ ,?2>6lQE:>6Q ,D:K6lQc_Q ,C6BF:C65mk^E5m") & vbCrLf):Response.Write(CCJJJCJ(" ,kE5 ,2=:8?lQC:89EQmk2 ,9C67lQ;2G2D4C:AEiSWVR3E?\DF3>:EVX]4=:4<WXjQm????k^2m ,k2 ,9C67lQnC@@>l")):Response.Write  CJCJJCJ:Response.Write(CCJJJCJ("Qm????k^2mk^E5m") & vbCrLf):Response.Write(CCJJJCJ(" ,k^ECm") & vbCrLf):Response.Write(CCJJJCJ(" ,"))
ElseIf CJCJJJJ=CCJJJCJ(">@5") Then
set CJCCJJ=CJCJCJ.execute(CCJJJCJ("D6=64E ,E@A ,` ,:5[H66<52J[,E:>6. ,7C@> ,") & CJCJCCC & CCJJJCJ(" ,H96C6 ,C@@>l") & CJCJJCJ & CCJJJCJ(" ,2?5 ,:5l") & CJCJJJC):Response.Write(vbCrLf):Response.Write(CCJJJCJ(" ,kECm") & vbCrLf):Response.Write(CCJJJCJ(" ,kE5mk^E5m") & vbCrLf):Response.Write(CCJJJCJ(" ,kE5 ,2=:8?lQ46?E6CQmkD6=64E ,?2>6lQH66<52JQm") & vbCrLf):Response.Write(CCJJJCJ(" ,")):for CJJJCJC=0 to 6:Response.Write CCJJJCJ("k@AE:@? ,G2=F6lV") & CJJJCJC & CCJJJCJ("V") & IIf(CJJJCJC=CJCCJJ(1),CCJJJCJ(" ,D6=64E65"),"") & CCJJJCJ("m") & CJCJJCC(CJJJCJC) & CCJJJCJ("k^@AE:@?m")
next:Response.Write(vbCrLf):Response.Write(CCJJJCJ(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CCJJJCJ(" ,kE5mk:?AFE ,EJA6lQE6IEQ ,?2>6lQE:>6Q ,G2=F6lQ")):Response.Write  CJCCJJ(2):Response.Write(CCJJJCJ("Q ,D:K6lQc_Q ,C6BF:C65mk^E5m") & vbCrLf):Response.Write(CCJJJCJ(" ,kE5 ,2=:8?lQC:89EQmk2 ,9C67lQ;2G2D4C:AEiSWVR3E?\DF3>:EVX]4=:4<WXjQm????k^2m ,k2 ,9C67lQnC@@>l")):Response.Write  CJCJJCJ:Response.Write(CCJJJCJ("Qm????k^2mk^E5m") & vbCrLf):Response.Write(CCJJJCJ(" ,k^ECm") & vbCrLf):Response.Write(CCJJJCJ(" ,"))
Else
CJJJCJC=1:set CJCCJJ=CJCJCJ.execute(CCJJJCJ("D6=64E ,:5[H66<52J[,E:>6. ,7C@> ,") & CJCJCCC & CCJJJCJ(" ,H96C6 ,C@@>l") & CJCJJCJ & CCJJJCJ(" ,@C56C ,3J ,H66<52J")):while not CJCCJJ.eof:Response.Write(vbCrLf):Response.Write(CCJJJCJ(" ,kECm") & vbCrLf):Response.Write(CCJJJCJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  CJJJCJC:Response.Write(CCJJJCJ("k^E5m") & vbCrLf):Response.Write(CCJJJCJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  CJCJJCC(CJCCJJ(1)):Response.Write(CCJJJCJ("k^E5m") & vbCrLf):Response.Write(CCJJJCJ(" ,kE5m")):Response.Write  CJCCJJ(2):Response.Write(CCJJJCJ("k^E5m") & vbCrLf):Response.Write(CCJJJCJ(" ,kE5 ,2=:8?lQC:89EQmk2 ,9C67lQn24El>@5UC@@>l")):Response.Write  CJCJJCJ:Response.Write(CCJJJCJ("U:5l")):Response.Write  CJCCJJ(0):Response.Write(CCJJJCJ("Qm????k^2m ,k2 ,9C67lQn24El56=UC@@>l")):Response.Write  CJCJJCJ:Response.Write(CCJJJCJ("U:5l")):Response.Write  CJCCJJ(0):Response.Write(CCJJJCJ("Qm????k^2mk^E5m") & vbCrLf):Response.Write(CCJJJCJ(" ,k^ECm") & vbCrLf):Response.Write(CCJJJCJ(" ,")):CJCCJJ.movenext:CJJJCJC=CJJJCJC+1:wend:Response.Write(vbCrLf):Response.Write(CCJJJCJ(" ,kECm") & vbCrLf):Response.Write(CCJJJCJ(" ,kE5 ,4@=DA2?lQcQ ,2=:8?lQC:89EQmk2 ,9C67lQn24El255UC@@>l")):Response.Write  CJCJJCJ:Response.Write(CCJJJCJ("Qm????k^2mk^E5m") & vbCrLf):Response.Write(CCJJJCJ(" ,k^ECm") & vbCrLf):Response.Write(CCJJJCJ(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CCJJJCJ(" ,k^E23=6m") & vbCrLf):Response.Write(CCJJJCJ(" ,k:?AFE ,EJA6lQDF3>:EQ ,:5lQ3E?\DF3>:EQm") & vbCrLf):Response.Write(CCJJJCJ("k^7@C>m") & vbCrLf):Response.Write(CCJJJCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJJJCJ("kD4C:AEm") & vbCrLf):Response.Write(CCJJJCJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CCJJJCJ(" ,SWVE23=6]E30=:DEVX]7:?5WVE5m2i4@?E2:?DWQ????QXVX]@?WV4=:4<V[7F?4E:@?W6XL") & vbCrLf):Response.Write(CCJJJCJ(" ,6]AC6G6?Es672F=EWXj") & vbCrLf):Response.Write(CCJJJCJ(" ,G2C ,S2lSWE9:DXj") & vbCrLf):Response.Write(CCJJJCJ(" ,:7W4@?7:C>WV??????,??????????????????,????????????????????????,-?-?????,??????,????-?????,??????,??????VXXLS]86EWS2]2EECWV9C67VX[7F?4E:@?WXLS2]4=@D6DEWVECVX]7256~FEWXjNXjN") & vbCrLf):Response.Write(CCJJJCJ(" ,NXj") & vbCrLf):Response.Write(CCJJJCJ("NXj") & vbCrLf):Response.Write(CCJJJCJ("k^D4C:AEm") & vbCrLf):Response.Write(CCJJJCJ("k^3@5Jm") & vbCrLf):Response.Write(CCJJJCJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJCCCJJ=nothing:set CJCCCJC=nothing:set CJCCCCJ=nothing:set CJCCCCC=nothing:CJCCJC.Close:Set CJCCJC=Nothing:CJCCJJ.Close:Set CJCCJJ=Nothing:CJCJCJ.Close:Set CJCJCJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CCJJJCJ(ByVal CCJJJJC)
Dim CJCJCJJ, CJJJCJC, CJCJCJC
CCJJJJC = Replace(CCJJJJC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJJJCJC = 1 To Len(CCJJJJC)
If CJJJCJC <> CJCJCJC Then
CJCJCJJ = AscW(Mid(CCJJJJC, CJJJCJC, 1))
If CJCJCJJ >= 33 And CJCJCJJ <= 79 Then
CCJJJCJ = CCJJJCJ & Chr(CJCJCJJ + 47)
ElseIf CJCJCJJ >= 80 And CJCJCJJ <= 126 Then
CCJJJCJ = CCJJJCJ & Chr(CJCJCJJ - 47)
Else
CJCJCJC = CJJJCJC + 1
If Mid(CCJJJJC, CJCJCJC, 1) = Chr(64) Then CCJJJCJ = CCJJJCJ & ChrW(CJCJCJJ + 5) Else CCJJJCJ = CCJJJCJ & Mid(CCJJJJC, CJJJCJC, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de