Edit D:\xinhaisoft\crisis_new\school\admin\yearly

Edit D:\xinhaisoft\crisis_new\school\admin\yearly_view.asp

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJCCCC, CCJJJJ,CCJJJC, CCJJCJ, CCJJCC:Set CJCCCC = server.CreateObject(CJJJJJCJ("ps~sq]r@??64E:@?")):CJCCCC.open Application(CJJJJJCJ("r@??64E:@?$EC:?8")):Set CCJJJJ=CJCCCC::Dim CCJCJJ,CCJCJC,CCJCCJ,CCJCCC,CCCJJJ,CCCJJC,CCCJCJ,CCCJCC,CCCCJJ:Dim CCCCJC,CCCCCJ,CCCCCC,CJJJJJJ,CJJJJJC,CJJJJCJ:Dim CJJJJCC,CJJJCJJ,CJJJCJC:Dim CJJJCCJ:CJJJCCJ=Trim(Request.Cookies(CJJJJJCJ("!$*|t|qt#"))):if CJJJCCJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CCJCJJ>0 then
CCJJCC=CJJJJJCJ("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") & CCJCJC & CJJJJJCJ("V ,2?5 ,:5l") & CCJCJJ
set CCJJJC=CJCCCC.execute(CCJJCC):If CCJJJC.EOF Then
Call ClearMemberCookie
Else
CCJCCJ=CCJJJC(2) & "":CCJCCC=CCJJJC(3):CCCJJJ=CCJJJC(5):CCCJJC=CCJJJC(6):CCCJCJ=CCJJJC(9):CCCJCC=CCJJJC(15):CCCCJC=CCJJJC(0):CJJJCJJ=CCJJJC(1):CJJJJCC=CCJJJC(11) & "":CCCCCJ=CCJJJC(10) & "":CCCCJJ=CCJJJC(12):CCCCCC=CCJJJC(14):CJJJJJJ=CCJJJC(13):CJJJJJC=CCJJJC(7) & "":CJJJJCJ=CCJJJC(4):CJJJCJC=CCJJJC(8):if isnull(CCCJCC) then CCCJCC=0
if isnull(CCCJCJ) or CCCJCJ=0 then CCCJCJ=CCJCCC
if isnull(CJJJJCJ) then CJJJJCJ=0
if isnull(CCCJJJ) then CCCJJJ=0
if instr(CJJJJJCJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CCJCJC)>0 then Call RedirectMessage(CJJJJJCJ("????????,????????????????????????????????,"))
Call SetMemberCookie(CCJCJJ,CCJCJC)
End IF
end if:Sub CheckRight(CCJCJCJ):dim CJJJCCC,CJJCJJJ:if CCJCJJ=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJJJJJCJ("??????????????,????????????,"))
elseIf not CCCJJJJ(CCJCJCJ) then
Call RedirectMessage(CJJJJJCJ("????W") & CCJCJCJ & CJJJJJCJ("X????????,????????????????????,"))
end if:End Sub:Function CCCJJJJ(CCJCJCJ):dim CJJJCCC,CJJCJJJ:CJJCJJJ=split(CCJCJCJ,CJJJJJCJ("[")):CCCJJJJ=False:for CJJJCCC=0 to ubound(CJJCJJJ):If Mid(CCJCCJ,CJJCJJJ(CJJJCCC),1)="1" then
CCCJJJJ=True:exit function
end if:next:End Function:Sub CheckLogined():if CCJCJJ=0 then
Call ClearMemberCookie:Call ConnClose:dim CJJCJJC:CJJCJJC=trim(request.QueryString(CJJJJJCJ("D49@@="))):if isnumeric(CJJCJJC) then
response.Redirect CJJJJJCJ("^>^G2?E^R^D49@@=^") & CJJCJJC & CJJJJJCJ("^DEF56?E^=@8:?nC65:C64El") & url
else
Call RedirectMessage(CJJJJJCJ("??????????????,????????????,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CJJJJJCJ("!$*|t|qt#"))="":CCJCJJ=0:CCCJJC=0:CCJCJC=Empty:CCCJJJ=0:CCCJCC=0:CCCJCJ=0:CCJCCC=0:CCCCJC=False:CJJJCJJ=False:CJJJCJC=Empty:End Sub:Sub CheckMemberCookie():dim CJJCJCJ,CJJCJCC,CJJJCCC,CJJCCJJ,CJJCCJC:CJJCJCJ=split(CJJJCCJ,CJJJJJCJ("]")):if ubound(CJJCJCJ)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJJCJCJ(0)) or len(CJJCJCJ(1))<>32 or len(CJJCJCJ(2))<>32 then
Call ClearMemberCookie
else
CJJCJCC=CJJCJCJ(1):for CJJJCCC=1 to len(CJJCJCC):CJJCCJJ=mid(CJJCJCC,CJJJCCC,1):if isnumeric(CJJCCJJ) then CJJCCJC=CJJCCJC & CJJCCJJ
if len(CJJCCJC)=7 then exit for
next:CJJCJCC=CJJCJCJ(2):if CJJCCJC<>mid(CJJCJCC,6,7) then
Call ClearMemberCookie
else
CJJCCJJ=mid(CJJCJCC,18,10)/2:if CJJCCJJ<DateDiff(CJJJJJCJ("D"), CJJJJJCJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CCJCJJ=Clng(CJJCJCJ(0)):CCJCJC=CJJCJCJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCCCCCC,CJJJJJCC):dim CJJJCCC,CJJCCJJ,CJJCCJC:for CJJJCCC=1 to len(CJJJJJCC):CJJCCJJ=mid(CJJJJJCC,CJJJCCC,1):if isnumeric(CJJCCJJ) then CJJCCJC=CJJCCJC & CJJCCJJ
if len(CJJCCJC)=7 then exit for
next:CJJCCJC=CCCCCCC & CJJJJJCJ("]") & CJJJJJCC & CJJJJJCJ("]") & Fix(10000*(Rnd+1)) & CJJCCJC & Fix(10000*(Rnd+1)) & DateDiff(CJJJJJCJ("D"), CJJJJJCJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJJJJJCJ("!$*|t|qt#"))=CJJCCJC:End Sub:::Function IIf(CJJJJCJJ, CJJJJCJC, CJJJJCCJ):if isnull(CJJJJCJJ) or isempty(CJJJJCJJ) then
IIf = CJJJJCCJ
elseif CJJJJCJJ Then
IIf = CJJJJCJC
Else
IIf = CJJJJCCJ
end if:End Function:Const CCJCCCC="^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 CJJJCCC,CJJCCJJ,CJJCCCJ:if isarray(str) then
on error resume next:CJJJCCC=ubound(str,2):CJJCCCJ=err.number:err.clear:on error goto 0:if CJJCCCJ<>0 then
for CJJJCCC=0 to ubound(str):if CJJJCCC>0 then response.Write CJJJJJCJ("k3C ,^m")
response.Write CJJJCCC & CJJJJJCJ("i ,") & str(CJJJCCC):next
else
response.Write CJJJJJCJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CJJJCCC=0 to ubound(str,2):response.Write CJJJJJCJ("kE9 ,2=:8?lV=67EVm") & CJJJCCC & CJJJJJCJ("k^E9m")
next:response.Write CJJJJJCJ("k^ECm"):for CJJJCCC=0 to ubound(str):response.Write CJJJJJCJ("kECmkE9m") & CJJJCCC & CJJJJJCJ("k^E9m"):for CJJCCJJ=0 to ubound(str,2):response.Write CJJJJJCJ("kE5m") & str(CJJJCCC,CJJCCJJ) & CJJJJJCJ("k^E5m"):next:response.Write CJJJJJCJ("k^ECm"):next:response.Write CJJJJJCJ("k^E23=6m")
end if
elseif isnull(str) then
response.Write CJJJJJCJ(",}F==.")
else
Response.Write replace(str,vbcrlf,CJJJJJCJ("k3Cm"))
end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CJJJCJJJ,CJJJCJJC):dim CJJCJCJ:CJJCJCJ=CJJJCJJJ & CJJJJJCJ("l") & CJJJCJJC & CJJJJJCJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJJJJCJ("$6E\r@@<:6"),CJJCJCJ):End Sub:::::::Function CCCJJCJ(CJJCCCJ):if isnull(CJJCCCJ) or trim(CJJCCCJ)="" or not isnumeric(CJJCCCJ) then
CCCJJCJ=false
else
Dim CJJCCCC:Set CJJCCCC = New RegExp:CJJCCCC.Pattern = CJJJJJCJ("/-5ZS"):CJJCCCC.IgnoreCase = True:CCCJJCJ = CJJCCCC.test(CJJCCCJ):set CJJCCCC=nothing
end if:End Function:Function CCCJJCC(CJJJCJCJ):dim CJCJJJJ,CJCJJJC:CJCJJJJ=CJJJJJCJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJJJCJCJ & CJJJJJCJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJCJJJC=CJCCCC.execute(CJCJJJJ):CCCJJCC = CJCJJJC(0):if isnull(CCCJJCC) then CCCJJCC=1
CJCJJJC.close : set CJCJJJC=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CJCJCCJ=nothing:set CCCJCJJ=nothing:set CCCJCJC=nothing:set CCCJCCJ=nothing:CJCJJJC.close : set CJCJJJC=nothing:CCJJCJ.Close : Set CCJJCJ=Nothing:CCJJJC.Close : Set CCJJJC=Nothing:CCCJCCC.Close : Set CCCJCCC = Nothing:CJCCCC.Close : Set CJCCCC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJJCJCC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJJJJCJ("!$*0|6DD286"),server.URLEncode(CJJJCJCC)):Response.Redirect CJJJJJCJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::Function CCCCJJJ(ByVal CCCCJJC,style):if not isdate(CCCCJJC) then
CCCCJJJ=CCCCJJC:exit function
end if:dim CJCJJCJ,CJCJJCC,CJCJCJJ,CJCJCJC:CCCCJJC=cdate(CCCCJJC):CJCJJCJ=Year(CCCCJJC):CJCJJCC=Month(CCCCJJC):CJCJCJJ=Day(CCCCJJC):select case style:case 0:CCCCJJJ=CJCJJCJ & CJJJJJCJ("\") & right(0 & CJCJJCC,2) & CJJJJJCJ("\") & right(0 & CJCJCJJ,2):case 1:CCCCJJJ=CJCJJCJ & right(0 & CJCJJCC,2) & right(0 & CJCJCJJ,2):case 2:CCCCJJJ=right(CJCJJCJ,2) & CJJJJJCJ("\") & right(0 & CJCJJCC,2) & CJJJJJCJ("\") & right(0 & CJCJCJJ,2):case 3:CCCCJJJ=CJCJJCJ & CJJJJJCJ("\") & right(0 & CJCJJCC,2):case 4:CCCCJJJ=right(0 & CJCJJCC,2) & CJJJJJCJ("\") & right(0 & CJCJCJJ,2):case 5:CCCCJJJ=right(0 & CJCJCJJ,2):case 6:CCCCJJJ=CJCJJCJ & CJJJJJCJ("??") & right(0 & CJCJJCC,2) & CJJJJJCJ("??") & right(0 & CJCJCJJ,2) & CJJJJJCJ("??"):case else
CCCCJJJ=CCCCJJC:end select:End Function::::::::::::::::::::Sub ClearCache(CJJJCCJJ):Application.Contents.Remove CJJJCCJJ
End Sub::Class jTree:Private CCJJCC, CJCJCCJ, CJCJCCC, CJCCJJJ,CJCCJJC,CJCCJCJ,CJCCJCC,CJCCCJJ:Private Sub Class_Initialize():CJCJCCC = 0:CJCCJJJ = 0:CJCCCJJ=10:End Sub:Public Property Let Table(CJJJCCJC):if CJJJCCJC="" then Call RedirectMessage(CJJJJJCJ("????????,;%C66????????????????????@??????????,"))
CJCCJJC=CJJJCCJC:CJCCJCJ=CJJJJJCJ("!$*0") & UCase(CJCCJJC):Call GetTreeArray:End Property:Public Property Get Table():Table=CJCCJJC:End Property:::Private Sub GetTreeArray():Dim CJJJCCC, CJJCCJJ, CJCCCJC,CJCCCCJ:CJCJCCJ = Application(CJCCJCJ):If Not IsArray(CJCJCCJ) Then
CCJJCC = CJJJJJCJ("D6=64E ,4@F?EW:5X ,7C@> ,") & CJCCJJC:if CJCCJCC<>"" then CCJJCC=CCJJCC & CJJJJJCJ(" ,H96C6 ,") & CJCCJCC
set CJCCCJC=CJCCCC.execute(CCJJCC):CJCCCCJ=CJCCCJC(0):if CJCCCCJ=0 then Call RedirectMessage(CJJJJJCJ("????W") & CJCCJJC & CJJJJJCJ("^") & CJCCJCC & CJJJJJCJ("X????????????"))
CJCCJJJ=CJCCCCJ+CJCCCJJ:ReDim CJCJCCJ(CJCCJJJ, 4):CCJJCC = CJJJJJCJ("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCCJJC & CJJJJJCJ(" ,H:E9 ,W?@=@4<X"):if CJCCJCC<>"" then CCJJCC=CCJJCC & CJJJJJCJ(" ,H96C6 ,") & CJCCJCC
CCJJCC=CCJJCC & CJJJJJCJ(" ,@C56C ,3J ,D@CE[:5"):set CJCCCJC=CJCCCC.execute(CCJJCC):For CJJJCCC = 1 To CJCCCCJ:For CJJCCJJ = 0 To 4:CJCJCCJ(CJJJCCC, CJJCCJJ) = CJCCCJC(CJJCCJJ):if IsNull(CJCJCCJ(CJJJCCC,4)) then CJCJCCJ(CJJJCCC,4)=0
If CJCJCCJ(CJJJCCC,2)="" then CJCJCCJ(CJJJCCC,2)=CJJJJJCJ(",??.")
Next:CJCCCJC.MoveNext:Next:CJCCCJC.Close: Set CJCCCJC = Nothing:for CJJJCCC=CJCCJJJ-(CJCCCJJ-1) to CJCCJJJ:CJCJCCJ(CJJJCCC,0)=CJJJCCC:next:Application.Lock():Application(CJCCJCJ) = CJCJCCJ:Application.UnLock()
else
CJCCJJJ=Ubound(CJCJCCJ)
End If:End Sub:::::Private Function CCCCJCC(CCCCCCC):dim CJJJCCC,CJCCCCC:CCCCJCC=0:CJCCCCC=CStr(CCCCCCC):if CJCCCCC<>"0" then
for CJJJCCC=1 to CJCCJJJ:If CStr(CJCJCCJ(CJJJCCC, 0))=CJCCCCC Then
CCCCJCC = CJJJCCC:Exit For
End If:Next
end if:End Function:Public Function GetCurName(CCCCCCC):if Cstr(CCCCCCC)="0" then
GetCurName=CJJJJJCJ("??")
else
Dim CJJJCCC,CJCCCJC:CJJJCCC=CCCCJCC(CCCCCCC):if CJJJCCC>0 then
GetCurName=CJCJCCJ(CJJJCCC,2):if GetCurName="" then
set CJCCCJC=CJCCCC.execute(CJJJJJCJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCCJJC & CJJJJJCJ(" ,H96C6 ,:5l") & CCCCCCC):if CJCCCJC.eof then Call RedirectMessage(CJJJJJCJ("xs??,") & CCCCCCC & CJJJJJCJ("??,??????"))
GetCurName=CJCCCJC(1):Call UpdateCache(CCCCCCC,CJCCCJC(0),GetCurName,CJCCCJC(2),CJCCCJC(3)):CJCCCJC.Close: Set CJCCCJC = Nothing
end if
else
set CJCCCJC=CJCCCC.execute(CJJJJJCJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCCJJC & CJJJJJCJ(" ,H96C6 ,:5l") & CCCCCCC):if CJCCCJC.eof then Call RedirectMessage(CJJJJJCJ("xs??,") & CCCCCCC & CJJJJJCJ("??,??????"))
GetCurName=CJCCCJC(1):Call UpdateCache(CCCCCCC,CJCCCJC(0),GetCurName,CJCCCJC(2),CJCCCJC(3)):CJCCCJC.Close: Set CJCCCJC = Nothing
end if
end if:End Function:::Public Function CCCCCJC(CCCCCCC):Dim CJJJCCC,CCJJJJJ:CJJJCCC=CCCCJCC(CCCCCCC):if CJJJCCC=0 then
CCJJJJJ=CCCCCCJ(CCCCCCC)
else
CCJJJJJ=CJCJCCJ(CJJJCCC,3):if isnull(CCJJJJJ) or CCJJJJJ="" then
CCJJJJJ=CCCCCCJ(CCCCCCC)
elseif Mid(CCJJJJJ,instrrev(CCJJJJJ,CJJJJJCJ("["))+1)<>CStr(CCCCCCC) then
CCJJJJJ=CCCCCCJ(CCCCCCC)
elseif Left(CCJJJJJ,1)=CJJJJJCJ("[") then
CCJJJJJ=CCCCCCJ(CCCCCCC)
end if
end if:CCCCCJC=CCJJJJJ:End Function:Private Function CCCCCCJ(CCCCCCC):dim CJCCCCC:CJCCCCC=CStr(CCCCCCC):if CJCCCCC="0" then
CCCCCCJ=""
else
dim CJCCCJC:set CJCCCJC=CJCCCC.execute(CJJJJJCJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCCJJC & CJJJJJCJ(" ,H96C6 ,:5l") & CCCCCCC):if CJCCCJC.eof then
Call UpdateCache(CCCCCCC,"","","",""):Call RedirectMessage(CJJJJJCJ("??????,xs??,") & CCCCCCC & CJJJJJCJ("??,????????,????????????????????,"))
else
if CJCCCJC(0)=0 then
CCCCCCJ="0," & CCCCCCC
else
CCCCCCJ=CCCCCJC(CJCCCJC(0)) & CJJJJJCJ("[") & CCCCCCC
end if:if CJCCCJC(2)<>CCCCCCJ then
CJCCCC.execute CJJJJJCJ("FA52E6 ,") & CJCCJJC & CJJJJJCJ(" ,D6E ,A2E9lV") & CCCCCCJ & CJJJJJCJ("V ,H96C6 ,:5l") & CCCCCCC
else
CCCCCCJ=CJCCCJC(2)
end if
end if:Call UpdateCache(CCCCCCC,CJCCCJC(0),CJCCCJC(1),CCCCCCJ,CJCCCJC(3)):CJCCCJC.Close: Set CJCCCJC = Nothing
end if:End Function::::::::::::::::::::::Public Sub ClearCache():Application.Contents.Remove CJCCJCJ
End Sub:Public Sub UpdateCache(CCCCCCC,CJJJCCCJ,CJJJCCCC,CCJJJJJ,CJJCJJJJ):dim CJJJCCC,CJJCCJJ:CCCCCCC=CLng(CCCCCCC):CJJJCCC=CCCCJCC(CCCCCCC):if CJJJCCCJ="" and CJJJCCCC="" and CCJJJJJ="" and CJJCJJJJ="" then
if CJJJCCC>0 then
for CJJCCJJ=1 to 4:CJCJCCJ(CJJJCCC,CJJCCJJ)=Null:next
end if
else
if CJJJCCC=0 then
for CJJCCJJ=1 to CJCCJJJ:if CJCJCCJ(CJJCCJJ,1) & ""="" then
CJJJCCC=CJJCCJJ:exit for
end if:next
end if:if CJJJCCC=0 then
Call ClearCache
else
CJCJCCJ(CJJJCCC,0)=CLng(CCCCCCC):if CJJJCCCJ<>"" then CJCJCCJ(CJJJCCC,1)=CLng(CJJJCCCJ)
if CJJJCCCC<>"" then CJCJCCJ(CJJJCCC,2)=CJJJCCCC
if CCJJJJJ<>"" then CJCJCCJ(CJJJCCC,3)=CCJJJJJ
if CJJCJJJJ<>"" then CJCJCCJ(CJJJCCC,4)=CLng(CJJCJJJJ)
end if
end if:if CJJJCCC>0 then
Application.Lock():Application(CJCCJCJ) = CJCJCCJ:Application.UnLock()
end if:End Sub:Private Sub Debug(CJJJCJCC):Call ConnClose:Response.Write CJJJCJCC:Response.End:End Sub:Private Function CCCJJCC():CCCJJCC=CJJJJJJJ+1:End Function:Private Function CJJJJJJJ():dim CJCJJJC:set CJCJJJC=CJCCCC.execute(CJJJJJCJ("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CJCCJJC & CJJJJJCJ(" ,@C56C ,3J ,:5 ,56D4")):CJJJJJJJ=CJCJJJC(0):CJCJJJC.Close: Set CJCJJJC = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::dim CJJCJJC:CCJJCC=Request.ServerVariables(CJJJJJCJ("!p%w0x}u~")):if instr(CCJJCC,CJJJJJCJ("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CCCCJC and not CJJJCJJ then Call RedirectMessage(CJJJJJCJ("????????,????????????????????????,"))
CJJCJJC=CCCJCJ
elseif instr(CCJJCC,CJJJJJCJ("^>^D49@@=^DEF56?E^"))>0 or instr(CCJJCC,CJJJJJCJ("^DEF56?E^"))>0 then
Call CheckLogined:CJJCJJC=CCCJCJ
elseif instr(CCJJCC,CJJJJJCJ("^D49@@="))>0 then
CJJCJJC=Request.QueryString(CJJJJJCJ("D49@@=")):if not CCCJJCJ(CJJCJJC) then CJJCJJC=Request.QueryString(CJJJJJCJ("F"))
if not CCCJJCJ(CJJCJJC) then CJJCJJC=Request.QueryString(CJJJJJCJ("D4"))
if not CCCJJCJ(CJJCJJC) then Call RedirectMessage(CJJJJJCJ("????????W$49@@=X??@??????????,"))
CJJCJJC=csng(CJJCJJC)
end if:if CJJCJJC=0 then Call RedirectMessage(CJJJJJCJ("????????W$49@@=X????W_X??,"))
Dim CCJJJJC:Call SetConfig:Sub SetConfig():dim CJJCJJJ,CJCJJJC:CCJJCC=CJJJJJCJ("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") & CJJCJJC:set CJCJJJC=CJCCCC.execute(CCJJCC):if CJCJJJC.eof then Call RedirectMessage(CJJJJJCJ("??W") & CCJCJJ & CJJJJJCJ("X??????????W") & CJJCJJC & CJJJJJCJ("X????????,"))
ReDim CJJCJJJ(61):CJJCJJJ(0)=CJCJJJC(CJJJJJCJ(";:2@H6:")) & "":CJJCJJJ(1)=CJCJJJC(CJJJJJCJ("EJA6")):CJJCJJJ(2)=CJCJJJC(CJJJJJCJ("D>D")):CJJCJJJ(3)=CJCJJJC(CJJJJJCJ("4FDE@>8C@FA")) & "":CJJCJJJ(4)=CJCJJJC(CJJJJJCJ("D:5632C0@E96C")) & "":CJJCJJJ(5)=IIf(isnull(CJCJJJC(CJJJJJCJ("E6DEC6DF=EG:6H"))),0,CJCJJJC(CJJJJJCJ("E6DEC6DF=EG:6H"))):CJJCJJJ(6)=CJCJJJC(CJJJJJCJ("K:IF?E:>6")):CJJCJJJ(7)=CJCJJJC(CJJJJJCJ("766")):CJJCJJJ(8)=CJCJJJC(CJJJJJCJ("C6E6DE52J")):CJJCJJJ(9)=CJCJJJC(CJJJJJCJ("6IA:C652E6")):CJJCJJJ(10)=CJCJJJC(CJJJJJCJ("E:E=6")):CJJCJJJ(11)=CJCJJJC(CJJJJJCJ(":?EC@")) & "":CJJCJJJ(12)=CJCJJJC(CJJJJJCJ("A:4EFC6")) & "":CJJCJJJ(13)=CJCJJJC(CJJJJJCJ("72>:=J")):CJJCJJJ(14)=CJCJJJC(CJJJJJCJ("4@AJC:89E")) & "":CJJCJJJ(15)=IIf(isnull(CJCJJJC(CJJJJJCJ("D6>6DE6C0DE2CE052E6"))),CJJJJJCJ("`h__\`\`"),CJCJJJC(CJJJJJCJ("D6>6DE6C0DE2CE052E6"))):CJJCJJJ(16)=IIf(isnull(CJCJJJC(CJJJJJCJ("K:IF?0E:>6D09:89=:89E"))),0,CJCJJJC(CJJJJJCJ("K:IF?0E:>6D09:89=:89E"))):CJJCJJJ(17)=CJCJJJC(CJJJJJCJ("4@?E24E")) & "":CJJCJJJ(18)=CJCJJJC(CJJJJJCJ("D2?5E23=6")):CJJCJJJ(19)=CJCJJJC(CJJJJJCJ("4C:D:D")):CJJCJJJ(20)=CJCJJJC(CJJJJJCJ("JJ52E6")):CJJCJJJ(21)=CJCJJJC(CJJJJJCJ("BB")):CJJCJJJ(22)=CJCJJJC(CJJJJJCJ("JFJF60D>D0EA=")) & "":CJJCJJJ(23)=CJCJJJC(CJJJJJCJ("JFJF60E6DE0=3")) & "":CJJCJJJ(25)=CJCJJJC(CJJJJJCJ("6IA6CE")):CJJCJJJ(26)=CJCJJJC(CJJJJJCJ(">@5:?7@")):CJJCJJJ(27)=CJCJJJC(CJJJJJCJ("9@>6A286E@AA:4EFC6")) & "":CJJCJJJ(28)=CJCJJJC(CJJJJJCJ("4C:D:D=3")):CJJCJJJ(29)=IIf(CJCJJJC(CJJJJJCJ("4C:D:D@=5")),False,True):CJJCJJJ(30)=CJCJJJC(CJJJJJCJ("8C@FA8F:52?46")):CJJCJJJ(31)=CJCJJJC(CJJJJJCJ("3:@7665324<")):CJJCJJJ(32)=CJCJJJC(CJJJJJCJ("<6JDEC")):CJJCJJJ(33)=CJCJJJC(CJJJJJCJ("=@8@")) & "":CJJCJJJ(34)=CJCJJJC(CJJJJJCJ("K:46")):CJJCJJJ(35)=IIf(CJCJJJC(CJJJJJCJ(":D?6H")),True,False):CJJCJJJ(36)=121:CJJCJJJ(37)=111:CJJCJJJ(38)=160:CJJCJJJ(39)=CJCJJJC(CJJJJJCJ("8F6DE3@@<")):CJJCJJJ(40)=CJCJJJC(CJJJJJCJ("75D")):CJJCJJJ(42)=CJCJJJC(CJJJJJCJ("9@>6=@8:?")):CJJCJJJ(43)=CJCJJJC(CJJJJJCJ("K:IF?0?6657665324<")):CJJCJJJ(44)=CJCJJJC(CJJJJJCJ("K:IF?0E:>6D0=:>:E")):CJJCJJJ(45)=CJCJJJC(CJJJJJCJ("4@>A=6E60:?7@")):CJJCJJJ(46)=CJCJJJC(CJJJJJCJ("E6DE:?EC@")) & "":CJJCJJJ(47)=IIf(isnull(CJCJJJC(CJJJJJCJ("JFJF60367@C60E:>6"))),0,CJCJJJC(CJJJJJCJ("JFJF60367@C60E:>6"))):CJJCJJJ(49)=CJCJJJC(CJJJJJCJ("D>D0C646:G6C")):CJJCJJJ(50)=CJCJJJC(CJJJJJCJ("D>D0D:8?")) & "":CJJCJJJ(52)=CJCJJJC(CJJJJJCJ("JFJF602CC2?86")):CJJCJJJ(53)=IIf(isnull(CJCJJJC(CJJJJJCJ("DEF56?E0BF6DE:@?04@F?E"))),0,CJCJJJC(CJJJJJCJ("DEF56?E0BF6DE:@?04@F?E"))):CJJCJJJ(54)=CJCJJJC(CJJJJJCJ("9:560=30@FE@7286")):CJJCJJJ(55)=CJCJJJC(CJJJJJCJ("JFJF60E6DE052JD")):CJJCJJJ(56)=CJCJJJC(CJJJJJCJ("JFJF60H66<0=:>:E")):CJJCJJJ(57)=CJCJJJC(CJJJJJCJ("JFJF604964<65")):CJJCJJJ(58)=CJCJJJC(CJJJJJCJ("K:IF?0?6657665324<0?6IE")):CJJCJJJ(59)=CJCJJJC(CJJJJJCJ("4964<?6HDEF56?E")):CJJCJJJ(60)=CJCJJJC(CJJJJJCJ("K:IF?04=@D6052E6")):CJCJJJC.close : set CJCJJJC=nothing:if isNull(CJJCJJJ(8)) or CJJCJJJ(8)="" then CJJCJJJ(8)=0
if isdate(CJJCJJJ(9)) then
CJJCJJJ(9)=cdate(CJJCJJJ(9)):if CJJCJJJ(9)<Date then Call RedirectMessage(CJJJJJCJ("????????,????????????????W") & CJJCJJJ(9) & CJJJJJCJ("X??????,"))
end if:if not CCCJJCJ(CJJCJJJ(20)) then CJJCJJJ(20)=7
select case CJJCJJJ(1):case 1,2,16:CJJCJJJ(36)=159:case 4,5,6,10,11:CJJCJJJ(36)=190:CJJCJJJ(37)=178:CJJCJJJ(38)=191:case 7,13:CJJCJJJ(36)=164:CJJCJJJ(37)=178:CJJCJJJ(38)=179:end select:CCJJJJC=CJJCJJJ:End Sub:Function CCCJCCJ(CJJCJJJC):dim CJJCJJJ(7,1),CJJJCCC,CCJJJCJ,CCJJJCC:CCJJJCJ=Array(CJJJJJCJ("$49@@="),CJJJJJCJ("$EF56?E"),CJJJJJCJ("s6AE"),CJJJJJCJ("vC256"),CJJJJJCJ("r=2DD>2E6"),CJJJJJCJ("}F>36C"),CJJJJJCJ("%62496C"),CJJJJJCJ("!2C6?E")):select case CCJJJJC(1):case 1,2 : CCJJJCC=Array(CJJJJJCJ("????"),CJJJJJCJ("????"),CJJJJJCJ("????"),CJJJJJCJ("????"),CJJJJJCJ("????"),CJJJJJCJ("????"),CJJJJJCJ("????"),CJJJJJCJ("????")):case 3,16 : CCJJJCC=Array(CJJJJJCJ("????"),CJJJJJCJ("????"),CJJJJJCJ("????"),CJJJJJCJ("????"),CJJJJJCJ("????"),CJJJJJCJ("????"),CJJJJJCJ("????"),CJJJJJCJ("????")):case 4 : CCJJJCC=Array(CJJJJJCJ("????"),CJJJJJCJ("??????@"),CJJJJJCJ("????"),CJJJJJCJ("????"),CJJJJJCJ("????"),CJJJJJCJ("????"),CJJJJJCJ("????"),CJJJJJCJ("????")):case 5 : CCJJJCC=Array(CJJJJJCJ("????"),CJJJJJCJ("????"),CJJJJJCJ("????"),CJJJJJCJ("????"),CJJJJJCJ("????"),CJJJJJCJ("????"),CJJJJJCJ("????"),CJJJJJCJ("????")):case 6 : CCJJJCC=Array(CJJJJJCJ("????"),CJJJJJCJ("??????@"),CJJJJJCJ("????"),CJJJJJCJ("????"),CJJJJJCJ("????"),CJJJJJCJ("????"),CJJJJJCJ("??????"),CJJJJJCJ("????")):case 7 : CCJJJCC=Array(CJJJJJCJ("????"),CJJJJJCJ("????"),CJJJJJCJ("????"),CJJJJJCJ("????"),CJJJJJCJ("????"),CJJJJJCJ("????"),CJJJJJCJ("??????"),CJJJJJCJ("????")):case 8 : CCJJJCC=Array(CJJJJJCJ("????"),CJJJJJCJ("??????@"),CJJJJJCJ("????"),CJJJJJCJ("????????"),CJJJJJCJ("????"),CJJJJJCJ("????"),CJJJJJCJ("??????"),CJJJJJCJ("????")):case 9 : CCJJJCC=Array(CJJJJJCJ("????"),CJJJJJCJ("????"),CJJJJJCJ("????"),CJJJJJCJ("????"),CJJJJJCJ("????"),CJJJJJCJ("????"),CJJJJJCJ("??????"),CJJJJJCJ("????")):case 10 : CCJJJCC=Array(CJJJJJCJ("????"),CJJJJJCJ("????"),CJJJJJCJ("????"),CJJJJJCJ("????????"),CJJJJJCJ("????"),CJJJJJCJ("????"),CJJJJJCJ("??????"),CJJJJJCJ("????")):case 11 : CCJJJCC=Array(CJJJJJCJ("????"),CJJJJJCJ("??????"),CJJJJJCJ("????"),CJJJJJCJ("????"),CJJJJJCJ("????"),CJJJJJCJ("????"),CJJJJJCJ("??????"),CJJJJJCJ("????")):case 12 : CCJJJCC=Array(CJJJJJCJ("????"),CJJJJJCJ("????"),CJJJJJCJ("????"),CJJJJJCJ("????????"),CJJJJJCJ("????"),CJJJJJCJ("????"),CJJJJJCJ("??????"),CJJJJJCJ("????")):case 13 : CCJJJCC=Array(CJJJJJCJ("????"),CJJJJJCJ("????"),CJJJJJCJ("????"),CJJJJJCJ("????"),CJJJJJCJ("????"),CJJJJJCJ("????"),CJJJJJCJ("????"),CJJJJJCJ("????")):case 14 : CCJJJCC=Array(CJJJJJCJ("??????"),CJJJJJCJ("??@??"),CJJJJJCJ("????"),CJJJJJCJ("????"),CJJJJJCJ("????"),CJJJJJCJ("????"),CJJJJJCJ("??????"),CJJJJJCJ("????")):case 15 : CCJJJCC=Array(CJJJJJCJ("????"),CJJJJJCJ("????????"),CJJJJJCJ("????"),CJJJJJCJ("????????"),CJJJJJCJ("????"),CJJJJJCJ("????"),CJJJJJCJ("??????"),CJJJJJCJ("????")):case else : CCJJJCC=CCJJJCJ
end select:for CJJJCCC=0 to Ubound(CJJCJJJ):CJJCJJJ(CJJJCCC,0)=CCJJJCJ(CJJJCCC):CJJCJJJ(CJJJCCC,1)=CCJJJCC(CJJJCCC):next:for CJJJCCC=0 to Ubound(CJJCJJJ):if CJJCJJJ(CJJJCCC,0)=CJJCJJJC then
CCCJCCJ=CJJCJJJ(CJJJCCC,1):exit for
end if:next:End Function::Call CheckRight(19):dim CCJJCJJ,CCJJCJC,CCJJCCJ:CCJJCJJ=Request.QueryString(CJJJJJCJ("5`")):CCJJCJC=Request.QueryString(CJJJJJCJ("5a")):CCJJCCJ=Request.QueryString(CJJJJJCJ("56AE")):if not isdate(CCJJCJJ) or not isdate(CCJJCJC) then Call RedirectMessage(CJJJJJCJ("????????,??@????????????????,"))
if not CCCJJCJ(CCJJCCJ) then CCJJCCJ=CCJCCC
dim CCJJCCC(),CJJJCCC,CCJCJJJ,CJCJCJJ:CCJCJJJ=DateDiff(CJJJJJCJ(">"),CCJJCJJ,CCJJCJC):if CCJCJJJ<0 then Call RedirectMessage(CJJJJJCJ("????????,????????????????????,"))
redim CCJJCCC(1,CCJCJJJ):for CJJJCCC=0 to CCJCJJJ:CJCJCJJ=DateAdd(CJJJJJCJ(">"),CJJJCCC,CCJJCJJ):CCJJCCC(0,CJJJCCC)=year(CJCJCJJ):CCJJCCC(1,CJJJCCC)=month(CJCJCJJ):next:CCJJCJJ=CCJJCCC(0,0) & CJJJJJCJ("\") & CCJJCCC(1,0) & "-1":if CCJJCCC(1,CCJCJJJ)=12 then CCJJCJC=CCJJCCC(0,CCJCJJJ) & CJJJJJCJ("\`a\b` ,abidhiah") else CCJJCJC=cdate(CCJJCCC(0,CCJCJJJ) & CJJJJJCJ("\") & (CCJJCCC(1,CCJCJJJ)+1) & "-1")-1 & CJJJJJCJ(" ,abidhiah")
dim CCJCJJC:if Cstr(CJJCJJC)=Cstr(CCJJCCJ) then CCJCJJC=True else CCJCJJC=False
dim CJCJCCJ:set CJCJCCJ=new jtree:CJCJCCJ.table=CJJJJJCJ(">6>36C0EJA6"):Response.Write(vbCrLf):Response.Write(CJJJJJCJ("kP5@4EJA6 ,9E>=m") & vbCrLf):Response.Write(CJJJJJCJ("k9E>=m") & vbCrLf):Response.Write(CJJJJJCJ("k9625m") & vbCrLf):Response.Write(CJJJJJCJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJJJJJCJ("kE:E=6m????????k^E:E=6m") & vbCrLf):Response.Write(CJJJJJCJ("k=:?< ,9C67lQDEJ=6]4DDQ ,C6=lQDEJ=6D966EQ ,^m") & vbCrLf):Response.Write(CJJJJJCJ("k=:?< ,9C67lQ]]^]]^;BF6CJ62DJF:^E96>6D^5672F=E^62DJF:]4DDQ ,C6=lQDEJ=6D966EQ ,^m") & vbCrLf):Response.Write(CJJJJJCJ("kDEJ=6m") & vbCrLf):Response.Write(CJJJJJCJ("3@5J[ ,E5[ ,E9 ,L ,7@?E\D:K6i ,`cAIj ,=:?6\96:89Ei ,`d_Tj ,N") & vbCrLf):Response.Write(CJJJJJCJ("RA286 ,L ,H:5E9i ,e__AIj ,>2C8:?i ,_ ,2FE@j ,N") & vbCrLf):Response.Write(CJJJJJCJ("9` ,L ,7@?E\D:K6i ,acAIj ,E6IE\2=:8?i ,46?E6Cj ,>2C8:?i ,`_AIj ,N") & vbCrLf):Response.Write(CJJJJJCJ("9a ,L ,7@?E\D:K6i ,`gAIj ,>2C8:?i ,`_AI ,_AIj ,N") & vbCrLf):Response.Write(CJJJJJCJ("RAC:?E ,L ,324<8C@F?5i ,Rtguutgj ,A255:?8i ,bAIj ,3@C56Ci ,`AI ,D@=:5 ,R__hhhhj ,N") & vbCrLf):Response.Write(CJJJJJCJ("R7@@E6C ,L ,E6IE\2=:8?i ,C:89Ej ,3@C56C\E@Ai ,`AI ,D@=:5 ,R___j ,A255:?8i ,dAIj ,>2C8:?\E@Ai ,a_AIj ,N") & vbCrLf):Response.Write(CJJJJJCJ("k^DEJ=6m") & vbCrLf):Response.Write(CJJJJJCJ("kDEJ=6 ,>65:2lQAC:?EQm") & vbCrLf):Response.Write(CJJJJJCJ("RAC:?E ,L ,5:DA=2Ji ,?@?6j ,N") & vbCrLf):Response.Write(CJJJJJCJ("k^DEJ=6m") & vbCrLf):Response.Write(CJJJJJCJ("k^9625m") & vbCrLf):Response.Write(CJJJJJCJ("k3@5Jm") & vbCrLf):Response.Write(CJJJJJCJ("k5:G ,:5lQAC:?EQm") & vbCrLf):Response.Write(CJJJJJCJ(" ,k7@C> ,:5lQ7@C>`Q ,?2>6lQ7@C>`Q ,>6E9@5lQ86EQ ,24E:@?lQQm") & vbCrLf):Response.Write(CJJJJJCJ(" ,??????,") & vbCrLf):Response.Write(CJJJJJCJ(" ,k:?AFE ,?2>6lQ5`Q ,EJA6lQE6IEQ ,4=2DDlQ62DJF:\52E63@IQ ,:5lQ5`Q ,DEJ=6lQH:5E9i`__AIjQ ,G2=F6lQ")):Response.Write  CCCCJJJ(CCJJCJJ,0):Response.Write(CJJJJJCJ("Q ,^m") & vbCrLf):Response.Write(CJJJJJCJ(" ,O") & vbCrLf):Response.Write(CJJJJJCJ(" ,k:?AFE ,?2>6lQ5aQ ,EJA6lQE6IEQ ,4=2DDlQ62DJF:\52E63@IQ ,:5lQ5aQ ,DEJ=6lQH:5E9i`__AIjQ ,G2=F6lQ")):Response.Write  CCCCJJJ(CCJJCJC,0):Response.Write(CJJJJJCJ("Q ,^m") & vbCrLf):Response.Write(CJJJJJCJ(" ,k:?AFE ,EJA6lQ9:556?Q ,?2>6lQ56AEQ ,:5lQ56AEQ ,G2=F6lQ")):Response.Write  CCJJCCJ:Response.Write(CJJJJJCJ("Q ,^m") & vbCrLf):Response.Write(CJJJJJCJ(" ,k:?AFE ,EJA6lQDF3>:EQ ,G2=F6lQ?? ,??Qm") & vbCrLf):Response.Write(CJJJJJCJ(" ,k:?AFE ,EJA6lQDF3>:EQ ,G2=F6lQ????????Q ,@?4=:4<lQ;2G2D4C:AEiD6=7]AC:?EWXQ ,^m") & vbCrLf):Response.Write(CJJJJJCJ(" ,??,????,????????????????,??????????,??????????????,????????????????????????????,") & vbCrLf):Response.Write(CJJJJJCJ(" ,k^7@C>m") & vbCrLf):Response.Write(CJJJJJCJ("k^5:Gm") & vbCrLf):Response.Write(CJJJJJCJ("k5:G ,:5lQA286Qm") & vbCrLf):Response.Write(CJJJJJCJ(" ,")):If CCJCJJC Then
Response.Write(vbCrLf):Response.Write(CJJJJJCJ(" ,k9`m????????????k^9`m") & vbCrLf):Response.Write(CJJJJJCJ(" ,"))
Else
Response.Write(vbCrLf):Response.Write(CJJJJJCJ(" ,k9`mkDA2? ,DEJ=6lQ3@C56C\3@EE@>iaAI ,D@=:5 ,R___jA255:?8i_AI ,`_AIj7@?E\H6:89Ei?@C>2=jQm")):Response.Write  CJCJCCJ.GetCurName(CCJJCCJ):Response.Write(CJJJJJCJ("k^DA2?m????????????k^9`m") & vbCrLf):Response.Write(CJJJJJCJ(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CJJJJJCJ(" ,k9am??,??,??,????????????????????k^9am") & vbCrLf):Response.Write(CJJJJJCJ(" ,kE23=6 ,4=2DDlQE30DE2EQm") & vbCrLf):Response.Write(CJJJJJCJ(" ,kECm") & vbCrLf):Response.Write(CJJJJJCJ(" ,kE9m????^????k^E9m") & vbCrLf):Response.Write(CJJJJJCJ(" ,")):for CJJJCCC=0 to CCJCJJJ:Response.Write(vbCrLf):Response.Write(CJJJJJCJ(" ,kE9m")):Response.Write  CCJJCCC(1,CJJJCCC):Response.Write(CJJJJJCJ("??k^E9m") & vbCrLf):Response.Write(CJJJJJCJ(" ,")):next:Response.Write(vbCrLf):Response.Write(CJJJJJCJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJJJCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJCJ(" ,")):dim CJJCJJJ,CCJCJCJ(),CJJCCJJ,CCJCJCC:CCJCJCC=CCJCJJJ+1:redim CCJCJCJ(7,CCJCJCC):CJJCJJJ=Array(CJJJJJCJ("????????"),CJJJJJCJ("????????"),CJJJJJCJ("????@????"),CJJJJJCJ("????????"),CJJJJJCJ("??@??????"),CJJJJJCJ("????????@"),CJJJJJCJ("????????"),CJJJJJCJ("????")):for CJJJCCC=0 to 7:for CJJCCJJ=0 to CCJCJCC:CCJCJCJ(CJJJCCC,CJJCCJJ)=0:next:next:CCJJCC=CJJJJJCJ("D6=64E ,J62C[>@?E9[DF>W42D60_X[DF>W42D60`X[DF>W42D60aX[DF>W42D60bX[DF>W42D60cX[DF>W42D60dX[DF>W42D60eX ,7C@> ,G0>@?E9=J ,H96C6 ,7:?:D9l`"):if not CCJCJJC then CCJJCC=CCJJCC & CJJJJJCJ(" ,2?5 ,>6>36CEJA6l") & CCJJCCJ
CCJJCC=CCJJCC & CJJJJJCJ(" ,2?5 ,J62C>@?E9mlV") & CCJJCJJ & CJJJJJCJ("V ,2?5 ,J62C>@?E9klV") & CCJJCJC & CJJJJJCJ("V ,2?5 ,A2C:5l") & CCJCCC & CJJJJJCJ(" ,8C@FA ,3J ,J62C[>@?E9 ,@C56C ,3J ,J62C[>@?E9")
set CCJJJC=CJCCCC.execute(CCJJCC):while not CCJJJC.eof:for CJJJCCC=0 to CCJCJJJ:if CCJJJC(0)=CCJJCCC(0,CJJJCCC) and CCJJJC(1)=CCJJCCC(1,CJJJCCC) then
for CJJCCJJ=0 to 6:CCJCJCJ(CJJCCJJ,CJJJCCC)=CCJJJC(2+CJJCCJJ):next:exit for
end if:next:CCJJJC.movenext:wend:for CJJJCCC=0 to 6:for CJJCCJJ=0 to CCJCJJJ:CCJCJCJ(CJJJCCC,CCJCJCC)=CCJCJCJ(CJJJCCC,CCJCJCC)+CCJCJCJ(CJJJCCC,CJJCCJJ):next:next:for CJJJCCC=0 to 6:for CJJCCJJ=0 to CCJCJCC:CCJCJCJ(7,CJJCCJJ)=CCJCJCJ(7,CJJCCJJ)+CCJCJCJ(CJJJCCC,CJJCCJJ):next:next:for CJJJCCC=0 to 7:Response.Write(vbCrLf):Response.Write(CJJJJJCJ(" ,kECm") & vbCrLf):Response.Write(CJJJJJCJ(" ,kE5m")):Response.Write  CJJCJJJ(CJJJCCC):Response.Write(CJJJJJCJ("k^E5m") & vbCrLf):Response.Write(CJJJJJCJ(" ,")):for CJJCCJJ=0 to CCJCJCC:Response.Write(vbCrLf):Response.Write(CJJJJJCJ(" ,kE5m")):Response.Write  CCJCJCJ(CJJJCCC,CJJCCJJ):Response.Write(CJJJJJCJ("k^E5m") & vbCrLf):Response.Write(CJJJJJCJ(" ,")):next:Response.Write(vbCrLf):Response.Write(CJJJJJCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJCJ(" ,")):next:Response.Write(vbCrLf):Response.Write(CJJJJJCJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJJJCJ(" ,")):If CCJCJJC Then
Response.Write(vbCrLf):Response.Write(CJJJJJCJ(" ,k3C ,^m") & vbCrLf):Response.Write(CJJJJJCJ(" ,kE23=6 ,4=2DDlQE30DE2EQm") & vbCrLf):Response.Write(CJJJJJCJ(" ,kECm") & vbCrLf):Response.Write(CJJJJJCJ(" ,kE9m????^????k^E9m") & vbCrLf):Response.Write(CJJJJJCJ(" ,")):for CJJJCCC=0 to 7:Response.Write(vbCrLf):Response.Write(CJJJJJCJ(" ,kE9m")):Response.Write  CJJCJJJ(CJJJCCC):Response.Write(CJJJJJCJ("k^E9m") & vbCrLf):Response.Write(CJJJJJCJ(" ,")):next:Response.Write(vbCrLf):Response.Write(CJJJJJCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJCJ(" ,")):CCJJCC=CJJJJJCJ("D6=64E ,>6>36CEJA6[DF>W42D60_X[DF>W42D60`X[DF>W42D60aX[DF>W42D60bX[DF>W42D60cX[DF>W42D60dX[DF>W42D60eX[DF>W42D60DF>X ,7C@> ,G0>@?E9=J ,H96C6 ,7:?:D9l` ,2?5 ,J62C>@?E9mlV") & CCJJCJJ & CJJJJJCJ("V ,2?5 ,J62C>@?E9klV") & CCJJCJC & CJJJJJCJ("V ,2?5 ,A2C:5l") & CCJCCC & CJJJJJCJ(" ,8C@FA ,3J ,>6>36CEJA6 ,@C56C ,3J ,>6>36CEJA6")
set CCJJJC=CJCCCC.execute(CCJJCC):while not CCJJJC.eof:Response.Write(vbCrLf):Response.Write(CJJJJJCJ(" ,kECm") & vbCrLf):Response.Write(CJJJJJCJ(" ,kE5m")):Response.Write  CJCJCCJ.GetCurName(CCJJJC(0)):Response.Write(CJJJJJCJ("k^E5m") & vbCrLf):Response.Write(CJJJJJCJ(" ,")):for CJJJCCC=0 to 7:Response.Write(vbCrLf):Response.Write(CJJJJJCJ(" ,kE5m")):Response.Write  CCJJJC(CJJJCCC+1):Response.Write(CJJJJJCJ("k^E5m") & vbCrLf):Response.Write(CJJJJJCJ(" ,")):next:Response.Write(vbCrLf):Response.Write(CJJJJJCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJCJ(" ,")):CCJJJC.movenext:wend:Response.Write(vbCrLf):Response.Write(CJJJJJCJ(" ,kECm") & vbCrLf):Response.Write(CJJJJJCJ(" ,kE5m????k^E5m") & vbCrLf):Response.Write(CJJJJJCJ(" ,")):for CJJJCCC=0 to 7:Response.Write(vbCrLf):Response.Write(CJJJJJCJ(" ,kE5m")):Response.Write  CCJCJCJ(CJJJCCC,CCJCJCC):Response.Write(CJJJJJCJ("k^E5m") & vbCrLf):Response.Write(CJJJJJCJ(" ,")):next:Response.Write(vbCrLf):Response.Write(CJJJJJCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJCJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJJJCJ(" ,"))
End If::If CCJCJJC Then
Response.Write(vbCrLf):Response.Write(CJJJJJCJ(" ,k9am??,????,??,`??,????????????????k^9am") & vbCrLf):Response.Write(CJJJJJCJ(" ,"))
Else
Response.Write(vbCrLf):Response.Write(CJJJJJCJ(" ,k9am??,????,????????????????k^9am") & vbCrLf):Response.Write(CJJJJJCJ(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CJJJJJCJ(" ,kE23=6 ,4=2DDlQE30DE2EQm") & vbCrLf):Response.Write(CJJJJJCJ(" ,kECm") & vbCrLf):Response.Write(CJJJJJCJ(" ,kE9m????^????k^E9m") & vbCrLf):Response.Write(CJJJJJCJ(" ,")):for CJJJCCC=0 to CCJCJJJ:Response.Write(vbCrLf):Response.Write(CJJJJJCJ(" ,kE9m")):Response.Write  CCJJCCC(1,CJJJCCC):Response.Write(CJJJJJCJ("??k^E9m") & vbCrLf):Response.Write(CJJJJJCJ(" ,")):next:Response.Write(vbCrLf):Response.Write(CJJJJJCJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJJJCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJCJ(" ,")):CCJCJCC=CCJCJJJ+1:redim CCJCJCJ(7,CCJCJCC):CJJCJJJ=Array(CJJJJJCJ("????????"),CJJJJJCJ("????????"),CJJJJJCJ("????@????"),CJJJJJCJ("????????"),CJJJJJCJ("??@??????"),CJJJJJCJ("????????@"),CJJJJJCJ("????????"),CJJJJJCJ("????")):for CJJJCCC=0 to 7:for CJJCCJJ=0 to CCJCJCC:CCJCJCJ(CJJJCCC,CJJCCJJ)=0:next:next:CCJJCC=CJJJJJCJ("D6=64E ,J62C[>@?E9[DF>WKI0_X[DF>WKI0`X[DF>WKI0aX[DF>WKI0bX[DF>WKI0cX[DF>WKI0dX[DF>WKI0eX ,7C@> ,G0>@?E9=J ,H96C6 ,7:?:D9l`"):if not CCJCJJC then CCJJCC=CCJJCC & CJJJJJCJ(" ,2?5 ,>6>36CEJA6l") & CCJJCCJ
CCJJCC=CCJJCC & CJJJJJCJ(" ,2?5 ,J62C>@?E9mlV") & CCJJCJJ & CJJJJJCJ("V ,2?5 ,J62C>@?E9klV") & CCJJCJC & CJJJJJCJ("V ,2?5 ,A2C:5l") & CCJCCC & CJJJJJCJ(" ,8C@FA ,3J ,J62C[>@?E9 ,@C56C ,3J ,J62C[>@?E9")
set CCJJJC=CJCCCC.execute(CCJJCC):while not CCJJJC.eof:for CJJJCCC=0 to CCJCJJJ:if CCJJJC(0)=CCJJCCC(0,CJJJCCC) and CCJJJC(1)=CCJJCCC(1,CJJJCCC) then
for CJJCCJJ=0 to 6:CCJCJCJ(CJJCCJJ,CJJJCCC)=CCJJJC(2+CJJCCJJ):next:exit for
end if:next:CCJJJC.movenext:wend:for CJJJCCC=0 to 6:for CJJCCJJ=0 to CCJCJJJ:CCJCJCJ(CJJJCCC,CCJCJCC)=CCJCJCJ(CJJJCCC,CCJCJCC)+CCJCJCJ(CJJJCCC,CJJCCJJ):next:next:for CJJJCCC=0 to 6:for CJJCCJJ=0 to CCJCJCC:CCJCJCJ(7,CJJCCJJ)=CCJCJCJ(7,CJJCCJJ)+CCJCJCJ(CJJJCCC,CJJCCJJ):next:next:for CJJJCCC=0 to 7:Response.Write(vbCrLf):Response.Write(CJJJJJCJ(" ,kECm") & vbCrLf):Response.Write(CJJJJJCJ(" ,kE5m")):Response.Write  CJJCJJJ(CJJJCCC):Response.Write(CJJJJJCJ("k^E5m") & vbCrLf):Response.Write(CJJJJJCJ(" ,")):for CJJCCJJ=0 to CCJCJCC:Response.Write(vbCrLf):Response.Write(CJJJJJCJ(" ,kE5m")):Response.Write  CCJCJCJ(CJJJCCC,CJJCCJJ):Response.Write(CJJJJJCJ("k^E5m") & vbCrLf):Response.Write(CJJJJJCJ(" ,")):next:Response.Write(vbCrLf):Response.Write(CJJJJJCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJCJ(" ,")):next:Response.Write(vbCrLf):Response.Write(CJJJJJCJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJJJCJ(" ,")):If CCJCJJC Then
Response.Write(vbCrLf):Response.Write(CJJJJJCJ(" ,k3C ,^m") & vbCrLf):Response.Write(CJJJJJCJ(" ,kE23=6 ,4=2DDlQE30DE2EQm") & vbCrLf):Response.Write(CJJJJJCJ(" ,kECm") & vbCrLf):Response.Write(CJJJJJCJ(" ,kE9m????^????k^E9m") & vbCrLf):Response.Write(CJJJJJCJ(" ,")):for CJJJCCC=0 to 7:Response.Write(vbCrLf):Response.Write(CJJJJJCJ(" ,kE9m")):Response.Write  CJJCJJJ(CJJJCCC):Response.Write(CJJJJJCJ("k^E9m") & vbCrLf):Response.Write(CJJJJJCJ(" ,")):next:Response.Write(vbCrLf):Response.Write(CJJJJJCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJCJ(" ,")):CCJJCC=CJJJJJCJ("D6=64E ,>6>36CEJA6[DF>WKI0_X[DF>WKI0`X[DF>WKI0aX[DF>WKI0bX[DF>WKI0cX[DF>WKI0dX[DF>WKI0eX[DF>WKI0DF>X ,7C@> ,G0>@?E9=J ,H96C6 ,7:?:D9l` ,2?5 ,J62C>@?E9mlV") & CCJJCJJ & CJJJJJCJ("V ,2?5 ,J62C>@?E9klV") & CCJJCJC & CJJJJJCJ("V ,2?5 ,A2C:5l") & CCJCCC & CJJJJJCJ(" ,8C@FA ,3J ,>6>36CEJA6 ,@C56C ,3J ,>6>36CEJA6")
set CCJJJC=CJCCCC.execute(CCJJCC):while not CCJJJC.eof:Response.Write(vbCrLf):Response.Write(CJJJJJCJ(" ,kECm") & vbCrLf):Response.Write(CJJJJJCJ(" ,kE5m")):Response.Write  CJCJCCJ.GetCurName(CCJJJC(0)):Response.Write(CJJJJJCJ("k^E5m") & vbCrLf):Response.Write(CJJJJJCJ(" ,")):for CJJJCCC=0 to 7:Response.Write(vbCrLf):Response.Write(CJJJJJCJ(" ,kE5m")):Response.Write  CCJJJC(CJJJCCC+1):Response.Write(CJJJJJCJ("k^E5m") & vbCrLf):Response.Write(CJJJJJCJ(" ,")):next:Response.Write(vbCrLf):Response.Write(CJJJJJCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJCJ(" ,")):CCJJJC.movenext:wend:Response.Write(vbCrLf):Response.Write(CJJJJJCJ(" ,kECm") & vbCrLf):Response.Write(CJJJJJCJ(" ,kE5m????k^E5m") & vbCrLf):Response.Write(CJJJJJCJ(" ,")):for CJJJCCC=0 to 7:Response.Write(vbCrLf):Response.Write(CJJJJJCJ(" ,kE5m")):Response.Write  CCJCJCJ(CJJJCCC,CCJCJCC):Response.Write(CJJJJJCJ("k^E5m") & vbCrLf):Response.Write(CJJJJJCJ(" ,")):next:Response.Write(vbCrLf):Response.Write(CJJJJJCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJCJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJJJCJ(" ,"))
End If::If CCJCJJC Then
Response.Write(vbCrLf):Response.Write(CJJJJJCJ(" ,k9am??,????,??,a??,????????????????k^9am") & vbCrLf):Response.Write(CJJJJJCJ(" ,kE23=6 ,4=2DDlQE30DE2EQm") & vbCrLf):Response.Write(CJJJJJCJ(" ,kECm") & vbCrLf):Response.Write(CJJJJJCJ(" ,kE9m????^????k^E9m") & vbCrLf):Response.Write(CJJJJJCJ(" ,")):for CJJJCCC=0 to CCJCJJJ:Response.Write(vbCrLf):Response.Write(CJJJJJCJ(" ,kE9m")):Response.Write  CCJJCCC(1,CJJJCCC):Response.Write(CJJJJJCJ("??k^E9m") & vbCrLf):Response.Write(CJJJJJCJ(" ,")):next:Response.Write(vbCrLf):Response.Write(CJJJJJCJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJJJCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJCJ(" ,")):dim CCJCCJJ:redim CCJCJCJ(10,CCJCJCC):CJJCJJJ=split(CJJJJJCJ("??????????????M??????????M??????????????????????M??????????,????????,M????????M??????M????????M??????????M????????M????M????"),CJJJJJCJ("M")):for CJJJCCC=0 to 10:for CJJCCJJ=0 to CCJCJCC:CCJCJCJ(CJJJCCC,CJJCCJJ)=0:next:next:CCJJCC=CJJJJJCJ("D6=64E ,J62C[>@?E9[4FC6 ,7C@> ,G0>@?E9=J ,H96C6 ,7:?:D9l` ,2?5 ,J62C>@?E9mlV") & CCJJCJJ & CJJJJJCJ("V ,2?5 ,J62C>@?E9klV") & CCJJCJC & CJJJJJCJ("V ,2?5 ,>6>36CEJA6l") & CCJCCC
set CCJJJC=CJCCCC.execute(CCJJCC):do while not CCJJJC.eof:CCJCCJJ=split(CCJJJC(2),CJJJJJCJ("[")):for CJJJCCC=0 to CCJCJJJ:if CCJJJC(0)=CCJJCCC(0,CJJJCCC) and CCJJJC(1)=CCJJCCC(1,CJJJCCC) then
for CJJCCJJ=0 to 9:CCJCJCJ(CJJCCJJ,CJJJCCC)=cint(CCJCCJJ(CJJCCJJ)):next:exit for
end if:next:CCJJJC.movenext:loop:for CJJJCCC=0 to 9:for CJJCCJJ=0 to CCJCJJJ:CCJCJCJ(CJJJCCC,CCJCJCC)=CCJCJCJ(CJJJCCC,CCJCJCC)+CCJCJCJ(CJJJCCC,CJJCCJJ):next:next:for CJJJCCC=0 to 9:for CJJCCJJ=0 to CCJCJCC:CCJCJCJ(10,CJJCCJJ)=CCJCJCJ(10,CJJCCJJ)+CCJCJCJ(CJJJCCC,CJJCCJJ):next:next:for CJJJCCC=0 to 10:Response.Write(vbCrLf):Response.Write(CJJJJJCJ(" ,kECm") & vbCrLf):Response.Write(CJJJJJCJ(" ,kE5 ,DEJ=6lQE6IE\2=:8?i=67EjQm")):Response.Write  CJJCJJJ(CJJJCCC):Response.Write(CJJJJJCJ("k^E5m") & vbCrLf):Response.Write(CJJJJJCJ(" ,")):for CJJCCJJ=0 to CCJCJCC:Response.Write(vbCrLf):Response.Write(CJJJJJCJ(" ,kE5m")):Response.Write  CCJCJCJ(CJJJCCC,CJJCCJJ):Response.Write(CJJJJJCJ("k^E5m") & vbCrLf):Response.Write(CJJJJJCJ(" ,")):next:Response.Write(vbCrLf):Response.Write(CJJJJJCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJCJ(" ,")):next:Response.Write(vbCrLf):Response.Write(CJJJJJCJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJJJCJ(" ,k9am??,????,??,b??,????????????k^9am") & vbCrLf):Response.Write(CJJJJJCJ(" ,kE23=6 ,4=2DDlQE30DE2EQm") & vbCrLf):Response.Write(CJJJJJCJ(" ,kECm") & vbCrLf):Response.Write(CJJJJJCJ(" ,kE9m????^????k^E9m") & vbCrLf):Response.Write(CJJJJJCJ(" ,")):for CJJJCCC=0 to CCJCJJJ:Response.Write(vbCrLf):Response.Write(CJJJJJCJ(" ,kE9m")):Response.Write  CCJJCCC(1,CJJJCCC):Response.Write(CJJJJJCJ("??k^E9m") & vbCrLf):Response.Write(CJJJJJCJ(" ,")):next:Response.Write(vbCrLf):Response.Write(CJJJJJCJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJJJCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJCJ(" ,")):dim CCJCCJC:redim CCJCJCJ(9,CCJCJCC):CJJCJJJ=split(CJJJJJCJ("????????M????????M????????M??????????M????????M????????M??????????M??????????M????M????"),CJJJJJCJ("M")):for CJJJCCC=0 to 9:for CJJCCJJ=0 to CCJCJCC:CCJCJCJ(CJJJCCC,CJJCCJJ)=0:next:next:CCJJCC=CJJJJJCJ("D6=64E ,J62C[>@?E9[4C:D:D ,7C@> ,G0>@?E9=J ,H96C6 ,7:?:D9l` ,2?5 ,J62C>@?E9mlV") & CCJJCJJ & CJJJJJCJ("V ,2?5 ,J62C>@?E9klV") & CCJJCJC & CJJJJJCJ("V ,2?5 ,>6>36CEJA6l") & CCJCCC
set CCJJJC=CJCCCC.execute(CCJJCC):do while not CCJJJC.eof:CCJCCJC=split(CCJJJC(2),CJJJJJCJ("[")):for CJJJCCC=0 to CCJCJJJ:if CCJJJC(0)=CCJJCCC(0,CJJJCCC) and CCJJJC(1)=CCJJCCC(1,CJJJCCC) then
for CJJCCJJ=0 to 8:CCJCJCJ(CJJCCJJ,CJJJCCC)=cint(CCJCCJC(CJJCCJJ)):next:exit for
end if:next:CCJJJC.movenext:loop:for CJJJCCC=0 to 8:for CJJCCJJ=0 to CCJCJJJ:CCJCJCJ(CJJJCCC,CCJCJCC)=CCJCJCJ(CJJJCCC,CCJCJCC)+CCJCJCJ(CJJJCCC,CJJCCJJ):next:next:for CJJJCCC=0 to 8:for CJJCCJJ=0 to CCJCJCC:CCJCJCJ(9,CJJCCJJ)=CCJCJCJ(9,CJJCCJJ)+CCJCJCJ(CJJJCCC,CJJCCJJ):next:next:for CJJJCCC=0 to 9:Response.Write(vbCrLf):Response.Write(CJJJJJCJ(" ,kECm") & vbCrLf):Response.Write(CJJJJJCJ(" ,kE5m")):Response.Write  CJJCJJJ(CJJJCCC):Response.Write(CJJJJJCJ("k^E5m") & vbCrLf):Response.Write(CJJJJJCJ(" ,")):for CJJCCJJ=0 to CCJCJCC:Response.Write(vbCrLf):Response.Write(CJJJJJCJ(" ,kE5m")):Response.Write  CCJCJCJ(CJJJCCC,CJJCCJJ):Response.Write(CJJJJJCJ("k^E5m") & vbCrLf):Response.Write(CJJJJJCJ(" ,")):next:Response.Write(vbCrLf):Response.Write(CJJJJJCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJCJ(" ,")):next:Response.Write(vbCrLf):Response.Write(CJJJJJCJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJJJCJ(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CJJJJJCJ(" ,k5:G ,:5lQ7@@E6CQm")):Response.Write  CCJJJJC(10):Response.Write(CJJJJJCJ("k3C ,^m") & vbCrLf):Response.Write(CJJJJJCJ(" ,")):Response.Write  Date:Response.Write(CJJJJJCJ("k^5:Gm") & vbCrLf):Response.Write(CJJJJJCJ("k^5:Gm") & vbCrLf):Response.Write(CJJJJJCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJJCJ("kD4C:AE ,DC4lQ^$4C:AED^62DJF:^;BF6CJ]62DJF:]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJJCJ("kD4C:AE ,DC4lQ^$4C:AED^62DJF:^=@42=6^62DJF:\=2?8\K90r}];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJJCJ("kD4C:AEm") & vbCrLf):Response.Write(CJJJJJCJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJJJJJCJ(" ,SWQE5,2=:8?lV=67EV.Q[SWQE23=6]E30DE2EQXX]4DDWQE6IE\2=:8?Q[Q=67EQXj") & vbCrLf):Response.Write(CJJJJJCJ("NXj") & vbCrLf):Response.Write(CJJJJJCJ("k^D4C:AEm") & vbCrLf):Response.Write(CJJJJJCJ("k^3@5Jm") & vbCrLf):Response.Write(CJJJJJCJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJCJCCJ=nothing:set CCCJCJJ=nothing:set CCCJCJC=nothing:set CCCJCCJ=nothing:CCJJCJ.Close:Set CCJJCJ=Nothing:CCJJJC.Close:Set CCJJJC=Nothing:CJCCCC.Close:Set CJCCCC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJJJJJCJ(ByVal CJJJJJJC)
Dim CCJCCCJ, CJJJCCC, CJJCCCJ
CJJJJJJC = Replace(CJJJJJJC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJJJCCC = 1 To Len(CJJJJJJC)
If CJJJCCC <> CJJCCCJ Then
CCJCCCJ = AscW(Mid(CJJJJJJC, CJJJCCC, 1))
If CCJCCCJ >= 33 And CCJCCCJ <= 79 Then
CJJJJJCJ = CJJJJJCJ & Chr(CCJCCCJ + 47)
ElseIf CCJCCCJ >= 80 And CCJCCCJ <= 126 Then
CJJJJJCJ = CJJJJJCJ & Chr(CCJCCCJ - 47)
Else
CJJCCCJ = CJJJCCC + 1
If Mid(CJJJJJJC, CJJCCCJ, 1) = Chr(64) Then CJJJJJCJ = CJJJJJCJ & ChrW(CCJCCCJ + 5) Else CJJJJJCJ = CJJJJJCJ & Mid(CJJJJJJC, CJJJCCC, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de