Edit D:\xinhaisoft\crisis_new\school\new\view.asp

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCJJJ, CCJJC,CCJCJ, CCJCC, CCCJJ:Set CCJJJ = server.CreateObject(CJCCCJJ("ps~sq]r@??64E:@?")):CCJJJ.open Application(CJCCCJJ("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(CJCCCJJ("!$*|t|qt#"))):if CJCCCC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CCCJC>0 then
CCCJJ=CJCCCJJ("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 & CJCCCJJ("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(CJCCCJJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CCCCJ)>0 then Call RedirectMessage(CJCCCJJ("????????,????????????????????????????????,"))
Call SetMemberCookie(CCCJC,CCCCJ)
End IF
end if:::Sub CheckLogined():if CCCJC=0 then
Call ClearMemberCookie:Call ConnClose:dim CCJJJJ:CCJJJJ=trim(request.QueryString(CJCCCJJ("D49@@="))):if isnumeric(CCJJJJ) then
response.Redirect CJCCCJJ("^>^G2?E^R^D49@@=^") & CCJJJJ & CJCCCJJ("^DEF56?E^=@8:?nC65:C64El") & url
else
Call RedirectMessage(CJCCCJJ("??????????????,????????????,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CJCCCJJ("!$*|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,CJCCCJJ("]")):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(CJCCCJJ("D"), CJCCCJJ("`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(CJJCJCJ,CJCCCJC):dim CCJJCC,CCJCJJ,CCJCJC:for CCJJCC=1 to len(CJCCCJC):CCJCJJ=mid(CJCCCJC,CCJJCC,1):if isnumeric(CCJCJJ) then CCJCJC=CCJCJC & CCJCJJ
if len(CCJCJC)=7 then exit for
next:CCJCJC=CJJCJCJ & CJCCCJJ("]") & CJCCCJC & CJCCCJJ("]") & Fix(10000*(Rnd+1)) & CCJCJC & Fix(10000*(Rnd+1)) & DateDiff(CJCCCJJ("D"), CJCCCJJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJCCCJJ("!$*|t|qt#"))=CCJCJC:End Sub:::Function IIf(CJCCCCJ, CJCCCCC, CCJJJJJ):if isnull(CJCCCCJ) or isempty(CJCCCCJ) then
IIf = CCJJJJJ
elseif CJCCCCJ Then
IIf = CJCCCCC
Else
IIf = CCJJJJJ
end if:End Function:Const CJJCCJC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::Sub Debug(str):response.Charset="utf-8":dim CCJJCC,CCJCJJ,CCJCCJ:if isarray(str) then
on error resume next:CCJJCC=ubound(str,2):CCJCCJ=err.number:err.clear:on error goto 0:if CCJCCJ<>0 then
for CCJJCC=0 to ubound(str):if CCJJCC>0 then response.Write CJCCCJJ("k3C ,^m")
response.Write CCJJCC & CJCCCJJ("i ,") & str(CCJJCC):next
else
response.Write CJCCCJJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CCJJCC=0 to ubound(str,2):response.Write CJCCCJJ("kE9 ,2=:8?lV=67EVm") & CCJJCC & CJCCCJJ("k^E9m")
next:response.Write CJCCCJJ("k^ECm"):for CCJJCC=0 to ubound(str):response.Write CJCCCJJ("kECmkE9m") & CCJJCC & CJCCCJJ("k^E9m"):for CCJCJJ=0 to ubound(str,2):response.Write CJCCCJJ("kE5m") & str(CCJJCC,CCJCJJ) & CJCCCJJ("k^E5m"):next:response.Write CJCCCJJ("k^ECm"):next:response.Write CJCCCJJ("k^E23=6m")
end if
elseif isnull(str) then
response.Write CJCCCJJ(",}F==.")
else
Response.Write replace(str,vbcrlf,CJCCCJJ("k3Cm"))
end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CCJJJCJ,CCJJJCC):dim CCJJJC:CCJJJC=CCJJJCJ & CJCCCJJ("l") & CCJJJCC & CJCCCJJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJCCCJJ("$6E\r@@<:6"),CCJJJC):End Sub:::::::Function CJCJJJJ(CCJCCJ):if isnull(CCJCCJ) or trim(CCJCCJ)="" or not isnumeric(CCJCCJ) then
CJCJJJJ=false
else
Dim CCJCCC:Set CCJCCC = New RegExp:CCJCCC.Pattern = CJCCCJJ("/-5ZS"):CCJCCC.IgnoreCase = True:CJCJJJJ = CCJCCC.test(CCJCCJ):set CCJCCC=nothing
end if:End Function:Function CJCJJJC(CCJJCJJ):dim CCCJJJ,CCCJJC:CCCJJJ=CJCCCJJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CCJJCJJ & CJCCCJJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CCCJJC=CCJJJ.execute(CCCJJJ):CJCJJJC = CCCJJC(0):if isnull(CJCJJJC) then CJCJJJC=1
CCCJJC.close : set CCCJJC=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CCCJCJ=nothing:set CJCJJCJ=nothing:set CJCJJCC=nothing:set CJCJCJJ=nothing:CCCJJC.close : set CCCJJC=nothing:CCJCC.Close : Set CCJCC=Nothing:CCJCJ.Close : Set CCJCJ=Nothing:CJCJCJC.Close : Set CJCJCJC = Nothing:CCJJJ.Close : Set CCJJJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCJJCJC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJCCCJJ("!$*0|6DD286"),server.URLEncode(CCJJCJC)):Response.Redirect CJCCCJJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::::::::::::Sub ClearCache(CCJJCCJ):Application.Contents.Remove CCJJCCJ
End Sub::Class jTree:Private CCCJJ, CCCJCJ, CCCJCC, CCCCJJ,CCCCJC,CCCCCJ,CCCCCC,CJJJJJJ:Private Sub Class_Initialize():CCCJCC = 0:CCCCJJ = 0:CJJJJJJ=10:End Sub:Public Property Let CJCJCCJ(CCJJCCC):if CCJJCCC="" then Call RedirectMessage(CJCCCJJ("????????,;%C66????????????????????@??????????,"))
CCCCJC=CCJJCCC:CCCCCJ=CJCCCJJ("!$*0") & UCase(CCCCJC):Call GetTreeArray:End Property:Public Property Get CJCJCCJ():CJCJCCJ=CCCCJC:End Property:::Private Sub GetTreeArray():Dim CCJJCC, CCJCJJ, CJJJJJC,CJJJJCJ:CCCJCJ = Application(CCCCCJ):If Not IsArray(CCCJCJ) Then
CCCJJ = CJCCCJJ("D6=64E ,4@F?EW:5X ,7C@> ,") & CCCCJC:if CCCCCC<>"" then CCCJJ=CCCJJ & CJCCCJJ(" ,H96C6 ,") & CCCCCC
set CJJJJJC=CCJJJ.execute(CCCJJ):CJJJJCJ=CJJJJJC(0):if CJJJJCJ=0 then Call RedirectMessage(CJCCCJJ("????W") & CCCCJC & CJCCCJJ("^") & CCCCCC & CJCCCJJ("X????????????"))
CCCCJJ=CJJJJCJ+CJJJJJJ:ReDim CCCJCJ(CCCCJJ, 4):CCCJJ = CJCCCJJ("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCCCJC & CJCCCJJ(" ,H:E9 ,W?@=@4<X"):if CCCCCC<>"" then CCCJJ=CCCJJ & CJCCCJJ(" ,H96C6 ,") & CCCCCC
CCCJJ=CCCJJ & CJCCCJJ(" ,@C56C ,3J ,D@CE[:5"):set CJJJJJC=CCJJJ.execute(CCCJJ):For CCJJCC = 1 To CJJJJCJ:For CCJCJJ = 0 To 4:CCCJCJ(CCJJCC, CCJCJJ) = CJJJJJC(CCJCJJ):if IsNull(CCCJCJ(CCJJCC,4)) then CCCJCJ(CCJJCC,4)=0
If CCCJCJ(CCJJCC,2)="" then CCCJCJ(CCJJCC,2)=CJCCCJJ(",??.")
Next:CJJJJJC.MoveNext:Next:CJJJJJC.Close: Set CJJJJJC = Nothing:for CCJJCC=CCCCJJ-(CJJJJJJ-1) to CCCCJJ:CCCJCJ(CCJJCC,0)=CCJJCC:next:Application.Lock():Application(CCCCCJ) = CCCJCJ:Application.UnLock()
else
CCCCJJ=Ubound(CCCJCJ)
End If:End Sub:::::Private Function CJCJCCC(CJJCJCJ):dim CCJJCC,CJJJJCC:CJCJCCC=0:CJJJJCC=CStr(CJJCJCJ):if CJJJJCC<>"0" then
for CCJJCC=1 to CCCCJJ:If CStr(CCCJCJ(CCJJCC, 0))=CJJJJCC Then
CJCJCCC = CCJJCC:Exit For
End If:Next
end if:End Function::::Public Function CJCCJJJ(CJJCJCJ):Dim CCJJCC,CJJJCJJ:CCJJCC=CJCJCCC(CJJCJCJ):if CCJJCC=0 then
CJJJCJJ=CJCCJJC(CJJCJCJ)
else
CJJJCJJ=CCCJCJ(CCJJCC,3):if isnull(CJJJCJJ) or CJJJCJJ="" then
CJJJCJJ=CJCCJJC(CJJCJCJ)
elseif Mid(CJJJCJJ,instrrev(CJJJCJJ,CJCCCJJ("["))+1)<>CStr(CJJCJCJ) then
CJJJCJJ=CJCCJJC(CJJCJCJ)
elseif Left(CJJJCJJ,1)=CJCCCJJ("[") then
CJJJCJJ=CJCCJJC(CJJCJCJ)
end if
end if:CJCCJJJ=CJJJCJJ:End Function:Private Function CJCCJJC(CJJCJCJ):dim CJJJJCC:CJJJJCC=CStr(CJJCJCJ):if CJJJJCC="0" then
CJCCJJC=""
else
dim CJJJJJC:set CJJJJJC=CCJJJ.execute(CJCCCJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCCCJC & CJCCCJJ(" ,H96C6 ,:5l") & CJJCJCJ):if CJJJJJC.eof then
Call UpdateCache(CJJCJCJ,"","","",""):Call RedirectMessage(CJCCCJJ("??????,xs??,") & CJJCJCJ & CJCCCJJ("??,????????,????????????????????,"))
else
if CJJJJJC(0)=0 then
CJCCJJC="0," & CJJCJCJ
else
CJCCJJC=CJCCJJJ(CJJJJJC(0)) & CJCCCJJ("[") & CJJCJCJ
end if:if CJJJJJC(2)<>CJCCJJC then
CCJJJ.execute CJCCCJJ("FA52E6 ,") & CCCCJC & CJCCCJJ(" ,D6E ,A2E9lV") & CJCCJJC & CJCCCJJ("V ,H96C6 ,:5l") & CJJCJCJ
else
CJCCJJC=CJJJJJC(2)
end if
end if:Call UpdateCache(CJJCJCJ,CJJJJJC(0),CJJJJJC(1),CJCCJJC,CJJJJJC(3)):CJJJJJC.Close: Set CJJJJJC = Nothing
end if:End Function::::::::::::::::::::::Public Sub ClearCache():Application.Contents.Remove CCCCCJ
End Sub:Public Sub UpdateCache(CJJCJCJ,CCJCJJJ,CCJCJJC,CJJJCJJ,CCJCJCJ):dim CCJJCC,CCJCJJ:CJJCJCJ=CLng(CJJCJCJ):CCJJCC=CJCJCCC(CJJCJCJ):if CCJCJJJ="" and CCJCJJC="" and CJJJCJJ="" and CCJCJCJ="" then
if CCJJCC>0 then
for CCJCJJ=1 to 4:CCCJCJ(CCJJCC,CCJCJJ)=Null:next
end if
else
if CCJJCC=0 then
for CCJCJJ=1 to CCCCJJ:if CCCJCJ(CCJCJJ,1) & ""="" then
CCJJCC=CCJCJJ:exit for
end if:next
end if:if CCJJCC=0 then
Call ClearCache
else
CCCJCJ(CCJJCC,0)=CLng(CJJCJCJ):if CCJCJJJ<>"" then CCCJCJ(CCJJCC,1)=CLng(CCJCJJJ)
if CCJCJJC<>"" then CCCJCJ(CCJJCC,2)=CCJCJJC
if CJJJCJJ<>"" then CCCJCJ(CCJJCC,3)=CJJJCJJ
if CCJCJCJ<>"" then CCCJCJ(CCJJCC,4)=CLng(CCJCJCJ)
end if
end if:if CCJJCC>0 then
Application.Lock():Application(CCCCCJ) = CCCJCJ:Application.UnLock()
end if:End Sub:Private Sub Debug(CCJJCJC):Call ConnClose:Response.Write CCJJCJC:Response.End:End Sub:Private Function CJCJJJC():CJCJJJC=CJCCJCJ+1:End Function:Private Function CJCCJCJ():dim CCCJJC:set CCCJJC=CCJJJ.execute(CJCCCJJ("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CCCCJC & CJCCCJJ(" ,@C56C ,3J ,:5 ,56D4")):CJCCJCJ=CCCJJC(0):CCCJJC.Close: Set CCCJJC = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::dim CCJJJJ:CCCJJ=Request.ServerVariables(CJCCCJJ("!p%w0x}u~")):if instr(CCCJJ,CJCCCJJ("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CJJCCJ and not CJCCJC then Call RedirectMessage(CJCCCJJ("????????,????????????????????????,"))
CCJJJJ=CJJJCC
elseif instr(CCCJJ,CJCCCJJ("^>^D49@@=^DEF56?E^"))>0 or instr(CCCJJ,CJCCCJJ("^DEF56?E^"))>0 then
Call CheckLogined:CCJJJJ=CJJJCC
elseif instr(CCCJJ,CJCCCJJ("^D49@@="))>0 then
CCJJJJ=Request.QueryString(CJCCCJJ("D49@@=")):if not CJCJJJJ(CCJJJJ) then CCJJJJ=Request.QueryString(CJCCCJJ("F"))
if not CJCJJJJ(CCJJJJ) then CCJJJJ=Request.QueryString(CJCCCJJ("D4"))
if not CJCJJJJ(CCJJJJ) then Call RedirectMessage(CJCCCJJ("????????W$49@@=X??@??????????,"))
CCJJJJ=csng(CCJJJJ)
end if:if CCJJJJ=0 then Call RedirectMessage(CJCCCJJ("????????W$49@@=X????W_X??,"))
Dim CJJJCJC:Call SetConfig:Sub SetConfig():dim CJJJCCJ,CCCJJC:CCCJJ=CJCCCJJ("D6=64E ,E@A ,` ,;:2@H6:[EJA6[4FDE@>8C@FA[D:5632C0@E96C[E6DEC6DF=EG:6H[D>D0C646:G6C[C6E6DE52J[6IA:C652E6[E:E=6[K:IF?04=@D6052E6[JFJF60D>D0EA=[A:4EFC6[D>D[75D[D6>6DE6C0DE2CE052E6[K:IF?0E:>6D09:89=:89E[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[:D?6H[JFJF60E6DE0=3[K:IF?0E:>6D0=:>:E[D>D0D:8?[DEF56?E0BF6DE:@?04@F?E[K:IF?E:>6[:?EC@[4@AJC:89E[4@?E24E[9@>6A286E@AA:4EFC6[>@5:?7@[9@>6=@8:?[K:IF?0?6657665324<[4@>A=6E60:?7@[E6DE:?EC@[8F6DE3@@<[9:560=30@FE@7286[JFJF602CC2?86[JFJF60367@C60E:>6[JFJF60E6DE052JD[JFJF60H66<0=:>:E[JFJF604964<65[K:IF?0?6657665324<0?6IE[4964<?6HDEF56?E[BB ,7C@> ,D49@@= ,H:E9 ,W?@=@4<X ,H96C6 ,:5l") & CCJJJJ:set CCCJJC=CCJJJ.execute(CCCJJ):if CCCJJC.eof then Call RedirectMessage(CJCCCJJ("??W") & CCCJC & CJCCCJJ("X??????????W") & CCJJJJ & CJCCCJJ("X????????,"))
ReDim CJJJCCJ(61):CJJJCCJ(0)=CCCJJC(CJCCCJJ(";:2@H6:")) & "":CJJJCCJ(1)=CCCJJC(CJCCCJJ("EJA6")):CJJJCCJ(2)=CCCJJC(CJCCCJJ("D>D")):CJJJCCJ(3)=CCCJJC(CJCCCJJ("4FDE@>8C@FA")) & "":CJJJCCJ(4)=CCCJJC(CJCCCJJ("D:5632C0@E96C")) & "":CJJJCCJ(5)=IIf(isnull(CCCJJC(CJCCCJJ("E6DEC6DF=EG:6H"))),0,CCCJJC(CJCCCJJ("E6DEC6DF=EG:6H"))):CJJJCCJ(6)=CCCJJC(CJCCCJJ("K:IF?E:>6")):CJJJCCJ(8)=CCCJJC(CJCCCJJ("C6E6DE52J")):CJJJCCJ(9)=CCCJJC(CJCCCJJ("6IA:C652E6")):CJJJCCJ(10)=CCCJJC(CJCCCJJ("E:E=6")):CJJJCCJ(11)=CCCJJC(CJCCCJJ(":?EC@")) & "":CJJJCCJ(12)=CCCJJC(CJCCCJJ("A:4EFC6")) & "":CJJJCCJ(13)=CCCJJC(CJCCCJJ("72>:=J")):CJJJCCJ(14)=CCCJJC(CJCCCJJ("4@AJC:89E")) & "":CJJJCCJ(15)=IIf(isnull(CCCJJC(CJCCCJJ("D6>6DE6C0DE2CE052E6"))),CJCCCJJ("`h__\`\`"),CCCJJC(CJCCCJJ("D6>6DE6C0DE2CE052E6"))):CJJJCCJ(16)=IIf(isnull(CCCJJC(CJCCCJJ("K:IF?0E:>6D09:89=:89E"))),0,CCCJJC(CJCCCJJ("K:IF?0E:>6D09:89=:89E"))):CJJJCCJ(17)=CCCJJC(CJCCCJJ("4@?E24E")) & "":CJJJCCJ(18)=CCCJJC(CJCCCJJ("D2?5E23=6")):CJJJCCJ(19)=CCCJJC(CJCCCJJ("4C:D:D")):CJJJCCJ(20)=CCCJJC(CJCCCJJ("JJ52E6")):CJJJCCJ(21)=CCCJJC(CJCCCJJ("BB")):CJJJCCJ(22)=CCCJJC(CJCCCJJ("JFJF60D>D0EA=")) & "":CJJJCCJ(23)=CCCJJC(CJCCCJJ("JFJF60E6DE0=3")) & "":CJJJCCJ(25)=CCCJJC(CJCCCJJ("6IA6CE")):CJJJCCJ(26)=CCCJJC(CJCCCJJ(">@5:?7@")):CJJJCCJ(27)=CCCJJC(CJCCCJJ("9@>6A286E@AA:4EFC6")) & "":CJJJCCJ(28)=CCCJJC(CJCCCJJ("4C:D:D=3")):CJJJCCJ(29)=IIf(CCCJJC(CJCCCJJ("4C:D:D@=5")),False,True):CJJJCCJ(30)=CCCJJC(CJCCCJJ("8C@FA8F:52?46")):CJJJCCJ(31)=CCCJJC(CJCCCJJ("3:@7665324<")):CJJJCCJ(32)=CCCJJC(CJCCCJJ("<6JDEC")):CJJJCCJ(33)=CCCJJC(CJCCCJJ("=@8@")) & "":CJJJCCJ(34)=CCCJJC(CJCCCJJ("K:46")):CJJJCCJ(35)=IIf(CCCJJC(CJCCCJJ(":D?6H")),True,False):CJJJCCJ(36)=121:CJJJCCJ(37)=111:CJJJCCJ(38)=160:CJJJCCJ(39)=CCCJJC(CJCCCJJ("8F6DE3@@<")):CJJJCCJ(40)=CCCJJC(CJCCCJJ("75D")):CJJJCCJ(42)=CCCJJC(CJCCCJJ("9@>6=@8:?")):CJJJCCJ(43)=CCCJJC(CJCCCJJ("K:IF?0?6657665324<")):CJJJCCJ(44)=CCCJJC(CJCCCJJ("K:IF?0E:>6D0=:>:E")):CJJJCCJ(45)=CCCJJC(CJCCCJJ("4@>A=6E60:?7@")):CJJJCCJ(46)=CCCJJC(CJCCCJJ("E6DE:?EC@")) & "":CJJJCCJ(47)=IIf(isnull(CCCJJC(CJCCCJJ("JFJF60367@C60E:>6"))),0,CCCJJC(CJCCCJJ("JFJF60367@C60E:>6"))):CJJJCCJ(49)=CCCJJC(CJCCCJJ("D>D0C646:G6C")):CJJJCCJ(50)=CCCJJC(CJCCCJJ("D>D0D:8?")) & "":CJJJCCJ(52)=CCCJJC(CJCCCJJ("JFJF602CC2?86")):CJJJCCJ(53)=IIf(isnull(CCCJJC(CJCCCJJ("DEF56?E0BF6DE:@?04@F?E"))),0,CCCJJC(CJCCCJJ("DEF56?E0BF6DE:@?04@F?E"))):CJJJCCJ(54)=CCCJJC(CJCCCJJ("9:560=30@FE@7286")):CJJJCCJ(55)=CCCJJC(CJCCCJJ("JFJF60E6DE052JD")):CJJJCCJ(56)=CCCJJC(CJCCCJJ("JFJF60H66<0=:>:E")):CJJJCCJ(57)=CCCJJC(CJCCCJJ("JFJF604964<65")):CJJJCCJ(58)=CCCJJC(CJCCCJJ("K:IF?0?6657665324<0?6IE")):CJJJCCJ(59)=CCCJJC(CJCCCJJ("4964<?6HDEF56?E")):CJJJCCJ(60)=CCCJJC(CJCCCJJ("K:IF?04=@D6052E6")):CCCJJC.close : set CCCJJC=nothing:if isNull(CJJJCCJ(8)) or CJJJCCJ(8)="" then CJJJCCJ(8)=0
if isdate(CJJJCCJ(9)) then
CJJJCCJ(9)=cdate(CJJJCCJ(9)):if CJJJCCJ(9)<Date then Call RedirectMessage(CJCCCJJ("????????,????????????????W") & CJJJCCJ(9) & CJCCCJJ("X??????,"))
end if:if not CJCJJJJ(CJJJCCJ(20)) then CJJJCCJ(20)=7
select case CJJJCCJ(1):case 1,2,16:CJJJCCJ(36)=159:case 4,5,6,10,11:CJJJCCJ(36)=190:CJJJCCJ(37)=178:CJJJCCJ(38)=191:case 7,13:CJJJCCJ(36)=164:CJJJCCJ(37)=178:CJJJCCJ(38)=179:end select:CJJJCJC=CJJJCCJ:End Sub:Function CJCJCJJ(CCJCJCC):dim CJJJCCJ(7,1),CCJJCC,CJJJCCC,CJJCJJJ:CJJJCCC=Array(CJCCCJJ("$49@@="),CJCCCJJ("$EF56?E"),CJCCCJJ("s6AE"),CJCCCJJ("vC256"),CJCCCJJ("r=2DD>2E6"),CJCCCJJ("}F>36C"),CJCCCJJ("%62496C"),CJCCCJJ("!2C6?E")):select case CJJJCJC(1):case 1,2 : CJJCJJJ=Array(CJCCCJJ("????"),CJCCCJJ("????"),CJCCCJJ("????"),CJCCCJJ("????"),CJCCCJJ("????"),CJCCCJJ("????"),CJCCCJJ("????"),CJCCCJJ("????")):case 3,16 : CJJCJJJ=Array(CJCCCJJ("????"),CJCCCJJ("????"),CJCCCJJ("????"),CJCCCJJ("????"),CJCCCJJ("????"),CJCCCJJ("????"),CJCCCJJ("????"),CJCCCJJ("????")):case 4 : CJJCJJJ=Array(CJCCCJJ("????"),CJCCCJJ("??????@"),CJCCCJJ("????"),CJCCCJJ("????"),CJCCCJJ("????"),CJCCCJJ("????"),CJCCCJJ("????"),CJCCCJJ("????")):case 5 : CJJCJJJ=Array(CJCCCJJ("????"),CJCCCJJ("????"),CJCCCJJ("????"),CJCCCJJ("????"),CJCCCJJ("????"),CJCCCJJ("????"),CJCCCJJ("????"),CJCCCJJ("????")):case 6 : CJJCJJJ=Array(CJCCCJJ("????"),CJCCCJJ("??????@"),CJCCCJJ("????"),CJCCCJJ("????"),CJCCCJJ("????"),CJCCCJJ("????"),CJCCCJJ("??????"),CJCCCJJ("????")):case 7 : CJJCJJJ=Array(CJCCCJJ("????"),CJCCCJJ("????"),CJCCCJJ("????"),CJCCCJJ("????"),CJCCCJJ("????"),CJCCCJJ("????"),CJCCCJJ("??????"),CJCCCJJ("????")):case 8 : CJJCJJJ=Array(CJCCCJJ("????"),CJCCCJJ("??????@"),CJCCCJJ("????"),CJCCCJJ("????????"),CJCCCJJ("????"),CJCCCJJ("????"),CJCCCJJ("??????"),CJCCCJJ("????")):case 9 : CJJCJJJ=Array(CJCCCJJ("????"),CJCCCJJ("????"),CJCCCJJ("????"),CJCCCJJ("????"),CJCCCJJ("????"),CJCCCJJ("????"),CJCCCJJ("??????"),CJCCCJJ("????")):case 10 : CJJCJJJ=Array(CJCCCJJ("????"),CJCCCJJ("????"),CJCCCJJ("????"),CJCCCJJ("????????"),CJCCCJJ("????"),CJCCCJJ("????"),CJCCCJJ("??????"),CJCCCJJ("????")):case 11 : CJJCJJJ=Array(CJCCCJJ("????"),CJCCCJJ("??????"),CJCCCJJ("????"),CJCCCJJ("????"),CJCCCJJ("????"),CJCCCJJ("????"),CJCCCJJ("??????"),CJCCCJJ("????")):case 12 : CJJCJJJ=Array(CJCCCJJ("????"),CJCCCJJ("????"),CJCCCJJ("????"),CJCCCJJ("????????"),CJCCCJJ("????"),CJCCCJJ("????"),CJCCCJJ("??????"),CJCCCJJ("????")):case 13 : CJJCJJJ=Array(CJCCCJJ("????"),CJCCCJJ("????"),CJCCCJJ("????"),CJCCCJJ("????"),CJCCCJJ("????"),CJCCCJJ("????"),CJCCCJJ("????"),CJCCCJJ("????")):case 14 : CJJCJJJ=Array(CJCCCJJ("??????"),CJCCCJJ("??@??"),CJCCCJJ("????"),CJCCCJJ("????"),CJCCCJJ("????"),CJCCCJJ("????"),CJCCCJJ("??????"),CJCCCJJ("????")):case 15 : CJJCJJJ=Array(CJCCCJJ("????"),CJCCCJJ("????????"),CJCCCJJ("????"),CJCCCJJ("????????"),CJCCCJJ("????"),CJCCCJJ("????"),CJCCCJJ("??????"),CJCCCJJ("????")):case else : CJJCJJJ=CJJJCCC
end select:for CCJJCC=0 to Ubound(CJJJCCJ):CJJJCCJ(CCJJCC,0)=CJJJCCC(CCJJCC):CJJJCCJ(CCJJCC,1)=CJJCJJJ(CCJJCC):next:for CCJJCC=0 to Ubound(CJJJCCJ):if CJJJCCJ(CCJJCC,0)=CCJCJCC then
CJCJCJJ=CJJJCCJ(CCJJCC,1):exit for
end if:next:End Function::Const CJJCCCJ=118:dim CJJCJJC,CJJCJCJ:CJJCJJC=request.QueryString(CJCCCJJ("EJA6:5")):CJJCJCJ=request.QueryString(CJCCCJJ(":5")):if not CJCJJJJ(CJJCJJC) and not CJCJJJJ(CJJCJCJ) then response.Redirect CJCCCJJ(":?56I]2DAnD49@@=l") & CCJJJJ
if CJCJJJJ(CJJCJCJ) then
set CCJCC=CCJJJ.execute(CJCCCJJ("D6=64E ,E@A ,` ,Y ,7C@> ,G02CE:4=6 ,H96C6 ,:5l") & CJJCJCJ):if CCJCC.eof then response.Redirect CJCCCJJ(":?56I]2DAnD49@@=l") & CCJJJJ
CJJCJJC=cstr(CCJCC(CJCCCJJ("EJA6")))
else
set CCJCC=CCJJJ.execute(CJCCCJJ("D6=64E ,E@A ,` ,Y ,7C@> ,G02CE:4=6 ,H96C6 ,EJA6l") & CJJCJJC & CJCCCJJ(" ,@C56C ,3J ,:DE@A ,56D4[52E6E:>6 ,56D4")):if CCJCC.eof then response.Redirect CJCCCJJ(":?56I]2DAnD49@@=l") & CCJJJJ
CJJCJCJ=cstr(CCJCC(CJCCCJJ(":5")))
end if:CCJJJ.execute CJCCCJJ("FA52E6 ,2CE:4=6 ,D6E ,9:El9:EZ` ,H96C6 ,:5l") & CJJCJCJ:Response.Write(vbCrLf):Response.Write(CJCCCJJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJCCCJJ("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJCCCJJ("k9625m") & vbCrLf):Response.Write(CJCCCJJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJCCCJJ("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJCCCJJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJCCCJJ("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CJCCCJJ("kE:E=6m")):Response.Write  CJJJCJC(10):Response.Write(CJCCCJJ("\")):Response.Write  CCJCC(CJCCCJJ("E:E=6")):Response.Write(CJCCCJJ("k^E:E=6m") & vbCrLf):Response.Write(CJCCCJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^2>2K6F:^4DD^2>2K6F:]>:?]4DDQm") & vbCrLf):Response.Write(CJCCCJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CJCCCJJ("kDEJ=6m") & vbCrLf):Response.Write(CJCCCJJ("]2>\244@C5:@?\82AA65 ,]2>\24E:G6 ,]2>\244@C5:@?\E:E=6 ,L ,324<8C@F?5\4@=@Ci ,Rbqqcuaj ,4@=@Ci ,R777j ,N") & vbCrLf):Response.Write(CJCCCJJ("2CE:4=6 ,L ,>2C8:?i ,a]_C6> ,`]dC6>j ,N") & vbCrLf):Response.Write(CJCCCJJ("2CE:4=6 ,]2>\2CE:4=6\35 ,:>8 ,L ,5:DA=2Ji ,:?=:?6j ,N") & vbCrLf):Response.Write(CJCCCJJ("k^DEJ=6m") & vbCrLf):Response.Write(CJCCCJJ("k^9625m") & vbCrLf):Response.Write(CJCCCJJ("k3@5Jm") & vbCrLf):Response.Write(CJCCCJJ("kP\\????\\m") & vbCrLf):Response.Write(CJCCCJJ("k96256Cm") & vbCrLf):Response.Write(CJCCCJJ(" ,k5:G ,:5lQE@AQm") & vbCrLf):Response.Write(CJCCCJJ(" ,k5:G ,4=2DDlQ2>\8 ,2>\8\7:I65 ,2>\8\4@==2AD6Qm") & vbCrLf):Response.Write(CJCCCJJ(" ,k5:G ,4=2DDlQ=@8@ ,2>\D9@H\>5\FAQ ,DEJ=6lQ324<8C@F?5iFC=W")):Response.Write  IIf(CJJJCJC(33)="",CJCCCJJ(":^=@8@];A8"),CJJJCJC(33)):Response.Write(CJCCCJJ("X ,?@\C6A62EjQmk^5:Gm") & vbCrLf):Response.Write(CJCCCJJ(" ,k9` ,4=2DDlQ2>\E6IE\AC:>2CJQm")):Response.Write  CJJJCJC(10):Response.Write(CJCCCJJ("k^9`m") & vbCrLf):Response.Write(CJCCCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJCCCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJCCCJJ(" ,kP\\??????\\m") & vbCrLf):Response.Write(CJCCCJJ(" ,k?2G ,4=2DDlQ2>\E@A32C ,2>\E@A32C\:?G6CD6Qm") & vbCrLf):Response.Write(CJCCCJJ(" ,kP\\??????????????????????\\m") & vbCrLf):Response.Write(CJCCCJJ(" ,k9` ,4=2DDlQ2>\E@A32C\3C2?5 ,2>\D9@H\D>\@?=JQmk2 ,9C67lQRQm!$*]r~|]r}k^2m ,k^9`m") & vbCrLf):Response.Write(CJCCCJJ(" ,kP\\????????????????????\\m") & vbCrLf):Response.Write(CJCCCJJ(" ,k3FEE@? ,4=2DDlQ2>\E@A32C\3E? ,2>\E@A32C\E@88=6 ,2>\3E? ,2>\3E?\D> ,2>\3E?\D64@?52CJ ,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(CJCCCJJ(" ,k5:G ,4=2DDlQ2>\8 ,2>\8\7:I65 ,2>\8\4@==2AD6Qm") & vbCrLf):Response.Write(CJCCCJJ(" ,k5:G ,4=2DDlQ2>\4@==2AD6 ,2>\E@A32C\4@==2AD6Q ,:5lQ5@4\E@A32C\4@==2AD6Qm") & vbCrLf):Response.Write(CJCCCJJ(" ,kP\\????????\\m") & vbCrLf):Response.Write(CJCCCJJ(" ,kF= ,4=2DDlQ2>\?2G ,2>\?2G\A:==D ,2>\E@A32C\?2GQm") & vbCrLf):Response.Write(CJCCCJJ(" ,k=:mk2 ,9C67lQ:?56I]2DAnD49@@=l")):Response.Write  CCJJJJ:Response.Write(CJCCCJJ("Qm????k^2mk^=:m") & vbCrLf):Response.Write(CJCCCJJ(" ,")):dim CJJCJCC,CCJJCC:CCJJCC=0:set CCJCJ=CCJJJ.execute(CJCCCJJ("D6=64E ,:5[?2>6[:?EC@[:4@? ,7C@> ,2CE:4=60EJA6 ,H96C6 ,A2C:5l") & CJJCCCJ & CJCCCJJ(" ,2?5 ,>6>36CEJA6l") & CCJJJJ & CJCCCJJ(" ,@C56C ,3J ,D@CE")):do while not CCJCJ.eof:CJJCJCC=CJJCJCC & CJCCCJJ("M") & CCJCJ(0) & CJCCCJJ("M") & CCJCJ(1) & CJCCCJJ("M") & CCJCJ(2) & CJCCCJJ("M") & CCJCJ(3):response.Write CJCCCJJ("k=:") & IIf(cstr(CCJCJ(0))=CJJCJJC,CJCCCJJ(" ,4=2DDlV2>\24E:G6V"),"") & CJCCCJJ("mk2 ,9C67lVG:6H]2DAnD49@@=l") & CCJJJJ & CJCCCJJ("UEJA6:5l") & CCJCJ(0) & CJCCCJJ("Vm") & CCJCJ(1) & CJCCCJJ("k^2mk^=:m")
CCJCJ.movenext:CCJJCC=CCJJCC+1:if CCJJCC=6 then exit do
loop:if not CCJCJ.eof then
Response.Write(vbCrLf):Response.Write(CJCCCJJ(" ,k=: ,4=2DDlQ2>\5C@A5@H?Q ,52E2\2>\5C@A5@H?mk2 ,4=2DDlQ2>\5C@A5@H?\E@88=6Q ,52E2\2>\5C@A5@H?\E@88=6 ,9C67lQ;2G2D4C:AEijQm????U?3DAjkDA2? ,4=2DDlQ2>\:4@?\42C6E\5@H?Qmk^DA2?mk^2m") & vbCrLf):Response.Write(CJCCCJJ(" ,kF= ,4=2DDlQ2>\5C@A5@H?\4@?E6?EQm") & vbCrLf):Response.Write(CJCCCJJ(" ,")):do while not CCJCJ.eof:CJJCJCC=CJJCJCC & CJCCCJJ("M") & CCJCJ(0) & CJCCCJJ("M") & CCJCJ(1) & CJCCCJJ("M") & CCJCJ(2) & CJCCCJJ("M") & CCJCJ(3):response.Write CJCCCJJ("k=:mk2 ,9C67lVG:6H]2DAnD49@@=l") & CCJJJJ & CJCCCJJ("UEJA6:5l") & CCJCJ(0) & CJCCCJJ("Vm") & CCJCJ(1) & CJCCCJJ("k^2mk^=:m")
CCJCJ.movenext:loop:Response.Write(vbCrLf):Response.Write(CJCCCJJ(" ,k^F=m") & vbCrLf):Response.Write(CJCCCJJ(" ,k^=:m") & vbCrLf):Response.Write(CJCCCJJ(" ,"))
End If:CJJCJCC=split(mid(CJJCJCC,2),CJCCCJJ("M")):Response.Write(vbCrLf):Response.Write(CJCCCJJ(" ,k^F=m") & vbCrLf):Response.Write(CJCCCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJCCCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJCCCJJ(" ,k^?2Gm") & vbCrLf):Response.Write(CJCCCJJ("k^96256Cm") & vbCrLf):Response.Write(CJCCCJJ("kP\\qp}}t#\\m") & vbCrLf):Response.Write(CJCCCJJ("k5:G ,:5lQ32??6CQ ,4=2DDlQ2>\4@?E2:?6CQmk:>8 ,DC4lQ:^32??6C]A?8Q ,4=2DDlQ2>\:>8\C6DA@?D:G6Q ,2=ElQQ^mk^5:Gm") & vbCrLf):Response.Write(CJCCCJJ("kP\\????????@??\\m") & vbCrLf):Response.Write(CJCCCJJ("k5:G ,4=2DDlQ2>\8 ,2>\8\7:I65 ,2>\8\4@==2AD6Qm") & vbCrLf):Response.Write(CJCCCJJ(" ,kP\\??????@??\\m") & vbCrLf):Response.Write(CJCCCJJ(" ,k5:G ,4=2DDlQ2>\F\D>\`a ,2>\F\>5\g ,2>\F\>5\AFD9\cQm") & vbCrLf):Response.Write(CJCCCJJ(" ,k2CE:4=6 ,4=2DDlQ2>\2CE:4=6Qm") & vbCrLf):Response.Write(CJCCCJJ(" ,k5:G ,4=2DDlQ2>\2CE:4=6\95Qm") & vbCrLf):Response.Write(CJCCCJJ(" ,k9` ,4=2DDlQ2>\2CE:4=6\E:E=6Qm")):Response.Write  CCJCC(CJCCCJJ("E:E=6")):Response.Write(CJCCCJJ("k^9`m") & vbCrLf):Response.Write(CJCCCJJ(" ,kA ,4=2DDlQ2>\2CE:4=6\>6E2Qm????@??,")):Response.Write  CCJCC(CJCCCJJ("?:4<?2>6")):Response.Write(CJCCCJJ(" ,??????,")):Response.Write  CCJCC(CJCCCJJ("9:E")):Response.Write(CJCCCJJ("k^Am") & vbCrLf):Response.Write(CJCCCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJCCCJJ(" ,k5:G ,4=2DDlQ2>\2CE:4=6\35Qm") & vbCrLf):Response.Write(CJCCCJJ(" ,")):if Trim(CCJCC(CJCCCJJ("=:?<")) & "")="" then
If Trim(CCJCC(CJCCCJJ("23DEC24E"))) & ""<>"" Then Response.Write CJCCCJJ("kA ,4=2DDlV2>\2CE:4=6\=625Vm") & CCJCC(CJCCCJJ("23DEC24E")) & CJCCCJJ("k^Am")
Response.Write replace(CCJCC(CJCCCJJ("4@?E6?E")) & "",CJCCCJJ("U=Ej:7C2>6"), CJCCCJJ("k:7C2>6"))
else
Response.Write CJCCCJJ("k2 ,9C67lV") & CCJCC(CJCCCJJ("=:?<")) & CJCCCJJ("V ,E2C86ElV03=2?<Vm??@??????k^2m")
end if:Response.Write(vbCrLf):Response.Write(CJCCCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJCCCJJ(" ,k^2CE:4=6m") & vbCrLf):Response.Write(CJCCCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJCCCJJ(" ,kP\\????\\m") & vbCrLf):Response.Write(CJCCCJJ(" ,k5:G ,4=2DDlQ2>\F\D>\`a ,2>\F\>5\c ,2>\F\>5\AF==\gQm") & vbCrLf):Response.Write(CJCCCJJ(" ,kD64E:@? ,52E2\2>\H:586ElQ244@C5:@?Q ,4=2DDlQ2>\244@C5:@? ,2>\244@C5:@?\82AA65Qm") & vbCrLf):Response.Write(CJCCCJJ(" ,")):for CCJJCC=0 to ubound(CJJCJCC)-3 step 4:if CJJCJCC(CCJJCC)=CJJCJJC then
Response.Write(vbCrLf):Response.Write(CJCCCJJ(" ,k5= ,4=2DDlQ2>\244@C5:@?\:E6> ,2>\24E:G6Qm") & vbCrLf):Response.Write(CJCCCJJ(" ,k5E ,4=2DDlQ2>\244@C5:@?\E:E=6Qmk: ,4=2DDlQ2>\:4@?\7H ,2>\2=:8?\=67E ,2>\:4@?\")):Response.Write  CJJCJCC(CCJJCC+3):Response.Write(CJCCCJJ("Qmk^:m ,")):Response.Write  CJJCJCC(CCJJCC+1):Response.Write(CJCCCJJ("k^5Em") & vbCrLf):Response.Write(CJCCCJJ(" ,k55 ,4=2DDlQ2>\244@C5:@?\35 ,2>\4@==2AD6 ,2>\:?Qm") & vbCrLf):Response.Write(CJCCCJJ(" ,k5:G ,4=2DDlQ2>\244@C5:@?\4@?E6?EQm") & vbCrLf):Response.Write(CJCCCJJ(" ,")):set CCJCJ=CCJJJ.execute(CJCCCJJ("D6=64E ,:5[E:E=6[=:?< ,7C@> ,2CE:4=6 ,H96C6 ,EJA6l") & CJJCJCC(CCJJCC) & CJCCCJJ(" ,@C56C ,3J ,:DE@A ,56D4[52E6E:>6 ,56D4")):while not CCJCJ.eof:if CCJCJ(2) & ""="" then
Response.Write CJCCCJJ("k2 ,9C67lVG:6H]2DAnD49@@=l") & CCJJJJ & CJCCCJJ("U:5l") & CCJCJ(0) & CJCCCJJ("VmkDA2? ,4=2DDlV2>\:4@?\DBF2C6Vmk^DA2?m ,") & CCJCJ(1) & CJCCCJJ("k^2mk3Cm")
else
Response.Write CJCCCJJ("k2 ,9C67lV") & CCJCJ(2) & CJCCCJJ("V ,E2C86ElV03=2?<VmkDA2? ,4=2DDlV2>\:4@?\DBF2C6Vmk^DA2?m ,") & CCJCJ(1) & CJCCCJJ("k^2mk3Cm")
end if:CCJCJ.movenext:wend:Response.Write(vbCrLf):Response.Write(CJCCCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJCCCJJ(" ,k^55m") & vbCrLf):Response.Write(CJCCCJJ(" ,k^5=m") & vbCrLf):Response.Write(CJCCCJJ(" ,")):exit for
end if:next:for CCJJCC=0 to ubound(CJJCJCC)-3 step 4:if CJJCJCC(CCJJCC)<>CJJCJJC then
Response.Write(vbCrLf):Response.Write(CJCCCJJ(" ,k5= ,4=2DDlQ2>\244@C5:@?\:E6>Qm") & vbCrLf):Response.Write(CJCCCJJ(" ,k5E ,4=2DDlQ2>\244@C5:@?\E:E=6Qmk: ,4=2DDlQ2>\:4@?\7H ,2>\2=:8?\=67E ,2>\:4@?\")):Response.Write  CJJCJCC(CCJJCC+3):Response.Write(CJCCCJJ("Qmk^:m ,")):Response.Write  CJJCJCC(CCJJCC+1):Response.Write(CJCCCJJ("k^5Em") & vbCrLf):Response.Write(CJCCCJJ(" ,k55 ,4=2DDlQ2>\244@C5:@?\35 ,2>\4@==2AD6Qm") & vbCrLf):Response.Write(CJCCCJJ(" ,k5:G ,4=2DDlQ2>\244@C5:@?\4@?E6?EQm") & vbCrLf):Response.Write(CJCCCJJ(" ,")):set CCJCJ=CCJJJ.execute(CJCCCJJ("D6=64E ,:5[E:E=6[=:?< ,7C@> ,2CE:4=6 ,H96C6 ,EJA6l") & CJJCJCC(CCJJCC) & CJCCCJJ(" ,@C56C ,3J ,:DE@A ,56D4[52E6E:>6 ,56D4")):while not CCJCJ.eof:if CCJCJ(2) & ""="" then
Response.Write CJCCCJJ("k2 ,9C67lVG:6H]2DAnD49@@=l") & CCJJJJ & CJCCCJJ("U:5l") & CCJCJ(0) & CJCCCJJ("VmkDA2? ,4=2DDlV2>\:4@?\DBF2C6Vmk^DA2?m ,") & CCJCJ(1) & CJCCCJJ("k^2mk3Cm")
else
Response.Write CJCCCJJ("k2 ,9C67lV") & CCJCJ(2) & CJCCCJJ("V ,E2C86ElV03=2?<VmkDA2? ,4=2DDlV2>\:4@?\DBF2C6Vmk^DA2?m ,") & CCJCJ(1) & CJCCCJJ("k^2mk3Cm")
end if:CCJCJ.movenext:wend:Response.Write(vbCrLf):Response.Write(CJCCCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJCCCJJ(" ,k^55m") & vbCrLf):Response.Write(CJCCCJJ(" ,k^5=m") & vbCrLf):Response.Write(CJCCCJJ(" ,"))
end if:next:Response.Write(vbCrLf):Response.Write(CJCCCJJ(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJCCCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJCCCJJ("k^5:Gm") & vbCrLf):Response.Write(CJCCCJJ("kP\\????????\\m") & vbCrLf):Response.Write(CJCCCJJ("k5:G ,52E2\2>\H:586ElQ8@E@AQ ,4=2DDlQ2>\8@E@A ,2>\8@E@A\7:I65Q ,mk2 ,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(CJCCCJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCCJJ("kD4C:AE ,DC4lQ^$4C:AED^2>2K6F:^;D^2>2K6F:]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCCJJ("kD4C:AEm") & vbCrLf):Response.Write(CJCCCJJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJCCCJJ("NX") & vbCrLf):Response.Write(CJCCCJJ("k^D4C:AEm") & vbCrLf):Response.Write(CJCCCJJ("k^3@5Jm") & vbCrLf):Response.Write(CJCCCJJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCCJCJ=nothing:set CJCJJCJ=nothing:set CJCJJCC=nothing:set CJCJCJJ=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 CJCCCJJ(ByVal CJCCJCC)
Dim CJJCCJJ, CCJJCC, CCJCCJ
CJCCJCC = Replace(CJCCJCC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CCJJCC = 1 To Len(CJCCJCC)
If CCJJCC <> CCJCCJ Then
CJJCCJJ = AscW(Mid(CJCCJCC, CCJJCC, 1))
If CJJCCJJ >= 33 And CJJCCJJ <= 79 Then
CJCCCJJ = CJCCCJJ & Chr(CJJCCJJ + 47)
ElseIf CJJCCJJ >= 80 And CJJCCJJ <= 126 Then
CJCCCJJ = CJCCCJJ & Chr(CJJCCJJ - 47)
Else
CCJCCJ = CCJJCC + 1
If Mid(CJCCJCC, CCJCCJ, 1) = Chr(64) Then CJCCCJJ = CJCCCJJ & ChrW(CJJCCJJ + 5) Else CJCCCJJ = CJCCCJJ & Mid(CJCCJCC, 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