Edit D:\xinhaisoft\crisis_new\m\school\admin\my.asp
??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim CCJJJ, CCJJC,CCJCJ, CCJCC, CCCJJ:Set CCJJJ = server.CreateObject(CJJJJJJ("ps~sq]r@??64E:@?")):CCJJJ.open Application(CJJJJJJ("r@??64E:@?$EC:?8")):Set CCJJC=CCJJJ::Dim CCCJC,CCCCJ,CCCCC,CJJJJJ,CJJJJC,CJJJCJ,CJJJCC,CJJCJJ,CJJCJC:Dim CJJCCJ,CJJCCC,CJCJJJ,CJCJJC,CJCJCJ,CJCJCC:Dim CJCCJJ,CJCCJC,CJCCCJ:Dim CJCCCC:CJCCCC=Trim(Request.Cookies(CJJJJJJ("!$*|t|qt#"))):if CJCCCC="" then Call ClearMemberCookie else Call CheckMemberCookie end if:if CCCJC>0 then CCCJJ=CJJJJJJ("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") & CCCCJ & CJJJJJJ("V ,2?5 ,:5l") & CCCJC set CCJCJ=CCJJJ.execute(CCCJJ):If CCJCJ.EOF Then Call ClearMemberCookie Else CCCCC=CCJCJ(2) & "":CJJJJJ=CCJCJ(3):CJJJJC=CCJCJ(5):CJJJCJ=CCJCJ(6):CJJJCC=CCJCJ(9):CJJCJJ=CCJCJ(15):CJJCCJ=CCJCJ(0):CJCCJC=CCJCJ(1):CJCCJJ=CCJCJ(11) & "":CJJCCC=CCJCJ(10) & "":CJJCJC=CCJCJ(12):CJCJJJ=CCJCJ(14):CJCJJC=CCJCJ(13):CJCJCJ=CCJCJ(7) & "":CJCJCC=CCJCJ(4):CJCCCJ=CCJCJ(8):if isnull(CJJCJJ) then CJJCJJ=0 if isnull(CJJJCC) or CJJJCC=0 then CJJJCC=CJJJJJ if isnull(CJCJCC) then CJCJCC=0 if isnull(CJJJJC) then CJJJJC=0 if instr(CJJJJJJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CCCCJ)>0 then Call RedirectMessage(CJJJJJJ("????????,????????????????????????????????,")) Call SetMemberCookie(CCCJC,CCCCJ) End IF end if:::Sub CheckLogined():if CCCJC=0 then Call ClearMemberCookie:Call ConnClose:dim CCJJJJ:CCJJJJ=trim(request.QueryString(CJJJJJJ("D49@@="))):if isnumeric(CCJJJJ) then response.Redirect CJJJJJJ("^>^G2?E^R^D49@@=^") & CCJJJJ & CJJJJJJ("^DEF56?E^=@8:?nC65:C64El") & url else Call RedirectMessage(CJJJJJJ("??????????????,????????????,")) end if end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CJJJJJJ("!$*|t|qt#"))="":CCCJC=0:CJJJCJ=0:CCCCJ=Empty:CJJJJC=0:CJJCJJ=0:CJJJCC=0:CJJJJJ=0:CJJCCJ=False:CJCCJC=False:CJCCCJ=Empty:End Sub:Sub CheckMemberCookie():dim CCJJJC,CCJJCJ,CCJJCC,CCJCJJ,CCJCJC:CCJJJC=split(CJCCCC,CJJJJJJ("]")):if ubound(CCJJJC)<>2 then Call ClearMemberCookie elseif not isnumeric(CCJJJC(0)) or len(CCJJJC(1))<>32 or len(CCJJJC(2))<>32 then Call ClearMemberCookie else CCJJCJ=CCJJJC(1):for CCJJCC=1 to len(CCJJCJ):CCJCJJ=mid(CCJJCJ,CCJJCC,1):if isnumeric(CCJCJJ) then CCJCJC=CCJCJC & CCJCJJ if len(CCJCJC)=7 then exit for next:CCJJCJ=CCJJJC(2):if CCJCJC<>mid(CCJJCJ,6,7) then Call ClearMemberCookie else CCJCJJ=mid(CCJJCJ,18,10)/2:if CCJCJJ<DateDiff(CJJJJJJ("D"), CJJJJJJ("`hf_\`\` ,gi__i__"), Now)-28800 then Call ClearMemberCookie else CCCJC=Clng(CCJJJC(0)):CCCCJ=CCJJJC(1) end if end if end if:End Sub:Sub SetMemberCookie(CJJJJJC,CJJJJCJ):dim CCJJCC,CCJCJJ,CCJCJC:for CCJJCC=1 to len(CJJJJCJ):CCJCJJ=mid(CJJJJCJ,CCJJCC,1):if isnumeric(CCJCJJ) then CCJCJC=CCJCJC & CCJCJJ if len(CCJCJC)=7 then exit for next:CCJCJC=CJJJJJC & CJJJJJJ("]") & CJJJJCJ & CJJJJJJ("]") & Fix(10000*(Rnd+1)) & CCJCJC & Fix(10000*(Rnd+1)) & DateDiff(CJJJJJJ("D"), CJJJJJJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJJJJJJ("!$*|t|qt#"))=CCJCJC:End Sub::::Const CCCJJJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CJJJJCC,CJJJCJJ):dim CCJJJC:CCJJJC=CJJJJCC & "=" & CJJJCJJ & CJJJJJJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJJJJJ("$6E\r@@<:6"),CCJJJC):End Sub::::::::::::Sub ConnClose():On Error Resume Next:set CCCJJC=nothing:set CCCJCJ=nothing:set CCCJCC=nothing:set CCCCJJ=nothing:CCCCJC.close : set CCCCJC=nothing:CCJCC.Close : Set CCJCC=Nothing:CCJCJ.Close : Set CCJCJ=Nothing:CCCCCJ.Close : Set CCCCCJ = Nothing:CCJJJ.Close : Set CCJJJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJJCJC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJJJJJ("!$*0|6DD286"),server.URLEncode(CJJJCJC)):Response.Redirect CJJJJJJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::::::::::::::Call CheckLogined:If Request.ServerVariables(CJJJJJJ("#t""&t$%0|t%w~s"))=CJJJJJJ("!~$%") then dim CCJJCJ:CCJJCJ=request.form(CJJJJJJ("A")):CCJJJ.execute CJJJJJJ("FA52E6 ,>6>36C ,D6E ,,A2DDH@C5.lV") & CCJJCJ & CJJJJJJ("V[7:CDEADHl?F== ,H96C6 ,:5l") & CCCJC Call SetMemberCookie(CCCJC,CCJJCJ):response.end end if:Response.Write(vbCrLf):Response.Write(CJJJJJJ("kP5@4EJA6 ,9E>=m") & vbCrLf):Response.Write(CJJJJJJ("k9E>=m") & vbCrLf):Response.Write(CJJJJJJ("k9625m") & vbCrLf):Response.Write(CJJJJJJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJJJJJJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`[ ,>2I:>F>\D42=6l`[ ,FD6C\D42=23=6l?@Qm") & vbCrLf):Response.Write(CJJJJJJ("kE:E=6m????k^E:E=6m") & vbCrLf):Response.Write(CJJJJJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^2>2K6F:^4DD^2>2K6F:]>:?]4DDQm") & vbCrLf):Response.Write(CJJJJJJ("kDEJ=6m") & vbCrLf):Response.Write(CJJJJJJ("3@5J ,L ,324<8C@F?5\4@=@Ci ,R6g6g6gj ,N") & vbCrLf):Response.Write(CJJJJJJ("R7246 ,L ,324<8C@F?5i ,Rhurqua ,FC=W]]^:>286D^38`];A8X ,C:89E ,3@EE@>j ,324<8C@F?5\D:K6i ,4@G6Cj ,A255:?8\E@Ai ,`C6>j ,A255:?8\3@EE@>i ,`C6>j ,N") & vbCrLf):Response.Write(CJJJJJJ("]2>\=:DE\3@C56Cm=: ,L ,3@C56C\=67Ei ,?@?6j ,3@C56C\C:89Ei ,?@?6j ,N") & vbCrLf):Response.Write(CJJJJJJ("]2>\=:DEm=:m]2>\:4@?\2?8=6\C:89E ,L ,A@D:E:@?i ,23D@=FE6j ,C:89Ei ,`]dC6>j ,E@Ai ,`aAIj ,4FCD@Ci ,A@:?E6Cj ,N") & vbCrLf):Response.Write(CJJJJJJ("]2>\=:DEm=:m]2>\32586 ,L ,A@D:E:@?i ,23D@=FE6j ,C:89Ei ,`]dC6>j ,E@Ai ,`eAIj ,H:5E9i ,`gAIj ,96:89Ei ,`gAIj ,A255:?8i ,_j ,=:?6\96:89Ei ,`gAIj ,7@?E\H6:89Ei ,?@C>2=j ,N") & vbCrLf):Response.Write(CJJJJJJ("R?6H\>D8 ,]2>\32586 ,L ,5:DA=2Ji ,?@?6j ,N") & vbCrLf):Response.Write(CJJJJJJ("k^DEJ=6m") & vbCrLf):Response.Write(CJJJJJJ("k^9625m") & vbCrLf):Response.Write(CJJJJJJ("k3@5Jm") & vbCrLf):Response.Write(CJJJJJJ("kP\\????\\m") & vbCrLf):Response.Write(CJJJJJJ("k96256C ,52E2\2>\H:586ElQ96256CQ ,4=2DDlQ2>\96256C ,2>\96256C\5672F=EQm") & vbCrLf):Response.Write(CJJJJJJ(" ,k5:G ,4=2DDlQ2>\96256C\=67E ,2>\96256C\?2GQmk2 ,9C67lQ;2G2D4C:AEi9:DE@CJ]324<WXjQmk: ,4=2DDlQ2>\96256C\:4@? ,2>\:4@?\2?8=6\=67EQmk^:mk^2m ,k2 ,9C67lQ:?56I]2DAQmk: ,4=2DDlQ2>\96256C\:4@? ,2>\:4@?\9@>6Qmk^:mk^2mk^5:Gm") & vbCrLf):Response.Write(CJJJJJJ(" ,k9` ,4=2DDlQ2>\96256C\E:E=6 ,2>\E6IE\ECF?42E6Qm????k^9`m") & vbCrLf):Response.Write(CJJJJJJ("k^96256Cm") & vbCrLf):Response.Write(CJJJJJJ("kP\\????\\m") & vbCrLf):Response.Write(CJJJJJJ("k5:G ,:5lQ7246Q ,4=2DDlQ2>\E6IE\46?E6CQmk2 ,9C67lQ]]^]]^]]^>6>36C^7246]2DAQmk:>8 ,4=2DDlQ2>\:>8\E9F>3?2:= ,2>\4:C4=6Q ,DC4lQ")):Response.Write CJCCJJ:Response.Write(CJJJJJJ("Q ,H:5E9lQ`__Q ,96:89ElQ`__Qmk^2mk3Cm") & vbCrLf):Response.Write(CJJJJJJ(" ,")):Response.Write CJCJJC:Response.Write(CJJJJJJ("??,xs??,")):Response.Write CCCJC:Response.Write(CJJJJJJ("??,k^5:Gm") & vbCrLf):Response.Write(CJJJJJJ("kP\\????\\m") & vbCrLf):Response.Write(CJJJJJJ("kF= ,4=2DDlQ2>\=:DE ,2>\=:DE\3@C56CQm") & vbCrLf):Response.Write(CJJJJJJ(" ,k=: ,:5lQ?6H\>D8Qmk2 ,9C67lQ;2G2D4C:AEijQmk: ,4=2DDlQ2>\:4@?\7H ,2>\:4@?\36==Qmk^:m ,????????k^2mkDA2? ,4=2DDlQ2>\32586 ,2>\32586\H2C?:?8 ,2>\C@F?5Qm_k^DA2?mk^=:m") & vbCrLf):Response.Write(CJJJJJJ(" ,k5:G ,4=2DDlQ2>\A@AFAQ ,:5lQ>J\A@AFAQm") & vbCrLf):Response.Write(CJJJJJJ(" ,k5:G ,4=2DDlQ2>\A@AFA\:??6CQm") & vbCrLf):Response.Write(CJJJJJJ(" ,k5:G ,4=2DDlQ2>\A@AFA\95Qm") & vbCrLf):Response.Write(CJJJJJJ(" ,k9c ,4=2DDlQ2>\A@AFA\E:E=6Qm????????k^9cm") & vbCrLf):Response.Write(CJJJJJJ(" ,kDA2? ,52E2\2>\>@52=\4=@D6 ,4=2DDlQ2>\4=@D6QmUE:>6Djk^DA2?mk^5:Gm") & vbCrLf):Response.Write(CJJJJJJ(" ,k5:G ,4=2DDlQ2>\A@AFA\35Qm") & vbCrLf):Response.Write(CJJJJJJ(" ,kF= ,4=2DDlQ2>\=:DE ,2>\=:DE\DE2E:4 ,2>\=:DE\3@C56CQm") & vbCrLf):Response.Write(CJJJJJJ(" ,k^F=m") & vbCrLf):Response.Write(CJJJJJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJJJJ(" ,kE6>A=2E6 ,:5lQE\?6H>D8Qm") & vbCrLf):Response.Write(CJJJJJJ(" ,LL6249NN") & vbCrLf):Response.Write(CJJJJJJ(" ,k=:m") & vbCrLf):Response.Write(CJJJJJJ(" ,k9dmk: ,4=2DDlQ2>\:4@?\4@>>6?EQmk^:m ,,LL:7 ,SG2=F6]:DDJDllVECF6VNN????LL6=D6NNLLSG2=F6]D6?56C?2>6NNLL^:7NN. ,,LLSG2=F6]52E6E:>6NN.k^9dm") & vbCrLf):Response.Write(CJJJJJJ(" ,LLSG2=F6]4@?E6?ENN") & vbCrLf):Response.Write(CJJJJJJ(" ,k^=:m") & vbCrLf):Response.Write(CJJJJJJ(" ,LL^6249NN") & vbCrLf):Response.Write(CJJJJJJ(" ,k^E6>A=2E6m") & vbCrLf):Response.Write(CJJJJJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJJJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJJJJ("k^F=m") & vbCrLf):Response.Write(CJJJJJJ("kF= ,4=2DDlQ2>\=:DE ,2>\=:DE\3@C56CQm") & vbCrLf):Response.Write(CJJJJJJ(" ,k=:mk2 ,9C67lQ;2G2D4C:AEijQ ,:5lQ492?86ADHQmk: ,4=2DDlQ2>\:4@?\7H ,2>\:4@?\=@4<Qmk^:m ,????????????k^2mk^=:m") & vbCrLf):Response.Write(CJJJJJJ("k^F=m") & vbCrLf):Response.Write(CJJJJJJ("k2 ,:5lQ3E?\=@8@FEQ ,4=2DDlQ2>\3E? ,2>\3E?\AC:>2CJ ,2>\3E?\3=@4<Q ,9C67lQ^>^=@8@FE]2DAnC65:C64El")):Response.Write server.urlencode(CJJJJJJ("^>^G2?E^R^D49@@=^") & CJJJCC & CJJJJJJ("^25>:?^=@8:?")):Response.Write(CJJJJJJ("Qm????????k^2m") & vbCrLf):Response.Write(CJJJJJJ("k5:G ,4=2DDlQ2>\>@52= ,2>\>@52=\AC@>AEQ ,E23:?56IlQ\`Q ,:5lQ>J\AC@>AEQm") & vbCrLf):Response.Write(CJJJJJJ(" ,k5:G ,4=2DDlQ2>\>@52=\5:2=@8Qm") & vbCrLf):Response.Write(CJJJJJJ(" ,k5:G ,4=2DDlQ2>\>@52=\35Qm????????????????") & vbCrLf):Response.Write(CJJJJJJ(" ,k:?AFE ,EJA6lQA2DDH@C5Q ,4=2DDlQ2>\>@52=\AC@>AE\:?AFEQ ,2FE@4@>A=6E6lQ@77Qm") & vbCrLf):Response.Write(CJJJJJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJJJJ(" ,k5:G ,4=2DDlQ2>\>@52=\7@@E6CQm ,kDA2? ,4=2DDlQ2>\>@52=\3E?Q ,52E2\2>\>@52=\42?46=m????k^DA2?m ,kDA2? ,4=2DDlQ2>\>@52=\3E?Q ,52E2\2>\>@52=\4@?7:C>m????k^DA2?m ,k^5:Gm") & vbCrLf):Response.Write(CJJJJJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJJJJ("k^5:Gm") & vbCrLf):Response.Write(CJJJJJJ("k:?AFE ,EJA6lQ9:556?Q ,:5lQ>6>\:5Q ,G2=F6lQ")):Response.Write CCCJC:Response.Write(CJJJJJJ("Qm") & vbCrLf):Response.Write(CJJJJJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJJJ("kD4C:AE ,DC4lQ^$4C:AED^2>2K6F:^;D^2>2K6F:]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJJJ("kD4C:AE ,DC4lQ^$4C:AED^>5d]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJJJ("kD4C:AE ,DC4lQ^$4C:AED^DE@C6a]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJJJ("kD4C:AE ,DC4lQ^$4C:AED^8=@32=];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJJJ("kD4C:AE ,DC4lQ^$4C:AED^E6>A=2E6\H63];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJJJ("kD4C:AEm") & vbCrLf):Response.Write(CJJJJJJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJJJJJJ(" ,G2C ,F:5lSWVR>6>\:5VX]G2=WX") & vbCrLf):Response.Write(CJJJJJJ(" ,^^ ,??????????") & vbCrLf):Response.Write(CJJJJJJ(" ,86E?6H>D8WX") & vbCrLf):Response.Write(CJJJJJJ(" ,7F?4E:@? ,86E?6H>D8WXL") & vbCrLf):Response.Write(CJJJJJJ(" ,S]86Ey$~}Wv=@32=]w@DEZV^>6DD286^?6Hn=2DEl`UF:5lVZF:5[7F?4E:@?W;D@?XL") & vbCrLf):Response.Write(CJJJJJJ(" ,:7W;D@?]4@56lll_XL") & vbCrLf):Response.Write(CJJJJJJ(" ,G2C ,52E2l;D@?]52E2") & vbCrLf):Response.Write(CJJJJJJ(" ,^^ ,??????????????s~|") & vbCrLf):Response.Write(CJJJJJJ(" ,:7W52E2]=6?8E9lll_XLSWVR?6H\>D8VX]A2C6?EWX]C6>@G6WXN") & vbCrLf):Response.Write(CJJJJJJ(" ,6=D6L") & vbCrLf):Response.Write(CJJJJJJ(" ,^^ ,????????") & vbCrLf):Response.Write(CJJJJJJ(" ,G2C ,?6H4@F?El_") & vbCrLf):Response.Write(CJJJJJJ(" ,S]6249W52E2[7F?4E:@?W:[GXL") & vbCrLf):Response.Write(CJJJJJJ(" ,:7WG]:D?6HXL?6H4@F?EZZN") & vbCrLf):Response.Write(CJJJJJJ(" ,NX") & vbCrLf):Response.Write(CJJJJJJ(" ,:7W?6H4@F?Em_XLSWVR?6H\>D8VX]7:?5WVDA2?]2>\32586VX]E6IEW?6H4@F?EX]D9@HWXN") & vbCrLf):Response.Write(CJJJJJJ(" ,^^ ,????????????") & vbCrLf):Response.Write(CJJJJJJ(" ,SWVR>J\A@AFAVX]7:?5WVF=VX]9E>=WE6>A=2E6WVE\?6H>D8V[;D@?]52E2XX") & vbCrLf):Response.Write(CJJJJJJ(" ,N") & vbCrLf):Response.Write(CJJJJJJ(" ,N") & vbCrLf):Response.Write(CJJJJJJ(" ,NX") & vbCrLf):Response.Write(CJJJJJJ(" ,N") & vbCrLf):Response.Write(CJJJJJJ(" ,^^ ,??????????") & vbCrLf):Response.Write(CJJJJJJ(" ,SWVR?6H\>D8m2VX]@?WV4=:4<V[7F?4E:@?WXL") & vbCrLf):Response.Write(CJJJJJJ(" ,SWVR>J\A@AFAVX]>@52=WX") & vbCrLf):Response.Write(CJJJJJJ(" ,G2C ,?lSWVR?6H\>D8VX]7:?5WV]2>\32586VX]E6IEWX") & vbCrLf):Response.Write(CJJJJJJ(" ,:7W?PllVVXL") & vbCrLf):Response.Write(CJJJJJJ(" ,^^ ,????????????") & vbCrLf):Response.Write(CJJJJJJ(" ,SWVR?6H\>D8VX]7:?5WV]2>\32586VX]6>AEJWX]9:56WX") & vbCrLf):Response.Write(CJJJJJJ(" ,S]86Ey$~}Wv=@32=]w@DEZV^>6DD286^C62565V[LF:5iF:5NX") & vbCrLf):Response.Write(CJJJJJJ(" ,N") & vbCrLf):Response.Write(CJJJJJJ(" ,C6EFC? ,72=D6") & vbCrLf):Response.Write(CJJJJJJ(" ,NX") & vbCrLf):Response.Write(CJJJJJJ(" ,^^ ,????????") & vbCrLf):Response.Write(CJJJJJJ(" ,SWVR492?86ADHVX]@?WV4=:4<V[7F?4E:@?WXL") & vbCrLf):Response.Write(CJJJJJJ(" ,SWVR>J\AC@>AEVX]>@52=WL") & vbCrLf):Response.Write(CJJJJJJ(" ,@?r@?7:C>i7F?4E:@?W6XL") & vbCrLf):Response.Write(CJJJJJJ(" ,S]A@DEWVV[LAi>5dW6]52E2XN[7F?4E:@?WXL") & vbCrLf):Response.Write(CJJJJJJ(" ,SWVR>J\AC@>AEVX]7:?5WV:?AFEVX]G2=WVVX") & vbCrLf):Response.Write(CJJJJJJ(" ,NX") & vbCrLf):Response.Write(CJJJJJJ(" ,N") & vbCrLf):Response.Write(CJJJJJJ(" ,NX") & vbCrLf):Response.Write(CJJJJJJ(" ,NX") & vbCrLf):Response.Write(CJJJJJJ(" ,^^ ,????????") & vbCrLf):Response.Write(CJJJJJJ(" ,SWVR3E?\=@8@FEVX]@?WV4=:4<V[7F?4E:@?WXL") & vbCrLf):Response.Write(CJJJJJJ(" ,DE@C6]C6>@G6WVFD6CVX") & vbCrLf):Response.Write(CJJJJJJ(" ,NX") & vbCrLf):Response.Write(CJJJJJJ("NX") & vbCrLf):Response.Write(CJJJJJJ("k^D4C:AEm") & vbCrLf):Response.Write(CJJJJJJ("k^3@5Jm") & vbCrLf):Response.Write(CJJJJJJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCCJJC=nothing:set CCCJCJ=nothing:set CCCJCC=nothing:set CCCCJJ=nothing:CCJCC.Close:Set CCJCC=Nothing:CCJCJ.Close:Set CCJCJ=Nothing:CCJJJ.Close:Set CCJJJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf) Function CJJJJJJ(ByVal CCCCCC) Dim CCJCCJ, CCJJCC, CCJCCC CCCCCC = Replace(CCCCCC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62)) For CCJJCC = 1 To Len(CCCCCC) If CCJJCC <> CCJCCC Then CCJCCJ = AscW(Mid(CCCCCC, CCJJCC, 1)) If CCJCCJ >= 33 And CCJCCJ <= 79 Then CJJJJJJ = CJJJJJJ & Chr(CCJCCJ + 47) ElseIf CCJCCJ >= 80 And CCJCCJ <= 126 Then CJJJJJJ = CJJJJJJ & Chr(CCJCCJ - 47) Else CCJCCC = CCJJCC + 1 If Mid(CCCCCC, CCJCCC, 1) = Chr(64) Then CJJJJJJ = CJJJJJJ & ChrW(CCJCCJ + 5) Else CJJJJJJ = CJJJJJJ & Mid(CCCCCC, CCJJCC, 1) End If End If Next End Function %>
Ms-Dos/Windows
Unix
Write backup
jsp File Browser version 1.2 by
www.vonloesch.de