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

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCJJJC, CCJJCJ,CCJJCC, CCJCJJ, CCJCJC:Set CCJJJC = server.CreateObject(CCJCCCCJ("ps~sq]r@??64E:@?")):CCJJJC.open Application(CCJCCCCJ("r@??64E:@?$EC:?8")):Set CCJJCJ=CCJJJC::Dim CCJCCJ,CCJCCC,CCCJJJ,CCCJJC,CCCJCJ,CCCJCC,CCCCJJ,CCCCJC,CCCCCJ:Dim CCCCCC,CJJJJJJ,CJJJJJC,CJJJJCJ,CJJJJCC,CJJJCJJ:Dim CJJJCJC,CJJJCCJ,CJJJCCC:Dim CJJCJJJ:CJJCJJJ=Trim(Request.Cookies(CCJCCCCJ("!$*|t|qt#"))):if CJJCJJJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CCJCCJ>0 then
CCJCJC=CCJCCCCJ("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") & CCJCCC & CCJCCCCJ("V ,2?5 ,:5l") & CCJCCJ
set CCJJCC=CCJJJC.execute(CCJCJC):If CCJJCC.EOF Then
Call ClearMemberCookie
Else
CCCJJJ=CCJJCC(2) & "":CCCJJC=CCJJCC(3):CCCJCJ=CCJJCC(5):CCCJCC=CCJJCC(6):CCCCJJ=CCJJCC(9):CCCCJC=CCJJCC(15):CCCCCC=CCJJCC(0):CJJJCCJ=CCJJCC(1):CJJJCJC=CCJJCC(11) & "":CJJJJJJ=CCJJCC(10) & "":CCCCCJ=CCJJCC(12):CJJJJJC=CCJJCC(14):CJJJJCJ=CCJJCC(13):CJJJJCC=CCJJCC(7) & "":CJJJCJJ=CCJJCC(4):CJJJCCC=CCJJCC(8):if isnull(CCCCJC) then CCCCJC=0
if isnull(CCCCJJ) or CCCCJJ=0 then CCCCJJ=CCCJJC
if isnull(CJJJCJJ) then CJJJCJJ=0
if isnull(CCCJCJ) then CCCJCJ=0
if instr(CCJCCCCJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CCJCCC)>0 then Call RedirectMessage(CCJCCCCJ("????????,????????????????????????????????,"))
Call SetMemberCookie(CCJCCJ,CCJCCC)
End IF
end if:Sub CheckRight(CCJJJJJ):dim CJJCJJC,CJJCJCJ:if CCJCCJ=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CCJCCCCJ("??????????????,????????????,"))
elseIf not CJCCJCJC(CCJJJJJ) then
Call RedirectMessage(CCJCCCCJ("????W") & CCJJJJJ & CCJCCCCJ("X????????,????????????????????,"))
end if:End Sub:Function CJCCJCJC(CCJJJJJ):dim CJJCJJC,CJJCJCJ:CJJCJCJ=split(CCJJJJJ,CCJCCCCJ("[")):CJCCJCJC=False:for CJJCJJC=0 to ubound(CJJCJCJ):If Mid(CCCJJJ,CJJCJCJ(CJJCJJC),1)="1" then
CJCCJCJC=True:exit function
end if:next:End Function:Sub CheckLogined():if CCJCCJ=0 then
Call ClearMemberCookie:Call ConnClose:dim CJJCJCC:CJJCJCC=trim(request.QueryString(CCJCCCCJ("D49@@="))):if isnumeric(CJJCJCC) then
response.Redirect CCJCCCCJ("^>^G2?E^R^D49@@=^") & CJJCJCC & CCJCCCCJ("^DEF56?E^=@8:?nC65:C64El") & CJCJCJC
else
Call RedirectMessage(CCJCCCCJ("??????????????,????????????,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CCJCCCCJ("!$*|t|qt#"))="":CCJCCJ=0:CCCJCC=0:CCJCCC=Empty:CCCJCJ=0:CCCCJC=0:CCCCJJ=0:CCCJJC=0:CCCCCC=False:CJJJCCJ=False:CJJJCCC=Empty:End Sub:Sub CheckMemberCookie():dim CJJCCJJ,CJJCCJC,CJJCJJC,CJJCCCJ,CJJCCCC:CJJCCJJ=split(CJJCJJJ,CCJCCCCJ("]")):if ubound(CJJCCJJ)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJJCCJJ(0)) or len(CJJCCJJ(1))<>32 or len(CJJCCJJ(2))<>32 then
Call ClearMemberCookie
else
CJJCCJC=CJJCCJJ(1):for CJJCJJC=1 to len(CJJCCJC):CJJCCCJ=mid(CJJCCJC,CJJCJJC,1):if isnumeric(CJJCCCJ) then CJJCCCC=CJJCCCC & CJJCCCJ
if len(CJJCCCC)=7 then exit for
next:CJJCCJC=CJJCCJJ(2):if CJJCCCC<>mid(CJJCCJC,6,7) then
Call ClearMemberCookie
else
CJJCCCJ=mid(CJJCCJC,18,10)/2:if CJJCCCJ<DateDiff(CCJCCCCJ("D"), CCJCCCCJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CCJCCJ=Clng(CJJCCJJ(0)):CCJCCC=CJJCCJJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJJJCCJC,CJJCJJJC):dim CJJCJJC,CJJCCCJ,CJJCCCC:for CJJCJJC=1 to len(CJJCJJJC):CJJCCCJ=mid(CJJCJJJC,CJJCJJC,1):if isnumeric(CJJCCCJ) then CJJCCCC=CJJCCCC & CJJCCCJ
if len(CJJCCCC)=7 then exit for
next:CJJCCCC=CJJJCCJC & CCJCCCCJ("]") & CJJCJJJC & CCJCCCCJ("]") & Fix(10000*(Rnd+1)) & CJJCCCC & Fix(10000*(Rnd+1)) & DateDiff(CCJCCCCJ("D"), CCJCCCCJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CCJCCCCJ("!$*|t|qt#"))=CJJCCCC:End Sub::Function CJCCJCCJ(CCJCCCCC):Dim str,CJCJJJC:str = Trim(CCJCCCCC):If IsNull(str) Or str = "" Then
CJCCJCCJ = ""
else
str=Replace(str, CCJCCCCJ("V"), "")
str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CCJCCCCJ("k:7C2>6"), CCJCCCCJ("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CCJCCCCJ("kD4C:AE"), CCJCCCCJ("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CJCJJJC=new RegExp:CJCJJJC.Pattern=CCJCCCCJ("@?W,2\K.ZXl"):CJCJJJC.IgnoreCase = True:CJCJJJC.Global=True:str=CJCJJJC.Replace(str,CCJCCCCJ("@?S`U6BF2=Dj")):set CJCJJJC=nothing:CJCCJCCJ=str
End If:End Function:Function IIf(CCCJJJJJ, CCCJJJJC, CCCJJJCJ):if isnull(CCCJJJJJ) or isempty(CCCJJJJJ) then
IIf = CCCJJJCJ
elseif CCCJJJJJ Then
IIf = CCCJJJJC
Else
IIf = CCCJJJCJ
end if:End Function:Const CJJCCCCC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$"::Function CJCCCJJJ():dim CJCJJCJ:CJCJJCJ = Cstr(Request.ServerVariables("HTTP_X_FORWARDED_FOR")):If CJCJJCJ = "" Then CJCJJCJ = Cstr(Request.ServerVariables(CCJCCCCJ("#t|~%t0pss#")))
if instr(CJCJJCJ,CCJCCCCJ("i"))>0 then
CJCJJCJ=left(CJCJJCJ,instr(CJCJJCJ,CCJCCCCJ("i"))-1)
elseif instr(CJCJJCJ,CCJCCCCJ("["))>0 then
CJCJJCJ=left(CJCJJCJ,instr(CJCJJCJ,CCJCCCCJ("["))-1)
end if:CJCCCJJJ=left(CJCJJCJ,15):End Function:Sub Debug(str):response.Charset=CCJCCCCJ("FE7\g"):dim CJJCJJC,CJJCCCJ,CJCJJCC:if isarray(str) then
on error resume next:CJJCJJC=ubound(str,2):CJCJJCC=err.number:err.clear:on error goto 0:if CJCJJCC<>0 then
for CJJCJJC=0 to ubound(str):if CJJCJJC>0 then response.Write CCJCCCCJ("k3C ,^m")
response.Write CJJCJJC & CCJCCCCJ("i ,") & str(CJJCJJC):next
else
response.Write CCJCCCCJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CJJCJJC=0 to ubound(str,2):response.Write CCJCCCCJ("kE9 ,2=:8?lV=67EVm") & CJJCJJC & CCJCCCCJ("k^E9m")
next:response.Write CCJCCCCJ("k^ECm"):for CJJCJJC=0 to ubound(str):response.Write CCJCCCCJ("kECmkE9m") & CJJCJJC & CCJCCCCJ("k^E9m"):for CJJCCCJ=0 to ubound(str,2):response.Write CCJCCCCJ("kE5m") & str(CJJCJJC,CJJCCCJ) & CCJCCCCJ("k^E5m"):next:response.Write CCJCCCCJ("k^ECm"):next:response.Write CCJCCCCJ("k^E23=6m")
end if
elseif isnull(str) then
response.Write CCJCCCCJ(",}F==.")
else
Response.Write replace(str,vbcrlf,CCJCCCCJ("k3Cm"))
end if:Call ConnClose:Response.End:End Sub:Public Function CJCCCJJC():Dim CJCJCJJ, CJCJCJC:CJCJCJC = Request.ServerVariables(CCJCCCCJ("!p%w0x}u~")):CJCJCJJ = Request.ServerVariables(CCJCCCCJ("""&t#*0$%#x}v")):If CJCJCJJ <> Empty Then
if instr(lcase(CJCJCJJ),CCJCCCCJ("Tb4:7C2>6"))>0 or instr(lcase(CJCJCJJ),CCJCCCCJ("Tb4D4C:AE"))>0 then Call RedirectMessage(CCJCCCCJ("????????,????????????????????????,??,??,"))
CJCJCJC = CJCJCJC & CCJCCCCJ("n") & CJCJCJJ
end if:CJCCCJJC = CJCJCJC:End Function:Sub SetHttpOnlyCookie(CCCJJJCC,CCCJJCJJ):dim CJJCCJJ:CJJCCJJ=CCCJJJCC & CCJCCCCJ("l") & CCCJJCJJ & CCJCCCCJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCJCCCCJ("$6E\r@@<:6"),CJJCCJJ):End Sub:::::Sub CheckValidPost():dim CJCJCCJ:CJCJCCJ=false:Dim CJCJCCC : CJCJCCC=lcase(Request.ServerVariables(CCJCCCCJ("w%%!0#tut#t#"))):if(instr(CJCJCCC,Application(CCJCCCCJ("s@>2:?(9:E6{:DE")))>0) then
CJCJCCJ=true
else
Dim CJCCJJJ : CJCCJJJ=lcase(Request.ServerVariables(CCJCCCCJ("$t#'t#0}p|t"))):Dim CJCCJJC : CJCCJJC=Request.ServerVariables(CCJCCCCJ("{~rp{0pss#")):if Mid(CJCJCCC,8,Len(CJCCJJJ))=CJCCJJJ or Mid(CJCJCCC,9,Len(CJCCJJJ))=CJCCJJJ or CJCCJJJ=CJCCJJC then CJCJCCJ=true
end if:if not CJCJCCJ then Call RedirectMessage(CCJCCCCJ("????????,??????????????????????????,"))
end sub::Function CJCCCJCJ(CJCJJCC):if isnull(CJCJJCC) or trim(CJCJJCC)="" or not isnumeric(CJCJJCC) then
CJCCCJCJ=false
else
Dim CJCJJJC:Set CJCJJJC = New RegExp:CJCJJJC.Pattern = CCJCCCCJ("/-5ZS"):CJCJJJC.IgnoreCase = True:CJCCCJCJ = CJCJJJC.test(CJCJJCC):set CJCJJJC=nothing
end if:End Function:Function CJCCCJCC(CCCJJCJC):dim CJCCJCJ,CJCCJCC:CJCCJCJ=CCJCCCCJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CCCJJCJC & CCJCCCCJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJCCJCC=CCJJJC.execute(CJCCJCJ):CJCCCJCC = CJCCJCC(0):if isnull(CJCCCJCC) then CJCCCJCC=1
CJCCJCC.close : set CJCCJCC=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CCJJCCJ=nothing:set CJCCCCJJ=nothing:set CJCCCCJC=nothing:set CJCCCCCJ=nothing:CJCCJCC.close : set CJCCJCC=nothing:CCJCJJ.Close : Set CCJCJJ=Nothing:CCJJCC.Close : Set CCJJCC=Nothing:CJCCCCCC.Close : Set CJCCCCCC = Nothing:CCJJJC.Close : Set CCJJJC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCCJJCCJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCJCCCCJ("!$*0|6DD286"),server.URLEncode(CCCJJCCJ)):Response.Redirect CCJCCCCJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::Function CCJJJJJJ(ByVal CCJJJJJC,style):if not isdate(CCJJJJJC) then
CCJJJJJJ=CCJJJJJC:exit function
end if:dim CJCCCJJ,CJCCCJC,CJCCCCJ,CJCCCCC:CCJJJJJC=cdate(CCJJJJJC):CJCCCJJ=Year(CCJJJJJC):CJCCCJC=Month(CCJJJJJC):CJCCCCJ=Day(CCJJJJJC):select case style:case 0:CCJJJJJJ=CJCCCJJ & CCJCCCCJ("\") & right(0 & CJCCCJC,2) & CCJCCCCJ("\") & right(0 & CJCCCCJ,2):case 1:CCJJJJJJ=CJCCCJJ & right(0 & CJCCCJC,2) & right(0 & CJCCCCJ,2):case 2:CCJJJJJJ=right(CJCCCJJ,2) & CCJCCCCJ("\") & right(0 & CJCCCJC,2) & CCJCCCCJ("\") & right(0 & CJCCCCJ,2):case 3:CCJJJJJJ=CJCCCJJ & CCJCCCCJ("\") & right(0 & CJCCCJC,2):case 4:CCJJJJJJ=right(0 & CJCCCJC,2) & CCJCCCCJ("\") & right(0 & CJCCCCJ,2):case 5:CCJJJJJJ=right(0 & CJCCCCJ,2):case 6:CCJJJJJJ=CJCCCJJ & CCJCCCCJ("??") & right(0 & CJCCCJC,2) & CCJCCCCJ("??") & right(0 & CJCCCCJ,2) & CCJCCCCJ("??"):case else
CCJJJJJJ=CCJJJJJC:end select:End Function:Function CCJJJJCJ(Table):Dim CJCCJCC, CCJJJJJ, str(), CJJCJJC,CJJCCCJ,CCJJJJC:CCJJJJC=UCase(Table):If Not IsArray(Application(CCJCCCCJ("!$*0") & CCJJJJC)) Then
CCJCJC=CCJCCCCJ("D6=64E ,:5[?2>6[>6>36CEJA6 ,7C@> ,,") & Table & CCJCCCCJ(". ,@C56C ,3J ,D@CE[:5"):set CJCCJCC=server.createobject(CCJCCCCJ("25@53]C64@C5D6E")):CJCCJCC.open CCJCJC,CCJJJC,1:CCJJJJJ = CJCCJCC.RecordCount:ReDim str(CCJJJJJ, 2):If CCJJJJJ > 0 Then
For CJJCJJC = 1 To CCJJJJJ:for CJJCCCJ=0 to 2:str(CJJCJJC, CJJCCCJ) = CJCCJCC(CJJCCCJ):next:CJCCJCC.MoveNext:Next
End If:CJCCJCC.Close: Set CJCCJCC = Nothing:Application(CCJCCCCJ("!$*0") & CCJJJJC) = str
End If:CCJJJJCJ = Application(CCJCCCCJ("!$*0") & CCJJJJC):End Function:Sub ShowListSelect(CCCJJCJC,CCCJJCCC,CCCJCJJJ):Dim str, CJJCJJC, CCJJJCJ:CCJJJCJ = CCJJJJCJ(CCCJJCJC):For CJJCJJC = 1 To UBound(CCJJJCJ):if Cstr(CCJJJCJ(CJJCJJC,2))=Cstr(CCCJJCCC) then
str = str & CCJCCCCJ("k@AE:@? ,G2=F6lV") & CCJJJCJ(CJJCJJC, 0) & CCJCCCCJ("V")
If CStr(CCJJJCJ(CJJCJJC, 0)) = CCCJCJJJ & "" Then str = str & CCJCCCCJ(" ,D6=64E65lVD6=64E65V")
str = str & CCJCCCCJ("m") & CCJJJCJ(CJJCJJC, 1) & CCJCCCCJ("k^@AE:@?m")
end if:Next:Response.Write str:End Sub:Function CCJJJJCC(CCCJJCJC,CCCJJCCC,CJJJCCJC):Dim str, CJJCJJC, CCJJJCJ:CCJJJCJ = CCJJJJCJ(CCCJJCJC):For CJJCJJC = 1 To UBound(CCJJJCJ):if Cstr(CCJJJCJ(CJJCJJC,2))=Cstr(CCCJJCCC) and CStr(CCJJJCJ(CJJCJJC, 0)) = CJJJCCJC & "" then
str=CCJJJCJ(CJJCJJC,1):exit for
end if:Next:if str="" then str=CCJCCCCJ(",????.")
CCJJJJCC=str:End Function:Sub InsertLog(CCCJCJJC,CJJJCJJC):dim CJCCJCJ:CJCCJCJ=CCJCCCCJ("x?D6CE ,:?E@ ,=@8W>6>36C[:A[4@?E6?E[EJA6[FC=X ,G2=F6DW") & CCJCCJ  & CCJCCCCJ("[V") & CJCCCJJJ & CCJCCCCJ("V") & CCJCCCCJ("[V") & CJCCJCCJ(CJJJCJJC) & CCJCCCCJ("V") & CCJCCCCJ("[") & CCCJCJJC  & CCJCCCCJ("[V") & CJCCCJJC & CCJCCCCJ("V") & CCJCCCCJ("X")
CCJJJC.execute CJCCJCJ:End Sub::function CCJJJCJJ(CJJCCJCC,CJJJCCJC):dim CJJCJCJ,CJJCJJC:if isArray(CJJCCJCC) then CJJCJCJ=CJJCCJCC else CJJCJCJ=split(CJJCCJCC & "",CCJCCCCJ("M"))
for CJJCJJC=0 to ubound(CJJCJCJ)-1 step 2:if CJJCJCJ(CJJCJJC)=cstr(CJJJCCJC) then
CCJJJCJJ=server.htmlencode(CJJCJCJ(CJJCJJC+1)):exit for
end if:next:end function::::::::::::Function CCJJJCJC(CCCJCJCJ,str):dim CJJCJJC,CCJJJCC,CCJJCJJ,CJCCCJC,CJCJJCC,CCJJCJC,CJJCCCC:CJJCCCC=ucase(CCCJCJCJ):CCJJCJC=str:if CCJJCJC="" then
CCJJCJC=request.cookies(CJJCCCC):if CCJJCJC="" then
CCJJJCJC=""
else
CCJJCJC=strreverse(CCJJCJC):CCJJJCC=len(CCJJCJC):for CJJCJJC=1 to CCJJJCC-1 step 2:CJCCCJC=mid(CCJJCJC,CJJCJJC,1):CJCJJCC=mid(CCJJCJC,CJJCJJC+1,1):CCJJCJJ=CCJJCJJ & CJCJJCC & CJCCCJC:next:CCJJCJJ=replace(CCJJCJJ,CCJCCCCJ("L0N"),CCJCCCCJ(" ,")):CCJJCJJ=replace(CCJJCJJ,CCJCCCCJ("LIN"),CCJCCCCJ("Y")):CCJJCJJ=replace(CCJJCJJ,CCJCCCCJ("L:N"),CCJCCCCJ("^")):CCJJJCJC=trim(CCJJCJJ)
end if
else
if Len(CCJJCJC) Mod 2=1 then CCJJCJC=CCJJCJC & CCJCCCCJ(" ,")
CCJJCJC=replace(CCJJCJC,CCJCCCCJ(" ,"),CCJCCCCJ("L0N")):CCJJCJC=replace(CCJJCJC,CCJCCCCJ("Y"),CCJCCCCJ("LIN")):CCJJCJC=replace(CCJJCJC,CCJCCCCJ("^"),CCJCCCCJ("L:N")):CCJJJCC=len(CCJJCJC):for CJJCJJC=1 to CCJJJCC-1 step 2:CJCCCJC=mid(CCJJCJC,CJJCJJC,1):CJCJJCC=mid(CCJJCJC,CJJCJJC+1,1):CCJJCJJ=CCJJCJJ & CJCJJCC & CJCCCJC:next:CCJJCJJ=Trim(strreverse(CCJJCJJ)):CCJJJCJC=CCJJCJJ:response.cookies(CJJCCCC)=CCJJCJJ
end if:End Function:Function CCJJJCCJ(str,CCCJCJCC):if isnull(str) or str="" or CCCJCJCC="" then
CCJJJCCJ=False:exit function
end if:Dim CJCJJJC:Set CJCJJJC = New RegExp:CJCJJJC.Pattern = CCCJCJCC:CJCJJJC.IgnoreCase = True:CCJJJCCJ = CJCJJJC.test(str):set CJCJJJC=nothing:End Function:Sub ClearCache(CCCJCCJJ):Application.Contents.Remove CCCJCCJJ
End Sub::Class jTree:Private CCJCJC, CCJJCCJ, CCJJCCC, CCJCJJJ,CCJCJJC,CCJCJCJ,CCJCJCC,CCJCCJJ:Private Sub Class_Initialize():CCJJCCC = 0:CCJCJJJ = 0:CCJCCJJ=10:End Sub:Public Property Let Table(CCCJCCJC):if CCCJCCJC="" then Call RedirectMessage(CCJCCCCJ("????????,;%C66????????????????????@??????????,"))
CCJCJJC=CCCJCCJC:CCJCJCJ=CCJCCCCJ("!$*0") & UCase(CCJCJJC):Call GetTreeArray:End Property:Public Property Get Table():Table=CCJCJJC:End Property:::Private Sub GetTreeArray():Dim CJJCJJC, CJJCCCJ, CCJCCJC,RecordCount:CCJJCCJ = Application(CCJCJCJ):If Not IsArray(CCJJCCJ) Then
CCJCJC = CCJCCCCJ("D6=64E ,4@F?EW:5X ,7C@> ,") & CCJCJJC:if CCJCJCC<>"" then CCJCJC=CCJCJC & CCJCCCCJ(" ,H96C6 ,") & CCJCJCC
set CCJCCJC=CCJJJC.execute(CCJCJC):RecordCount=CCJCCJC(0):if RecordCount=0 then Call RedirectMessage(CCJCCCCJ("????W") & CCJCJJC & CCJCCCCJ("^") & CCJCJCC & CCJCCCCJ("X????????????"))
CCJCJJJ=RecordCount+CCJCCJJ:ReDim CCJJCCJ(CCJCJJJ, 4):CCJCJC = CCJCCCCJ("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJCJJC & CCJCCCCJ(" ,H:E9 ,W?@=@4<X"):if CCJCJCC<>"" then CCJCJC=CCJCJC & CCJCCCCJ(" ,H96C6 ,") & CCJCJCC
CCJCJC=CCJCJC & CCJCCCCJ(" ,@C56C ,3J ,D@CE[:5"):set CCJCCJC=CCJJJC.execute(CCJCJC):For CJJCJJC = 1 To RecordCount:For CJJCCCJ = 0 To 4:CCJJCCJ(CJJCJJC, CJJCCCJ) = CCJCCJC(CJJCCCJ):if IsNull(CCJJCCJ(CJJCJJC,4)) then CCJJCCJ(CJJCJJC,4)=0
If CCJJCCJ(CJJCJJC,2)="" then CCJJCCJ(CJJCJJC,2)=CCJCCCCJ(",??.")
Next:CCJCCJC.MoveNext:Next:CCJCCJC.Close: Set CCJCCJC = Nothing:for CJJCJJC=CCJCJJJ-(CCJCCJJ-1) to CCJCJJJ:CCJJCCJ(CJJCJJC,0)=CJJCJJC:next:Application.Lock():Application(CCJCJCJ) = CCJJCCJ:Application.UnLock()
else
CCJCJJJ=Ubound(CCJJCCJ)
End If:End Sub:::::Private Function CCJJCJJJ(CJJJCCJC):dim CJJCJJC,CCJCCCC:CCJJCJJJ=0:CCJCCCC=CStr(CJJJCCJC):if CCJCCCC<>"0" then
for CJJCJJC=1 to CCJCJJJ:If CStr(CCJJCCJ(CJJCJJC, 0))=CCJCCCC Then
CCJJCJJJ = CJJCJJC:Exit For
End If:Next
end if:End Function:Public Function CCJJCJJC(CJJJCCJC):if Cstr(CJJJCCJC)="0" then
CCJJCJJC=CCJCCCCJ("??")
else
Dim CJJCJJC,CCJCCJC:CJJCJJC=CCJJCJJJ(CJJJCCJC):if CJJCJJC>0 then
CCJJCJJC=CCJJCCJ(CJJCJJC,2):if CCJJCJJC="" then
set CCJCCJC=CCJJJC.execute(CCJCCCCJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJCJJC & CCJCCCCJ(" ,H96C6 ,:5l") & CJJJCCJC):if CCJCCJC.eof then Call RedirectMessage(CCJCCCCJ("xs??,") & CJJJCCJC & CCJCCCCJ("??,??????"))
CCJJCJJC=CCJCCJC(1):Call UpdateCache(CJJJCCJC,CCJCCJC(0),CCJJCJJC,CCJCCJC(2),CCJCCJC(3)):CCJCCJC.Close: Set CCJCCJC = Nothing
end if
else
set CCJCCJC=CCJJJC.execute(CCJCCCCJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJCJJC & CCJCCCCJ(" ,H96C6 ,:5l") & CJJJCCJC):if CCJCCJC.eof then Call RedirectMessage(CCJCCCCJ("xs??,") & CJJJCCJC & CCJCCCCJ("??,??????"))
CCJJCJJC=CCJCCJC(1):Call UpdateCache(CJJJCCJC,CCJCCJC(0),CCJJCJJC,CCJCCJC(2),CCJCCJC(3)):CCJCCJC.Close: Set CCJCCJC = Nothing
end if
end if:End Function:::Public Function CCJJCJCJ(CJJJCCJC):Dim CJJCJJC,CCCJJJJ:CJJCJJC=CCJJCJJJ(CJJJCCJC):if CJJCJJC=0 then
CCCJJJJ=CCJJCJCC(CJJJCCJC)
else
CCCJJJJ=CCJJCCJ(CJJCJJC,3):if isnull(CCCJJJJ) or CCCJJJJ="" then
CCCJJJJ=CCJJCJCC(CJJJCCJC)
elseif Mid(CCCJJJJ,instrrev(CCCJJJJ,CCJCCCCJ("["))+1)<>CStr(CJJJCCJC) then
CCCJJJJ=CCJJCJCC(CJJJCCJC)
elseif Left(CCCJJJJ,1)=CCJCCCCJ("[") then
CCCJJJJ=CCJJCJCC(CJJJCCJC)
end if
end if:CCJJCJCJ=CCCJJJJ:End Function:Private Function CCJJCJCC(CJJJCCJC):dim CCJCCCC:CCJCCCC=CStr(CJJJCCJC):if CCJCCCC="0" then
CCJJCJCC=""
else
dim CCJCCJC:set CCJCCJC=CCJJJC.execute(CCJCCCCJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJCJJC & CCJCCCCJ(" ,H96C6 ,:5l") & CJJJCCJC):if CCJCCJC.eof then
Call UpdateCache(CJJJCCJC,"","","",""):Call RedirectMessage(CCJCCCCJ("??????,xs??,") & CJJJCCJC & CCJCCCCJ("??,????????,????????????????????,"))
else
if CCJCCJC(0)=0 then
CCJJCJCC="0," & CJJJCCJC
else
CCJJCJCC=CCJJCJCJ(CCJCCJC(0)) & CCJCCCCJ("[") & CJJJCCJC
end if:if CCJCCJC(2)<>CCJJCJCC then
CCJJJC.execute CCJCCCCJ("FA52E6 ,") & CCJCJJC & CCJCCCCJ(" ,D6E ,A2E9lV") & CCJJCJCC & CCJCCCCJ("V ,H96C6 ,:5l") & CJJJCCJC
else
CCJJCJCC=CCJCCJC(2)
end if
end if:Call UpdateCache(CJJJCCJC,CCJCCJC(0),CCJCCJC(1),CCJJCJCC,CCJCCJC(3)):CCJCCJC.Close: Set CCJCCJC = Nothing
end if:End Function::Public Function CCJJCCJJ(CJJJCCJC):CCJJCCJJ = Mid(CCJJCJCJ(CJJJCCJC), 3):End Function:Public Function CCJJCCJC(CJJJCCJC):Dim CJJCJJC, CJJCCCJ, CCCJJJC,Str, CCCJJJJ, CCJJJJJ, CJJCJCJ():CCCJJJJ = CCJJCCJJ(CJJJCCJC):CCCJJJJ = Split(CCCJJJJ, CCJCCCCJ("[")):for CJJCJJC=0 to Ubound(CCCJJJJ):CCCJJJC=CCCJJJJ(CJJCJJC):str=str & CCJCCCCJ("M") & CCCJJJC & CCJCCCCJ("M") & CCJJCJJC(CCCJJJC):next:if str<>"" then str=Mid(str,2)
CCJJCCJC=str:End Function:::::::::Public Function Sql_GetChildren(CJJJCCJC):dim CCCJJJJ:CCCJJJJ=CCJJCJCJ(CJJJCCJC):Sql_GetChildren = CCJCJJC & CCJCCCCJ("0A2E9ZV[V ,=:<6 ,V") & CCCJJJJ & CCJCCCCJ("[TV")
End Function:::Public Function GetPositionStr_From(CJJJCCJC, CCJCJJJJ):if isnull(CJJJCCJC) or isnull(CCJCJJJJ) then
GetPositionStr_From=CCJCCCCJ(",????????."):exit function
end if:Dim Str, CJJCJJC, CJJCJCJ, CCJJJJJ, CCCJJCJ:CCJCJJJJ = CStr(CCJCJJJJ):If CCJCJJJJ = "0" or CCJCJJJJ = CStr(CJJJCCJC) Then
Str = CCJJCJJC(CJJJCCJC)
Else
CJJCJCJ = Split(CCJJCCJC(CJJJCCJC), CCJCCCCJ("M")):CCJJJJJ = UBound(CJJCJCJ):CCCJJCJ = False:For CJJCJJC = 0 To CCJJJJJ Step 2:If CJJCJCJ(CJJCJJC) = CCJCJJJJ And Not CCCJJCJ Then CCCJJCJ = True
If CCCJJCJ Then
If Str <> "" Then Str = Str & CCJCCCCJ("??,")
Str = Str & CJJCJCJ(CJJCJJC + 1)
End If:Next
End If:str=Mid(str,instr(str,CCJCCCCJ("??,"))+1):GetPositionStr_From = Str:End Function:::::::Public Sub ClearCache():Application.Contents.Remove CCJCJCJ
End Sub:Public Sub UpdateCache(CJJJCCJC,CCCJJJC,CCCJCCCJ,CCCJJJJ,CCCJCCCC):dim CJJCJJC,CJJCCCJ:CJJJCCJC=CLng(CJJJCCJC):CJJCJJC=CCJJCJJJ(CJJJCCJC):if CCCJJJC="" and CCCJCCCJ="" and CCCJJJJ="" and CCCJCCCC="" then
if CJJCJJC>0 then
for CJJCCCJ=1 to 4:CCJJCCJ(CJJCJJC,CJJCCCJ)=Null:next
end if
else
if CJJCJJC=0 then
for CJJCCCJ=1 to CCJCJJJ:if CCJJCCJ(CJJCCCJ,1) & ""="" then
CJJCJJC=CJJCCCJ:exit for
end if:next
end if:if CJJCJJC=0 then
Call ClearCache
else
CCJJCCJ(CJJCJJC,0)=CLng(CJJJCCJC):if CCCJJJC<>"" then CCJJCCJ(CJJCJJC,1)=CLng(CCCJJJC)
if CCCJCCCJ<>"" then CCJJCCJ(CJJCJJC,2)=CCCJCCCJ
if CCCJJJJ<>"" then CCJJCCJ(CJJCJJC,3)=CCCJJJJ
if CCCJCCCC<>"" then CCJJCCJ(CJJCJJC,4)=CLng(CCCJCCCC)
end if
end if:if CJJCJJC>0 then
Application.Lock():Application(CCJCJCJ) = CCJJCCJ:Application.UnLock()
end if:End Sub:Private Sub Debug(CCCJJCCJ):Call ConnClose:Response.Write CCCJJCCJ:Response.End:End Sub:Private Function CJCCCJCC():CJCCCJCC=CCJCJJJC+1:End Function:Private Function CCJCJJJC():dim CJCCJCC:set CJCCJCC=CCJJJC.execute(CCJCCCCJ("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CCJCJJC & CCJCCCCJ(" ,@C56C ,3J ,:5 ,56D4")):CCJCJJJC=CJCCJCC(0):CJCCJCC.Close: Set CJCCJCC = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Private Const CJCJJJJJ =8:Private Const CJCJJJJC =4:Private Const CJCJJJCJ =32:Private CCCJJCC(30):Private CCCJCJJ(30):Private Function CCJCJJCJ(CCCCJJJJ, CCCCJJJC):If CCCCJJJC = 0 Then
CCJCJJCJ = CCCCJJJJ:Exit Function
ElseIf CCCCJJJC = 31 Then
If CCCCJJJJ And 1 Then
CCJCJJCJ = &H80000000
Else
CCJCJJCJ = 0
End If:Exit Function
ElseIf CCCCJJJC < 0 Or CCCCJJJC > 31 Then
Err.Raise 6
End If:If (CCCCJJJJ And CCCJCJJ(31 - CCCCJJJC)) Then
CCJCJJCJ = ((CCCCJJJJ And CCCJJCC(31 - (CCCCJJJC + 1))) * CCCJCJJ(CCCCJJJC)) Or &H80000000
Else
CCJCJJCJ = ((CCCCJJJJ And CCCJJCC(31 - CCCCJJJC)) * CCCJCJJ(CCCCJJJC))
End If:End Function:Private Function CCJCJJCC(CCCCJJJJ, CCCCJJJC):If CCCCJJJC = 0 Then
CCJCJJCC = CCCCJJJJ:Exit Function
ElseIf CCCCJJJC = 31 Then
If CCCCJJJJ And &H80000000 Then
CCJCJJCC = 1
Else
CCJCJJCC = 0
End If:Exit Function
ElseIf CCCCJJJC < 0 Or CCCCJJJC > 31 Then
Err.Raise 6
End If:CCJCJJCC = (CCCCJJJJ And &H7FFFFFFE) \ CCCJCJJ(CCCCJJJC):If (CCCCJJJJ And &H80000000) Then
CCJCJJCC = (CCJCJJCC Or (&H40000000 \ CCCJCJJ(CCCCJJJC - 1)))
End If:End Function:Private Function CCJCJCJJ(CCCCJJJJ, CCCCJJJC):CCJCJCJJ = CCJCJJCJ(CCCCJJJJ, CCCCJJJC) Or CCJCJJCC(CCCCJJJJ, (32 - CCCCJJJC)):End Function:Private Function CCJCJCJC(CCCCJJCJ, CCCCJJCC):Dim CCCJCJC:Dim CCCJCCJ:Dim CCCJCCC:Dim CCCCJJJ:Dim CCCCJJC:CCCJCCC = CCCCJJCJ And &H80000000:CCCCJJJ = CCCCJJCC And &H80000000:CCCJCJC = CCCCJJCJ And &H40000000:CCCJCCJ = CCCCJJCC And &H40000000:CCCCJJC = (CCCCJJCJ And &H3FFFFFFF) + (CCCCJJCC And &H3FFFFFFF):If CCCJCJC And CCCJCCJ Then
CCCCJJC = CCCCJJC Xor &H80000000 Xor CCCJCCC Xor CCCCJJJ
ElseIf CCCJCJC Or CCCJCCJ Then
If CCCCJJC And &H40000000 Then
CCCCJJC = CCCCJJC Xor &HC0000000 Xor CCCJCCC Xor CCCCJJJ
Else
CCCCJJC = CCCCJJC Xor &H40000000 Xor CCCJCCC Xor CCCCJJJ
End If
Else
CCCCJJC = CCCCJJC Xor CCCJCCC Xor CCCCJJJ
End If:CCJCJCJC = CCCCJJC:End Function:Private Function CCJCJCCJ(CJJJJJCJ, CJCCCJJ, CCCCJCJJ):CCJCJCCJ = (CJJJJJCJ And CJCCCJJ) Or ((Not CJJJJJCJ) And CCCCJCJJ):End Function:Private Function CCJCJCCC(CJJJJJCJ, CJCCCJJ, CCCCJCJJ):CCJCJCCC = (CJJJJJCJ And CCCCJCJJ) Or (CJCCCJJ And (Not CCCCJCJJ)):End Function:Private Function CCJCCJJJ(CJJJJJCJ, CJCCCJJ, CCCCJCJJ):CCJCCJJJ = (CJJJJJCJ Xor CJCCCJJ Xor CCCCJCJJ):End Function:Private Function CCJCCJJC(CJJJJJCJ, CJCCCJJ, CCCCJCJJ):CCJCCJJC = (CJCCCJJ Xor (CJJJJJCJ Or (Not CCCCJCJJ))):End Function:Private Sub md5_FF(CJJJJCCC, CJJJCJJJ, CJJJCJJC, CJCCCCJ, CJJJJJCJ, CCJJCJC, CCCCJCJC):CJJJJCCC = CCJCJCJC(CJJJJCCC, CCJCJCJC(CCJCJCJC(CCJCJCCJ(CJJJCJJJ, CJJJCJJC, CJCCCCJ), CJJJJJCJ), CCCCJCJC)):CJJJJCCC = CCJCJCJJ(CJJJJCCC, CCJJCJC):CJJJJCCC = CCJCJCJC(CJJJJCCC, CJJJCJJJ):End Sub:Private Sub md5_GG(CJJJJCCC, CJJJCJJJ, CJJJCJJC, CJCCCCJ, CJJJJJCJ, CCJJCJC, CCCCJCJC):CJJJJCCC = CCJCJCJC(CJJJJCCC, CCJCJCJC(CCJCJCJC(CCJCJCCC(CJJJCJJJ, CJJJCJJC, CJCCCCJ), CJJJJJCJ), CCCCJCJC)):CJJJJCCC = CCJCJCJJ(CJJJJCCC, CCJJCJC):CJJJJCCC = CCJCJCJC(CJJJJCCC, CJJJCJJJ):End Sub:Private Sub md5_HH(CJJJJCCC, CJJJCJJJ, CJJJCJJC, CJCCCCJ, CJJJJJCJ, CCJJCJC, CCCCJCJC):CJJJJCCC = CCJCJCJC(CJJJJCCC, CCJCJCJC(CCJCJCJC(CCJCCJJJ(CJJJCJJJ, CJJJCJJC, CJCCCCJ), CJJJJJCJ), CCCCJCJC)):CJJJJCCC = CCJCJCJJ(CJJJJCCC, CCJJCJC):CJJJJCCC = CCJCJCJC(CJJJJCCC, CJJJCJJJ):End Sub:Private Sub md5_II(CJJJJCCC, CJJJCJJJ, CJJJCJJC, CJCCCCJ, CJJJJJCJ, CCJJCJC, CCCCJCJC):CJJJJCCC = CCJCJCJC(CJJJJCCC, CCJCJCJC(CCJCJCJC(CCJCCJJC(CJJJCJJJ, CJJJCJJC, CJCCCCJ), CJJJJJCJ), CCCCJCJC)):CJJJJCCC = CCJCJCJJ(CJJJJCCC, CCJJCJC):CJJJJCCC = CCJCJCJC(CJJJJCCC, CJJJCJJJ):End Sub:Private Function CCJCCJCJ(CCCCJCCJ):Dim CCCCJCJ:Dim CCCCJCC:Dim CCCCCJJ():Dim CCCCCJC:Dim CCCCCCJ:Dim CCCCCCC:Const CJCJJJCC =512:Const CJCJJCJJ =448:CCCCJCJ = Len(CCCCJCCJ):CCCCJCC = (((CCCCJCJ + ((CJCJJJCC - CJCJJCJJ) \ CJCJJJJJ)) \ (CJCJJJCC \ CJCJJJJJ)) + 1) * (CJCJJJCC \ CJCJJJCJ):ReDim CCCCCJJ(CCCCJCC - 1):CCCCCJC = 0:CCCCCCJ = 0:Do Until CCCCCCJ >= CCCCJCJ:CCCCCCC = CCCCCCJ \ CJCJJJJC:CCCCCJC = (CCCCCCJ Mod CJCJJJJC) * CJCJJJJJ:CCCCCJJ(CCCCCCC) = CCCCCJJ(CCCCCCC) Or CCJCJJCJ(Asc(Mid(CCCCJCCJ, CCCCCCJ + 1, 1)), CCCCCJC):CCCCCCJ = CCCCCCJ + 1:Loop:CCCCCCC = CCCCCCJ \ CJCJJJJC:CCCCCJC = (CCCCCCJ Mod CJCJJJJC) * CJCJJJJJ:CCCCCJJ(CCCCCCC) = CCCCCJJ(CCCCCCC) Or CCJCJJCJ(&H80, CCCCCJC):CCCCCJJ(CCCCJCC - 2) = CCJCJJCJ(CCCCJCJ, 3):CCCCCJJ(CCCCJCC - 1) = CCJCJJCC(CCCCJCJ, 29):CCJCCJCJ = CCCCCJJ:End Function:Private Function CCJCCJCC(CCCCJJJJ):Dim CJJJJJJJ:Dim CJJJJJJC:For CJJJJJJC = 0 To 3:CJJJJJJJ = CCJCJJCC(CCCCJJJJ, CJJJJJJC * CJCJJJJJ) And CCCJJCC(CJCJJJJJ - 1):CCJCCJCC = CCJCCJCC & Right("0" & Hex(CJJJJJJJ), 2):Next:End Function:Public Function CCJCCCJJ(CCCCJCCJ):CCCJJCC(0) = CLng(1):CCCJJCC(1) = CLng(3):CCCJJCC(2) = CLng(7):CCCJJCC(3) = CLng(15):CCCJJCC(4) = CLng(31):CCCJJCC(5) = CLng(63):CCCJJCC(6) = CLng(127):CCCJJCC(7) = CLng(255):CCCJJCC(8) = CLng(511):CCCJJCC(9) = CLng(1023):CCCJJCC(10) = CLng(2047):CCCJJCC(11) = CLng(4095):CCCJJCC(12) = CLng(8191):CCCJJCC(13) = CLng(16383):CCCJJCC(14) = CLng(32767):CCCJJCC(15) = CLng(65535):CCCJJCC(16) = CLng(131071):CCCJJCC(17) = CLng(262143):CCCJJCC(18) = CLng(524287):CCCJJCC(19) = CLng(1048575):CCCJJCC(20) = CLng(2097151):CCCJJCC(21) = CLng(4194303):CCCJJCC(22) = CLng(8388607):CCCJJCC(23) = CLng(16777215):CCCJJCC(24) = CLng(33554431):CCCJJCC(25) = CLng(67108863):CCCJJCC(26) = CLng(134217727):CCCJJCC(27) = CLng(268435455):CCCJJCC(28) = CLng(536870911):CCCJJCC(29) = CLng(1073741823):CCCJJCC(30) = CLng(2147483647):CCCJCJJ(0) = CLng(1):CCCJCJJ(1) = CLng(2):CCCJCJJ(2) = CLng(4):CCCJCJJ(3) = CLng(8):CCCJCJJ(4) = CLng(16):CCCJCJJ(5) = CLng(32):CCCJCJJ(6) = CLng(64):CCCJCJJ(7) = CLng(128):CCCJCJJ(8) = CLng(256):CCCJCJJ(9) = CLng(512):CCCJCJJ(10) = CLng(1024):CCCJCJJ(11) = CLng(2048):CCCJCJJ(12) = CLng(4096):CCCJCJJ(13) = CLng(8192):CCCJCJJ(14) = CLng(16384):CCCJCJJ(15) = CLng(32768):CCCJCJJ(16) = CLng(65536):CCCJCJJ(17) = CLng(131072):CCCJCJJ(18) = CLng(262144):CCCJCJJ(19) = CLng(524288):CCCJCJJ(20) = CLng(1048576):CCCJCJJ(21) = CLng(2097152):CCCJCJJ(22) = CLng(4194304):CCCJCJJ(23) = CLng(8388608):CCCJCJJ(24) = CLng(16777216):CCCJCJJ(25) = CLng(33554432):CCCJCJJ(26) = CLng(67108864):CCCJCJJ(27) = CLng(134217728):CCCJCJJ(28) = CLng(268435456):CCCJCJJ(29) = CLng(536870912):CCCJCJJ(30) = CLng(1073741824):Dim CJJJJJCJ:Dim CJJCCCC:Dim CJJJJJCC:Dim CJJJJCJJ:Dim CJJJJCJC:Dim CJJJJCCJ:Dim CJJJJCCC:Dim CJJJCJJJ:Dim CJJJCJJC:Dim CJCCCCJ:Const CJCJJCJC =7:Const CJCJJCCJ =12:Const CJCJJCCC =17:Const CJCJCJJJ =22:Const CJCJCJJC =5:Const CJCJCJCJ =9:Const CJCJCJCC =14:Const CJCJCCJJ =20:Const CJCJCCJC =4:Const CJCJCCCJ =11:Const CJCJCCCC =16:Const CJCCJJJJ =23:Const CJCCJJJC =6:Const CJCCJJCJ =10:Const CJCCJJCC =15:Const CJCCJCJJ =21:CJJJJJCJ = CCJCCJCJ(CCCCJCCJ):CJJJJCCC = &H67452301:CJJJCJJJ = &HEFCDAB89:CJJJCJJC = &H98BADCFE:CJCCCCJ = &H10325476:For CJJCCCC = 0 To UBound(CJJJJJCJ) Step 16:CJJJJJCC = CJJJJCCC:CJJJJCJJ = CJJJCJJJ:CJJJJCJC = CJJJCJJC:CJJJJCCJ = CJCCCCJ:md5_FF CJJJJCCC, CJJJCJJJ, CJJJCJJC, CJCCCCJ, CJJJJJCJ(CJJCCCC + 0), CJCJJCJC, &HD76AA478:md5_FF CJCCCCJ, CJJJJCCC, CJJJCJJJ, CJJJCJJC, CJJJJJCJ(CJJCCCC + 1), CJCJJCCJ, &HE8C7B756:md5_FF CJJJCJJC, CJCCCCJ, CJJJJCCC, CJJJCJJJ, CJJJJJCJ(CJJCCCC + 2), CJCJJCCC, &H242070DB:md5_FF CJJJCJJJ, CJJJCJJC, CJCCCCJ, CJJJJCCC, CJJJJJCJ(CJJCCCC + 3), CJCJCJJJ, &HC1BDCEEE:md5_FF CJJJJCCC, CJJJCJJJ, CJJJCJJC, CJCCCCJ, CJJJJJCJ(CJJCCCC + 4), CJCJJCJC, &HF57C0FAF:md5_FF CJCCCCJ, CJJJJCCC, CJJJCJJJ, CJJJCJJC, CJJJJJCJ(CJJCCCC + 5), CJCJJCCJ, &H4787C62A:md5_FF CJJJCJJC, CJCCCCJ, CJJJJCCC, CJJJCJJJ, CJJJJJCJ(CJJCCCC + 6), CJCJJCCC, &HA8304613:md5_FF CJJJCJJJ, CJJJCJJC, CJCCCCJ, CJJJJCCC, CJJJJJCJ(CJJCCCC + 7), CJCJCJJJ, &HFD469501:md5_FF CJJJJCCC, CJJJCJJJ, CJJJCJJC, CJCCCCJ, CJJJJJCJ(CJJCCCC + 8), CJCJJCJC, &H698098D8:md5_FF CJCCCCJ, CJJJJCCC, CJJJCJJJ, CJJJCJJC, CJJJJJCJ(CJJCCCC + 9), CJCJJCCJ, &H8B44F7AF:md5_FF CJJJCJJC, CJCCCCJ, CJJJJCCC, CJJJCJJJ, CJJJJJCJ(CJJCCCC + 10), CJCJJCCC, &HFFFF5BB1:md5_FF CJJJCJJJ, CJJJCJJC, CJCCCCJ, CJJJJCCC, CJJJJJCJ(CJJCCCC + 11), CJCJCJJJ, &H895CD7BE:md5_FF CJJJJCCC, CJJJCJJJ, CJJJCJJC, CJCCCCJ, CJJJJJCJ(CJJCCCC + 12), CJCJJCJC, &H6B901122:md5_FF CJCCCCJ, CJJJJCCC, CJJJCJJJ, CJJJCJJC, CJJJJJCJ(CJJCCCC + 13), CJCJJCCJ, &HFD987193:md5_FF CJJJCJJC, CJCCCCJ, CJJJJCCC, CJJJCJJJ, CJJJJJCJ(CJJCCCC + 14), CJCJJCCC, &HA679438E:md5_FF CJJJCJJJ, CJJJCJJC, CJCCCCJ, CJJJJCCC, CJJJJJCJ(CJJCCCC + 15), CJCJCJJJ, &H49B40821:md5_GG CJJJJCCC, CJJJCJJJ, CJJJCJJC, CJCCCCJ, CJJJJJCJ(CJJCCCC + 1), CJCJCJJC, &HF61E2562:md5_GG CJCCCCJ, CJJJJCCC, CJJJCJJJ, CJJJCJJC, CJJJJJCJ(CJJCCCC + 6), CJCJCJCJ, &HC040B340:md5_GG CJJJCJJC, CJCCCCJ, CJJJJCCC, CJJJCJJJ, CJJJJJCJ(CJJCCCC + 11), CJCJCJCC, &H265E5A51:md5_GG CJJJCJJJ, CJJJCJJC, CJCCCCJ, CJJJJCCC, CJJJJJCJ(CJJCCCC + 0), CJCJCCJJ, &HE9B6C7AA:md5_GG CJJJJCCC, CJJJCJJJ, CJJJCJJC, CJCCCCJ, CJJJJJCJ(CJJCCCC + 5), CJCJCJJC, &HD62F105D:md5_GG CJCCCCJ, CJJJJCCC, CJJJCJJJ, CJJJCJJC, CJJJJJCJ(CJJCCCC + 10), CJCJCJCJ, &H2441453:md5_GG CJJJCJJC, CJCCCCJ, CJJJJCCC, CJJJCJJJ, CJJJJJCJ(CJJCCCC + 15), CJCJCJCC, &HD8A1E681:md5_GG CJJJCJJJ, CJJJCJJC, CJCCCCJ, CJJJJCCC, CJJJJJCJ(CJJCCCC + 4), CJCJCCJJ, &HE7D3FBC8:md5_GG CJJJJCCC, CJJJCJJJ, CJJJCJJC, CJCCCCJ, CJJJJJCJ(CJJCCCC + 9), CJCJCJJC, &H21E1CDE6:md5_GG CJCCCCJ, CJJJJCCC, CJJJCJJJ, CJJJCJJC, CJJJJJCJ(CJJCCCC + 14), CJCJCJCJ, &HC33707D6:md5_GG CJJJCJJC, CJCCCCJ, CJJJJCCC, CJJJCJJJ, CJJJJJCJ(CJJCCCC + 3), CJCJCJCC, &HF4D50D87:md5_GG CJJJCJJJ, CJJJCJJC, CJCCCCJ, CJJJJCCC, CJJJJJCJ(CJJCCCC + 8), CJCJCCJJ, &H455A14ED:md5_GG CJJJJCCC, CJJJCJJJ, CJJJCJJC, CJCCCCJ, CJJJJJCJ(CJJCCCC + 13), CJCJCJJC, &HA9E3E905:md5_GG CJCCCCJ, CJJJJCCC, CJJJCJJJ, CJJJCJJC, CJJJJJCJ(CJJCCCC + 2), CJCJCJCJ, &HFCEFA3F8:md5_GG CJJJCJJC, CJCCCCJ, CJJJJCCC, CJJJCJJJ, CJJJJJCJ(CJJCCCC + 7), CJCJCJCC, &H676F02D9:md5_GG CJJJCJJJ, CJJJCJJC, CJCCCCJ, CJJJJCCC, CJJJJJCJ(CJJCCCC + 12), CJCJCCJJ, &H8D2A4C8A:md5_HH CJJJJCCC, CJJJCJJJ, CJJJCJJC, CJCCCCJ, CJJJJJCJ(CJJCCCC + 5), CJCJCCJC, &HFFFA3942:md5_HH CJCCCCJ, CJJJJCCC, CJJJCJJJ, CJJJCJJC, CJJJJJCJ(CJJCCCC + 8), CJCJCCCJ, &H8771F681:md5_HH CJJJCJJC, CJCCCCJ, CJJJJCCC, CJJJCJJJ, CJJJJJCJ(CJJCCCC + 11), CJCJCCCC, &H6D9D6122:md5_HH CJJJCJJJ, CJJJCJJC, CJCCCCJ, CJJJJCCC, CJJJJJCJ(CJJCCCC + 14), CJCCJJJJ, &HFDE5380C:md5_HH CJJJJCCC, CJJJCJJJ, CJJJCJJC, CJCCCCJ, CJJJJJCJ(CJJCCCC + 1), CJCJCCJC, &HA4BEEA44:md5_HH CJCCCCJ, CJJJJCCC, CJJJCJJJ, CJJJCJJC, CJJJJJCJ(CJJCCCC + 4), CJCJCCCJ, &H4BDECFA9:md5_HH CJJJCJJC, CJCCCCJ, CJJJJCCC, CJJJCJJJ, CJJJJJCJ(CJJCCCC + 7), CJCJCCCC, &HF6BB4B60:md5_HH CJJJCJJJ, CJJJCJJC, CJCCCCJ, CJJJJCCC, CJJJJJCJ(CJJCCCC + 10), CJCCJJJJ, &HBEBFBC70:md5_HH CJJJJCCC, CJJJCJJJ, CJJJCJJC, CJCCCCJ, CJJJJJCJ(CJJCCCC + 13), CJCJCCJC, &H289B7EC6:md5_HH CJCCCCJ, CJJJJCCC, CJJJCJJJ, CJJJCJJC, CJJJJJCJ(CJJCCCC + 0), CJCJCCCJ, &HEAA127FA:md5_HH CJJJCJJC, CJCCCCJ, CJJJJCCC, CJJJCJJJ, CJJJJJCJ(CJJCCCC + 3), CJCJCCCC, &HD4EF3085:md5_HH CJJJCJJJ, CJJJCJJC, CJCCCCJ, CJJJJCCC, CJJJJJCJ(CJJCCCC + 6), CJCCJJJJ, &H4881D05:md5_HH CJJJJCCC, CJJJCJJJ, CJJJCJJC, CJCCCCJ, CJJJJJCJ(CJJCCCC + 9), CJCJCCJC, &HD9D4D039:md5_HH CJCCCCJ, CJJJJCCC, CJJJCJJJ, CJJJCJJC, CJJJJJCJ(CJJCCCC + 12), CJCJCCCJ, &HE6DB99E5:md5_HH CJJJCJJC, CJCCCCJ, CJJJJCCC, CJJJCJJJ, CJJJJJCJ(CJJCCCC + 15), CJCJCCCC, &H1FA27CF8:md5_HH CJJJCJJJ, CJJJCJJC, CJCCCCJ, CJJJJCCC, CJJJJJCJ(CJJCCCC + 2), CJCCJJJJ, &HC4AC5665:md5_II CJJJJCCC, CJJJCJJJ, CJJJCJJC, CJCCCCJ, CJJJJJCJ(CJJCCCC + 0), CJCCJJJC, &HF4292244:md5_II CJCCCCJ, CJJJJCCC, CJJJCJJJ, CJJJCJJC, CJJJJJCJ(CJJCCCC + 7), CJCCJJCJ, &H432AFF97:md5_II CJJJCJJC, CJCCCCJ, CJJJJCCC, CJJJCJJJ, CJJJJJCJ(CJJCCCC + 14), CJCCJJCC, &HAB9423A7:md5_II CJJJCJJJ, CJJJCJJC, CJCCCCJ, CJJJJCCC, CJJJJJCJ(CJJCCCC + 5), CJCCJCJJ, &HFC93A039:md5_II CJJJJCCC, CJJJCJJJ, CJJJCJJC, CJCCCCJ, CJJJJJCJ(CJJCCCC + 12), CJCCJJJC, &H655B59C3:md5_II CJCCCCJ, CJJJJCCC, CJJJCJJJ, CJJJCJJC, CJJJJJCJ(CJJCCCC + 3), CJCCJJCJ, &H8F0CCC92:md5_II CJJJCJJC, CJCCCCJ, CJJJJCCC, CJJJCJJJ, CJJJJJCJ(CJJCCCC + 10), CJCCJJCC, &HFFEFF47D:md5_II CJJJCJJJ, CJJJCJJC, CJCCCCJ, CJJJJCCC, CJJJJJCJ(CJJCCCC + 1), CJCCJCJJ, &H85845DD1:md5_II CJJJJCCC, CJJJCJJJ, CJJJCJJC, CJCCCCJ, CJJJJJCJ(CJJCCCC + 8), CJCCJJJC, &H6FA87E4F:md5_II CJCCCCJ, CJJJJCCC, CJJJCJJJ, CJJJCJJC, CJJJJJCJ(CJJCCCC + 15), CJCCJJCJ, &HFE2CE6E0:md5_II CJJJCJJC, CJCCCCJ, CJJJJCCC, CJJJCJJJ, CJJJJJCJ(CJJCCCC + 6), CJCCJJCC, &HA3014314:md5_II CJJJCJJJ, CJJJCJJC, CJCCCCJ, CJJJJCCC, CJJJJJCJ(CJJCCCC + 13), CJCCJCJJ, &H4E0811A1:md5_II CJJJJCCC, CJJJCJJJ, CJJJCJJC, CJCCCCJ, CJJJJJCJ(CJJCCCC + 4), CJCCJJJC, &HF7537E82:md5_II CJCCCCJ, CJJJJCCC, CJJJCJJJ, CJJJCJJC, CJJJJJCJ(CJJCCCC + 11), CJCCJJCJ, &HBD3AF235:md5_II CJJJCJJC, CJCCCCJ, CJJJJCCC, CJJJCJJJ, CJJJJJCJ(CJJCCCC + 2), CJCCJJCC, &H2AD7D2BB:md5_II CJJJCJJJ, CJJJCJJC, CJCCCCJ, CJJJJCCC, CJJJJJCJ(CJJCCCC + 9), CJCCJCJJ, &HEB86D391:CJJJJCCC = CCJCJCJC(CJJJJCCC, CJJJJJCC):CJJJCJJJ = CCJCJCJC(CJJJCJJJ, CJJJJCJJ):CJJJCJJC = CCJCJCJC(CJJJCJJC, CJJJJCJC):CJCCCCJ = CCJCJCJC(CJCCCCJ, CJJJJCCJ):Next:CCJCCCJJ = LCase(CCJCCJCC(CJJJJCCC) & CCJCCJCC(CJJJCJJJ) & CCJCCJCC(CJJJCJJC) & CCJCCJCC(CJCCCCJ)):End Function::dim CJJCJCC:CCJCJC=Request.ServerVariables(CCJCCCCJ("!p%w0x}u~")):if instr(CCJCJC,CCJCCCCJ("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CCCCCC and not CJJJCCJ then Call RedirectMessage(CCJCCCCJ("????????,????????????????????????,"))
CJJCJCC=CCCCJJ
elseif instr(CCJCJC,CCJCCCCJ("^>^D49@@=^DEF56?E^"))>0 or instr(CCJCJC,CCJCCCCJ("^DEF56?E^"))>0 then
Call CheckLogined:CJJCJCC=CCCCJJ
elseif instr(CCJCJC,CCJCCCCJ("^D49@@="))>0 then
CJJCJCC=Request.QueryString(CCJCCCCJ("D49@@=")):if not CJCCCJCJ(CJJCJCC) then CJJCJCC=Request.QueryString(CCJCCCCJ("F"))
if not CJCCCJCJ(CJJCJCC) then CJJCJCC=Request.QueryString(CCJCCCCJ("D4"))
if not CJCCCJCJ(CJJCJCC) then Call RedirectMessage(CCJCCCCJ("????????W$49@@=X??@??????????,"))
CJJCJCC=csng(CJJCJCC)
end if:if CJJCJCC=0 then Call RedirectMessage(CCJCCCCJ("????????W$49@@=X????W_X??,"))
Dim CJJJCJCJ:Call SetConfig:Sub SetConfig():dim CJJCJCJ,CJCCJCC:CCJCJC=CCJCCCCJ("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") & CJJCJCC:set CJCCJCC=CCJJJC.execute(CCJCJC):if CJCCJCC.eof then Call RedirectMessage(CCJCCCCJ("??W") & CCJCCJ & CCJCCCCJ("X??????????W") & CJJCJCC & CCJCCCCJ("X????????,"))
ReDim CJJCJCJ(61):CJJCJCJ(0)=CJCCJCC(CCJCCCCJ(";:2@H6:")) & "":CJJCJCJ(1)=CJCCJCC(CCJCCCCJ("EJA6")):CJJCJCJ(2)=CJCCJCC(CCJCCCCJ("D>D")):CJJCJCJ(3)=CJCCJCC(CCJCCCCJ("4FDE@>8C@FA")) & "":CJJCJCJ(4)=CJCCJCC(CCJCCCCJ("D:5632C0@E96C")) & "":CJJCJCJ(5)=IIf(isnull(CJCCJCC(CCJCCCCJ("E6DEC6DF=EG:6H"))),0,CJCCJCC(CCJCCCCJ("E6DEC6DF=EG:6H"))):CJJCJCJ(6)=CJCCJCC(CCJCCCCJ("K:IF?E:>6")):CJJCJCJ(7)=CJCCJCC(CCJCCCCJ("766")):CJJCJCJ(8)=CJCCJCC(CCJCCCCJ("C6E6DE52J")):CJJCJCJ(9)=CJCCJCC(CCJCCCCJ("6IA:C652E6")):CJJCJCJ(10)=CJCCJCC(CCJCCCCJ("E:E=6")):CJJCJCJ(11)=CJCCJCC(CCJCCCCJ(":?EC@")) & "":CJJCJCJ(12)=CJCCJCC(CCJCCCCJ("A:4EFC6")) & "":CJJCJCJ(13)=CJCCJCC(CCJCCCCJ("72>:=J")):CJJCJCJ(14)=CJCCJCC(CCJCCCCJ("4@AJC:89E")) & "":CJJCJCJ(15)=IIf(isnull(CJCCJCC(CCJCCCCJ("D6>6DE6C0DE2CE052E6"))),CCJCCCCJ("`h__\`\`"),CJCCJCC(CCJCCCCJ("D6>6DE6C0DE2CE052E6"))):CJJCJCJ(16)=IIf(isnull(CJCCJCC(CCJCCCCJ("K:IF?0E:>6D09:89=:89E"))),0,CJCCJCC(CCJCCCCJ("K:IF?0E:>6D09:89=:89E"))):CJJCJCJ(17)=CJCCJCC(CCJCCCCJ("4@?E24E")) & "":CJJCJCJ(18)=CJCCJCC(CCJCCCCJ("D2?5E23=6")):CJJCJCJ(19)=CJCCJCC(CCJCCCCJ("4C:D:D")):CJJCJCJ(20)=CJCCJCC(CCJCCCCJ("JJ52E6")):CJJCJCJ(21)=CJCCJCC(CCJCCCCJ("BB")):CJJCJCJ(22)=CJCCJCC(CCJCCCCJ("JFJF60D>D0EA=")) & "":CJJCJCJ(23)=CJCCJCC(CCJCCCCJ("JFJF60E6DE0=3")) & "":CJJCJCJ(25)=CJCCJCC(CCJCCCCJ("6IA6CE")):CJJCJCJ(26)=CJCCJCC(CCJCCCCJ(">@5:?7@")):CJJCJCJ(27)=CJCCJCC(CCJCCCCJ("9@>6A286E@AA:4EFC6")) & "":CJJCJCJ(28)=CJCCJCC(CCJCCCCJ("4C:D:D=3")):CJJCJCJ(29)=IIf(CJCCJCC(CCJCCCCJ("4C:D:D@=5")),False,True):CJJCJCJ(30)=CJCCJCC(CCJCCCCJ("8C@FA8F:52?46")):CJJCJCJ(31)=CJCCJCC(CCJCCCCJ("3:@7665324<")):CJJCJCJ(32)=CJCCJCC(CCJCCCCJ("<6JDEC")):CJJCJCJ(33)=CJCCJCC(CCJCCCCJ("=@8@")) & "":CJJCJCJ(34)=CJCCJCC(CCJCCCCJ("K:46")):CJJCJCJ(35)=IIf(CJCCJCC(CCJCCCCJ(":D?6H")),True,False):CJJCJCJ(36)=121:CJJCJCJ(37)=111:CJJCJCJ(38)=160:CJJCJCJ(39)=CJCCJCC(CCJCCCCJ("8F6DE3@@<")):CJJCJCJ(40)=CJCCJCC(CCJCCCCJ("75D")):CJJCJCJ(42)=CJCCJCC(CCJCCCCJ("9@>6=@8:?")):CJJCJCJ(43)=CJCCJCC(CCJCCCCJ("K:IF?0?6657665324<")):CJJCJCJ(44)=CJCCJCC(CCJCCCCJ("K:IF?0E:>6D0=:>:E")):CJJCJCJ(45)=CJCCJCC(CCJCCCCJ("4@>A=6E60:?7@")):CJJCJCJ(46)=CJCCJCC(CCJCCCCJ("E6DE:?EC@")) & "":CJJCJCJ(47)=IIf(isnull(CJCCJCC(CCJCCCCJ("JFJF60367@C60E:>6"))),0,CJCCJCC(CCJCCCCJ("JFJF60367@C60E:>6"))):CJJCJCJ(49)=CJCCJCC(CCJCCCCJ("D>D0C646:G6C")):CJJCJCJ(50)=CJCCJCC(CCJCCCCJ("D>D0D:8?")) & "":CJJCJCJ(52)=CJCCJCC(CCJCCCCJ("JFJF602CC2?86")):CJJCJCJ(53)=IIf(isnull(CJCCJCC(CCJCCCCJ("DEF56?E0BF6DE:@?04@F?E"))),0,CJCCJCC(CCJCCCCJ("DEF56?E0BF6DE:@?04@F?E"))):CJJCJCJ(54)=CJCCJCC(CCJCCCCJ("9:560=30@FE@7286")):CJJCJCJ(55)=CJCCJCC(CCJCCCCJ("JFJF60E6DE052JD")):CJJCJCJ(56)=CJCCJCC(CCJCCCCJ("JFJF60H66<0=:>:E")):CJJCJCJ(57)=CJCCJCC(CCJCCCCJ("JFJF604964<65")):CJJCJCJ(58)=CJCCJCC(CCJCCCCJ("K:IF?0?6657665324<0?6IE")):CJJCJCJ(59)=CJCCJCC(CCJCCCCJ("4964<?6HDEF56?E")):CJJCJCJ(60)=CJCCJCC(CCJCCCCJ("K:IF?04=@D6052E6")):CJCCJCC.close : set CJCCJCC=nothing:if isNull(CJJCJCJ(8)) or CJJCJCJ(8)="" then CJJCJCJ(8)=0
if isdate(CJJCJCJ(9)) then
CJJCJCJ(9)=cdate(CJJCJCJ(9)):if CJJCJCJ(9)<Date then Call RedirectMessage(CCJCCCCJ("????????,????????????????W") & CJJCJCJ(9) & CCJCCCCJ("X??????,"))
end if:if not CJCCCJCJ(CJJCJCJ(20)) then CJJCJCJ(20)=7
select case CJJCJCJ(1):case 1,2,16:CJJCJCJ(36)=159:case 4,5,6,10,11:CJJCJCJ(36)=190:CJJCJCJ(37)=178:CJJCJCJ(38)=191:case 7,13:CJJCJCJ(36)=164:CJJCJCJ(37)=178:CJJCJCJ(38)=179:end select:CJJJCJCJ=CJJCJCJ:End Sub:Function CJCCCCCJ(CCCJCJCJ):dim CJJCJCJ(7,1),CJJCJJC,CJJJCJCC,CJJJCCJJ:CJJJCJCC=Array(CCJCCCCJ("$49@@="),CCJCCCCJ("$EF56?E"),CCJCCCCJ("s6AE"),CCJCCCCJ("vC256"),CCJCCCCJ("r=2DD>2E6"),CCJCCCCJ("}F>36C"),CCJCCCCJ("%62496C"),CCJCCCCJ("!2C6?E")):select case CJJJCJCJ(1):case 1,2 : CJJJCCJJ=Array(CCJCCCCJ("????"),CCJCCCCJ("????"),CCJCCCCJ("????"),CCJCCCCJ("????"),CCJCCCCJ("????"),CCJCCCCJ("????"),CCJCCCCJ("????"),CCJCCCCJ("????")):case 3,16 : CJJJCCJJ=Array(CCJCCCCJ("????"),CCJCCCCJ("????"),CCJCCCCJ("????"),CCJCCCCJ("????"),CCJCCCCJ("????"),CCJCCCCJ("????"),CCJCCCCJ("????"),CCJCCCCJ("????")):case 4 : CJJJCCJJ=Array(CCJCCCCJ("????"),CCJCCCCJ("??????@"),CCJCCCCJ("????"),CCJCCCCJ("????"),CCJCCCCJ("????"),CCJCCCCJ("????"),CCJCCCCJ("????"),CCJCCCCJ("????")):case 5 : CJJJCCJJ=Array(CCJCCCCJ("????"),CCJCCCCJ("????"),CCJCCCCJ("????"),CCJCCCCJ("????"),CCJCCCCJ("????"),CCJCCCCJ("????"),CCJCCCCJ("????"),CCJCCCCJ("????")):case 6 : CJJJCCJJ=Array(CCJCCCCJ("????"),CCJCCCCJ("??????@"),CCJCCCCJ("????"),CCJCCCCJ("????"),CCJCCCCJ("????"),CCJCCCCJ("????"),CCJCCCCJ("??????"),CCJCCCCJ("????")):case 7 : CJJJCCJJ=Array(CCJCCCCJ("????"),CCJCCCCJ("????"),CCJCCCCJ("????"),CCJCCCCJ("????"),CCJCCCCJ("????"),CCJCCCCJ("????"),CCJCCCCJ("??????"),CCJCCCCJ("????")):case 8 : CJJJCCJJ=Array(CCJCCCCJ("????"),CCJCCCCJ("??????@"),CCJCCCCJ("????"),CCJCCCCJ("????????"),CCJCCCCJ("????"),CCJCCCCJ("????"),CCJCCCCJ("??????"),CCJCCCCJ("????")):case 9 : CJJJCCJJ=Array(CCJCCCCJ("????"),CCJCCCCJ("????"),CCJCCCCJ("????"),CCJCCCCJ("????"),CCJCCCCJ("????"),CCJCCCCJ("????"),CCJCCCCJ("??????"),CCJCCCCJ("????")):case 10 : CJJJCCJJ=Array(CCJCCCCJ("????"),CCJCCCCJ("????"),CCJCCCCJ("????"),CCJCCCCJ("????????"),CCJCCCCJ("????"),CCJCCCCJ("????"),CCJCCCCJ("??????"),CCJCCCCJ("????")):case 11 : CJJJCCJJ=Array(CCJCCCCJ("????"),CCJCCCCJ("??????"),CCJCCCCJ("????"),CCJCCCCJ("????"),CCJCCCCJ("????"),CCJCCCCJ("????"),CCJCCCCJ("??????"),CCJCCCCJ("????")):case 12 : CJJJCCJJ=Array(CCJCCCCJ("????"),CCJCCCCJ("????"),CCJCCCCJ("????"),CCJCCCCJ("????????"),CCJCCCCJ("????"),CCJCCCCJ("????"),CCJCCCCJ("??????"),CCJCCCCJ("????")):case 13 : CJJJCCJJ=Array(CCJCCCCJ("????"),CCJCCCCJ("????"),CCJCCCCJ("????"),CCJCCCCJ("????"),CCJCCCCJ("????"),CCJCCCCJ("????"),CCJCCCCJ("????"),CCJCCCCJ("????")):case 14 : CJJJCCJJ=Array(CCJCCCCJ("??????"),CCJCCCCJ("??@??"),CCJCCCCJ("????"),CCJCCCCJ("????"),CCJCCCCJ("????"),CCJCCCCJ("????"),CCJCCCCJ("??????"),CCJCCCCJ("????")):case 15 : CJJJCCJJ=Array(CCJCCCCJ("????"),CCJCCCCJ("????????"),CCJCCCCJ("????"),CCJCCCCJ("????????"),CCJCCCCJ("????"),CCJCCCCJ("????"),CCJCCCCJ("??????"),CCJCCCCJ("????")):case else : CJJJCCJJ=CJJJCJCC
end select:for CJJCJJC=0 to Ubound(CJJCJCJ):CJJCJCJ(CJJCJJC,0)=CJJJCJCC(CJJCJJC):CJJCJCJ(CJJCJJC,1)=CJJJCCJJ(CJJCJJC):next:for CJJCJJC=0 to Ubound(CJJCJCJ):if CJJCJCJ(CJJCJJC,0)=CCCJCJCJ then
CJCCCCCJ=CJJCJCJ(CJJCJJC,1):exit for
end if:next:End Function::Call CheckRight(67):dim CJJJCCJC,CJJJCCCJ:CJJJCCJC=Request.QueryString(CCJCCCCJ(":5")):CJJJCCCJ=Request.QueryString(CCJCCCCJ("24E")):if CJJJCCCJ=CCJCCCCJ("3:CE952J") then
dim CJJJCCCC:CJJJCCCC=Request.QueryString(CCJCCCCJ("3:CE952J")):response.charset=CCJCCCCJ("FE7\g"):if not isdate(CJJJCCCC) then
Response.Write CCJCCCCJ("????????????????")
elseif CJJJCCJC="" then
Response.Write CCJCCCCJ("????????????????")
else
CCJCJC=CCJCCCCJ("FA52E6 ,>6>36C ,D6E ,3:CE952JlV") & CJJJCCCC & CCJCCCCJ("V ,H96C6 ,:5 ,:? ,W") & CJJJCCJC & CCJCCCCJ("X")
CCJJJC.execute CCJCJC:Call InsertLog(2,CCJCCCCJ("????????????W") & CJJJCCJC & CCJCCCCJ("X"))
end if:Call ConnClose:response.end
end if:dim CJJCJJJJ:CJJCJJJJ=CCJJJCJC(CCJCCCCJ("&#{"),""):if CJJCJJJJ="" then CJJCJJJJ=CCJCCCCJ("H6=4@>6]2DA")
if not CJCCCJCJ(CJJJCCJC) then Call RedirectMessage(CCJCCCCJ("????????,????????WxsX??????,"))
If Request.ServerVariables(CCJCCCCJ("#t""&t$%0|t%w~s"))=CCJCCCCJ("!~$%") then
Call CheckValidPost:dim CJJCJJJC,CJJCJJCJ,CJJCJJCC,CJJCJCJJ,CJJCJCJC,CJJCJCCJ,CJJCJCCC,CJJCCJJJ:CJJCJJJC=Request.Form(CCJCCCCJ("A2DDH@C5")):CJJCJJCC=Request.Form(CCJCCCCJ("25>:?EJA6")):CJJCJJCJ=CJCCJCCJ(Request.Form(CCJCCCCJ("FD6C?2>6"))):CJJCJCJJ=Cint(Request.Form(CCJCCCCJ(":DD49@@=25>:?"))):CJJCJCJC=Cint(Request.Form(CCJCCCCJ(":D4@?DF=E2?E"))):CJJCJCCJ=Cint(Request.Form(CCJCCCCJ(":DDEF56?E"))):CJJCJCCC=Request.Form(CCJCCCCJ("56AE")):CJJCCJJJ=Request.Form(CCJCCCCJ("3:?504@?DF=E2?E")):if CJJCJCJJ=0 and CJJCJCJC=0 and CJJCJCCJ=0 then
Call RedirectMessage(CCJCCCCJ("??????????@??????????????,????,"))
elseif CJJCJJCJ<>"" then
if isnumeric(CJJCJJCJ) then
Call RedirectMessage(CCJCCCCJ("??????????????????????,????????????????,??????,????????????????,"))
elseif not CCJJJCCJ(CJJCJJCJ,CCJCCCCJ("/-HL`[acNS")) then
Call RedirectMessage(CCJCCCCJ("??????????????????????????????,"))
end if:set CCJJCC=CCJJJC.execute(CCJCCCCJ("D6=64E ,E@A ,` ,:5 ,7C@> ,>6>36C ,H96C6 ,FD6C?2>6lV") & CJJCJJCJ & CCJCCCCJ("V"))
if not CCJJCC.eof then Call RedirectMessage(CCJCCCCJ("??????????????????????????????,????????????????,"))
end if:dim CJJCCJJC:if CJJCJCJJ=0 and CJJCJCJC=0 then
CJJCJJCC=CCJCCCCJ("}F=="):CJJCCJJC=CCJCCCCJ("}F=="):CJJCJCCJ=1
elseif CJCCCJCJ(CJJCJJCC) then
set CCJJCC=CCJJJC.execute(CCJCCCCJ("D6=64E ,E@A ,` ,,C:89E. ,7C@> ,D49@@=025>:?0EJA6 ,H96C6 ,:5l") & CJJCJJCC):CJJCCJJC=CCJCCCCJ("V") & CCJJCC(0) & CCJCCCCJ("V")
else
CJJCJJCC=CCJCCCCJ("}F==")
end if:CCJCJC=CCJCCCCJ("FA52E6 ,>6>36C ,D6E") & CCJCCCCJ(" ,?F>36ClV") & CJCCJCCJ(Request.Form(CCJCCCCJ("?F>36C"))) & CCJCCCCJ("V") & CCJCCCCJ("[C62=?2>6l}V") & CJCCJCCJ(Request.Form(CCJCCCCJ("C62=?2>6"))) & CCJCCCCJ("V") & CCJCCCCJ("[D6Il") & Request.Form(CCJCCCCJ("D6I")) & CCJCCCCJ("[3:CE952JlV") & Trim(Request.Form(CCJCCCCJ("3:CE952J"))) & CCJCCCCJ("V") & CCJCCCCJ("[255C6DDlV") & CJCCJCCJ(Request.Form(CCJCCCCJ("255C6DD"))) & CCJCCCCJ("V") & CCJCCCCJ("[6>2:=lV") & CJCCJCCJ(Request.Form(CCJCCCCJ("6>2:="))) & CCJCCCCJ("V") & CCJCCCCJ("[>@3:=6lV") & CJCCJCCJ(Request.Form(CCJCCCCJ(">@3:=6"))) & CCJCCCCJ("V") & CCJCCCCJ("[H6:I:?lV") & CJCCJCCJ(Request.Form(CCJCCCCJ("H6:I:?"))) & CCJCCCCJ("V") & CCJCCCCJ("[:DD49@@=25>:?l") & CJJCJCJJ  & CCJCCCCJ("[:D4@?DF=E2?El") & CJJCJCJC  & CCJCCCCJ("[D49@@=25>:?EJA6l") & CJJCJJCC  & CCJCCCCJ("[:D$EF56?El") & CJJCJCCJ  & CCJCCCCJ("[8C256l") & Cint(Request.Form(CCJCCCCJ("8C256"))) & CCJCCCCJ("[4FDE@>8C@FAl") & Cint(Request.Form(CCJCCCCJ("8C@FA"))) & CCJCCCCJ("[:?EC@02H@C5lV") & CJCCJCCJ(Request.Form(CCJCCCCJ(":?EC@02H@C5"))) & CCJCCCCJ("V") & CCJCCCCJ("[:?EC@lV") & CJCCJCCJ(Request.Form(CCJCCCCJ("4@?E6?E"))) & CCJCCCCJ("V") & CCJCCCCJ("[A9@E@lV") & CJCCJCCJ(Request.Form(CCJCCCCJ("A9@E@"))) & CCJCCCCJ("V") & CCJCCCCJ("[2?DH6ClV") & CCJCCCJC & CCJCCCCJ("V")
if CJJCJJCJ<>"" then CCJCJC=CCJCJC & CCJCCCCJ("[FD6C?2>6lV") & CJJCJJCJ & CCJCCCCJ("V")
if CJCCCJCJ(CJJCJCCC) then CCJCJC=CCJCJC & CCJCCCCJ("[EJA6l") & CJJCJCCC
if CJJCJJJC<>"" then
CCJCJC=CCJCJC & CCJCCCCJ("[A2DDH@C5lV") & CCJCCCJJ(CJJCJJJC) & CCJCCCCJ("V")
Call InsertLog(2,CJCCCCCJ(CCJCCCCJ("$49@@=")) & CCJCCCCJ("????????") & CJJJCCJC & CCJCCCCJ("??????"))
end if:if (CJJCJCJJ=1 or CJJCJCJC=1) and CJCCCJCJ(CJJCJJCC) and CJCCJCJC(36) then CCJCJC=CCJCJC & CCJCCCCJ("[,C:89E.l") & CJJCCJJC
if CJJCCJJJ="0" then CCJCJC=CCJCJC & CCJCCCCJ("[3:?504@?DF=E2?E0:5l?F==")
CCJCJC=CCJCJC & CCJCCCCJ(" ,H96C6 ,:5l") & CJJJCCJC:if CJJCJCJC=0 then
CCJCJC=CCJCJC & CCJCCCCJ("j56=6E6 ,7C@> ,KI03FDJ ,H96C6 ,KI0E:>60:5 ,:? ,WD6=64E ,:5 ,7C@> ,KI0E:>6 ,H96C6 ,4@?DF=E2?El") & CJJJCCJC & CCJCCCCJ("X") & CCJCCCCJ("j56=6E6 ,7C@> ,KI0E:>6 ,H96C6 ,4@?DF=E2?El") & CJJJCCJC  & CCJCCCCJ("jFA52E6 ,>6>36C ,D6E ,3:?504@?DF=E2?E0:5l?F== ,H96C6 ,3:?504@?DF=E2?E0:5l") & CJJJCCJC
end if:CCJJJC.Execute CCJCJC:Call InsertLog(2,CJCCCCCJ(CCJCCCCJ("$49@@=")) & CCJCCCCJ("????????") & CJJJCCJC & CCJCCCCJ("??????")):Call RedirectMessage(CCJCCCCJ("????????????"))
End if:function CCJCCCJC():dim CJJCCJCJ,CJJCJJC,CJCJCJJ,CJCCCCC:CJJCCJCJ=cint(request.Form(CCJCCCCJ("B?F>"))):for CJJCJJC=1 to CJJCCJCJ:CJCJCJJ=CJCCJCCJ(Request.Form(CCJCCCCJ("B0") & CJJCJJC)):if CJCJCJJ<>"" then
CJCJCJJ=replace(CJCJCJJ,CCJCCCCJ("M"),""):CJCJCJJ=replace(CJCJCJJ,CCJCCCCJ(" ,"),""):CJCCCCC=CJCCCCC & CCJCCCCJ("M") & CJJCJJC & CCJCCCCJ("M") & CJCJCJJ
end if:next:if CJCCCCC<>"" then CJCCCCC=Mid(CJCCCCC,2)
CCJCCCJC=CJCCCCC:end function:dim CCJJCCJ:set CCJJCCJ=new jtree:CCJJCCJ.table=CCJCCCCJ(">6>36C0EJA6"):CCJCJC=CCJCCCCJ("D6=64E ,E@A ,` ,Y ,7C@> ,G0>6>36C ,H:E9 ,W?@=@4<X ,H96C6 ,:5l") & CJJJCCJC & CCJCCCCJ(" ,2?5 ,") & CCJJCCJ.Sql_GetChildren(CCCJJC) & CCJCCCCJ(" ,@C56C ,3J ,:5"):set CCJJCC=CCJJJC.execute(CCJCJC):if CCJJCC.eof then
set CCJJCC=CCJJJC.execute(CCJCCCCJ("D6=64E ,E@A ,` ,Y ,7C@> ,>6>36C0EJA6 ,H96C6 ,:5l") & CCCJJC):Call CCJJCCJ.UpdateCache(CJJJCCJC,CCJJCC(CCJCCCCJ("A2C:5")),CCJJCC(CCJCCCCJ("?2>6")),CCJJCC(CCJCCCCJ("A2E9")),CCJJCC(CCJCCCCJ("D@CE"))):CCJCJC=CCJCCCCJ("D6=64E ,E@A ,` ,Y ,7C@> ,G0>6>36C ,H:E9 ,W?@=@4<X ,H96C6 ,:5l") & CJJJCCJC & CCJCCCCJ(" ,2?5 ,") & CCJJCCJ.Sql_GetChildren(CCCJJC) & CCJCCCCJ(" ,@C56C ,3J ,:5"):set CCJJCC=CCJJJC.execute(CCJCJC):if CCJJCC.eof then Call RedirectMessage(CCJCCCCJ("????????,??????????????????????,"))
end if:Response.Write(vbCrLf):Response.Write(CCJCCCCJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CCJCCCCJ("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CCJCCCCJ("k9625m") & vbCrLf):Response.Write(CCJCCCCJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CCJCCCCJ("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CCJCCCCJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CCJCCCCJ("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CCJCCCCJ("kE:E=6m??????????k^E:E=6m") & vbCrLf):Response.Write(CCJCCCCJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CCJCCCCJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^49@D6?^49@D6?]>:?]4DDQm") & vbCrLf):Response.Write(CCJCCCCJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^52E6A:4<6C^52E6A:4<6C]>:?]4DDQm") & vbCrLf):Response.Write(CCJCCCCJ("kDEJ=6m") & vbCrLf):Response.Write(CCJCCCCJ("RADH`[ ,RADHa ,L ,7@?E\72>:=Ji ,r@?D@=2Dj ,N") & vbCrLf):Response.Write(CCJCCCCJ("k^DEJ=6m") & vbCrLf):Response.Write(CCJCCCCJ("k^9625m") & vbCrLf):Response.Write(CCJCCCCJ("k3@5Jm") & vbCrLf):Response.Write(CCJCCCCJ("k7@C> ,?2>6lQ7@C>`Q ,>6E9@5lQA@DEQ ,24E:@?lQQ ,:5lQ7@C>`Qm") & vbCrLf):Response.Write(CCJCCCCJ(" ,k7:6=5D6Em") & vbCrLf):Response.Write(CCJCCCCJ(" ,k=686?5m????????k^=686?5m") & vbCrLf):Response.Write(CCJCCCCJ(" ,kE23=6 ,H:5E9lQ`__TQ ,3@C56ClQ_Qm") & vbCrLf):Response.Write(CCJCCCCJ(" ,kECm") & vbCrLf):Response.Write(CCJCCCCJ(" ,kE5 ,2=:8?lQC:89EQmxsk^E5m") & vbCrLf):Response.Write(CCJCCCCJ(" ,kE5 ,4@=DA2?lQbQ ,4=2DDlQC653@=5Qm")):Response.Write  CCJJCC(CCJCCCCJ(":5")):Response.Write(CCJCCCCJ("k^E5m") & vbCrLf):Response.Write(CCJCCCCJ(" ,k^ECm") & vbCrLf):Response.Write(CCJCCCCJ(" ,kECm") & vbCrLf):Response.Write(CCJCCCCJ(" ,kE5 ,2=:8?lQC:89EQm??????k^E5m") & vbCrLf):Response.Write(CCJCCCCJ(" ,kE5 ,4@=DA2?lQbQm") & vbCrLf):Response.Write(CCJCCCCJ(" ,kP\\ ,??????????????????????,9EEADi^^56G6=@A6C]>@K:==2]@C8^K9\r}^5@4D^(63^$64FC:EJ^$64FC:?80J@FC0D:E6^%FC?:?80@7707@C>02FE@4@>A=6E:@? ,\\m") & vbCrLf):Response.Write(CCJCCCCJ(" ,")):If isnull(CCJJCC(CCJCCCCJ("FD6C?2>6"))) or CCJJCC(CCJCCCCJ("FD6C?2>6"))="" Then
Response.Write(vbCrLf):Response.Write(CCJCCCCJ(" ,k:?AFE ,?2>6lQFD6C?2>6Q ,EJA6lQE6IEQ ,2FE@4@>A=6E6lQ@77Q ,D:K6lQb_Q ,>2I=6?8E9lQacQ ,E:E=6lQ??????,??????,????????????????,????????????????,??????????????????Qm") & vbCrLf):Response.Write(CCJCCCCJ(" ,??,??????????????????,")):Response.Write  CJCCCCCJ(CCJCCCCJ("$EF56?E")):Response.Write(CCJCCCCJ("????????????????,") & vbCrLf):Response.Write(CCJCCCCJ(" ,"))
Else
Response.Write  CCJJCC(CCJCCCCJ("FD6C?2>6"))
End If:Response.Write(vbCrLf):Response.Write(CCJCCCCJ(" ,k^E5m") & vbCrLf):Response.Write(CCJCCCCJ(" ,k^ECm") & vbCrLf):Response.Write(CCJCCCCJ(" ,kECm") & vbCrLf):Response.Write(CCJCCCCJ(" ,kE5 ,2=:8?lQC:89EQm")):Response.Write  IIf(CCJJCC(CCJCCCCJ(":DD49@@=25>:?")),CCJCCCCJ("????"),CJCCCCCJ(CCJCCCCJ("}F>36C"))):Response.Write(CCJCCCCJ("k^E5m") & vbCrLf):Response.Write(CCJCCCCJ(" ,kE5m") & vbCrLf):Response.Write(CCJCCCCJ(" ,k:?AFE ,?2>6lQ?F>36CQ ,EJA6lQE6IEQ ,G2=F6lQ")):Response.Write  CCJJCC(CCJCCCCJ("?F>36C")):Response.Write(CCJCCCCJ("Q ,D:K6lQb_Q ,2FE@4@>A=6E6lQ@77Qm") & vbCrLf):Response.Write(CCJCCCCJ(" ,??,????")):Response.Write  CJCCCCCJ(CCJCCCCJ("$EF56?E")):Response.Write(CCJCCCCJ("??????????,") & vbCrLf):Response.Write(CCJCCCCJ(" ,k^E5m") & vbCrLf):Response.Write(CCJCCCCJ(" ,kE5 ,2=:8?lQC:89EQm")):Response.Write  CJCCCCCJ(CCJCCCCJ("s6AE")):Response.Write(CCJCCCCJ("k^E5m") & vbCrLf):Response.Write(CCJCCCCJ(" ,kE5m") & vbCrLf):Response.Write(CCJCCCCJ(" ,")):if CJJJCCJC=cstr(CCJCCJ) then
response.write CCJJCCJ.GetPositionStr_From(CCCJJC,CJJCJCC)
else
response.write CCJCCCCJ("kD6=64E ,?2>6lV56AEV ,52E2\G2=F6lV") & CCJJCC(CCJCCCCJ("EJA6")) & CCJCCCCJ("Vmk^D6=64Em")
end if:Response.Write(vbCrLf):Response.Write(CCJCCCCJ(" ,k^E5m") & vbCrLf):Response.Write(CCJCCCCJ(" ,k^ECm") & vbCrLf):Response.Write(CCJCCCCJ(" ,kECm") & vbCrLf):Response.Write(CCJCCCCJ(" ,kE5 ,2=:8?lQC:89EQm??????k^E5m") & vbCrLf):Response.Write(CCJCCCCJ(" ,kE5m") & vbCrLf):Response.Write(CCJCCCCJ(" ,k:?AFE ,?2>6lQA2DDH@C5Q ,EJA6lQA2DDH@C5Q ,:5lQA2DDH@C5Q ,2FE@4@>A=6E6lQ@77Q ,G2=F6lQQ ,D:K6lQb_Qm") & vbCrLf):Response.Write(CCJCCCCJ(" ,kDA2? ,DEJ=6lQ4@=@CiC65jQm??,??????????????,????????????????,k^DA2?m") & vbCrLf):Response.Write(CCJCCCCJ(" ,k^E5m") & vbCrLf):Response.Write(CCJCCCCJ(" ,kE5 ,2=:8?lQC:89EQm")):Response.Write  IIf(CJJJCJCJ(1)>=3,CJCCCCCJ(CCJCCCCJ("vC256")),""):Response.Write(CCJCCCCJ("k^E5m") & vbCrLf):Response.Write(CCJCCCCJ(" ,kE5m") & vbCrLf):Response.Write(CCJCCCCJ(" ,")):If CJJJCJCJ(1)>=3 Then
Response.Write(vbCrLf):Response.Write(CCJCCCCJ(" ,kD6=64E ,?2>6lQvC256Qm") & vbCrLf):Response.Write(CCJCCCCJ(" ,")):if CCCCJC=0 then
response.Write CCJCCCCJ("k@AE:@? ,G2=F6lV_Vm,??.k^@AE:@?m")
Call ShowListSelect(CCJCCCCJ(">6>36C08C256"),CJJCJCC,CCJJCC(CCJCCCCJ("8C256")))
else
response.Write CCJCCCCJ("k@AE:@? ,G2=F6lV") & CCCCJC & CCJCCCCJ("Vm") & CCJJJJCC(CCJCCCCJ(">6>36C08C256"),CJJCJCC,CCCCJC) & CCJCCCCJ("k^@AE:@?m")
end if:Response.Write(vbCrLf):Response.Write(CCJCCCCJ(" ,k^D6=64Em") & vbCrLf):Response.Write(CCJCCCCJ(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CCJCCCCJ(" ,k^E5m") & vbCrLf):Response.Write(CCJCCCCJ(" ,k^ECm") & vbCrLf):Response.Write(CCJCCCCJ(" ,kECm") & vbCrLf):Response.Write(CCJCCCCJ(" ,kE5 ,2=:8?lQC:89EQ ,:5lQADH`0=236=QmU?3DAjk^E5m") & vbCrLf):Response.Write(CCJCCCCJ(" ,kE5 ,:5lQADH`QmU?3DAjk^E5m") & vbCrLf):Response.Write(CCJCCCCJ(" ,kE5 ,2=:8?lQC:89EQm")):Response.Write  IIf(CJJJCJCJ(3)<>"",CJJJCJCJ(3),""):Response.Write(CCJCCCCJ("k^E5m") & vbCrLf):Response.Write(CCJCCCCJ(" ,kE5m") & vbCrLf):Response.Write(CCJCCCCJ(" ,")):If CJJJCJCJ(3)<>"" Then
Response.Write(vbCrLf):Response.Write(CCJCCCCJ(" ,kD6=64E ,?2>6lQ8C@FAQ ,:5lQ8C@FAQm") & vbCrLf):Response.Write(CCJCCCCJ(" ,")):if CJJJCJJ=0 then
response.Write CCJCCCCJ("k@AE:@? ,G2=F6lV_Vm,??.k^@AE:@?m")
Call ShowListSelect(CCJCCCCJ(">6>36C04FDE@>8C@FA"),CJJCJCC,CCJJCC(CCJCCCCJ("4FDE@>vC@FA")))
else
response.Write CCJCCCCJ("k@AE:@? ,G2=F6lV") & CJJJCJJ & CCJCCCCJ("Vm") & CCJJJJCC(CCJCCCCJ(">6>36C04FDE@>8C@FA"),CJJCJCC,CJJJCJJ) & CCJCCCCJ("k^@AE:@?m")
end if:Response.Write(vbCrLf):Response.Write(CCJCCCCJ(" ,k^D6=64Em") & vbCrLf):Response.Write(CCJCCCCJ(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CCJCCCCJ(" ,k^E5m") & vbCrLf):Response.Write(CCJCCCCJ(" ,k^ECm") & vbCrLf):Response.Write(CCJCCCCJ(" ,kECm") & vbCrLf):Response.Write(CCJCCCCJ(" ,kE5 ,2=:8?lQC:89EQm??????????k^E5m") & vbCrLf):Response.Write(CCJCCCCJ(" ,kE5 ,:5lQADHaQm")):Response.Write  CCJJCC(CCJCCCCJ("A2DDH@C5")):Response.Write(CCJCCCCJ("k^E5m") & vbCrLf):Response.Write(CCJCCCCJ(" ,kE5 ,2=:8?lQC:89EQmk^E5m") & vbCrLf):Response.Write(CCJCCCCJ(" ,kE5m") & vbCrLf):Response.Write(CCJCCCCJ(" ,")):if CJJJCJCJ(40) and CCJJCC(CCJCCCCJ("3:?504@?DF=E2?E0:5"))>0 then
Response.Write(vbCrLf):Response.Write(CCJCCCCJ(" ,k=236= ,E:E=6lQ??????????????xs??,")):Response.Write  CCJJCC(CCJCCCCJ("3:?504@?DF=E2?E0:5")):Response.Write(CCJCCCCJ("Qmk:?AFE ,EJA6lQ4964<3@IQ ,?2>6lQ3:?504@?DF=E2?EQ ,G2=F6lQ_Qm??????????k^=236=m") & vbCrLf):Response.Write(CCJCCCCJ(" ,"))
end if:Response.Write(vbCrLf):Response.Write(CCJCCCCJ(" ,k^E5m") & vbCrLf):Response.Write(CCJCCCCJ(" ,k^ECm") & vbCrLf):Response.Write(CCJCCCCJ(" ,kECm") & vbCrLf):Response.Write(CCJCCCCJ(" ,kE5 ,2=:8?lQC:89EQm????????k^E5m") & vbCrLf):Response.Write(CCJCCCCJ(" ,kE5m") & vbCrLf):Response.Write(CCJCCCCJ(" ,k:?AFE ,?2>6lQC62=?2>6Q ,EJA6lQE6IEQ ,G2=F6lQ")):Response.Write  CCJJCC(CCJCCCCJ("C62=?2>6")):Response.Write(CCJCCCCJ("Qm") & vbCrLf):Response.Write(CCJCCCCJ(" ,kD6=64E ,?2>6lQD6IQm") & vbCrLf):Response.Write(CCJCCCCJ(" ,k@AE:@? ,G2=F6lQ`Q ,")):Response.Write  IIf(CCJJCC(CCJCCCCJ("D6I")),CCJCCCCJ("D6=64E65"),""):Response.Write(CCJCCCCJ("m??k^@AE:@?m") & vbCrLf):Response.Write(CCJCCCCJ(" ,k@AE:@? ,G2=F6lQ_Q ,")):Response.Write  IIf(CCJJCC(CCJCCCCJ("D6I")),"",CCJCCCCJ("D6=64E65")):Response.Write(CCJCCCCJ("m??k^@AE:@?m") & vbCrLf):Response.Write(CCJCCCCJ(" ,k^D6=64Em") & vbCrLf):Response.Write(CCJCCCCJ(" ,k^E5m") & vbCrLf):Response.Write(CCJCCCCJ(" ,kE5 ,2=:8?lQC:89EQm????k^E5m") & vbCrLf):Response.Write(CCJCCCCJ(" ,kE5mk:?AFE ,?2>6lQ3:CE952JQ ,EJA6lQE6IEQ ,4=2DDlQ52E6Q ,G2=F6lQ")):Response.Write  CCJJJJJJ(CCJJCC(CCJCCCCJ("3:CE952J")),0):Response.Write(CCJCCCCJ("Qmk^E5m") & vbCrLf):Response.Write(CCJCCCCJ(" ,k^ECm") & vbCrLf):Response.Write(CCJCCCCJ(" ,kECm") & vbCrLf):Response.Write(CCJCCCCJ(" ,kE5 ,2=:8?lQC:89EQm????????^??????k^E5m") & vbCrLf):Response.Write(CCJCCCCJ(" ,kE5mk:?AFE ,?2>6lQ255C6DDQ ,EJA6lQE6IEQ ,G2=F6lQ")):Response.Write  CCJJCC(CCJCCCCJ("255C6DD")):Response.Write(CCJCCCCJ("Q ,D:K6lQc_Qmk^E5m") & vbCrLf):Response.Write(CCJCCCCJ(" ,kE5 ,2=:8?lQC:89EQm????????k^E5m") & vbCrLf):Response.Write(CCJCCCCJ(" ,kE5mk:?AFE ,?2>6lQ6>2:=Q ,EJA6lQE6IEQ ,G2=F6lQ")):Response.Write  CCJJCC(CCJCCCCJ("6>2:=")):Response.Write(CCJCCCCJ("Q ,D:K6lQb_Qmk^E5m") & vbCrLf):Response.Write(CCJCCCCJ(" ,k^ECm") & vbCrLf):Response.Write(CCJCCCCJ(" ,kECm") & vbCrLf):Response.Write(CCJCCCCJ(" ,kE5 ,2=:8?lQC:89EQm????k^E5m") & vbCrLf):Response.Write(CCJCCCCJ(" ,kE5m") & vbCrLf):Response.Write(CCJCCCCJ(" ,k=236=mk:?AFE ,EJA6lQ4964<3@IQ ,?2>6lQ:DD49@@=25>:?Q ,G2=F6lQ`Q ,")):Response.Write  IIf(CCJJCC(CCJCCCCJ(":DD49@@=25>:?")),CCJCCCCJ("4964<65"),""):Response.Write(CCJCCCCJ("m??????k^=236=m") & vbCrLf):Response.Write(CCJCCCCJ(" ,k=236=mk:?AFE ,EJA6lQ4964<3@IQ ,?2>6lQ:D4@?DF=E2?EQ ,G2=F6lQ`Q ,")):Response.Write  IIf(CCJJCC(CCJCCCCJ(":D4@?DF=E2?E")),CCJCCCCJ("4964<65"),""):Response.Write(CCJCCCCJ("m?????? ,k: ,4=2DDlQ:4@?\96=AQ ,E:E=6lQ??????@??????????????????????,????????????????????????????????????????,??????????????,??????@??????,????????,??????????,????,Qmk^:mk^=236=m") & vbCrLf):Response.Write(CCJCCCCJ(" ,k=236=mk:?AFE ,EJA6lQ4964<3@IQ ,?2>6lQ:D$EF56?EQ ,G2=F6lQ`Q ,")):Response.Write  IIf(CCJJCC(CCJCCCCJ(":D$EF56?E")) or isnull(CCJJCC(CCJCCCCJ(":D$EF56?E"))),CCJCCCCJ("4964<65"),""):Response.Write(CCJCCCCJ("m")):Response.Write  CJCCCCCJ(CCJCCCCJ("$EF56?E")):Response.Write(CCJCCCCJ("k^=236=m") & vbCrLf):Response.Write(CCJCCCCJ(" ,k^E5m") & vbCrLf):Response.Write(CCJCCCCJ(" ,kE5 ,2=:8?lQC:89EQm????k^E5m") & vbCrLf):Response.Write(CCJCCCCJ(" ,kE5mk:?AFE ,?2>6lQ>@3:=6Q ,EJA6lQE6IEQ ,G2=F6lQ")):Response.Write  CCJJCC(CCJCCCCJ(">@3:=6")):Response.Write(CCJCCCCJ("Q ,D:K6lQb_Q ,A2EE6C?lQ/`Wb,_\h.Mc,dfh.Md,_`abdefgh.Me,aef.Mf,_`abdefg.Mg,_\h.Mh,`dgh.X-5LgNSQmk^E5m") & vbCrLf):Response.Write(CCJCCCCJ(" ,k^ECm") & vbCrLf):Response.Write(CCJCCCCJ(" ,k^E23=6m") & vbCrLf):Response.Write(CCJCCCCJ(" ,k^7:6=5D6Em") & vbCrLf):Response.Write(CCJCCCCJ(" ,k7:6=5D6Em") & vbCrLf):Response.Write(CCJCCCCJ(" ,k=686?5m??????^????????,??????????????????,k^=686?5m") & vbCrLf):Response.Write(CCJCCCCJ(" ,kE23=6 ,H:5E9lQ`__TQ , ,3@C56ClQ_Qm") & vbCrLf):Response.Write(CCJCCCCJ(" ,kECm") & vbCrLf):Response.Write(CCJCCCCJ(" ,")):If CJCCJCJC(62) Then
Response.Write(vbCrLf):Response.Write(CCJCCCCJ(" ,kE5 ,2=:8?lQC:89EQm??????^??????????k^E5m") & vbCrLf):Response.Write(CCJCCCCJ(" ,kE5m") & vbCrLf):Response.Write(CCJCCCCJ(" ,kD6=64E ,?2>6lQ25>:?EJA6Q ,:5lQ25>:?EJA6Qm") & vbCrLf):Response.Write(CCJCCCCJ(" ,k@AE:@? ,G2=F6lQQm,??.k^@AE:@?m") & vbCrLf):Response.Write(CCJCCCCJ(" ,")):Call ShowListSelect(CCJCCCCJ("D49@@=025>:?0EJA6"),CCCCJJ,CCJJCC(CCJCCCCJ("D49@@=25>:?EJA6"))):Response.Write(vbCrLf):Response.Write(CCJCCCCJ(" ,k^D6=64Em") & vbCrLf):Response.Write(CCJCCCCJ(" ,k^E5m") & vbCrLf):Response.Write(CCJCCCCJ(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CCJCCCCJ(" ,kE5 ,2=:8?lQC:89EQ ,G2=:8?lQE@AQm??,????????k^E5m") & vbCrLf):Response.Write(CCJCCCCJ(" ,kE5mk:?AFE ,?2>6lQ:?EC@02H@C5Q ,EJA6lQE6IEQ ,D:K6lQddQ ,>2I=6?8E9lQd_Q ,G2=F6lQ")):Response.Write  CCJJCC(CCJCCCCJ(":?EC@02H@C5")):Response.Write(CCJCCCCJ("Qmk^E5m") & vbCrLf):Response.Write(CCJCCCCJ(" ,k^ECm") & vbCrLf):Response.Write(CCJCCCCJ(" ,kECm") & vbCrLf):Response.Write(CCJCCCCJ(" ,kE5 ,2=:8?lQC:89EQ ,G2=:8?lQE@AQm??????,????????,k^E5m") & vbCrLf):Response.Write(CCJCCCCJ(" ,kE5 ,G2=:8?lQE@AQm") & vbCrLf):Response.Write(CCJCCCCJ(" ,k:?AFE ,?2>6lQA9@E@Q ,EJA6lQE6IEQ ,D:K6lQc_Q ,G2=F6lQ")):Response.Write  CCJJCC(CCJCCCCJ("A9@E@")):Response.Write(CCJCCCCJ("Q ,E:E=6lQ????????????????????@????????????,????,??????????????????????????????,??????,????????????Qm") & vbCrLf):Response.Write(CCJCCCCJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,G2=F6lQ?? ,??Qm") & vbCrLf):Response.Write(CCJCCCCJ(" ,k3Cm") & vbCrLf):Response.Write(CCJCCCCJ(" ,k:7C2>6 ,DC4lQ]]^]]^:?4^FA=@25]2DAInu%l`Uu|lA9@E@U$+la___Up4El`Qmk^:7C2>6m") & vbCrLf):Response.Write(CCJCCCCJ(" ,k^E5m") & vbCrLf):Response.Write(CCJCCCCJ(" ,kE5 ,2=:8?lQC:89EQ ,G2=:8?lQE@AQm????????k^E5m") & vbCrLf):Response.Write(CCJCCCCJ(" ,kE5mkE6IE2C62 ,?2>6lQ4@?E6?EQ ,4@=DlQddQ ,:5lQ4@?E6?EQm")):Response.Write  CCJJCC(CCJCCCCJ(":?EC@")):Response.Write(CCJCCCCJ("k^E6IE2C62mk^E5m") & vbCrLf):Response.Write(CCJCCCCJ(" ,k^ECm") & vbCrLf):Response.Write(CCJCCCCJ(" ,kECm") & vbCrLf):Response.Write(CCJCCCCJ(" ,kE5 ,2=:8?lQC:89EQmk^E5m") & vbCrLf):Response.Write(CCJCCCCJ(" ,kE5mk^E5m") & vbCrLf):Response.Write(CCJCCCCJ(" ,kE5 ,2=:8?lQC:89EQm????k^E5m") & vbCrLf):Response.Write(CCJCCCCJ(" ,kE5mk:?AFE ,?2>6lQH6:I:?Q ,EJA6lQE6IEQ ,G2=F6lQ")):Response.Write  CCJJCC(CCJCCCCJ("H6:I:?")):Response.Write(CCJCCCCJ("Q ,D:K6lQb_Qmk^E5m") & vbCrLf):Response.Write(CCJCCCCJ(" ,k^ECm") & vbCrLf):Response.Write(CCJCCCCJ(" ,k^E23=6m") & vbCrLf):Response.Write(CCJCCCCJ(" ,k^7:6=5D6Em") & vbCrLf):Response.Write(CCJCCCCJ(" ,k7:6=5D6Em") & vbCrLf):Response.Write(CCJCCCCJ(" ,k=686?5m????????k^=686?5m") & vbCrLf):Response.Write(CCJCCCCJ(" ,")):dim CJJCCJCC,CJJCJJC,CJJCCCJ,CJJCCCJJ,CJCJCJJ,CJJCCJCJ,CJJCCCJC:CJJCCCJJ=CCJJCC(CCJCCCCJ("2?DH6C")):set CCJJCC=CCJJJC.execute(CCJCCCCJ("D6=64E ,:5[BF6DE:@?[2?DH6C[EJA6 ,7C@> ,>6>36C0BF6DE:@? ,H96C6 ,D49@@=l` ,@C56C ,3J ,D@CE")):CJJCJJC=1:CJJCCJCJ=0:response.Write CCJCCCCJ("kE23=6 ,H:5E9lV`__TVmkECm")
while not CCJJCC.eof:CJJCCCJC=CCJJCC(0):if CJJCCCJC>CJJCCJCJ then CJJCCJCJ=CJJCCCJC
response.Write vbcrlf & CCJCCCCJ("kE5m") & CJJCJJC & CCJCCCCJ("??,") & CCJJCC(1) & CCJCCCCJ("k^E5mkE5m"):select case CCJJCC(3):case 0:CJJCCJCC=split(CCJJCC(2),CCJCCCCJ("M")):CJCJCJJ=CCJJJCJJ(CJJCCCJJ,CJJCCCJC):for CJJCCCJ=0 to ubound(CJJCCJCC):response.Write CCJCCCCJ("k=236=mk:?AFE ,EJA6lVC25:@V ,?2>6lVB0") & CJJCCCJC & CCJCCCCJ("V ,G2=F6lV") & CJJCCJCC(CJJCCCJ) & CCJCCCCJ("V") & IIf(CJJCCJCC(CJJCCCJ)=CJCJCJJ,CCJCCCCJ(" ,4964<65"),"") & CCJCCCCJ("m") & CJJCCJCC(CJJCCCJ) & CCJCCCCJ("k^=236=m ,")
next:case 1:CJJCCJCC=split(CCJJCC(2),CCJCCCCJ("M")):CJCJCJJ=CCJJJCJJ(CJJCCCJJ,CJJCCCJC):for CJJCCCJ=0 to ubound(CJJCCJCC):response.Write CCJCCCCJ("k=236=mk:?AFE ,EJA6lV4964<3@IV ,?2>6lVB0") & CJJCCCJC & CCJCCCCJ("V ,G2=F6lV") & CJJCCJCC(CJJCCCJ) & CCJCCCCJ("V") & IIf(CJJCCJCC(CJJCCCJ)=CJCJCJJ,CCJCCCCJ(" ,4964<65"),"") & CCJCCCCJ("m") & CJJCCJCC(CJJCCCJ) & CCJCCCCJ("k^=236=m ,")
next:case 2:response.Write CCJCCCCJ("k:?AFE ,EJA6lVE6IEV ,4=2DDlVE6IEV ,?2>6lVB0") & CJJCCCJC & CCJCCCCJ("V ,G2=F6lV") & CCJJJCJJ(CJJCCCJJ,CJJCCCJC) & CCJCCCCJ("Vm")
case 3:response.Write CCJCCCCJ("kE6IE2C62 ,4=2DDlVE6IEV ,?2>6lVB0") & CJJCCCJC & CCJCCCCJ("V ,4@=DlVb_V ,C@HDlV`Vmk^E6IE2C62m")
case 4:CJJCCJCC=split(CCJJCC(2),CCJCCCCJ("M")):CJCJCJJ=CCJJJCJJ(CJJCCCJJ,CJJCCCJC):Response.Write CCJCCCCJ("kD6=64E ,?2>6lVB0") & CJJCCCJC & CCJCCCCJ("Vm")
for CJJCCCJ=0 to ubound(CJJCCJCC):response.Write CCJCCCCJ("k@AE:@? ,G2=F6lV") & CJJCCJCC(CJJCCCJ) & CCJCCCCJ("V") & IIf(CJJCCJCC(CJJCCCJ)=CJCJCJJ,CCJCCCCJ(" ,D6=64E65"),"") & CCJCCCCJ("m") & CJJCCJCC(CJJCCCJ) & CCJCCCCJ("k^@AE:@?m")
next:Response.Write CCJCCCCJ("k^D6=64Em"):end select:response.Write CCJCCCCJ("k^E5m"):if CJJCJJC mod 2=0 then response.Write CCJCCCCJ("k^ECmkECm")
CCJJCC.movenext:CJJCJJC=CJJCJJC+1:wend:response.Write CCJCCCCJ("k^ECmk^E23=6m"):response.Write CCJCCCCJ("k:?AFE ,EJA6lV9:556?V ,?2>6lVB?F>V ,G2=F6lV") & CJJCCJCJ & CCJCCCCJ("Vm")
Response.Write(vbCrLf):Response.Write(CCJCCCCJ(" ,k^7:6=5D6Em") & vbCrLf):Response.Write(CCJCCCCJ(" ,k3Cm") & vbCrLf):Response.Write(CCJCCCCJ(" ,k5:G ,2=:8?lQ46?E6CQm") & vbCrLf):Response.Write(CCJCCCCJ(" ,k:?AFE ,EJA6lQDF3>:EQ ,G2=F6lQ?? ,??Qm") & vbCrLf):Response.Write(CCJCCCCJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,G2=F6lQ?? ,??Qm") & vbCrLf):Response.Write(CCJCCCCJ(" ,k2 ,4=2DDlQ3FEE@?Q ,9C67lQ")):Response.Write  CJJCJJJJ:Response.Write(CCJCCCCJ("Qm?? ,??k^2m") & vbCrLf):Response.Write(CCJCCCCJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCJCCCCJ("k^7@C>m") & vbCrLf):Response.Write(CCJCCCCJ("k:?AFE ,EJA6lQ9:556?Q ,:5lQ>6>\EJA6Q ,G2=F6lQ")):Response.Write  CCCJJC:Response.Write(CCJCCCCJ("Qm") & vbCrLf):Response.Write(CCJCCCCJ("k:?AFE ,EJA6lQ9:556?Q ,:5lQ>6>\:5Q ,G2=F6lQ")):Response.Write  CCJCCJ:Response.Write(CCJCCCCJ("Qm") & vbCrLf):Response.Write(CCJCCCCJ("k:?AFE ,EJA6lQ9:556?Q ,:5lQ:5Q ,G2=F6lQ")):Response.Write  CJJJCCJC:Response.Write(CCJCCCCJ("Qm") & vbCrLf):Response.Write(CCJCCCCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJCCCCJ("kD4C:AE ,DC4lQ^$4C:AED^49@D6?^49@D6?];BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJCCCCJ("kD4C:AE ,DC4lQ^$4C:AED^2FE@D:K6]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJCCCCJ("kD4C:AE ,DC4lQ^$4C:AED^>5d]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJCCCCJ("kD4C:AE ,DC4lQ^$4C:AED^52E6A:4<6C^52E6A:4<6C]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJCCCCJ("kD4C:AE ,DC4lQ^$4C:AED^52E6A:4<6C^:`g?^52E6A:4<6C]K9\r}]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJCCCCJ("kD4C:AE ,DC4lQ^$4C:AED^=2J6C^=2J6C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJCCCCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]G2=:52E6]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJCCCCJ("kD4C:AE ,DC4lQ^$4C:AED^52J;D^52J;D]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJCCCCJ("kD4C:AE ,DC4lQ^$4C:AED^DE@C6a]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJCCCCJ("kD4C:AE ,DC4lQ^$4C:AED^=2J6C^=2J6C]96=A6C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJCCCCJ("kD4C:AE ,DC4lV^$4C:AED^;BF6CJ]D6=64E42496];DVmk^D4C:AEm") & vbCrLf):Response.Write(CCJCCCCJ("kD4C:AEm") & vbCrLf):Response.Write(CCJCCCCJ("^Y ,8=@32= ,H:?0@A6? ,Y^") & vbCrLf):Response.Write(CCJCCCCJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CCJCCCCJ(" ,2FE@D:K6WSWVR4@?E6?EVXX") & vbCrLf):Response.Write(CCJCCCCJ(" ,SWVD6=64E,?2>6PlQ56AEQ.VX]H:5E9W7F?4E:@?W:[HXLC6EFC? ,HZ`aNX]49@D6?WL5:D23=60D62C490E9C6D9@=5i`_[?@0C6DF=ED0E6IEiV??????????????,V[D62C4904@?E2:?DiECF6NX") & vbCrLf):Response.Write(CCJCCCCJ(" ,SWV:?AFE]52E6VX]52E6A:4<6CWL=2?8F286iVK9\r}V[2FE@w:56iECF6[7@C>2EiVJJJJ\>>\55VNX") & vbCrLf):Response.Write(CCJCCCCJ(" ,^^ ,????????") & vbCrLf):Response.Write(CCJCCCCJ(" ,SWVD6=64E,?2>6lQ56AEQ.VX]D6=64E42496WL") & vbCrLf):Response.Write(CCJCCCCJ(" ,FC=iV^56A2CE>6?E^2==49:=5C6?n:5lVZSWVR>6>\EJA6VX]G2=WX[") & vbCrLf):Response.Write(CCJCCCCJ(" ,EC66iECF6") & vbCrLf):Response.Write(CCJCCCCJ(" ,NX") & vbCrLf):Response.Write(CCJCCCCJ(" ,^^ ,????????????????????") & vbCrLf):Response.Write(CCJCCCCJ(" ,SWVRA2DDH@C5VX]@?WV<6JFAV[7F?4E:@?W6X ,L") & vbCrLf):Response.Write(CCJCCCCJ(" ,:7WSWE9:DX]G2=WXlllVVXL") & vbCrLf):Response.Write(CCJCCCCJ(" ,SWVRADH`0=236=VX]6>AEJWX") & vbCrLf):Response.Write(CCJCCCCJ(" ,SWVRADH`VX]6>AEJWX") & vbCrLf):Response.Write(CCJCCCCJ(" ,N6=D6 ,:7WSWE9:DX]G2=WXlllV`abcdeVXL") & vbCrLf):Response.Write(CCJCCCCJ(" ,=2J6C]>D8WV????????,????????????????VX") & vbCrLf):Response.Write(CCJCCCCJ(" ,SWE9:DX]G2=WVVX") & vbCrLf):Response.Write(CCJCCCCJ(" ,SWVRADH`0=236=VX]6>AEJWX") & vbCrLf):Response.Write(CCJCCCCJ(" ,SWVRADH`VX]6>AEJWX") & vbCrLf):Response.Write(CCJCCCCJ(" ,N6=D6 ,L") & vbCrLf):Response.Write(CCJCCCCJ(" ,SWVRADH`0=236=VX]E6IEWV??????????VX") & vbCrLf):Response.Write(CCJCCCCJ(" ,SWVRADH`VX]E6IEW>5dWSWE9:DX]G2=WXXX") & vbCrLf):Response.Write(CCJCCCCJ(" ,N") & vbCrLf):Response.Write(CCJCCCCJ(" ,NX") & vbCrLf):Response.Write(CCJCCCCJ(" ,^^ ,????????") & vbCrLf):Response.Write(CCJCCCCJ(" ,SWV7@C>VX]@?WVDF3>:EV[7F?4E:@?WXL") & vbCrLf):Response.Write(CCJCCCCJ(" ,:7WSWVR:5VX]G2=WXlllSWVR>6>\:5VX]G2=WXUUDE@C6WVFD6CVXXL") & vbCrLf):Response.Write(CCJCCCCJ(" ,G2C ,3:CE952JlSWV:?AFE,?2>6lQ3:CE952JQ.VX]G2=WX") & vbCrLf):Response.Write(CCJCCCCJ(" ,G2C ,286 ,l ,|2E9]7=@@CW52J;DWX]5:77W3:CE952J[ ,V52JVX^bedX") & vbCrLf):Response.Write(CCJCCCCJ(" ,DE@C6]255WVFD6CV[ ,L") & vbCrLf):Response.Write(CCJCCCCJ(" ,286i ,286[") & vbCrLf):Response.Write(CCJCCCCJ(" ,3:CE952Ji ,3:CE952J") & vbCrLf):Response.Write(CCJCCCCJ(" ,NX") & vbCrLf):Response.Write(CCJCCCCJ(" ,N") & vbCrLf):Response.Write(CCJCCCCJ(" ,NX]G2=:52E6WL") & vbCrLf):Response.Write(CCJCCCCJ(" ,CF=6DiL") & vbCrLf):Response.Write(CCJCCCCJ(" ,FD6C?2>6iLC6>@E6iV^>6>36C^C68:DE04964<FD6C?2>6]2DAVN[") & vbCrLf):Response.Write(CCJCCCCJ(" ,>@3:=6iLC6>@E6iV^>6>36C^C68:DE04964<>@3:=6]2DAn:5lVZSWVE5]C653@=5VX]E6IEWXN") & vbCrLf):Response.Write(CCJCCCCJ(" ,N[") & vbCrLf):Response.Write(CCJCCCCJ(" ,>6DD286DiL") & vbCrLf):Response.Write(CCJCCCCJ(" ,FD6C?2>6iLC6>@E6iV??????????????????,????????????????VN[") & vbCrLf):Response.Write(CCJCCCCJ(" ,>@3:=6iLC6>@E6iV??????????????????,????????????????VN") & vbCrLf):Response.Write(CCJCCCCJ(" ,N") & vbCrLf):Response.Write(CCJCCCCJ(" ,NX") & vbCrLf):Response.Write(CCJCCCCJ("NX") & vbCrLf):Response.Write(CCJCCCCJ("k^D4C:AEm") & vbCrLf):Response.Write(CCJCCCCJ("k^3@5Jm") & vbCrLf):Response.Write(CCJCCCCJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCJJCCJ=nothing:set CJCCCCJJ=nothing:set CJCCCCJC=nothing:set CJCCCCCJ=nothing:CCJCJJ.Close:Set CCJCJJ=Nothing:CCJJCC.Close:Set CCJJCC=Nothing:CCJJJC.Close:Set CCJJJC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CCJCCCCJ(ByVal CJJJCJJC)
Dim CJJCCCCJ, CJJCJJC, CJCJJCC
CJJJCJJC = Replace(CJJJCJJC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJJCJJC = 1 To Len(CJJJCJJC)
If CJJCJJC <> CJCJJCC Then
CJJCCCCJ = AscW(Mid(CJJJCJJC, CJJCJJC, 1))
If CJJCCCCJ >= 33 And CJJCCCCJ <= 79 Then
CCJCCCCJ = CCJCCCCJ & Chr(CJJCCCCJ + 47)
ElseIf CJJCCCCJ >= 80 And CJJCCCCJ <= 126 Then
CCJCCCCJ = CCJCCCCJ & Chr(CJJCCCCJ - 47)
Else
CJCJJCC = CJJCJJC + 1
If Mid(CJJJCJJC, CJCJJCC, 1) = Chr(64) Then CCJCCCCJ = CCJCCCCJ & ChrW(CJJCCCCJ + 5) Else CCJCCCCJ = CCJCCCCJ & Mid(CJJJCJJC, CJJCJJC, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de