Edit D:\xinhaisoft\crisis_new\admin\school\modify.asp

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCCJCC, CCCCJJ,CCCCJC, CCCCCJ, CCCCCC:Set CCCJCC = server.CreateObject(CCCJJCJ("ps~sq]r@??64E:@?")):CCCJCC.open Application(CCCJJCJ("r@??64E:@?$EC:?8")):Set CCCCJJ=CCCJCC::Dim CJJJJJJ,CJJJJJC,CJJJJCJ,CJJJJCC,CJJJCJJ,CJJJCJC,CJJJCCJ,CJJJCCC,CJJCJJJ:Dim CJJCJJC,CJJCJCJ,CJJCJCC,CJJCCJJ,CJJCCJC,CJJCCCJ:Dim CJJCCCC,CJCJJJJ,CJCJJJC:Dim CJCJJCJ:CJCJJCJ=Trim(Request.Cookies(CCCJJCJ("!$*|t|qt#"))):if CJCJJCJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJJJJJJ>0 then
CCCCCC=CCCJJCJ("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") & CJJJJJC & CCCJJCJ("V ,2?5 ,:5l") & CJJJJJJ
set CCCCJC=CCCJCC.execute(CCCCCC):If CCCCJC.EOF Then
Call ClearMemberCookie
Else
CJJJJCJ=CCCCJC(2) & "":CJJJJCC=CCCCJC(3):CJJJCJJ=CCCCJC(5):CJJJCJC=CCCCJC(6):CJJJCCJ=CCCCJC(9):CJJJCCC=CCCCJC(15):CJJCJJC=CCCCJC(0):CJCJJJJ=CCCCJC(1):CJJCCCC=CCCCJC(11) & "":CJJCJCJ=CCCCJC(10) & "":CJJCJJJ=CCCCJC(12):CJJCJCC=CCCCJC(14):CJJCCJJ=CCCCJC(13):CJJCCJC=CCCCJC(7) & "":CJJCCCJ=CCCCJC(4):CJCJJJC=CCCCJC(8):if isnull(CJJJCCC) then CJJJCCC=0
if isnull(CJJJCCJ) or CJJJCCJ=0 then CJJJCCJ=CJJJJCC
if isnull(CJJCCCJ) then CJJCCCJ=0
if isnull(CJJJCJJ) then CJJJCJJ=0
if instr(CCCJJCJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJJJJC)>0 then Call RedirectMessage(CCCJJCJ("????????,????????????????????????????????,"))
Call SetMemberCookie(CJJJJJJ,CJJJJJC)
End IF
end if:Sub CheckRight(CCCJJCC):dim CJCJJCC,CJCJCJJ:if CJJJJJJ=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CCCJJCJ("??????????????,????????????,"))
elseIf not CCJJCCC(CCCJJCC) then
Call RedirectMessage(CCCJJCJ("????W") & CCCJJCC & CCCJJCJ("X????????,????????????????????,"))
end if:End Sub:Function CCJJCCC(CCCJJCC):dim CJCJJCC,CJCJCJJ:CJCJCJJ=split(CCCJJCC,CCCJJCJ("[")):CCJJCCC=False:for CJCJJCC=0 to ubound(CJCJCJJ):If Mid(CJJJJCJ,CJCJCJJ(CJCJJCC),1)="1" then
CCJJCCC=True:exit function
end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CCCJJCJ("!$*|t|qt#"))="":CJJJJJJ=0:CJJJCJC=0:CJJJJJC=Empty:CJJJCJJ=0:CJJJCCC=0:CJJJCCJ=0:CJJJJCC=0:CJJCJJC=False:CJCJJJJ=False:CJCJJJC=Empty:End Sub:Sub CheckMemberCookie():dim CJCJCJC,CJCJCCJ,CJCJJCC,CJCJCCC,CJCCJJJ:CJCJCJC=split(CJCJJCJ,CCCJJCJ("]")):if ubound(CJCJCJC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJCJCJC(0)) or len(CJCJCJC(1))<>32 or len(CJCJCJC(2))<>32 then
Call ClearMemberCookie
else
CJCJCCJ=CJCJCJC(1):for CJCJJCC=1 to len(CJCJCCJ):CJCJCCC=mid(CJCJCCJ,CJCJJCC,1):if isnumeric(CJCJCCC) then CJCCJJJ=CJCCJJJ & CJCJCCC
if len(CJCCJJJ)=7 then exit for
next:CJCJCCJ=CJCJCJC(2):if CJCCJJJ<>mid(CJCJCCJ,6,7) then
Call ClearMemberCookie
else
CJCJCCC=mid(CJCJCCJ,18,10)/2:if CJCJCCC<DateDiff(CCCJJCJ("D"), CCCJJCJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJJJJJJ=Clng(CJCJCJC(0)):CJJJJJC=CJCJCJC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJCCCCC,CCCJCJJ):dim CJCJJCC,CJCJCCC,CJCCJJJ:for CJCJJCC=1 to len(CCCJCJJ):CJCJCCC=mid(CCCJCJJ,CJCJJCC,1):if isnumeric(CJCJCCC) then CJCCJJJ=CJCCJJJ & CJCJCCC
if len(CJCCJJJ)=7 then exit for
next:CJCCJJJ=CJCCCCC & CCCJJCJ("]") & CCCJCJJ & CCCJJCJ("]") & Fix(10000*(Rnd+1)) & CJCCJJJ & Fix(10000*(Rnd+1)) & DateDiff(CCCJJCJ("D"), CCCJJCJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CCCJJCJ("!$*|t|qt#"))=CJCCJJJ:End Sub::Function CCJCJJJ(CCCJCJC):Dim str,CJCCJCJ:str = Trim(CCCJCJC):If IsNull(str) Or str = "" Then
CCJCJJJ = ""
else
str=Replace(str, CCCJJCJ("V"), "")
str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CCCJJCJ("k:7C2>6"), CCCJJCJ("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CCCJJCJ("kD4C:AE"), CCCJJCJ("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CJCCJCJ=new RegExp:CJCCJCJ.Pattern=CCCJJCJ("@?W,2\K.ZXl"):CJCCJCJ.IgnoreCase = True:CJCCJCJ.Global=True:str=CJCCJCJ.Replace(str,CCCJJCJ("@?S`U6BF2=Dj")):set CJCCJCJ=nothing:CCJCJJJ=str
End If:End Function:Function IIf(CCCJCCJ, CCCJCCC, CCCCJJJ):if isnull(CCCJCCJ) or isempty(CCCJCCJ) then
IIf = CCCCJJJ
elseif CCCJCCJ Then
IIf = CCCJCCC
Else
IIf = CCCCJJJ
end if:End Function:Const CCJJCCJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CCCCJJC,CCCCJCJ):dim CJCJCJC:CJCJCJC=CCCCJJC & "=" & CCCCJCJ & CCCJJCJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCCJJCJ("$6E\r@@<:6"),CJCJCJC):End Sub:::::Sub CheckValidPost():dim CJCCJCC:CJCCJCC=false:Dim CJCCCJJ : CJCCCJJ=lcase(Request.ServerVariables(CCCJJCJ("w%%!0#tut#t#"))):if(instr(CJCCCJJ,Application(CCCJJCJ("s@>2:?(9:E6{:DE")))>0) then
CJCCJCC=true
else
Dim CJCCCJC : CJCCCJC=lcase(Request.ServerVariables(CCCJJCJ("$t#'t#0}p|t"))):Dim CJCCCCJ : CJCCCCJ=Request.ServerVariables(CCCJJCJ("{~rp{0pss#")):if Mid(CJCCCJJ,8,Len(CJCCCJC))=CJCCCJC or Mid(CJCCCJJ,9,Len(CJCCCJC))=CJCCCJC or CJCCCJC=CJCCCCJ then CJCCJCC=true
end if:if not CJCCJCC then Call RedirectMessage(CCCJJCJ("????????,??????????????????????????,"))
end sub:sub ShowMessage(CCCCJCC):response.Charset=CCCJJCJ("FE7\g"):Response.Write CCCJJCJ("k3Cmk5:G ,2=:8?lV46?E6CVmk5:G ,DEJ=6lV4@=@CiC65j ,7@?E\H6:89Ei3@=5j ,E6IE\2=:8?i46?E6Cj ,3@C56Ci`AI ,D@=:5 ,Rrrrrrrj ,324<8C@F?5\4@=@CiRtgtgtgj ,A255:?8icAI ,aAI ,aAIj ,H:5E9ibd_AIj ,7@?E\D:K6i`aAIVm") & CCCCJCC & CCCJJCJ("k^5:Gmk^5:Gmk3Cm")
end sub:Function CCJCJCJ(CCJJCJC):if isnull(CCJJCJC) or trim(CCJJCJC)="" or not isnumeric(CCJJCJC) then
CCJCJCJ=false
else
Dim CJCCJCJ:Set CJCCJCJ = New RegExp:CJCCJCJ.Pattern = CCCJJCJ("/-5ZS"):CJCCJCJ.IgnoreCase = True:CCJCJCJ = CJCCJCJ.test(CCJJCJC):set CJCCJCJ=nothing
end if:End Function:::::Sub ConnClose():On Error Resume Next:set CCJCJCC=nothing:set CCJCCJJ=nothing:set CCJCCJC=nothing:set CCJCCCJ=nothing:CCJCCCC.close : set CCJCCCC=nothing:CCCCCJ.Close : Set CCCCCJ=Nothing:CCCCJC.Close : Set CCCCJC=Nothing:CCCJJJJ.Close : Set CCCJJJJ = Nothing:CCCJCC.Close : Set CCCJCC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCCCJCC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCCJJCJ("!$*0|6DD286"),server.URLEncode(CCCCJCC)):Response.Redirect CCCJJCJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::::::::::::::Call CheckRight(25):dim CJCCCCC,CCJJJJJ,CCJJJJC:CJCCCCC=Request.QueryString(CCCJJCJ(":5")):CCJJJJJ=CCJCJJJ(Request.QueryString(CCCJJCJ("6?"))):CCJJJJC=Request.QueryString(CCCJJCJ("24E")):if CCJJJJC=CCCJJCJ("4964<6?") then
if CCJJJJJ="" then
response.Write CCCJJCJ("ECF6")
elseif not CCJCJCJ(CJCCCCC) then
response.Write CCCJJCJ("72=D6")
else
set CCCCJC=CCCJCC.execute(CCCJJCJ("D6=64E ,E@A ,` ,:5 ,7C@> ,D49@@= ,H96C6 ,6?lV") & CCJJJJJ & CCCJJCJ("V"))
if CCCCJC.eof then
response.Write CCCJJCJ("ECF6")
elseif cstr(CCCCJC(0))=CJCCCCC then
response.Write CCCJJCJ("ECF6")
else
response.Write CCCJJCJ("72=D6")
end if
end if:response.End()
end if:if not CCJCJCJ(CJCCCCC) then Call RedirectMessage(CCCJJCJ("????????M??????????????,"))
If Request.ServerVariables(CCCJJCJ("#t""&t$%0|t%w~s"))=CCCJJCJ("!~$%") then
Call CheckValidPost:CCCCCC=CCCJJCJ("FA52E6 ,D49@@= ,D6E") & CCCJJCJ(" ,766l") & Request.Form(CCCJJCJ("EJA6a")) & CCCJJCJ("[>2I>6>36Cl") & CCJCJJJ(Request.Form(CCCJJCJ(">2I>6>36C"))) & CCCJJCJ("[6IA:C652E6lV") & Trim(Request.Form(CCCJJCJ("6IA:C652E6"))) & CCCJJCJ("V") & CCCJJCJ("[EJA6l") & Request.Form(CCCJJCJ("EJA6`")) & CCCJJCJ("[<6JDEClV") & CCJCJJJ(Request.Form(CCCJJCJ("<6JDEC"))) & CCCJJCJ("V") & CCCJJCJ("[D2?5E23=6l") & Request.Form(CCCJJCJ("D2?5E23=6")) & CCCJJCJ("[4C:D:Dl") & Request.Form(CCCJJCJ("4C:D:D")) & CCCJJCJ("[6IA6CEl") & Request.Form(CCCJJCJ("6IA6CE")) & CCCJJCJ("[6?lV") & CCJCJJJ(Request.Form(CCCJJCJ("6?"))) & CCCJJCJ("V") & CCCJJCJ("[4C:D:D=3l") & Request.Form(CCCJJCJ("4C:D:D=3")) & CCCJJCJ("[4C:D:D@=5l") & Request.Form(CCCJJCJ("4C:D:D@=5")) & CCCJJCJ("[vC@FAvF:52?46l") & Request.Form(CCCJJCJ("vC@FAvF:52?46")) & CCCJJCJ("[q:@u665324<l") & Request.Form(CCCJJCJ("q:@u665324<")) & CCCJJCJ("[:D?6Hl") & Request.Form(CCCJJCJ(":D?6H")) & CCCJJCJ("[286?ElV") & CCJCJJJ(Request.Form(CCCJJCJ("286?E"))) & CCCJJCJ("V") & CCCJJCJ(" ,H96C6 ,:5l") & CJCCCCC
CCCJCC.Execute CCCCCC:dim CCJJJCJ:CCJJJCJ=Request.Form(CCCJJCJ(">2?286C")):if CCJCJCJ(CCJJJCJ) then
CCCCCC=CCCJJCJ("FA52E6 ,>6>36C ,D6E ,EJA6l") & CJCCCCC & CCCJJCJ("[:D$49@@=p5>:?l`"):if clng(CCJJJCJ)>1 then CCCCCC=CCCCCC & CCCJJCJ("[,C:89E.lV___________`_```_``___________`_`_`_____``_________________```````````_``````````````````````````````````````````_``V")
CCCCCC=CCCCCC & CCCJJCJ(" ,H96C6 ,:5l") & CCJJJCJ:CCCJCC.execute CCCCCC
end if:call showmessage(CCCJJCJ("??????????,"))
End If:set CCCCJC=CCCJCC.execute(CCCJJCJ("D6=64E ,E@A ,` ,Y ,7C@> ,G0D49@@= ,H96C6 ,:5l") & CJCCCCC):dim CCJJJCC,CJCJJCC:CCJJJCC=split(CCCJJCJ("M????M????M????M????M????M????????M????M????M????M????M????????M????M????????M????M????M????"),CCCJJCJ("M")):Response.Write(vbCrLf):Response.Write(CCCJJCJ("kP5@4EJA6 ,9E>=m") & vbCrLf):Response.Write(CCCJJCJ("k9E>=m") & vbCrLf):Response.Write(CCCJJCJ("k9625m") & vbCrLf):Response.Write(CCCJJCJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CCCJJCJ("kE:E=6m????????????k^E:E=6m") & vbCrLf):Response.Write(CCCJJCJ("k=:?< ,9C67lQ]]^DEJ=6]4DDQ ,C6=lQDEJ=6D966EQm") & vbCrLf):Response.Write(CCCJJCJ("k^9625m") & vbCrLf):Response.Write(CCCJJCJ("k3@5Jm") & vbCrLf):Response.Write(CCCJJCJ("k7@C> ,?2>6lQ7@C>`Q ,>6E9@5lQA@DEQ ,24E:@?lQQ ,:5lQ7@C>`Qm") & vbCrLf):Response.Write(CCCJJCJ(" ,kE23=6 ,H:5E9lQ`__TQm") & vbCrLf):Response.Write(CCCJJCJ(" ,kECm") & vbCrLf):Response.Write(CCCJJCJ(" ,kE5 ,2=:8?lQC:89EQm??????,k^E5m") & vbCrLf):Response.Write(CCCJJCJ(" ,kE9 ,2=:8?lQ=67EQm")):Response.Write  CCCCJC(CCCJJCJ(">6>36C0EJA60?2>6")):Response.Write(CCCJJCJ("k^E9m") & vbCrLf):Response.Write(CCCJJCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCJJCJ(" ,kECm") & vbCrLf):Response.Write(CCCJJCJ(" ,kE5 ,2=:8?lQC:89EQm??????????????,k^E5m") & vbCrLf):Response.Write(CCCJJCJ(" ,kE5m")):Response.Write  CCCCJC(CCCJJCJ("E:E=6")):Response.Write(CCCJJCJ("k^E5m") & vbCrLf):Response.Write(CCCJJCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCJJCJ(" ,kECm") & vbCrLf):Response.Write(CCCJJCJ(" ,kE5 ,2=:8?lQC:89EQm??????????,k^E5m") & vbCrLf):Response.Write(CCCJJCJ(" ,kE5mk:?AFE ,?2>6lQ6?Q ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,:5lQ6?Q ,G2=F6lQ")):Response.Write  CCCCJC(CCCJJCJ("6?")):Response.Write(CCCJJCJ("Qm") & vbCrLf):Response.Write(CCCJJCJ(" ,??,????????????,??????????????????,??????????????,??????????,k^E5m") & vbCrLf):Response.Write(CCCJJCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCJJCJ(" ,kECm") & vbCrLf):Response.Write(CCCJJCJ(" ,kE5 ,2=:8?lQC:89EQm????`??,k^E5m") & vbCrLf):Response.Write(CCCJJCJ(" ,kE5mkD6=64E ,?2>6lQEJA6`Qm") & vbCrLf):Response.Write(CCCJJCJ(" ,")):for CJCJJCC=1 to ubound(CCJJJCC):response.Write CCCJJCJ("k@AE:@? ,G2=F6lV") & CJCJJCC & CCCJJCJ("V") & IIf(CJCJJCC=CCCCJC(CCCJJCJ("EJA6")),CCCJJCJ(" ,D6=64E65"),"") & CCCJJCJ("m") & CCJJJCC(CJCJJCC) & CCCJJCJ("k^@AE:@?m")
next:Response.Write(vbCrLf):Response.Write(CCCJJCJ(" ,k^D6=64Em") & vbCrLf):Response.Write(CCCJJCJ(" ,??,??????????????????,k^E5m") & vbCrLf):Response.Write(CCCJJCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCJJCJ(" ,kECm") & vbCrLf):Response.Write(CCCJJCJ(" ,kE5 ,2=:8?lQC:89EQm????a??,k^E5m") & vbCrLf):Response.Write(CCCJJCJ(" ,kE5mkD6=64E ,?2>6lQEJA6aQm") & vbCrLf):Response.Write(CCCJJCJ(" ,")):dim CJCJCJJ:CJCJCJJ=split(CCCJJCJ("M????M????M????"),CCCJJCJ("M")):for CJCJJCC=1 to ubound(CJCJCJJ):response.Write CCCJJCJ("k@AE:@? ,G2=F6lV") & CJCJJCC & CCCJJCJ("V") & IIf(CJCJJCC=CCCCJC(CCCJJCJ("766")),CCCJJCJ(" ,D6=64E65"),"") & CCCJJCJ("m") & CJCJCJJ(CJCJJCC) & CCCJJCJ("k^@AE:@?m")
next:Response.Write(vbCrLf):Response.Write(CCCJJCJ(" ,k^D6=64Em") & vbCrLf):Response.Write(CCCJJCJ(" ,??,??????????????????,k^E5m") & vbCrLf):Response.Write(CCCJJCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCJJCJ(" ,kECm") & vbCrLf):Response.Write(CCCJJCJ(" ,kE5 ,2=:8?lQC:89EQm??????????????,k^E5m") & vbCrLf):Response.Write(CCCJJCJ(" ,kE5mk:?AFE ,?2>6lQ>2I>6>36CQ ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,G2=F6lQ")):Response.Write  CCCCJC(CCCJJCJ(">2I>6>36C")):Response.Write(CCCJJCJ("Qm") & vbCrLf):Response.Write(CCCJJCJ(" ,??,??????????,????????????_??,k^E5m") & vbCrLf):Response.Write(CCCJJCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCJJCJ(" ,kECm") & vbCrLf):Response.Write(CCCJJCJ(" ,kE5 ,2=:8?lQC:89EQm??????????,k^E5m") & vbCrLf):Response.Write(CCCJJCJ(" ,kE5mk:?AFE ,?2>6lQ6IA:C652E6Q ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,G2=F6lQ")):Response.Write  CCCCJC(CCCJJCJ("6IA:C652E6")):Response.Write(CCCJJCJ("Qm") & vbCrLf):Response.Write(CCCJJCJ(" ,??,??????,JJJJ\>>\55??,??????????????,k^E5m") & vbCrLf):Response.Write(CCCJJCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCJJCJ(" ,kECm") & vbCrLf):Response.Write(CCCJJCJ(" ,kE5 ,2=:8?lQC:89EQm????????????????z6J??,k^E5m") & vbCrLf):Response.Write(CCCJJCJ(" ,kE5mk:?AFE ,?2>6lQ<6JDECQ ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,G2=F6lQ")):Response.Write  CCCCJC(CCCJJCJ("<6JDEC")):Response.Write(CCCJJCJ("Qm") & vbCrLf):Response.Write(CCCJJCJ(" ,??,????????????,????????????,????????????????????????????,k^E5m") & vbCrLf):Response.Write(CCCJJCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCJJCJ(" ,kECm") & vbCrLf):Response.Write(CCCJJCJ(" ,kE5 ,2=:8?lQC:89EQm??????????????????,k^E5m") & vbCrLf):Response.Write(CCCJJCJ(" ,kE5mk=236=m") & vbCrLf):Response.Write(CCCJJCJ(" ,k:?AFE ,EJA6lQC25:@Q ,?2>6lQ:D?6HQ ,G2=F6lQ`Q ,")):Response.Write  IIf(CCCCJC(CCCJJCJ(":D?6H")),CCCJJCJ("4964<65"),""):Response.Write(CCCJJCJ("m") & vbCrLf):Response.Write(CCCJJCJ(" ,??k^=236=m") & vbCrLf):Response.Write(CCCJJCJ(" ,k=236=m") & vbCrLf):Response.Write(CCCJJCJ(" ,k:?AFE ,EJA6lQC25:@Q ,?2>6lQ:D?6HQ ,G2=F6lQ_Q ,")):Response.Write  IIf(CCCCJC(CCCJJCJ(":D?6H")),"",CCCJJCJ("4964<65")):Response.Write(CCCJJCJ("m") & vbCrLf):Response.Write(CCCJJCJ(" ,????k^=236=mk^E5m") & vbCrLf):Response.Write(CCCJJCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCJJCJ(" ,kECm") & vbCrLf):Response.Write(CCCJJCJ(" ,kE5 ,2=:8?lQC:89EQm??????????????????????????,k^E5m") & vbCrLf):Response.Write(CCCJJCJ(" ,kE5mk=236=m") & vbCrLf):Response.Write(CCCJJCJ(" ,k:?AFE ,EJA6lQC25:@Q ,?2>6lQD2?5E23=6Q ,G2=F6lQ`Q ,")):Response.Write  IIf(CCCCJC(CCCJJCJ("D2?5E23=6")),CCCJJCJ("4964<65"),""):Response.Write(CCCJJCJ("m") & vbCrLf):Response.Write(CCCJJCJ(" ,??k^=236=m") & vbCrLf):Response.Write(CCCJJCJ(" ,k=236=m") & vbCrLf):Response.Write(CCCJJCJ(" ,k:?AFE ,EJA6lQC25:@Q ,?2>6lQD2?5E23=6Q ,G2=F6lQ_Q ,")):Response.Write  IIf(CCCCJC(CCCJJCJ("D2?5E23=6")),"",CCCJJCJ("4964<65")):Response.Write(CCCJJCJ("m") & vbCrLf):Response.Write(CCCJJCJ(" ,????k^=236=mk^E5m") & vbCrLf):Response.Write(CCCJJCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCJJCJ(" ,kECm") & vbCrLf):Response.Write(CCCJJCJ(" ,kE5 ,2=:8?lQC:89EQm??????????????????????????,k^E5m") & vbCrLf):Response.Write(CCCJJCJ(" ,kE5mk=236=m") & vbCrLf):Response.Write(CCCJJCJ(" ,k:?AFE ,EJA6lQC25:@Q ,?2>6lQ4C:D:DQ ,G2=F6lQ`Q ,")):Response.Write  IIf(CCCCJC(CCCJJCJ("4C:D:D")),CCCJJCJ("4964<65"),""):Response.Write(CCCJJCJ("m") & vbCrLf):Response.Write(CCCJJCJ(" ,??k^=236=m") & vbCrLf):Response.Write(CCCJJCJ(" ,k=236=m") & vbCrLf):Response.Write(CCCJJCJ(" ,k:?AFE ,EJA6lQC25:@Q ,?2>6lQ4C:D:DQ ,G2=F6lQ_Q ,")):Response.Write  IIf(CCCCJC(CCCJJCJ("4C:D:D")),"",CCCJJCJ("4964<65")):Response.Write(CCCJJCJ("m") & vbCrLf):Response.Write(CCCJJCJ(" ,????k^=236=mk^E5m") & vbCrLf):Response.Write(CCCJJCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCJJCJ(" ,kECm") & vbCrLf):Response.Write(CCCJJCJ(" ,kE5 ,2=:8?lQC:89EQm??????????????????,k^E5m") & vbCrLf):Response.Write(CCCJJCJ(" ,kE5mk=236=m") & vbCrLf):Response.Write(CCCJJCJ(" ,k:?AFE ,EJA6lQC25:@Q ,?2>6lQ4C:D:D@=5Q ,G2=F6lQ_Q ,")):Response.Write  IIf(CCCCJC(CCCJJCJ("4C:D:D@=5")),"",CCCJJCJ("4964<65")):Response.Write(CCCJJCJ("m") & vbCrLf):Response.Write(CCCJJCJ(" ,??k^=236=m") & vbCrLf):Response.Write(CCCJJCJ(" ,k=236=m") & vbCrLf):Response.Write(CCCJJCJ(" ,k:?AFE ,EJA6lQC25:@Q ,?2>6lQ4C:D:D@=5Q ,G2=F6lQ`Q ,")):Response.Write  IIf(CCCCJC(CCCJJCJ("4C:D:D@=5")),CCCJJCJ("4964<65"),""):Response.Write(CCCJJCJ("m") & vbCrLf):Response.Write(CCCJJCJ(" ,????k^=236=mk^E5m") & vbCrLf):Response.Write(CCCJJCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCJJCJ(" ,kECm") & vbCrLf):Response.Write(CCCJJCJ(" ,kE5 ,2=:8?lQC:89EQm??????????????????,k^E5m") & vbCrLf):Response.Write(CCCJJCJ(" ,kE5mk=236=m") & vbCrLf):Response.Write(CCCJJCJ(" ,k:?AFE ,EJA6lQC25:@Q ,?2>6lQ4C:D:D=3Q ,G2=F6lQ`Q ,")):Response.Write  IIf(CCCCJC(CCCJJCJ("4C:D:D=3")),CCCJJCJ("4964<65"),""):Response.Write(CCCJJCJ("m") & vbCrLf):Response.Write(CCCJJCJ(" ,??k^=236=m") & vbCrLf):Response.Write(CCCJJCJ(" ,k=236=m") & vbCrLf):Response.Write(CCCJJCJ(" ,k:?AFE ,EJA6lQC25:@Q ,?2>6lQ4C:D:D=3Q ,G2=F6lQ_Q ,")):Response.Write  IIf(CCCCJC(CCCJJCJ("4C:D:D=3")),"",CCCJJCJ("4964<65")):Response.Write(CCCJJCJ("m") & vbCrLf):Response.Write(CCCJJCJ(" ,????k^=236=mk^E5m") & vbCrLf):Response.Write(CCCJJCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCJJCJ(" ,kECm") & vbCrLf):Response.Write(CCCJJCJ(" ,kE5 ,2=:8?lQC:89EQm??????????????????????,k^E5m") & vbCrLf):Response.Write(CCCJJCJ(" ,kE5mk=236=m") & vbCrLf):Response.Write(CCCJJCJ(" ,k:?AFE ,EJA6lQC25:@Q ,?2>6lQ6IA6CEQ ,G2=F6lQ`Q ,")):Response.Write  IIf(CCCCJC(CCCJJCJ("6IA6CE")),CCCJJCJ("4964<65"),""):Response.Write(CCCJJCJ("m") & vbCrLf):Response.Write(CCCJJCJ(" ,??k^=236=m") & vbCrLf):Response.Write(CCCJJCJ(" ,k=236=m") & vbCrLf):Response.Write(CCCJJCJ(" ,k:?AFE ,EJA6lQC25:@Q ,?2>6lQ6IA6CEQ ,G2=F6lQ_Q ,")):Response.Write  IIf(CCCCJC(CCCJJCJ("6IA6CE")),"",CCCJJCJ("4964<65")):Response.Write(CCCJJCJ("m") & vbCrLf):Response.Write(CCCJJCJ(" ,????k^=236=mk^E5m") & vbCrLf):Response.Write(CCCJJCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCJJCJ(" ,kECm") & vbCrLf):Response.Write(CCCJJCJ(" ,kE5 ,2=:8?lQC:89EQm??????????????@????????,k^E5m") & vbCrLf):Response.Write(CCCJJCJ(" ,kE5mk=236=m") & vbCrLf):Response.Write(CCCJJCJ(" ,k:?AFE ,EJA6lQC25:@Q ,?2>6lQvC@FAvF:52?46Q ,G2=F6lQ`Q ,")):Response.Write  IIf(CCCCJC(CCCJJCJ("vC@FAvF:52?46")),CCCJJCJ("4964<65"),""):Response.Write(CCCJJCJ("m") & vbCrLf):Response.Write(CCCJJCJ(" ,??k^=236=m") & vbCrLf):Response.Write(CCCJJCJ(" ,k=236=m") & vbCrLf):Response.Write(CCCJJCJ(" ,k:?AFE ,EJA6lQC25:@Q ,?2>6lQvC@FAvF:52?46Q ,G2=F6lQ_Q ,")):Response.Write  IIf(CCCCJC(CCCJJCJ("vC@FAvF:52?46")),"",CCCJJCJ("4964<65")):Response.Write(CCCJJCJ("m") & vbCrLf):Response.Write(CCCJJCJ(" ,????k^=236=mk^E5m") & vbCrLf):Response.Write(CCCJJCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCJJCJ(" ,kECm") & vbCrLf):Response.Write(CCCJJCJ(" ,kE5 ,2=:8?lQC:89EQm????????????????????,k^E5m") & vbCrLf):Response.Write(CCCJJCJ(" ,kE5mk=236=m") & vbCrLf):Response.Write(CCCJJCJ(" ,k:?AFE ,EJA6lQC25:@Q ,?2>6lQq:@u665324<Q ,G2=F6lQ`Q ,")):Response.Write  IIf(CCCCJC(CCCJJCJ("q:@u665324<")),CCCJJCJ("4964<65"),""):Response.Write(CCCJJCJ("m") & vbCrLf):Response.Write(CCCJJCJ(" ,??k^=236=m") & vbCrLf):Response.Write(CCCJJCJ(" ,k=236=m") & vbCrLf):Response.Write(CCCJJCJ(" ,k:?AFE ,EJA6lQC25:@Q ,?2>6lQq:@u665324<Q ,G2=F6lQ_Q ,")):Response.Write  IIf(CCCCJC(CCCJJCJ("q:@u665324<")),"",CCCJJCJ("4964<65")):Response.Write(CCCJJCJ("m") & vbCrLf):Response.Write(CCCJJCJ(" ,????k^=236=mk^E5m") & vbCrLf):Response.Write(CCCJJCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCJJCJ(" ,kECm") & vbCrLf):Response.Write(CCCJJCJ(" ,kE5 ,2=:8?lQC:89EQm????????,k^E5m") & vbCrLf):Response.Write(CCCJJCJ(" ,kE5mk:?AFE ,?2>6lQ286?EQ ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,G2=F6lQ")):Response.Write  CCCCJC(CCCJJCJ("286?E")):Response.Write(CCCJJCJ("Qm") & vbCrLf):Response.Write(CCCJJCJ(" ,??,????????????????,k^E5m") & vbCrLf):Response.Write(CCCJJCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCJJCJ(" ,kECm") & vbCrLf):Response.Write(CCCJJCJ(" ,kE5 ,2=:8?lQC:89EQm????????????,k^E5m") & vbCrLf):Response.Write(CCCJJCJ(" ,kE5mk:?AFE ,?2>6lQ>2?286CQ ,EJA6lQE6IEQ ,4=2DDlQE6IEQm") & vbCrLf):Response.Write(CCCJJCJ(" ,??,??????????????,??????????????,k^E5m") & vbCrLf):Response.Write(CCCJJCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCJJCJ(" ,kECm") & vbCrLf):Response.Write(CCCJJCJ(" ,kE5 ,2=:8?lQC:89EQm????????????,k^E5m") & vbCrLf):Response.Write(CCCJJCJ(" ,kE5m")):set CCCCCJ=CCCJCC.execute(CCCJJCJ("D6=64E ,:5[?:4<?2>6 ,7C@> ,>6>36C ,H96C6 ,EJA6l") & CJCCCCC & CCCJJCJ(" ,2?5 ,:D$49@@=p5>:?l`")):while not CCCCCJ.eof:response.Write CCCJJCJ("k2 ,9C67lV]]^>6>36C^>@5:7J]2DAn:5l") & CCCCCJ(0) & CCCJJCJ("Vm") & CCCCCJ(1) & CCCJJCJ("W") & CCCCCJ(0) & CCCJJCJ("Xk^2mk3Cm")
CCCCCJ.movenext:wend:Response.Write(CCCJJCJ("k^E5m") & vbCrLf):Response.Write(CCCJJCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCJJCJ(" ,kECm") & vbCrLf):Response.Write(CCCJJCJ(" ,kE5 ,2=:8?lQC:89EQmU?3DAjk^E5m") & vbCrLf):Response.Write(CCCJJCJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CCCJJCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCJJCJ(" ,kECm") & vbCrLf):Response.Write(CCCJJCJ(" ,kE5 ,4@=DA2?lQaQmU?3DAjk^E5m") & vbCrLf):Response.Write(CCCJJCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCJJCJ(" ,kECm") & vbCrLf):Response.Write(CCCJJCJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CCCJJCJ(" ,kE5mk:?AFE ,EJA6lQDF3>:EQ ,4=2DDlQ3FEE@?Q ,G2=F6lQ?? ,??Qm") & vbCrLf):Response.Write(CCCJJCJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,4=2DDlQ3FEE@?Q ,:5lQ3E?04=@D6Q ,G2=F6lQ?? ,??Qmk^E5m") & vbCrLf):Response.Write(CCCJJCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCJJCJ(" ,k^E23=6m") & vbCrLf):Response.Write(CCCJJCJ("k^7@C>m") & vbCrLf):Response.Write(CCCJJCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCJJCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]G2=:52E6]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCJJCJ("kD4C:AEm") & vbCrLf):Response.Write(CCCJJCJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CCCJJCJ(" ,SWVR7@C>`VX]G2=:52E6WL") & vbCrLf):Response.Write(CCCJJCJ(" ,CF=6DiL6?iLC6>@E6iVn24El4964<6?U:5l")):Response.Write  CJCCCCC:Response.Write(CCCJJCJ("VNN[") & vbCrLf):Response.Write(CCCJJCJ(" ,>6DD286DiL6?iLC6>@E6iV????????????????,VNN") & vbCrLf):Response.Write(CCCJJCJ(" ,NX") & vbCrLf):Response.Write(CCCJJCJ(" ,SWVR3E?04=@D6VX]@?WV4=:4<V[7F?4E:@?WXLA2C6?E]S]KII3@I]9:56WXNX") & vbCrLf):Response.Write(CCCJJCJ("NX") & vbCrLf):Response.Write(CCCJJCJ("k^D4C:AEm") & vbCrLf):Response.Write(CCCJJCJ("k^3@5Jm") & vbCrLf):Response.Write(CCCJJCJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCJCJCC=nothing:set CCJCCJJ=nothing:set CCJCCJC=nothing:set CCJCCCJ=nothing:CCCCCJ.Close:Set CCCCCJ=Nothing:CCCCJC.Close:Set CCCCJC=Nothing:CCCJCC.Close:Set CCCJCC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CCCJJCJ(ByVal CCCJJJC)
Dim CCJJCJJ, CJCJJCC, CCJJCJC
CCCJJJC = Replace(CCCJJJC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJCJJCC = 1 To Len(CCCJJJC)
If CJCJJCC <> CCJJCJC Then
CCJJCJJ = AscW(Mid(CCCJJJC, CJCJJCC, 1))
If CCJJCJJ >= 33 And CCJJCJJ <= 79 Then
CCCJJCJ = CCCJJCJ & Chr(CCJJCJJ + 47)
ElseIf CCJJCJJ >= 80 And CCJJCJJ <= 126 Then
CCCJJCJ = CCCJJCJ & Chr(CCJJCJJ - 47)
Else
CCJJCJC = CJCJJCC + 1
If Mid(CCCJJJC, CCJJCJC, 1) = Chr(64) Then CCCJJCJ = CCCJJCJ & ChrW(CCJJCJJ + 5) Else CCCJJCJ = CCCJJCJ & Mid(CCCJJJC, CJCJJCC, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de