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

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

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCJJCJ, CCJJCC,CCJCJJ, CCJCJC, CCJCCJ:Set CCJJCJ = server.CreateObject(CJCCJCJJ("ps~sq]r@??64E:@?")):CCJJCJ.open Application(CJCCJCJJ("r@??64E:@?$EC:?8")):Set CCJJCC=CCJJCJ::Dim CCJCCC,CCCJJJ,CCCJJC,CCCJCJ,CCCJCC,CCCCJJ,CCCCJC,CCCCCJ,CCCCCC:Dim CJJJJJJ,CJJJJJC,CJJJJCJ,CJJJJCC,CJJJCJJ,CJJJCJC:Dim CJJJCCJ,CJJJCCC,CJJCJJJ:Dim CJJCJJC:CJJCJJC=Trim(Request.Cookies(CJCCJCJJ("!$*|t|qt#"))):if CJJCJJC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CCJCCC>0 then
CCJCCJ=CJCCJCJJ("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") & CCCJJJ & CJCCJCJJ("V ,2?5 ,:5l") & CCJCCC
set CCJCJJ=CCJJCJ.execute(CCJCCJ):If CCJCJJ.EOF Then
Call ClearMemberCookie
Else
CCCJJC=CCJCJJ(2) & "":CCCJCJ=CCJCJJ(3):CCCJCC=CCJCJJ(5):CCCCJJ=CCJCJJ(6):CCCCJC=CCJCJJ(9):CCCCCJ=CCJCJJ(15):CJJJJJJ=CCJCJJ(0):CJJJCCC=CCJCJJ(1):CJJJCCJ=CCJCJJ(11) & "":CJJJJJC=CCJCJJ(10) & "":CCCCCC=CCJCJJ(12):CJJJJCJ=CCJCJJ(14):CJJJJCC=CCJCJJ(13):CJJJCJJ=CCJCJJ(7) & "":CJJJCJC=CCJCJJ(4):CJJCJJJ=CCJCJJ(8):if isnull(CCCCCJ) then CCCCCJ=0
if isnull(CCCCJC) or CCCCJC=0 then CCCCJC=CCCJCJ
if isnull(CJJJCJC) then CJJJCJC=0
if isnull(CCCJCC) then CCCJCC=0
if instr(CJCCJCJJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CCCJJJ)>0 then Call RedirectMessage(CJCCJCJJ("????????,????????????????????????????????,"))
Call SetMemberCookie(CCJCCC,CCCJJJ)
End IF
end if:Sub CheckRight(CJCCCJC):dim CJJCJCJ,CJJCJCC:if CCJCCC=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJCCJCJJ("??????????????,????????????,"))
elseIf not CJJJCCJC(CJCCCJC) then
Call RedirectMessage(CJCCJCJJ("????W") & CJCCCJC & CJCCJCJJ("X????????,????????????????????,"))
end if:End Sub:Function CJJJCCJC(CJCCCJC):dim CJJCJCJ,CJJCJCC:CJJCJCC=split(CJCCCJC,CJCCJCJJ("[")):CJJJCCJC=False:for CJJCJCJ=0 to ubound(CJJCJCC):If Mid(CCCJJC,CJJCJCC(CJJCJCJ),1)="1" then
CJJJCCJC=True:exit function
end if:next:End Function:Sub CheckLogined():if CCJCCC=0 then
Call ClearMemberCookie:Call ConnClose:dim CJJCCJJ:CJJCCJJ=trim(request.QueryString(CJCCJCJJ("D49@@="))):if isnumeric(CJJCCJJ) then
response.Redirect CJCCJCJJ("^>^G2?E^R^D49@@=^") & CJJCCJJ & CJCCJCJJ("^DEF56?E^=@8:?nC65:C64El") & CJCJCCJ
else
Call RedirectMessage(CJCCJCJJ("??????????????,????????????,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CJCCJCJJ("!$*|t|qt#"))="":CCJCCC=0:CCCCJJ=0:CCCJJJ=Empty:CCCJCC=0:CCCCCJ=0:CCCCJC=0:CCCJCJ=0:CJJJJJJ=False:CJJJCCC=False:CJJCJJJ=Empty:End Sub:Sub CheckMemberCookie():dim CJJCCJC,CJJCCCJ,CJJCJCJ,CJJCCCC,CJCJJJJ:CJJCCJC=split(CJJCJJC,CJCCJCJJ("]")):if ubound(CJJCCJC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJJCCJC(0)) or len(CJJCCJC(1))<>32 or len(CJJCCJC(2))<>32 then
Call ClearMemberCookie
else
CJJCCCJ=CJJCCJC(1):for CJJCJCJ=1 to len(CJJCCCJ):CJJCCCC=mid(CJJCCCJ,CJJCJCJ,1):if isnumeric(CJJCCCC) then CJCJJJJ=CJCJJJJ & CJJCCCC
if len(CJCJJJJ)=7 then exit for
next:CJJCCCJ=CJJCCJC(2):if CJCJJJJ<>mid(CJJCCCJ,6,7) then
Call ClearMemberCookie
else
CJJCCCC=mid(CJJCCCJ,18,10)/2:if CJJCCCC<DateDiff(CJCCJCJJ("D"), CJCCJCJJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CCJCCC=Clng(CJJCCJC(0)):CCCJJJ=CJJCCJC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJCCJJJJ,CJCCJCJC):dim CJJCJCJ,CJJCCCC,CJCJJJJ:for CJJCJCJ=1 to len(CJCCJCJC):CJJCCCC=mid(CJCCJCJC,CJJCJCJ,1):if isnumeric(CJJCCCC) then CJCJJJJ=CJCJJJJ & CJJCCCC
if len(CJCJJJJ)=7 then exit for
next:CJCJJJJ=CJCCJJJJ & CJCCJCJJ("]") & CJCCJCJC & CJCCJCJJ("]") & Fix(10000*(Rnd+1)) & CJCJJJJ & Fix(10000*(Rnd+1)) & DateDiff(CJCCJCJJ("D"), CJCCJCJJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJCCJCJJ("!$*|t|qt#"))=CJCJJJJ:End Sub::Function CJJJCCCJ(CJCCJCCJ):Dim str,CJCJJCJ:str = Trim(CJCCJCCJ):If IsNull(str) Or str = "" Then
CJJJCCCJ = ""
else
str=Replace(str, CJCCJCJJ("V"), "")
str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CJCCJCJJ("k:7C2>6"), CJCCJCJJ("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CJCCJCJJ("kD4C:AE"), CJCCJCJJ("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CJCJJCJ=new RegExp:CJCJJCJ.Pattern=CJCCJCJJ("@?W,2\K.ZXl"):CJCJJCJ.IgnoreCase = True:CJCJJCJ.Global=True:str=CJCJJCJ.Replace(str,CJCCJCJJ("@?S`U6BF2=Dj")):set CJCJJCJ=nothing:CJJJCCCJ=str
End If:End Function:Function IIf(CJCCJCCC, CJCCCJJJ, CJCCCJJC):if isnull(CJCCJCCC) or isempty(CJCCJCCC) then
IIf = CJCCCJJC
elseif CJCCJCCC Then
IIf = CJCCCJJJ
Else
IIf = CJCCCJJC
end if:End Function:Const CJJJCCJJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":Function CJJCJJJJ(str):if isnull(str) or str="" then
CJJCJJJJ=False:exit function
end if:Dim CJCJJCJ:Set CJCJJCJ = New RegExp:CJCJJCJ.Pattern = CJCCJCJJ("/`Wb,_\h.Mc,dfh.Md,_`abdefgh.Me,aef.Mf,_`abdefg.Mg,_\h.Mh,`dgh.X-5LgNS"):CJCJJCJ.IgnoreCase = True:CJJCJJJJ = CJCJJCJ.test(str):set CJCJJCJ=nothing:End Function:Function CJJCJJJC():dim CJCJJCC:CJCJJCC = Cstr(Request.ServerVariables(CJCCJCJJ("w%%!0)0u~#(p#sts0u~#"))):If CJCJJCC = "" Then CJCJJCC = Cstr(Request.ServerVariables(CJCCJCJJ("#t|~%t0pss#")))
if instr(CJCJJCC,CJCCJCJJ("i"))>0 then
CJCJJCC=left(CJCJJCC,instr(CJCJJCC,CJCCJCJJ("i"))-1)
elseif instr(CJCJJCC,CJCCJCJJ("["))>0 then
CJCJJCC=left(CJCJJCC,instr(CJCJJCC,CJCCJCJJ("["))-1)
end if:CJJCJJJC=left(CJCJJCC,15):End Function:Sub Debug(str):response.Charset=CJCCJCJJ("FE7\g"):dim CJJCJCJ,CJJCCCC,CJCJCJJ:if isarray(str) then
on error resume next:CJJCJCJ=ubound(str,2):CJCJCJJ=err.number:err.clear:on error goto 0:if CJCJCJJ<>0 then
for CJJCJCJ=0 to ubound(str):if CJJCJCJ>0 then response.Write CJCCJCJJ("k3C ,^m")
response.Write CJJCJCJ & CJCCJCJJ("i ,") & str(CJJCJCJ):next
else
response.Write CJCCJCJJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CJJCJCJ=0 to ubound(str,2):response.Write CJCCJCJJ("kE9 ,2=:8?lV=67EVm") & CJJCJCJ & CJCCJCJJ("k^E9m")
next:response.Write CJCCJCJJ("k^ECm"):for CJJCJCJ=0 to ubound(str):response.Write CJCCJCJJ("kECmkE9m") & CJJCJCJ & CJCCJCJJ("k^E9m"):for CJJCCCC=0 to ubound(str,2):response.Write CJCCJCJJ("kE5m") & str(CJJCJCJ,CJJCCCC) & CJCCJCJJ("k^E5m"):next:response.Write CJCCJCJJ("k^ECm"):next:response.Write CJCCJCJJ("k^E23=6m")
end if
elseif isnull(str) then
response.Write CJCCJCJJ(",}F==.")
else
Response.Write replace(str,vbcrlf,CJCCJCJJ("k3Cm"))
end if:Call ConnClose:Response.End:End Sub:Public Function CJJCJJCJ():Dim CJCJCJC, CJCJCCJ:CJCJCCJ = Request.ServerVariables(CJCCJCJJ("!p%w0x}u~")):CJCJCJC = Request.ServerVariables(CJCCJCJJ("""&t#*0$%#x}v")):If CJCJCJC <> Empty Then
if instr(lcase(CJCJCJC),CJCCJCJJ("Tb4:7C2>6"))>0 or instr(lcase(CJCJCJC),CJCCJCJJ("Tb4D4C:AE"))>0 then Call RedirectMessage(CJCCJCJJ("????????,????????????????????????,??,??,"))
CJCJCCJ = CJCJCCJ & CJCCJCJJ("n") & CJCJCJC
end if:CJJCJJCJ = CJCJCCJ:End Function:Sub SetHttpOnlyCookie(CJCCCJCJ,CJCCCJCC):dim CJJCCJC:CJJCCJC=CJCCCJCJ & CJCCJCJJ("l") & CJCCCJCC & CJCCJCJJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJCCJCJJ("$6E\r@@<:6"),CJJCCJC):End Sub:::::::Function CJJCJJCC(CJCJCJJ):if isnull(CJCJCJJ) or trim(CJCJCJJ)="" or not isnumeric(CJCJCJJ) then
CJJCJJCC=false
else
Dim CJCJJCJ:Set CJCJJCJ = New RegExp:CJCJJCJ.Pattern = CJCCJCJJ("/-5ZS"):CJCJJCJ.IgnoreCase = True:CJJCJJCC = CJCJJCJ.test(CJCJCJJ):set CJCJJCJ=nothing
end if:End Function:Function CJJCJCJJ(CJCCCCJJ):dim CJCJCCC,CJCCJJJ:CJCJCCC=CJCCJCJJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJCCCCJJ & CJCCJCJJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJCCJJJ=CCJJCJ.execute(CJCJCCC):CJJCJCJJ = CJCCJJJ(0):if isnull(CJJCJCJJ) then CJJCJCJJ=1
CJCCJJJ.close : set CJCCJJJ=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CCJCJJJ=nothing:set CJJCJCJC=nothing:set CJJCJCCJ=nothing:set CJJCJCCC=nothing:CJCCJJJ.close : set CJCCJJJ=nothing:CCJCJC.Close : Set CCJCJC=Nothing:CCJCJJ.Close : Set CCJCJJ=Nothing:CJJCCJJJ.Close : Set CJJCCJJJ = Nothing:CCJJCJ.Close : Set CCJJCJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCCCCCC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJCCJCJJ("!$*0|6DD286"),server.URLEncode(CCCCCCC)):Response.Redirect CJCCJCJJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:Sub SendSystemMessage(ByVal CJJCCJJC,title,content):Dim CJJCJCJ,CJCJCCC:if isnull(CJJCCJJC) or CJJCCJJC="" then exit Sub
CJJCCJJC=split(CJJCCJJC,CJCCJCJJ("[")):for CJJCJCJ=0 to ubound(CJJCCJJC):if CJJCJJCC(CJJCCJJC(CJJCJCJ)) then CJCJCCC=CJCJCCC & CJCCJCJJ(":?D6CE ,:?E@ ,>6DD286WD6?56C[C646:G6C[E:E=6[4@?E6?E[:DDJD[:D?6HX ,G2=F6DW") & CCJCCC & CJCCJCJJ("[") & CJJCCJJC(CJJCJCJ) & CJCCJCJJ("[V") & title & CJCCJCJJ("V[V") & content & CJCCJCJJ("V[`[`Xj")
next:if CJCJCCC<>"" then CCJJCJ.execute CJCJCCC
End Sub:Sub StringDown(CJCCCCJC, str):Call ConnClose:Response.Charset=CJCCJCJJ("FE7\g"):Response.Buffer = True:Response.Clear:if right(CJCCCCJC,4)=CJCCJCJJ("]4DG") then Response.BinaryWrite ChrB(&HEF) & ChrB(&HBB) & ChrB(&HBF)
Response.AddHeader CJCCJCJJ("r@?E6?E\s:DA@D:E:@?"), CJCCJCJJ("2EE249>6?Ej ,7:=6?2>6l") & CJCCCCJC:Response.ContentType = CJCCJCJJ("2AA=:42E:@?^@4E6E\DEC62>"):Response.Write str:Response.End:End Sub::::Function CJJCCJCJ(CJCCCCCJ,CJCCCJC):if isnull(CJCCCCCJ) then
CJJCCJCJ=False
else
If Mid(CJCCCCCJ,CJCCCJC,1)="1" then CJJCCJCJ=True else CJJCCJCJ=False
end if:End Function:::Sub SMS(CCJJCCJ,CJCCJJCC):dim CJCJCCJ:if instr(CJCCJJCC,CJCCJCJJ("??,"))<>1 then CJCCJJCC=CJCCJCJJ("??,??????????,") & CJCCJJCC
CJCJCCJ=CJCCJCJJ("9EEAi^^`a_]ae]ee]ac^>D8^wEEAq2E49$6?5$|n244@F?El3;I95909JUADH5l3;I95909J`abU>@3:=6l") &  CCJJCCJ & CJCCJCJJ("U>D8l") + server.urlencode(CJCCJJCC)
Call CJJCCCJJ(CJCJCCJ,CJCCJCJJ("v6E"),"")
End Sub:Function CJJCCCJJ(ByVal CJCJCCJ,ByVal CJJCCJCC,CCJJJCC)
Dim CJCCJJC,CJCCJCJ,CJCCJCC,CJCCCJJ,CJCJCJJ:if left(CJCJCCJ,7)<>CJCCJCJJ("9EEAi^^") then CJCJCCJ=CJCCJCJJ("9EEAi^^") & request.ServerVariables(CJCCJCJJ("$t#'t#0}p|t")) & CJCCJCJJ("i") & request.ServerVariables(CJCCJCJJ("$t#'t#0!~#%")) & CJCJCCJ
CJJCCJCC=Ucase(CJJCCJCC):Set CJCCJJC = Server.CreateObject(CJCCJCJJ("|DI>=a]$6CG6C)|{w%%!")):CJCCJJC.Open CJJCCJCC, CJCJCCJ, False:if CJJCCJCC=CJCCJCJJ("!~$%") then CJCCJJC.setRequestHeader CJCCJCJJ("r@?E6?E\%JA6"),CJCCJCJJ("2AA=:42E:@?^I\HHH\7@C>\FC=6?4@565")
On Error Resume Next:CJCCJJC.Send CCJJJCC:if err then Call RedirectMessage(CJCCJCJJ("$6CG6C)|{w%%!\tCC@C\,") & CJJCCJCC & CJCCJCJJ(".") & CJCJCCJ & CJCCJCJJ("i ,") & err.description)
On Error Goto 0:if CJCCJJC.Readystate <> 4 or CJCCJJC.Status<>200 then
CJCCJCC = ""
else
CJCCJCC = CJCCJJC.ResponseText
end if:Set CJCCJJC = Nothing:CJJCCCJJ=CJCCJCC
End Function::::::::Function CJJCCCJC(Table):Dim CJCCJJJ, CJCCCJC, str(), CJJCJCJ,CJJCCCC,CJCCCCJ:CJCCCCJ=UCase(Table):If Not IsArray(Application(CJCCJCJJ("!$*0") & CJCCCCJ)) Then
CCJCCJ=CJCCJCJJ("D6=64E ,:5[?2>6[>6>36CEJA6 ,7C@> ,,") & Table & CJCCJCJJ(". ,@C56C ,3J ,D@CE[:5"):set CJCCJJJ=server.createobject(CJCCJCJJ("25@53]C64@C5D6E")):CJCCJJJ.open CCJCCJ,CCJJCJ,1:CJCCCJC = CJCCJJJ.RecordCount:ReDim str(CJCCCJC, 2):If CJCCCJC > 0 Then
For CJJCJCJ = 1 To CJCCCJC:for CJJCCCC=0 to 2:str(CJJCJCJ, CJJCCCC) = CJCCJJJ(CJJCCCC):next:CJCCJJJ.MoveNext:Next
End If:CJCCJJJ.Close: Set CJCCJJJ = Nothing:Application(CJCCJCJJ("!$*0") & CJCCCCJ) = str
End If:CJJCCCJC = Application(CJCCJCJJ("!$*0") & CJCCCCJ):End Function::Function CJJCCCCJ(CJCCCCJJ,CJCCCCCC,CJCCJJJJ):Dim str, CJJCJCJ, CJCCCCC:CJCCCCC = CJJCCCJC(CJCCCCJJ):For CJJCJCJ = 1 To UBound(CJCCCCC):if Cstr(CJCCCCC(CJJCJCJ,2))=Cstr(CJCCCCCC) and CStr(CJCCCCC(CJJCJCJ, 0)) = CJCCJJJJ & "" then
str=CJCCCCC(CJJCJCJ,1):exit for
end if:Next:if str="" then str=CJCCJCJJ(",????.")
CJJCCCCJ=str:End Function:Sub InsertLog(CCJJJJJJ,CJCCJJCC):dim CJCJCCC:CJCJCCC=CJCCJCJJ("x?D6CE ,:?E@ ,=@8W>6>36C[:A[4@?E6?E[EJA6[FC=X ,G2=F6DW") & CCJCCC  & CJCCJCJJ("[V") & CJJCJJJC & CJCCJCJJ("V") & CJCCJCJJ("[V") & CJJJCCCJ(CJCCJJCC) & CJCCJCJJ("V") & CJCCJCJJ("[") & CCJJJJJJ  & CJCCJCJJ("[V") & CJJCJJCJ & CJCCJCJJ("V") & CJCCJCJJ("X")
CCJJCJ.execute CJCJCCC:End Sub::function CJJCCCCC(CJJJCJJJ,CJCCJJJJ):dim CJJCJCC,CJJCJCJ:if isArray(CJJJCJJJ) then CJJCJCC=CJJJCJJJ else CJJCJCC=split(CJJJCJJJ & "",CJCCJCJJ("M"))
for CJJCJCJ=0 to ubound(CJJCJCC)-1 step 2:if CJJCJCC(CJJCJCJ)=cstr(CJCCJJJJ) then
CJJCCCCC=server.htmlencode(CJJCJCC(CJJCJCJ+1)):exit for
end if:next:end function:Function CJCJJJJJ(CCJCJJ):dim CJJCJCJ,CCJJJJJ,CCJJJJC,CJCJCJC,CCJJJCJ:CCJJJCJ=CCJCJJ.fields.count-1:do while not CCJCJJ.eof:CCJJJJJ=CCJJJJJ & CJCCJCJJ("[L"):for CJJCJCJ=0 to CCJJJCJ:CCJJJJC=CCJCJJ(CJJCJCJ).value:if CJJCJCJ>0 then CCJJJJJ=CCJJJJJ & CJCCJCJJ("[")
CCJJJJJ=CCJJJJJ & CJCCJCJJ("Q") & CCJCJJ(CJJCJCJ).name & CJCCJCJJ("Qi"):if isnull(CCJJJJC) or CCJJJJC="" then
CCJJJJJ=CCJJJJJ & CJCCJCJJ("QQ")
elseif CCJCJJ(CJJCJCJ).type=11 then
CCJJJJJ=CCJJJJJ & IIf(CCJJJJC,1,0)
elseif isnumeric(CCJJJJC) and instr(CCJJJJC,CJCCJCJJ("["))=0 and len(CCJJJJC)<7 then
CCJJJJJ=CCJJJJJ & CCJJJJC
elseif lcase(CCJJJJC)=CJCCJCJJ("ECF6") then
CCJJJJJ=CCJJJJJ & CJCCJCJJ("ECF6")
elseif lcase(CCJJJJC)=CJCCJCJJ("72=D6") then
CCJJJJJ=CCJJJJJ & CJCCJCJJ("72=D6")
elseif isdate(CCJJJJC) then
CCJJJJJ=CCJJJJJ & CJCCJCJJ("Q") & replace(CCJJJJC,CJCCJCJJ("^"),CJCCJCJJ("\")) & CJCCJCJJ("Q")
else
CJCJCJC=CCJJJJC:CJCJCJC=replace(CJCJCJC,vbcrlf,CJCCJCJJ("-?")):CJCJCJC=replace(CJCJCJC,chr(9),""):CJCJCJC=replace(CJCJCJC,CJCCJCJJ("Q"),CJCCJCJJ("-Q")):CCJJJJJ=CCJJJJJ & CJCCJCJJ("Q") & CJCJCJC & CJCCJCJJ("Q")
end if:next:CCJJJJJ=CCJJJJJ & CJCCJCJJ("N"):CCJCJJ.movenext:if CCJCJJ.eof then exit do
loop:if CCJJJJJ<>"" then CCJJJJJ=mid(CCJJJJJ,2)
CJCJJJJJ=CJCCJCJJ(",") & CCJJJJJ & CJCCJCJJ("."):End Function:Function CJCJJJJC(CCJCCJ):dim CJCCJJJ:set CJCCJJJ=CCJJCJ.execute(CCJCCJ):CJCJJJJC=CJCJJJJJ(CJCCJJJ):CJCCJJJ.close:set CJCCJJJ=nothing:End Function:Sub PutFormJson(CCJCCJ):dim CCJJJCC:CCJJJCC=CJCJJJJC(CCJCCJ):response.Write CJCCJCJJ("kD4C:AE") & CJCCJCJJ("mG2C ,52E2l") & mid(CCJJJCC,2,len(CCJJJCC)-2) & CJCCJCJJ("k^D4C:AEm"):End Sub::::::Function CJCJJJCJ(CJJCCJJ,CJCJCJJ):dim CJCCJJJ,CJCCCCC:set CJCCJJJ=CCJJCJ.execute(CJCCJCJJ("D6=64E ,:5[,C:89E. ,7C@> ,G0>6>36C ,H96C6 ,:DD49@@=25>:?l` ,2?5 ,>6>36C0EJA60E@Al") & CJJCCJJ):while not CJCCJJJ.eof:if CJJCCJCJ(CJCCJJJ(1),CJCJCJJ) then CJCCCCC=CJCCCCC & CJCCJCJJ("[") & CJCCJJJ(0)
CJCCJJJ.movenext:wend:if CJCCCCC<>"" then CJCCCCC=Mid(CJCCCCC,2)
CJCJJJCJ=CJCCCCC:End Function:::Function CJCJJJCC(CCJJJJJC,str):dim CJJCJCJ,CCJJCJJ,CCJJCJC,CCJJCCJ,CJCJCJJ,CCJJCCC,CJCJJJJ:CJCJJJJ=ucase(CCJJJJJC):CCJJCCC=str:if CCJJCCC="" then
CCJJCCC=request.cookies(CJCJJJJ):if CCJJCCC="" then
CJCJJJCC=""
else
CCJJCCC=strreverse(CCJJCCC):CCJJCJJ=len(CCJJCCC):for CJJCJCJ=1 to CCJJCJJ-1 step 2:CCJJCCJ=mid(CCJJCCC,CJJCJCJ,1):CJCJCJJ=mid(CCJJCCC,CJJCJCJ+1,1):CCJJCJC=CCJJCJC & CJCJCJJ & CCJJCCJ:next:CCJJCJC=replace(CCJJCJC,CJCCJCJJ("L0N"),CJCCJCJJ(" ,")):CCJJCJC=replace(CCJJCJC,CJCCJCJJ("LIN"),CJCCJCJJ("Y")):CCJJCJC=replace(CCJJCJC,CJCCJCJJ("L:N"),CJCCJCJJ("^")):CJCJJJCC=trim(CCJJCJC)
end if
else
if Len(CCJJCCC) Mod 2=1 then CCJJCCC=CCJJCCC & CJCCJCJJ(" ,")
CCJJCCC=replace(CCJJCCC,CJCCJCJJ(" ,"),CJCCJCJJ("L0N")):CCJJCCC=replace(CCJJCCC,CJCCJCJJ("Y"),CJCCJCJJ("LIN")):CCJJCCC=replace(CCJJCCC,CJCCJCJJ("^"),CJCCJCJJ("L:N")):CCJJCJJ=len(CCJJCCC):for CJJCJCJ=1 to CCJJCJJ-1 step 2:CCJJCCJ=mid(CCJJCCC,CJJCJCJ,1):CJCJCJJ=mid(CCJJCCC,CJJCJCJ+1,1):CCJJCJC=CCJJCJC & CJCJCJJ & CCJJCCJ:next:CCJJCJC=Trim(strreverse(CCJJCJC)):CJCJJJCC=CCJJCJC:response.cookies(CJCJJJJ)=CCJJCJC
end if:End Function:Function CJCJJCJJ(str,CCJJJJCJ):if isnull(str) or str="" or CCJJJJCJ="" then
CJCJJCJJ=False:exit function
end if:Dim CJCJJCJ:Set CJCJJCJ = New RegExp:CJCJJCJ.Pattern = CCJJJJCJ:CJCJJCJ.IgnoreCase = True:CJCJJCJJ = CJCJJCJ.test(str):set CJCJJCJ=nothing:End Function:Sub ClearCache(CCJJJJCC):Application.Contents.Remove CCJJJJCC
End Sub::Class jTree:Private CCJCCJ, CCJCJJJ, CCJCJJC, CCJCJCJ,CCJCJCC,CCJCCJJ,CCJCCJC,CCJCCCJ:Private Sub Class_Initialize():CCJCJJC = 0:CCJCJCJ = 0:CCJCCCJ=10:End Sub:Public Property Let Table(value):if value="" then Call RedirectMessage(CJCCJCJJ("????????,;%C66????????????????????@??????????,"))
CCJCJCC=value:CCJCCJJ=CJCCJCJJ("!$*0") & UCase(CCJCJCC):Call GetTreeArray:End Property:Public Property Get Table():Table=CCJCJCC:End Property::Public Property Get Count():Count=CCJCJCJ-CCJCCCJ:End Property:Private Sub GetTreeArray():Dim CJJCJCJ, CJJCCCC, CCJCCCC,RecordCount:CCJCJJJ = Application(CCJCCJJ):If Not IsArray(CCJCJJJ) Then
CCJCCJ = CJCCJCJJ("D6=64E ,4@F?EW:5X ,7C@> ,") & CCJCJCC:if CCJCCJC<>"" then CCJCCJ=CCJCCJ & CJCCJCJJ(" ,H96C6 ,") & CCJCCJC
set CCJCCCC=CCJJCJ.execute(CCJCCJ):RecordCount=CCJCCCC(0):if RecordCount=0 then Call RedirectMessage(CJCCJCJJ("????W") & CCJCJCC & CJCCJCJJ("^") & CCJCCJC & CJCCJCJJ("X????????????"))
CCJCJCJ=RecordCount+CCJCCCJ:ReDim CCJCJJJ(CCJCJCJ, 4):CCJCCJ = CJCCJCJJ("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJCJCC & CJCCJCJJ(" ,H:E9 ,W?@=@4<X"):if CCJCCJC<>"" then CCJCCJ=CCJCCJ & CJCCJCJJ(" ,H96C6 ,") & CCJCCJC
CCJCCJ=CCJCCJ & CJCCJCJJ(" ,@C56C ,3J ,D@CE[:5"):set CCJCCCC=CCJJCJ.execute(CCJCCJ):For CJJCJCJ = 1 To RecordCount:For CJJCCCC = 0 To 4:CCJCJJJ(CJJCJCJ, CJJCCCC) = CCJCCCC(CJJCCCC):if IsNull(CCJCJJJ(CJJCJCJ,4)) then CCJCJJJ(CJJCJCJ,4)=0
If CCJCJJJ(CJJCJCJ,2)="" then CCJCJJJ(CJJCJCJ,2)=CJCCJCJJ(",??.")
Next:CCJCCCC.MoveNext:Next:CCJCCCC.Close: Set CCJCCCC = Nothing:for CJJCJCJ=CCJCJCJ-(CCJCCCJ-1) to CCJCJCJ:CCJCJJJ(CJJCJCJ,0)=CJJCJCJ:next:Application.Lock():Application(CCJCCJJ) = CCJCJJJ:Application.UnLock()
else
CCJCJCJ=Ubound(CCJCJJJ)
End If:End Sub:::::Private Function CJCJJCCC(CJCCJJJJ):dim CJJCJCJ,CCCJJJC:CJCJJCCC=0:CCCJJJC=CStr(CJCCJJJJ):if CCCJJJC<>"0" then
for CJJCJCJ=1 to CCJCJCJ:If CStr(CCJCJJJ(CJJCJCJ, 0))=CCCJJJC Then
CJCJJCCC = CJJCJCJ:Exit For
End If:Next
end if:End Function:Public Function CJCJCJJJ(CJCCJJJJ):if Cstr(CJCCJJJJ)="0" then
CJCJCJJJ=CJCCJCJJ("??")
else
Dim CJJCJCJ,CCJCCCC:CJJCJCJ=CJCJJCCC(CJCCJJJJ):if CJJCJCJ>0 then
CJCJCJJJ=CCJCJJJ(CJJCJCJ,2):if CJCJCJJJ="" then
set CCJCCCC=CCJJCJ.execute(CJCCJCJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJCJCC & CJCCJCJJ(" ,H96C6 ,:5l") & CJCCJJJJ):if CCJCCCC.eof then Call RedirectMessage(CJCCJCJJ("xs??,") & CJCCJJJJ & CJCCJCJJ("??,??????"))
CJCJCJJJ=CCJCCCC(1):Call UpdateCache(CJCCJJJJ,CCJCCCC(0),CJCJCJJJ,CCJCCCC(2),CCJCCCC(3)):CCJCCCC.Close: Set CCJCCCC = Nothing
end if
else
set CCJCCCC=CCJJCJ.execute(CJCCJCJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJCJCC & CJCCJCJJ(" ,H96C6 ,:5l") & CJCCJJJJ):if CCJCCCC.eof then Call RedirectMessage(CJCCJCJJ("xs??,") & CJCCJJJJ & CJCCJCJJ("??,??????"))
CJCJCJJJ=CCJCCCC(1):Call UpdateCache(CJCCJJJJ,CCJCCCC(0),CJCJCJJJ,CCJCCCC(2),CCJCCCC(3)):CCJCCCC.Close: Set CCJCCCC = Nothing
end if
end if:End Function:::Public Function CJCJCJJC(CJCCJJJJ):Dim CJJCJCJ,CCCJJCJ:CJJCJCJ=CJCJJCCC(CJCCJJJJ):if CJJCJCJ=0 then
CCCJJCJ=CJCJCJCJ(CJCCJJJJ)
else
CCCJJCJ=CCJCJJJ(CJJCJCJ,3):if isnull(CCCJJCJ) or CCCJJCJ="" then
CCCJJCJ=CJCJCJCJ(CJCCJJJJ)
elseif Mid(CCCJJCJ,instrrev(CCCJJCJ,CJCCJCJJ("["))+1)<>CStr(CJCCJJJJ) then
CCCJJCJ=CJCJCJCJ(CJCCJJJJ)
elseif Left(CCCJJCJ,1)=CJCCJCJJ("[") then
CCCJJCJ=CJCJCJCJ(CJCCJJJJ)
end if
end if:CJCJCJJC=CCCJJCJ:End Function:Private Function CJCJCJCJ(CJCCJJJJ):dim CCCJJJC:CCCJJJC=CStr(CJCCJJJJ):if CCCJJJC="0" then
CJCJCJCJ=""
else
dim CCJCCCC:set CCJCCCC=CCJJCJ.execute(CJCCJCJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJCJCC & CJCCJCJJ(" ,H96C6 ,:5l") & CJCCJJJJ):if CCJCCCC.eof then
Call UpdateCache(CJCCJJJJ,"","","",""):Call RedirectMessage(CJCCJCJJ("??????,xs??,") & CJCCJJJJ & CJCCJCJJ("??,????????,????????????????????,"))
else
if CCJCCCC(0)=0 then
CJCJCJCJ="0," & CJCCJJJJ
else
CJCJCJCJ=CJCJCJJC(CCJCCCC(0)) & CJCCJCJJ("[") & CJCCJJJJ
end if:if CCJCCCC(2)<>CJCJCJCJ then
CCJJCJ.execute CJCCJCJJ("FA52E6 ,") & CCJCJCC & CJCCJCJJ(" ,D6E ,A2E9lV") & CJCJCJCJ & CJCCJCJJ("V ,H96C6 ,:5l") & CJCCJJJJ
else
CJCJCJCJ=CCJCCCC(2)
end if
end if:Call UpdateCache(CJCCJJJJ,CCJCCCC(0),CCJCCCC(1),CJCJCJCJ,CCJCCCC(3)):CCJCCCC.Close: Set CCJCCCC = Nothing
end if:End Function::Public Function CJCJCJCC(CJCCJJJJ):CJCJCJCC = Mid(CJCJCJJC(CJCCJJJJ), 3):End Function:Public Function CJCJCCJJ(CJCCJJJJ):Dim CJJCJCJ, CJJCCCC, CCCJJCC,Str, CCCJJCJ, CJCCCJC, CJJCJCC():CCCJJCJ = CJCJCJCC(CJCCJJJJ):CCCJJCJ = Split(CCCJJCJ, CJCCJCJJ("[")):for CJJCJCJ=0 to Ubound(CCCJJCJ):CCCJJCC=CCCJJCJ(CJJCJCJ):str=str & CJCCJCJJ("M") & CCCJJCC & CJCCJCJJ("M") & CJCJCJJJ(CCCJJCC):next:if str<>"" then str=Mid(str,2)
CJCJCCJJ=str:End Function:::::::::Public Function Sql_GetChildren(CJCCJJJJ):dim CCCJJCJ:CCCJJCJ=CJCJCJJC(CJCCJJJJ):Sql_GetChildren = CCJCJCC & CJCCJCJJ("0A2E9ZV[V ,=:<6 ,V") & CCCJJCJ & CJCCJCJJ("[TV")
End Function:::Public Function GetPositionStr_From(CJCCJJJJ, CJCJCCCC):if isnull(CJCCJJJJ) or isnull(CJCJCCCC) then
GetPositionStr_From=CJCCJCJJ(",????????."):exit function
end if:Dim Str, CJJCJCJ, CJJCJCC, CJCCCJC, CCCJCJJ:CJCJCCCC = CStr(CJCJCCCC):If CJCJCCCC = "0" or CJCJCCCC = CStr(CJCCJJJJ) Then
Str = CJCJCJJJ(CJCCJJJJ)
Else
CJJCJCC = Split(CJCJCCJJ(CJCCJJJJ), CJCCJCJJ("M")):CJCCCJC = UBound(CJJCJCC):CCCJCJJ = False:For CJJCJCJ = 0 To CJCCCJC Step 2:If CJJCJCC(CJJCJCJ) = CJCJCCCC And Not CCCJCJJ Then CCCJCJJ = True
If CCCJCJJ Then
If Str <> "" Then Str = Str & CJCCJCJJ("??,")
Str = Str & CJJCJCC(CJJCJCJ + 1)
End If:Next
End If:str=Mid(str,instr(str,CJCCJCJJ("??,"))+1):GetPositionStr_From = Str:End Function:::::::Public Sub ClearCache():Application.Contents.Remove CCJCCJJ
End Sub:Public Sub UpdateCache(CJCCJJJJ,CCCJJCC,name,CCCJJCJ,CCJJJCCJ):dim CJJCJCJ,CJJCCCC:CJCCJJJJ=CLng(CJCCJJJJ):CJJCJCJ=CJCJJCCC(CJCCJJJJ):if CCCJJCC="" and name="" and CCCJJCJ="" and CCJJJCCJ="" then
if CJJCJCJ>0 then
for CJJCCCC=1 to 4:CCJCJJJ(CJJCJCJ,CJJCCCC)=Null:next
end if
else
if CJJCJCJ=0 then
for CJJCCCC=1 to CCJCJCJ:if CCJCJJJ(CJJCCCC,1) & ""="" then
CJJCJCJ=CJJCCCC:exit for
end if:next
end if:if CJJCJCJ=0 then
Call ClearCache
else
CCJCJJJ(CJJCJCJ,0)=CLng(CJCCJJJJ):if CCCJJCC<>"" then CCJCJJJ(CJJCJCJ,1)=CLng(CCCJJCC)
if name<>"" then CCJCJJJ(CJJCJCJ,2)=name
if CCCJJCJ<>"" then CCJCJJJ(CJJCJCJ,3)=CCCJJCJ
if CCJJJCCJ<>"" then CCJCJJJ(CJJCJCJ,4)=CLng(CCJJJCCJ)
end if
end if:if CJJCJCJ>0 then
Application.Lock():Application(CCJCCJJ) = CCJCJJJ:Application.UnLock()
end if:End Sub:Private Sub Debug(CCCCCCC):Call ConnClose:Response.Write CCCCCCC:Response.End:End Sub:Private Function CJJCJCJJ():CJJCJCJJ=CJCCJJJC+1:End Function:Private Function CJCCJJJC():dim CJCCJJJ:set CJCCJJJ=CCJJCJ.execute(CJCCJCJJ("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CCJCJCC & CJCCJCJJ(" ,@C56C ,3J ,:5 ,56D4")):CJCCJJJC=CJCCJJJ(0):CJCCJJJ.Close: Set CJCCJJJ = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::dim CJJCCJJ:CCJCCJ=Request.ServerVariables(CJCCJCJJ("!p%w0x}u~")):if instr(CCJCCJ,CJCCJCJJ("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CJJJJJJ and not CJJJCCC then Call RedirectMessage(CJCCJCJJ("????????,????????????????????????,"))
CJJCCJJ=CCCCJC
elseif instr(CCJCCJ,CJCCJCJJ("^>^D49@@=^DEF56?E^"))>0 or instr(CCJCCJ,CJCCJCJJ("^DEF56?E^"))>0 then
Call CheckLogined:CJJCCJJ=CCCCJC
elseif instr(CCJCCJ,CJCCJCJJ("^D49@@="))>0 then
CJJCCJJ=Request.QueryString(CJCCJCJJ("D49@@=")):if not CJJCJJCC(CJJCCJJ) then CJJCCJJ=Request.QueryString(CJCCJCJJ("F"))
if not CJJCJJCC(CJJCCJJ) then CJJCCJJ=Request.QueryString(CJCCJCJJ("D4"))
if not CJJCJJCC(CJJCCJJ) then Call RedirectMessage(CJCCJCJJ("????????W$49@@=X??@??????????,"))
CJJCCJJ=csng(CJJCCJJ)
end if:if CJJCCJJ=0 then Call RedirectMessage(CJCCJCJJ("????????W$49@@=X????W_X??,"))
Dim CCCJCJC:Call SetConfig:Sub SetConfig():dim CJJCJCC,CJCCJJJ:CCJCCJ=CJCCJCJJ("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") & CJJCCJJ:set CJCCJJJ=CCJJCJ.execute(CCJCCJ):if CJCCJJJ.eof then Call RedirectMessage(CJCCJCJJ("??W") & CCJCCC & CJCCJCJJ("X??????????W") & CJJCCJJ & CJCCJCJJ("X????????,"))
ReDim CJJCJCC(61):CJJCJCC(0)=CJCCJJJ(CJCCJCJJ(";:2@H6:")) & "":CJJCJCC(1)=CJCCJJJ(CJCCJCJJ("EJA6")):CJJCJCC(2)=CJCCJJJ(CJCCJCJJ("D>D")):CJJCJCC(3)=CJCCJJJ(CJCCJCJJ("4FDE@>8C@FA")) & "":CJJCJCC(4)=CJCCJJJ(CJCCJCJJ("D:5632C0@E96C")) & "":CJJCJCC(5)=IIf(isnull(CJCCJJJ(CJCCJCJJ("E6DEC6DF=EG:6H"))),0,CJCCJJJ(CJCCJCJJ("E6DEC6DF=EG:6H"))):CJJCJCC(6)=CJCCJJJ(CJCCJCJJ("K:IF?E:>6")):CJJCJCC(7)=CJCCJJJ(CJCCJCJJ("766")):CJJCJCC(8)=CJCCJJJ(CJCCJCJJ("C6E6DE52J")):CJJCJCC(9)=CJCCJJJ(CJCCJCJJ("6IA:C652E6")):CJJCJCC(10)=CJCCJJJ(CJCCJCJJ("E:E=6")):CJJCJCC(11)=CJCCJJJ(CJCCJCJJ(":?EC@")) & "":CJJCJCC(12)=CJCCJJJ(CJCCJCJJ("A:4EFC6")) & "":CJJCJCC(13)=CJCCJJJ(CJCCJCJJ("72>:=J")):CJJCJCC(14)=CJCCJJJ(CJCCJCJJ("4@AJC:89E")) & "":CJJCJCC(15)=IIf(isnull(CJCCJJJ(CJCCJCJJ("D6>6DE6C0DE2CE052E6"))),CJCCJCJJ("`h__\`\`"),CJCCJJJ(CJCCJCJJ("D6>6DE6C0DE2CE052E6"))):CJJCJCC(16)=IIf(isnull(CJCCJJJ(CJCCJCJJ("K:IF?0E:>6D09:89=:89E"))),0,CJCCJJJ(CJCCJCJJ("K:IF?0E:>6D09:89=:89E"))):CJJCJCC(17)=CJCCJJJ(CJCCJCJJ("4@?E24E")) & "":CJJCJCC(18)=CJCCJJJ(CJCCJCJJ("D2?5E23=6")):CJJCJCC(19)=CJCCJJJ(CJCCJCJJ("4C:D:D")):CJJCJCC(20)=CJCCJJJ(CJCCJCJJ("JJ52E6")):CJJCJCC(21)=CJCCJJJ(CJCCJCJJ("BB")):CJJCJCC(22)=CJCCJJJ(CJCCJCJJ("JFJF60D>D0EA=")) & "":CJJCJCC(23)=CJCCJJJ(CJCCJCJJ("JFJF60E6DE0=3")) & "":CJJCJCC(25)=CJCCJJJ(CJCCJCJJ("6IA6CE")):CJJCJCC(26)=CJCCJJJ(CJCCJCJJ(">@5:?7@")):CJJCJCC(27)=CJCCJJJ(CJCCJCJJ("9@>6A286E@AA:4EFC6")) & "":CJJCJCC(28)=CJCCJJJ(CJCCJCJJ("4C:D:D=3")):CJJCJCC(29)=IIf(CJCCJJJ(CJCCJCJJ("4C:D:D@=5")),False,True):CJJCJCC(30)=CJCCJJJ(CJCCJCJJ("8C@FA8F:52?46")):CJJCJCC(31)=CJCCJJJ(CJCCJCJJ("3:@7665324<")):CJJCJCC(32)=CJCCJJJ(CJCCJCJJ("<6JDEC")):CJJCJCC(33)=CJCCJJJ(CJCCJCJJ("=@8@")) & "":CJJCJCC(34)=CJCCJJJ(CJCCJCJJ("K:46")):CJJCJCC(35)=IIf(CJCCJJJ(CJCCJCJJ(":D?6H")),True,False):CJJCJCC(36)=121:CJJCJCC(37)=111:CJJCJCC(38)=160:CJJCJCC(39)=CJCCJJJ(CJCCJCJJ("8F6DE3@@<")):CJJCJCC(40)=CJCCJJJ(CJCCJCJJ("75D")):CJJCJCC(42)=CJCCJJJ(CJCCJCJJ("9@>6=@8:?")):CJJCJCC(43)=CJCCJJJ(CJCCJCJJ("K:IF?0?6657665324<")):CJJCJCC(44)=CJCCJJJ(CJCCJCJJ("K:IF?0E:>6D0=:>:E")):CJJCJCC(45)=CJCCJJJ(CJCCJCJJ("4@>A=6E60:?7@")):CJJCJCC(46)=CJCCJJJ(CJCCJCJJ("E6DE:?EC@")) & "":CJJCJCC(47)=IIf(isnull(CJCCJJJ(CJCCJCJJ("JFJF60367@C60E:>6"))),0,CJCCJJJ(CJCCJCJJ("JFJF60367@C60E:>6"))):CJJCJCC(49)=CJCCJJJ(CJCCJCJJ("D>D0C646:G6C")):CJJCJCC(50)=CJCCJJJ(CJCCJCJJ("D>D0D:8?")) & "":CJJCJCC(52)=CJCCJJJ(CJCCJCJJ("JFJF602CC2?86")):CJJCJCC(53)=IIf(isnull(CJCCJJJ(CJCCJCJJ("DEF56?E0BF6DE:@?04@F?E"))),0,CJCCJJJ(CJCCJCJJ("DEF56?E0BF6DE:@?04@F?E"))):CJJCJCC(54)=CJCCJJJ(CJCCJCJJ("9:560=30@FE@7286")):CJJCJCC(55)=CJCCJJJ(CJCCJCJJ("JFJF60E6DE052JD")):CJJCJCC(56)=CJCCJJJ(CJCCJCJJ("JFJF60H66<0=:>:E")):CJJCJCC(57)=CJCCJJJ(CJCCJCJJ("JFJF604964<65")):CJJCJCC(58)=CJCCJJJ(CJCCJCJJ("K:IF?0?6657665324<0?6IE")):CJJCJCC(59)=CJCCJJJ(CJCCJCJJ("4964<?6HDEF56?E")):CJJCJCC(60)=CJCCJJJ(CJCCJCJJ("K:IF?04=@D6052E6")):CJCCJJJ.close : set CJCCJJJ=nothing:if isNull(CJJCJCC(8)) or CJJCJCC(8)="" then CJJCJCC(8)=0
if isdate(CJJCJCC(9)) then
CJJCJCC(9)=cdate(CJJCJCC(9)):if CJJCJCC(9)<Date then Call RedirectMessage(CJCCJCJJ("????????,????????????????W") & CJJCJCC(9) & CJCCJCJJ("X??????,"))
end if:if not CJJCJJCC(CJJCJCC(20)) then CJJCJCC(20)=7
select case CJJCJCC(1):case 1,2,16:CJJCJCC(36)=159:case 4,5,6,10,11:CJJCJCC(36)=190:CJJCJCC(37)=178:CJJCJCC(38)=191:case 7,13:CJJCJCC(36)=164:CJJCJCC(37)=178:CJJCJCC(38)=179:end select:CCCJCJC=CJJCJCC:End Sub:Function CJJCJCCC(CCJJJJJC):dim CJJCJCC(7,1),CJJCJCJ,CCCJCCJ,CCCJCCC:CCCJCCJ=Array(CJCCJCJJ("$49@@="),CJCCJCJJ("$EF56?E"),CJCCJCJJ("s6AE"),CJCCJCJJ("vC256"),CJCCJCJJ("r=2DD>2E6"),CJCCJCJJ("}F>36C"),CJCCJCJJ("%62496C"),CJCCJCJJ("!2C6?E")):select case CCCJCJC(1):case 1,2 : CCCJCCC=Array(CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????")):case 3,16 : CCCJCCC=Array(CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????")):case 4 : CCCJCCC=Array(CJCCJCJJ("????"),CJCCJCJJ("??????@"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????")):case 5 : CCCJCCC=Array(CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????")):case 6 : CCCJCCC=Array(CJCCJCJJ("????"),CJCCJCJJ("??????@"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("??????"),CJCCJCJJ("????")):case 7 : CCCJCCC=Array(CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("??????"),CJCCJCJJ("????")):case 8 : CCCJCCC=Array(CJCCJCJJ("????"),CJCCJCJJ("??????@"),CJCCJCJJ("????"),CJCCJCJJ("????????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("??????"),CJCCJCJJ("????")):case 9 : CCCJCCC=Array(CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("??????"),CJCCJCJJ("????")):case 10 : CCCJCCC=Array(CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("??????"),CJCCJCJJ("????")):case 11 : CCCJCCC=Array(CJCCJCJJ("????"),CJCCJCJJ("??????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("??????"),CJCCJCJJ("????")):case 12 : CCCJCCC=Array(CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("??????"),CJCCJCJJ("????")):case 13 : CCCJCCC=Array(CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????")):case 14 : CCCJCCC=Array(CJCCJCJJ("??????"),CJCCJCJJ("??@??"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("??????"),CJCCJCJJ("????")):case 15 : CCCJCCC=Array(CJCCJCJJ("????"),CJCCJCJJ("????????"),CJCCJCJJ("????"),CJCCJCJJ("????????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("??????"),CJCCJCJJ("????")):case else : CCCJCCC=CCCJCCJ
end select:for CJJCJCJ=0 to Ubound(CJJCJCC):CJJCJCC(CJJCJCJ,0)=CCCJCCJ(CJJCJCJ):CJJCJCC(CJJCJCJ,1)=CCCJCCC(CJJCJCJ):next:for CJJCJCJ=0 to Ubound(CJJCJCC):if CJJCJCC(CJJCJCJ,0)=CCJJJJJC then
CJJCJCCC=CJJCJCC(CJJCJCJ,1):exit for
end if:next:End Function::Call CheckRight(14):dim CCCCJJJ,CCCCJJC,CCCCJCJ,CCCCJCC,CJCJCJC:CCCCJJC=Request.QueryString(CJCCJCJJ("24E")):CCCCJJJ=Request.QueryString(CJCCJCJJ("DEF56?E:5")):CCCCJCC=request.QueryString(CJCCJCJJ(":5=:DE")):CCCCJCJ=Request.QueryString(CJCCJCJJ("KK:5")):if not CJJCJJCC(CCCCJJJ) then Call RedirectMessage(CJCCJCJJ("????????,??????????????,"))
if CCCCJJC="" then CCCCJJC=CJCCJCJJ("255")
if CCCCJJC=CJCCJCJJ("255") then
set CCJCJJ=CCJJCJ.execute(CJCCJCJJ("D6=64E ,E@A ,` ,:5 ,7C@> ,4C:D:D042D6 ,H96C6 ,:5l") & CCCCJJJ):if not CCJCJJ.eof then
Call ConnClose:response.Redirect CJCCJCJJ("n24El>@5UDEF56?E:5l") & CCCCJJJ
end if
elseif CCCCJJC=CJCCJCJJ("FA52E6") then
if CJCJJCJJ(CCCCJCC,CJCCJCJJ("/W-5Z[XY-5ZS")) then
dim CCCCCJJ,CCCCCJC,CCCCCCJ:CCCCJCC=split(CCCCJCC,CJCCJCJJ("[")):for CJJCJCJ=0 to ubound(CCCCJCC):CCCCJJJ=CCCCJCC(CJJCJCJ):set CCJCJC=CCJJCJ.execute(CJCCJCJJ("D6=64E ,E@A ,` ,C6DF=E ,7C@> ,E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,=3l") & CCCJCJC(36) & CJCCJCJJ(" ,2?5 ,G2=:5l` ,2?5 ,>6>36Cl") & CCCCJJJ & CJCCJCJJ(" ,@C56C ,3J ,:5 ,56D4")):if CCJCJC.eof then CCCCCJJ=CJCCJCJJ("?F==") else CCCCCJJ=CCJCJC(0)
set CCJCJC=CCJJCJ.execute(CJCCJCJJ("D6=64E ,E@A ,` ,C6DF=E ,7C@> ,E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,=3l") & CCCJCJC(37) & CJCCJCJJ(" ,2?5 ,G2=:5l` ,2?5 ,>6>36Cl") & CCCCJJJ & CJCCJCJJ(" ,@C56C ,3J ,:5 ,56D4")):if CCJCJC.eof then CCCCCJC=CJCCJCJJ("?F==") else CCCCCJC=CCJCJC(0)
set CCJCJC=CCJJCJ.execute(CJCCJCJJ("D6=64E ,E@A ,` ,=6G6= ,7C@> ,4C:D:D06G2=F2E6 ,H96C6 ,>6>36Cl") & CCCCJJJ & CJCCJCJJ(" ,@C56C ,3J ,:5 ,56D4")):if CCJCJC.eof then CCCCCCJ=CJCCJCJJ("?F==") else CCCCCCJ=CCJCJC(0)
CCJCCJ=CJCCJCJJ("FA52E6 ,4C:D:D042D6 ,D6E ,=6G6=0KDBK7Il") & CCCCCJJ & CJCCJCJJ("[=6G6=02DEDl") & CCCCCJC & CJCCJCJJ("[=6G6=0CD2l") & CCCCCCJ & CJCCJCJJ(" ,H96C6 ,:5l") & CCCCJJJ:CCJJCJ.execute CCJCCJ:next
end if:Call ConnClose:response.End()
end if:dim CCJCJJJ:set CCJCJJJ =new jtree:CCJCJJJ.Table=CJCCJCJJ(">6>36C0EJA6"):if CCCCJJC=CJCCJCJJ("56=") and CJJJCCJC(20) then
set CCJCJJ=CCJJCJ.execute(CJCCJCJJ("D6=64E ,E@A ,` ,:5 ,7C@> ,G04C:D:D042D6 ,H96C6 ,:5l") & CCCCJJJ & CJCCJCJJ(" ,2?5 ,") & CCJCJJJ.sql_GetChildren(CCCJCJ)):if CCJCJJ.eof then
Call RedirectMessage(CJCCJCJJ("????????,????????????????????????,"))
else
CCJCCJ=CJCCJCJJ("56=6E6 ,7C@> ,4C:D:D042D60K9F:K@?8 ,H96C6 ,>6>36Cl") & CCCCJJJ  & CJCCJCJJ("j56=6E6 ,7C@> ,4C:D:D042D6 ,H96C6 ,:5l") & CCCCJJJ:CCJJCJ.execute CCJCCJ:Call InsertLog(3,CJCCJCJJ("????????W") & CCCCJJJ & CJCCJCJJ("X"))
end if:Call ConnClose:response.end
elseif CCCCJJC=CJCCJCJJ("56=KK") and CJJCJJCC(CCCCJCJ) and CJJJCCJC(20) then
CCJJCJ.execute CJCCJCJJ("56=6E6 ,7C@> ,4C:D:D042D60K9F:K@?8 ,H96C6 ,:5l") & CCCCJCJ:Call InsertLog(3,CJCCJCJJ("????????W") & CJCCJJJJ & CJCCJCJJ("X??????W") & CCCCJCJ & CJCCJCJJ("X")):if request.QueryString(CJCCJCJJ("KK=2DE"))=CJCCJCJJ("ECF6") then
set CCJCJJ=CCJJCJ.execute(CJCCJCJJ("D6=64E ,E@A ,` ,EJA6[DE2EFD[52E6E:>6[E62496C[IF6;:[H@C< ,7C@> ,4C:D:D042D60K9F:K@?8 ,H96C6 ,>6>36Cl") & CCCCJJJ & CJCCJCJJ(" ,@C56C ,3J ,:5 ,56D4")):if CCJCJJ.eof then
CCJCCJ=CJCCJCJJ("FA52E6 ,4C:D:D042D6 ,D6E") & CJCCJCJJ(" ,K9F:K@?80EJA6l?F==") & CJCCJCJJ("[K9F:K@?80DE2EFDl?F==") & CJCCJCJJ("[K9F:K@?8052E6E:>6l?F==") & CJCCJCJJ("[K9F:K@?80E62496Cl?F==") & CJCCJCJJ("[K9F:K@?80IF6;:l?F==") & CJCCJCJJ("[K9F:K@?80H@C<l?F==") & CJCCJCJJ(" ,H96C6 ,:5l") & CCCCJJJ
else
CCJCCJ=CJCCJCJJ("FA52E6 ,4C:D:D042D6 ,D6E") & CJCCJCJJ(" ,K9F:K@?80EJA6lV") & CCJCJJ(0) & CJCCJCJJ("V") & CJCCJCJJ("[K9F:K@?80DE2EFDlV") & CCJCJJ(1) & CJCCJCJJ("V") & CJCCJCJJ("[K9F:K@?8052E6E:>6lV") & CCJCJJ(2) & CJCCJCJJ("V") & CJCCJCJJ("[K9F:K@?80E62496ClV") & CCJCJJ(3) & CJCCJCJJ("V") & CJCCJCJJ("[K9F:K@?80IF6;:lV") & CCJCJJ(4) & CJCCJCJJ("V") & CJCCJCJJ("[K9F:K@?80H@C<lV") & CCJCJJ(5) & CJCCJCJJ("V") & CJCCJCJJ(" ,H96C6 ,:5l") & CCCCJJJ
end if:CCJJCJ.execute CCJCCJ
end if:Call ConnClose:response.end
elseif CCCCJJC=CJCCJCJJ("6IA@CE") then
CJCJCJC=CJCJJJCC(CJCCJCJJ("$""{"),""):if CJCJCJC<>"" then
dim str:str=CJCCJCJJ("????[????[????[????[????[") & CCCJCJC(3):if CCCJCJC(19) then str=str & CJCCJCJJ("[??????????,_Oc??,[??????????,_Oc??,[??????????,_Oc??,")
str=str & CJCCJCJJ("[????????[????[????????[????????[????????[????????[????????[????????"):CCJCCJ=CJCCJCJJ("D6=64E ,?F>36C[C62=?2>6[D6I[>6>36CEJA6?2>6[8C256[4FDE@>8C@FA"):If CCCJCJC(19) Then CCJCCJ=CCJCCJ & CJCCJCJJ("[=6G6=0KDBK7I[=6G6=02DED[=6G6=0CD2")
CCJCCJ=CCJCCJ & CJCCJCJJ("[52E6E:>6[E62496C[A2:4920EJA6[WD6=64E ,E@A ,` ,IF6;:ZV[VZH@C<ZV[VZDE2EFDZV[VZr~}'t#%WG2C492C[52E6E:>6[a_XZV[VZE62496C ,7C@> ,4C:D:D042D60K9F:K@?8 ,H96C6 ,>6>36Cl2]:5 ,@C56C ,3J ,:5 ,56D4X ,2D ,=2DEK9F:K@?8 ,7C@> ,G04C:D:D042D6 ,2 ,") & CJCJCJC
set CCJCJJ=CCJJCJ.execute(CCJCCJ):while not CCJCJJ.eof:str=str & vbcrlf & CJCCJCJJ("lQ") & CCJCJJ(0) & CJCCJCJJ("Q[") & CCJCJJ(1) & CJCCJCJJ("[") & IIf(CCJCJJ(2),CJCCJCJJ("??"),CJCCJCJJ("??")) & CJCCJCJJ("[") & CCJCJJ(3) & CJCCJCJJ("[") & CCJCJJ(4) & CJCCJCJJ("[") & CCJCJJ(5):if CCCJCJC(19) then str=str & CJCCJCJJ("[") & CCJCJJ(CJCCJCJJ("=6G6=0KDBK7I")) & CJCCJCJJ("[") & CCJCJJ(CJCCJCJJ("=6G6=02DED")) & CJCCJCJJ("[") & CCJCJJ(CJCCJCJJ("=6G6=0CD2"))
str=str & CJCCJCJJ("[") & CCJCJJ(CJCCJCJJ("52E6E:>6")) & CJCCJCJJ("[") & CCJCJJ(CJCCJCJJ("E62496C")) & CJCCJCJJ("[") & CCJCJJ(CJCCJCJJ("A2:4920EJA6")) & CJCCJCJJ("[") & CCJCJJ(CJCCJCJJ("=2DEK9F:K@?8")):CCJCJJ.movenext:wend:Call StringDown(CJCCJCJJ("rC:D:Dr2D60tIA@CE]4DG"),str)
else
Call RedirectMessage(CJCCJCJJ("????????,??????????,"))
end if:Call ConnClose:response.End()
end if:If Request.ServerVariables(CJCCJCJJ("#t""&t$%0|t%w~s")) = CJCCJCJJ("!~$%") Then
dim CCCCCCC:if CCCCJJC=CJCCJCJJ("255") then
CCJCCJ=CJCCJCJJ("FA52E6 ,>6>36C ,D6E ,2?DH6ClV") & CJCCJJCJ & CJCCJCJJ("V ,H96C6 ,:5l") & CCCCJJJ
CCJCCJ=CCJCCJ & CJCCJCJJ("j:?D6CE ,:?E@ ,4C:D:D042D6W:5[52E6E:>6[A2:492[A2:4920562=[A2:4920EJA6[E62496CX ,G2=F6DW") & CCCCJJJ  & CJCCJCJJ("[86E52E6WX") & CJCCJCJJ("[V") & CJJJCCCJ(Request.Form(CJCCJCJJ("A2:492"))) & CJCCJCJJ("V") & CJCCJCJJ("[V") & CJJJCCCJ(Request.Form(CJCCJCJJ("A2:4920562="))) & CJCCJCJJ("V") & CJCCJCJJ("[V") & CJJJCCCJ(Request.Form(CJCCJCJJ("A2:4920EJA6"))) & CJCCJCJJ("V") & CJCCJCJJ("[V") & CJJJJCC & CJCCJCJJ("V") & CJCCJCJJ("X")
CCJJCJ.execute CCJCCJ:set CCJCJJ=CCJJCJ.execute(CJCCJCJJ("D6=64E ,E@A ,` ,?F>36C[C62=?2>6 ,7C@> ,>6>36C ,H96C6 ,:5l") & CCCCJJJ):CCCCCCC=CJCCJCJJ("??????????,??????,") & CCJCJJ(1) & CJCCJCJJ("??,") & CJJCJCCC(CJCCJCJJ("}F>36C")) & CJCCJCJJ("??,") & CCJCJJ(0) & CJCCJCJJ("??,????????????,"):Call SendSystemMessage(CJCJJJCJ(CJJCCJJ,119),CJCCJCJJ("????????????????????"),CCCCCCC)
elseif CCCCJJC=CJCCJCJJ(">@5") then
dim CJJJJJJJ,CJJJJJJC,CJJJJJCJ,CJJJJJCC,CJJJJCJJ,CJJJJCJC:CJJJJJJJ=CJJJCCCJ(Request.Form(CJCCJCJJ("KK04@?E6?E"))):CJJJJJJC=CJJJCCCJ(Request.Form(CJCCJCJJ("KK0562="))):CJJJJJCJ=CJJJCCCJ(Request.Form(CJCCJCJJ("KK0EJA6"))):CJJJJJCC=CJJJCCCJ(Request.Form(CJCCJCJJ("KK0DE2EFD"))):CJJJJCJJ=CJJJCCCJ(Request.Form(CJCCJCJJ("KK0IF6;:"))):CJJJJCJC=CJJJCCCJ(Request.Form(CJCCJCJJ("KK0H@C<"))):CCJCCJ=CJCCJCJJ("FA52E6 ,>6>36C ,D6E ,2?DH6ClV") & CJCCJJCJ & CJCCJCJJ("V ,H96C6 ,:5l") & CCCCJJJ
CCJCCJ=CCJCCJ & CJCCJCJJ("jFA52E6 ,4C:D:D042D6 ,D6E") & CJCCJCJJ(" ,A2:492lV") & CJJJCCCJ(Request.Form(CJCCJCJJ("A2:492"))) & CJCCJCJJ("V") & CJCCJCJJ("[A2:4920562=lV") & CJJJCCCJ(Request.Form(CJCCJCJJ("A2:4920562="))) & CJCCJCJJ("V") & CJCCJCJJ("[A2:4920EJA6lV") & CJJJCCCJ(Request.Form(CJCCJCJJ("A2:4920EJA6"))) & CJCCJCJJ("V") & CJCCJCJJ("[E62496ClV") & CJJJJCC & CJCCJCJJ("V")
if CJJJJJJJ<>"" and CJJJJJJC<>"" then
CCJCCJ=CCJCCJ & CJCCJCJJ("[K9F:K@?80EJA6lV") & CJJJJJCJ & CJCCJCJJ("V") & CJCCJCJJ("[K9F:K@?80DE2EFDlV") & CJJJJJCC & CJCCJCJJ("V") & CJCCJCJJ("[K9F:K@?8052E6E:>6l86E52E6WX") & CJCCJCJJ("[K9F:K@?80E62496ClV") & CJJJJCC & CJCCJCJJ("V") & CJCCJCJJ("[K9F:K@?80IF6;:lV") & CJJJJCJJ & CJCCJCJJ("V") & CJCCJCJJ("[K9F:K@?80H@C<lV") & CJJJJCJC & CJCCJCJJ("V")
end if:CCJCCJ=CCJCCJ & CJCCJCJJ(" ,H96C6 ,:5l") & CCCCJJJ:if CJJJJJJJ<>"" and CJJJJJJC<>"" then
CCJCCJ=CCJCCJ & CJCCJCJJ("j:?D6CE ,:?E@ ,4C:D:D042D60K9F:K@?8W4@?E6?E[562=[EJA6[DE2EFD[IF6;:[H@C<[E62496C[52E6E:>6[>6>36CX ,G2=F6DW") & CJCCJCJJ("V") & CJJJJJJJ & CJCCJCJJ("V") & CJCCJCJJ("[V") & CJJJJJJC & CJCCJCJJ("V") & CJCCJCJJ("[V") & CJJJJJCJ & CJCCJCJJ("V") & CJCCJCJJ("[V") & CJJJJJCC & CJCCJCJJ("V") & CJCCJCJJ("[V") & CJJJJCJJ & CJCCJCJJ("V") & CJCCJCJJ("[V") & CJJJJCJC & CJCCJCJJ("V") & CJCCJCJJ("[V") & CJJJJCC & CJCCJCJJ("V") & CJCCJCJJ("[86E52E6WX") & CJCCJCJJ("[") & CCCCJJJ  & CJCCJCJJ("X")
end if:CCJJCJ.execute CCJCCJ:if CJJJJJJJ<>"" and CJJJJJJC<>"" then
set CCJCJJ=CCJJCJ.execute(CJCCJCJJ("D6=64E ,E@A ,` ,?F>36C[C62=?2>6[EJA6 ,7C@> ,>6>36C ,H96C6 ,:5l") & CCCCJJJ):CCCCCCC=CJCCJCJJ("??????????????,??????,") & CCJCJJ(1) & CJCCJCJJ("??,") & CJJCJCCC(CJCCJCJJ("}F>36C")) & CJCCJCJJ("??,") & CCJCJJ(0) & CJCCJCJJ("??,????????????,"):Call SendSystemMessage(CJCJJJCJ(CJJCCJJ,119),CJCCJCJJ("????????????????????"),CCCCCCC):if request.form(CJCCJCJJ("D>D"))=CJCCJCJJ("~}") then
if not CCCJCJC(2) then
Call RedirectMessage(CJCCJCJJ("??????????????????,????????????????????????????,????????????????,"))
elseif not CJJCJJJJ(CCCJCJC(49)) then
Call RedirectMessage(CJCCJCJJ("??????????????????,??????????????????????????????,????????????????,"))
else
CCCCCCC=CCCJCJC(50) & CCJCJJ(1) & CJCCJCJJ("??,") & CCJCJJ(0) & CJCCJCJJ("??,??????????,") & Request.Form(CJCCJCJJ("A2:4920EJA6")) & CJCCJCJJ("??,??????????,") & CJJJJJCJ & CJCCJCJJ("??,??????????,") & CJJJJJCC & CJCCJCJJ("??,????????????,"):Call SMS(CCCJCJC(49),CCCCCCC)
end if
end if
end if
end if:Call ConnClose:Response.Redirect CJCJJJCC(CJCCJCJJ("&#{"),"")
End If:if CCCCJJC=CJCCJCJJ(">@5") then Call PutFormJson(CJCCJCJJ("D6=64E ,E@A ,` ,Y ,7C@> ,4C:D:D042D6 ,H96C6 ,:5l") & CCCCJJJ)
function CJCCJJCJ():dim CJJJJCCJ,CJJCJCJ,CJCJCJC,CJJJJCCC:CJJJJCCJ=cint(request.Form(CJCCJCJJ("B?F>"))):for CJJCJCJ=1 to CJJJJCCJ:CJCJCJC=CJJJCCCJ(Request.Form(CJCCJCJJ("B0") & CJJCJCJ)):if CJCJCJC<>"" then
CJCJCJC=replace(CJCJCJC,CJCCJCJJ("M"),""):CJCJCJC=replace(CJCJCJC,CJCCJCJJ(" ,"),""):CJJJJCCC=CJJJJCCC & CJCCJCJJ("M") & CJJCJCJ & CJCCJCJJ("M") & CJCJCJC
end if:next:if CJJJJCCC<>"" then CJJJJCCC=Mid(CJJJJCCC,2)
CJCCJJCJ=CJJJJCCC:end function:Response.Write(vbCrLf):Response.Write(CJCCJCJJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJCCJCJJ("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJCCJCJJ("k9625m") & vbCrLf):Response.Write(CJCCJCJJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJCCJCJJ("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJCCJCJJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJCCJCJJ("kE:E=6m????????????k^E:E=6m") & vbCrLf):Response.Write(CJCCJCJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CJCCJCJJ("k^9625m") & vbCrLf):Response.Write(CJCCJCJJ("k3@5Jm") & vbCrLf):Response.Write(CJCCJCJJ("k7@C> ,?2>6lQ7@C>`Q ,>6E9@5lQA@DEQ ,24E:@?lQQm") & vbCrLf):Response.Write(CJCCJCJJ(" ,")):set CCJCJJ=CCJJCJ.execute(CJCCJCJJ("D6=64E ,E@A ,` ,Y ,7C@> ,G0>6>36C ,H96C6 ,:5l") & CCCCJJJ):Response.Write(vbCrLf):Response.Write(CJCCJCJJ(" ,kE23=6 ,4=2DDlQE30E:E=6Qm") & vbCrLf):Response.Write(CJCCJCJJ(" ,kECm") & vbCrLf):Response.Write(CJCCJCJJ(" ,kE9 ,C@HDA2?lQaQm????????k^E9m") & vbCrLf):Response.Write(CJCCJCJJ(" ,kE5 ,4=2DDlQ=236=Qm???? ,k^E5m") & vbCrLf):Response.Write(CJCCJCJJ(" ,kE5m")):Response.Write  CCJCJJ(CJCCJCJJ("C62=?2>6")):Response.Write(CJCCJCJJ("k^E5m") & vbCrLf):Response.Write(CJCCJCJJ(" ,kE5 ,4=2DDlQ=236=Qm")):Response.Write  CJJCJCCC(CJCCJCJJ("}F>36C")):Response.Write(CJCCJCJJ("k^E5m") & vbCrLf):Response.Write(CJCCJCJJ(" ,kE5m")):Response.Write  CCJCJJ(CJCCJCJJ("?F>36C")):Response.Write(CJCCJCJJ("k^E5m") & vbCrLf):Response.Write(CJCCJCJJ(" ,kE5 ,4=2DDlQ=236=Qm????k^E5m") & vbCrLf):Response.Write(CJCCJCJJ(" ,kE5m")):Response.Write  CCJCJJ(CJCCJCJJ("D6I?2>6")):Response.Write(CJCCJCJJ("k^E5m") & vbCrLf):Response.Write(CJCCJCJJ(" ,kE5 ,4=2DDlQ=236=Qm")):Response.Write  CJJCJCCC(CJCCJCJJ("s6AE")):Response.Write(CJCCJCJJ("k^E5m") & vbCrLf):Response.Write(CJCCJCJJ(" ,kE5m")):Response.Write  CCJCJJJ.GetPositionStr_From(CCJCJJ(CJCCJCJJ("EJA6")),CJJCCJJ):Response.Write(CJCCJCJJ("k^E5m") & vbCrLf):Response.Write(CJCCJCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCJCJJ(" ,kECm") & vbCrLf):Response.Write(CJCCJCJJ(" ,kE5 ,4=2DDlQ=236=Qm????k^E5m") & vbCrLf):Response.Write(CJCCJCJJ(" ,kE5m")):Response.Write  CCJCJJ(CJCCJCJJ(">@3:=6")):Response.Write(CJCCJCJJ("k^E5m") & vbCrLf):Response.Write(CJCCJCJJ(" ,kE5 ,4=2DDlQ=236=Qm????????^??????k^E5m") & vbCrLf):Response.Write(CJCCJCJJ(" ,kE5m")):Response.Write  CCJCJJ(CJCCJCJJ("255C6DD")):Response.Write(CJCCJCJJ("k^E5m") & vbCrLf):Response.Write(CJCCJCJJ(" ,kE5 ,4=2DDlQ=236=Qm????????k^E5m") & vbCrLf):Response.Write(CJCCJCJJ(" ,kE5m")):Response.Write  CCJCJJ(CJCCJCJJ("3:CE952J")):Response.Write(CJCCJCJJ("k^E5m") & vbCrLf):Response.Write(CJCCJCJJ(" ,kE5 ,4=2DDlQ=236=Qm????k^E5m") & vbCrLf):Response.Write(CJCCJCJJ(" ,kE5m")):Response.Write  CJJCCCCJ(CJCCJCJJ(">6>36C08C256"),CJJCCJJ,CCJCJJ(CJCCJCJJ("8C256"))):Response.Write(CJCCJCJJ("k^E5m") & vbCrLf):Response.Write(CJCCJCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCJCJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJCCJCJJ(" ,k3Cm") & vbCrLf):Response.Write(CJCCJCJJ(" ,k7:6=5D6Em") & vbCrLf):Response.Write(CJCCJCJJ(" ,k=686?5m????????k^=686?5m") & vbCrLf):Response.Write(CJCCJCJJ(" ,kF= ,4=2DDlQ4C:D:D\=:?<Qm") & vbCrLf):Response.Write(CJCCJCJJ(" ,k=:mk2 ,4=2DDlQH:?Q ,52E2\H:?D:K6lQ,hd_[cd_.Q ,9C67lQ:?E6CG:6H]2DAnDEF56?E:5l")):Response.Write  CCCCJJJ:Response.Write(CJCCJCJJ("U?F>l")):Response.Write  CCJCJJ(CJCCJCJJ("?F>36C")):Response.Write(CJCCJCJJ("U!@DEl`Qm????????k^2mk^=:m") & vbCrLf):Response.Write(CJCCJCJJ(" ,k=:mk2 ,4=2DDlQH:?Q ,52E2\H:?D:K6lQ,hd_[cd_.Q ,9C67lQE6DE0>6>36C]2DAn|l")):Response.Write  CCCCJJJ:Response.Write(CJCCJCJJ("Qm????????k^2mk^=:m") & vbCrLf):Response.Write(CJCCJCJJ(" ,k=:mk2 ,4=2DDlQH:?Q ,52E2\H:?D:K6lQ,hd_[cd_.Q ,9C67lQK:IF?024E]2DAn24ElG:6HUDEF56?E:5l")):Response.Write  CCCCJJJ:Response.Write(CJCCJCJJ("UH:?l`Qm????????k^2mk^=:m") & vbCrLf):Response.Write(CJCCJCJJ(" ,")):If CCCJCJC(19) Then
Response.Write(vbCrLf):Response.Write(CJCCJCJJ(" ,k=:mk2 ,4=2DDlQH:?Q ,52E2\H:?D:K6lQ,hd_[cd_.Q ,9C67lQ4C:D:D0`DE]2DAnDEF56?E:5l")):Response.Write  CCCCJJJ:Response.Write(CJCCJCJJ("U!@DEl`Qm????????????k^2mk^=:m") & vbCrLf):Response.Write(CJCCJCJJ(" ,k=:mk2 ,4=2DDlQH:?Q ,52E2\H:?D:K6lQ,hd_[cd_.Q ,9C67lQ4C:D:D0a?5]2DAnDEF56?E:5l")):Response.Write  CCCCJJJ:Response.Write(CJCCJCJJ("U!@DEl`Qm????????????k^2mk^=:m") & vbCrLf):Response.Write(CJCCJCJJ(" ,k=:mk2 ,4=2DDlQH:?Q ,52E2\H:?D:K6lQ,hd_[cd_.Q ,9C67lQ4C:D:D0bC5]2DAnDEF56?E:5l")):Response.Write  CCCCJJJ:Response.Write(CJCCJCJJ("U!@DEl`Qm????????k^2mk^=:m") & vbCrLf):Response.Write(CJCCJCJJ(" ,k=:mk2 ,4=2DDlQH:?Q ,52E2\H:?D:K6lQ,hd_[cd_.Q ,9C67lQ4@?DF=E2E:@?]2DAnDEF56?E:5l")):Response.Write  CCCCJJJ:Response.Write(CJCCJCJJ("Qm????k^2mk^=:m") & vbCrLf):Response.Write(CJCCJCJJ(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CJCCJCJJ(" ,k^F=m") & vbCrLf):Response.Write(CJCCJCJJ(" ,k^7:6=5D6Em") & vbCrLf):Response.Write(CJCCJCJJ(" ,k7:6=5D6Em") & vbCrLf):Response.Write(CJCCJCJJ(" ,k=686?5m??,??????k^=686?5m") & vbCrLf):Response.Write(CJCCJCJJ(" ,")):dim CJJJCJJJ,CJJCCCC,CJJJCJJC,CJJJJCCJ,CJJJCJCJ,CJJCJCJ:CJJJCJJC=CCJCJJ(CJCCJCJJ("2?DH6C")):set CCJCJJ=CCJJCJ.execute(CJCCJCJJ("D6=64E ,:5[BF6DE:@?[2?DH6C[EJA6 ,7C@> ,>6>36C0BF6DE:@? ,H96C6 ,D49@@=l") & IIf(CCCJCJC(53)=0,0,CJJCCJJ) & CJCCJCJJ(" ,@C56C ,3J ,D@CE")):CJJCJCJ=1:CJJJJCCJ=0:response.Write CJCCJCJJ("kE23=6 ,H:5E9lV`__TV ,:5lV2?DH6CVmkECm")
while not CCJCJJ.eof:CJJJCJCJ=CCJCJJ(0):if CJJJCJCJ>CJJJJCCJ then CJJJJCCJ=CJJJCJCJ
response.Write vbcrlf & CJCCJCJJ("kE5m") & CJJCJCJ & CJCCJCJJ("??,") & CCJCJJ(1) & CJCCJCJJ("k^E5mkE5m"):select case CCJCJJ(3):case 0:CJJJCJJJ=split(CCJCJJ(2),CJCCJCJJ("M")):CJCJCJC=CJJCCCCC(CJJJCJJC,CJJJCJCJ):for CJJCCCC=0 to ubound(CJJJCJJJ):response.Write CJCCJCJJ("k=236=mk:?AFE ,EJA6lVC25:@V ,?2>6lVB0") & CJJJCJCJ & CJCCJCJJ("V ,G2=F6lV") & CJJJCJJJ(CJJCCCC) & CJCCJCJJ("V") & IIf(CJJJCJJJ(CJJCCCC)=CJCJCJC,CJCCJCJJ(" ,4964<65"),"") & CJCCJCJJ("m") & CJJJCJJJ(CJJCCCC) & CJCCJCJJ("k^=236=m ,")
next:case 1:CJJJCJJJ=split(CCJCJJ(2),CJCCJCJJ("M")):CJCJCJC=CJJCCCCC(CJJJCJJC,CJJJCJCJ):for CJJCCCC=0 to ubound(CJJJCJJJ):response.Write CJCCJCJJ("k=236=mk:?AFE ,EJA6lV4964<3@IV ,?2>6lVB0") & CJJJCJCJ & CJCCJCJJ("V ,G2=F6lV") & CJJJCJJJ(CJJCCCC) & CJCCJCJJ("V") & IIf(CJJJCJJJ(CJJCCCC)=CJCJCJC,CJCCJCJJ(" ,4964<65"),"") & CJCCJCJJ("m") & CJJJCJJJ(CJJCCCC) & CJCCJCJJ("k^=236=m ,")
next:case 2:response.Write CJCCJCJJ("k:?AFE ,EJA6lVE6IEV ,4=2DDlVE6IEV ,?2>6lVB0") & CJJJCJCJ & CJCCJCJJ("V ,G2=F6lV") & CJJCCCCC(CJJJCJJC,CJJJCJCJ) & CJCCJCJJ("Vm")
case 3:response.Write CJCCJCJJ("kE6IE2C62 ,4=2DDlVE6IEV ,?2>6lVB0") & CJJJCJCJ & CJCCJCJJ("V ,4@=DlVb_V ,C@HDlV`Vmk^E6IE2C62m")
end select:response.Write CJCCJCJJ("k^E5m"):if CJJCJCJ mod 2=0 then response.Write CJCCJCJJ("k^ECmkECm")
CCJCJJ.movenext:CJJCJCJ=CJJCJCJ+1:wend:response.Write CJCCJCJJ("k^ECmk^E23=6m"):response.Write CJCCJCJJ("k:?AFE ,EJA6lV9:556?V ,?2>6lVB?F>V ,G2=F6lV") & CJJJJCCJ & CJCCJCJJ("Vm")
Response.Write(vbCrLf):Response.Write(CJCCJCJJ(" ,k^7:6=5D6Em") & vbCrLf):Response.Write(CJCCJCJJ(" ,k7:6=5D6Em") & vbCrLf):Response.Write(CJCCJCJJ(" ,k=686?5m??????????,??????@??????????????????,k^=686?5m") & vbCrLf):Response.Write(CJCCJCJJ(" ,kE23=6 ,H:5E9lQ`__TQm") & vbCrLf):Response.Write(CJCCJCJJ(" ,kECm") & vbCrLf):Response.Write(CJCCJCJJ(" ,kE5 ,H:5E9lQg_Q ,G2=:8?lQE@AQm??????@????,k^E5m") & vbCrLf):Response.Write(CJCCJCJJ(" ,kE5mkE6IE2C62 ,?2>6lQA2:492Q ,DEJ=6lQH:5E9i`__TjQ ,E:E=6lQ??????????,????????????????,UR`bj??????????@????,??????@??????????,UR`bj???????? ,???????? ,???????? ,????????UR`bj??????????????????????,??????????????,??????????????????????,????^????^??????,??,??????,??????,??????,????????????,Qmk^E6IE2C62mk^E5m") & vbCrLf):Response.Write(CJCCJCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCJCJJ(" ,kECm") & vbCrLf):Response.Write(CJCCJCJJ(" ,kE5 ,G2=:8?lQE@AQm??????????,k^E5m") & vbCrLf):Response.Write(CJCCJCJJ(" ,kE5mkE6IE2C62 ,?2>6lQA2:4920562=Q ,DEJ=6lQH:5E9i`__TjQ ,E:E=6lQ??????????@????,??????????@????,??????????????????????,??????????????????????,????????????@????,??????????@??????????????????????@????,Qmk^E6IE2C62mk^E5m") & vbCrLf):Response.Write(CJCCJCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCJCJJ(" ,kECm") & vbCrLf):Response.Write(CJCCJCJJ(" ,kE5m??????????,k^E5m") & vbCrLf):Response.Write(CJCCJCJJ(" ,kE5m") & vbCrLf):Response.Write(CJCCJCJJ(" ,kD6=64E ,?2>6lQA2:4920EJA6Qm") & vbCrLf):Response.Write(CJCCJCJJ(" ,k@AE:@?m????????k^@AE:@?m") & vbCrLf):Response.Write(CJCCJCJJ(" ,k@AE:@?m????????k^@AE:@?m") & vbCrLf):Response.Write(CJCCJCJJ(" ,k@AE:@?m????????k^@AE:@?m") & vbCrLf):Response.Write(CJCCJCJJ(" ,k@AE:@?m????@????k^@AE:@?m") & vbCrLf):Response.Write(CJCCJCJJ(" ,k@AE:@?m????????k^@AE:@?m") & vbCrLf):Response.Write(CJCCJCJJ(" ,k@AE:@?m??@??????k^@AE:@?m") & vbCrLf):Response.Write(CJCCJCJJ(" ,k@AE:@?m????????@k^@AE:@?m") & vbCrLf):Response.Write(CJCCJCJJ(" ,k^D6=64Em") & vbCrLf):Response.Write(CJCCJCJJ(" ,k^E5m") & vbCrLf):Response.Write(CJCCJCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCJCJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJCCJCJJ(" ,k^7:6=5D6Em") & vbCrLf):Response.Write(CJCCJCJJ(" ,")):If CCCCJJC=CJCCJCJJ(">@5") Then
Response.Write(vbCrLf):Response.Write(CJCCJCJJ(" ,k7:6=5D6Em") & vbCrLf):Response.Write(CJCCJCJJ(" ,k=686?5m??????@????,??????????????????????????,k^=686?5m") & vbCrLf):Response.Write(CJCCJCJJ(" ,")):CJJCJCJ=1:set CCJCJJ=CCJJCJ.execute(CJCCJCJJ("D6=64E ,:5[4@?E6?E[562=[EJA6[52E6E:>6[DE2EFD[E62496C[IF6;:[,H@C<. ,7C@> ,4C:D:D042D60K9F:K@?8 ,H96C6 ,>6>36Cl") & CCCCJJJ & CJCCJCJJ(" ,@C56C ,3J ,:5")):while not CCJCJJ.eof:Response.Write(vbCrLf):Response.Write(CJCCJCJJ(" ,kE23=6 ,H:5E9lQ`__TQm") & vbCrLf):Response.Write(CJCCJCJJ(" ,kEC ,DEJ=6lQ5:DA=2Ji?@?6jQm") & vbCrLf):Response.Write(CJCCJCJJ(" ,kE5 ,4@=DA2?lQaQmk:?AFE ,EJA6lQ3FEE@?Q ,4=2DDlQ3FEE@? ,3E?056=KKQ ,G2=F6lQ?? ,??Q ,52E2\:5lQ")):Response.Write  CCJCJJ(0):Response.Write(CJCCJCJJ("Q ,")):Response.Write  IIf(CJJCJCJ=1,CJCCJCJJ("52E2\=2DElVECF6V"),"")
Response.Write(CJCCJCJJ("mk^E5m") & vbCrLf):Response.Write(CJCCJCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCJCJJ(" ,kECm") & vbCrLf):Response.Write(CJCCJCJJ(" ,kE5 ,H:5E9lQg_Qm??????????,k^E5m") & vbCrLf):Response.Write(CJCCJCJJ(" ,kE5m")):Response.Write  CCJCJJ(4):Response.Write(CJCCJCJJ("k^E5m") & vbCrLf):Response.Write(CJCCJCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCJCJJ(" ,kECm") & vbCrLf):Response.Write(CJCCJCJJ(" ,kE5m??????????,k^E5m") & vbCrLf):Response.Write(CJCCJCJJ(" ,kE5m")):Response.Write  CCJCJJ(6):Response.Write(CJCCJCJJ("k^E5m") & vbCrLf):Response.Write(CJCCJCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCJCJJ(" ,kECm") & vbCrLf):Response.Write(CJCCJCJJ(" ,kE5 ,G2=:8?lQE@AQm??????@????,k^E5m") & vbCrLf):Response.Write(CJCCJCJJ(" ,kE5m")):Response.Write  CCJCJJ(1):Response.Write(CJCCJCJJ("k^E5m") & vbCrLf):Response.Write(CJCCJCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCJCJJ(" ,kECm") & vbCrLf):Response.Write(CJCCJCJJ(" ,kE5 ,G2=:8?lQE@AQm??????????,k^E5m") & vbCrLf):Response.Write(CJCCJCJJ(" ,kE5m")):Response.Write  CCJCJJ(2):Response.Write(CJCCJCJJ("k^E5m") & vbCrLf):Response.Write(CJCCJCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCJCJJ(" ,kECm") & vbCrLf):Response.Write(CJCCJCJJ(" ,kE5m??????????,k^E5m") & vbCrLf):Response.Write(CJCCJCJJ(" ,kE5m")):Response.Write  CCJCJJ(3):Response.Write(CJCCJCJJ("k^E5m") & vbCrLf):Response.Write(CJCCJCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCJCJJ(" ,kECm") & vbCrLf):Response.Write(CJCCJCJJ(" ,kE5m??????????,k^E5m") & vbCrLf):Response.Write(CJCCJCJJ(" ,kE5m")):Response.Write  CCJCJJ(7):Response.Write(CJCCJCJJ("k^E5m") & vbCrLf):Response.Write(CJCCJCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCJCJJ(" ,kECm") & vbCrLf):Response.Write(CJCCJCJJ(" ,kE5m??????????,k^E5m") & vbCrLf):Response.Write(CJCCJCJJ(" ,kE5m")):Response.Write  CCJCJJ(8):Response.Write(CJCCJCJJ("k^E5m") & vbCrLf):Response.Write(CJCCJCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCJCJJ(" ,kECm") & vbCrLf):Response.Write(CJCCJCJJ(" ,kE5m??????????,k^E5m") & vbCrLf):Response.Write(CJCCJCJJ(" ,kE5m")):Response.Write  CCJCJJ(5):Response.Write(CJCCJCJJ("k^E5m") & vbCrLf):Response.Write(CJCCJCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCJCJJ(" ,kECm") & vbCrLf):Response.Write(CJCCJCJJ(" ,kE5 ,4@=DA2?lQaQmk9C ,D:K6lQ`Qmk^E5m") & vbCrLf):Response.Write(CJCCJCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCJCJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJCCJCJJ(" ,")):CCJCJJ.movenext:CJJCJCJ=CJJCJCJ+1:wend:Response.Write(vbCrLf):Response.Write(CJCCJCJJ(" ,kE23=6 ,H:5E9lQ`__TQm") & vbCrLf):Response.Write(CJCCJCJJ(" ,kECm") & vbCrLf):Response.Write(CJCCJCJJ(" ,kE5 ,H:5E9lQg_Qm??????????,k^E5m") & vbCrLf):Response.Write(CJCCJCJJ(" ,kE5m??,??????@????,????,??????????,????????????????????@??????????????k^E5m") & vbCrLf):Response.Write(CJCCJCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCJCJJ(" ,kECm") & vbCrLf):Response.Write(CJCCJCJJ(" ,kE5 ,G2=:8?lQE@AQm??????@????,k^E5m") & vbCrLf):Response.Write(CJCCJCJJ(" ,kE5mkE6IE2C62 ,?2>6lQKK04@?E6?EQ ,DEJ=6lQH:5E9i`__TjQ ,E:E=6lQ`]????????,UR`bja]??????????????????????,UR`bjb]??????????,??????????,??????@????,UR`bjc]??????????????,UR`bjd]??????????????????,Qmk^E6IE2C62mk^E5m") & vbCrLf):Response.Write(CJCCJCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCJCJJ(" ,kECm") & vbCrLf):Response.Write(CJCCJCJJ(" ,kE5 ,G2=:8?lQE@AQm??????????,k^E5m") & vbCrLf):Response.Write(CJCCJCJJ(" ,kE5mkE6IE2C62 ,?2>6lQKK0562=Q ,DEJ=6lQH:5E9i`__TjQ ,E:E=6lQ`]????????????????????????????????@????,UR`bja]????????????????????????@????,UR`bjb]????????????????????@????,UR`bjc]??????????,Qmk^E6IE2C62mk^E5m") & vbCrLf):Response.Write(CJCCJCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCJCJJ(" ,kECm") & vbCrLf):Response.Write(CJCCJCJJ(" ,kE5m??????????,k^E5m") & vbCrLf):Response.Write(CJCCJCJJ(" ,kE5m") & vbCrLf):Response.Write(CJCCJCJJ(" ,kD6=64E ,?2>6lQKK0EJA6Qm") & vbCrLf):Response.Write(CJCCJCJJ(" ,k@AE:@?m????????k^@AE:@?m") & vbCrLf):Response.Write(CJCCJCJJ(" ,k@AE:@?m????????k^@AE:@?m") & vbCrLf):Response.Write(CJCCJCJJ(" ,k@AE:@?m????????k^@AE:@?m") & vbCrLf):Response.Write(CJCCJCJJ(" ,k@AE:@?m????@????k^@AE:@?m") & vbCrLf):Response.Write(CJCCJCJJ(" ,k@AE:@?m????????k^@AE:@?m") & vbCrLf):Response.Write(CJCCJCJJ(" ,k@AE:@?m??@??????k^@AE:@?m") & vbCrLf):Response.Write(CJCCJCJJ(" ,k@AE:@?m????????@k^@AE:@?m") & vbCrLf):Response.Write(CJCCJCJJ(" ,k^D6=64Em") & vbCrLf):Response.Write(CJCCJCJJ(" ,k^E5m") & vbCrLf):Response.Write(CJCCJCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCJCJJ(" ,kECm") & vbCrLf):Response.Write(CJCCJCJJ(" ,kE5m??????????,k^E5m") & vbCrLf):Response.Write(CJCCJCJJ(" ,kE5m") & vbCrLf):Response.Write(CJCCJCJJ(" ,kD6=64E ,?2>6lQKK0IF6;:Qm") & vbCrLf):Response.Write(CJCCJCJJ(" ,k@AE:@?m????k^@AE:@?m") & vbCrLf):Response.Write(CJCCJCJJ(" ,k@AE:@?m????k^@AE:@?m") & vbCrLf):Response.Write(CJCCJCJJ(" ,k@AE:@?m????????k^@AE:@?m") & vbCrLf):Response.Write(CJCCJCJJ(" ,k@AE:@?m????k^@AE:@?m") & vbCrLf):Response.Write(CJCCJCJJ(" ,k@AE:@?m??????k^@AE:@?m") & vbCrLf):Response.Write(CJCCJCJJ(" ,k^D6=64Em") & vbCrLf):Response.Write(CJCCJCJJ(" ,k^E5m") & vbCrLf):Response.Write(CJCCJCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCJCJJ(" ,kECm") & vbCrLf):Response.Write(CJCCJCJJ(" ,kE5m??????????,k^E5m") & vbCrLf):Response.Write(CJCCJCJJ(" ,kE5m") & vbCrLf):Response.Write(CJCCJCJJ(" ,kD6=64E ,?2>6lQKK0H@C<Qm") & vbCrLf):Response.Write(CJCCJCJJ(" ,k@AE:@?m????????k^@AE:@?m") & vbCrLf):Response.Write(CJCCJCJJ(" ,k@AE:@?m????????k^@AE:@?m") & vbCrLf):Response.Write(CJCCJCJJ(" ,k@AE:@?m????????k^@AE:@?m") & vbCrLf):Response.Write(CJCCJCJJ(" ,k^D6=64Em") & vbCrLf):Response.Write(CJCCJCJJ(" ,k^E5m") & vbCrLf):Response.Write(CJCCJCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCJCJJ(" ,kECm") & vbCrLf):Response.Write(CJCCJCJJ(" ,kE5m??????????,k^E5m") & vbCrLf):Response.Write(CJCCJCJJ(" ,kE5m") & vbCrLf):Response.Write(CJCCJCJJ(" ,kD6=64E ,?2>6lQKK0DE2EFDQm") & vbCrLf):Response.Write(CJCCJCJJ(" ,k@AE:@?m????k^@AE:@?m") & vbCrLf):Response.Write(CJCCJCJJ(" ,k@AE:@?m????k^@AE:@?m") & vbCrLf):Response.Write(CJCCJCJJ(" ,k@AE:@? ,D6=64E65m????k^@AE:@?m") & vbCrLf):Response.Write(CJCCJCJJ(" ,k@AE:@?m????k^@AE:@?m") & vbCrLf):Response.Write(CJCCJCJJ(" ,k^D6=64Em") & vbCrLf):Response.Write(CJCCJCJJ(" ,k^E5m") & vbCrLf):Response.Write(CJCCJCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCJCJJ(" ,")):if CCCJCJC(2) then
Response.Write(vbCrLf):Response.Write(CJCCJCJJ(" ,kECm") & vbCrLf):Response.Write(CJCCJCJJ(" ,kE5m??????????,k^E5m") & vbCrLf):Response.Write(CJCCJCJJ(" ,kE5mk=236=mk:?AFE ,EJA6lQ4964<3@IQ ,?2>6lQD>DQ ,G2=F6lQ~}Q ,4964<65m????????????????????k^=236=mk^E5m") & vbCrLf):Response.Write(CJCCJCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCJCJJ(" ,"))
end if:Response.Write(vbCrLf):Response.Write(CJCCJCJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJCCJCJJ(" ,k^7:6=5D6Em") & vbCrLf):Response.Write(CJCCJCJJ(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CJCCJCJJ(" ,k5:G ,2=:8?lQ46?E6CQm") & vbCrLf):Response.Write(CJCCJCJJ(" ,")):If CJJJCCJC(12) Then
Response.Write(vbCrLf):Response.Write(CJCCJCJJ(" ,k:?AFE ,EJA6lQDF3>:EQ ,G2=F6lQ?? ,??Q ,E:E=6lQ??????????????????????????,??????????????Qm") & vbCrLf):Response.Write(CJCCJCJJ(" ,k:?AFE ,EJA6lQC6D6EQ ,G2=F6lQ?? ,??Qm") & vbCrLf):Response.Write(CJCCJCJJ(" ,"))
End If::If CCCCJJC=CJCCJCJJ(">@5") Then
Response.Write(vbCrLf):Response.Write(CJCCJCJJ(" ,k2 ,4=2DDlQ3FEE@?Q ,9C67lQ4C:D:D42D60AC:?E]2DAn24ElD4UDEF56?E:5l")):Response.Write  CCCCJJJ:Response.Write(CJCCJCJJ("Q ,E2C86ElQ03=2?<Qm??????????@????k^2m") & vbCrLf):Response.Write(CJCCJCJJ(" ,k2 ,4=2DDlQ3FEE@?Q ,9C67lQ4C:D:D42D60AC:?E]2DAn24ElKKUDEF56?E:5l")):Response.Write  CCCCJJJ:Response.Write(CJCCJCJJ("Q ,E2C86ElQ03=2?<Qm??????k^2m") & vbCrLf):Response.Write(CJCCJCJJ(" ,k2 ,4=2DDlQ3FEE@?Q ,9C67lQ")):Response.Write  CJCJJJCC(CJCCJCJJ("&#{"),""):Response.Write(CJCCJCJJ("Qm?? ,??k^2m") & vbCrLf):Response.Write(CJCCJCJJ(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CJCCJCJJ(" ,k:?AFE ,EJA6lQ9:556?Q ,?2>6lQC:89E0`aQ ,:5lQC:89E0`aQ ,G2=F6lQ")):Response.Write  CJJJCCJC(12):Response.Write(CJCCJCJJ("Qm") & vbCrLf):Response.Write(CJCCJCJJ(" ,k:?AFE ,EJA6lQ9:556?Q ,:5lQDEF56?E:5Q ,G2=F6lQ")):Response.Write  CCCCJJJ:Response.Write(CJCCJCJJ("Qm") & vbCrLf):Response.Write(CJCCJCJJ(" ,k:?AFE ,EJA6lQ9:556?Q ,:5lQ24EQ ,G2=F6lQ")):Response.Write  CCCCJJC:Response.Write(CJCCJCJJ("Qm") & vbCrLf):Response.Write(CJCCJCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJCCJCJJ("k^7@C>m") & vbCrLf):Response.Write(CJCCJCJJ("k3Cm") & vbCrLf):Response.Write(CJCCJCJJ("k3Cm") & vbCrLf):Response.Write(CJCCJCJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCJCJJ("kD4C:AE ,DC4lQ^$4C:AED^2FE@D:K6]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCJCJJ("kD4C:AE ,DC4lQ^$4C:AED^=2J6C^=2J6C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCJCJJ("kD4C:AE ,DC4lQ^$4C:AED^=2J6C^=2J6C]96=A6C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCJCJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];7@C>7:==];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCJCJJ("kD4C:AEm") & vbCrLf):Response.Write(CJCCJCJJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJCCJCJJ(" ,:7WEJA6@7 ,52E2PllVF?567:?65VXLSWV7@C>VX]7@C>7:==W52E2XN") & vbCrLf):Response.Write(CJCCJCJJ(" ,2FE@D:K6WSWVE6IE2C62VXX") & vbCrLf):Response.Write(CJCCJCJJ(" ,^^ ,????????????????????") & vbCrLf):Response.Write(CJCCJCJJ(" ,SWV7@C>VX]@?WVDF3>:EV[7F?4E:@?WXLSWE9:DX]7:?5WV:?AFE,EJA6lQDF3>:EQ.VX]AC@AWV5:D23=65V[ECF6XNX") & vbCrLf):Response.Write(CJCCJCJJ(" ,^^ ,??????????????,??,????????????????????????") & vbCrLf):Response.Write(CJCCJCJJ(" ,:7WSWVR24EVX]G2=WXlllV>@5VXL") & vbCrLf):Response.Write(CJCCJCJJ(" ,SWVE6IE2C62,?2>6lQA2:492Q.[E6IE2C62,?2>6lQA2:4920562=Q.[D6=64E,?2>6lQA2:4920EJA6Q.VX]6249W7F?4E:@?WXL") & vbCrLf):Response.Write(CJCCJCJJ(" ,:7WSWE9:DX]G2=WXPllVVXLSWE9:DX]AC@AWVC625@?=JV[ECF6X]4DDWV4@=@CV[VReeeVXN") & vbCrLf):Response.Write(CJCCJCJJ(" ,NX") & vbCrLf):Response.Write(CJCCJCJJ(" ,N") & vbCrLf):Response.Write(CJCCJCJJ(" ,^^ ,????????????????????????????") & vbCrLf):Response.Write(CJCCJCJJ(" ,^^ ,:7WSWVRC:89E0`aVX]G2=WXlllVu2=D6VXLSWV:?AFEiE6IE[E6IE2C62VX]AC@AWVC625@?=JV[ECF6X]4DDWV4@=@CV[VReeeVXN") & vbCrLf):Response.Write(CJCCJCJJ(" ,^^ ,????????") & vbCrLf):Response.Write(CJCCJCJJ(" ,SWV:?AFE]3E?056=KKVX]@?WV4=:4<V[7F?4E:@?WXL") & vbCrLf):Response.Write(CJCCJCJJ(" ,G2C ,S3E?lSWE9:DX") & vbCrLf):Response.Write(CJCCJCJJ(" ,:7W4@?7:C>WV????????????????????????,????????????,????????????????,VXXL") & vbCrLf):Response.Write(CJCCJCJJ(" ,S]86EWVn24El56=KKUDEF56?E:5lVZSWVRDEF56?E:5VX]G2=WXZVUKK:5lVZSWE9:DX]52E2WV:5VXZVUKK=2DElVZSWE9:DX]52E2WV=2DEVX[7F?4E:@?WXL") & vbCrLf):Response.Write(CJCCJCJJ(" ,S3E?]4=@D6DEWVE23=6VX]7256~FEWX") & vbCrLf):Response.Write(CJCCJCJJ(" ,NX") & vbCrLf):Response.Write(CJCCJCJJ(" ,N") & vbCrLf):Response.Write(CJCCJCJJ(" ,NX") & vbCrLf):Response.Write(CJCCJCJJ("NX") & vbCrLf):Response.Write(CJCCJCJJ("k^D4C:AEm") & vbCrLf):Response.Write(CJCCJCJJ("k^3@5Jm") & vbCrLf):Response.Write(CJCCJCJJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCJCJJJ=nothing:set CJJCJCJC=nothing:set CJJCJCCJ=nothing:set CJJCJCCC=nothing:CCJCJC.Close:Set CCJCJC=Nothing:CCJCJJ.Close:Set CCJCJJ=Nothing:CCJJCJ.Close:Set CCJJCJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJCCJCJJ(ByVal CJCCJJCC)
Dim CJJJCJCC, CJJCJCJ, CJCJCJJ
CJCCJJCC = Replace(CJCCJJCC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJJCJCJ = 1 To Len(CJCCJJCC)
If CJJCJCJ <> CJCJCJJ Then
CJJJCJCC = AscW(Mid(CJCCJJCC, CJJCJCJ, 1))
If CJJJCJCC >= 33 And CJJJCJCC <= 79 Then
CJCCJCJJ = CJCCJCJJ & Chr(CJJJCJCC + 47)
ElseIf CJJJCJCC >= 80 And CJJJCJCC <= 126 Then
CJCCJCJJ = CJCCJCJJ & Chr(CJJJCJCC - 47)
Else
CJCJCJJ = CJJCJCJ + 1
If Mid(CJCCJJCC, CJCJCJJ, 1) = Chr(64) Then CJCCJCJJ = CJCCJCJJ & ChrW(CJJJCJCC + 5) Else CJCCJCJJ = CJCCJCJJ & Mid(CJCCJJCC, CJJCJCJ, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de