Edit D:\xinhaisoft\crisis_new\student\mytest

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

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJJCCJ, CJJCCC,CJCJJJ, CJCJJC, CJCJCJ:Set CJJCCJ = server.CreateObject(CCCCCJJ("ps~sq]r@??64E:@?")):CJJCCJ.open Application(CCCCCJJ("r@??64E:@?$EC:?8")):Set CJJCCC=CJJCCJ::Dim CJCJCC,CJCCJJ,CJCCJC,CJCCCJ,CJCCCC,CCJJJJ,CCJJJC,CCJJCJ,CCJJCC:Dim CCJCJJ,CCJCJC,CCJCCJ,CCJCCC,CCCJJJ,CCCJJC:Dim CCCJCJ,CCCJCC,CCCCJJ:Dim CCCCJC:CCCCJC=Trim(Request.Cookies(CCCCCJJ("!$*|t|qt#"))):if CCCCJC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJCJCC>0 then
CJCJCJ=CCCCCJJ("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") & CJCCJJ & CCCCCJJ("V ,2?5 ,:5l") & CJCJCC
set CJCJJJ=CJJCCJ.execute(CJCJCJ):If CJCJJJ.EOF Then
Call ClearMemberCookie
Else
CJCCJC=CJCJJJ(2) & "":CJCCCJ=CJCJJJ(3):CJCCCC=CJCJJJ(5):CCJJJJ=CJCJJJ(6):CCJJJC=CJCJJJ(9):CCJJCJ=CJCJJJ(15):CCJCJJ=CJCJJJ(0):CCCJCC=CJCJJJ(1):CCCJCJ=CJCJJJ(11) & "":CCJCJC=CJCJJJ(10) & "":CCJJCC=CJCJJJ(12):CCJCCJ=CJCJJJ(14):CCJCCC=CJCJJJ(13):CCCJJJ=CJCJJJ(7) & "":CCCJJC=CJCJJJ(4):CCCCJJ=CJCJJJ(8):if isnull(CCJJCJ) then CCJJCJ=0
if isnull(CCJJJC) or CCJJJC=0 then CCJJJC=CJCCCJ
if isnull(CCCJJC) then CCCJJC=0
if isnull(CJCCCC) then CJCCCC=0
if instr(CCCCCJJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CJCCJJ)>0 then Call RedirectMessage(CCCCCJJ("????????,????????????????????????????????,"))
Call SetMemberCookie(CJCJCC,CJCCJJ)
End IF
end if:::Sub CheckLogined():if CJCJCC=0 then
Call ClearMemberCookie:Call ConnClose:dim CCCCCJ:CCCCCJ=trim(request.QueryString(CCCCCJJ("D49@@="))):if isnumeric(CCCCCJ) then
response.Redirect CCCCCJJ("^>^G2?E^R^D49@@=^") & CCCCCJ & CCCCCJJ("^DEF56?E^=@8:?nC65:C64El") & url
else
Call RedirectMessage(CCCCCJJ("??????????????,????????????,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CCCCCJJ("!$*|t|qt#"))="":CJCJCC=0:CCJJJJ=0:CJCCJJ=Empty:CJCCCC=0:CCJJCJ=0:CCJJJC=0:CJCCCJ=0:CCJCJJ=False:CCCJCC=False:CCCCJJ=Empty:End Sub:Sub CheckMemberCookie():dim CCCCCC,CJJJJJJ,CJJJJJC,CJJJJCJ,CJJJJCC:CCCCCC=split(CCCCJC,CCCCCJJ("]")):if ubound(CCCCCC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CCCCCC(0)) or len(CCCCCC(1))<>32 or len(CCCCCC(2))<>32 then
Call ClearMemberCookie
else
CJJJJJJ=CCCCCC(1):for CJJJJJC=1 to len(CJJJJJJ):CJJJJCJ=mid(CJJJJJJ,CJJJJJC,1):if isnumeric(CJJJJCJ) then CJJJJCC=CJJJJCC & CJJJJCJ
if len(CJJJJCC)=7 then exit for
next:CJJJJJJ=CCCCCC(2):if CJJJJCC<>mid(CJJJJJJ,6,7) then
Call ClearMemberCookie
else
CJJJJCJ=mid(CJJJJJJ,18,10)/2:if CJJJJCJ<DateDiff(CCCCCJJ("D"), CCCCCJJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJCJCC=Clng(CCCCCC(0)):CJCCJJ=CCCCCC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJCCCJC,CCCCCJC):dim CJJJJJC,CJJJJCJ,CJJJJCC:for CJJJJJC=1 to len(CCCCCJC):CJJJJCJ=mid(CCCCCJC,CJJJJJC,1):if isnumeric(CJJJJCJ) then CJJJJCC=CJJJJCC & CJJJJCJ
if len(CJJJJCC)=7 then exit for
next:CJJJJCC=CJCCCJC & CCCCCJJ("]") & CCCCCJC & CCCCCJJ("]") & Fix(10000*(Rnd+1)) & CJJJJCC & Fix(10000*(Rnd+1)) & DateDiff(CCCCCJJ("D"), CCCCCJJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CCCCCJJ("!$*|t|qt#"))=CJJJJCC:End Sub:::Function IIf(CCCCCCJ, CCCCCCC, CJJJJJJJ):if isnull(CCCCCCJ) or isempty(CCCCCCJ) then
IIf = CJJJJJJJ
elseif CCCCCCJ Then
IIf = CCCCCCC
Else
IIf = CJJJJJJJ
end if:End Function:Const CCJJCCC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::Sub Debug(str):response.Charset=CCCCCJJ("FE7\g"):dim CJJJJJC,CJJJJCJ,CJJJCJJ:if isarray(str) then
on error resume next:CJJJJJC=ubound(str,2):CJJJCJJ=err.number:err.clear:on error goto 0:if CJJJCJJ<>0 then
for CJJJJJC=0 to ubound(str):if CJJJJJC>0 then response.Write CCCCCJJ("k3C ,^m")
response.Write CJJJJJC & CCCCCJJ("i ,") & str(CJJJJJC):next
else
response.Write CCCCCJJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CJJJJJC=0 to ubound(str,2):response.Write CCCCCJJ("kE9 ,2=:8?lV=67EVm") & CJJJJJC & CCCCCJJ("k^E9m")
next:response.Write CCCCCJJ("k^ECm"):for CJJJJJC=0 to ubound(str):response.Write CCCCCJJ("kECmkE9m") & CJJJJJC & CCCCCJJ("k^E9m"):for CJJJJCJ=0 to ubound(str,2):response.Write CCCCCJJ("kE5m") & str(CJJJJJC,CJJJJCJ) & CCCCCJJ("k^E5m"):next:response.Write CCCCCJJ("k^ECm"):next:response.Write CCCCCJJ("k^E23=6m")
end if
elseif isnull(str) then
response.Write CCCCCJJ(",}F==.")
else
Response.Write replace(str,vbcrlf,CCCCCJJ("k3Cm"))
end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CJJJJJJC,CJJJJJCJ):dim CCCCCC:CCCCCC=CJJJJJJC & CCCCCJJ("l") & CJJJJJCJ & CCCCCJJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCCCCJJ("$6E\r@@<:6"),CCCCCC):End Sub::::::sub ShowMessage(CJJJJJCC):response.Charset="utf-8":Response.Write CCCCCJJ("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") & CJJJJJCC & CCCCCJJ("k^5:Gmk^5:Gmk3Cm")
end sub:Function CCJCJJC(CJJJCJJ):if isnull(CJJJCJJ) or trim(CJJJCJJ)="" or not isnumeric(CJJJCJJ) then
CCJCJJC=false
else
Dim CJJJCJC:Set CJJJCJC = New RegExp:CJJJCJC.Pattern = CCCCCJJ("/-5ZS"):CJJJCJC.IgnoreCase = True:CCJCJJC = CJJJCJC.test(CJJJCJJ):set CJJJCJC=nothing
end if:End Function:Function CCJCJCJ(CJJJJCJJ):dim CJJJCCJ,CJJJCCC:CJJJCCJ=CCCCCJJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJJJJCJJ & CCCCCJJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJJJCCC=CJJCCJ.execute(CJJJCCJ):CCJCJCJ = CJJJCCC(0):if isnull(CCJCJCJ) then CCJCJCJ=1
CJJJCCC.close : set CJJJCCC=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CJJCCJJ=nothing:set CCJCJCC=nothing:set CCJCCJJ=nothing:set CCJCCJC=nothing:CJJJCCC.close : set CJJJCCC=nothing:CJCJJC.Close : Set CJCJJC=Nothing:CJCJJJ.Close : Set CJCJJJ=Nothing:CCJCCCJ.Close : Set CCJCCCJ = Nothing:CJJCCJ.Close : Set CJJCCJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJJJJCC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCCCCJJ("!$*0|6DD286"),server.URLEncode(CJJJJJCC)):Response.Redirect CCCCCJJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub::::::::::::::::::Function CCJCCCC(Table):Dim CJJJCCC, CJJCJJJ, str(), CJJJJJC,CJJJJCJ,CJJCJCJ:CJJCJCJ=UCase(Table):If Not IsArray(Application(CCCCCJJ("!$*0") & CJJCJCJ)) Then
CJCJCJ=CCCCCJJ("D6=64E ,:5[?2>6[>6>36CEJA6 ,7C@> ,,") & Table & CCCCCJJ(". ,@C56C ,3J ,D@CE[:5"):set CJJJCCC=server.createobject(CCCCCJJ("25@53]C64@C5D6E")):CJJJCCC.open CJCJCJ,CJJCCJ,1:CJJCJJJ = CJJJCCC.RecordCount:ReDim str(CJJCJJJ, 2):If CJJCJJJ > 0 Then
For CJJJJJC = 1 To CJJCJJJ:for CJJJJCJ=0 to 2:str(CJJJJJC, CJJJJCJ) = CJJJCCC(CJJJJCJ):next:CJJJCCC.MoveNext:Next
End If:CJJJCCC.Close: Set CJJJCCC = Nothing:Application(CCCCCJJ("!$*0") & CJJCJCJ) = str
End If:CCJCCCC = Application(CCCCCJJ("!$*0") & CJJCJCJ):End Function::Function CCCJJJJ(CJJJJCJJ,CJJJJCJC,CJCCCJC):Dim str, CJJJJJC, CJJCJCC:CJJCJCC = CCJCCCC(CJJJJCJJ):For CJJJJJC = 1 To UBound(CJJCJCC):if Cstr(CJJCJCC(CJJJJJC,2))=Cstr(CJJJJCJC) and CStr(CJJCJCC(CJJJJJC, 0)) = CJCCCJC & "" then
str=CJJCJCC(CJJJJJC,1):exit for
end if:Next:if str="" then str=CCCCCJJ(",????.")
CCCJJJJ=str:End Function:::::::::::::::::Sub ClearCache(CJJJJCCJ):Application.Contents.Remove CJJJJCCJ
End Sub::Class jTree:Private CJCJCJ, CJJCCJJ, CJJCCJC, CJJCCCJ,CJJCCCC,CJCJJJJ,CJCJJJC,CJCJJCJ:Private Sub Class_Initialize():CJJCCJC = 0:CJJCCCJ = 0:CJCJJCJ=10:End Sub:Public Property Let Table(CJJJJCCC):if CJJJJCCC="" then Call RedirectMessage(CCCCCJJ("????????,;%C66????????????????????@??????????,"))
CJJCCCC=CJJJJCCC:CJCJJJJ=CCCCCJJ("!$*0") & UCase(CJJCCCC):Call GetTreeArray:End Property:Public Property Get Table():Table=CJJCCCC:End Property:::Private Sub GetTreeArray():Dim CJJJJJC, CJJJJCJ, CJCJJCC,RecordCount:CJJCCJJ = Application(CJCJJJJ):If Not IsArray(CJJCCJJ) Then
CJCJCJ = CCCCCJJ("D6=64E ,4@F?EW:5X ,7C@> ,") & CJJCCCC:if CJCJJJC<>"" then CJCJCJ=CJCJCJ & CCCCCJJ(" ,H96C6 ,") & CJCJJJC
set CJCJJCC=CJJCCJ.execute(CJCJCJ):RecordCount=CJCJJCC(0):if RecordCount=0 then Call RedirectMessage(CCCCCJJ("????W") & CJJCCCC & CCCCCJJ("^") & CJCJJJC & CCCCCJJ("X????????????"))
CJJCCCJ=RecordCount+CJCJJCJ:ReDim CJJCCJJ(CJJCCCJ, 4):CJCJCJ = CCCCCJJ("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCCCC & CCCCCJJ(" ,H:E9 ,W?@=@4<X"):if CJCJJJC<>"" then CJCJCJ=CJCJCJ & CCCCCJJ(" ,H96C6 ,") & CJCJJJC
CJCJCJ=CJCJCJ & CCCCCJJ(" ,@C56C ,3J ,D@CE[:5"):set CJCJJCC=CJJCCJ.execute(CJCJCJ):For CJJJJJC = 1 To RecordCount:For CJJJJCJ = 0 To 4:CJJCCJJ(CJJJJJC, CJJJJCJ) = CJCJJCC(CJJJJCJ):if IsNull(CJJCCJJ(CJJJJJC,4)) then CJJCCJJ(CJJJJJC,4)=0
If CJJCCJJ(CJJJJJC,2)="" then CJJCCJJ(CJJJJJC,2)=CCCCCJJ(",??.")
Next:CJCJJCC.MoveNext:Next:CJCJJCC.Close: Set CJCJJCC = Nothing:for CJJJJJC=CJJCCCJ-(CJCJJCJ-1) to CJJCCCJ:CJJCCJJ(CJJJJJC,0)=CJJJJJC:next:Application.Lock():Application(CJCJJJJ) = CJJCCJJ:Application.UnLock()
else
CJJCCCJ=Ubound(CJJCCJJ)
End If:End Sub:::::Private Function CCCJJCJ(CJCCCJC):dim CJJJJJC,CJCJCJC:CCCJJCJ=0:CJCJCJC=CStr(CJCCCJC):if CJCJCJC<>"0" then
for CJJJJJC=1 to CJJCCCJ:If CStr(CJJCCJJ(CJJJJJC, 0))=CJCJCJC Then
CCCJJCJ = CJJJJJC:Exit For
End If:Next
end if:End Function:Public Function CCCJJCC(CJCCCJC):if Cstr(CJCCCJC)="0" then
CCCJJCC=CCCCCJJ("??")
else
Dim CJJJJJC,CJCJJCC:CJJJJJC=CCCJJCJ(CJCCCJC):if CJJJJJC>0 then
CCCJJCC=CJJCCJJ(CJJJJJC,2):if CCCJJCC="" then
set CJCJJCC=CJJCCJ.execute(CCCCCJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCCCC & CCCCCJJ(" ,H96C6 ,:5l") & CJCCCJC):if CJCJJCC.eof then Call RedirectMessage(CCCCCJJ("xs??,") & CJCCCJC & CCCCCJJ("??,??????"))
CCCJJCC=CJCJJCC(1):Call UpdateCache(CJCCCJC,CJCJJCC(0),CCCJJCC,CJCJJCC(2),CJCJJCC(3)):CJCJJCC.Close: Set CJCJJCC = Nothing
end if
else
set CJCJJCC=CJJCCJ.execute(CCCCCJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCCCC & CCCCCJJ(" ,H96C6 ,:5l") & CJCCCJC):if CJCJJCC.eof then Call RedirectMessage(CCCCCJJ("xs??,") & CJCCCJC & CCCCCJJ("??,??????"))
CCCJJCC=CJCJJCC(1):Call UpdateCache(CJCCCJC,CJCJJCC(0),CCCJJCC,CJCJJCC(2),CJCJJCC(3)):CJCJJCC.Close: Set CJCJJCC = Nothing
end if
end if:End Function:::Public Function CCCJCJJ(CJCCCJC):Dim CJJJJJC,CJCJCCJ:CJJJJJC=CCCJJCJ(CJCCCJC):if CJJJJJC=0 then
CJCJCCJ=CCCJCJC(CJCCCJC)
else
CJCJCCJ=CJJCCJJ(CJJJJJC,3):if isnull(CJCJCCJ) or CJCJCCJ="" then
CJCJCCJ=CCCJCJC(CJCCCJC)
elseif Mid(CJCJCCJ,instrrev(CJCJCCJ,CCCCCJJ("["))+1)<>CStr(CJCCCJC) then
CJCJCCJ=CCCJCJC(CJCCCJC)
elseif Left(CJCJCCJ,1)=CCCCCJJ("[") then
CJCJCCJ=CCCJCJC(CJCCCJC)
end if
end if:CCCJCJJ=CJCJCCJ:End Function:Private Function CCCJCJC(CJCCCJC):dim CJCJCJC:CJCJCJC=CStr(CJCCCJC):if CJCJCJC="0" then
CCCJCJC=""
else
dim CJCJJCC:set CJCJJCC=CJJCCJ.execute(CCCCCJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCCCC & CCCCCJJ(" ,H96C6 ,:5l") & CJCCCJC):if CJCJJCC.eof then
Call UpdateCache(CJCCCJC,"","","",""):Call RedirectMessage(CCCCCJJ("??????,xs??,") & CJCCCJC & CCCCCJJ("??,????????,????????????????????,"))
else
if CJCJJCC(0)=0 then
CCCJCJC="0," & CJCCCJC
else
CCCJCJC=CCCJCJJ(CJCJJCC(0)) & CCCCCJJ("[") & CJCCCJC
end if:if CJCJJCC(2)<>CCCJCJC then
CJJCCJ.execute CCCCCJJ("FA52E6 ,") & CJJCCCC & CCCCCJJ(" ,D6E ,A2E9lV") & CCCJCJC & CCCCCJJ("V ,H96C6 ,:5l") & CJCCCJC
else
CCCJCJC=CJCJJCC(2)
end if
end if:Call UpdateCache(CJCCCJC,CJCJJCC(0),CJCJJCC(1),CCCJCJC,CJCJJCC(3)):CJCJJCC.Close: Set CJCJJCC = Nothing
end if:End Function::Public Function CCCJCCJ(CJCCCJC):CCCJCCJ = Mid(CCCJCJJ(CJCCCJC), 3):End Function:Public Function CCCJCCC(CJCCCJC):Dim CJJJJJC, CJJJJCJ, CJCJCCC,Str, CJCJCCJ, CJJCJJJ, CJCCJJJ():CJCJCCJ = CCCJCCJ(CJCCCJC):CJCJCCJ = Split(CJCJCCJ, CCCCCJJ("[")):for CJJJJJC=0 to Ubound(CJCJCCJ):CJCJCCC=CJCJCCJ(CJJJJJC):str=str & CCCCCJJ("M") & CJCJCCC & CCCCCJJ("M") & CCCJJCC(CJCJCCC):next:if str<>"" then str=Mid(str,2)
CCCJCCC=str:End Function::::::::::::Public Function GetPositionStr_From(CJCCCJC, CCCCJJC):if isnull(CJCCCJC) or isnull(CCCCJJC) then
GetPositionStr_From=CCCCCJJ(",????????."):exit function
end if:Dim Str, CJJJJJC, CJCCJJJ, CJJCJJJ, CJCCJJC:CCCCJJC = CStr(CCCCJJC):If CCCCJJC = "0" or CCCCJJC = CStr(CJCCCJC) Then
Str = CCCJJCC(CJCCCJC)
Else
CJCCJJJ = Split(CCCJCCC(CJCCCJC), CCCCCJJ("M")):CJJCJJJ = UBound(CJCCJJJ):CJCCJJC = False:For CJJJJJC = 0 To CJJCJJJ Step 2:If CJCCJJJ(CJJJJJC) = CCCCJJC And Not CJCCJJC Then CJCCJJC = True
If CJCCJJC Then
If Str <> "" Then Str = Str & CCCCCJJ("??,")
Str = Str & CJCCJJJ(CJJJJJC + 1)
End If:Next
End If:str=Mid(str,instr(str,CCCCCJJ("??,"))+1):GetPositionStr_From = Str:End Function:::::::Public Sub ClearCache():Application.Contents.Remove CJCJJJJ
End Sub:Public Sub UpdateCache(CJCCCJC,CJCJCCC,CJJJCJJJ,CJCJCCJ,CJJJCJJC):dim CJJJJJC,CJJJJCJ:CJCCCJC=CLng(CJCCCJC):CJJJJJC=CCCJJCJ(CJCCCJC):if CJCJCCC="" and CJJJCJJJ="" and CJCJCCJ="" and CJJJCJJC="" then
if CJJJJJC>0 then
for CJJJJCJ=1 to 4:CJJCCJJ(CJJJJJC,CJJJJCJ)=Null:next
end if
else
if CJJJJJC=0 then
for CJJJJCJ=1 to CJJCCCJ:if CJJCCJJ(CJJJJCJ,1) & ""="" then
CJJJJJC=CJJJJCJ:exit for
end if:next
end if:if CJJJJJC=0 then
Call ClearCache
else
CJJCCJJ(CJJJJJC,0)=CLng(CJCCCJC):if CJCJCCC<>"" then CJJCCJJ(CJJJJJC,1)=CLng(CJCJCCC)
if CJJJCJJJ<>"" then CJJCCJJ(CJJJJJC,2)=CJJJCJJJ
if CJCJCCJ<>"" then CJJCCJJ(CJJJJJC,3)=CJCJCCJ
if CJJJCJJC<>"" then CJJCCJJ(CJJJJJC,4)=CLng(CJJJCJJC)
end if
end if:if CJJJJJC>0 then
Application.Lock():Application(CJCJJJJ) = CJJCCJJ:Application.UnLock()
end if:End Sub:Private Sub Debug(CJJJJJCC):Call ConnClose:Response.Write CJJJJJCC:Response.End:End Sub:Private Function CCJCJCJ():CCJCJCJ=CCCCJCJ+1:End Function:Private Function CCCCJCJ():dim CJJJCCC:set CJJJCCC=CJJCCJ.execute(CCCCCJJ("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CJJCCCC & CCCCCJJ(" ,@C56C ,3J ,:5 ,56D4")):CCCCJCJ=CJJJCCC(0):CJJJCCC.Close: Set CJJJCCC = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::dim CCCCCJ:CJCJCJ=Request.ServerVariables(CCCCCJJ("!p%w0x}u~")):if instr(CJCJCJ,CCCCCJJ("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CCJCJJ and not CCCJCC then Call RedirectMessage(CCCCCJJ("????????,????????????????????????,"))
CCCCCJ=CCJJJC
elseif instr(CJCJCJ,CCCCCJJ("^>^D49@@=^DEF56?E^"))>0 or instr(CJCJCJ,CCCCCJJ("^DEF56?E^"))>0 then
Call CheckLogined:CCCCCJ=CCJJJC
elseif instr(CJCJCJ,CCCCCJJ("^D49@@="))>0 then
CCCCCJ=Request.QueryString(CCCCCJJ("D49@@=")):if not CCJCJJC(CCCCCJ) then CCCCCJ=Request.QueryString(CCCCCJJ("F"))
if not CCJCJJC(CCCCCJ) then CCCCCJ=Request.QueryString(CCCCCJJ("D4"))
if not CCJCJJC(CCCCCJ) then Call RedirectMessage(CCCCCJJ("????????W$49@@=X??@??????????,"))
CCCCCJ=csng(CCCCCJ)
end if:if CCCCCJ=0 then Call RedirectMessage(CCCCCJJ("????????W$49@@=X????W_X??,"))
Dim CJCCJCJ:Call SetConfig:Sub SetConfig():dim CJCCJJJ,CJJJCCC:CJCJCJ=CCCCCJJ("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") & CCCCCJ:set CJJJCCC=CJJCCJ.execute(CJCJCJ):if CJJJCCC.eof then Call RedirectMessage(CCCCCJJ("??W") & CJCJCC & CCCCCJJ("X??????????W") & CCCCCJ & CCCCCJJ("X????????,"))
ReDim CJCCJJJ(61):CJCCJJJ(0)=CJJJCCC(CCCCCJJ(";:2@H6:")) & "":CJCCJJJ(1)=CJJJCCC(CCCCCJJ("EJA6")):CJCCJJJ(2)=CJJJCCC(CCCCCJJ("D>D")):CJCCJJJ(3)=CJJJCCC(CCCCCJJ("4FDE@>8C@FA")) & "":CJCCJJJ(4)=CJJJCCC(CCCCCJJ("D:5632C0@E96C")) & "":CJCCJJJ(5)=IIf(isnull(CJJJCCC(CCCCCJJ("E6DEC6DF=EG:6H"))),0,CJJJCCC(CCCCCJJ("E6DEC6DF=EG:6H"))):CJCCJJJ(6)=CJJJCCC(CCCCCJJ("K:IF?E:>6")):CJCCJJJ(7)=CJJJCCC(CCCCCJJ("766")):CJCCJJJ(8)=CJJJCCC(CCCCCJJ("C6E6DE52J")):CJCCJJJ(9)=CJJJCCC(CCCCCJJ("6IA:C652E6")):CJCCJJJ(10)=CJJJCCC(CCCCCJJ("E:E=6")):CJCCJJJ(11)=CJJJCCC(CCCCCJJ(":?EC@")) & "":CJCCJJJ(12)=CJJJCCC(CCCCCJJ("A:4EFC6")) & "":CJCCJJJ(13)=CJJJCCC(CCCCCJJ("72>:=J")):CJCCJJJ(14)=CJJJCCC(CCCCCJJ("4@AJC:89E")) & "":CJCCJJJ(15)=IIf(isnull(CJJJCCC(CCCCCJJ("D6>6DE6C0DE2CE052E6"))),CCCCCJJ("`h__\`\`"),CJJJCCC(CCCCCJJ("D6>6DE6C0DE2CE052E6"))):CJCCJJJ(16)=IIf(isnull(CJJJCCC(CCCCCJJ("K:IF?0E:>6D09:89=:89E"))),0,CJJJCCC(CCCCCJJ("K:IF?0E:>6D09:89=:89E"))):CJCCJJJ(17)=CJJJCCC(CCCCCJJ("4@?E24E")) & "":CJCCJJJ(18)=CJJJCCC(CCCCCJJ("D2?5E23=6")):CJCCJJJ(19)=CJJJCCC(CCCCCJJ("4C:D:D")):CJCCJJJ(20)=CJJJCCC(CCCCCJJ("JJ52E6")):CJCCJJJ(21)=CJJJCCC(CCCCCJJ("BB")):CJCCJJJ(22)=CJJJCCC(CCCCCJJ("JFJF60D>D0EA=")) & "":CJCCJJJ(23)=CJJJCCC(CCCCCJJ("JFJF60E6DE0=3")) & "":CJCCJJJ(25)=CJJJCCC(CCCCCJJ("6IA6CE")):CJCCJJJ(26)=CJJJCCC(CCCCCJJ(">@5:?7@")):CJCCJJJ(27)=CJJJCCC(CCCCCJJ("9@>6A286E@AA:4EFC6")) & "":CJCCJJJ(28)=CJJJCCC(CCCCCJJ("4C:D:D=3")):CJCCJJJ(29)=IIf(CJJJCCC(CCCCCJJ("4C:D:D@=5")),False,True):CJCCJJJ(30)=CJJJCCC(CCCCCJJ("8C@FA8F:52?46")):CJCCJJJ(31)=CJJJCCC(CCCCCJJ("3:@7665324<")):CJCCJJJ(32)=CJJJCCC(CCCCCJJ("<6JDEC")):CJCCJJJ(33)=CJJJCCC(CCCCCJJ("=@8@")) & "":CJCCJJJ(34)=CJJJCCC(CCCCCJJ("K:46")):CJCCJJJ(35)=IIf(CJJJCCC(CCCCCJJ(":D?6H")),True,False):CJCCJJJ(36)=121:CJCCJJJ(37)=111:CJCCJJJ(38)=160:CJCCJJJ(39)=CJJJCCC(CCCCCJJ("8F6DE3@@<")):CJCCJJJ(40)=CJJJCCC(CCCCCJJ("75D")):CJCCJJJ(42)=CJJJCCC(CCCCCJJ("9@>6=@8:?")):CJCCJJJ(43)=CJJJCCC(CCCCCJJ("K:IF?0?6657665324<")):CJCCJJJ(44)=CJJJCCC(CCCCCJJ("K:IF?0E:>6D0=:>:E")):CJCCJJJ(45)=CJJJCCC(CCCCCJJ("4@>A=6E60:?7@")):CJCCJJJ(46)=CJJJCCC(CCCCCJJ("E6DE:?EC@")) & "":CJCCJJJ(47)=IIf(isnull(CJJJCCC(CCCCCJJ("JFJF60367@C60E:>6"))),0,CJJJCCC(CCCCCJJ("JFJF60367@C60E:>6"))):CJCCJJJ(49)=CJJJCCC(CCCCCJJ("D>D0C646:G6C")):CJCCJJJ(50)=CJJJCCC(CCCCCJJ("D>D0D:8?")) & "":CJCCJJJ(52)=CJJJCCC(CCCCCJJ("JFJF602CC2?86")):CJCCJJJ(53)=IIf(isnull(CJJJCCC(CCCCCJJ("DEF56?E0BF6DE:@?04@F?E"))),0,CJJJCCC(CCCCCJJ("DEF56?E0BF6DE:@?04@F?E"))):CJCCJJJ(54)=CJJJCCC(CCCCCJJ("9:560=30@FE@7286")):CJCCJJJ(55)=CJJJCCC(CCCCCJJ("JFJF60E6DE052JD")):CJCCJJJ(56)=CJJJCCC(CCCCCJJ("JFJF60H66<0=:>:E")):CJCCJJJ(57)=CJJJCCC(CCCCCJJ("JFJF604964<65")):CJCCJJJ(58)=CJJJCCC(CCCCCJJ("K:IF?0?6657665324<0?6IE")):CJCCJJJ(59)=CJJJCCC(CCCCCJJ("4964<?6HDEF56?E")):CJCCJJJ(60)=CJJJCCC(CCCCCJJ("K:IF?04=@D6052E6")):CJJJCCC.close : set CJJJCCC=nothing:if isNull(CJCCJJJ(8)) or CJCCJJJ(8)="" then CJCCJJJ(8)=0
if isdate(CJCCJJJ(9)) then
CJCCJJJ(9)=cdate(CJCCJJJ(9)):if CJCCJJJ(9)<Date then Call RedirectMessage(CCCCCJJ("????????,????????????????W") & CJCCJJJ(9) & CCCCCJJ("X??????,"))
end if:if not CCJCJJC(CJCCJJJ(20)) then CJCCJJJ(20)=7
select case CJCCJJJ(1):case 1,2,16:CJCCJJJ(36)=159:case 4,5,6,10,11:CJCCJJJ(36)=190:CJCCJJJ(37)=178:CJCCJJJ(38)=191:case 7,13:CJCCJJJ(36)=164:CJCCJJJ(37)=178:CJCCJJJ(38)=179:end select:CJCCJCJ=CJCCJJJ:End Sub:Function CCJCCJC(CJJJCJCJ):dim CJCCJJJ(7,1),CJJJJJC,CJCCJCC,CJCCCJJ:CJCCJCC=Array(CCCCCJJ("$49@@="),CCCCCJJ("$EF56?E"),CCCCCJJ("s6AE"),CCCCCJJ("vC256"),CCCCCJJ("r=2DD>2E6"),CCCCCJJ("}F>36C"),CCCCCJJ("%62496C"),CCCCCJJ("!2C6?E")):select case CJCCJCJ(1):case 1,2 : CJCCCJJ=Array(CCCCCJJ("????"),CCCCCJJ("????"),CCCCCJJ("????"),CCCCCJJ("????"),CCCCCJJ("????"),CCCCCJJ("????"),CCCCCJJ("????"),CCCCCJJ("????")):case 3,16 : CJCCCJJ=Array(CCCCCJJ("????"),CCCCCJJ("????"),CCCCCJJ("????"),CCCCCJJ("????"),CCCCCJJ("????"),CCCCCJJ("????"),CCCCCJJ("????"),CCCCCJJ("????")):case 4 : CJCCCJJ=Array(CCCCCJJ("????"),CCCCCJJ("??????@"),CCCCCJJ("????"),CCCCCJJ("????"),CCCCCJJ("????"),CCCCCJJ("????"),CCCCCJJ("????"),CCCCCJJ("????")):case 5 : CJCCCJJ=Array(CCCCCJJ("????"),CCCCCJJ("????"),CCCCCJJ("????"),CCCCCJJ("????"),CCCCCJJ("????"),CCCCCJJ("????"),CCCCCJJ("????"),CCCCCJJ("????")):case 6 : CJCCCJJ=Array(CCCCCJJ("????"),CCCCCJJ("??????@"),CCCCCJJ("????"),CCCCCJJ("????"),CCCCCJJ("????"),CCCCCJJ("????"),CCCCCJJ("??????"),CCCCCJJ("????")):case 7 : CJCCCJJ=Array(CCCCCJJ("????"),CCCCCJJ("????"),CCCCCJJ("????"),CCCCCJJ("????"),CCCCCJJ("????"),CCCCCJJ("????"),CCCCCJJ("??????"),CCCCCJJ("????")):case 8 : CJCCCJJ=Array(CCCCCJJ("????"),CCCCCJJ("??????@"),CCCCCJJ("????"),CCCCCJJ("????????"),CCCCCJJ("????"),CCCCCJJ("????"),CCCCCJJ("??????"),CCCCCJJ("????")):case 9 : CJCCCJJ=Array(CCCCCJJ("????"),CCCCCJJ("????"),CCCCCJJ("????"),CCCCCJJ("????"),CCCCCJJ("????"),CCCCCJJ("????"),CCCCCJJ("??????"),CCCCCJJ("????")):case 10 : CJCCCJJ=Array(CCCCCJJ("????"),CCCCCJJ("????"),CCCCCJJ("????"),CCCCCJJ("????????"),CCCCCJJ("????"),CCCCCJJ("????"),CCCCCJJ("??????"),CCCCCJJ("????")):case 11 : CJCCCJJ=Array(CCCCCJJ("????"),CCCCCJJ("??????"),CCCCCJJ("????"),CCCCCJJ("????"),CCCCCJJ("????"),CCCCCJJ("????"),CCCCCJJ("??????"),CCCCCJJ("????")):case 12 : CJCCCJJ=Array(CCCCCJJ("????"),CCCCCJJ("????"),CCCCCJJ("????"),CCCCCJJ("????????"),CCCCCJJ("????"),CCCCCJJ("????"),CCCCCJJ("??????"),CCCCCJJ("????")):case 13 : CJCCCJJ=Array(CCCCCJJ("????"),CCCCCJJ("????"),CCCCCJJ("????"),CCCCCJJ("????"),CCCCCJJ("????"),CCCCCJJ("????"),CCCCCJJ("????"),CCCCCJJ("????")):case 14 : CJCCCJJ=Array(CCCCCJJ("??????"),CCCCCJJ("??@??"),CCCCCJJ("????"),CCCCCJJ("????"),CCCCCJJ("????"),CCCCCJJ("????"),CCCCCJJ("??????"),CCCCCJJ("????")):case 15 : CJCCCJJ=Array(CCCCCJJ("????"),CCCCCJJ("????????"),CCCCCJJ("????"),CCCCCJJ("????????"),CCCCCJJ("????"),CCCCCJJ("????"),CCCCCJJ("??????"),CCCCCJJ("????")):case else : CJCCCJJ=CJCCJCC
end select:for CJJJJJC=0 to Ubound(CJCCJJJ):CJCCJJJ(CJJJJJC,0)=CJCCJCC(CJJJJJC):CJCCJJJ(CJJJJJC,1)=CJCCCJJ(CJJJJJC):next:for CJJJJJC=0 to Ubound(CJCCJJJ):if CJCCJJJ(CJJJJJC,0)=CJJJCJCJ then
CCJCCJC=CJCCJJJ(CJJJJJC,1):exit for
end if:next:End Function::Dim CJCCCJC:CJCCCJC=Request.QueryString(CCCCCJJ("xs")):if not CCJCJJC(CJCCCJC) then
Call ConnClose:Call ShowMessage(CCCCCJJ("????????,??????????????,")):response.end
else
set CJCJJJ=CJJCCC.execute(CCCCCJJ("D6=64E ,E@A ,` ,Y ,7C@> ,G0E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,:5l") & CJCCCJC & CCCCCJJ(" ,2?5 ,>6>36Cl") & CJCJCC):if CJCJJJ.eof then
Call ConnClose:Call ShowMessage(CCCCCJJ("????????,??????????????????????,")):response.end
end if
end if:dim CJCCCCJ:CJCCCCJ=CJCJJJ(CCCCCJJ("=3")):dim CJCCCCC,CJJJJJC:dim CCJJJJJ,CCJJJJC,CCJJJCJ:set CJCJJC=CJJCCJ.execute(CCCCCJJ("D6=64E ,E@A ,` ,AFCA@D6[6IA=2:?0C625[:?EC@` ,7C@> ,=3 ,H96C6 ,:5l") & CJCCCCJ):CCJJJJJ=CJCJJC(0) & "":CCJJJJC=CJCJJC(1) & "":CCJJJCJ=CJCJJC(2) & "":dim CJJCCJJ:set CJJCCJJ=new jtree:CJJCCJJ.table=CCCCCJJ(">6>36C0EJA6"):Response.Write(vbCrLf):Response.Write(CCCCCJJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CCCCCJJ("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CCCCCJJ("k9625m") & vbCrLf):Response.Write(CCCCCJJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CCCCCJJ("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CCCCCJJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CCCCCJJ("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CCCCCJJ("kE:E=6m????????k^E:E=6m") & vbCrLf):Response.Write(CCCCCJJ("k=:?< ,9C67lQ]]^4DD^DE2E]4DDQ ,C6=lQDEJ=6D966EQm") & vbCrLf):Response.Write(CCCCCJJ("kDEJ=6m") & vbCrLf):Response.Write(CCCCCJJ("3@5J ,L ,324<8C@F?5i ,Rbbhhbbj ,>2C8:?i ,_AIj ,7@?E\D:K6i ,`cAIj ,=:?6\96:89Ei ,a__Tj ,=6EE6C\DA24:?8i ,`AIj ,N") & vbCrLf):Response.Write(CCCCCJJ("E5[ ,E9 ,L ,7@?E\D:K6i ,`cAIj ,=:?6\96:89Ei ,`d_Tj ,N") & vbCrLf):Response.Write(CCCCCJJ("]A286 ,L ,H:5E9i ,fegAIj ,>2C8:?i ,_ ,2FE@j ,>2C8:?\E@Ai ,`_AIj ,N") & vbCrLf):Response.Write(CCCCCJJ("]A2860E@A ,L ,324<8C@F?5i ,FC=W]]^=3^:>286D^C6A@CE038`]A?8X ,?@\C6A62Ej ,96:89Ei ,`gAIj ,N") & vbCrLf):Response.Write(CCCCCJJ("]A28604@?E6?E ,L ,324<8C@F?5i ,FC=W]]^=3^:>286D^C6A@CE038a]A?8X ,C6A62E\Jj ,A255:?8i ,b_AI ,d_AIj ,N") & vbCrLf):Response.Write(CCCCCJJ("]A28603@EE@> ,L ,324<8C@F?5i ,FC=W]]^=3^:>286D^C6A@CE038b]A?8X ,?@\C6A62Ej ,96:89Ei ,`_AIj ,N") & vbCrLf):Response.Write(CCCCCJJ("]35 ,L ,3@C56Ci ,`AI ,52D965 ,R______j ,A255:?8i ,_ ,dAIj ,N") & vbCrLf):Response.Write(CCCCCJJ("55 ,L ,>2C8:?i ,_AIj ,N") & vbCrLf):Response.Write(CCCCCJJ("9` ,L ,7@?E\D:K6i ,b_AIj ,3@C56C\3@EE@>i ,cAI ,5@F3=6 ,R______j ,>2C8:?i ,_AIj ,A255:?8\E@Ai ,`c_AIj ,E6IE\2=:8?i ,46?E6Cj ,A255:?8\3@EE@>i ,dAIj ,N") & vbCrLf):Response.Write(CCCCCJJ("9a ,L ,7@?E\D:K6i ,`gAIj ,3@C56C\3@EE@>i ,cAI ,5@F3=6 ,R______j ,>2C8:?i ,_j ,N") & vbCrLf):Response.Write(CCCCCJJ("9b ,L ,3@C56C\3@EE@>i ,`AI ,D@=:5 ,R______j ,7@?E\D:K6i ,`eAIj ,>2C8:?\E@Ai ,b_AIj ,>2C8:?\3@EE@>i ,aAIj ,N") & vbCrLf):Response.Write(CCCCCJJ("9c ,L ,7@?E\D:K6i ,`cAIj ,7@?E\H6:89Ei ,?@C>2=j ,3@C56Ci ,`AI ,D@=:5 ,R______j ,>2C8:?\E@Ai ,d_AIj ,N") & vbCrLf):Response.Write(CCCCCJJ("9c ,DA2? ,L ,7@?E\H6:89Ei ,3@=5j ,324<8C@F?5i ,Rrrrrrrj ,A255:?8i ,aAIj ,>2C8:?\C:89Ei ,`_AIj ,3@C56C\C:89Ei ,`AI ,D@=:5 ,Rbbbbbbj ,E6IE\2=:8?i ,46?E6Cj ,96:89Ei ,adAIj ,H:5E9i ,`a_AIj ,N") & vbCrLf):Response.Write(CCCCCJJ("A ,L ,E6IE\:?56?Ei ,a6>j ,N") & vbCrLf):Response.Write(CCCCCJJ("R6?8=:D9 ,L ,7@?Ei ,3@=5 ,`cAI ,Qr@FC:6C ,}6HQ[ ,r@FC:6C[ ,>@?@DA246j ,E6IE\2=:8?i ,46?E6Cj ,A255:?8\E@Ai ,dAIj ,N") & vbCrLf):Response.Write(CCCCCJJ("R:4@? ,L ,E6IE\2=:8?i ,46?E6Cj ,N") & vbCrLf):Response.Write(CCCCCJJ("R:?7@ ,L ,7@?E\D:K6i ,acAIj ,A255:?8\E@Ai ,f_AIj ,>2C8:?\=67Ei ,`d_AIj ,=:?6\96:89Ei ,a__Tj ,96:89Ei ,e__AIj ,N") & vbCrLf):Response.Write(CCCCCJJ("RD64C6E ,L ,7@?E\D:K6i ,a_AIj ,E6IE\2=:8?i ,46?E6Cj ,3@C56C\E@Ai ,`AI ,D@=:5 ,R___j ,N") & vbCrLf):Response.Write(CCCCCJJ("5E ,L ,7@?E\H6:89Ei ,3@=5j ,>2C8:?\E@Ai ,`_AIj ,N") & vbCrLf):Response.Write(CCCCCJJ("RAC:?E ,L ,324<8C@F?5i ,FC=W]]^=3^:>286D^C6A@CE0E@A]A?8X ,?@\C6A62Ej ,>2C8:?i ,_AI ,2FE@j ,96:89Ei ,bdAIj ,H:5E9i ,fegAIj ,E6IE\2=:8?i ,=67Ej ,N") & vbCrLf):Response.Write(CCCCCJJ("R3FEE@? ,L ,>2C8:?\E@Ai ,bAIj ,>2C8:?\=67Ei ,`_AIj ,N") & vbCrLf):Response.Write(CCCCCJJ("]492CE ,L ,>2C8:?i ,_ ,2FE@j ,N") & vbCrLf):Response.Write(CCCCCJJ("k^DEJ=6m") & vbCrLf):Response.Write(CCCCCJJ("kDEJ=6 ,>65:2lQAC:?EQm") & vbCrLf):Response.Write(CCCCCJJ("3@5J ,L ,324<8C@F?5i ,Ruuuuuuj ,>2C8:?i ,_AIj ,N") & vbCrLf):Response.Write(CCCCCJJ("]A286 ,L ,A286\3C62<\27E6Ci ,2=H2JDj ,H:5E9i ,`__Tj ,>2C8:?i ,_j ,N") & vbCrLf):Response.Write(CCCCCJJ("]A2860E@A ,L ,5:DA=2Ji ,?@?6j ,N") & vbCrLf):Response.Write(CCCCCJJ("]A28604@?E6?E ,L ,324<8C@F?5i ,?@?6j ,A255:?8i ,_AIj ,N") & vbCrLf):Response.Write(CCCCCJJ("]A28603@EE@> ,L ,5:DA=2Ji ,?@?6j ,N") & vbCrLf):Response.Write(CCCCCJJ("R=2DEA286 ,L ,A286\3C62<\27E6Ci ,2FE@j ,N") & vbCrLf):Response.Write(CCCCCJJ("RAC:?E ,L ,5:DA=2Ji ,?@?6j ,N") & vbCrLf):Response.Write(CCCCCJJ("k^DEJ=6m") & vbCrLf):Response.Write(CCCCCJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCCCJJ("k^9625m") & vbCrLf):Response.Write(CCCCCJJ("k3@5Jm") & vbCrLf):Response.Write(CCCCCJJ("k5:G ,:5lQAC:?EQm") & vbCrLf):Response.Write(CCCCCJJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,?2>6lQ3FEE@?Q ,:5lQ3FEE@?Q ,G2=F6lQ????????Q ,E:E=6lQ??????????????????Q ,@?r=:4<lQ;2G2D4C:AEiD6=7]AC:?EWXQm") & vbCrLf):Response.Write(CCCCCJJ(" ,??,????,????????????????????????????????,????????????????,??????????,??????????????, ,k^5:Gm") & vbCrLf):Response.Write(CCCCCJJ("k5:G ,4=2DDlQA286Qm") & vbCrLf):Response.Write(CCCCCJJ(" ,k5:G ,4=2DDlQA2860E@AQmk^5:Gm") & vbCrLf):Response.Write(CCCCCJJ(" ,k5:G ,4=2DDlQA28604@?E6?EQm") & vbCrLf):Response.Write(CCCCCJJ(" ,k5:G ,:5lQ:4@?Qmk:>8 ,DC4lQ]]^:>286D^J:?K92?8]8:7Q ,H:5E9lQg_Q ,96:89ElQg_Q ,E:E=6lQ??????????????????Qmk^5:Gm") & vbCrLf):Response.Write(CCCCCJJ(" ,k9`m")):Response.Write  CJCJJJ(CCCCCJJ("=3?2>649")) & CCCCCJJ("????????"):Response.Write(CCCCCJJ("k^9`m") & vbCrLf):Response.Write(CCCCCJJ(" ,k5:G ,:5lQ6?8=:D9Qm#6A@CE ,@7 ,!DJ49@=@8:42= ,%6DEk^5:Gm") & vbCrLf):Response.Write(CCCCCJJ(" ,k5:G ,:5lQ:?7@Qm") & vbCrLf):Response.Write(CCCCCJJ(" ,kF=m") & vbCrLf):Response.Write(CCCCCJJ(" ,k=:m")):Response.Write  CCJCCJC(CCCCCJJ("}F>36C")):Response.Write(CCCCCJJ("??,")):Response.Write  CJCJJJ(CCCCCJJ("?F>36C")):Response.Write(CCCCCJJ("k^=:m") & vbCrLf):Response.Write(CCCCCJJ(" ,k=:m??????,")):Response.Write  CJCJJJ(CCCCCJJ("C62=?2>6")):Response.Write(CCCCCJJ("k^=:m") & vbCrLf):Response.Write(CCCCCJJ(" ,k=:m??????,")):Response.Write  CJCJJJ(CCCCCJJ("D6I?2>6")):Response.Write(CCCCCJJ("k^=:m") & vbCrLf):Response.Write(CCCCCJJ(" ,k=:m??????,")):Response.Write  CJCJJJ(CCCCCJJ("E6DE286")):Response.Write(CCCCCJJ("??k^=:m") & vbCrLf):Response.Write(CCCCCJJ(" ,k=:m")):Response.Write  CCJCCJC(CCCCCJJ("s6AE")):Response.Write(CCCCCJJ("??,")):Response.Write  CJJCCJJ.GetPositionStr_From(CJCJJJ(CCCCCJJ(">6>36CEJA6")),CCCCCJ):Response.Write(CCCCCJJ("k^=:m") & vbCrLf):Response.Write(CCCCCJJ(" ,")):If CJCCJCJ(1)>=3 Then
Response.Write(vbCrLf):Response.Write(CCCCCJJ(" ,k=:m")):Response.Write  CCJCCJC(CCCCCJJ("vC256")):Response.Write(CCCCCJJ("??,")):Response.Write  CCCJJJJ(CCCCCJJ(">6>36C08C256"),CCCCCJ,CJCJJJ(CCCCCJJ("8C256"))):Response.Write(CCCCCJJ("k^=:m") & vbCrLf):Response.Write(CCCCCJJ(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CCCCCJJ(" ,k=:m??????,")):Response.Write  formatdatetime(CJCJJJ(CCCCCJJ("52E6E:>6")),1):Response.Write(CCCCCJJ("k^=:m") & vbCrLf):Response.Write(CCCCCJJ(" ,k^F=m") & vbCrLf):Response.Write(CCCCCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCCCCJJ(" ,k5:G ,:5lQD64C6EQm????????????????????,??@??????????????,??,??????????,????????@k^5:Gm") & vbCrLf):Response.Write(CCCCCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCCCCJJ(" ,k5:G ,4=2DDlQA28603@EE@>Qmk^5:Gm") & vbCrLf):Response.Write(CCCCCJJ("k^5:Gm") & vbCrLf)::If CJCCCCJ<>121 and CJCCCCJ<>111 Then
Response.Write(vbCrLf):Response.Write(CCCCCJJ("k5:G ,4=2DDlQA286Qm") & vbCrLf):Response.Write(CCCCCJJ(" ,k5:G ,4=2DDlQA2860E@AQmk^5:Gm") & vbCrLf):Response.Write(CCCCCJJ(" ,k5:G ,4=2DDlQA28604@?E6?EQm") & vbCrLf):Response.Write(CCCCCJJ(" ,k9am????k^9am") & vbCrLf):Response.Write(CCCCCJJ(" ,")):if CCJJJJJ<>"" then
Response.Write(vbCrLf):Response.Write(CCCCCJJ(" ,k9bm????????k^9bm") & vbCrLf):Response.Write(CCCCCJJ(" ,kAm")):Response.Write  CCJJJJJ:Response.Write(CCCCCJJ("k^Am") & vbCrLf):Response.Write(CCCCCJJ(" ,"))
end if:if CCJJJJC<>"" then
Response.Write(vbCrLf):Response.Write(CCCCCJJ(" ,k9bm??@??????k^9bm") & vbCrLf):Response.Write(CCCCCJJ(" ,")):CJCCCCC=split(CCJJJJC,vbcrlf):response.Write CCCCCJJ("kF=m"):for CJJJJJC=0 to ubound(CJCCCCC):response.Write CCCCCJJ("k=:m") & CJCCCCC(CJJJJJC) & CCCCCJJ("k^=:m"):next:response.Write CCCCCJJ("k^F=m")
end if:if CCJJJCJ<>"" then
Response.Write(vbCrLf):Response.Write(CCCCCJJ(" ,k9bm????????k^9bm") & vbCrLf):Response.Write(CCCCCJJ(" ,")):response.write CCCCCJJ("kAm") & replace(CCJJJCJ,vbcrlf,CCCCCJJ("kAm"))
end if:Response.Write(vbCrLf):Response.Write(CCCCCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCCCCJJ(" ,k5:G ,4=2DDlQA28603@EE@>Qmk^5:Gm") & vbCrLf):Response.Write(CCCCCJJ("k^5:Gm") & vbCrLf)
End If:Response.Write(vbCrLf):Response.Write(CCCCCJJ("k5:G ,4=2DDlQA286Qm") & vbCrLf):Response.Write(CCCCCJJ(" ,k5:G ,4=2DDlQA2860E@AQmk^5:Gm") & vbCrLf):Response.Write(CCCCCJJ(" ,k5:G ,4=2DDlQA28604@?E6?EQm") & vbCrLf):Response.Write(CCCCCJJ(" ,k9am??????????????????k^9am") & vbCrLf):Response.Write(CCCCCJJ(" ,k9bm????????k^9bm") & vbCrLf):Response.Write(CCCCCJJ(" ,")):dim CCJJJCC,CCJJCJJ,CCJJCJC:if CJCCCCJ=2 then
CJCCCCC=split(CJCJJJ(CCCCCJJ("6IA=2:?")),vbcrlf):CCJJCJJ=split(CJCJJJ(CCCCCJJ("D4@C60C2H")),CCCCCJJ("M")):CCJJCJC=split(CJCJJJ(CCCCCJJ("D4@C60E")),CCCCCJJ("M")):CCJJJCC=split(CCCCCJJ("??????M????????M????@????????M????M????M????M????M????M??????@??M????M????"),CCCCCJJ("M")):for CJJJJJC=0 to 10:response.Write CCCCCJJ("k9cmkDA2?m") & CCJJJCC(CJJJJJC) & CCCCCJJ("k^DA2?m????????????????????,") & CCJJCJJ(CJJJJJC) & CCCCCJJ("????,????????,") & CCJJCJC(CJJJJJC) & CCCCCJJ("????,k^9cm"):response.Write CCCCCJJ("kAm") & CJCCCCC(CJJJJJC) & CCCCCJJ("k^Am"):next
elseif CJCCCCJ=6 then
CJCCCCC=split(CJCJJJ(CCCCCJJ("6IA=2:?")),vbcrlf):CCJJCJJ=split(CJCJJJ(CCCCCJJ("D4@C60E")),CCCCCJJ("M")):set CJCJJC=CJJCCJ.execute(CCCCCJJ("D6=64E ,D9@CE[?2>6[6IA=2:? ,7C@> ,=3724E@C ,H96C6 ,=3l") & CJCCCCJ & CCCCCJJ(" ,@C56C ,3J ,D@CE")):for CJJJJJC=0 to 23:response.Write CCCCCJJ("k9cmkDA2?m") & CJCJJC(1) & CCCCCJJ("W") & CJCJJC(0) & CCCCCJJ("Xk^DA2?m") & CJCJJC(2):if not isnull(CJCJJC(2)) then response.Write CCCCCJJ("??,")
response.Write  CCCCCJJ("??????????,") & CCJJCJJ(CJJJJJC) & CCCCCJJ("????,k^9cm"):response.Write CCCCCJJ("kAm") & CJCCCCC(CJJJJJC) & CCCCCJJ("k^Am"):CJCJJC.movenext:next
elseif CJCCCCJ=94 then
CJCCCCC=split(CJCJJJ(CCCCCJJ("6IA=2:?")),vbcrlf):CCJJCJJ=split(CJCJJJ(CCCCCJJ("D4@C60E")),CCCCCJJ("M")):set CJCJJC=CJJCCJ.execute(CCCCCJJ("D6=64E ,?2>6[6IA=2:? ,7C@> ,=30K8CI=;<0=3 ,@C56C ,3J ,:5")):for CJJJJJC=0 to 11:response.Write CCCCCJJ("k9cmkDA2?m") & CJCJJC(0) & CCCCCJJ("k^DA2?m??????????,") & CCJJCJJ(CJJJJJC) & CCCCCJJ("????,k^9cm"):response.Write CCCCCJJ("kAm") & CJCCCCC(CJJJJJC) & CCCCCJJ("k^Am"):response.Write CCCCCJJ("k5:G ,4=2DDlV35VmkAm") & replace(CJCJJC(1),vbcrlf,CCCCCJJ("k^AmkAm")) & CCCCCJJ("k^Amk^5:Gm")
CJCJJC.movenext:next
elseif CJCCCCJ=99 then
CJCCCCC=split(CJCJJJ(CCCCCJJ("6IA=2:?")),vbcrlf):CCJJCJJ=split(CJCJJJ(CCCCCJJ("D4@C60C2H")),CCCCCJJ("M")):CCJJJCC=split(CCCCCJJ("??????M??????M????????M????@??M????????M????????M????????,??????M????"),CCCCCJJ("M")):for CJJJJJC=0 to 7:response.Write CCCCCJJ("k9cmkDA2?m") & CCJJJCC(CJJJJJC) & CCCCCJJ("k^DA2?m????????????????????,") & CCJJCJJ(CJJJJJC) & CCCCCJJ("????,k^9cm"):response.Write CCCCCJJ("kAm") & CJCCCCC(CJJJJJC) & CCCCCJJ("k^Am"):next
else
CJCCCCC=CJCJJJ(CCCCCJJ("6IA=2:?a")) & "":if CJCCCCC="" then CJCCCCC=CJCJJJ(CCCCCJJ("6IA=2:?")) & ""
response.Write CCCCCJJ("kAm") & replace(CJCCCCC,vbcrlf,CCCCCJJ("k^AmkAm")) & CCCCCJJ("k^Am")
end if:CJCCCCC=Trim(CJCJJJ(CCCCCJJ("25G:46"))) & "":if CJCCCCC<>"" then
response.Write CCCCCJJ("k9bm????????k^9bm"):response.Write CCCCCJJ("kAm") & replace(CJCCCCC,vbcrlf,CCCCCJJ("k^AmkAm")) & CCCCCJJ("k^Am")
end if:Response.Write(vbCrLf):Response.Write(CCCCCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCCCCJJ(" ,k5:G ,4=2DDlQA28603@EE@>Qmk^5:Gm") & vbCrLf):Response.Write(CCCCCJJ("k^5:Gm") & vbCrLf)::If CJCCCCJ<>121 and CJCCCCJ<>111 Then
Response.Write(vbCrLf):Response.Write(CCCCCJJ("k5:G ,4=2DDlQA286Q ,:5lQ=2DEA286Qm") & vbCrLf):Response.Write(CCCCCJJ(" ,k5:G ,4=2DDlQA2860E@AQmk^5:Gm") & vbCrLf):Response.Write(CCCCCJJ(" ,k5:G ,4=2DDlQA28604@?E6?EQm") & vbCrLf):Response.Write(CCCCCJJ(" ,k9am????k^9am") & vbCrLf):Response.Write(CCCCCJJ(" ,k@=m") & vbCrLf):Response.Write(CCCCCJJ(" ,k=:m????????????????????,??@??????????????,??,??????????,????????@k^=:m") & vbCrLf):Response.Write(CCCCCJJ(" ,k=:m??????????????")):Response.Write  CJCCJCJ(10):Response.Write(CCCCCJJ("????????????????????k^=:m") & vbCrLf):Response.Write(CCCCCJJ(" ,k=:m????????????????,k2 ,9C67lQ9EEADi^^HHH]ADJ]4@>]4?Q ,E2C86ElQ03=2?<Qm9EEADi^^HHH]ADJ]4@>]4?k^2mk^=:m") & vbCrLf):Response.Write(CCCCCJJ(" ,k^@=m") & vbCrLf):Response.Write(CCCCCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCCCCJJ(" ,k5:G ,4=2DDlQA28603@EE@>Qmk^5:Gm") & vbCrLf):Response.Write(CCCCCJJ("k^5:Gm") & vbCrLf)
End If:Response.Write(vbCrLf):Response.Write(CCCCCJJ("k^3@5Jm") & vbCrLf):Response.Write(CCCCCJJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJJCCJJ=nothing:set CCJCJCC=nothing:set CCJCCJJ=nothing:set CCJCCJC=nothing:CJCJJC.Close:Set CJCJJC=Nothing:CJCJJJ.Close:Set CJCJJJ=Nothing:CJJCCJ.Close:Set CJJCCJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CCCCCJJ(ByVal CCCCJCC)
Dim CCJJCCJ, CJJJJJC, CJJJCJJ
CCCCJCC = Replace(CCCCJCC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJJJJJC = 1 To Len(CCCCJCC)
If CJJJJJC <> CJJJCJJ Then
CCJJCCJ = AscW(Mid(CCCCJCC, CJJJJJC, 1))
If CCJJCCJ >= 33 And CCJJCCJ <= 79 Then
CCCCCJJ = CCCCCJJ & Chr(CCJJCCJ + 47)
ElseIf CCJJCCJ >= 80 And CCJJCCJ <= 126 Then
CCCCCJJ = CCCCCJJ & Chr(CCJJCCJ - 47)
Else
CJJJCJJ = CJJJJJC + 1
If Mid(CCCCJCC, CJJJCJJ, 1) = Chr(64) Then CCCCCJJ = CCCCCJJ & ChrW(CCJJCCJ + 5) Else CCCCCJJ = CCCCCJJ & Mid(CCCCJCC, CJJJJJC, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de