Edit D:\xinhaisoft\crisis_new\student\intro.asp

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJJCCC, CJCJJJ,CJCJJC, CJCJCJ, CJCJCC:Set CJJCCC = server.CreateObject(CCJCJJJ("ps~sq]r@??64E:@?")):CJJCCC.open Application(CCJCJJJ("r@??64E:@?$EC:?8")):Set CJCJJJ=CJJCCC::Dim CJCCJJ,CJCCJC,CJCCCJ,CJCCCC,CCJJJJ,CCJJJC,CCJJCJ,CCJJCC,CCJCJJ:Dim CCJCJC,CCJCCJ,CCJCCC,CCCJJJ,CCCJJC,CCCJCJ:Dim CCCJCC,CCCCJJ,CCCCJC:Dim CCCCCJ:CCCCCJ=Trim(Request.Cookies(CCJCJJJ("!$*|t|qt#"))):if CCCCCJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJCCJJ>0 then
CJCJCC=CCJCJJJ("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") & CJCCJC & CCJCJJJ("V ,2?5 ,:5l") & CJCCJJ
set CJCJJC=CJJCCC.execute(CJCJCC):If CJCJJC.EOF Then
Call ClearMemberCookie
Else
CJCCCJ=CJCJJC(2) & "":CJCCCC=CJCJJC(3):CCJJJJ=CJCJJC(5):CCJJJC=CJCJJC(6):CCJJCJ=CJCJJC(9):CCJJCC=CJCJJC(15):CCJCJC=CJCJJC(0):CCCCJJ=CJCJJC(1):CCCJCC=CJCJJC(11) & "":CCJCCJ=CJCJJC(10) & "":CCJCJJ=CJCJJC(12):CCJCCC=CJCJJC(14):CCCJJJ=CJCJJC(13):CCCJJC=CJCJJC(7) & "":CCCJCJ=CJCJJC(4):CCCCJC=CJCJJC(8):if isnull(CCJJCC) then CCJJCC=0
if isnull(CCJJCJ) or CCJJCJ=0 then CCJJCJ=CJCCCC
if isnull(CCCJCJ) then CCCJCJ=0
if isnull(CCJJJJ) then CCJJJJ=0
if instr(CCJCJJJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CJCCJC)>0 then Call RedirectMessage(CCJCJJJ("????????,????????????????????????????????,"))
Call SetMemberCookie(CJCCJJ,CJCCJC)
End IF
end if:::Sub CheckLogined():if CJCCJJ=0 then
Call ClearMemberCookie:Call ConnClose:dim CCCCCC:CCCCCC=trim(request.QueryString(CCJCJJJ("D49@@="))):if isnumeric(CCCCCC) then
response.Redirect CCJCJJJ("^>^G2?E^R^D49@@=^") & CCCCCC & CCJCJJJ("^DEF56?E^=@8:?nC65:C64El") & url
else
Call RedirectMessage(CCJCJJJ("??????????????,????????????,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CCJCJJJ("!$*|t|qt#"))="":CJCCJJ=0:CCJJJC=0:CJCCJC=Empty:CCJJJJ=0:CCJJCC=0:CCJJCJ=0:CJCCCC=0:CCJCJC=False:CCCCJJ=False:CCCCJC=Empty:End Sub:Sub CheckMemberCookie():dim CJJJJJJ,CJJJJJC,CJJJJCJ,CJJJJCC,CJJJCJJ:CJJJJJJ=split(CCCCCJ,CCJCJJJ("]")):if ubound(CJJJJJJ)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJJJJJJ(0)) or len(CJJJJJJ(1))<>32 or len(CJJJJJJ(2))<>32 then
Call ClearMemberCookie
else
CJJJJJC=CJJJJJJ(1):for CJJJJCJ=1 to len(CJJJJJC):CJJJJCC=mid(CJJJJJC,CJJJJCJ,1):if isnumeric(CJJJJCC) then CJJJCJJ=CJJJCJJ & CJJJJCC
if len(CJJJCJJ)=7 then exit for
next:CJJJJJC=CJJJJJJ(2):if CJJJCJJ<>mid(CJJJJJC,6,7) then
Call ClearMemberCookie
else
CJJJJCC=mid(CJJJJJC,18,10)/2:if CJJJJCC<DateDiff(CCJCJJJ("D"), CCJCJJJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJCCJJ=Clng(CJJJJJJ(0)):CJCCJC=CJJJJJJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCJJCJC,CCJCJJC):dim CJJJJCJ,CJJJJCC,CJJJCJJ:for CJJJJCJ=1 to len(CCJCJJC):CJJJJCC=mid(CCJCJJC,CJJJJCJ,1):if isnumeric(CJJJJCC) then CJJJCJJ=CJJJCJJ & CJJJJCC
if len(CJJJCJJ)=7 then exit for
next:CJJJCJJ=CCJJCJC & CCJCJJJ("]") & CCJCJJC & CCJCJJJ("]") & Fix(10000*(Rnd+1)) & CJJJCJJ & Fix(10000*(Rnd+1)) & DateDiff(CCJCJJJ("D"), CCJCJJJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CCJCJJJ("!$*|t|qt#"))=CJJJCJJ:End Sub:::Function IIf(CCJCJCJ, CCJCJCC, CCJCCJJ):if isnull(CCJCJCJ) or isempty(CCJCJCJ) then
IIf = CCJCCJJ
elseif CCJCJCJ Then
IIf = CCJCJCC
Else
IIf = CCJCCJJ
end if:End Function:Const CJCCJJC="^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 CJJJJCJ,CJJJJCC,CJJJCJC:if isarray(str) then
on error resume next:CJJJJCJ=ubound(str,2):CJJJCJC=err.number:err.clear:on error goto 0:if CJJJCJC<>0 then
for CJJJJCJ=0 to ubound(str):if CJJJJCJ>0 then response.Write CCJCJJJ("k3C ,^m")
response.Write CJJJJCJ & CCJCJJJ("i ,") & str(CJJJJCJ):next
else
response.Write CCJCJJJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CJJJJCJ=0 to ubound(str,2):response.Write CCJCJJJ("kE9 ,2=:8?lV=67EVm") & CJJJJCJ & CCJCJJJ("k^E9m")
next:response.Write CCJCJJJ("k^ECm"):for CJJJJCJ=0 to ubound(str):response.Write CCJCJJJ("kECmkE9m") & CJJJJCJ & CCJCJJJ("k^E9m"):for CJJJJCC=0 to ubound(str,2):response.Write CCJCJJJ("kE5m") & str(CJJJJCJ,CJJJJCC) & CCJCJJJ("k^E5m"):next:response.Write CCJCJJJ("k^ECm"):next:response.Write CCJCJJJ("k^E23=6m")
end if
elseif isnull(str) then
response.Write CCJCJJJ(",}F==.")
else
Response.Write replace(str,vbcrlf,CCJCJJJ("k3Cm"))
end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CCJCCCJ,CCJCCCC):dim CJJJJJJ:CJJJJJJ=CCJCCCJ & CCJCJJJ("l") & CCJCCCC & CCJCJJJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCJCJJJ("$6E\r@@<:6"),CJJJJJJ):End Sub:::::::Function CJCCJCC(CJJJCJC):if isnull(CJJJCJC) or trim(CJJJCJC)="" or not isnumeric(CJJJCJC) then
CJCCJCC=false
else
Dim CJJJCCJ:Set CJJJCCJ = New RegExp:CJJJCCJ.Pattern = CCJCJJJ("/-5ZS"):CJJJCCJ.IgnoreCase = True:CJCCJCC = CJJJCCJ.test(CJJJCJC):set CJJJCCJ=nothing
end if:End Function:Function CJCCCJJ(CCCJJJJ):dim CJJJCCC,CJJCJJJ:CJJJCCC=CCJCJJJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CCCJJJJ & CCJCJJJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJJCJJJ=CJJCCC.execute(CJJJCCC):CJCCCJJ = CJJCJJJ(0):if isnull(CJCCCJJ) then CJCCCJJ=1
CJJCJJJ.close : set CJJCJJJ=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CJJCJJC=nothing:set CJCCCJC=nothing:set CJCCCCJ=nothing:set CJCCCCC=nothing:CJJCJJJ.close : set CJJCJJJ=nothing:CJCJCJ.Close : Set CJCJCJ=Nothing:CJCJJC.Close : Set CJCJJC=Nothing:CCJJJJJ.Close : Set CCJJJJJ = Nothing:CJJCCC.Close : Set CJJCCC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCCJJJC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCJCJJJ("!$*0|6DD286"),server.URLEncode(CCCJJJC)):Response.Redirect CCJCJJJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::::::::::::Sub ClearCache(CCCJJCJ):Application.Contents.Remove CCCJJCJ
End Sub::Class jTree:Private CJCJCC, CJJCJJC, CJJCJCJ, CJJCJCC,CJJCCJJ,CJJCCJC,CJJCCCJ,CJJCCCC:Private Sub Class_Initialize():CJJCJCJ = 0:CJJCJCC = 0:CJJCCCC=10:End Sub:Public Property Let CCJJJJC(CCCJJCC):if CCCJJCC="" then Call RedirectMessage(CCJCJJJ("????????,;%C66????????????????????@??????????,"))
CJJCCJJ=CCCJJCC:CJJCCJC=CCJCJJJ("!$*0") & UCase(CJJCCJJ):Call GetTreeArray:End Property:Public Property Get CCJJJJC():CCJJJJC=CJJCCJJ:End Property:::Private Sub GetTreeArray():Dim CJJJJCJ, CJJJJCC, CJCJJJJ,CJCJJJC:CJJCJJC = Application(CJJCCJC):If Not IsArray(CJJCJJC) Then
CJCJCC = CCJCJJJ("D6=64E ,4@F?EW:5X ,7C@> ,") & CJJCCJJ:if CJJCCCJ<>"" then CJCJCC=CJCJCC & CCJCJJJ(" ,H96C6 ,") & CJJCCCJ
set CJCJJJJ=CJJCCC.execute(CJCJCC):CJCJJJC=CJCJJJJ(0):if CJCJJJC=0 then Call RedirectMessage(CCJCJJJ("????W") & CJJCCJJ & CCJCJJJ("^") & CJJCCCJ & CCJCJJJ("X????????????"))
CJJCJCC=CJCJJJC+CJJCCCC:ReDim CJJCJJC(CJJCJCC, 4):CJCJCC = CCJCJJJ("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCCJJ & CCJCJJJ(" ,H:E9 ,W?@=@4<X"):if CJJCCCJ<>"" then CJCJCC=CJCJCC & CCJCJJJ(" ,H96C6 ,") & CJJCCCJ
CJCJCC=CJCJCC & CCJCJJJ(" ,@C56C ,3J ,D@CE[:5"):set CJCJJJJ=CJJCCC.execute(CJCJCC):For CJJJJCJ = 1 To CJCJJJC:For CJJJJCC = 0 To 4:CJJCJJC(CJJJJCJ, CJJJJCC) = CJCJJJJ(CJJJJCC):if IsNull(CJJCJJC(CJJJJCJ,4)) then CJJCJJC(CJJJJCJ,4)=0
If CJJCJJC(CJJJJCJ,2)="" then CJJCJJC(CJJJJCJ,2)=CCJCJJJ(",??.")
Next:CJCJJJJ.MoveNext:Next:CJCJJJJ.Close: Set CJCJJJJ = Nothing:for CJJJJCJ=CJJCJCC-(CJJCCCC-1) to CJJCJCC:CJJCJJC(CJJJJCJ,0)=CJJJJCJ:next:Application.Lock():Application(CJJCCJC) = CJJCJJC:Application.UnLock()
else
CJJCJCC=Ubound(CJJCJJC)
End If:End Sub:::::Private Function CCJJJCJ(CCJJCJC):dim CJJJJCJ,CJCJJCJ:CCJJJCJ=0:CJCJJCJ=CStr(CCJJCJC):if CJCJJCJ<>"0" then
for CJJJJCJ=1 to CJJCJCC:If CStr(CJJCJJC(CJJJJCJ, 0))=CJCJJCJ Then
CCJJJCJ = CJJJJCJ:Exit For
End If:Next
end if:End Function::::Public Function CCJJJCC(CCJJCJC):Dim CJJJJCJ,CJCJJCC:CJJJJCJ=CCJJJCJ(CCJJCJC):if CJJJJCJ=0 then
CJCJJCC=CCJJCJJ(CCJJCJC)
else
CJCJJCC=CJJCJJC(CJJJJCJ,3):if isnull(CJCJJCC) or CJCJJCC="" then
CJCJJCC=CCJJCJJ(CCJJCJC)
elseif Mid(CJCJJCC,instrrev(CJCJJCC,CCJCJJJ("["))+1)<>CStr(CCJJCJC) then
CJCJJCC=CCJJCJJ(CCJJCJC)
elseif Left(CJCJJCC,1)=CCJCJJJ("[") then
CJCJJCC=CCJJCJJ(CCJJCJC)
end if
end if:CCJJJCC=CJCJJCC:End Function:Private Function CCJJCJJ(CCJJCJC):dim CJCJJCJ:CJCJJCJ=CStr(CCJJCJC):if CJCJJCJ="0" then
CCJJCJJ=""
else
dim CJCJJJJ:set CJCJJJJ=CJJCCC.execute(CCJCJJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCCJJ & CCJCJJJ(" ,H96C6 ,:5l") & CCJJCJC):if CJCJJJJ.eof then
Call UpdateCache(CCJJCJC,"","","",""):Call RedirectMessage(CCJCJJJ("??????,xs??,") & CCJJCJC & CCJCJJJ("??,????????,????????????????????,"))
else
if CJCJJJJ(0)=0 then
CCJJCJJ="0," & CCJJCJC
else
CCJJCJJ=CCJJJCC(CJCJJJJ(0)) & CCJCJJJ("[") & CCJJCJC
end if:if CJCJJJJ(2)<>CCJJCJJ then
CJJCCC.execute CCJCJJJ("FA52E6 ,") & CJJCCJJ & CCJCJJJ(" ,D6E ,A2E9lV") & CCJJCJJ & CCJCJJJ("V ,H96C6 ,:5l") & CCJJCJC
else
CCJJCJJ=CJCJJJJ(2)
end if
end if:Call UpdateCache(CCJJCJC,CJCJJJJ(0),CJCJJJJ(1),CCJJCJJ,CJCJJJJ(3)):CJCJJJJ.Close: Set CJCJJJJ = Nothing
end if:End Function::::::::::::::::::::::Public Sub ClearCache():Application.Contents.Remove CJJCCJC
End Sub:Public Sub UpdateCache(CCJJCJC,CCCJCJJ,CCCJCJC,CJCJJCC,CCCJCCJ):dim CJJJJCJ,CJJJJCC:CCJJCJC=CLng(CCJJCJC):CJJJJCJ=CCJJJCJ(CCJJCJC):if CCCJCJJ="" and CCCJCJC="" and CJCJJCC="" and CCCJCCJ="" then
if CJJJJCJ>0 then
for CJJJJCC=1 to 4:CJJCJJC(CJJJJCJ,CJJJJCC)=Null:next
end if
else
if CJJJJCJ=0 then
for CJJJJCC=1 to CJJCJCC:if CJJCJJC(CJJJJCC,1) & ""="" then
CJJJJCJ=CJJJJCC:exit for
end if:next
end if:if CJJJJCJ=0 then
Call ClearCache
else
CJJCJJC(CJJJJCJ,0)=CLng(CCJJCJC):if CCCJCJJ<>"" then CJJCJJC(CJJJJCJ,1)=CLng(CCCJCJJ)
if CCCJCJC<>"" then CJJCJJC(CJJJJCJ,2)=CCCJCJC
if CJCJJCC<>"" then CJJCJJC(CJJJJCJ,3)=CJCJJCC
if CCCJCCJ<>"" then CJJCJJC(CJJJJCJ,4)=CLng(CCCJCCJ)
end if
end if:if CJJJJCJ>0 then
Application.Lock():Application(CJJCCJC) = CJJCJJC:Application.UnLock()
end if:End Sub:Private Sub Debug(CCCJJJC):Call ConnClose:Response.Write CCCJJJC:Response.End:End Sub:Private Function CJCCCJJ():CJCCCJJ=CCJJCCJ+1:End Function:Private Function CCJJCCJ():dim CJJCJJJ:set CJJCJJJ=CJJCCC.execute(CCJCJJJ("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CJJCCJJ & CCJCJJJ(" ,@C56C ,3J ,:5 ,56D4")):CCJJCCJ=CJJCJJJ(0):CJJCJJJ.Close: Set CJJCJJJ = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::dim CCCCCC:CJCJCC=Request.ServerVariables(CCJCJJJ("!p%w0x}u~")):if instr(CJCJCC,CCJCJJJ("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CCJCJC and not CCCCJJ then Call RedirectMessage(CCJCJJJ("????????,????????????????????????,"))
CCCCCC=CCJJCJ
elseif instr(CJCJCC,CCJCJJJ("^>^D49@@=^DEF56?E^"))>0 or instr(CJCJCC,CCJCJJJ("^DEF56?E^"))>0 then
Call CheckLogined:CCCCCC=CCJJCJ
elseif instr(CJCJCC,CCJCJJJ("^D49@@="))>0 then
CCCCCC=Request.QueryString(CCJCJJJ("D49@@=")):if not CJCCJCC(CCCCCC) then CCCCCC=Request.QueryString(CCJCJJJ("F"))
if not CJCCJCC(CCCCCC) then CCCCCC=Request.QueryString(CCJCJJJ("D4"))
if not CJCCJCC(CCCCCC) then Call RedirectMessage(CCJCJJJ("????????W$49@@=X??@??????????,"))
CCCCCC=csng(CCCCCC)
end if:if CCCCCC=0 then Call RedirectMessage(CCJCJJJ("????????W$49@@=X????W_X??,"))
Dim CJCJCJJ:Call SetConfig:Sub SetConfig():dim CJCJCJC,CJJCJJJ:CJCJCC=CCJCJJJ("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") & CCCCCC:set CJJCJJJ=CJJCCC.execute(CJCJCC):if CJJCJJJ.eof then Call RedirectMessage(CCJCJJJ("??W") & CJCCJJ & CCJCJJJ("X??????????W") & CCCCCC & CCJCJJJ("X????????,"))
ReDim CJCJCJC(61):CJCJCJC(0)=CJJCJJJ(CCJCJJJ(";:2@H6:")) & "":CJCJCJC(1)=CJJCJJJ(CCJCJJJ("EJA6")):CJCJCJC(2)=CJJCJJJ(CCJCJJJ("D>D")):CJCJCJC(3)=CJJCJJJ(CCJCJJJ("4FDE@>8C@FA")) & "":CJCJCJC(4)=CJJCJJJ(CCJCJJJ("D:5632C0@E96C")) & "":CJCJCJC(5)=IIf(isnull(CJJCJJJ(CCJCJJJ("E6DEC6DF=EG:6H"))),0,CJJCJJJ(CCJCJJJ("E6DEC6DF=EG:6H"))):CJCJCJC(6)=CJJCJJJ(CCJCJJJ("K:IF?E:>6")):CJCJCJC(7)=CJJCJJJ(CCJCJJJ("766")):CJCJCJC(8)=CJJCJJJ(CCJCJJJ("C6E6DE52J")):CJCJCJC(9)=CJJCJJJ(CCJCJJJ("6IA:C652E6")):CJCJCJC(10)=CJJCJJJ(CCJCJJJ("E:E=6")):CJCJCJC(11)=CJJCJJJ(CCJCJJJ(":?EC@")) & "":CJCJCJC(12)=CJJCJJJ(CCJCJJJ("A:4EFC6")) & "":CJCJCJC(13)=CJJCJJJ(CCJCJJJ("72>:=J")):CJCJCJC(14)=CJJCJJJ(CCJCJJJ("4@AJC:89E")) & "":CJCJCJC(15)=IIf(isnull(CJJCJJJ(CCJCJJJ("D6>6DE6C0DE2CE052E6"))),CCJCJJJ("`h__\`\`"),CJJCJJJ(CCJCJJJ("D6>6DE6C0DE2CE052E6"))):CJCJCJC(16)=IIf(isnull(CJJCJJJ(CCJCJJJ("K:IF?0E:>6D09:89=:89E"))),0,CJJCJJJ(CCJCJJJ("K:IF?0E:>6D09:89=:89E"))):CJCJCJC(17)=CJJCJJJ(CCJCJJJ("4@?E24E")) & "":CJCJCJC(18)=CJJCJJJ(CCJCJJJ("D2?5E23=6")):CJCJCJC(19)=CJJCJJJ(CCJCJJJ("4C:D:D")):CJCJCJC(20)=CJJCJJJ(CCJCJJJ("JJ52E6")):CJCJCJC(21)=CJJCJJJ(CCJCJJJ("BB")):CJCJCJC(22)=CJJCJJJ(CCJCJJJ("JFJF60D>D0EA=")) & "":CJCJCJC(23)=CJJCJJJ(CCJCJJJ("JFJF60E6DE0=3")) & "":CJCJCJC(25)=CJJCJJJ(CCJCJJJ("6IA6CE")):CJCJCJC(26)=CJJCJJJ(CCJCJJJ(">@5:?7@")):CJCJCJC(27)=CJJCJJJ(CCJCJJJ("9@>6A286E@AA:4EFC6")) & "":CJCJCJC(28)=CJJCJJJ(CCJCJJJ("4C:D:D=3")):CJCJCJC(29)=IIf(CJJCJJJ(CCJCJJJ("4C:D:D@=5")),False,True):CJCJCJC(30)=CJJCJJJ(CCJCJJJ("8C@FA8F:52?46")):CJCJCJC(31)=CJJCJJJ(CCJCJJJ("3:@7665324<")):CJCJCJC(32)=CJJCJJJ(CCJCJJJ("<6JDEC")):CJCJCJC(33)=CJJCJJJ(CCJCJJJ("=@8@")) & "":CJCJCJC(34)=CJJCJJJ(CCJCJJJ("K:46")):CJCJCJC(35)=IIf(CJJCJJJ(CCJCJJJ(":D?6H")),True,False):CJCJCJC(36)=121:CJCJCJC(37)=111:CJCJCJC(38)=160:CJCJCJC(39)=CJJCJJJ(CCJCJJJ("8F6DE3@@<")):CJCJCJC(40)=CJJCJJJ(CCJCJJJ("75D")):CJCJCJC(42)=CJJCJJJ(CCJCJJJ("9@>6=@8:?")):CJCJCJC(43)=CJJCJJJ(CCJCJJJ("K:IF?0?6657665324<")):CJCJCJC(44)=CJJCJJJ(CCJCJJJ("K:IF?0E:>6D0=:>:E")):CJCJCJC(45)=CJJCJJJ(CCJCJJJ("4@>A=6E60:?7@")):CJCJCJC(46)=CJJCJJJ(CCJCJJJ("E6DE:?EC@")) & "":CJCJCJC(47)=IIf(isnull(CJJCJJJ(CCJCJJJ("JFJF60367@C60E:>6"))),0,CJJCJJJ(CCJCJJJ("JFJF60367@C60E:>6"))):CJCJCJC(49)=CJJCJJJ(CCJCJJJ("D>D0C646:G6C")):CJCJCJC(50)=CJJCJJJ(CCJCJJJ("D>D0D:8?")) & "":CJCJCJC(52)=CJJCJJJ(CCJCJJJ("JFJF602CC2?86")):CJCJCJC(53)=IIf(isnull(CJJCJJJ(CCJCJJJ("DEF56?E0BF6DE:@?04@F?E"))),0,CJJCJJJ(CCJCJJJ("DEF56?E0BF6DE:@?04@F?E"))):CJCJCJC(54)=CJJCJJJ(CCJCJJJ("9:560=30@FE@7286")):CJCJCJC(55)=CJJCJJJ(CCJCJJJ("JFJF60E6DE052JD")):CJCJCJC(56)=CJJCJJJ(CCJCJJJ("JFJF60H66<0=:>:E")):CJCJCJC(57)=CJJCJJJ(CCJCJJJ("JFJF604964<65")):CJCJCJC(58)=CJJCJJJ(CCJCJJJ("K:IF?0?6657665324<0?6IE")):CJCJCJC(59)=CJJCJJJ(CCJCJJJ("4964<?6HDEF56?E")):CJCJCJC(60)=CJJCJJJ(CCJCJJJ("K:IF?04=@D6052E6")):CJJCJJJ.close : set CJJCJJJ=nothing:if isNull(CJCJCJC(8)) or CJCJCJC(8)="" then CJCJCJC(8)=0
if isdate(CJCJCJC(9)) then
CJCJCJC(9)=cdate(CJCJCJC(9)):if CJCJCJC(9)<Date then Call RedirectMessage(CCJCJJJ("????????,????????????????W") & CJCJCJC(9) & CCJCJJJ("X??????,"))
end if:if not CJCCJCC(CJCJCJC(20)) then CJCJCJC(20)=7
select case CJCJCJC(1):case 1,2,16:CJCJCJC(36)=159:case 4,5,6,10,11:CJCJCJC(36)=190:CJCJCJC(37)=178:CJCJCJC(38)=191:case 7,13:CJCJCJC(36)=164:CJCJCJC(37)=178:CJCJCJC(38)=179:end select:CJCJCJJ=CJCJCJC:End Sub:Function CJCCCCC(CCCJCCC):dim CJCJCJC(7,1),CJJJJCJ,CJCJCCJ,CJCJCCC:CJCJCCJ=Array(CCJCJJJ("$49@@="),CCJCJJJ("$EF56?E"),CCJCJJJ("s6AE"),CCJCJJJ("vC256"),CCJCJJJ("r=2DD>2E6"),CCJCJJJ("}F>36C"),CCJCJJJ("%62496C"),CCJCJJJ("!2C6?E")):select case CJCJCJJ(1):case 1,2 : CJCJCCC=Array(CCJCJJJ("????"),CCJCJJJ("????"),CCJCJJJ("????"),CCJCJJJ("????"),CCJCJJJ("????"),CCJCJJJ("????"),CCJCJJJ("????"),CCJCJJJ("????")):case 3,16 : CJCJCCC=Array(CCJCJJJ("????"),CCJCJJJ("????"),CCJCJJJ("????"),CCJCJJJ("????"),CCJCJJJ("????"),CCJCJJJ("????"),CCJCJJJ("????"),CCJCJJJ("????")):case 4 : CJCJCCC=Array(CCJCJJJ("????"),CCJCJJJ("??????@"),CCJCJJJ("????"),CCJCJJJ("????"),CCJCJJJ("????"),CCJCJJJ("????"),CCJCJJJ("????"),CCJCJJJ("????")):case 5 : CJCJCCC=Array(CCJCJJJ("????"),CCJCJJJ("????"),CCJCJJJ("????"),CCJCJJJ("????"),CCJCJJJ("????"),CCJCJJJ("????"),CCJCJJJ("????"),CCJCJJJ("????")):case 6 : CJCJCCC=Array(CCJCJJJ("????"),CCJCJJJ("??????@"),CCJCJJJ("????"),CCJCJJJ("????"),CCJCJJJ("????"),CCJCJJJ("????"),CCJCJJJ("??????"),CCJCJJJ("????")):case 7 : CJCJCCC=Array(CCJCJJJ("????"),CCJCJJJ("????"),CCJCJJJ("????"),CCJCJJJ("????"),CCJCJJJ("????"),CCJCJJJ("????"),CCJCJJJ("??????"),CCJCJJJ("????")):case 8 : CJCJCCC=Array(CCJCJJJ("????"),CCJCJJJ("??????@"),CCJCJJJ("????"),CCJCJJJ("????????"),CCJCJJJ("????"),CCJCJJJ("????"),CCJCJJJ("??????"),CCJCJJJ("????")):case 9 : CJCJCCC=Array(CCJCJJJ("????"),CCJCJJJ("????"),CCJCJJJ("????"),CCJCJJJ("????"),CCJCJJJ("????"),CCJCJJJ("????"),CCJCJJJ("??????"),CCJCJJJ("????")):case 10 : CJCJCCC=Array(CCJCJJJ("????"),CCJCJJJ("????"),CCJCJJJ("????"),CCJCJJJ("????????"),CCJCJJJ("????"),CCJCJJJ("????"),CCJCJJJ("??????"),CCJCJJJ("????")):case 11 : CJCJCCC=Array(CCJCJJJ("????"),CCJCJJJ("??????"),CCJCJJJ("????"),CCJCJJJ("????"),CCJCJJJ("????"),CCJCJJJ("????"),CCJCJJJ("??????"),CCJCJJJ("????")):case 12 : CJCJCCC=Array(CCJCJJJ("????"),CCJCJJJ("????"),CCJCJJJ("????"),CCJCJJJ("????????"),CCJCJJJ("????"),CCJCJJJ("????"),CCJCJJJ("??????"),CCJCJJJ("????")):case 13 : CJCJCCC=Array(CCJCJJJ("????"),CCJCJJJ("????"),CCJCJJJ("????"),CCJCJJJ("????"),CCJCJJJ("????"),CCJCJJJ("????"),CCJCJJJ("????"),CCJCJJJ("????")):case 14 : CJCJCCC=Array(CCJCJJJ("??????"),CCJCJJJ("??@??"),CCJCJJJ("????"),CCJCJJJ("????"),CCJCJJJ("????"),CCJCJJJ("????"),CCJCJJJ("??????"),CCJCJJJ("????")):case 15 : CJCJCCC=Array(CCJCJJJ("????"),CCJCJJJ("????????"),CCJCJJJ("????"),CCJCJJJ("????????"),CCJCJJJ("????"),CCJCJJJ("????"),CCJCJJJ("??????"),CCJCJJJ("????")):case else : CJCJCCC=CJCJCCJ
end select:for CJJJJCJ=0 to Ubound(CJCJCJC):CJCJCJC(CJJJJCJ,0)=CJCJCCJ(CJJJJCJ):CJCJCJC(CJJJJCJ,1)=CJCJCCC(CJJJJCJ):next:for CJJJJCJ=0 to Ubound(CJCJCJC):if CJCJCJC(CJJJJCJ,0)=CCCJCCC then
CJCCCCC=CJCJCJC(CJJJJCJ,1):exit for
end if:next:End Function:Response.Write(vbCrLf):Response.Write(CCJCJJJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CCJCJJJ("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CCJCJJJ("k9625m") & vbCrLf):Response.Write(CCJCJJJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CCJCJJJ("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CCJCJJJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CCJCJJJ("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CCJCJJJ("kE:E=6m")):Response.Write  CJCJCJJ(10):Response.Write(CCJCJJJ("k^E:E=6m") & vbCrLf):Response.Write(CCJCJJJ("k=:?< ,9C67lQ]]^4DD^C6D6E]4DDQ ,C6=lQDEJ=6D966EQm") & vbCrLf):Response.Write(CCJCJJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CCJCJJJ("kDEJ=6m") & vbCrLf):Response.Write(CCJCJJJ("2]H:?L5:DA=2Ji:?=:?6\3=@4<j>2C8:?\C:89EidAIj>2C8:?\3@EE@>i`_AIjN") & vbCrLf):Response.Write(CCJCJJJ("2]H:? ,:>8L3@C56Ci`AI ,D@=:5 ,R444jA255:?8iaAIj3@C56C\C25:FDidAIj96:89Ei`a_AIjN") & vbCrLf):Response.Write(CCJCJJJ("]4@?E24E ,L>2C8:?\E@Ai`dAIj3@C56C\4@==2AD6i ,4@==2AD6jN") & vbCrLf):Response.Write(CCJCJJJ("]4@?E24E ,E5L3@C56Ci`AI ,D@=:5 ,R444jA255:?8i`_AIjN") & vbCrLf):Response.Write(CCJCJJJ("]4@?E24E ,E5]E:E=6LH:5E9i`__AIjE6IE\2=:8?i46?E6Cj324<8C@F?5\4@=@CiRtfubuuj4@=@CiR_erj7@?E\H6:89Ei3@=5") & vbCrLf):Response.Write(CCJCJJJ("N") & vbCrLf):Response.Write(CCJCJJJ("k^DEJ=6m") & vbCrLf):Response.Write(CCJCJJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJCJJJ("k^9625m") & vbCrLf):Response.Write(CCJCJJJ("k3@5Jm") & vbCrLf):Response.Write(CCJCJJJ("k5:G ,:5lQ4@?E2:?6CQm") & vbCrLf):Response.Write(CCJCJJJ(" ,k5:G ,:5lQ96256CQm") & vbCrLf):Response.Write(CCJCJJJ(" ,k9`m")):Response.Write  CJCJCJJ(10):Response.Write(CCJCJJJ("k^9`m") & vbCrLf):Response.Write(CCJCJJJ("kF= ,:5lQ?2GQm") & vbCrLf):Response.Write(CCJCJJJ(" ,k=: ,E:E=6lQxsi ,")):Response.Write  CJCCJJ:Response.Write(CCJCJJJ("Qm????????,")):Response.Write  CCCJJJ:Response.Write(CCJCJJJ("??,")):Response.Write  CCJJJC:Response.Write(CCJCJJJ("??,k^=:m") & vbCrLf):Response.Write(CCJCJJJ(" ,k=:mk2 ,9C67lQ:?56I]2DAQm????k^2mk^=:m") & vbCrLf):Response.Write(CCJCJJJ(" ,")):set CJCJJC=CJJCCC.execute(CCJCJJJ("D6=64E ,4@F?EW:5X ,7C@> ,>6DD286 ,H96C6 ,:D?6Hl` ,2?5 ,C646:G6Cl") & CJCCJJ):if CJCJJC(0)=0 then
Response.Write CCJCJJJ("k=:mk2 ,9C67lV]]^>6DD286^:?]2DAnC625@?=Jl`V ,E2C86ElV03=2?<Vm????k^2mk^=:m")
else
Response.Write CCJCJJJ("k=:mk2 ,9C67lV]]^>6DD286^:?]2DAnC625@?=Jl`V ,E2C86ElV03=2?<Vm???? ,kDA2? ,DEJ=6lV4@=@CiR777j7@?E\D:K6i`_AIj5:DA=2Ji:?=:?6\3=@4<j324<8C@F?5\4@=@CiR7b_j96:89Ei`dAIjA255:?8i_ ,aAIj=:?6\96:89Ei`dAIj3@C56C\C25:FDibAIjVm") & CJCJJC(0) & CCJCJJJ("k^DA2?mk^2mk^=:m")
end if:Response.Write(vbCrLf):Response.Write(CCJCJJJ(" ,k=:mk2 ,9C67lQ>J:?7@]2DAQm????????????k^2mk^=:m") & vbCrLf):Response.Write(CCJCJJJ(" ,k=:mk2 ,9C67lQ492?86ADH]2DAQm????????????k^2mk^=:m") & vbCrLf):Response.Write(CCJCJJJ(" ,")):If CCJCJC or CCCCJJ Then
Response.Write(vbCrLf):Response.Write(CCJCJJJ(" ,k=:mk2 ,9C67lQ]]^D49@@=^25>:?^>2:?]2DAQm????????k^2mk^=:m") & vbCrLf):Response.Write(CCJCJJJ(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CCJCJJJ(" ,k=:mk2 ,9C67lQ]]^>6>36C^=@8@FE]2DAnC65:C64El^D49@@=^:?56I]2DAnD49@@=l")):Response.Write  CCCCCC:Response.Write(CCJCJJJ("Qm????????k^2mk^=:m") & vbCrLf):Response.Write(CCJCJJJ("k^F=m") & vbCrLf):Response.Write(CCJCJJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCJCJJJ(" ,k5:G ,:5lQ>2:?Qm") & vbCrLf):Response.Write(CCJCJJJ(" ,k5:G ,:5lQ>2:?4@?E6?EQm") & vbCrLf):Response.Write(CCJCJJJ(" ,k:>8 ,DC4lQ")):Response.Write  CJCJCJJ(12):Response.Write(CCJCJJJ("Q ,H:5E9lQ`__TQm") & vbCrLf):Response.Write(CCJCJJJ(" ,k3Cm") & vbCrLf):Response.Write(CCJCJJJ(" ,k3Cm") & vbCrLf):Response.Write(CCJCJJJ(" ,k9am????????????k^9am") & vbCrLf):Response.Write(CCJCJJJ(" ,k5:G ,4=2DDlQ4@?E6?EQm") & vbCrLf):Response.Write(CCJCJJJ(" ,")):set CJCJJC=CJJCCC.execute(CCJCJJJ("D6=64E ,E@A ,` ,:?EC@[4@?E24E ,7C@> ,D49@@= ,H96C6 ,:5l") & CCCCCC):response.write CJCJJC(0):Response.Write(vbCrLf):Response.Write(CCJCJJJ(" ,kE23=6 ,4=2DDlQ4@?E24EQm") & vbCrLf):Response.Write(CCJCJJJ(" ,kECm") & vbCrLf):Response.Write(CCJCJJJ(" ,kE5 ,4=2DDlQE:E=6Qm????????????k^E5m") & vbCrLf):Response.Write(CCJCJJJ(" ,kE5m")):Response.Write  CJCJJC(1):Response.Write(CCJCJJJ("k^E5m") & vbCrLf):Response.Write(CCJCJJJ(" ,k^ECm") & vbCrLf):Response.Write(CCJCJJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CCJCJJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCJCJJJ(" ,k3Cm") & vbCrLf):Response.Write(CCJCJJJ(" ,")):if CCCCCC=78433 then
Response.Write(vbCrLf):Response.Write(CCJCJJJ(" ,k9am??????????k^9am") & vbCrLf):Response.Write(CCJCJJJ(" ,k5:G ,4=2DDlQ4@?E6?EQm") & vbCrLf):Response.Write(CCJCJJJ(" ,")):CJCJCC=CCJCJJJ("D6=64E ,:5[C62=?2>6[A9@E@ ,7C@> ,>6>36C ,H96C6 ,xDr@?DF=E2?El` ,2?5 ,EJA6l") & CCCCCC & CCJCJJJ(" ,2?5 ,,8C@FA.kd ,2?5 ,D49@@=25>:?EJA6l`ahh ,@C56C ,3J ,C68E:>6"):set CJCJJC=CJJCCC.execute(CJCJCC):while not CJCJJC.eof:response.Write CCJCJJJ("k2 ,4=2DDlVH:?V ,9C67lV]]^D49@@=^E62496C]2DAn:5l") & CJCJJC(0) & CCJCJJJ("Vmk:>8 ,DC4lV") & CJCJJC(2) & CCJCJJJ("Vmk5:G ,2=:8?lV46?E6CVm") & CJCJJC(1) & CCJCJJJ("k^5:Gmk^2m")
CJCJJC.movenext:wend:Response.Write(vbCrLf):Response.Write(CCJCJJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCJCJJJ(" ,k3Cm") & vbCrLf):Response.Write(CCJCJJJ(" ,k9am??????????k^9am") & vbCrLf):Response.Write(CCJCJJJ(" ,k5:G ,4=2DDlQ4@?E6?EQm") & vbCrLf):Response.Write(CCJCJJJ(" ,")):CJCJCC=CCJCJJJ("D6=64E ,:5[C62=?2>6[A9@E@ ,7C@> ,>6>36C ,H96C6 ,xDr@?DF=E2?El` ,2?5 ,EJA6l") & CCCCCC & CCJCJJJ(" ,2?5 ,,8C@FA.kd ,2?5 ,D49@@=25>:?EJA6l`b__ ,@C56C ,3J ,C68E:>6"):set CJCJJC=CJJCCC.execute(CJCJCC):while not CJCJJC.eof:response.Write CCJCJJJ("k2 ,4=2DDlVH:?V ,9C67lV]]^D49@@=^E62496C]2DAn:5l") & CJCJJC(0) & CCJCJJJ("Vmk:>8 ,DC4lV") & CJCJJC(2) & CCJCJJJ("Vmk5:G ,2=:8?lV46?E6CVm") & CJCJJC(1) & CCJCJJJ("k^5:Gmk^2m")
CJCJJC.movenext:wend:Response.Write(vbCrLf):Response.Write(CCJCJJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCJCJJJ(" ,"))
else
Response.Write(vbCrLf):Response.Write(CCJCJJJ(" ,k9am??????????k^9am") & vbCrLf):Response.Write(CCJCJJJ(" ,k5:G ,4=2DDlQ4@?E6?EQm") & vbCrLf):Response.Write(CCJCJJJ(" ,")):CJCJCC=CCJCJJJ("D6=64E ,:5[C62=?2>6[A9@E@ ,7C@> ,>6>36C ,H96C6 ,xDr@?DF=E2?El` ,2?5 ,EJA6l") & CCCCCC:set CJCJJC=CJJCCC.execute(CJCJCC):while not CJCJJC.eof:response.Write CCJCJJJ("k2 ,4=2DDlVH:?V ,9C67lV]]^D49@@=^E62496C]2DAn:5l") & CJCJJC(0) & CCJCJJJ("Vmk:>8 ,DC4lV") & CJCJJC(2) & CCJCJJJ("Vmk5:G ,2=:8?lV46?E6CVm") & CJCJJC(1) & CCJCJJJ("k^5:Gmk^2m")
CJCJJC.movenext:wend:Response.Write(vbCrLf):Response.Write(CCJCJJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCJCJJJ(" ,"))
end if:Response.Write(vbCrLf):Response.Write(CCJCJJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCJCJJJ(" ,k5:G ,:5lQD:56Qm") & vbCrLf):Response.Write(CCJCJJJ(" ,k9bm????????????k^9bm") & vbCrLf):Response.Write(CCJCJJJ("kF=m") & vbCrLf):Response.Write(CCJCJJJ(" ,k=:mk2 ,9C67lQE6DE0AF46]2DAQm????????k^2mk^=:m") & vbCrLf):Response.Write(CCJCJJJ(" ,")):If CJCJCJJ(34) Then
Response.Write(vbCrLf):Response.Write(CCJCJJJ(" ,k=:mk2 ,9C67lQE6DE0K:46]2DAQm????????k^2mk^=:m") & vbCrLf):Response.Write(CCJCJJJ(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CCJCJJJ(" ,k=:mk2 ,9C67lQ>JE6DE]2DAQm????????????k^2mk^=:m") & vbCrLf):Response.Write(CCJCJJJ("k^F=m") & vbCrLf)::If CJCJCJJ(7)=3 Then
Response.Write(vbCrLf):Response.Write(CCJCJJJ("k9bm????????????k^9bm") & vbCrLf):Response.Write(CCJCJJJ("kF=m") & vbCrLf):Response.Write(CCJCJJJ(" ,k=:mk2 ,9C67lQ:?EC@]2DAQm????????????k^2mk^=:m") & vbCrLf):Response.Write(CCJCJJJ(" ,k=:mk2 ,:5lQ2D:56\JFJF6\=:?<Q ,9C67lQ^>^G2?E^R^=@8:?nC65:C64El^D49@@=^DEF56?EU<6JlQ ,52E2\:5lQ")):Response.Write  CJCCJJ:Response.Write(CCJCJJJ("Qm????????k^2mk^=:m") & vbCrLf):Response.Write(CCJCJJJ(" ,k=:mk2 ,9C67lQJFJF6]2DAn24El=:DEQm????????????k^2mk^=:m") & vbCrLf):Response.Write(CCJCJJJ(" ,k=:mk2 ,9C67lQK:IF?]2DAQm????????????k^2mk^=:m") & vbCrLf):Response.Write(CCJCJJJ(" ,k=:mk2 ,9C67lQ:?E6CG:6H]2DAQm????????k^2mk^=:m") & vbCrLf):Response.Write(CCJCJJJ(" ,")):If CJCJCJJ(39) Then
Response.Write(vbCrLf):Response.Write(CCJCJJJ(" ,k=:mk2 ,9C67lQ=:FJ2?]2DAn24El255Qm????????k^2mk^=:m") & vbCrLf):Response.Write(CCJCJJJ(" ,k=:mk2 ,9C67lQ=:FJ2?]2DAQm????????????k^2mk^=:m") & vbCrLf):Response.Write(CCJCJJJ(" ,"))
End If::If CJCJCJJ(30) Then
Response.Write(vbCrLf):Response.Write(CCJCJJJ(" ,k=:mk2 ,9C67lQ^>^G2?E^R^D49@@=^DEF56?E^EF2?7FQm??????@??k^2mk^=:m") & vbCrLf):Response.Write(CCJCJJJ(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CCJCJJJ("k^F=m") & vbCrLf):Response.Write(CCJCJJJ("k9bm????????????k^9bm") & vbCrLf):Response.Write(CCJCJJJ("kF=m") & vbCrLf):Response.Write(CCJCJJJ(" ,k=:mk2 ,9C67lQ8C@HC6A@CE]2DAQm????????????k^2mk^=:m") & vbCrLf):Response.Write(CCJCJJJ(" ,k=:mk2 ,9C67lQC6>2C<]2DAn24El>JQm????k^2mk^=:m") & vbCrLf):Response.Write(CCJCJJJ(" ,k=:mk2 ,9C67lQC6>2C<]2DAQm????????k^2mk^=:m") & vbCrLf):Response.Write(CCJCJJJ("k^F=m") & vbCrLf)
End If:Response.Write(vbCrLf):Response.Write(CCJCJJJ("kD4C:AE ,DC4lQ^$4C:AED^6?4CJAE\?F>36C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJCJJJ("kD4C:AEm") & vbCrLf):Response.Write(CCJCJJJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CCJCJJJ(" ,^Y ,8=@32= ,t?4CJAE ,Y^") & vbCrLf):Response.Write(CCJCJJJ(" ,SWVR2D:56\JFJF6\=:?<VX]2EECWV9C67V[7F?4E:@?W:[G2=F6XLC6EFC? ,G2=F6Zt?4CJAEWSWE9:DX]52E2WV:5VXXNX") & vbCrLf):Response.Write(CCJCJJJ("NX") & vbCrLf):Response.Write(CCJCJJJ("k^D4C:AEm") & vbCrLf):Response.Write(CCJCJJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCJCJJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCJCJJJ(" ,k5:G ,:5lQ7@@EQm") & vbCrLf):Response.Write(CCJCJJJ(" ,k5:G ,4=2DDlQ56A2CE>6?EQm")):Response.Write  CCJCJJJ("??????????????????,") & CJCJCJJ(10):Response.Write(CCJCJJJ("k^5:Gm") & vbCrLf):Response.Write(CCJCJJJ(" ,k5:G ,4=2DDlQ4@AJC:89EQm")):Response.Write  replace(CJCJCJJ(14),vbcrlf,CCJCJJJ("k3Cm")):Response.Write(CCJCJJJ("k^5:Gm") & vbCrLf):Response.Write(CCJCJJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCJCJJJ("k^5:Gm") & vbCrLf):Response.Write(CCJCJJJ("kD4C:AE ,DC4lQ^$4C:AED^=2J6C^=2J6C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJCJJJ("kD4C:AE ,DC4lQ^$4C:AED^=2J6C^=2J6C]96=A6C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJCJJJ("kD4C:AEm") & vbCrLf):Response.Write(CCJCJJJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CCJCJJJ(" ,SWVRD:56VX]96:89EWSWVR>2:?VX]96:89EWXX") & vbCrLf):Response.Write(CCJCJJJ("NX") & vbCrLf):Response.Write(CCJCJJJ("k^D4C:AEm") & vbCrLf):Response.Write(CCJCJJJ("k^3@5Jm") & vbCrLf):Response.Write(CCJCJJJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJJCJJC=nothing:set CJCCCJC=nothing:set CJCCCCJ=nothing:set CJCCCCC=nothing:CJCJCJ.Close:Set CJCJCJ=Nothing:CJCJJC.Close:Set CJCJJC=Nothing:CJJCCC.Close:Set CJJCCC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CCJCJJJ(ByVal CCJJCCC)
Dim CJCCJJJ, CJJJJCJ, CJJJCJC
CCJJCCC = Replace(CCJJCCC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJJJJCJ = 1 To Len(CCJJCCC)
If CJJJJCJ <> CJJJCJC Then
CJCCJJJ = AscW(Mid(CCJJCCC, CJJJJCJ, 1))
If CJCCJJJ >= 33 And CJCCJJJ <= 79 Then
CCJCJJJ = CCJCJJJ & Chr(CJCCJJJ + 47)
ElseIf CJCCJJJ >= 80 And CJCCJJJ <= 126 Then
CCJCJJJ = CCJCJJJ & Chr(CJCCJJJ - 47)
Else
CJJJCJC = CJJJJCJ + 1
If Mid(CCJJCCC, CJJJCJC, 1) = Chr(64) Then CCJCJJJ = CCJCJJJ & ChrW(CJCCJJJ + 5) Else CCJCJJJ = CCJCJJJ & Mid(CCJJCCC, CJJJJCJ, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de