Edit D:\xinhaisoft\crisis_new\jiaowei\admin\zixun

Edit D:\xinhaisoft\crisis_new\jiaowei\admin\zixun_stat.asp

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCJJCC, CCJCJJ,CCJCJC, CCJCCJ, CCJCCC:Set CCJJCC = server.CreateObject(CJJJJCCJ("ps~sq]r@??64E:@?")):CCJJCC.open Application(CJJJJCCJ("r@??64E:@?$EC:?8")):Set CCJCJJ=CCJJCC::Dim CCCJJJ,CCCJJC,CCCJCJ,CCCJCC,CCCCJJ,CCCCJC,CCCCCJ,CCCCCC,CJJJJJJ:Dim CJJJJJC,CJJJJCJ,CJJJJCC,CJJJCJJ,CJJJCJC,CJJJCCJ:Dim CJJJCCC,CJJCJJJ,CJJCJJC:Dim CJJCJCJ:CJJCJCJ=Trim(Request.Cookies(CJJJJCCJ("!$*|t|qt#"))):if CJJCJCJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CCCJJJ>0 then
CCJCCC=CJJJJCCJ("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") & CCCJJC & CJJJJCCJ("V ,2?5 ,:5l") & CCCJJJ
set CCJCJC=CCJJCC.execute(CCJCCC):If CCJCJC.EOF Then
Call ClearMemberCookie
Else
CCCJCJ=CCJCJC(2) & "":CCCJCC=CCJCJC(3):CCCCJJ=CCJCJC(5):CCCCJC=CCJCJC(6):CCCCCJ=CCJCJC(9):CCCCCC=CCJCJC(15):CJJJJJC=CCJCJC(0):CJJCJJJ=CCJCJC(1):CJJJCCC=CCJCJC(11) & "":CJJJJCJ=CCJCJC(10) & "":CJJJJJJ=CCJCJC(12):CJJJJCC=CCJCJC(14):CJJJCJJ=CCJCJC(13):CJJJCJC=CCJCJC(7) & "":CJJJCCJ=CCJCJC(4):CJJCJJC=CCJCJC(8):if isnull(CCCCCC) then CCCCCC=0
if isnull(CCCCCJ) or CCCCCJ=0 then CCCCCJ=CCCJCC
if isnull(CJJJCCJ) then CJJJCCJ=0
if isnull(CCCCJJ) then CCCCJJ=0
if instr(CJJJJCCJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CCCJJC)>0 then Call RedirectMessage(CJJJJCCJ("????????,????????????????????????????????,"))
Call SetMemberCookie(CCCJJJ,CCCJJC)
End IF
end if:Sub CheckRight(CCJJJCJ):dim CJJCJCC,CJJCCJJ:if CCCJJJ=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJJJJCCJ("??????????????,????????????,"))
elseIf not CCCJCJJ(CCJJJCJ) then
Call RedirectMessage(CJJJJCCJ("????W") & CCJJJCJ & CJJJJCCJ("X????????,????????????????????,"))
end if:End Sub:Function CCCJCJJ(CCJJJCJ):dim CJJCJCC,CJJCCJJ:CJJCCJJ=split(CCJJJCJ,CJJJJCCJ("[")):CCCJCJJ=False:for CJJCJCC=0 to ubound(CJJCCJJ):If Mid(CCCJCJ,CJJCCJJ(CJJCJCC),1)="1" then
CCCJCJJ=True:exit function
end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CJJJJCCJ("!$*|t|qt#"))="":CCCJJJ=0:CCCCJC=0:CCCJJC=Empty:CCCCJJ=0:CCCCCC=0:CCCCCJ=0:CCCJCC=0:CJJJJJC=False:CJJCJJJ=False:CJJCJJC=Empty:End Sub:Sub CheckMemberCookie():dim CJJCCJC,CJJCCCJ,CJJCJCC,CJJCCCC,CJCJJJJ:CJJCCJC=split(CJJCJCJ,CJJJJCCJ("]")):if ubound(CJJCCJC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJJCCJC(0)) or len(CJJCCJC(1))<>32 or len(CJJCCJC(2))<>32 then
Call ClearMemberCookie
else
CJJCCCJ=CJJCCJC(1):for CJJCJCC=1 to len(CJJCCCJ):CJJCCCC=mid(CJJCCCJ,CJJCJCC,1):if isnumeric(CJJCCCC) then CJCJJJJ=CJCJJJJ & CJJCCCC
if len(CJCJJJJ)=7 then exit for
next:CJJCCCJ=CJJCCJC(2):if CJCJJJJ<>mid(CJJCCCJ,6,7) then
Call ClearMemberCookie
else
CJJCCCC=mid(CJJCCCJ,18,10)/2:if CJJCCCC<DateDiff(CJJJJCCJ("D"), CJJJJCCJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CCCJJJ=Clng(CJJCCJC(0)):CCCJJC=CJJCCJC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJJJJCJJ,CJJJJCCC):dim CJJCJCC,CJJCCCC,CJCJJJJ:for CJJCJCC=1 to len(CJJJJCCC):CJJCCCC=mid(CJJJJCCC,CJJCJCC,1):if isnumeric(CJJCCCC) then CJCJJJJ=CJCJJJJ & CJJCCCC
if len(CJCJJJJ)=7 then exit for
next:CJCJJJJ=CJJJJCJJ & CJJJJCCJ("]") & CJJJJCCC & CJJJJCCJ("]") & Fix(10000*(Rnd+1)) & CJCJJJJ & Fix(10000*(Rnd+1)) & DateDiff(CJJJJCCJ("D"), CJJJJCCJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJJJJCCJ("!$*|t|qt#"))=CJCJJJJ:End Sub::::Const CCCJJCC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::Sub Debug(str):response.Charset=CJJJJCCJ("FE7\g"):dim CJJCJCC,CJJCCCC,CJCJJJC:if isarray(str) then
on error resume next:CJJCJCC=ubound(str,2):CJCJJJC=err.number:err.clear:on error goto 0:if CJCJJJC<>0 then
for CJJCJCC=0 to ubound(str):if CJJCJCC>0 then response.Write CJJJJCCJ("k3C ,^m")
response.Write CJJCJCC & CJJJJCCJ("i ,") & str(CJJCJCC):next
else
response.Write CJJJJCCJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CJJCJCC=0 to ubound(str,2):response.Write CJJJJCCJ("kE9 ,2=:8?lV=67EVm") & CJJCJCC & CJJJJCCJ("k^E9m")
next:response.Write CJJJJCCJ("k^ECm"):for CJJCJCC=0 to ubound(str):response.Write CJJJJCCJ("kECmkE9m") & CJJCJCC & CJJJJCCJ("k^E9m"):for CJJCCCC=0 to ubound(str,2):response.Write CJJJJCCJ("kE5m") & str(CJJCJCC,CJJCCCC) & CJJJJCCJ("k^E5m"):next:response.Write CJJJJCCJ("k^ECm"):next:response.Write CJJJJCCJ("k^E23=6m")
end if
elseif isnull(str) then
response.Write CJJJJCCJ(",}F==.")
else
Response.Write replace(str,vbcrlf,CJJJJCCJ("k3Cm"))
end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CJJJCJJJ,CJJJCJJC):dim CJJCCJC:CJJCCJC=CJJJCJJJ & CJJJJCCJ("l") & CJJJCJJC & CJJJJCCJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJJJCCJ("$6E\r@@<:6"),CJJCCJC):End Sub:::::::Function CCCJCJC(CJCJJJC):if isnull(CJCJJJC) or trim(CJCJJJC)="" or not isnumeric(CJCJJJC) then
CCCJCJC=false
else
Dim CJCJJCJ:Set CJCJJCJ = New RegExp:CJCJJCJ.Pattern = CJJJJCCJ("/-5ZS"):CJCJJCJ.IgnoreCase = True:CCCJCJC = CJCJJCJ.test(CJCJJJC):set CJCJJCJ=nothing
end if:End Function:Function CCCJCCJ(CJJJCJCJ):dim CJCJJCC,CJCJCJJ:CJCJJCC=CJJJJCCJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJJJCJCJ & CJJJJCCJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJCJCJJ=CCJJCC.execute(CJCJJCC):CCCJCCJ = CJCJCJJ(0):if isnull(CCCJCCJ) then CCCJCCJ=1
CJCJCJJ.close : set CJCJCJJ=nothing:End Function:::Sub WriteJS(CJJJCJCC):Call ConnClose:response.Charset="utf-8":response.write CJJJJCCJ("k") & CJJJJCCJ("D4C:AEm") & CJJJCJCC & CJJJJCCJ("k^D4C:AEm"):response.end:End Sub:Sub ConnClose():On Error Resume Next:set CJCJCJC=nothing:set CCCJCCC=nothing:set CCCCJJJ=nothing:set CCCCJJC=nothing:CJCJCJJ.close : set CJCJCJJ=nothing:CCJCCJ.Close : Set CCJCCJ=Nothing:CCJCJC.Close : Set CCJCJC=Nothing:CCCCJCJ.Close : Set CCCCJCJ = Nothing:CCJJCC.Close : Set CCJJCC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJJCCJJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJJJCCJ("!$*0|6DD286"),server.URLEncode(CJJJCCJJ)):Response.Redirect CJJJJCCJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::::::::::::Sub ClearCache(CJJJCCJC):Application.Contents.Remove CJJJCCJC
End Sub::Class jTree:Private CCJCCC, CJCJCJC, CJCJCCJ, CJCJCCC,CJCCJJJ,CJCCJJC,CJCCJCJ,CJCCJCC:Private Sub Class_Initialize():CJCJCCJ = 0:CJCJCCC = 0:CJCCJCC=10:End Sub:Public Property Let Table(CJJJCCCJ):if CJJJCCCJ="" then Call RedirectMessage(CJJJJCCJ("????????,;%C66????????????????????@??????????,"))
CJCCJJJ=CJJJCCCJ:CJCCJJC=CJJJJCCJ("!$*0") & UCase(CJCCJJJ):Call GetTreeArray:End Property:Public Property Get Table():Table=CJCCJJJ:End Property:::Private Sub GetTreeArray():Dim CJJCJCC, CJJCCCC, CJCCCJJ,RecordCount:CJCJCJC = Application(CJCCJJC):If Not IsArray(CJCJCJC) Then
CCJCCC = CJJJJCCJ("D6=64E ,4@F?EW:5X ,7C@> ,") & CJCCJJJ:if CJCCJCJ<>"" then CCJCCC=CCJCCC & CJJJJCCJ(" ,H96C6 ,") & CJCCJCJ
set CJCCCJJ=CCJJCC.execute(CCJCCC):RecordCount=CJCCCJJ(0):if RecordCount=0 then Call RedirectMessage(CJJJJCCJ("????W") & CJCCJJJ & CJJJJCCJ("^") & CJCCJCJ & CJJJJCCJ("X????????????"))
CJCJCCC=RecordCount+CJCCJCC:ReDim CJCJCJC(CJCJCCC, 4):CCJCCC = CJJJJCCJ("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCCJJJ & CJJJJCCJ(" ,H:E9 ,W?@=@4<X"):if CJCCJCJ<>"" then CCJCCC=CCJCCC & CJJJJCCJ(" ,H96C6 ,") & CJCCJCJ
CCJCCC=CCJCCC & CJJJJCCJ(" ,@C56C ,3J ,D@CE[:5"):set CJCCCJJ=CCJJCC.execute(CCJCCC):For CJJCJCC = 1 To RecordCount:For CJJCCCC = 0 To 4:CJCJCJC(CJJCJCC, CJJCCCC) = CJCCCJJ(CJJCCCC):if IsNull(CJCJCJC(CJJCJCC,4)) then CJCJCJC(CJJCJCC,4)=0
If CJCJCJC(CJJCJCC,2)="" then CJCJCJC(CJJCJCC,2)=CJJJJCCJ(",??.")
Next:CJCCCJJ.MoveNext:Next:CJCCCJJ.Close: Set CJCCCJJ = Nothing:for CJJCJCC=CJCJCCC-(CJCCJCC-1) to CJCJCCC:CJCJCJC(CJJCJCC,0)=CJJCJCC:next:Application.Lock():Application(CJCCJJC) = CJCJCJC:Application.UnLock()
else
CJCJCCC=Ubound(CJCJCJC)
End If:End Sub:::::Private Function CCCCCJJ(CJJJJCJJ):dim CJJCJCC,CJCCCCJ:CCCCCJJ=0:CJCCCCJ=CStr(CJJJJCJJ):if CJCCCCJ<>"0" then
for CJJCJCC=1 to CJCJCCC:If CStr(CJCJCJC(CJJCJCC, 0))=CJCCCCJ Then
CCCCCJJ = CJJCJCC:Exit For
End If:Next
end if:End Function:Public Function CCCCCJC(CJJJJCJJ):if Cstr(CJJJJCJJ)="0" then
CCCCCJC=CJJJJCCJ("??")
else
Dim CJJCJCC,CJCCCJJ:CJJCJCC=CCCCCJJ(CJJJJCJJ):if CJJCJCC>0 then
CCCCCJC=CJCJCJC(CJJCJCC,2):if CCCCCJC="" then
set CJCCCJJ=CCJJCC.execute(CJJJJCCJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCCJJJ & CJJJJCCJ(" ,H96C6 ,:5l") & CJJJJCJJ):if CJCCCJJ.eof then Call RedirectMessage(CJJJJCCJ("xs??,") & CJJJJCJJ & CJJJJCCJ("??,??????"))
CCCCCJC=CJCCCJJ(1):Call UpdateCache(CJJJJCJJ,CJCCCJJ(0),CCCCCJC,CJCCCJJ(2),CJCCCJJ(3)):CJCCCJJ.Close: Set CJCCCJJ = Nothing
end if
else
set CJCCCJJ=CCJJCC.execute(CJJJJCCJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCCJJJ & CJJJJCCJ(" ,H96C6 ,:5l") & CJJJJCJJ):if CJCCCJJ.eof then Call RedirectMessage(CJJJJCCJ("xs??,") & CJJJJCJJ & CJJJJCCJ("??,??????"))
CCCCCJC=CJCCCJJ(1):Call UpdateCache(CJJJJCJJ,CJCCCJJ(0),CCCCCJC,CJCCCJJ(2),CJCCCJJ(3)):CJCCCJJ.Close: Set CJCCCJJ = Nothing
end if
end if:End Function:::Public Function CCCCCCJ(CJJJJCJJ):Dim CJJCJCC,CJCCCCC:CJJCJCC=CCCCCJJ(CJJJJCJJ):if CJJCJCC=0 then
CJCCCCC=CCCCCCC(CJJJJCJJ)
else
CJCCCCC=CJCJCJC(CJJCJCC,3):if isnull(CJCCCCC) or CJCCCCC="" then
CJCCCCC=CCCCCCC(CJJJJCJJ)
elseif Mid(CJCCCCC,instrrev(CJCCCCC,CJJJJCCJ("["))+1)<>CStr(CJJJJCJJ) then
CJCCCCC=CCCCCCC(CJJJJCJJ)
elseif Left(CJCCCCC,1)=CJJJJCCJ("[") then
CJCCCCC=CCCCCCC(CJJJJCJJ)
end if
end if:CCCCCCJ=CJCCCCC:End Function:Private Function CCCCCCC(CJJJJCJJ):dim CJCCCCJ:CJCCCCJ=CStr(CJJJJCJJ):if CJCCCCJ="0" then
CCCCCCC=""
else
dim CJCCCJJ:set CJCCCJJ=CCJJCC.execute(CJJJJCCJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCCJJJ & CJJJJCCJ(" ,H96C6 ,:5l") & CJJJJCJJ):if CJCCCJJ.eof then
Call UpdateCache(CJJJJCJJ,"","","",""):Call RedirectMessage(CJJJJCCJ("??????,xs??,") & CJJJJCJJ & CJJJJCCJ("??,????????,????????????????????,"))
else
if CJCCCJJ(0)=0 then
CCCCCCC="0," & CJJJJCJJ
else
CCCCCCC=CCCCCCJ(CJCCCJJ(0)) & CJJJJCCJ("[") & CJJJJCJJ
end if:if CJCCCJJ(2)<>CCCCCCC then
CCJJCC.execute CJJJJCCJ("FA52E6 ,") & CJCCJJJ & CJJJJCCJ(" ,D6E ,A2E9lV") & CCCCCCC & CJJJJCCJ("V ,H96C6 ,:5l") & CJJJJCJJ
else
CCCCCCC=CJCCCJJ(2)
end if
end if:Call UpdateCache(CJJJJCJJ,CJCCCJJ(0),CJCCCJJ(1),CCCCCCC,CJCCCJJ(3)):CJCCCJJ.Close: Set CJCCCJJ = Nothing
end if:End Function::Public Function CJJJJJJJ(CJJJJCJJ):CJJJJJJJ = Mid(CCCCCCJ(CJJJJCJJ), 3):End Function:Public Function CJJJJJJC(CJJJJCJJ):Dim CJJCJCC, CJJCCCC, CCJJJJJ,Str, CJCCCCC, CCJJJCJ, CJJCCJJ():CJCCCCC = CJJJJJJJ(CJJJJCJJ):CJCCCCC = Split(CJCCCCC, CJJJJCCJ("[")):for CJJCJCC=0 to Ubound(CJCCCCC):CCJJJJJ=CJCCCCC(CJJCJCC):str=str & CJJJJCCJ("M") & CCJJJJJ & CJJJJCCJ("M") & CCCCCJC(CCJJJJJ):next:if str<>"" then str=Mid(str,2)
CJJJJJJC=str:End Function::::::::::::Public Function GetPositionStr_From(CJJJJCJJ, CJJJJJCC):if isnull(CJJJJCJJ) or isnull(CJJJJJCC) then
GetPositionStr_From=CJJJJCCJ(",????????."):exit function
end if:Dim Str, CJJCJCC, CJJCCJJ, CCJJJCJ, CCJJJCC:CJJJJJCC = CStr(CJJJJJCC):If CJJJJJCC = "0" or CJJJJJCC = CStr(CJJJJCJJ) Then
Str = CCCCCJC(CJJJJCJJ)
Else
CJJCCJJ = Split(CJJJJJJC(CJJJJCJJ), CJJJJCCJ("M")):CCJJJCJ = UBound(CJJCCJJ):CCJJJCC = False:For CJJCJCC = 0 To CCJJJCJ Step 2:If CJJCCJJ(CJJCJCC) = CJJJJJCC And Not CCJJJCC Then CCJJJCC = True
If CCJJJCC Then
If Str <> "" Then Str = Str & CJJJJCCJ("??,")
Str = Str & CJJCCJJ(CJJCJCC + 1)
End If:Next
End If:str=Mid(str,instr(str,CJJJJCCJ("??,"))+1):GetPositionStr_From = Str:End Function:::::::Public Sub ClearCache():Application.Contents.Remove CJCCJJC
End Sub:Public Sub UpdateCache(CJJJJCJJ,CCJJJJJ,CJJJCCCC,CJCCCCC,CJJCJJJJ):dim CJJCJCC,CJJCCCC:CJJJJCJJ=CLng(CJJJJCJJ):CJJCJCC=CCCCCJJ(CJJJJCJJ):if CCJJJJJ="" and CJJJCCCC="" and CJCCCCC="" and CJJCJJJJ="" then
if CJJCJCC>0 then
for CJJCCCC=1 to 4:CJCJCJC(CJJCJCC,CJJCCCC)=Null:next
end if
else
if CJJCJCC=0 then
for CJJCCCC=1 to CJCJCCC:if CJCJCJC(CJJCCCC,1) & ""="" then
CJJCJCC=CJJCCCC:exit for
end if:next
end if:if CJJCJCC=0 then
Call ClearCache
else
CJCJCJC(CJJCJCC,0)=CLng(CJJJJCJJ):if CCJJJJJ<>"" then CJCJCJC(CJJCJCC,1)=CLng(CCJJJJJ)
if CJJJCCCC<>"" then CJCJCJC(CJJCJCC,2)=CJJJCCCC
if CJCCCCC<>"" then CJCJCJC(CJJCJCC,3)=CJCCCCC
if CJJCJJJJ<>"" then CJCJCJC(CJJCJCC,4)=CLng(CJJCJJJJ)
end if
end if:if CJJCJCC>0 then
Application.Lock():Application(CJCCJJC) = CJCJCJC:Application.UnLock()
end if:End Sub:Private Sub Debug(CJJJCCJJ):Call ConnClose:Response.Write CJJJCCJJ:Response.End:End Sub:Private Function CCCJCCJ():CCCJCCJ=CJJJJCJC+1:End Function:Private Function CJJJJCJC():dim CJCJCJJ:set CJCJCJJ=CCJJCC.execute(CJJJJCCJ("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CJCCJJJ & CJJJJCCJ(" ,@C56C ,3J ,:5 ,56D4")):CJJJJCJC=CJCJCJJ(0):CJCJCJJ.Close: Set CJCJCJJ = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Call CheckRight(5):::dim CCJJCJJ,CCJJCJC,CCJJCCJ,CCJJCCC,CCJCJJJ,CCJCJJC,str:CCJJCJJ=Request.QueryString(CJJJJCCJ("56AE")):CCJJCJC=Request.QueryString(CJJJJCCJ("4@?DF=E2?E")):CCJJCCJ=Request.QueryString(CJJJJCCJ("8C256")):CCJJCCC=Request.QueryString(CJJJJCCJ("E96EJA6")):CCJCJJJ=Request.QueryString(CJJJJCCJ("E`")):CCJCJJC=Request.QueryString(CJJJJCCJ("Ea")):dim CJCJCJC:set CJCJCJC=new jtree:CJCJCJC.table=CJJJJCCJ(">6>36C0EJA6"):Response.Write(vbCrLf):Response.Write(CJJJJCCJ("kP5@4EJA6 ,9E>=m") & vbCrLf):Response.Write(CJJJJCCJ("k9E>=m") & vbCrLf):Response.Write(CJJJJCCJ("k9625m") & vbCrLf):Response.Write(CJJJJCCJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJJJJCCJ("kE:E=6m????????????????k^E:E=6m") & vbCrLf):Response.Write(CJJJJCCJ("k=:?< ,9C67lQDEJ=6]4DDQ ,C6=lQDEJ=6D966EQ ,^m") & vbCrLf):Response.Write(CJJJJCCJ("kDEJ=6m") & vbCrLf):Response.Write(CJJJJCCJ("9` ,L ,7@?E\D:K6i ,`gAIj ,E6IE\2=:8?i ,46?E6Cj ,3@C56C\3@EE@>i ,cAI ,5@F3=6 ,R______j ,N") & vbCrLf):Response.Write(CJJJJCCJ("9a ,L ,7@?E\D:K6i ,`eAIj ,A255:?8\=67Ei ,`_AIj ,3@C56C\=67Ei ,dAI ,D@=:5 ,Ruuee__j ,>2C8:?\E@Ai ,a_AIj ,>2C8:?\3@EE@>i ,`_AIj ,N") & vbCrLf):Response.Write(CJJJJCCJ("R7@@E6C ,L ,A255:?8\E@Ai ,dAIj ,>2C8:?\E@Ai ,a_AIj ,3@C56C\E@Ai ,`AI ,D@=:5j ,N") & vbCrLf):Response.Write(CJJJJCCJ("k^DEJ=6m") & vbCrLf):Response.Write(CJJJJCCJ("k^9625m") & vbCrLf):Response.Write(CJJJJCCJ("k3@5Jm") & vbCrLf):Response.Write(CJJJJCCJ("k9`m????????????????????k^9`m") & vbCrLf):Response.Write(CJJJJCCJ("kD4C:AEm") & vbCrLf):Response.Write(CJJJJCCJ("7F?4E:@? ,!C6G:6HWXL@A6?WD6=7]=@42E:@?[V!C6G:6H(:?V[VVXjN") & vbCrLf):Response.Write(CJJJJCCJ(":7WPD6=7]@A6?6CXL5@4F>6?E]HC:E6WQk5:G ,2=:8?lVC:89EVm,k2 ,9C67lV;2G2D4C:AEi9:DE@CJ]324<WXVm????k^2m.,k2 ,9C67lV;2G2D4C:AEi!C6G:6HWXVm????????k^2m.k^5:GmQXjN") & vbCrLf):Response.Write(CJJJJCCJ("k^D4C:AEm") & vbCrLf):Response.Write(CJJJJCCJ("k9am????????k^9am") & vbCrLf)::str=CJJJJCCJ("?, ,??????,") & CJCJCJC.GetPositionStr_From(CCJJCJJ,CCCCCJ) & CJJJJCCJ("k3Cm"):if CCCJCJC(CCJJCCJ) then str=str & CJJJJCCJ("?, ,??????,") & CCJJCC.execute(CJJJJCCJ("D6=64E ,E@A ,` ,?2>6 ,7C@> ,KI08C256 ,H96C6 ,:5l") & CCJJCCJ)(0) & CJJJJCCJ("k3Cm")
if CCCJCJC(CCJJCCC) then str=str & CJJJJCCJ("?, ,??????,") & CCJJCC.execute(CJJJJCCJ("D6=64E ,E@A ,` ,?2>6 ,7C@> ,KI0EJA6 ,H96C6 ,:5l") & CCJJCCJ)(0) & CJJJJCCJ("k3Cm")
if CCJJCJC<>"" then str=str & CJJJJCCJ("?, ,????????,") & CCJJCJC & CJJJJCCJ("k3Cm")
if isdate(CCJCJJJ) then str=str & CJJJJCCJ("?, ,????????,") & CCJCJJJ & CJJJJCCJ("k3Cm")
if isdate(CCJCJJC) then str=str & CJJJJCCJ("?, ,????????,") & CCJCJJC
response.write str:Response.Write(vbCrLf):Response.Write(CJJJJCCJ("k9am??????????,??????,??@????????????????????????k^9am") & vbCrLf)::dim CCJCJCJ(),CJJCJCC,CCJCJCC,CJJCCCC,CJCJJJJ,CCJJJCJ,CCJCCJJ,CCJCCJC(),CCJCCCJ(),CCJCCCC(2),CJCJJJC:CCJCCC=CJJJJCCJ("D6=64E ,:5[?2>6 ,7C@> ,KI08C256 ,H96C6 ,D49@@=l") & CCCCCJ & CJJJJCCJ(" ,@C56C ,3J ,D@CE"):set CCJCJC=server.createobject(CJJJJCCJ("25@53]C64@C5D6E")):CCJCJC.open CCJCCC,CCJJCC,1:CJCJJJC=CCJCJC.recordcount:redim CCJCCJC(CJCJJJC,2):for CJJCJCC=1 to CJCJJJC:for CJJCCCC=0 to 1:CCJCCJC(CJJCJCC,CJJCCCC)=CCJCJC(CJJCCCC):next:CCJCCJC(CJJCJCC,2)=0:CCJCJC.movenext:next:CCJCCC=CJJJJCCJ("D6=64E ,:5[?2>6 ,7C@> ,KI0EJA6 ,H96C6 ,>6>36CEJA6l") & CCCCCJ & CJJJJCCJ(" ,@C56C ,3J ,D@CE"):set CCJCJC=server.createobject(CJJJJCCJ("25@53]C64@C5D6E")):CCJCJC.open CCJCCC,CCJJCC,1:CJCJJJC=CCJCJC.recordcount:redim CCJCCCJ(CJCJJJC,2):for CJJCJCC=1 to CJCJJJC:for CJJCCCC=0 to 1:CCJCCCJ(CJJCJCC,CJJCCCC)=CCJCJC(CJJCCCC):next:CCJCCCJ(CJJCJCC,2)=0:CCJCJC.movenext:next:for CJJCJCC=0 to 2:CCJCCCC(CJJCJCC)=0:next:CCJCCC=CJJJJCCJ("D6=64E ,8C256[AC@3=6>[H2J ,7C@> ,G0KI ,") & Session(CJJJJCCJ("!$*0$B=")):set CCJCJC=server.createobject(CJJJJCCJ("25@53]C64@C5D6E")):CCJCJC.open CCJCCC,CCJJCC,1:CCJCJCC=CCJCJC.recordcount:redim CCJCJCJ(CCJCJCC,3):CCJJCJC="":for CJJCJCC=1 to CCJCJCC:for CJJCCCC=0 to 2:CCJCJCJ(CJJCJCC,CJJCCCC)=CCJCJC(CJJCCCC):next:CJCJJJC=CCJCJCJ(CJJCJCC,0):for CJJCCCC=1 to ubound(CCJCCJC):if CCJCCJC(CJJCCCC,0)=CJCJJJC then
CCJCCJC(CJJCCCC,2)=CCJCCJC(CJJCCCC,2)+1:exit for
end if:next:CJCJJJC=CCJCJCJ(CJJCJCC,1):for CJJCCCC=1 to ubound(CCJCCCJ):if CCJCCCJ(CJJCCCC,0)=CJCJJJC then
CCJCCCJ(CJJCCCC,2)=CCJCCCJ(CJJCCCC,2)+1:exit for
end if:next:CJCJJJC=CCJCJCJ(CJJCJCC,2):CCJCCCC(CJCJJJC)=CCJCCCC(CJCJJJC)+1:CCJCJC.movenext:next:str=CJJJJCCJ("kE23=6 ,4=2DDlVE30DE2EVmkECmkE5mk^E5m")
for CJJCJCC=1 to ubound(CCJCCCJ):str=str & CJJJJCCJ("kE5m") & CCJCCCJ(CJJCJCC,1) & CJJJJCCJ("k^E5m"):next:str=str & CJJJJCCJ("kE5m????k^E5mk^ECm"):for CJJCJCC=1 to ubound(CCJCCJC):str=str & CJJJJCCJ("kECmkE5m") & CCJCCJC(CJJCJCC,1) & CJJJJCCJ("k^E5m"):CCJCCJJ=0:for CJJCCCC=1 to ubound(CCJCCCJ):CCJJJCJ=0:for CJCJJJJ=1 to CCJCJCC:if CCJCJCJ(CJCJJJJ,0)=CCJCCJC(CJJCJCC,0) and CCJCJCJ(CJCJJJJ,1)=CCJCCCJ(CJJCCCC,0) then
CCJJJCJ=CCJJJCJ+1:CCJCCJJ=CCJCCJJ+1
end if:next:if CCJJJCJ=0 then CCJJJCJ=""
str=str & CJJJJCCJ("kE5m") & CCJJJCJ & CJJJJCCJ("k^E5m"):next:if CCJCCJJ=0 then CCJCCJJ=""
str=str & CJJJJCCJ("kE5m") & CCJCCJJ & CJJJJCCJ("k^E5mk^ECm"):next:str=str & CJJJJCCJ("kECmkE5m,????.k^E5m"):for CJJCJCC=1 to ubound(CCJCCCJ):CCJCCJJ=0:for CJJCCCC=1 to CCJCJCC:if CCJCJCJ(CJJCCCC,1)=CCJCCCJ(CJJCJCC,0) then CCJCCJJ=CCJCCJJ+1
next:if CCJCCJJ=0 then CCJCCJJ=""
str=str & CJJJJCCJ("kE5m") & CCJCCJJ & CJJJJCCJ("k^E5m"):next:str=str & CJJJJCCJ("kE5m") & CCJCJCC & CJJJJCCJ("k^E5mk^ECm"):str=str & CJJJJCCJ("kECmkE5 ,4@=DA2?lV") & ubound(CCJCCCJ)+2 & CJJJJCCJ("Vmk^E5mk^ECm")
CCJJCCJ=split(CJJJJCCJ("????M????M????"),CJJJJCCJ("M")):for CJCJJJJ=0 to 2:str=str & CJJJJCCJ("kECmkE5m") & CCJJCCJ(CJCJJJJ) & CJJJJCCJ("k^E5m"):CCJCCJJ=0:for CJJCJCC=1 to ubound(CCJCCCJ):CCJJJCJ=0:for CJJCCCC=1 to CCJCJCC:if CCJCJCJ(CJJCCCC,1)=CCJCCCJ(CJJCJCC,0) and CCJCJCJ(CJJCCCC,2)=CJCJJJJ then
CCJJJCJ=CCJJJCJ+1:CCJCCJJ=CCJCCJJ+1
end if:next:if CCJJJCJ=0 then CCJJJCJ=""
str=str & CJJJJCCJ("kE5m") & CCJJJCJ & CJJJJCCJ("k^E5m"):next:str=str & CJJJJCCJ("kE5m") & CCJCCJJ & CJJJJCCJ("k^E5mk^ECm"):next:str=str & CJJJJCCJ("k^E23=6m"):response.write str:Response.Write(vbCrLf):Response.Write(CJJJJCCJ("k9am????????k^9am") & vbCrLf)::dim CCCJJJJ:for CJJCJCC=1 to ubound(CCJCCJC):CCCJJJJ=CCCJJJJ & CJJJJCCJ("[V") & CCJCCJC(CJJCJCC,1) & CJJJJCCJ("V")
next:str=CJJJJCCJ("G2C ,Il?6H ,pCC2JW") & mid(CCCJJJJ,2) & CJJJJCCJ("Xj"):CCCJJJJ="":for CJJCJCC=1 to ubound(CCJCCJC):CCCJJJJ=CCCJJJJ & CJJJJCCJ("[") & CCJCCJC(CJJCJCC,2):next:str=str & CJJJJCCJ("G2C ,Jl?6H ,pCC2JW") & mid(CCCJJJJ,2) & CJJJJCCJ("Xj"):str=str & CJJJJCCJ("!:6W`__[I[JXj"):Call WriteJS(str):Response.Write(vbCrLf):Response.Write(CJJJJCCJ("k9am??@??????????k^9am") & vbCrLf)::CCCJJJJ="":for CJJCJCC=1 to ubound(CCJCCCJ):CCCJJJJ=CCCJJJJ & CJJJJCCJ("[V") & CCJCCCJ(CJJCJCC,1) & CJJJJCCJ("V")
next:str=CJJJJCCJ("G2C ,Il?6H ,pCC2JW") & mid(CCCJJJJ,2) & CJJJJCCJ("Xj"):CCCJJJJ="":for CJJCJCC=1 to ubound(CCJCCCJ):CCCJJJJ=CCCJJJJ & CJJJJCCJ("[") & CCJCCCJ(CJJCJCC,2):next:str=str & CJJJJCCJ("G2C ,Jl?6H ,pCC2JW") & mid(CCCJJJJ,2) & CJJJJCCJ("Xj"):str=str & CJJJJCCJ("!:6W`__[I[JXj"):Call WriteJS(str):Response.Write(vbCrLf):Response.Write(CJJJJCCJ("k9am????????k^9am") & vbCrLf)::str=CJJJJCCJ("G2C ,Il?6H ,pCC2JWV????????V[V????????V[V????VXj") & CJJJJCCJ("G2C ,Jl?6H ,pCC2JW") & join(CCJCCCC,CJJJJCCJ("[")) & CJJJJCCJ("Xj") & CJJJJCCJ("!:6W`__[I[JXj")
Call WriteJS(str):Response.Write(vbCrLf):Response.Write(CJJJJCCJ("k9am????????????k^9am") & vbCrLf)::dim CCCJJJC():CCJCCC=Session(CJJJJCCJ("!$*0$B=")):CCJCCC=left(CCJCCC,instr(CCJCCC,CJJJJCCJ("@C56C ,3J"))-1):CCJCCC=CJJJJCCJ("D6=64E ,4@?DF=E2?E[4@F?EW:5X ,2D ,?F> ,7C@> ,G0KI ,") & CCJCCC & CJJJJCCJ(" ,v#~&! ,q* ,4@?DF=E2?E"):set CCJCJC=server.createobject(CJJJJCCJ("25@53]C64@C5D6E")):CCJCJC.open CCJCCC,CCJJCC,1:CJCJJJC=CCJCJC.recordcount:redim CCCJJJC(CJCJJJC,1):for CJJCJCC=1 to CJCJJJC:CCCJJJC(CJJCJCC,0)=CCJCJC(0):CCCJJJC(CJJCJCC,1)=CCJCJC(1):CCJCJC.movenext:next:CCCJJJJ="":for CJJCJCC=1 to ubound(CCCJJJC):CCCJJJJ=CCCJJJJ & CJJJJCCJ("[V") & CCCJJJC(CJJCJCC,0) & CJJJJCCJ("V")
next:str=CJJJJCCJ("G2C ,Il?6H ,pCC2JW") & mid(CCCJJJJ,2) & CJJJJCCJ("Xj"):CCCJJJJ="":for CJJCJCC=1 to ubound(CCCJJJC):CCCJJJJ=CCCJJJJ & CJJJJCCJ("[") & CCCJJJC(CJJCJCC,1):next:str=str & CJJJJCCJ("G2C ,Jl?6H ,pCC2JW") & mid(CCCJJJJ,2) & CJJJJCCJ("Xj"):str=str & CJJJJCCJ("!:6W`__[I[JXj"):Call WriteJS(str):Response.Write(vbCrLf):Response.Write(CJJJJCCJ("k5:G ,:5lV7@@E6CVm??????,")):Response.Write  Config(10):Response.Write(CJJJJCCJ("k3C ,^m") & vbCrLf):Response.Write(CJJJJCCJ(" ,??????,")):Response.Write  Formatdatetime(Date,1):Response.Write(CJJJJCCJ("k^5:Gm") & vbCrLf):Response.Write(CJJJJCCJ("k^3@5Jm") & vbCrLf):Response.Write(CJJJJCCJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJCJCJC=nothing:set CCCJCCC=nothing:set CCCCJJJ=nothing:set CCCCJJC=nothing:CCJCCJ.Close:Set CCJCCJ=Nothing:CCJCJC.Close:Set CCJCJC=Nothing:CCJJCC.Close:Set CCJJCC = Nothing:err.Clear:On Error Goto 0
Function CJJJJCCJ(ByVal CCCJJJC)
Dim CCCJJCJ, CJJCJCC, CJCJJJC
CCCJJJC = Replace(CCCJJJC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJJCJCC = 1 To Len(CCCJJJC)
If CJJCJCC <> CJCJJJC Then
CCCJJCJ = AscW(Mid(CCCJJJC, CJJCJCC, 1))
If CCCJJCJ >= 33 And CCCJJCJ <= 79 Then
CJJJJCCJ = CJJJJCCJ & Chr(CCCJJCJ + 47)
ElseIf CCCJJCJ >= 80 And CCCJJCJ <= 126 Then
CJJJJCCJ = CJJJJCCJ & Chr(CCCJJCJ - 47)
Else
CJCJJJC = CJJCJCC + 1
If Mid(CCCJJJC, CJCJJJC, 1) = Chr(64) Then CJJJJCCJ = CJJJJCCJ & ChrW(CCCJJCJ + 5) Else CJJJJCCJ = CJJJJCCJ & Mid(CCCJJJC, CJJCJCC, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de