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

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJCJJJ, CJCJJC,CJCJCJ, CJCJCC, CJCCJJ:Set CJCJJJ = server.CreateObject(CCCCJJJ("ps~sq]r@??64E:@?")):CJCJJJ.open Application(CCCCJJJ("r@??64E:@?$EC:?8")):Set CJCJJC=CJCJJJ:::Function IIf(CCCCJJC, CCCCJCJ, CCCCJCC):if isnull(CCCCJJC) or isempty(CCCCJJC) then
IIf = CCCCJCC
elseif CCCCJJC Then
IIf = CCCCJCJ
Else
IIf = CCCCJCC
end if:End Function:Const CCJCJJJ="^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 CJCCJC,CJCCCJ,CJCCCC:if isarray(str) then
on error resume next:CJCCJC=ubound(str,2):CJCCCC=err.number:err.clear:on error goto 0:if CJCCCC<>0 then
for CJCCJC=0 to ubound(str):if CJCCJC>0 then response.Write CCCCJJJ("k3C ,^m")
response.Write CJCCJC & CCCCJJJ("i ,") & str(CJCCJC):next
else
response.Write CCCCJJJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CJCCJC=0 to ubound(str,2):response.Write CCCCJJJ("kE9 ,2=:8?lV=67EVm") & CJCCJC & CCCCJJJ("k^E9m")
next:response.Write CCCCJJJ("k^ECm"):for CJCCJC=0 to ubound(str):response.Write CCCCJJJ("kECmkE9m") & CJCCJC & CCCCJJJ("k^E9m"):for CJCCCJ=0 to ubound(str,2):response.Write CCCCJJJ("kE5m") & str(CJCCJC,CJCCCJ) & CCCCJJJ("k^E5m"):next:response.Write CCCCJJJ("k^ECm"):next:response.Write CCCCJJJ("k^E23=6m")
end if
elseif isnull(str) then
response.Write CCCCJJJ(",}F==.")
else
Response.Write replace(str,vbcrlf,CCCCJJJ("k3Cm"))
end if:Call ConnClose:Response.End:End Sub:Public Function CCJCJCC():Dim CCJJJJ, CCJJJC:CCJJJC = Request.ServerVariables(CCCCJJJ("!p%w0x}u~")):CCJJJJ = Request.ServerVariables(CCCCJJJ("""&t#*0$%#x}v")):If CCJJJJ <> Empty Then
if instr(lcase(CCJJJJ),CCCCJJJ("Tb4:7C2>6"))>0 or instr(lcase(CCJJJJ),CCCCJJJ("Tb4D4C:AE"))>0 then Call RedirectMessage(CCCCJJJ("????????,????????????????????????,??,??,"))
CCJJJC = CCJJJC & CCCCJJJ("n") & CCJJJJ
end if:CCJCJCC = CCJJJC:End Function:Sub SetHttpOnlyCookie(CCCCCJC,CCCCCCJ):dim CCJJCJ:CCJJCJ=CCCCCJC & CCCCJJJ("l") & CCCCCCJ & CCCCJJJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCCCJJJ("$6E\r@@<:6"),CCJJCJ):End Sub:::Function CCJCCJJ(ByVal Str, ByVal StrLen):Dim CCJJCC, CCJCJJ, CCJCJC, CJCCJC:if isnull(str) then
CCJCCJJ=""
else
CCJJCC = Len(Str):CCJCJJ = 0:For CJCCJC = 1 To CCJJCC:CCJCJC = AscW(Mid(Str, CJCCJC, 1)):If CCJCJC < 0 Or CCJCJC > 255 Then CCJCJJ = CCJCJJ + 2 Else CCJCJJ = CCJCJJ + 1
If CCJCJJ >= StrLen Then
CCJCCJJ = Left(Str, CJCCJC) & CCCCJJJ("]]]"):Exit For
Else
CCJCCJJ = Str
End If:Next
end if:End Function::::Function CCJCCJC(CJCCCC):if isnull(CJCCCC) or trim(CJCCCC)="" or not isnumeric(CJCCCC) then
CCJCCJC=false
else
Dim CCJCCJ:Set CCJCCJ = New RegExp:CCJCCJ.Pattern = CCCCJJJ("/-5ZS"):CCJCCJ.IgnoreCase = True:CCJCCJC = CCJCCJ.test(CJCCCC):set CCJCCJ=nothing
end if:End Function:Function CCJCCCJ(CCCCCCC):dim CCJCCC,CCCJJJ:CCJCCC=CCCCJJJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CCCCCCC & CCCCJJJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CCCJJJ=CJCJJJ.execute(CCJCCC):CCJCCCJ = CCCJJJ(0):if isnull(CCJCCCJ) then CCJCCCJ=1
CCCJJJ.close : set CCCJJJ=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CJJCCCC=nothing:set CCJCCCC=nothing:set CCCJJJJ=nothing:set CCCJJJC=nothing:CCCJJJ.close : set CCCJJJ=nothing:CJCJCC.Close : Set CJCJCC=Nothing:CJCJCJ.Close : Set CJCJCJ=Nothing:CCCJJCJ.Close : Set CCCJJCJ = Nothing:CJCJJJ.Close : Set CJCJJJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJJJJJJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCCCJJJ("!$*0|6DD286"),server.URLEncode(CJJJJJJJ)):Response.Redirect CCCCJJJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::::::::::::Sub ClearCache(CJJJJJJC):Application.Contents.Remove CJJJJJJC
End Sub::Dim CCCJJC,CCCJCJ,CCCJCC,CCCCJJ,CCCCJC,CCCCCJ,CCCCCC,CJJJJJJ,CJJJJJC:Dim CJJJJCJ,CJJJJCC,CJJJCJJ,CJJJCJC,CJJJCCJ,CJJJCCC:Dim CJJCJJJ,CJJCJJC,CJJCJCJ:Dim CJJCJCC:CJJCJCC=Trim(Request.Cookies(CCCCJJJ("!$*|t|qt#"))):if CJJCJCC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CCCJJC>0 then
CJCCJJ=CCCCJJJ("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") & CCCJCJ & CCCCJJJ("V ,2?5 ,:5l") & CCCJJC
set CJCJCJ=CJCJJJ.execute(CJCCJJ):If CJCJCJ.EOF Then
Call ClearMemberCookie
Else
CCCJCC=CJCJCJ(2) & "":CCCCJJ=CJCJCJ(3):CCCCJC=CJCJCJ(5):CCCCCJ=CJCJCJ(6):CCCCCC=CJCJCJ(9):CJJJJJJ=CJCJCJ(15):CJJJJCJ=CJCJCJ(0):CJJCJJC=CJCJCJ(1):CJJCJJJ=CJCJCJ(11) & "":CJJJJCC=CJCJCJ(10) & "":CJJJJJC=CJCJCJ(12):CJJJCJJ=CJCJCJ(14):CJJJCJC=CJCJCJ(13):CJJJCCJ=CJCJCJ(7) & "":CJJJCCC=CJCJCJ(4):CJJCJCJ=CJCJCJ(8):if isnull(CJJJJJJ) then CJJJJJJ=0
if isnull(CCCCCC) or CCCCCC=0 then CCCCCC=CCCCJJ
if isnull(CJJJCCC) then CJJJCCC=0
if isnull(CCCCJC) then CCCCJC=0
if instr(CCCCJJJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CCCJCJ)>0 then Call RedirectMessage(CCCCJJJ("????????,????????????????????????????????,"))
Call SetMemberCookie(CCCJJC,CCCJCJ)
End IF
end if:::Sub CheckLogined():if CCCJJC=0 then
Call ClearMemberCookie:Call ConnClose:dim CJJCCJJ:CJJCCJJ=trim(request.QueryString(CCCCJJJ("D49@@="))):if isnumeric(CJJCCJJ) then
response.Redirect CCCCJJJ("^>^G2?E^R^D49@@=^") & CJJCCJJ & CCCCJJJ("^DEF56?E^=@8:?nC65:C64El") & CCJJJC
else
Call RedirectMessage(CCCCJJJ("??????????????,????????????,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CCCCJJJ("!$*|t|qt#"))="":CCCJJC=0:CCCCCJ=0:CCCJCJ=Empty:CCCCJC=0:CJJJJJJ=0:CCCCCC=0:CCCCJJ=0:CJJJJCJ=False:CJJCJJC=False:CJJCJCJ=Empty:End Sub:Sub CheckMemberCookie():dim CCJJCJ,CJJCCJC,CJCCJC,CJCCCJ,CJJCCCJ:CCJJCJ=split(CJJCJCC,CCCCJJJ("]")):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
CJJCCJC=CCJJCJ(1):for CJCCJC=1 to len(CJJCCJC):CJCCCJ=mid(CJJCCJC,CJCCJC,1):if isnumeric(CJCCCJ) then CJJCCCJ=CJJCCCJ & CJCCCJ
if len(CJJCCCJ)=7 then exit for
next:CJJCCJC=CCJJCJ(2):if CJJCCCJ<>mid(CJJCCJC,6,7) then
Call ClearMemberCookie
else
CJCCCJ=mid(CJJCCJC,18,10)/2:if CJCCCJ<DateDiff(CCCCJJJ("D"), CCCCJJJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CCCJJC=Clng(CCJJCJ(0)):CCCJCJ=CCJJCJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJCCCCJ,CJJJJJCJ):dim CJCCJC,CJCCCJ,CJJCCCJ:for CJCCJC=1 to len(CJJJJJCJ):CJCCCJ=mid(CJJJJJCJ,CJCCJC,1):if isnumeric(CJCCCJ) then CJJCCCJ=CJJCCCJ & CJCCCJ
if len(CJJCCCJ)=7 then exit for
next:CJJCCCJ=CJCCCCJ & CCCCJJJ("]") & CJJJJJCJ & CCCCJJJ("]") & Fix(10000*(Rnd+1)) & CJJCCCJ & Fix(10000*(Rnd+1)) & DateDiff(CCCCJJJ("D"), CCCCJJJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CCCCJJJ("!$*|t|qt#"))=CJJCCCJ:End Sub::Class jTree:Private CJCCJJ, CJJCCCC, CJCJJJJ, CJCJJJC,CJCJJCJ,CJCJJCC,CJCJCJJ,CJCJCJC:Private Sub Class_Initialize():CJCJJJJ = 0:CJCJJJC = 0:CJCJCJC=10:End Sub:Public Property Let CCCJJCC(CJJJJJCC):if CJJJJJCC="" then Call RedirectMessage(CCCCJJJ("????????,;%C66????????????????????@??????????,"))
CJCJJCJ=CJJJJJCC:CJCJJCC=CCCCJJJ("!$*0") & UCase(CJCJJCJ):Call GetTreeArray:End Property:Public Property Get CCCJJCC():CCCJJCC=CJCJJCJ:End Property:::Private Sub GetTreeArray():Dim CJCCJC, CJCCCJ, CJCJCCJ,CJCJCCC:CJJCCCC = Application(CJCJJCC):If Not IsArray(CJJCCCC) Then
CJCCJJ = CCCCJJJ("D6=64E ,4@F?EW:5X ,7C@> ,") & CJCJJCJ:if CJCJCJJ<>"" then CJCCJJ=CJCCJJ & CCCCJJJ(" ,H96C6 ,") & CJCJCJJ
set CJCJCCJ=CJCJJJ.execute(CJCCJJ):CJCJCCC=CJCJCCJ(0):if CJCJCCC=0 then Call RedirectMessage(CCCCJJJ("????W") & CJCJJCJ & CCCCJJJ("^") & CJCJCJJ & CCCCJJJ("X????????????"))
CJCJJJC=CJCJCCC+CJCJCJC:ReDim CJJCCCC(CJCJJJC, 4):CJCCJJ = CCCCJJJ("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCJJCJ & CCCCJJJ(" ,H:E9 ,W?@=@4<X"):if CJCJCJJ<>"" then CJCCJJ=CJCCJJ & CCCCJJJ(" ,H96C6 ,") & CJCJCJJ
CJCCJJ=CJCCJJ & CCCCJJJ(" ,@C56C ,3J ,D@CE[:5"):set CJCJCCJ=CJCJJJ.execute(CJCCJJ):For CJCCJC = 1 To CJCJCCC:For CJCCCJ = 0 To 4:CJJCCCC(CJCCJC, CJCCCJ) = CJCJCCJ(CJCCCJ):if IsNull(CJJCCCC(CJCCJC,4)) then CJJCCCC(CJCCJC,4)=0
If CJJCCCC(CJCCJC,2)="" then CJJCCCC(CJCCJC,2)=CCCCJJJ(",??.")
Next:CJCJCCJ.MoveNext:Next:CJCJCCJ.Close: Set CJCJCCJ = Nothing:for CJCCJC=CJCJJJC-(CJCJCJC-1) to CJCJJJC:CJJCCCC(CJCCJC,0)=CJCCJC:next:Application.Lock():Application(CJCJJCC) = CJJCCCC:Application.UnLock()
else
CJCJJJC=Ubound(CJJCCCC)
End If:End Sub:::::Private Function CCCJCJJ(CJCCCCJ):dim CJCCJC,CJCCJJJ:CCCJCJJ=0:CJCCJJJ=CStr(CJCCCCJ):if CJCCJJJ<>"0" then
for CJCCJC=1 to CJCJJJC:If CStr(CJJCCCC(CJCCJC, 0))=CJCCJJJ Then
CCCJCJJ = CJCCJC:Exit For
End If:Next
end if:End Function::::Public Function CCCJCJC(CJCCCCJ):Dim CJCCJC,CJCCJJC:CJCCJC=CCCJCJJ(CJCCCCJ):if CJCCJC=0 then
CJCCJJC=CCCJCCJ(CJCCCCJ)
else
CJCCJJC=CJJCCCC(CJCCJC,3):if isnull(CJCCJJC) or CJCCJJC="" then
CJCCJJC=CCCJCCJ(CJCCCCJ)
elseif Mid(CJCCJJC,instrrev(CJCCJJC,CCCCJJJ("["))+1)<>CStr(CJCCCCJ) then
CJCCJJC=CCCJCCJ(CJCCCCJ)
elseif Left(CJCCJJC,1)=CCCCJJJ("[") then
CJCCJJC=CCCJCCJ(CJCCCCJ)
end if
end if:CCCJCJC=CJCCJJC:End Function:Private Function CCCJCCJ(CJCCCCJ):dim CJCCJJJ:CJCCJJJ=CStr(CJCCCCJ):if CJCCJJJ="0" then
CCCJCCJ=""
else
dim CJCJCCJ:set CJCJCCJ=CJCJJJ.execute(CCCCJJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCJJCJ & CCCCJJJ(" ,H96C6 ,:5l") & CJCCCCJ):if CJCJCCJ.eof then
Call UpdateCache(CJCCCCJ,"","","",""):Call RedirectMessage(CCCCJJJ("??????,xs??,") & CJCCCCJ & CCCCJJJ("??,????????,????????????????????,"))
else
if CJCJCCJ(0)=0 then
CCCJCCJ="0," & CJCCCCJ
else
CCCJCCJ=CCCJCJC(CJCJCCJ(0)) & CCCCJJJ("[") & CJCCCCJ
end if:if CJCJCCJ(2)<>CCCJCCJ then
CJCJJJ.execute CCCCJJJ("FA52E6 ,") & CJCJJCJ & CCCCJJJ(" ,D6E ,A2E9lV") & CCCJCCJ & CCCCJJJ("V ,H96C6 ,:5l") & CJCCCCJ
else
CCCJCCJ=CJCJCCJ(2)
end if
end if:Call UpdateCache(CJCCCCJ,CJCJCCJ(0),CJCJCCJ(1),CCCJCCJ,CJCJCCJ(3)):CJCJCCJ.Close: Set CJCJCCJ = Nothing
end if:End Function::::::::::::::::::::::Public Sub ClearCache():Application.Contents.Remove CJCJJCC
End Sub:Public Sub UpdateCache(CJCCCCJ,CJJJJCJJ,CJJJJCJC,CJCCJJC,CJJJJCCJ):dim CJCCJC,CJCCCJ:CJCCCCJ=CLng(CJCCCCJ):CJCCJC=CCCJCJJ(CJCCCCJ):if CJJJJCJJ="" and CJJJJCJC="" and CJCCJJC="" and CJJJJCCJ="" then
if CJCCJC>0 then
for CJCCCJ=1 to 4:CJJCCCC(CJCCJC,CJCCCJ)=Null:next
end if
else
if CJCCJC=0 then
for CJCCCJ=1 to CJCJJJC:if CJJCCCC(CJCCCJ,1) & ""="" then
CJCCJC=CJCCCJ:exit for
end if:next
end if:if CJCCJC=0 then
Call ClearCache
else
CJJCCCC(CJCCJC,0)=CLng(CJCCCCJ):if CJJJJCJJ<>"" then CJJCCCC(CJCCJC,1)=CLng(CJJJJCJJ)
if CJJJJCJC<>"" then CJJCCCC(CJCCJC,2)=CJJJJCJC
if CJCCJJC<>"" then CJJCCCC(CJCCJC,3)=CJCCJJC
if CJJJJCCJ<>"" then CJJCCCC(CJCCJC,4)=CLng(CJJJJCCJ)
end if
end if:if CJCCJC>0 then
Application.Lock():Application(CJCJJCC) = CJJCCCC:Application.UnLock()
end if:End Sub:Private Sub Debug(CJJJJJJJ):Call ConnClose:Response.Write CJJJJJJJ:Response.End:End Sub:Private Function CCJCCCJ():CCJCCCJ=CCCJCCC+1:End Function:Private Function CCCJCCC():dim CCCJJJ:set CCCJJJ=CJCJJJ.execute(CCCCJJJ("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CJCJJCJ & CCCCJJJ(" ,@C56C ,3J ,:5 ,56D4")):CCCJCCC=CCCJJJ(0):CCCJJJ.Close: Set CCCJJJ = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::dim CJJCCJJ:CJCCJJ=Request.ServerVariables(CCCCJJJ("!p%w0x}u~")):if instr(CJCCJJ,CCCCJJJ("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CJJJJCJ and not CJJCJJC then Call RedirectMessage(CCCCJJJ("????????,????????????????????????,"))
CJJCCJJ=CCCCCC
elseif instr(CJCCJJ,CCCCJJJ("^>^D49@@=^DEF56?E^"))>0 or instr(CJCCJJ,CCCCJJJ("^DEF56?E^"))>0 then
Call CheckLogined:CJJCCJJ=CCCCCC
elseif instr(CJCCJJ,CCCCJJJ("^D49@@="))>0 then
CJJCCJJ=Request.QueryString(CCCCJJJ("D49@@=")):if not CCJCCJC(CJJCCJJ) then CJJCCJJ=Request.QueryString(CCCCJJJ("F"))
if not CCJCCJC(CJJCCJJ) then CJJCCJJ=Request.QueryString(CCCCJJJ("D4"))
if not CCJCCJC(CJJCCJJ) then Call RedirectMessage(CCCCJJJ("????????W$49@@=X??@??????????,"))
CJJCCJJ=csng(CJJCCJJ)
end if:if CJJCCJJ=0 then Call RedirectMessage(CCCCJJJ("????????W$49@@=X????W_X??,"))
Dim CJCCJCJ:Call SetConfig:Sub SetConfig():dim CJCCJCC,CCCJJJ:CJCCJJ=CCCCJJJ("D6=64E ,E@A ,` ,;:2@H6:[EJA6[4FDE@>8C@FA[D:5632C0@E96C[E6DEC6DF=EG:6H[D>D0C646:G6C[766[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") & CJJCCJJ:set CCCJJJ=CJCJJJ.execute(CJCCJJ):if CCCJJJ.eof then Call RedirectMessage(CCCCJJJ("??W") & CCCJJC & CCCCJJJ("X??????????W") & CJJCCJJ & CCCCJJJ("X????????,"))
ReDim CJCCJCC(61):CJCCJCC(0)=CCCJJJ(CCCCJJJ(";:2@H6:")) & "":CJCCJCC(1)=CCCJJJ(CCCCJJJ("EJA6")):CJCCJCC(2)=CCCJJJ(CCCCJJJ("D>D")):CJCCJCC(3)=CCCJJJ(CCCCJJJ("4FDE@>8C@FA")) & "":CJCCJCC(4)=CCCJJJ(CCCCJJJ("D:5632C0@E96C")) & "":CJCCJCC(5)=IIf(isnull(CCCJJJ(CCCCJJJ("E6DEC6DF=EG:6H"))),0,CCCJJJ(CCCCJJJ("E6DEC6DF=EG:6H"))):CJCCJCC(6)=CCCJJJ(CCCCJJJ("K:IF?E:>6")):CJCCJCC(7)=CCCJJJ(CCCCJJJ("766")):CJCCJCC(8)=CCCJJJ(CCCCJJJ("C6E6DE52J")):CJCCJCC(9)=CCCJJJ(CCCCJJJ("6IA:C652E6")):CJCCJCC(10)=CCCJJJ(CCCCJJJ("E:E=6")):CJCCJCC(11)=CCCJJJ(CCCCJJJ(":?EC@")) & "":CJCCJCC(12)=CCCJJJ(CCCCJJJ("A:4EFC6")) & "":CJCCJCC(13)=CCCJJJ(CCCCJJJ("72>:=J")):CJCCJCC(14)=CCCJJJ(CCCCJJJ("4@AJC:89E")) & "":CJCCJCC(15)=IIf(isnull(CCCJJJ(CCCCJJJ("D6>6DE6C0DE2CE052E6"))),CCCCJJJ("`h__\`\`"),CCCJJJ(CCCCJJJ("D6>6DE6C0DE2CE052E6"))):CJCCJCC(16)=IIf(isnull(CCCJJJ(CCCCJJJ("K:IF?0E:>6D09:89=:89E"))),0,CCCJJJ(CCCCJJJ("K:IF?0E:>6D09:89=:89E"))):CJCCJCC(17)=CCCJJJ(CCCCJJJ("4@?E24E")) & "":CJCCJCC(18)=CCCJJJ(CCCCJJJ("D2?5E23=6")):CJCCJCC(19)=CCCJJJ(CCCCJJJ("4C:D:D")):CJCCJCC(20)=CCCJJJ(CCCCJJJ("JJ52E6")):CJCCJCC(21)=CCCJJJ(CCCCJJJ("BB")):CJCCJCC(22)=CCCJJJ(CCCCJJJ("JFJF60D>D0EA=")) & "":CJCCJCC(23)=CCCJJJ(CCCCJJJ("JFJF60E6DE0=3")) & "":CJCCJCC(25)=CCCJJJ(CCCCJJJ("6IA6CE")):CJCCJCC(26)=CCCJJJ(CCCCJJJ(">@5:?7@")):CJCCJCC(27)=CCCJJJ(CCCCJJJ("9@>6A286E@AA:4EFC6")) & "":CJCCJCC(28)=CCCJJJ(CCCCJJJ("4C:D:D=3")):CJCCJCC(29)=IIf(CCCJJJ(CCCCJJJ("4C:D:D@=5")),False,True):CJCCJCC(30)=CCCJJJ(CCCCJJJ("8C@FA8F:52?46")):CJCCJCC(31)=CCCJJJ(CCCCJJJ("3:@7665324<")):CJCCJCC(32)=CCCJJJ(CCCCJJJ("<6JDEC")):CJCCJCC(33)=CCCJJJ(CCCCJJJ("=@8@")) & "":CJCCJCC(34)=CCCJJJ(CCCCJJJ("K:46")):CJCCJCC(35)=IIf(CCCJJJ(CCCCJJJ(":D?6H")),True,False):CJCCJCC(36)=121:CJCCJCC(37)=111:CJCCJCC(38)=160:CJCCJCC(39)=CCCJJJ(CCCCJJJ("8F6DE3@@<")):CJCCJCC(40)=CCCJJJ(CCCCJJJ("75D")):CJCCJCC(42)=CCCJJJ(CCCCJJJ("9@>6=@8:?")):CJCCJCC(43)=CCCJJJ(CCCCJJJ("K:IF?0?6657665324<")):CJCCJCC(44)=CCCJJJ(CCCCJJJ("K:IF?0E:>6D0=:>:E")):CJCCJCC(45)=CCCJJJ(CCCCJJJ("4@>A=6E60:?7@")):CJCCJCC(46)=CCCJJJ(CCCCJJJ("E6DE:?EC@")) & "":CJCCJCC(47)=IIf(isnull(CCCJJJ(CCCCJJJ("JFJF60367@C60E:>6"))),0,CCCJJJ(CCCCJJJ("JFJF60367@C60E:>6"))):CJCCJCC(49)=CCCJJJ(CCCCJJJ("D>D0C646:G6C")):CJCCJCC(50)=CCCJJJ(CCCCJJJ("D>D0D:8?")) & "":CJCCJCC(52)=CCCJJJ(CCCCJJJ("JFJF602CC2?86")):CJCCJCC(53)=IIf(isnull(CCCJJJ(CCCCJJJ("DEF56?E0BF6DE:@?04@F?E"))),0,CCCJJJ(CCCCJJJ("DEF56?E0BF6DE:@?04@F?E"))):CJCCJCC(54)=CCCJJJ(CCCCJJJ("9:560=30@FE@7286")):CJCCJCC(55)=CCCJJJ(CCCCJJJ("JFJF60E6DE052JD")):CJCCJCC(56)=CCCJJJ(CCCCJJJ("JFJF60H66<0=:>:E")):CJCCJCC(57)=CCCJJJ(CCCCJJJ("JFJF604964<65")):CJCCJCC(58)=CCCJJJ(CCCCJJJ("K:IF?0?6657665324<0?6IE")):CJCCJCC(59)=CCCJJJ(CCCCJJJ("4964<?6HDEF56?E")):CJCCJCC(60)=CCCJJJ(CCCCJJJ("K:IF?04=@D6052E6")):CCCJJJ.close : set CCCJJJ=nothing:if isNull(CJCCJCC(8)) or CJCCJCC(8)="" then CJCCJCC(8)=0
if isdate(CJCCJCC(9)) then
CJCCJCC(9)=cdate(CJCCJCC(9)):if CJCCJCC(9)<Date then Call RedirectMessage(CCCCJJJ("????????,????????????????W") & CJCCJCC(9) & CCCCJJJ("X??????,"))
end if:if not CCJCCJC(CJCCJCC(20)) then CJCCJCC(20)=7
select case CJCCJCC(1):case 1,2,16:CJCCJCC(36)=159:case 4,5,6,10,11:CJCCJCC(36)=190:CJCCJCC(37)=178:CJCCJCC(38)=191:case 7,13:CJCCJCC(36)=164:CJCCJCC(37)=178:CJCCJCC(38)=179:end select:CJCCJCJ=CJCCJCC:End Sub:Function CCCJJJC(CJJJJCCC):dim CJCCJCC(7,1),CJCCJC,CJCCCJJ,CJCCCJC:CJCCCJJ=Array(CCCCJJJ("$49@@="),CCCCJJJ("$EF56?E"),CCCCJJJ("s6AE"),CCCCJJJ("vC256"),CCCCJJJ("r=2DD>2E6"),CCCCJJJ("}F>36C"),CCCCJJJ("%62496C"),CCCCJJJ("!2C6?E")):select case CJCCJCJ(1):case 1,2 : CJCCCJC=Array(CCCCJJJ("????"),CCCCJJJ("????"),CCCCJJJ("????"),CCCCJJJ("????"),CCCCJJJ("????"),CCCCJJJ("????"),CCCCJJJ("????"),CCCCJJJ("????")):case 3,16 : CJCCCJC=Array(CCCCJJJ("????"),CCCCJJJ("????"),CCCCJJJ("????"),CCCCJJJ("????"),CCCCJJJ("????"),CCCCJJJ("????"),CCCCJJJ("????"),CCCCJJJ("????")):case 4 : CJCCCJC=Array(CCCCJJJ("????"),CCCCJJJ("??????@"),CCCCJJJ("????"),CCCCJJJ("????"),CCCCJJJ("????"),CCCCJJJ("????"),CCCCJJJ("????"),CCCCJJJ("????")):case 5 : CJCCCJC=Array(CCCCJJJ("????"),CCCCJJJ("????"),CCCCJJJ("????"),CCCCJJJ("????"),CCCCJJJ("????"),CCCCJJJ("????"),CCCCJJJ("????"),CCCCJJJ("????")):case 6 : CJCCCJC=Array(CCCCJJJ("????"),CCCCJJJ("??????@"),CCCCJJJ("????"),CCCCJJJ("????"),CCCCJJJ("????"),CCCCJJJ("????"),CCCCJJJ("??????"),CCCCJJJ("????")):case 7 : CJCCCJC=Array(CCCCJJJ("????"),CCCCJJJ("????"),CCCCJJJ("????"),CCCCJJJ("????"),CCCCJJJ("????"),CCCCJJJ("????"),CCCCJJJ("??????"),CCCCJJJ("????")):case 8 : CJCCCJC=Array(CCCCJJJ("????"),CCCCJJJ("??????@"),CCCCJJJ("????"),CCCCJJJ("????????"),CCCCJJJ("????"),CCCCJJJ("????"),CCCCJJJ("??????"),CCCCJJJ("????")):case 9 : CJCCCJC=Array(CCCCJJJ("????"),CCCCJJJ("????"),CCCCJJJ("????"),CCCCJJJ("????"),CCCCJJJ("????"),CCCCJJJ("????"),CCCCJJJ("??????"),CCCCJJJ("????")):case 10 : CJCCCJC=Array(CCCCJJJ("????"),CCCCJJJ("????"),CCCCJJJ("????"),CCCCJJJ("????????"),CCCCJJJ("????"),CCCCJJJ("????"),CCCCJJJ("??????"),CCCCJJJ("????")):case 11 : CJCCCJC=Array(CCCCJJJ("????"),CCCCJJJ("??????"),CCCCJJJ("????"),CCCCJJJ("????"),CCCCJJJ("????"),CCCCJJJ("????"),CCCCJJJ("??????"),CCCCJJJ("????")):case 12 : CJCCCJC=Array(CCCCJJJ("????"),CCCCJJJ("????"),CCCCJJJ("????"),CCCCJJJ("????????"),CCCCJJJ("????"),CCCCJJJ("????"),CCCCJJJ("??????"),CCCCJJJ("????")):case 13 : CJCCCJC=Array(CCCCJJJ("????"),CCCCJJJ("????"),CCCCJJJ("????"),CCCCJJJ("????"),CCCCJJJ("????"),CCCCJJJ("????"),CCCCJJJ("????"),CCCCJJJ("????")):case 14 : CJCCCJC=Array(CCCCJJJ("??????"),CCCCJJJ("??@??"),CCCCJJJ("????"),CCCCJJJ("????"),CCCCJJJ("????"),CCCCJJJ("????"),CCCCJJJ("??????"),CCCCJJJ("????")):case 15 : CJCCCJC=Array(CCCCJJJ("????"),CCCCJJJ("????????"),CCCCJJJ("????"),CCCCJJJ("????????"),CCCCJJJ("????"),CCCCJJJ("????"),CCCCJJJ("??????"),CCCCJJJ("????")):case else : CJCCCJC=CJCCCJJ
end select:for CJCCJC=0 to Ubound(CJCCJCC):CJCCJCC(CJCCJC,0)=CJCCCJJ(CJCCJC):CJCCJCC(CJCCJC,1)=CJCCCJC(CJCCJC):next:for CJCCJC=0 to Ubound(CJCCJCC):if CJCCJCC(CJCCJC,0)=CJJJJCCC then
CCCJJJC=CJCCJCC(CJCCJC,1):exit for
end if:next:End Function::Const CCJCJJC=118:dim CJCCCCJ,CJCCCCC:CJCCCCJ=Request.QueryString(CCCCJJJ(":5")):CJCCCCC=Request.QueryString(CCCCJJJ("24E")):if not CCJCCJC(CJCCCCJ) then response.Redirect CCCCJJJ("]")
if CJCCJCJ(19) then response.Redirect CCCCJJJ("?6H^G:6H]2DAnD49@@=l") & CJJCCJJ & CCCCJJJ("U:5l") & CJCCCCJ
dim CCJJJJJ,CCJJJJC,CCJJJCJ,CCJJJCC,CCJJCJJ,CCJJCJC,typename:set CJCJCJ=CJCJJJ.execute(CCCCJJJ("D6=64E ,E@A ,` ,Y ,7C@> ,G02CE:4=6 ,H96C6 ,:5l") & CJCCCCJ):if CJCJCJ.eof then Call RedirectMessage(CCCCJJJ("??????????M????????,??????????????????????????,"))
CCJJJJJ=CJCJCJ(CCCCJJJ("E:E=6")):CCJJCJC=CJCJCJ(CCCCJJJ("?:4<?2>6")):CCJJJJC=CJCJCJ(CCCCJJJ("4@?E6?E")):CCJJJCJ=CJCJCJ(CCCCJJJ("9:E")):CCJJJCC=CJCJCJ(CCCCJJJ("EJA6")):typename=CJCJCJ(CCCCJJJ("EJA6?2>6")):CCJJCJJ=CJCJCJ(CCCCJJJ("52E6E:>6")):CJCJJJ.execute CCCCJJJ("FA52E6 ,2CE:4=6 ,D6E ,9:El9:EZ` ,H96C6 ,:5l") & CJCCCCJ:Response.Write(vbCrLf):Response.Write(CCCCJJJ("kP5@4EJA6 ,9E>=m") & vbCrLf):Response.Write(CCCCJJJ("k9E>=m") & vbCrLf):Response.Write(CCCCJJJ("k9625m") & vbCrLf):Response.Write(CCCCJJJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CCCCJJJ("kE:E=6m")):Response.Write  CJCCJCJ(10):Response.Write(CCCCJJJ("\")):Response.Write  CCJJJJJ:Response.Write(CCCCJJJ("k^E:E=6m") & vbCrLf):Response.Write(CCCCJJJ("k=:?< ,9C67lQDEJ=6^5672F=E^DEJ=6]4DDQ ,C6=lQDEJ=6D966EQm") & vbCrLf):Response.Write(CCCCJJJ("kDEJ=6m") & vbCrLf):Response.Write(CCCCJJJ("A ,L ,E6IE\:?56?Ei ,_6>j ,N") & vbCrLf):Response.Write(CCCCJJJ("k^DEJ=6m") & vbCrLf):Response.Write(CCCCJJJ("k^9625m") & vbCrLf):Response.Write(CCCCJJJ("k3@5Jm") & vbCrLf):Response.Write(CCCCJJJ("k5:G ,:5lQ4@?E2:?6CQm") & vbCrLf):Response.Write(CCCCJJJ(" ,k5:G ,:5lQ96256CQm") & vbCrLf):Response.Write(CCCCJJJ(" ,")):If CJCCJCJ(20)="" Then
Response.Write(vbCrLf):Response.Write(CCCCJJJ(" ,k9` ,DEJ=6lQ324<8C@F?5iFC=WDEJ=6^5672F=E^96256C];A8X ,?@\C6A62EjQmkDA2?m")):Response.Write  CJCCJCJ(10):Response.Write(CCCCJJJ("k^DA2?mk^9`m") & vbCrLf):Response.Write(CCCCJJJ(" ,"))
Else
Response.Write(vbCrLf):Response.Write(CCCCJJJ(" ,k9` ,DEJ=6lQ324<8C@F?5iFC=W")):Response.Write  CJCCJCJ(20):Response.Write(CCCCJJJ("X ,?@\C6A62EjQmk^9`m") & vbCrLf):Response.Write(CCCCJJJ(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CCCCJJJ(" ,kF= ,:5lQ?2GQm") & vbCrLf):Response.Write(CCCCJJJ(" ,k=:mk2 ,9C67lQ:?56I]2DAn$49@@=l")):Response.Write  CJJCCJJ:Response.Write(CCCCJJJ("Qm????k^2mk^=:m") & vbCrLf):Response.Write(CCCCJJJ(" ,")):set CJCJCJ=CJCJJJ.execute(CCCCJJJ("D6=64E ,:5[?2>6 ,7C@> ,2CE:4=60EJA6 ,H96C6 ,A2C:5l") & CCJCJJC & CCCCJJJ(" ,2?5 ,>6>36CEJA6l") & CJJCCJJ & CCCCJJJ(" ,@C56C ,3J ,D@CE")):while not CJCJCJ.eof:response.Write CCCCJJJ("k=:mk2 ,9C67lV=:DE]2DAn$49@@=l") & CJJCCJJ & CCCCJJJ("UEJA6:5l") & CJCJCJ(0) & CCCCJJJ("Vm") & CJCJCJ(1) & CCCCJJJ("k^2mk^=:m")
CJCJCJ.movenext:wend:Response.Write(vbCrLf):Response.Write(CCCCJJJ(" ,k^F=m") & vbCrLf):Response.Write(CCCCJJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCCCJJJ(" ,k5:G ,:5lQ>2:?Qm") & vbCrLf):Response.Write(CCCCJJJ(" ,k5:G ,:5lQ>2:?4@?E6?EQm") & vbCrLf):Response.Write(CCCCJJJ(" ,k5:G ,:5lQH96C6Qm ,??????????,k2 ,9C67lQ:?56I]2DAn$49@@=l")):Response.Write  CJJCCJJ:Response.Write(CCCCJJJ("Qm????k^2m ,U8EjU8Ej ,k2 ,9C67lQ=:DE]2DAn$49@@=l")):Response.Write  CJJCCJJ:Response.Write(CCCCJJJ("UEJA6:5l")):Response.Write  CCJJJCC:Response.Write(CCCCJJJ("Qm")):Response.Write  typename:Response.Write(CCCCJJJ("k^2m ,U8EjU8Ej ,")):Response.Write  CCJJJJJ:Response.Write(CCCCJJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCCCJJJ(" ,k5:G ,:5lQG:6HQm") & vbCrLf):Response.Write(CCCCJJJ(" ,k9am")):Response.Write  CCJJJJJ:Response.Write(CCCCJJJ("k^9am") & vbCrLf):Response.Write(CCCCJJJ(" ,k5:G ,4=2DDlQ:?7@Qm")):Response.Write  CCJJCJJ & CCCCJJJ(" ,,??????@.") & CCJJCJC & CCCCJJJ(" ,??????,") & CCJJJCJ & CCCCJJJ("??"):Response.Write(CCCCJJJ("k^5:Gm") & vbCrLf):Response.Write(CCCCJJJ(" ,k5:G ,4=2DDlQ4@?E6?EQm")):Response.Write  CCJJJJC:Response.Write(vbCrLf):Response.Write(CCCCJJJ(" ,k:?AFE ,EJA6lQ9:556?Q ,?2>6lQ>6>:5Q ,:5lQ>6>:5Q ,G2=F6lQ")):Response.Write  CCCJJC:Response.Write(CCCCJJJ("Qm") & vbCrLf):Response.Write(CCCCJJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCCCJJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCCCJJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCCCJJJ(" ,k5:G ,:5lQD:56Qm") & vbCrLf):Response.Write(CCCCJJJ(" ,")):If CCCJJC=0 Then
Response.Write(vbCrLf):Response.Write(CCCCJJJ(" ,k5:G ,4=2DDlQE:E=6Q ,:5lQ=@8Qm????????k^5:Gm") & vbCrLf):Response.Write(CCCCJJJ(" ,k5:G ,4=2DDlQ4@?E6?EQm") & vbCrLf):Response.Write(CCCCJJJ(" ,k7@C> ,?2>6lQ7@C>0=@8:?Q ,>6E9@5lQA@DEQ ,24E:@?lQ=@8:?]2DAQ ,@?$F3>:ElQ;2G2D4C:AEiE9:D]24E:@?lE9:D]D6=64E]G2=F6Qm") & vbCrLf):Response.Write(CCCCJJJ(" ,????,????,") & vbCrLf):Response.Write(CCCCJJJ(" ,kD6=64E ,?2>6lQD6=64EQ ,:5lQD6=64EQ ,DEJ=6lQH:5E9i``aAIQ ,@?r92?86lQ;2G2D4C:AEi7@C>0=@8:?]FD6C?2>6]7@4FDWXjQm") & vbCrLf):Response.Write(CCCCJJJ(" ,k@AE:@? ,G2=F6lQ]]^DEF56?E^=@8:?]2DAQm")):Response.Write  CCCJJJC(CCCCJJJ("$EF56?E")):Response.Write(CCCCJJJ("k^@AE:@?m") & vbCrLf):Response.Write(CCCCJJJ(" ,k@AE:@? ,G2=F6lQ]]^>6>36C^=@8:?]2DAQm??????k^@AE:@?m") & vbCrLf):Response.Write(CCCCJJJ(" ,k@AE:@? ,G2=F6lQ]]^>6>36C^=@8:?]2DAQm")):Response.Write  CCCJJJC(CCCCJJJ("%62496C")):Response.Write(CCCCJJJ("k^@AE:@?m") & vbCrLf):Response.Write(CCCCJJJ(" ,k@AE:@? ,G2=F6lQ]]^>6>36C^=@8:?]2DAQm")):Response.Write  CCCJJJC(CCCCJJJ("!2C6?E")):Response.Write(CCCCJJJ("k^@AE:@?m") & vbCrLf):Response.Write(CCCCJJJ(" ,k^D6=64Em") & vbCrLf):Response.Write(CCCCJJJ(" ,k3Cm") & vbCrLf):Response.Write(CCCCJJJ(" ,????,????,") & vbCrLf):Response.Write(CCCCJJJ(" ,k:?AFE ,?2>6lQFD6C?2>6Q ,EJA6lQE6IEQ ,:5lQFD6C?2>6Q ,D:K6lQ`eQ ,4=2DDlQE6IEQ ,E:E=6lQ")):Response.Write  CCCJJJC(CCCCJJJ("$EF56?E")):Response.Write(CCCCJJJ("??")):Response.Write  CCCJJJC(CCCCJJJ("}F>36C")):Response.Write(CCCCJJJ("??????????????,")):Response.Write  CCCJJJC(CCCCJJJ("%62496C")):Response.Write(CCCCJJJ("??")):Response.Write  CCCJJJC(CCCCJJJ("!2C6?E")):Response.Write(CCCCJJJ("??xs??,????????,??????????????????????????Qm") & vbCrLf):Response.Write(CCCCJJJ(" ,k3Cm") & vbCrLf):Response.Write(CCCCJJJ(" ,????,????,") & vbCrLf):Response.Write(CCCCJJJ(" ,k:?AFE ,?2>6lQA2DDH@C5Q ,EJA6lQA2DDH@C5Q ,D:K6lQ`eQ ,4=2DDlQE6IEQ ,2FE@4@>A=6E6lQ@77Qm") & vbCrLf):Response.Write(CCCCJJJ(" ,k5:G ,2=:8?lQ46?E6CQm") & vbCrLf):Response.Write(CCCCJJJ(" ,k:?AFE ,EJA6lQDF3>:EQ ,?2>6lQ3FEE@?Q ,G2=F6lQ?? ,??Q ,4=2DDlQ3FEE@?Qm") & vbCrLf):Response.Write(CCCCJJJ(" ,")):If CJCCJCJ(1)<=3 Then
Response.Write(vbCrLf):Response.Write(CCCCJJJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,?2>6lQ3FEE@?aQ ,G2=F6lQ????????Q ,4=2DDlQ3FEE@?Q ,@?r=:4<lQ;2G2D4C:AEi=@42E:@?lVC68:DE]2DAn&l")):Response.Write  CJJCCJJ:Response.Write(CCCCJJJ("U4@>6FC=l")):Response.Write  CCJCJCC:Response.Write(CCCCJJJ("VQm") & vbCrLf):Response.Write(CCCCJJJ(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CCCCJJJ(" ,k:?AFE ,EJA6lQ9:556?Q ,?2>6lQD49@@=Q ,G2=F6lQ")):Response.Write  CJJCCJJ:Response.Write(CCCCJJJ("Qm") & vbCrLf):Response.Write(CCCCJJJ(" ,k:?AFE ,EJA6lQ9:556?Q ,?2>6lQ4@>6FC=Q ,G2=F6lQ")):Response.Write  CCJCJCC:Response.Write(CCCCJJJ("Qm") & vbCrLf):Response.Write(CCCCJJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCCCJJJ(" ,k^7@C>m") & vbCrLf):Response.Write(CCCCJJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCCCJJJ(" ,"))
Else
Response.Write(vbCrLf):Response.Write(CCCCJJJ(" ,k9b ,:5lQ=@8Qm????????k^9bm") & vbCrLf):Response.Write(CCCCJJJ(" ,kF= ,4=2DDlQ4@?E6?EQm") & vbCrLf):Response.Write(CCCCJJJ(" ,k=:mk2 ,9C67lQ]]^DEF56?E^:?56I]2DAQm????????k^2mk^=:m") & vbCrLf):Response.Write(CCCCJJJ(" ,k=:mk2 ,9C67lQ]]^DEF56?E^>J:?7@]2DAQm????????????k^2mk^=:m") & vbCrLf):Response.Write(CCCCJJJ(" ,")):If CJJJJCJ Then
Response.Write(vbCrLf):Response.Write(CCCCJJJ(" ,k=:mk2 ,9C67lV25>:?^>2:?]2DAVm????????k^2mk^=:m") & vbCrLf):Response.Write(CCCCJJJ(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CCCCJJJ(" ,k=:mk2 ,9C67lQ]]^>6>36C^=@8@FE]2DAQm????????k^2mk^=:m") & vbCrLf):Response.Write(CCCCJJJ(" ,k^F=m") & vbCrLf):Response.Write(CCCCJJJ(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CCCCJJJ(" ,k9C ,D:K6lQ`Q ,4@=@ClQRuuuuuuQm") & vbCrLf):Response.Write(CCCCJJJ(" ,k9b ,:5lQD62C49Qm????????????k^9bm") & vbCrLf):Response.Write(CCCCJJJ(" ,k5:G ,4=2DDlQ4@?E6?EQm")):Response.Write  CJCCJCJ(14):Response.Write(CCCCJJJ("k^5:Gm") & vbCrLf):Response.Write(CCCCJJJ(" ,k9C ,D:K6lQ`Q ,4@=@ClQRuuuuuuQm") & vbCrLf):Response.Write(CCCCJJJ(" ,k9b ,:5lQD62C49Qm????@????k^9bm") & vbCrLf):Response.Write(CCCCJJJ(" ,k5:G ,4=2DDlQ4@?E6?EQm") & vbCrLf):Response.Write(CCCCJJJ(" ,k7@C> ,:5lQ7@C>`Q ,?2>6lQ7@C>`Q ,>6E9@5lQ86EQ ,24E:@?lQ=:DE]2DAQm") & vbCrLf):Response.Write(CCCCJJJ(" ,k:?AFE ,EJA6lQE6IEQ ,?2>6lQH@C5Q ,4=2DDlQE6IEQ ,E:E=6lQ??????????????Qm") & vbCrLf):Response.Write(CCCCJJJ(" ,k:?AFE ,EJA6lQDF3>:EQ ,?2>6lQ3FEE@?bQ ,G2=F6lQ?? ,??Q ,4=2DDlQ3FEE@?Qm") & vbCrLf):Response.Write(CCCCJJJ(" ,k^7@C>m") & vbCrLf):Response.Write(CCCCJJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCCCJJJ(" ,k9C ,D:K6lQ`Q ,4@=@ClQRuuuuuuQm") & vbCrLf):Response.Write(CCCCJJJ(" ,k9b ,:5lQ9@EQm????????k^9bm") & vbCrLf):Response.Write(CCCCJJJ(" ,kF= ,4=2DDlQ4@?E6?EQm") & vbCrLf):Response.Write(CCCCJJJ(" ,")):set CJCJCJ=CJCJJJ.execute(CCCCJJJ("D6=64E ,E@A ,`_ ,:5[E:E=6[52E6E:>6[EJA6?2>6[9:E[52E6E:>6 ,7C@> ,G02CE:4=6 ,H96C6 ,DE2EFDl_ ,2?5 ,A2CEJA6l") & CCJCJJC & CCCCJJJ(" ,2?5 ,>6>36CEJA6l") & CJJCCJJ & CCCCJJJ(" ,@C56C ,3J ,9:E ,56D4")):while not CJCJCJ.eof:response.Write CCCCJJJ("k=:mk2 ,9C67lVG:6H]2DAn$49@@=l") & CJJCCJJ & CCCCJJJ("U:5l") & CJCJCJ(0) & CCCCJJJ("V ,E:E=6lV??????,") & CJCJCJ(1) & CCCCJJJ("UR`bj??????,") & CJCJCJ(3) & CCCCJJJ("UR`bj??????,") & CJCJCJ(5) & CCCCJJJ("UR`bj??????,") & CJCJCJ(4) & CCCCJJJ("Vm") & CCJCCJJ(CJCJCJ(1),26) & CCCCJJJ("k^2mk^=:m")
CJCJCJ.movenext:wend:Response.Write(vbCrLf):Response.Write(CCCCJJJ(" ,k^F=m") & vbCrLf):Response.Write(CCCCJJJ(" ,k9C ,D:K6lQ`Q ,4@=@ClQRuuuuuuQm") & vbCrLf):Response.Write(CCCCJJJ(" ,k9b ,:5lQD62C49Qm????k^9bm") & vbCrLf):Response.Write(CCCCJJJ(" ,k5:G ,4=2DDlQ4@?E6?EQm")):Response.Write  CJCCJCJ(4):Response.Write(CCCCJJJ("k^5:Gm") & vbCrLf):Response.Write(CCCCJJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCCCJJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCCCJJJ(" ,k5:G ,:5lQ7@@EQm") & vbCrLf):Response.Write(CCCCJJJ(" ,k5:G ,4=2DDlQ56A2CE>6?EQm")):Response.Write  CCCCJJJ("??????????????????,") & CJCCJCJ(10):Response.Write(CCCCJJJ("k^5:Gm") & vbCrLf):Response.Write(CCCCJJJ(" ,k5:G ,4=2DDlQ4@AJC:89EQm")):Response.Write  replace(CJCCJCJ(11),vbcrlf,CCCCJJJ("k3C ,^m")):Response.Write(CCCCJJJ("k^5:Gm") & vbCrLf):Response.Write(CCCCJJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCCCJJJ("k^5:Gm") & vbCrLf):Response.Write(CCCCJJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCCJJJ("kD4C:AE ,DC4lQ]]^$4C:AED^;BF6CJ]7@?E67764E];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCCJJJ("kD4C:AEm") & vbCrLf):Response.Write(CCCCJJJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CCCCJJJ(" ,SWVR96256Cm9`mDA2?VX]u@?Et7764EWL") & vbCrLf):Response.Write(CCCCJJJ(" ,@FE=:?6iECF6[") & vbCrLf):Response.Write(CCCCJJJ(" ,@FE=:?6r@=@C`iVRuuuV[") & vbCrLf):Response.Write(CCCCJJJ(" ,@FE=:?6(6:89Eia[") & vbCrLf):Response.Write(CCCCJJJ(" ,D925@HiECF6[") & vbCrLf):Response.Write(CCCCJJJ(" ,D925@Hr@=@CiVRbbbV[") & vbCrLf):Response.Write(CCCCJJJ(" ,D925@H~77D6E%@Aia[") & vbCrLf):Response.Write(CCCCJJJ(" ,D925@H~77D6E{67Eia[") & vbCrLf):Response.Write(CCCCJJJ(" ,D925@H~A24:EJi_]b[") & vbCrLf):Response.Write(CCCCJJJ(" ,8C25:6?EiECF6[") & vbCrLf):Response.Write(CCCCJJJ(" ,8C25:6?Er@=@CiVR__chf3V") & vbCrLf):Response.Write(CCCCJJJ(" ,NX") & vbCrLf):Response.Write(CCCCJJJ(" ,SWVRD:56VX]96:89EWSWVR>2:?VX]96:89EWXX") & vbCrLf):Response.Write(CCCCJJJ(" ,SWVR4@>6FC=VX]G2=W=@42E:@?]9C67X") & vbCrLf):Response.Write(CCCCJJJ(" ,SWV2i4@?E2:?DWQ????????QXVX]2EECWV9C67V[7F?4E:@?W:[G2=XLC6EFC? ,G2=ZVn4@>6FC=lVZ=@42E:@?]9C67NX") & vbCrLf):Response.Write(CCCCJJJ("NX") & vbCrLf):Response.Write(CCCCJJJ("k^D4C:AEm") & vbCrLf):Response.Write(CCCCJJJ("k^3@5Jm") & vbCrLf):Response.Write(CCCCJJJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJJCCCC=nothing:set CCJCCCC=nothing:set CCCJJJJ=nothing:set CCCJJJC=nothing:CJCJCC.Close:Set CJCJCC=Nothing:CJCJCJ.Close:Set CJCJCJ=Nothing:CJCJJJ.Close:Set CJCJJJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CCCCJJJ(ByVal CCJCJC)
Dim CCJJCCC, CJCCJC, CJCCCC
CCJCJC = Replace(CCJCJC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJCCJC = 1 To Len(CCJCJC)
If CJCCJC <> CJCCCC Then
CCJJCCC = AscW(Mid(CCJCJC, CJCCJC, 1))
If CCJJCCC >= 33 And CCJJCCC <= 79 Then
CCCCJJJ = CCCCJJJ & Chr(CCJJCCC + 47)
ElseIf CCJJCCC >= 80 And CCJJCCC <= 126 Then
CCCCJJJ = CCCCJJJ & Chr(CCJJCCC - 47)
Else
CJCCCC = CJCCJC + 1
If Mid(CCJCJC, CJCCCC, 1) = Chr(64) Then CCCCJJJ = CCCCJJJ & ChrW(CCJJCCC + 5) Else CCCCJJJ = CCCCJJJ & Mid(CCJCJC, CJCCJC, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de