Edit D:\xinhaisoft\crisis_new\member\face.asp
??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim CCJJC, CCJCJ,CCJCC, CCCJJ, CCCJC:Set CCJJC = server.CreateObject(CJCJJJC("ps~sq]r@??64E:@?")):CCJJC.open Application(CJCJJJC("r@??64E:@?$EC:?8")):Set CCJCJ=CCJJC::Dim CCCCJ,CCCCC,CJJJJJ,CJJJJC,CJJJCJ,CJJJCC,CJJCJJ,CJJCJC,CJJCCJ:Dim CJJCCC,CJCJJJ,CJCJJC,CJCJCJ,CJCJCC,CJCCJJ:Dim CJCCJC,CJCCCJ,CJCCCC:Dim CCJJJJ:CCJJJJ=Trim(Request.Cookies(CJCJJJC("!$*|t|qt#"))):if CCJJJJ="" then Call ClearMemberCookie else Call CheckMemberCookie end if:if CCCCJ>0 then CCCJC=CJCJJJC("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") & CCCCC & CJCJJJC("V ,2?5 ,:5l") & CCCCJ set CCJCC=CCJJC.execute(CCCJC):If CCJCC.EOF Then Call ClearMemberCookie Else CJJJJJ=CCJCC(2) & "":CJJJJC=CCJCC(3):CJJJCJ=CCJCC(5):CJJJCC=CCJCC(6):CJJCJJ=CCJCC(9):CJJCJC=CCJCC(15):CJJCCC=CCJCC(0):CJCCCJ=CCJCC(1):CJCCJC=CCJCC(11) & "":CJCJJJ=CCJCC(10) & "":CJJCCJ=CCJCC(12):CJCJJC=CCJCC(14):CJCJCJ=CCJCC(13):CJCJCC=CCJCC(7) & "":CJCCJJ=CCJCC(4):CJCCCC=CCJCC(8):if isnull(CJJCJC) then CJJCJC=0 if isnull(CJJCJJ) or CJJCJJ=0 then CJJCJJ=CJJJJC if isnull(CJCCJJ) then CJCCJJ=0 if isnull(CJJJCJ) then CJJJCJ=0 if instr(CJCJJJC("6`_254bhch32dh2336de6_df7a_7ggb6"),CCCCC)>0 then Call RedirectMessage(CJCJJJC("????????,????????????????????????????????,")) Call SetMemberCookie(CCCCJ,CCCCC) End IF end if:::Sub CheckLogined():if CCCCJ=0 then Call ClearMemberCookie:Call ConnClose:dim CCJJJC:CCJJJC=trim(request.QueryString(CJCJJJC("D49@@="))):if isnumeric(CCJJJC) then response.Redirect CJCJJJC("^>^G2?E^R^D49@@=^") & CCJJJC & CJCJJJC("^DEF56?E^=@8:?nC65:C64El") & url else Call RedirectMessage(CJCJJJC("??????????????,????????????,")) end if end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CJCJJJC("!$*|t|qt#"))="":CCCCJ=0:CJJJCC=0:CCCCC=Empty:CJJJCJ=0:CJJCJC=0:CJJCJJ=0:CJJJJC=0:CJJCCC=False:CJCCCJ=False:CJCCCC=Empty:End Sub:Sub CheckMemberCookie():dim CCJJCJ,CCJJCC,CCJCJJ,CCJCJC,CCJCCJ:CCJJCJ=split(CCJJJJ,CJCJJJC("]")):if ubound(CCJJCJ)<>2 then Call ClearMemberCookie elseif not isnumeric(CCJJCJ(0)) or len(CCJJCJ(1))<>32 or len(CCJJCJ(2))<>32 then Call ClearMemberCookie else CCJJCC=CCJJCJ(1):for CCJCJJ=1 to len(CCJJCC):CCJCJC=mid(CCJJCC,CCJCJJ,1):if isnumeric(CCJCJC) then CCJCCJ=CCJCCJ & CCJCJC if len(CCJCCJ)=7 then exit for next:CCJJCC=CCJJCJ(2):if CCJCCJ<>mid(CCJJCC,6,7) then Call ClearMemberCookie else CCJCJC=mid(CCJJCC,18,10)/2:if CCJCJC<DateDiff(CJCJJJC("D"), CJCJJJC("`hf_\`\` ,gi__i__"), Now)-28800 then Call ClearMemberCookie else CCCCJ=Clng(CCJJCJ(0)):CCCCC=CCJJCJ(1) end if end if end if:End Sub:Sub SetMemberCookie(CCCCCC,CJCJJCJ):dim CCJCJJ,CCJCJC,CCJCCJ:for CCJCJJ=1 to len(CJCJJCJ):CCJCJC=mid(CJCJJCJ,CCJCJJ,1):if isnumeric(CCJCJC) then CCJCCJ=CCJCCJ & CCJCJC if len(CCJCCJ)=7 then exit for next:CCJCCJ=CCCCCC & CJCJJJC("]") & CJCJJCJ & CJCJJJC("]") & Fix(10000*(Rnd+1)) & CCJCCJ & Fix(10000*(Rnd+1)) & DateDiff(CJCJJJC("D"), CJCJJJC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJCJJJC("!$*|t|qt#"))=CCJCCJ:End Sub::::Const CJJJCCC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CJCJJCC,CJCJCJJ):dim CCJJCJ:CCJJCJ=CJCJJCC & "=" & CJCJCJJ & CJCJJJC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJCJJJC("$6E\r@@<:6"),CCJJCJ):End Sub:::::Sub CheckValidPost():dim CCJCCC:CCJCCC=false:Dim CCCJJJ : CCCJJJ=lcase(Request.ServerVariables(CJCJJJC("w%%!0#tut#t#"))):if(instr(CCCJJJ,Application(CJCJJJC("s@>2:?(9:E6{:DE")))>0) then CCJCCC=true else Dim CCCJJC : CCCJJC=lcase(Request.ServerVariables(CJCJJJC("$t#'t#0}p|t"))):Dim CCCJCJ : CCCJCJ=Request.ServerVariables(CJCJJJC("{~rp{0pss#")):if Mid(CCCJJJ,8,Len(CCCJJC))=CCCJJC or Mid(CCCJJJ,9,Len(CCCJJC))=CCCJJC or CCCJJC=CCCJCJ then CCJCCC=true end if:if not CCJCCC then Call RedirectMessage(CJCJJJC("????????,??????????????????????????,")) end sub:::::::Sub ConnClose():On Error Resume Next:set CJJCJJJ=nothing:set CJJCJJC=nothing:set CJJCJCJ=nothing:set CJJCJCC=nothing:CJJCCJJ.close : set CJJCCJJ=nothing:CCCJJ.Close : Set CCCJJ=Nothing:CCJCC.Close : Set CCJCC=Nothing:CJJCCJC.Close : Set CJJCCJC = Nothing:CCJJC.Close : Set CCJJC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJCJCJC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJCJJJC("!$*0|6DD286"),server.URLEncode(CJCJCJC)):Response.Redirect CJCJJJC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::Function CJJCCCJ(ByVal CJJCCCC,style):if not isdate(CJJCCCC) then CJJCCCJ=CJJCCCC:exit function end if:dim CCCJCC,CCCCJJ,CCCCJC,CCCCCJ:CJJCCCC=cdate(CJJCCCC):CCCJCC=Year(CJJCCCC):CCCCJJ=Month(CJJCCCC):CCCCJC=Day(CJJCCCC):select case style:case 0:CJJCCCJ=CCCJCC & CJCJJJC("\") & right(0 & CCCCJJ,2) & CJCJJJC("\") & right(0 & CCCCJC,2):case 1:CJJCCCJ=CCCJCC & right(0 & CCCCJJ,2) & right(0 & CCCCJC,2):case 2:CJJCCCJ=right(CCCJCC,2) & CJCJJJC("\") & right(0 & CCCCJJ,2) & CJCJJJC("\") & right(0 & CCCCJC,2):case 3:CJJCCCJ=CCCJCC & CJCJJJC("\") & right(0 & CCCCJJ,2):case 4:CJJCCCJ=right(0 & CCCCJJ,2) & CJCJJJC("\") & right(0 & CCCCJC,2):case 5:CJJCCCJ=right(0 & CCCCJC,2):case 6:CJJCCCJ=CCCJCC & CJCJJJC("??") & right(0 & CCCCJJ,2) & CJCJJJC("??") & right(0 & CCCCJC,2) & CJCJJJC("??"):case else CJJCCCJ=CJJCCCC:end select:End Function::::::::::::::::::::::dim CCCCCC,CJJJJJJ,str:str=CJJCCCJ(Date,1):Call CheckLogined:CCCCCC=CCCCJ:CJJJJJJ=CJCJJJ:if instr(CJJJJJJ,CJCJJJC("]"))<1 then CJJJJJJ=CJCCJC If Request.ServerVariables(CJCJJJC("#t""&t$%0|t%w~s"))=CJCJJJC("!~$%") then Call CheckValidPost:CJJJJJJ=request.Form(CJCJJJC("7246")):if instr(CJJJJJJ,CJCJJJC("52E2i:>286^;A68j32D6ec["))=1 then CJJJJJJ=Mid(CJJJJJJ,instr(CJJJJJJ,CJCJJJC("["))+1):dim CJJJJCJ:CJJJJCJ=CJCJJJC("k52E2m") & CJJJJJJ & CJCJJJC("k^52E2m"):Dim CJJJJCC : Set CJJJJCC=Server.CreateObject(CJCJJJC("|$)|{a]s~|s@4F>6?E")):Dim CJJJCJJ : Set CJJJCJJ=Server.CreateObject(CJCJJJC("ps~sq]$EC62>")):CJJJJCC.resolveExternals=False:CJJJJCC.loadxml(CJJJJCJ):CJJJJCC.documentElement.setAttribute CJCJJJC("I>=?Di5E"),CJCJJJC("FC?iD496>2D\>:4C@D@7E\4@>i52E2EJA6D"):CJJJJCC.documentElement.dataType = CJCJJJC("3:?]32D6ec"):CJJJCJJ.Type=1:CJJJCJJ.Open:CJJJCJJ.Write CJJJJCC.documentElement.nodeTypedValue:CJJJCJJ.SaveToFile Server.MapPath(CJCJJJC("^2EE249>6?ED^7246^") & CCCCCC & CJCJJJC("];A8")),2:CJJJCJJ.Close:Set CJJJJCC=Nothing:Set CJJJCJJ=Nothing:CCJJC.execute CJCJJJC("FA52E6 ,>6>36C ,D6E ,7246lV^2EE249>6?ED^7246^") & CCCCCC & CJCJJJC("];A8V ,H96C6 ,:5l") & CCCCCC end if:Call ConnClose:response.End() end if:Response.Write(vbCrLf):Response.Write(CJCJJJC("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJCJJJC("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJCJJJC("k9625m") & vbCrLf):Response.Write(CJCJJJC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJCJJJC("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJCJJJC("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJCJJJC("kE:E=6m????????k^E:E=6m") & vbCrLf):Response.Write(CJCJJJC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^2>2K6F:^4DD^2>2K6F:]>:?]4DDQm") & vbCrLf):Response.Write(CJCJJJC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^4C@AA6C^4C@AA6C]>:?]4DDQm") & vbCrLf):Response.Write(CJCJJJC("kDEJ=6m") & vbCrLf):Response.Write(CJCJJJC("]2>\8 ,L ,>2C8:?\E@Ai ,dAIj ,N") & vbCrLf):Response.Write(CJCJJJC("R7:=6 ,L ,5:DA=2Ji ,?@?6j ,N") & vbCrLf):Response.Write(CJCJJJC(":>8 ,L ,>2I\H:5E9i ,`__Tj ,>2I\96:89Ei ,c__AIj ,N") & vbCrLf):Response.Write(CJCJJJC("RBC4@56 ,L ,E6IE\2=:8?i ,46?E6Cj ,N") & vbCrLf):Response.Write(CJCJJJC("RBC4@56 ,]EIE ,L ,7@?E\D:K6i ,`]aC6>j ,N") & vbCrLf):Response.Write(CJCJJJC("]AC6G:6H ,L ,H:5E9i ,`__AIj ,96:89Ei ,`__AIj ,@G6C7=@Hi ,9:556?j ,>2C8:?\3@EE@>i ,`_AIj ,>2C8:?\=67Ei ,2FE@j ,>2C8:?\C:89Ei ,2FE@j ,N") & vbCrLf):Response.Write(CJCJJJC("k^DEJ=6m") & vbCrLf):Response.Write(CJCJJJC("k^9625m") & vbCrLf):Response.Write(CJCJJJC("k3@5Jm") & vbCrLf):Response.Write(CJCJJJC("kP\\????\\m") & vbCrLf):Response.Write(CJCJJJC("k96256C ,52E2\2>\H:586ElQ96256CQ ,4=2DDlQ2>\D9@H\D>\5@H? ,2>\96256C ,2>\96256C\5672F=EQm") & vbCrLf):Response.Write(CJCJJJC(" ,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^2mk^5:Gm") & vbCrLf):Response.Write(CJCJJJC(" ,k9` ,4=2DDlQ2>\96256C\E:E=6 ,2>\E6IE\ECF?42E6Qm????????k^9`m") & vbCrLf):Response.Write(CJCJJJC("k^96256Cm") & vbCrLf):Response.Write(CJCJJJC("k5:G ,4=2DDlQ2>\8Qm") & vbCrLf):Response.Write(CJCJJJC(" ,k5:G ,4=2DDlQ2>\F\D>\`a ,2>\F\>5\`_Qmk:>8 ,:5lQ:>286Q ,DC4lQ")):Response.Write CJJJJJJ:Response.Write(CJCJJJC("Qmk^5:Gm") & vbCrLf):Response.Write(CJCJJJC(" ,k5:G ,4=2DDlQ2>\D9@H\>5\FA ,2>\F\>5\aQm") & vbCrLf):Response.Write(CJCJJJC(" ,k9C ,52E2\2>\H:586ElQ5:G:56CQ ,4=2DDlQ2>\5:G:56C ,2>\5:G:56C\5@EE65Qm") & vbCrLf):Response.Write(CJCJJJC(" ,k5:G ,4=2DDlQAC6G:6H ,2>\C25:FDQmk^5:Gm") & vbCrLf):Response.Write(CJCJJJC(" ,k5:G ,4=2DDlQAC6G:6H ,2>\4:C4=6Qmk^5:Gm") & vbCrLf):Response.Write(CJCJJJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJCJJJC("k^5:Gm") & vbCrLf):Response.Write(CJCJJJC("k5:G ,4=2DDlQ2>\8 ,2>\2?:>2E:@?\D=:56\=67EQm") & vbCrLf):Response.Write(CJCJJJC(" ,k5:G ,4=2DDlQ2>\F\D>\`aQm") & vbCrLf):Response.Write(CJCJJJC(" ,k3FEE@? ,EJA6lQ3FEE@?Q ,4=2DDlQ2>\3E? ,2>\C25:FD ,2>\3E?\DF446DD ,2>\3E?\D>Q ,:5lQD6=64EQmk: ,4=2DDlQ2>\:4@?\4=@F5\FA=@25Qmk^:m ,????????k^3FEE@?m") & vbCrLf):Response.Write(CJCJJJC(" ,k5:G ,4=2DDlQ2>\3E?\8C@FA ,2>\3E?\8C@FA\D>Qm") & vbCrLf):Response.Write(CJCJJJC(" ,k3FEE@? ,EJA6lQ3FEE@?Q ,4=2DDlQ2>\3E? ,2>\C25:FD ,2>\3E?\AC:>2CJQ ,:5lQK@@>\:?Qmk: ,4=2DDlQ2>\:4@?\D62C49\A=FDQmk^:m ,????k^3FEE@?m") & vbCrLf):Response.Write(CJCJJJC(" ,k3FEE@? ,EJA6lQ3FEE@?Q ,4=2DDlQ2>\3E? ,2>\C25:FD ,2>\3E?\AC:>2CJQ ,:5lQK@@>\@FEQmk: ,4=2DDlQ2>\:4@?\D62C49\>:?FDQmk^:m ,????k^3FEE@?m") & vbCrLf):Response.Write(CJCJJJC(" ,k3FEE@? ,EJA6lQ3FEE@?Q ,4=2DDlQ2>\3E? ,2>\C25:FD ,2>\3E?\AC:>2CJQ ,:5lQD42=6)Qmk: ,4=2DDlQ2>\:4@?\2CC@HD\9Qmk^:m ,????????k^3FEE@?m") & vbCrLf):Response.Write(CJCJJJC(" ,k3FEE@? ,EJA6lQ3FEE@?Q ,4=2DDlQ2>\3E? ,2>\C25:FD ,2>\3E?\AC:>2CJQ ,:5lQD42=6*Qmk: ,4=2DDlQ2>\:4@?\2CC@HD\GQmk^:m ,????????k^3FEE@?m") & vbCrLf):Response.Write(CJCJJJC(" ,k3FEE@? ,EJA6lQ3FEE@?Q ,4=2DDlQ2>\3E? ,2>\C25:FD ,2>\3E?\AC:>2CJQ ,:5lQC6D6EQmk: ,4=2DDlQ2>\:4@?\C67C6D9 ,Qmk^:m ,????k^3FEE@?m") & vbCrLf):Response.Write(CJCJJJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJCJJJC(" ,k3FEE@? ,EJA6lQ3FEE@?Q ,4=2DDlQ2>\3E? ,2>\C25:FD ,2>\3E?\H2C?:?8 ,2>\3E?\D>Q ,:5lQD2G6Qmk: ,4=2DDlQ2>\:4@?\42>6C2Qmk^:m ,????k^3FEE@?m") & vbCrLf):Response.Write(CJCJJJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJCJJJC("k^5:Gm") & vbCrLf):Response.Write(CJCJJJC("k:?AFE ,EJA6lQ7:=6Q ,:5lQ7:=6Q ,?2>6lQFA=@25Q ,2446AElQ:>286^YQm") & vbCrLf):Response.Write(CJCJJJC("k5:G ,4=2DDlQ2>\>@52= ,2>\>@52=\2=6CEQ ,E23:?56IlQ\`Q ,:5lQ>J\2=6CEQm") & vbCrLf):Response.Write(CJCJJJC(" ,k5:G ,4=2DDlQ2>\>@52=\5:2=@8Qm") & vbCrLf):Response.Write(CJCJJJC(" ,k5:G ,4=2DDlQ2>\>@52=\35Qmk^5:Gm") & vbCrLf):Response.Write(CJCJJJC(" ,k5:G ,4=2DDlQ2>\>@52=\7@@E6CQmkDA2? ,4=2DDlQ2>\>@52=\3E?Qm????k^DA2?mk^5:Gm") & vbCrLf):Response.Write(CJCJJJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJCJJJC("k^5:Gm") & vbCrLf):Response.Write(CJCJJJC("k5:G ,4=2DDlQ2>\>@52= ,2>\>@52=\=@25:?8 ,2>\>@52=\?@\3E?Q ,E23:?56IlQ\`Q ,:5lQ>J\>@52=\=@25:?8Qm") & vbCrLf):Response.Write(CJCJJJC(" ,k5:G ,4=2DDlQ2>\>@52=\5:2=@8Qm") & vbCrLf):Response.Write(CJCJJJC(" ,k5:G ,4=2DDlQ2>\>@52=\95Qm????????]]]k^5:Gm") & vbCrLf):Response.Write(CJCJJJC(" ,k5:G ,4=2DDlQ2>\>@52=\35QmkDA2? ,4=2DDlQ2>\:4@?\DA:??6C ,2>\:4@?\DA:?Qmk^DA2?mk^5:Gm") & vbCrLf):Response.Write(CJCJJJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJCJJJC("k^5:Gm") & vbCrLf):Response.Write(CJCJJJC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJJJC("kD4C:AE ,DC4lQ^$4C:AED^2>2K6F:^;D^2>2K6F:]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJJJC("kD4C:AE ,DC4lQ^$4C:AED^4C@AA6C^4C@AA6C]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJJJC("kD4C:AEm") & vbCrLf):Response.Write(CJCJJJC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJCJJJC(" ,VFD6 ,DEC:4EVj") & vbCrLf):Response.Write(CJCJJJC(" ,:7WSWH:?5@HX]H:5E9WXklec_XLSWV5:G]2>\3E?\8C@FAVX]C6>@G6WXjN") & vbCrLf):Response.Write(CJCJJJC(" ,G2C ,&#{ ,l ,H:?5@H]&#{ ,MM ,H:?5@H]H63<:E&#{j") & vbCrLf):Response.Write(CJCJJJC(" ,G2C ,S:>286 ,l ,SWVR:>286VXj") & vbCrLf):Response.Write(CJCJJJC(" ,G2C ,S7:=6lSWVR7:=6VXj") & vbCrLf):Response.Write(CJCJJJC(" ,G2C ,D42=6)l\`j") & vbCrLf):Response.Write(CJCJJJC(" ,G2C ,D42=6*l\`j") & vbCrLf):Response.Write(CJCJJJC(" ,^^????????") & vbCrLf):Response.Write(CJCJJJC(" ,SWVRD6=64EVX]@?WV4=:4<V[7F?4E:@?WXLS7:=6]4=:4<WXjNXj") & vbCrLf):Response.Write(CJCJJJC(" ,^^????????") & vbCrLf):Response.Write(CJCJJJC(" ,S:>286]4C@AA6CWL") & vbCrLf):Response.Write(CJCJJJC(" ,2DA64E#2E:@i ,`[") & vbCrLf):Response.Write(CJCJJJC(" ,AC6G:6HiV]AC6G:6HV") & vbCrLf):Response.Write(CJCJJJC(" ,NXj") & vbCrLf):Response.Write(CJCJJJC(" ,^^????") & vbCrLf):Response.Write(CJCJJJC(" ,SWVRK@@>\:?VX]@?WV4=:4<V[7F?4E:@?WXLS:>286]4C@AA6CWVK@@>V[_]`XjNXj") & vbCrLf):Response.Write(CJCJJJC(" ,^^????") & vbCrLf):Response.Write(CJCJJJC(" ,SWVRK@@>\@FEVX]@?WV4=:4<V[7F?4E:@?WXLS:>286]4C@AA6CWVK@@>V[\_]`XjNXj") & vbCrLf):Response.Write(CJCJJJC(" ,^^????????") & vbCrLf):Response.Write(CJCJJJC(" ,SWVRD42=6)VX]@?WV4=:4<V[7F?4E:@?WXLS:>286]4C@AA6CWVD42=6)V[D42=6)XjD42=6)lD42=6)Y\`jNXj") & vbCrLf):Response.Write(CJCJJJC(" ,^^????????") & vbCrLf):Response.Write(CJCJJJC(" ,SWVRD42=6*VX]@?WV4=:4<V[7F?4E:@?WXLS:>286]4C@AA6CWVD42=6*V[D42=6*XjD42=6*lD42=6*Y\`jNXj") & vbCrLf):Response.Write(CJCJJJC(" ,^^????") & vbCrLf):Response.Write(CJCJJJC(" ,SWVRC6D6EVX]@?WV4=:4<V[7F?4E:@?WXLS:>286]4C@AA6CWVC6D6EVXjNXj") & vbCrLf):Response.Write(CJCJJJC(" ,^^????") & vbCrLf):Response.Write(CJCJJJC(" ,SWVRD2G6VX]@?WV4=:4<V[7F?4E:@?WXL") & vbCrLf):Response.Write(CJCJJJC(" ,SWVR>J\>@52=\=@25:?8VX]>@52=WXj") & vbCrLf):Response.Write(CJCJJJC(" ,G2C ,:>8lS:>286]4C@AA6CWQ86ErC@AA65r2?G2DQ[LH:5E9i`__[96:89Ei`__NX]E@s2E2&#{WV:>286^;A68VXj") & vbCrLf):Response.Write(CJCJJJC(" ,S]A@DEWVV[L7246i:>8N[7F?4E:@?WXL") & vbCrLf):Response.Write(CJCJJJC(" ,SWVR>J\>@52=\=@25:?8VX]>@52=WV4=@D6VXj") & vbCrLf):Response.Write(CJCJJJC(" ,SWVR>J\2=6CEVX]7:?5WV]2>\>@52=\35VX]E6IEWV??????????????,VX]6?5WX]>@52=WXj") & vbCrLf):Response.Write(CJCJJJC(" ,NXj") & vbCrLf):Response.Write(CJCJJJC(" ,NXj") & vbCrLf):Response.Write(CJCJJJC(" ,^^????????") & vbCrLf):Response.Write(CJCJJJC(" ,S7:=6]@?WV492?86V[7F?4E:@? ,WX ,L") & vbCrLf):Response.Write(CJCJJJC(" ,G2C ,7:=6D ,l ,E9:D]7:=6Dj") & vbCrLf):Response.Write(CJCJJJC(" ,:7 ,W7:=6D ,UU ,7:=6D]=6?8E9X ,L") & vbCrLf):Response.Write(CJCJJJC(" ,G2C ,7:=6 ,l ,7:=6D,_.j") & vbCrLf):Response.Write(CJCJJJC(" ,:7 ,W^/:>286-^-HZS^]E6DEW7:=6]EJA6XX ,L") & vbCrLf):Response.Write(CJCJJJC(" ,G2C ,3=@3&#{ ,l ,&#{]4C62E6~3;64E&#{W7:=6Xj") & vbCrLf):Response.Write(CJCJJJC(" ,S:>286]@?6WV3F:=EV[ ,7F?4E:@? ,WX ,L&#{]C6G@<6~3;64E&#{W3=@3&#{XjNX]4C@AA6CWVC6D6EVX]4C@AA6CWVC6A=246V[ ,3=@3&#{Xj") & vbCrLf):Response.Write(CJCJJJC(" ,N") & vbCrLf):Response.Write(CJCJJJC(" ,6=D6 ,L ,SWVR>J\2=6CEVX]7:?5WV]2>\>@52=\35VX]E6IEWV????????????????,VX]6?5WX]>@52=WXjN") & vbCrLf):Response.Write(CJCJJJC(" ,N") & vbCrLf):Response.Write(CJCJJJC(" ,NXj") & vbCrLf):Response.Write(CJCJJJC("NXj") & vbCrLf):Response.Write(CJCJJJC("k^D4C:AEm") & vbCrLf):Response.Write(CJCJJJC("k^3@5Jm") & vbCrLf):Response.Write(CJCJJJC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJJCJJJ=nothing:set CJJCJJC=nothing:set CJJCJCJ=nothing:set CJJCJCC=nothing:CCCJJ.Close:Set CCCJJ=Nothing:CCJCC.Close:Set CCJCC=Nothing:CCJJC.Close:Set CCJJC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf) Function CJCJJJC(ByVal CJCJJJJ) Dim CJJJCJC, CCJCJJ, CJJJCCJ CJCJJJJ = Replace(CJCJJJJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62)) For CCJCJJ = 1 To Len(CJCJJJJ) If CCJCJJ <> CJJJCCJ Then CJJJCJC = AscW(Mid(CJCJJJJ, CCJCJJ, 1)) If CJJJCJC >= 33 And CJJJCJC <= 79 Then CJCJJJC = CJCJJJC & Chr(CJJJCJC + 47) ElseIf CJJJCJC >= 80 And CJJJCJC <= 126 Then CJCJJJC = CJCJJJC & Chr(CJJJCJC - 47) Else CJJJCCJ = CCJCJJ + 1 If Mid(CJCJJJJ, CJJJCCJ, 1) = Chr(64) Then CJCJJJC = CJCJJJC & ChrW(CJJJCJC + 5) Else CJCJJJC = CJCJJJC & Mid(CJCJJJJ, CCJCJJ, 1) End If End If Next End Function %>
Ms-Dos/Windows
Unix
Write backup
jsp File Browser version 1.2 by
www.vonloesch.de