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

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJJJJJC, CJJJJCJ,CJJJJCC, CJJJCJJ, CJJJCJC:Set CJJJJJC = server.CreateObject(CJJJJJJJ("ps~sq]r@??64E:@?")):CJJJJJC.open Application(CJJJJJJJ("r@??64E:@?$EC:?8")):Set CJJJJCJ=CJJJJJC::Dim CJJJCCJ,CJJJCCC,CJJCJJJ,CJJCJJC,CJJCJCJ,CJJCJCC,CJJCCJJ,CJJCCJC,CJJCCCJ:Dim CJJCCCC,CJCJJJJ,CJCJJJC,CJCJJCJ,CJCJJCC,CJCJCJJ:Dim CJCJCJC,CJCJCCJ,CJCJCCC:Dim CJCCJJJ:CJCCJJJ=Trim(Request.Cookies(CJJJJJJJ("!$*|t|qt#"))):if CJCCJJJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJJJCCJ>0 then
CJJJCJC=CJJJJJJJ("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") & CJJJCCC & CJJJJJJJ("V ,2?5 ,:5l") & CJJJCCJ
set CJJJJCC=CJJJJJC.execute(CJJJCJC):If CJJJJCC.EOF Then
Call ClearMemberCookie
Else
CJJCJJJ=CJJJJCC(2) & "":CJJCJJC=CJJJJCC(3):CJJCJCJ=CJJJJCC(5):CJJCJCC=CJJJJCC(6):CJJCCJJ=CJJJJCC(9):CJJCCJC=CJJJJCC(15):CJJCCCC=CJJJJCC(0):CJCJCCJ=CJJJJCC(1):CJCJCJC=CJJJJCC(11) & "":CJCJJJJ=CJJJJCC(10) & "":CJJCCCJ=CJJJJCC(12):CJCJJJC=CJJJJCC(14):CJCJJCJ=CJJJJCC(13):CJCJJCC=CJJJJCC(7) & "":CJCJCJJ=CJJJJCC(4):CJCJCCC=CJJJJCC(8):if isnull(CJJCCJC) then CJJCCJC=0
if isnull(CJJCCJJ) or CJJCCJJ=0 then CJJCCJJ=CJJCJJC
if isnull(CJCJCJJ) then CJCJCJJ=0
if isnull(CJJCJCJ) then CJJCJCJ=0
if instr(CJJJJJJJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJJCCC)>0 then Call RedirectMessage(CJJJJJJJ("????????,????????????????????????????????,"))
Call SetMemberCookie(CJJJCCJ,CJJJCCC)
End IF
end if:::Sub CheckLogined():if CJJJCCJ=0 then
Call ClearMemberCookie:Call ConnClose:dim CJCCJJC:CJCCJJC=trim(request.QueryString(CJJJJJJJ("D49@@="))):if isnumeric(CJCCJJC) then
response.Redirect CJJJJJJJ("^>^G2?E^R^D49@@=^") & CJCCJJC & CJJJJJJJ("^DEF56?E^=@8:?nC65:C64El") & url
else
Call RedirectMessage(CJJJJJJJ("??????????????,????????????,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CJJJJJJJ("!$*|t|qt#"))="":CJJJCCJ=0:CJJCJCC=0:CJJJCCC=Empty:CJJCJCJ=0:CJJCCJC=0:CJJCCJJ=0:CJJCJJC=0:CJJCCCC=False:CJCJCCJ=False:CJCJCCC=Empty:End Sub:Sub CheckMemberCookie():dim CJCCJCJ,CJCCJCC,CJCCCJJ,CJCCCJC,CJCCCCJ:CJCCJCJ=split(CJCCJJJ,CJJJJJJJ("]")):if ubound(CJCCJCJ)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJCCJCJ(0)) or len(CJCCJCJ(1))<>32 or len(CJCCJCJ(2))<>32 then
Call ClearMemberCookie
else
CJCCJCC=CJCCJCJ(1):for CJCCCJJ=1 to len(CJCCJCC):CJCCCJC=mid(CJCCJCC,CJCCCJJ,1):if isnumeric(CJCCCJC) then CJCCCCJ=CJCCCCJ & CJCCCJC
if len(CJCCCCJ)=7 then exit for
next:CJCCJCC=CJCCJCJ(2):if CJCCCCJ<>mid(CJCCJCC,6,7) then
Call ClearMemberCookie
else
CJCCCJC=mid(CJCCJCC,18,10)/2:if CJCCCJC<DateDiff(CJJJJJJJ("D"), CJJJJJJJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJJJCCJ=Clng(CJCCJCJ(0)):CJJJCCC=CJCCJCJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCJCJCC,CJJJJJJC):dim CJCCCJJ,CJCCCJC,CJCCCCJ:for CJCCCJJ=1 to len(CJJJJJJC):CJCCCJC=mid(CJJJJJJC,CJCCCJJ,1):if isnumeric(CJCCCJC) then CJCCCCJ=CJCCCCJ & CJCCCJC
if len(CJCCCCJ)=7 then exit for
next:CJCCCCJ=CCJCJCC & CJJJJJJJ("]") & CJJJJJJC & CJJJJJJJ("]") & Fix(10000*(Rnd+1)) & CJCCCCJ & Fix(10000*(Rnd+1)) & DateDiff(CJJJJJJJ("D"), CJJJJJJJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJJJJJJJ("!$*|t|qt#"))=CJCCCCJ:End Sub:::Function IIf(CJJJJJCJ, CJJJJJCC, CJJJJCJJ):if isnull(CJJJJJCJ) or isempty(CJJJJJCJ) then
IIf = CJJJJCJJ
elseif CJJJJJCJ Then
IIf = CJJJJJCC
Else
IIf = CJJJJCJJ
end if:End Function:Const CCCJCJJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CJJJJCJC,CJJJJCCJ):dim CJCCJCJ:CJCCJCJ=CJJJJCJC & "=" & CJJJJCCJ & CJJJJJJJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJJJJJJ("$6E\r@@<:6"),CJCCJCJ):End Sub:::::::Function CCCJCCJ(CCCJJCC):if isnull(CCCJJCC) or trim(CCCJJCC)="" or not isnumeric(CCCJJCC) then
CCCJCCJ=false
else
Dim CJCCCCC:Set CJCCCCC = New RegExp:CJCCCCC.Pattern = CJJJJJJJ("/-5ZS"):CJCCCCC.IgnoreCase = True:CCCJCCJ = CJCCCCC.test(CCCJJCC):set CJCCCCC=nothing
end if:End Function:::::Sub ConnClose():On Error Resume Next:set CCCJCCC=nothing:set CCCCJJJ=nothing:set CCCCJJC=nothing:set CCCCJCJ=nothing:CCCCJCC.close : set CCCCJCC=nothing:CJJJCJJ.Close : Set CJJJCJJ=Nothing:CJJJJCC.Close : Set CJJJJCC=Nothing:CCCCCJJ.Close : Set CCCCCJJ = Nothing:CJJJJJC.Close : Set CJJJJJC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJJJCCC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJJJJJJ("!$*0|6DD286"),server.URLEncode(CJJJJCCC)):Response.Redirect CJJJJJJJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::Function CCCCCJC(ByVal CCCCCCJ,style):if not isdate(CCCCCCJ) then
CCCCCJC=CCCCCCJ:exit function
end if:dim CCJJJJJ,CCJJJJC,CCJJJCJ,CCJJJCC:CCCCCCJ=cdate(CCCCCCJ):CCJJJJJ=Year(CCCCCCJ):CCJJJJC=Month(CCCCCCJ):CCJJJCJ=Day(CCCCCCJ):select case style:case 0:CCCCCJC=CCJJJJJ & CJJJJJJJ("\") & right(0 & CCJJJJC,2) & CJJJJJJJ("\") & right(0 & CCJJJCJ,2):case 1:CCCCCJC=CCJJJJJ & right(0 & CCJJJJC,2) & right(0 & CCJJJCJ,2):case 2:CCCCCJC=right(CCJJJJJ,2) & CJJJJJJJ("\") & right(0 & CCJJJJC,2) & CJJJJJJJ("\") & right(0 & CCJJJCJ,2):case 3:CCCCCJC=CCJJJJJ & CJJJJJJJ("\") & right(0 & CCJJJJC,2):case 4:CCCCCJC=right(0 & CCJJJJC,2) & CJJJJJJJ("\") & right(0 & CCJJJCJ,2):case 5:CCCCCJC=right(0 & CCJJJCJ,2):case 6:CCCCCJC=CCJJJJJ & CJJJJJJJ("??") & right(0 & CCJJJJC,2) & CJJJJJJJ("??") & right(0 & CCJJJCJ,2) & CJJJJJJJ("??"):case else
CCCCCJC=CCCCCCJ:end select:End Function::::::::::::::::::::::Call CheckLogined:if not CJJCCCC then Call RedirectMessage(CJJJJJJJ("????????????M????????,????????????????????????,"))
dim CJCCJJC,CCJJCJJ(38):CJCCJJC=CJJCCJJ:if not CCCJCCJ(CJCCJJC) or CJCCJJC=0 then
server.Transfer CJJJJJJJ("=@8:?]2DA")
end if:CJJJCJC=CJJJJJJJ("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") & CJCCJJC:set CJJJJCC=CJJJJJC.execute(CJJJCJC):if CJJJJCC.eof then Call RedirectMessage(CJJJJJJJ("??????????M????????,??????????????W") & CJCCJJC & CJJJJJJJ("X??????????????????,??????????????,"))
CCJJCJJ(0)=CJJJJCC(0) & "":CCJJCJJ(1)=CJJJJCC(1):CCJJCJJ(3)=CJJJJCC(2) & "":CCJJCJJ(4)=CJJJJCC(3) & "":CCJJCJJ(5)=CJJJJCC(4):CCJJCJJ(6)=CJJJJCC(5):CCJJCJJ(8)=CJJJJCC(7):CCJJCJJ(9)=CJJJJCC(8):CCJJCJJ(10)=CJJJJCC(9) & "":CCJJCJJ(11)=CJJJJCC(11) & "":CCJJCJJ(12)=CJJJJCC(12) & "":CCJJCJJ(14)=CJJJJCC(14) & "":CCJJCJJ(15)=CJJJJCC(15) & "":CCJJCJJ(16)=CJJJJCC(16) & "":CCJJCJJ(17)=CJJJJCC(17) & "":CCJJCJJ(18)=CJJJJCC(18):CCJJCJJ(19)=IIf(CJJJJCC(19),True,False):CCJJCJJ(20)=CJJJJCC(20):CCJJCJJ(25)=CJJJJCC(21):CCJJCJJ(27)=CJJJJCC(22):CCJJCJJ(28)=CJJJJCC(23):CCJJCJJ(29)=IIf(CJJJJCC(24),False,True):CCJJCJJ(30)=CJJJJCC(25):CCJJCJJ(31)=CJJJJCC(26):CCJJCJJ(32)=CJJJJCC(27):CCJJCJJ(33)=CJJJJCC(28):CCJJCJJ(34)=CJJJJCC(29):CCJJCJJ(35)=IIf(CJJJJCC(6),True,False):CCJJCJJ(36)=121:CCJJCJJ(37)=111:CCJJCJJ(38)=160:if isNull(CCJJCJJ(8)) then CCJJCJJ(8)=0
if not isdate(CCJJCJJ(9)) then CCJJCJJ(9)=Date+2 else CCJJCJJ(9)=cdate(CCJJCJJ(9))
if CCJJCJJ(9)<Date then Call RedirectMessage(CJJJJJJJ("??????????M????????,????????????????W") & CCJJCJJ(9) & CJJJJJJJ("X??????,"))
if CCJJCJJ(10)="" then CCJJCJJ(10)=CJJJJCC(10)
if CCJJCJJ(11)="" then CCJJCJJ(11)=CJJJJJJJ("??????????,U4@AJj") & year(date)-1 & CJJJJJJJ("\") & year(date)+1 & CJJJJJJJ(" ,????????????????????????????????") & vbcrlf & CJJJJJJJ("??????????,_`_\eahge_``^`a") & vbcrlf & CJJJJJJJ("??????????,??????????????????,??????@??????????a????ac_`??W`___gdX") & vbcrlf & CJJJJJJJ("??????????,k2 ,9C67lV9EEADi^^HHH]I:?92:D@7E]4@>V ,E2C86ElV03=2?<VmHHH]I:?92:D@7E]4@>k^2m")
if not CCCJCCJ(CCJJCJJ(20)) then CCJJCJJ(20)=7
select case CCJJCJJ(1):case 1,2,16:CCJJCJJ(36)=159:case 4,5,6,10,11:CCJJCJJ(36)=190:CCJJCJJ(37)=178:CCJJCJJ(38)=191:case 7,13:CCJJCJJ(36)=164:CCJJCJJ(37)=178:CCJJCJJ(38)=179:end select:Function CCCCJCJ(CJJJCJJC):dim CCJJCJC(7,1),CJCCCJJ,CCJJCCJ,CCJJCCC:CCJJCCJ=Array(CJJJJJJJ("$49@@="),CJJJJJJJ("$EF56?E"),CJJJJJJJ("s6AE"),CJJJJJJJ("vC256"),CJJJJJJJ("r=2DD>2E6"),CJJJJJJJ("}F>36C"),CJJJJJJJ("%62496C"),CJJJJJJJ("!2C6?E")):select case CCJJCJJ(1):case 1,2 : CCJJCCC=Array(CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????")):case 3,16 : CCJJCCC=Array(CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????")):case 4 : CCJJCCC=Array(CJJJJJJJ("????"),CJJJJJJJ("??????@"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????")):case 5 : CCJJCCC=Array(CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????")):case 6 : CCJJCCC=Array(CJJJJJJJ("????"),CJJJJJJJ("??????@"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("??????"),CJJJJJJJ("????")):case 7 : CCJJCCC=Array(CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("??????"),CJJJJJJJ("????")):case 8 : CCJJCCC=Array(CJJJJJJJ("????"),CJJJJJJJ("??????@"),CJJJJJJJ("????"),CJJJJJJJ("????????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("??????"),CJJJJJJJ("????")):case 9 : CCJJCCC=Array(CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("??????"),CJJJJJJJ("????")):case 10 : CCJJCCC=Array(CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("??????"),CJJJJJJJ("????")):case 11 : CCJJCCC=Array(CJJJJJJJ("????"),CJJJJJJJ("??????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("??????"),CJJJJJJJ("????")):case 12 : CCJJCCC=Array(CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("??????"),CJJJJJJJ("????")):case 13 : CCJJCCC=Array(CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????")):case 14 : CCJJCCC=Array(CJJJJJJJ("??????"),CJJJJJJJ("??@??"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("??????"),CJJJJJJJ("????")):case 15 : CCJJCCC=Array(CJJJJJJJ("????"),CJJJJJJJ("????????"),CJJJJJJJ("????"),CJJJJJJJ("????????"),CJJJJJJJ("????"),CJJJJJJJ("????"),CJJJJJJJ("??????"),CJJJJJJJ("????")):case else : CCJJCCC=CCJJCCJ
end select:for CJCCCJJ=0 to Ubound(CCJJCJC):CCJJCJC(CJCCCJJ,0)=CCJJCCJ(CJCCCJJ):CCJJCJC(CJCCCJJ,1)=CCJJCCC(CJCCCJJ):next:for CJCCCJJ=0 to Ubound(CCJJCJC):if CCJJCJC(CJCCCJJ,0)=CJJJCJJC then
CCCCJCJ=CCJJCJC(CJCCCJJ,1):exit for
end if:next:End Function:::if CJJCCJJ<>CJJCJJC then Call RedirectMessage(CJJJJJJJ("????????M????????,??????????????????????????????,"))
dim CCJCJJJ,CCJCJJC,CCJCJCJ,CCJCJCC,CCJCCJJ:CCJCJJJ=Request.QueryString(CJJJJJJJ("DE2CE")):CCJCJJC=Request.QueryString(CJJJJJJJ("6?5")):CCJCJCJ=request.querystring(CJJJJJJJ("24E")):CCJCJCC=request.querystring(CJJJJJJJ(":5")):CCJCCJJ=request.querystring(CJJJJJJJ("C@@>")):if CCJCJCJ=CJJJJJJJ("FD6") and isdate(CCJCJJJ) and CCCJCCJ(CCJCJCC) then
set CJJJJCC=CJJJJJC.execute(CJJJJJJJ("D6=64E ,E@A ,` ,:5 ,7C@> ,G0uF?4E:@?2=#@@>0&D6 ,H96C6 ,>6>36Cl") & CJJJCCJ & CJJJJJJJ(" ,2?5 ,E:>6:5l") & CCJCJCC & CJJJJJJJ(" ,2?5 ,,52E6.lV") & CCJCJJJ & CJJJJJJJ("V"))
if CJJJJCC.eof then
CJJJCJC=CJJJJJJJ(":?D6CE ,:?E@ ,uF?4E:@?2=#@@>0&D6W>6>36C[E:>6:5[52E6X ,@FEAFE ,:?D6CE65]:5 ,G2=F6DW") & CJJJCCJ  & CJJJJJJJ("[") & CCJCJCC  & CJJJJJJJ("[V") & CCJCJJJ & CJJJJJJJ("V") & CJJJJJJJ("X")
set CJJJJCC=CJJJJJC.execute(CJJJCJC)
end if:CCJCJCC=CJJJJCC(0):response.write CCJCJCC:response.end
elseif CCJCJCJ=CJJJJJJJ("?@FD6") and CCCJCCJ(CCJCJCC) then
CJJJJJC.execute(CJJJJJJJ("56=6E6 ,7C@> ,uF?4E:@?2=#@@>0&D6 ,H96C6 ,:5l") & CCJCJCC):response.end
end if:if isdate(CCJCJJJ) and isdate(CCJCJJC) then
dim CCJCCJC,CCJCCCJ(),CJCCCJJ,CJCCCJC,CCJCCCC,CCCJJJJ,CCCJJJC:CCJCCCC=date:CJJJCJC=CJJJJJJJ("D6=64E ,:5[?2>6[H66<52J[,E:>6. ,7C@> ,G07F?4E:@?2=C@@>0E:>6 ,H96C6 ,D49@@=l") & CJCCJJC:if CCCJCCJ(CCJCCJJ) then CJJJCJC=CJJJCJC & CJJJJJJJ(" ,2?5 ,C@@>l") & CCJCCJJ
CJJJCJC=CJJJCJC & CJJJJJJJ(" ,@C56C ,3J ,C@@>[H66<52J"):Set CJJJJCC = Server.CreateObject(CJJJJJJJ("ps~sq]#64@C5D6E")):CJJJJCC.Open CJJJCJC, CJJJJJC, 1:if not CJJJJCC.eof then
redim CCJCCCJ(CJJJJCC.recordcount-1,3):for CJCCCJJ=0 to ubound(CCJCCCJ):for CJCCCJC=0 to 3:CCJCCCJ(CJCCCJJ,CJCCCJC)=CJJJJCC(CJCCCJC):next:CJJJJCC.movenext:next:CCJCJJJ=cdate(CCJCJJJ):CCJCJJC=cdate(CCJCJJC):for CJCCCJJ=0 to CCJCJJC-CCJCJJJ:CCCJJJJ=CCJCJJJ+CJCCCJJ:CCCJJJC=weekday(CCCJJJJ)-1:for CJCCCJC=0 to ubound(CCJCCCJ):if CCCJJJC=CCJCCCJ(CJCCCJC,2) then
if CCCJJJJ<=CCJCCCC+CCJJCJJ(20) then
set CJJJJCC=CJJJJJC.execute(CJJJJJJJ("D6=64E ,E@A ,` ,:5[>6>36C[C62=?2>6 ,7C@> ,G0uF?4E:@?2=#@@>0&D6 ,H96C6 ,E:>6:5l") & CCJCCCJ(CJCCCJC,0) & CJJJJJJJ(" ,2?5 ,52E6lV") & CCCJJJJ & CJJJJJJJ("V"))
if CJJJJCC.eof then
if CCCJJJJ>=CCJCCCC then
CCJCCJC=CCJCCJC & CJJJJJJJ("[LV:5Vi") & CCJCCCJ(CJCCCJC,0) & CJJJJJJJ("[VE:E=6ViV") & CCJCCCJ(CJCCCJC,1) & CJJJJJJJ(" ,") & CCJCCCJ(CJCCCJC,3) & CJJJJJJJ("V[VDE2CEViV") & CCCCCJC(CCCJJJJ,0) & CJJJJJJJ("V[V4@=@CViV8C66?V[VDE2EFDVi_[VFD6:5Vi_[V>6>36CVi_[VC62=?2>6ViVV[VFC=ViVRVN")
end if
elseif CJJJJCC(1)=CJJJCCJ then
CCJCCJC=CCJCCJC & CJJJJJJJ("[LV:5Vi") & CCJCCCJ(CJCCCJC,0) & CJJJJJJJ("[VE:E=6ViV") & CCJCCCJ(CJCCCJC,1) & CJJJJJJJ(" ,") & CCJCCCJ(CJCCCJC,3) & CJJJJJJJ("V[VDE2CEViV") & CCCCCJC(CCCJJJJ,0) & CJJJJJJJ("V[V4@=@CViVC65V[VDE2EFDVi`[VFD6:5Vi") & CJJJJCC(0) & CJJJJJJJ("[V>6>36CVi") & CJJJJCC(1) & CJJJJJJJ("[VC62=?2>6ViV") & CJJJJCC(2) & CJJJJJJJ("V[VFC=ViVRVN")
else
CCJCCJC=CCJCCJC & CJJJJJJJ("[LV:5Vi") & CCJCCCJ(CJCCCJC,0) & CJJJJJJJ("[VE:E=6ViV") & CCJCCCJ(CJCCCJC,1) & CJJJJJJJ(" ,") & CCJCCCJ(CJCCCJC,3) & CJJJJJJJ("V[VDE2CEViV") & CCCCCJC(CCCJJJJ,0) & CJJJJJJJ("V[V4@=@CViVC65V[VDE2EFDVi`[VFD6:5Vi_[V>6>36CVi_[VC62=?2>6ViV") & CJJJJCC(2) & CJJJJJJJ("VN")
end if
end if
end if:next:next
end if:if CCJCCJC<>"" then
CCJCCJC=mid(CCJCCJC,2):CCJCCJC=replace(CCJCCJC,chr(9),""):CCJCCJC=replace(CCJCCJC,CJJJJJJJ("V"),CJJJJJJJ("Q"))
end if:response.Charset=CJJJJJJJ("FE7\g"):response.Write CJJJJJJJ(",") & CCJCCJC & CJJJJJJJ("."):response.end
end if:Response.Write(vbCrLf):Response.Write(CJJJJJJJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJJJJJJJ("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJJJJJJJ("k9625m") & vbCrLf):Response.Write(CJJJJJJJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJJJJJJJ("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJJJJJJJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJJJJJJJ("kE:E=6m????k^E:E=6m") & vbCrLf):Response.Write(CJJJJJJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ]]^DEJ=6]4DDQm") & vbCrLf):Response.Write(CJJJJJJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^7F==42=6?52C^7F==42=6?52C]>:?]4DDQm") & vbCrLf):Response.Write(CJJJJJJJ("kDEJ=6m") & vbCrLf):Response.Write(CJJJJJJJ("2]74\6G6?E ,L ,7@?E\D:K6i ,`aAIj ,A255:?8i ,dAIj ,>2C8:?\3@EE@>i ,aAIj ,N") & vbCrLf):Response.Write(CJJJJJJJ("k^DEJ=6m") & vbCrLf):Response.Write(CJJJJJJJ("k^9625m") & vbCrLf):Response.Write(CJJJJJJJ("k3@5Jm") & vbCrLf):Response.Write(CJJJJJJJ("k5:G ,:5lV42=6?52CVmk^5:Gm") & vbCrLf):Response.Write(CJJJJJJJ("k:?AFE ,EJA6lQ9:556?Q ,:5lQ>6>36CQ ,G2=F6lQ")):Response.Write  CJJJCCJ:Response.Write(CJJJJJJJ("Qm") & vbCrLf):Response.Write(CJJJJJJJ("k:?AFE ,EJA6lQ9:556?Q ,:5lQC62=?2>6Q ,G2=F6lQ")):Response.Write  CJCJJCJ:Response.Write(CJJJJJJJ("Qm") & vbCrLf):Response.Write(CJJJJJJJ("k:?AFE ,EJA6lQ9:556?Q ,:5lQC@@>Q ,G2=F6lQ")):Response.Write  CCJCCJJ:Response.Write(CJJJJJJJ("Qm") & vbCrLf):Response.Write(CJJJJJJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJJJJ("kD4C:AE ,DC4lQ^$4C:AED^>@>6?E];D^>@>6?E]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJJJJ("kD4C:AE ,DC4lQ^$4C:AED^7F==42=6?52C^7F==42=6?52C]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJJJJ("kD4C:AE ,DC4lQ^$4C:AED^7F==42=6?52C^=@42=6^K9\4?]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJJJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E:E=6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJJJJ("kD4C:AEm") & vbCrLf):Response.Write(CJJJJJJJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJJJJJJJ(" ,SWVR42=6?52CVX]7F==r2=6?52CWL") & vbCrLf):Response.Write(CJJJJJJJ(" ,96:89EiV2FE@V[") & vbCrLf):Response.Write(CJJJJJJJ(" ,96256CiL") & vbCrLf):Response.Write(CJJJJJJJ(" ,=67EiV>@?E9[32D:4(66<[32D:4s2JV[") & vbCrLf):Response.Write(CJJJJJJJ(" ,46?E6CiVE:E=6V") & vbCrLf):Response.Write(CJJJJJJJ(" ,N[") & vbCrLf):Response.Write(CJJJJJJJ(" ,5672F=E':6HiV32D:4(66<V[") & vbCrLf):Response.Write(CJJJJJJJ(" ,^^ ,????????????????????DE2CE??????,6?5????????????????,????????????????6G6?E$@FC46D??,????????????????????6G6?ED") & vbCrLf):Response.Write(CJJJJJJJ(" ,6G6?E$@FC46Di,L") & vbCrLf):Response.Write(CJJJJJJJ(" ,FC=iVG:6H]2DAV[") & vbCrLf):Response.Write(CJJJJJJJ(" ,52E2iLC@@>iSWVRC@@>VX]G2=WXN") & vbCrLf):Response.Write(CJJJJJJJ(" ,N.[") & vbCrLf):Response.Write(CJJJJJJJ(" ,6G6?E#6?56Ci7F?4E:@?W ,6G6?E[ ,6=6>6?E[ ,G:6H ,X ,L") & vbCrLf):Response.Write(CJJJJJJJ(" ,:7W6G6?E]DE2EFDlll`XL6=6>6?E]2EECWVE:E=6V[6G6?E]E:E=6ZVk3Cm??,????VZ6G6?E]C62=?2>6ZV??????????,VX];%:E=6WLDEJ=6iVJ6==@HVNXN") & vbCrLf):Response.Write(CJJJJJJJ(" ,6=D6L6=6>6?E]2EECWVE:E=6V[6G6?E]E:E=6X];%:E=6WLDEJ=6iV8C66?VNXN") & vbCrLf):Response.Write(CJJJJJJJ(" ,N[") & vbCrLf):Response.Write(CJJJJJJJ(" ,6G6?Er=:4<i7F?4E:@?W ,6G6?E[ ,;DtG6?E[ ,G:6H ,X ,L") & vbCrLf):Response.Write(CJJJJJJJ(" ,^^ ,????2??????,????????????") & vbCrLf):Response.Write(CJJJJJJJ(" ,G2C ,SE9:DlSWE9:DX") & vbCrLf):Response.Write(CJJJJJJJ(" ,^^ ,????") & vbCrLf):Response.Write(CJJJJJJJ(" ,:7W6G6?E]DE2EFDlll_XL") & vbCrLf):Response.Write(CJJJJJJJ(" ,A2C6?E]=2J6C]4@?7:C>WV????????????????,VZ6G6?E]E:E=6ZV??,????,V[7F?4E:@?W:?56IXL") & vbCrLf):Response.Write(CJJJJJJJ(" ,^^ ,DE2CE????????") & vbCrLf):Response.Write(CJJJJJJJ(" ,S]86EWVn24ElFD6U:5lVZ6G6?E]:5ZVUDE2CElVZS]7F==r2=6?52C]>@>6?EW6G6?E]DE2CEX]7@C>2EWV****\||\ssVX[7F?4E:@?W52E2XL") & vbCrLf):Response.Write(CJJJJJJJ(" ,SE9:D]4DDWLV324<8C@F?5\4@=@CViVC65V[V3@C56C\4@=@CViVC65VNX]2EECWVE:E=6V[6G6?E]E:E=6ZVk3Cm??,????VZSWVRC62=?2>6VX]G2=WXZV??????????,VX];%:E=6WLDEJ=6iVJ6==@HVNX") & vbCrLf):Response.Write(CJJJJJJJ(" ,6G6?E]DE2EFDl`") & vbCrLf):Response.Write(CJJJJJJJ(" ,6G6?E]FD6:5l52E2") & vbCrLf):Response.Write(CJJJJJJJ(" ,6G6?E]>6>36ClSWVR>6>36CVX]G2=WX") & vbCrLf):Response.Write(CJJJJJJJ(" ,6G6?E]C62=?2>6lSWVRC62=?2>6VX]G2=WX") & vbCrLf):Response.Write(CJJJJJJJ(" ,A2C6?E]=2J6C]4=@D6W:?56IX") & vbCrLf):Response.Write(CJJJJJJJ(" ,NX") & vbCrLf):Response.Write(CJJJJJJJ(" ,NX") & vbCrLf):Response.Write(CJJJJJJJ(" ,N") & vbCrLf):Response.Write(CJJJJJJJ(" ,^^ ,??????????") & vbCrLf):Response.Write(CJJJJJJJ(" ,6=D6 ,:7W6G6?E]DE2EFDlll`UU6G6?E]>6>36C]E@$EC:?8WXlllSWVR>6>36CVX]G2=WXXL") & vbCrLf):Response.Write(CJJJJJJJ(" ,A2C6?E]=2J6C]4@?7:C>WV??????????????????,VZ6G6?E]E:E=6ZV??,????,V[7F?4E:@?W:?56IXL") & vbCrLf):Response.Write(CJJJJJJJ(" ,^^ ,DE2CE????????") & vbCrLf):Response.Write(CJJJJJJJ(" ,S]86EWVn24El?@FD6U:5lVZ6G6?E]FD6:5[7F?4E:@?WXL") & vbCrLf):Response.Write(CJJJJJJJ(" ,SE9:D]4DDWLV324<8C@F?5\4@=@CViV8C66?V[V3@C56C\4@=@CViV8C66?VNX]2EECWVE:E=6V[6G6?E]E:E=6X];%:E=6WLDEJ=6iV8C66?VNX") & vbCrLf):Response.Write(CJJJJJJJ(" ,6G6?E]DE2EFDl_") & vbCrLf):Response.Write(CJJJJJJJ(" ,6G6?E]FD6:5l_") & vbCrLf):Response.Write(CJJJJJJJ(" ,6G6?E]>6>36Cl_") & vbCrLf):Response.Write(CJJJJJJJ(" ,6G6?E]C62=?2>6lVV") & vbCrLf):Response.Write(CJJJJJJJ(" ,A2C6?E]=2J6C]4=@D6W:?56IX") & vbCrLf):Response.Write(CJJJJJJJ(" ,NX") & vbCrLf):Response.Write(CJJJJJJJ(" ,NX") & vbCrLf):Response.Write(CJJJJJJJ(" ,N") & vbCrLf):Response.Write(CJJJJJJJ(" ,C6EFC? ,72=D6") & vbCrLf):Response.Write(CJJJJJJJ(" ,N") & vbCrLf):Response.Write(CJJJJJJJ(" ,NX") & vbCrLf):Response.Write(CJJJJJJJ("NX") & vbCrLf):Response.Write(CJJJJJJJ("k^D4C:AEm") & vbCrLf):Response.Write(CJJJJJJJ("k^3@5Jm") & vbCrLf):Response.Write(CJJJJJJJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCCJCCC=nothing:set CCCCJJJ=nothing:set CCCCJJC=nothing:set CCCCJCJ=nothing:CJJJCJJ.Close:Set CJJJCJJ=Nothing:CJJJJCC.Close:Set CJJJJCC=Nothing:CJJJJJC.Close:Set CJJJJJC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJJJJJJJ(ByVal CCCCCCC)
Dim CCCJJCJ, CJCCCJJ, CCCJJCC
CCCCCCC = Replace(CCCCCCC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJCCCJJ = 1 To Len(CCCCCCC)
If CJCCCJJ <> CCCJJCC Then
CCCJJCJ = AscW(Mid(CCCCCCC, CJCCCJJ, 1))
If CCCJJCJ >= 33 And CCCJJCJ <= 79 Then
CJJJJJJJ = CJJJJJJJ & Chr(CCCJJCJ + 47)
ElseIf CCCJJCJ >= 80 And CCCJJCJ <= 126 Then
CJJJJJJJ = CJJJJJJJ & Chr(CCCJJCJ - 47)
Else
CCCJJCC = CJCCCJJ + 1
If Mid(CCCCCCC, CCCJJCC, 1) = Chr(64) Then CJJJJJJJ = CJJJJJJJ & ChrW(CCCJJCJ + 5) Else CJJJJJJJ = CJJJJJJJ & Mid(CCCCCCC, 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