Edit D:\xinhaisoft\crisis_new\student\tuanfu_view.asp
??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim CJJJCJ, CJJJCC,CJJCJJ, CJJCJC, CJJCCJ:Set CJJJCJ = server.CreateObject(CJCJCJJ("ps~sq]r@??64E:@?")):CJJJCJ.open Application(CJCJCJJ("r@??64E:@?$EC:?8")):Set CJJJCC=CJJJCJ::Dim CJJCCC,CJCJJJ,CJCJJC,CJCJCJ,CJCJCC,CJCCJJ,CJCCJC,CJCCCJ,CJCCCC:Dim CCJJJJ,CCJJJC,CCJJCJ,CCJJCC,CCJCJJ,CCJCJC:Dim CCJCCJ,CCJCCC,CCCJJJ:Dim CCCJJC:CCCJJC=Trim(Request.Cookies(CJCJCJJ("!$*|t|qt#"))):if CCCJJC="" then Call ClearMemberCookie else Call CheckMemberCookie end if:if CJJCCC>0 then CJJCCJ=CJCJCJJ("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") & CJCJJJ & CJCJCJJ("V ,2?5 ,:5l") & CJJCCC set CJJCJJ=CJJJCJ.execute(CJJCCJ):If CJJCJJ.EOF Then Call ClearMemberCookie Else CJCJJC=CJJCJJ(2) & "":CJCJCJ=CJJCJJ(3):CJCJCC=CJJCJJ(5):CJCCJJ=CJJCJJ(6):CJCCJC=CJJCJJ(9):CJCCCJ=CJJCJJ(15):CCJJJJ=CJJCJJ(0):CCJCCC=CJJCJJ(1):CCJCCJ=CJJCJJ(11) & "":CCJJJC=CJJCJJ(10) & "":CJCCCC=CJJCJJ(12):CCJJCJ=CJJCJJ(14):CCJJCC=CJJCJJ(13):CCJCJJ=CJJCJJ(7) & "":CCJCJC=CJJCJJ(4):CCCJJJ=CJJCJJ(8):if isnull(CJCCCJ) then CJCCCJ=0 if isnull(CJCCJC) or CJCCJC=0 then CJCCJC=CJCJCJ if isnull(CCJCJC) then CCJCJC=0 if isnull(CJCJCC) then CJCJCC=0 if instr(CJCJCJJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CJCJJJ)>0 then Call RedirectMessage(CJCJCJJ("????????,????????????????????????????????,")) Call SetMemberCookie(CJJCCC,CJCJJJ) End IF end if::::Sub ClearMemberCookie():Response.Cookies(CJCJCJJ("!$*|t|qt#"))="":CJJCCC=0:CJCCJJ=0:CJCJJJ=Empty:CJCJCC=0:CJCCCJ=0:CJCCJC=0:CJCJCJ=0:CCJJJJ=False:CCJCCC=False:CCCJJJ=Empty:End Sub:Sub CheckMemberCookie():dim CCCJCJ,CCCJCC,CCCCJJ,CCCCJC,CCCCCJ:CCCJCJ=split(CCCJJC,CJCJCJJ("]")):if ubound(CCCJCJ)<>2 then Call ClearMemberCookie elseif not isnumeric(CCCJCJ(0)) or len(CCCJCJ(1))<>32 or len(CCCJCJ(2))<>32 then Call ClearMemberCookie else CCCJCC=CCCJCJ(1):for CCCCJJ=1 to len(CCCJCC):CCCCJC=mid(CCCJCC,CCCCJJ,1):if isnumeric(CCCCJC) then CCCCCJ=CCCCCJ & CCCCJC if len(CCCCCJ)=7 then exit for next:CCCJCC=CCCJCJ(2):if CCCCCJ<>mid(CCCJCC,6,7) then Call ClearMemberCookie else CCCCJC=mid(CCCJCC,18,10)/2:if CCCCJC<DateDiff(CJCJCJJ("D"), CJCJCJJ("`hf_\`\` ,gi__i__"), Now)-28800 then Call ClearMemberCookie else CJJCCC=Clng(CCCJCJ(0)):CJCJJJ=CCCJCJ(1) end if end if end if:End Sub:Sub SetMemberCookie(CJJJCJJ,CJCJCJC):dim CCCCJJ,CCCCJC,CCCCCJ:for CCCCJJ=1 to len(CJCJCJC):CCCCJC=mid(CJCJCJC,CCCCJJ,1):if isnumeric(CCCCJC) then CCCCCJ=CCCCCJ & CCCCJC if len(CCCCCJ)=7 then exit for next:CCCCCJ=CJJJCJJ & CJCJCJJ("]") & CJCJCJC & CJCJCJJ("]") & Fix(10000*(Rnd+1)) & CCCCCJ & Fix(10000*(Rnd+1)) & DateDiff(CJCJCJJ("D"), CJCJCJJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJCJCJJ("!$*|t|qt#"))=CCCCCJ:End Sub::::Const CJJCJJC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CJCJCCJ,CJCJCCC):dim CCCJCJ:CCCJCJ=CJCJCCJ & "=" & CJCJCCC & CJCJCJJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJCJCJJ("$6E\r@@<:6"),CCCJCJ):End Sub:::::::Function CJJCJCJ(CJJCJJJ):if isnull(CJJCJJJ) or trim(CJJCJJJ)="" or not isnumeric(CJJCJJJ) then CJJCJCJ=false else Dim CCCCCC:Set CCCCCC = New RegExp:CCCCCC.Pattern = CJCJCJJ("/-5ZS"):CCCCCC.IgnoreCase = True:CJJCJCJ = CCCCCC.test(CJJCJJJ):set CCCCCC=nothing end if:End Function:::::Sub ConnClose():On Error Resume Next:set CJJCJCC=nothing:set CJJCCJJ=nothing:set CJJCCJC=nothing:set CJJCCCJ=nothing:CJJCCCC.close : set CJJCCCC=nothing:CJJCJC.Close : Set CJJCJC=Nothing:CJJCJJ.Close : Set CJJCJJ=Nothing:CJCJJJJ.Close : Set CJCJJJJ = Nothing:CJJJCJ.Close : Set CJJJCJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJCCJJJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJCJCJJ("!$*0|6DD286"),server.URLEncode(CJCCJJJ)):Response.Redirect CJCJCJJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::Function CJCJJJC(ByVal CJCJJCJ,style):if not isdate(CJCJJCJ) then CJCJJJC=CJCJJCJ:exit function end if:dim CJJJJJJ,CJJJJJC,CJJJJCJ,CJJJJCC:CJCJJCJ=cdate(CJCJJCJ):CJJJJJJ=Year(CJCJJCJ):CJJJJJC=Month(CJCJJCJ):CJJJJCJ=Day(CJCJJCJ):select case style:case 0:CJCJJJC=CJJJJJJ & CJCJCJJ("\") & right(0 & CJJJJJC,2) & CJCJCJJ("\") & right(0 & CJJJJCJ,2):case 1:CJCJJJC=CJJJJJJ & right(0 & CJJJJJC,2) & right(0 & CJJJJCJ,2):case 2:CJCJJJC=right(CJJJJJJ,2) & CJCJCJJ("\") & right(0 & CJJJJJC,2) & CJCJCJJ("\") & right(0 & CJJJJCJ,2):case 3:CJCJJJC=CJJJJJJ & CJCJCJJ("\") & right(0 & CJJJJJC,2):case 4:CJCJJJC=right(0 & CJJJJJC,2) & CJCJCJJ("\") & right(0 & CJJJJCJ,2):case 5:CJCJJJC=right(0 & CJJJJCJ,2):case 6:CJCJJJC=CJJJJJJ & CJCJCJJ("??") & right(0 & CJJJJJC,2) & CJCJCJJ("??") & right(0 & CJJJJCJ,2) & CJCJCJJ("??"):case else CJCJJJC=CJCJJCJ:end select:End Function::::::::::::::::::::::dim CJJJCJJ:CJJJCJJ=request.querystring(CJCJCJJ(":5")):if not CJJCJCJ(CJJJCJJ) then Call RedirectMessage(CJCJCJJ("????????,??????????????,")) if request.querystring(CJCJCJJ("24E"))=CJCJCJJ("=:<6") then CJJJCJ.execute CJCJCJJ("FA52E6 ,8C@FA8F:52?460>6>36C ,D6E ,7665324<0=:<6l7665324<0=:<6Z` ,H96C6 ,:5l") & CJJJCJJ:Call ConnClose:response.end end if:set CJJCJJ=CJJJCJ.execute(CJCJCJJ("D6=64E ,E@A ,` ,Y ,7C@> ,vC@FAvF:52?46 ,H96C6 ,:5l") & CJJJCJJ):if CJJCJJ.eof then Call RedirectMessage(CJCJCJJ("????????,??????????????@????,")) Response.Write(vbCrLf):Response.Write(CJCJCJJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJCJCJJ("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJCJCJJ("k9625m") & vbCrLf):Response.Write(CJCJCJJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJCJCJJ("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJCJCJJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJCJCJJ("kE:E=6m")):Response.Write CJJCJJ(CJCJCJJ("?2>6")):Response.Write(CJCJCJJ("k^E:E=6m") & vbCrLf):Response.Write(CJCJCJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^2>2K6F:^4DD^2>2K6F:]>:?]4DDQm") & vbCrLf):Response.Write(CJCJCJJ("kDEJ=6m") & vbCrLf):Response.Write(CJCJCJJ("]D4C@==DAJ\?2G ,2]2>\24E:G6 ,L ,4@=@Ci ,R777j ,7@?E\H6:89Ei ,3@=5j ,N") & vbCrLf):Response.Write(CJCJCJJ("]2>\82==6CJ\3@C56C65 ,]2>\82==6CJ\:E6> ,:>8 ,L ,96:89Ei ,`a_AIj ,H:5E9i ,2FE@j ,N") & vbCrLf):Response.Write(CJCJCJJ("]2>\82==6CJ\3@C56C65 ,=: ,L ,5:DA=2Ji ,:?=:?6\3=@4<j ,N") & vbCrLf):Response.Write(CJCJCJJ("k^DEJ=6m") & vbCrLf):Response.Write(CJCJCJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJCJJ("k^9625m") & vbCrLf):Response.Write(CJCJCJJ("k3@5Jm") & vbCrLf):Response.Write(CJCJCJJ("k96256C ,4=2DDlQ2>\E@A32C ,2>\E@A32C\:?G6CD6 ,2>\E@A32C\7:I65\E@AQm") & vbCrLf):Response.Write(CJCJCJJ(" ,k9` ,4=2DDlQ2>\E@A32C\3C2?5Qmk2 ,9C67lQ;2G2D4C:AEijQm")):Response.Write CJJCJJ(CJCJCJJ("?2>6")):Response.Write(CJCJCJJ("k^2mk^9`m") & vbCrLf):Response.Write(CJCJCJJ(" ,k3FEE@? ,4=2DDlQ2>\E@A32C\3E? ,2>\E@A32C\E@88=6 ,2>\3E? ,2>\3E?\D> ,2>\3E?\DF446DD ,2>\D9@H\D>\@?=JQ ,52E2\2>\4@==2AD6lQLE2C86Ei ,VR5@4\E@A32C\4@==2AD6VNQmkDA2? ,4=2DDlQ2>\DC\@?=JQm????????k^DA2?m ,kDA2? ,4=2DDlQ2>\:4@?\32CDQmk^DA2?mk^3FEE@?m") & vbCrLf):Response.Write(CJCJCJJ(" ,k5:G ,4=2DDlQ2>\4@==2AD6 ,2>\E@A32C\4@==2AD6 ,D4C@==DAJ\?2G ,2>\E@A32C\C:89EQ ,:5lQ5@4\E@A32C\4@==2AD6Q ,52E2\2>\D4C@==DAJ?2GlQL@77D6E%@Aid_NQm") & vbCrLf):Response.Write(CJCJCJJ(" ,kF= ,4=2DDlQ2>\?2G ,2>\?2G\A:==D ,2>\E@A32C\?2GQm") & vbCrLf):Response.Write(CJCJCJJ(" ,k=:mk2 ,9C67lQR5F:I:2?8Qm????????k^2mk^=:m") & vbCrLf):Response.Write(CJCJCJJ(" ,k=:mk2 ,9C67lQR4@?0>F5:Qm????????k^2mk^=:m") & vbCrLf):Response.Write(CJCJCJJ(" ,k=:mk2 ,9C67lQRE:>6Qm????????k^2mk^=:m") & vbCrLf):Response.Write(CJCJCJJ(" ,k=:mk2 ,9C67lQRA=246Qm????????k^2mk^=:m") & vbCrLf):Response.Write(CJCJCJJ(" ,k=:mk2 ,9C67lQRC64CF:E\E:>6Qm????????k^2mk^=:m") & vbCrLf):Response.Write(CJCJCJJ(" ,k=:mk2 ,9C67lQRA:4EFC6Qm????????k^2mk^=:m") & vbCrLf):Response.Write(CJCJCJJ(" ,k=:mk2 ,9C67lQR7665324<Qm????????k^2mk^=:m") & vbCrLf):Response.Write(CJCJCJJ(" ,k^F=m") & vbCrLf):Response.Write(CJCJCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJCJCJJ("k^96256Cm") & vbCrLf):Response.Write(CJCJCJJ("k5:G ,4=2DDlQ2>\4@?E2:?6CQm") & vbCrLf):Response.Write(CJCJCJJ(" ,k2CE:4=6 ,4=2DDlQ2>\2CE:4=6Qm") & vbCrLf):Response.Write(CJCJCJJ(" ,k5:G ,4=2DDlQ2>\2CE:4=6\95Qm") & vbCrLf):Response.Write(CJCJCJJ(" ,k9` ,4=2DDlQ2>\2CE:4=6\E:E=6Qm")):Response.Write CJJCJJ(CJCJCJJ("?2>6")):Response.Write(CJCJCJJ("k^9`m") & vbCrLf):Response.Write(CJCJCJJ(" ,kA ,4=2DDlQ2>\2CE:4=6\>6E2Qm")):Response.Write CJJCJJ(CJCJCJJ("2FE9@C")) & CJCJCJJ(" ,,") & CJCJJJC(CJJCJJ(CJCJCJJ("52E6E:>6")),0) & CJCJCJJ("."):Response.Write(CJCJCJJ("k^Am") & vbCrLf):Response.Write(CJCJCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJCJCJJ(" ,k5:G ,4=2DDlQ2>\2CE:4=6\35Qm") & vbCrLf):Response.Write(CJCJCJJ(" ,k9a ,:5lQ5F:I:2?8Qm????????k^9am") & vbCrLf):Response.Write(CJCJCJJ(" ,kAm") & vbCrLf):Response.Write(CJCJCJJ(" ,")):dim CJJJCJC:CJJJCJC=CJJCJJ(CJCJCJJ("C64CF:E0H2J")):if CJJJCJC=0 then response.write CJCJCJJ("????????") elseif CJJJCJC=1 or CJJJCJC=2 then response.write CJCJCJJ("????????") else response.write CJCJCJJ("????????") end if:Response.Write(vbCrLf):Response.Write(CJCJCJJ(" ,k^Am") & vbCrLf):Response.Write(CJCJCJJ(" ,k9a ,:5lQ4@?0>F5:Qm????????k^9am") & vbCrLf):Response.Write(CJCJCJJ(" ,kAm")):Response.Write replace(CJJCJJ(CJCJCJJ("4@?0>F5:")),vbcrlf,CJCJCJJ("k^AmkAm")):Response.Write(CJCJCJJ("k^Am") & vbCrLf):Response.Write(CJCJCJJ(" ,k9a ,:5lQE:>6Qm????????k^9am") & vbCrLf):Response.Write(CJCJCJJ(" ,kAm")):Response.Write CJJCJJ(CJCJCJJ("E:>6")):Response.Write(CJCJCJJ("k^Am") & vbCrLf):Response.Write(CJCJCJJ(" ,k9a ,:5lQA=246Qm????????k^9am") & vbCrLf):Response.Write(CJCJCJJ(" ,kAm")):Response.Write CJJCJJ(CJCJCJJ("A=246")):Response.Write(CJCJCJJ("k^Am") & vbCrLf):Response.Write(CJCJCJJ(" ,k9a ,:5lQC64CF:E\E:>6Qm????????????k^9am") & vbCrLf):Response.Write(CJCJCJJ(" ,kAm")):Response.Write CJJCJJ(CJCJCJJ("C64CF:E0DE2CE52E6")) & CJCJCJJ("O") & CJJCJJ(CJCJCJJ("C64CF:E06?552E6")):Response.Write(CJCJCJJ("k^Am") & vbCrLf):Response.Write(CJCJCJJ(" ,k9a ,:5lQA:4EFC6Qm????????k^9am") & vbCrLf):Response.Write(CJCJCJJ(" ,kF= ,52E2\2>\H:586ElQ82==6CJQ ,4=2DDlQ2>\82==6CJ ,2>\82==6CJ\3@C56C65Q ,52E2\2>\82==6CJlQLAFC6G:6HiECF6NQm") & vbCrLf):Response.Write(CJCJCJJ(" ,")):dim CJJJCCJ,CCCCJJ:CJJJCCJ=CJJCJJ(CJCJCJJ("A:4EFC6")) & "":if CJJJCCJ<>"" then CJJJCCJ=split(CJJJCCJ,CJCJCJJ("M")):for CCCCJJ=0 to ubound(CJJJCCJ):Response.Write(vbCrLf):Response.Write(CJCJCJJ(" ,k=:m") & vbCrLf):Response.Write(CJCJCJJ(" ,k5:G ,4=2DDlQ2>\82==6CJ\:E6>Qmk2 ,9C67lQ")):Response.Write CJJJCCJ(CCCCJJ):Response.Write(CJCJCJJ("Q ,4=2DDlQQmk:>8 ,DC4lQ")):Response.Write CJJJCCJ(CCCCJJ):Response.Write(CJCJCJJ("Qmk^2mk^5:Gm") & vbCrLf):Response.Write(CJCJCJJ(" ,k^=:m") & vbCrLf):Response.Write(CJCJCJJ(" ,")):next end if:Response.Write(vbCrLf):Response.Write(CJCJCJJ(" ,k^F=m") & vbCrLf):Response.Write(CJCJCJJ(" ,k9a ,:5lQ7665324<Qm????????k^9am") & vbCrLf):Response.Write(CJCJCJJ(" ,kF= ,4=2DDlQ2>\4@>>6?ED\=:DEQm") & vbCrLf):Response.Write(CJCJCJJ(" ,")):set CJJCJJ=CJJJCJ.execute(CJCJCJJ("D6=64E ,7246[7665324<[7665324<0=:<6[:5 ,7C@> ,G08C@FA8F:52?460>6>36C ,H96C6 ,4@FCD6:5l") & CJJJCJJ & CJCJCJJ(" ,@C ,4@FCD6:5l") & CJJCJJ(CJCJCJJ("C6:5")) & CJCJCJJ(" ,@C56C ,3J ,:5")):while not CJJCJJ.eof:if trim(CJJCJJ(1)) & ""<>"" then Response.Write(vbCrLf):Response.Write(CJCJCJJ(" ,k=: ,4=2DDlQ2>\4@>>6?EQmk:>8 ,DC4lQ")):Response.Write CJJCJJ(0):Response.Write(CJCJCJJ("Q ,4=2DDlQ2>\4@>>6?E\2G2E2CQ ,H:5E9lQcgQ ,96:89ElQcgQm") & vbCrLf):Response.Write(CJCJCJJ(" ,k5:G ,4=2DDlQ2>\4@>>6?E\>2:?Qm") & vbCrLf):Response.Write(CJCJCJJ(" ,k5:G ,4=2DDlQ2>\4@>>6?E\35Qm")):Response.Write CJJCJJ(1):Response.Write(CJCJCJJ("k^5:Gm") & vbCrLf):Response.Write(CJCJCJJ(" ,k7@@E6C ,4=2DDlQ2>\4@>>6?E\7@@E6CQm") & vbCrLf):Response.Write(CJCJCJJ(" ,k5:G ,4=2DDlQ2>\4@>>6?E\24E:@?DQmk2 ,4=2DDlQ=:<6Q ,9C67lQ;2G2D4C:AEijQ ,52E2\:5lQ")):Response.Write CJJCJJ(3):Response.Write(CJCJCJJ("Qmk: ,4=2DDlQ2>\:4@?\E9F>3D\FAQmk^:m ,kDA2?m")):Response.Write CJJCJJ(2):Response.Write(CJCJCJJ("k^DA2?mk^2mk^5:Gm") & vbCrLf):Response.Write(CJCJCJJ(" ,k^7@@E6Cm") & vbCrLf):Response.Write(CJCJCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJCJCJJ(" ,k^=:m") & vbCrLf):Response.Write(CJCJCJJ(" ,")) end if:CJJCJJ.movenext:wend:Response.Write(vbCrLf):Response.Write(CJCJCJJ(" ,k^F=m") & vbCrLf):Response.Write(CJCJCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJCJCJJ(" ,k^2CE:4=6m") & vbCrLf):Response.Write(CJCJCJJ("k^5:Gm") & vbCrLf):Response.Write(CJCJCJJ("kP\\????????\\m") & vbCrLf):Response.Write(CJCJCJJ("k5:G ,52E2\2>\H:586ElQ8@E@AQ ,4=2DDlQ2>\8@E@A ,2>\8@E@A\7:I65Qmk2 ,9C67lQRE@AQ ,E:E=6lQ????????QmkDA2? ,4=2DDlQ2>\8@E@A\E:E=6Qm????????k^DA2?mk: ,4=2DDlQ2>\8@E@A\:4@? ,2>\:4@?\496GC@?\FAQmk^:mk^2mk^5:Gm") & vbCrLf):Response.Write(CJCJCJJ("kD4C:AE ,DC4lQ^$4C:AED^2>2K6F:^;D^2>2K6F:]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJCJJ("kD4C:AEm") & vbCrLf):Response.Write(CJCJCJJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJCJCJJ(" ,SWV2]=:<6VX]@?WV4=:4<V[7F?4E:@?WXL") & vbCrLf):Response.Write(CJCJCJJ(" ,G2C ,S2lSWE9:DX") & vbCrLf):Response.Write(CJCJCJJ(" ,G2C ,S=:<6lS2]49:=5C6?WVDA2?VX") & vbCrLf):Response.Write(CJCJCJJ(" ,S]86EWVn24El=:<6U:5lVZS2]52E2WV:5VX[7F?4E:@?WXL") & vbCrLf):Response.Write(CJCJCJJ(" ,S=:<6]E6IEWA2CD6x?EWS=:<6]E6IEWXXZ`X") & vbCrLf):Response.Write(CJCJCJJ(" ,NX") & vbCrLf):Response.Write(CJCJCJJ(" ,C6EFC? ,72=D6") & vbCrLf):Response.Write(CJCJCJJ(" ,NX") & vbCrLf):Response.Write(CJCJCJJ("NX") & vbCrLf):Response.Write(CJCJCJJ("k^D4C:AEm") & vbCrLf):Response.Write(CJCJCJJ("k^3@5Jm") & vbCrLf):Response.Write(CJCJCJJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJJCJCC=nothing:set CJJCCJJ=nothing:set CJJCCJC=nothing:set CJJCCCJ=nothing:CJJCJC.Close:Set CJJCJC=Nothing:CJJCJJ.Close:Set CJJCJJ=Nothing:CJJJCJ.Close:Set CJJJCJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf) Function CJCJCJJ(ByVal CJCJJCC) Dim CJJJCCC, CCCCJJ, CJJCJJJ CJCJJCC = Replace(CJCJJCC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62)) For CCCCJJ = 1 To Len(CJCJJCC) If CCCCJJ <> CJJCJJJ Then CJJJCCC = AscW(Mid(CJCJJCC, CCCCJJ, 1)) If CJJJCCC >= 33 And CJJJCCC <= 79 Then CJCJCJJ = CJCJCJJ & Chr(CJJJCCC + 47) ElseIf CJJJCCC >= 80 And CJJJCCC <= 126 Then CJCJCJJ = CJCJCJJ & Chr(CJJJCCC - 47) Else CJJCJJJ = CCCCJJ + 1 If Mid(CJCJJCC, CJJCJJJ, 1) = Chr(64) Then CJCJCJJ = CJCJCJJ & ChrW(CJJJCCC + 5) Else CJCJCJJ = CJCJCJJ & Mid(CJCJJCC, CCCCJJ, 1) End If End If Next End Function %>
Ms-Dos/Windows
Unix
Write backup
jsp File Browser version 1.2 by
www.vonloesch.de