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

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

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJCJCJ, CJCJCC,CJCCJJ, CJCCJC, CJCCCJ:Set CJCJCJ = server.CreateObject(CJCJJCCJ("ps~sq]r@??64E:@?")):CJCJCJ.open Application(CJCJJCCJ("r@??64E:@?$EC:?8")):Set CJCJCC=CJCJCJ::Dim CJCCCC,CCJJJJ,CCJJJC,CCJJCJ,CCJJCC,CCJCJJ,CCJCJC,CCJCCJ,CCJCCC:Dim CCCJJJ,CCCJJC,CCCJCJ,CCCJCC,CCCCJJ,CCCCJC:Dim CCCCCJ,CCCCCC,CJJJJJJ:Dim CJJJJJC:CJJJJJC=Trim(Request.Cookies(CJCJJCCJ("!$*|t|qt#"))):if CJJJJJC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJCCCC>0 then
CJCCCJ=CJCJJCCJ("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") & CCJJJJ & CJCJJCCJ("V ,2?5 ,:5l") & CJCCCC
set CJCCJJ=CJCJCJ.execute(CJCCCJ):If CJCCJJ.EOF Then
Call ClearMemberCookie
Else
CCJJJC=CJCCJJ(2) & "":CCJJCJ=CJCCJJ(3):CCJJCC=CJCCJJ(5):CCJCJJ=CJCCJJ(6):CCJCJC=CJCCJJ(9):CCJCCJ=CJCCJJ(15):CCCJJJ=CJCCJJ(0):CCCCCC=CJCCJJ(1):CCCCCJ=CJCCJJ(11) & "":CCCJJC=CJCCJJ(10) & "":CCJCCC=CJCCJJ(12):CCCJCJ=CJCCJJ(14):CCCJCC=CJCCJJ(13):CCCCJJ=CJCCJJ(7) & "":CCCCJC=CJCCJJ(4):CJJJJJJ=CJCCJJ(8):if isnull(CCJCCJ) then CCJCCJ=0
if isnull(CCJCJC) or CCJCJC=0 then CCJCJC=CCJJCJ
if isnull(CCCCJC) then CCCCJC=0
if isnull(CCJJCC) then CCJJCC=0
if instr(CJCJJCCJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CCJJJJ)>0 then Call RedirectMessage(CJCJJCCJ("????????,????????????????????????????????,"))
Call SetMemberCookie(CJCCCC,CCJJJJ)
End IF
end if:Sub CheckRight(CJCJCCJ):dim CJJJJCJ,CJJJJCC:if CJCCCC=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJCJJCCJ("??????????????,????????????,"))
elseIf not CJJJJCCC(CJCJCCJ) then
Call RedirectMessage(CJCJJCCJ("????W") & CJCJCCJ & CJCJJCCJ("X????????,????????????????????,"))
end if:End Sub:Function CJJJJCCC(CJCJCCJ):dim CJJJJCJ,CJJJJCC:CJJJJCC=split(CJCJCCJ,CJCJJCCJ("[")):CJJJJCCC=False:for CJJJJCJ=0 to ubound(CJJJJCC):If Mid(CCJJJC,CJJJJCC(CJJJJCJ),1)="1" then
CJJJJCCC=True:exit function
end if:next:End Function:Sub CheckLogined():if CJCCCC=0 then
Call ClearMemberCookie:Call ConnClose:dim CJJJCJJ:CJJJCJJ=trim(request.QueryString(CJCJJCCJ("D49@@="))):if isnumeric(CJJJCJJ) then
response.Redirect CJCJJCCJ("^>^G2?E^R^D49@@=^") & CJJJCJJ & CJCJJCCJ("^DEF56?E^=@8:?nC65:C64El") & CJJCCCJ
else
Call RedirectMessage(CJCJJCCJ("??????????????,????????????,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CJCJJCCJ("!$*|t|qt#"))="":CJCCCC=0:CCJCJJ=0:CCJJJJ=Empty:CCJJCC=0:CCJCCJ=0:CCJCJC=0:CCJJCJ=0:CCCJJJ=False:CCCCCC=False:CJJJJJJ=Empty:End Sub:Sub CheckMemberCookie():dim CJJJCJC,CJJJCCJ,CJJJJCJ,CJJJCCC,CJJCJJJ:CJJJCJC=split(CJJJJJC,CJCJJCCJ("]")):if ubound(CJJJCJC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJJJCJC(0)) or len(CJJJCJC(1))<>32 or len(CJJJCJC(2))<>32 then
Call ClearMemberCookie
else
CJJJCCJ=CJJJCJC(1):for CJJJJCJ=1 to len(CJJJCCJ):CJJJCCC=mid(CJJJCCJ,CJJJJCJ,1):if isnumeric(CJJJCCC) then CJJCJJJ=CJJCJJJ & CJJJCCC
if len(CJJCJJJ)=7 then exit for
next:CJJJCCJ=CJJJCJC(2):if CJJCJJJ<>mid(CJJJCCJ,6,7) then
Call ClearMemberCookie
else
CJJJCCC=mid(CJJJCCJ,18,10)/2:if CJJJCCC<DateDiff(CJCJJCCJ("D"), CJCJJCCJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJCCCC=Clng(CJJJCJC(0)):CCJJJJ=CJJJCJC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCJCCCC,CJCJJCCC):dim CJJJJCJ,CJJJCCC,CJJCJJJ:for CJJJJCJ=1 to len(CJCJJCCC):CJJJCCC=mid(CJCJJCCC,CJJJJCJ,1):if isnumeric(CJJJCCC) then CJJCJJJ=CJJCJJJ & CJJJCCC
if len(CJJCJJJ)=7 then exit for
next:CJJCJJJ=CCJCCCC & CJCJJCCJ("]") & CJCJJCCC & CJCJJCCJ("]") & Fix(10000*(Rnd+1)) & CJJCJJJ & Fix(10000*(Rnd+1)) & DateDiff(CJCJJCCJ("D"), CJCJJCCJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJCJJCCJ("!$*|t|qt#"))=CJJCJJJ:End Sub::Function CJJJCJJJ(CJCJCJJJ):Dim str,CJJCJCJ:str = Trim(CJCJCJJJ):If IsNull(str) Or str = "" Then
CJJJCJJJ = ""
else
str=Replace(str, CJCJJCCJ("V"), "")
str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CJCJJCCJ("k:7C2>6"), CJCJJCCJ("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CJCJJCCJ("kD4C:AE"), CJCJJCCJ("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CJJCJCJ=new RegExp:CJJCJCJ.Pattern=CJCJJCCJ("@?W,2\K.ZXl"):CJJCJCJ.IgnoreCase = True:CJJCJCJ.Global=True:str=CJJCJCJ.Replace(str,CJCJJCCJ("@?S`U6BF2=Dj")):set CJJCJCJ=nothing:CJJJCJJJ=str
End If:End Function:Function IIf(CJCJCJJC, CJCJCJCJ, CJCJCJCC):if isnull(CJCJCJJC) or isempty(CJCJCJJC) then
IIf = CJCJCJCC
elseif CJCJCJJC Then
IIf = CJCJCJCJ
Else
IIf = CJCJCJCC
end if:End Function:Const CJJJJCCJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$"::Function CJJJCJCJ():dim CJJCJCC:CJJCJCC = Cstr(Request.ServerVariables("HTTP_X_FORWARDED_FOR")):If CJJCJCC = "" Then CJJCJCC = Cstr(Request.ServerVariables(CJCJJCCJ("#t|~%t0pss#")))
if instr(CJJCJCC,CJCJJCCJ("i"))>0 then
CJJCJCC=left(CJJCJCC,instr(CJJCJCC,CJCJJCCJ("i"))-1)
elseif instr(CJJCJCC,CJCJJCCJ("["))>0 then
CJJCJCC=left(CJJCJCC,instr(CJJCJCC,CJCJJCCJ("["))-1)
end if:CJJJCJCJ=left(CJJCJCC,15):End Function:Sub Debug(str):response.Charset=CJCJJCCJ("FE7\g"):dim CJJJJCJ,CJJJCCC,CJJCCJJ:if isarray(str) then
on error resume next:CJJJJCJ=ubound(str,2):CJJCCJJ=err.number:err.clear:on error goto 0:if CJJCCJJ<>0 then
for CJJJJCJ=0 to ubound(str):if CJJJJCJ>0 then response.Write CJCJJCCJ("k3C ,^m")
response.Write CJJJJCJ & CJCJJCCJ("i ,") & str(CJJJJCJ):next
else
response.Write CJCJJCCJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CJJJJCJ=0 to ubound(str,2):response.Write CJCJJCCJ("kE9 ,2=:8?lV=67EVm") & CJJJJCJ & CJCJJCCJ("k^E9m")
next:response.Write CJCJJCCJ("k^ECm"):for CJJJJCJ=0 to ubound(str):response.Write CJCJJCCJ("kECmkE9m") & CJJJJCJ & CJCJJCCJ("k^E9m"):for CJJJCCC=0 to ubound(str,2):response.Write CJCJJCCJ("kE5m") & str(CJJJJCJ,CJJJCCC) & CJCJJCCJ("k^E5m"):next:response.Write CJCJJCCJ("k^ECm"):next:response.Write CJCJJCCJ("k^E23=6m")
end if
elseif isnull(str) then
response.Write CJCJJCCJ(",}F==.")
else
Response.Write replace(str,vbcrlf,CJCJJCCJ("k3Cm"))
end if:Call ConnClose:Response.End:End Sub:Public Function CJJJCJCC():Dim CJJCCJC, CJJCCCJ:CJJCCCJ = Request.ServerVariables(CJCJJCCJ("!p%w0x}u~")):CJJCCJC = Request.ServerVariables(CJCJJCCJ("""&t#*0$%#x}v")):If CJJCCJC <> Empty Then
if instr(lcase(CJJCCJC),CJCJJCCJ("Tb4:7C2>6"))>0 or instr(lcase(CJJCCJC),CJCJJCCJ("Tb4D4C:AE"))>0 then Call RedirectMessage(CJCJJCCJ("????????,????????????????????????,??,??,"))
CJJCCCJ = CJJCCCJ & CJCJJCCJ("n") & CJJCCJC
end if:CJJJCJCC = CJJCCCJ:End Function:Sub SetHttpOnlyCookie(CJCJCCJJ,CJCJCCJC):dim CJJJCJC:CJJJCJC=CJCJCCJJ & CJCJJCCJ("l") & CJCJCCJC & CJCJJCCJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJCJJCCJ("$6E\r@@<:6"),CJJJCJC):End Sub:::::Sub CheckValidPost():dim CJJCCCC:CJJCCCC=false:Dim CJCJJJJ : CJCJJJJ=lcase(Request.ServerVariables(CJCJJCCJ("w%%!0#tut#t#"))):if(instr(CJCJJJJ,Application(CJCJJCCJ("s@>2:?(9:E6{:DE")))>0) then
CJJCCCC=true
else
Dim CJCJJJC : CJCJJJC=lcase(Request.ServerVariables(CJCJJCCJ("$t#'t#0}p|t"))):Dim CJCJJCJ : CJCJJCJ=Request.ServerVariables(CJCJJCCJ("{~rp{0pss#")):if Mid(CJCJJJJ,8,Len(CJCJJJC))=CJCJJJC or Mid(CJCJJJJ,9,Len(CJCJJJC))=CJCJJJC or CJCJJJC=CJCJJCJ then CJJCCCC=true
end if:if not CJJCCCC then Call RedirectMessage(CJCJJCCJ("????????,??????????????????????????,"))
end sub::Function CJJJCCJJ(CJJCCJJ):if isnull(CJJCCJJ) or trim(CJJCCJJ)="" or not isnumeric(CJJCCJJ) then
CJJJCCJJ=false
else
Dim CJJCJCJ:Set CJJCJCJ = New RegExp:CJJCJCJ.Pattern = CJCJJCCJ("/-5ZS"):CJJCJCJ.IgnoreCase = True:CJJJCCJJ = CJJCJCJ.test(CJJCCJJ):set CJJCJCJ=nothing
end if:End Function:Function CJJJCCJC(CJCJCCCJ):dim CJCJJCC,CJCJCJJ:CJCJJCC=CJCJJCCJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJCJCCCJ & CJCJJCCJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJCJCJJ=CJCJCJ.execute(CJCJJCC):CJJJCCJC = CJCJCJJ(0):if isnull(CJJJCCJC) then CJJJCCJC=1
CJCJCJJ.close : set CJCJCJJ=nothing:End Function::sub Alert(ByVal CCCCJCJ):Call ConnClose:CCCCJCJ=replace(CCCCJCJ,vbcrlf,CJCJJCCJ("-?")):CCCCJCJ=replace(CCCCJCJ,CJCJJCCJ("V"),CJCJJCCJ("-V"))
response.Charset=CJCJJCCJ("FE7\g"):response.write CJCJJCCJ("kD4C:AEm2=6CEWV") & CCCCJCJ & CJCJJCCJ("VXj9:DE@CJ]324<WXk^D4C:AEm")
response.end:end sub::Sub ConnClose():On Error Resume Next:set CJCCCCJ=nothing:set CJJJCCCJ=nothing:set CJJJCCCC=nothing:set CJJCJJJJ=nothing:CJCJCJJ.close : set CJCJCJJ=nothing:CJCCJC.Close : Set CJCCJC=Nothing:CJCCJJ.Close : Set CJCCJJ=Nothing:CJJCJJJC.Close : Set CJJCJJJC = Nothing:CJCJCJ.Close : Set CJCJCJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCCCJCJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJCJJCCJ("!$*0|6DD286"),server.URLEncode(CCCCJCJ)):Response.Redirect CJCJJCCJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::Function CJJCJJCJ():Dim CJCJCJJ, CJCJCJC(), CJJJJCJ, CJJJCCC, CJCJCCJ,CJCJCCC:If Not IsArray(Application(CJCJJCCJ("!$*0%6DED"))) Then
CJCCCJ=CJCJJCCJ("D6=64E ,:5[?2>6049[?2>606?[BF6DE4@F?E[E6DEE:A[E:>60>2I[:?EC@`[2?DH6C[>6>36CEJA6[2860>2I[24E[>@?6J[5@4[?F==[?2>607C[724E@C`[E:>60>:?[2860>:?[724E@Ca[:?EC@a[:D4FDE@>[?F==[A:4EFC6[2CE:4=6 ,7C@> ,=3 ,H96C6 ,2G2:=23=6l` ,@C56C ,3J ,D@CE"):set CJCJCJJ=server.createobject(CJCJJCCJ("25@53]C64@C5D6E")):CJCJCJJ.open CJCCCJ,CJCJCJ,1:CJCJCCJ = CJCJCJJ.RecordCount:CJCJCCC=CJCJCJJ.fields.count-1:ReDim CJCJCJC(CJCJCCJ, CJCJCCC):If CJCJCCJ > 0 Then
For CJJJJCJ = 1 To CJCJCCJ:For CJJJCCC = 0 To CJCJCCC:if CJJJCCC=4 or CJJJCCC=6 or CJJJCCC=19 then
CJCJCJC(CJJJJCJ, CJJJCCC) = CJJCJCCC(CJCJCJJ(CJJJCCC))
else
CJCJCJC(CJJJJCJ, CJJJCCC) = CJCJCJJ(CJJJCCC):if CJCJCJJ(CJJJCCC).type<>11 and isnull(CJCJCJC(CJJJJCJ, CJJJCCC)) then CJCJCJC(CJJJJCJ, CJJJCCC)=""
end if:Next:CJCJCJJ.MoveNext:Next
End If:CJCJCJJ.Close: Set CJCJCJJ = Nothing:Application(CJCJJCCJ("!$*0%6DED")) = CJCJCJC
End If:CJJCJJCJ = Application(CJCJJCCJ("!$*0%6DED")):End Function::::::::::::::Function CJJCJJCC(ByVal CJJCJCJJ,style):if not isdate(CJJCJCJJ) then
CJJCJJCC=CJJCJCJJ:exit function
end if:dim CJCCJJJ,CJCCJJC,CJCCJCJ,CJCCJCC:CJJCJCJJ=cdate(CJJCJCJJ):CJCCJJJ=Year(CJJCJCJJ):CJCCJJC=Month(CJJCJCJJ):CJCCJCJ=Day(CJJCJCJJ):select case style:case 0:CJJCJJCC=CJCCJJJ & CJCJJCCJ("\") & right(0 & CJCCJJC,2) & CJCJJCCJ("\") & right(0 & CJCCJCJ,2):case 1:CJJCJJCC=CJCCJJJ & right(0 & CJCCJJC,2) & right(0 & CJCCJCJ,2):case 2:CJJCJJCC=right(CJCCJJJ,2) & CJCJJCCJ("\") & right(0 & CJCCJJC,2) & CJCJJCCJ("\") & right(0 & CJCCJCJ,2):case 3:CJJCJJCC=CJCCJJJ & CJCJJCCJ("\") & right(0 & CJCCJJC,2):case 4:CJJCJJCC=right(0 & CJCCJJC,2) & CJCJJCCJ("\") & right(0 & CJCCJCJ,2):case 5:CJJCJJCC=right(0 & CJCCJCJ,2):case 6:CJJCJJCC=CJCCJJJ & CJCJJCCJ("??") & right(0 & CJCCJJC,2) & CJCJJCCJ("??") & right(0 & CJCCJCJ,2) & CJCJJCCJ("??"):case else
CJJCJJCC=CJJCJCJJ:end select:End Function:Function CJJCJCJC(Table):Dim CJCJCJJ, CJCJCCJ, str(), CJJJJCJ,CJJJCCC,CJCCCJJ:CJCCCJJ=UCase(Table):If Not IsArray(Application(CJCJJCCJ("!$*0") & CJCCCJJ)) Then
CJCCCJ=CJCJJCCJ("D6=64E ,:5[?2>6[>6>36CEJA6 ,7C@> ,,") & Table & CJCJJCCJ(". ,@C56C ,3J ,D@CE[:5"):set CJCJCJJ=server.createobject(CJCJJCCJ("25@53]C64@C5D6E")):CJCJCJJ.open CJCCCJ,CJCJCJ,1:CJCJCCJ = CJCJCJJ.RecordCount:ReDim str(CJCJCCJ, 2):If CJCJCCJ > 0 Then
For CJJJJCJ = 1 To CJCJCCJ:for CJJJCCC=0 to 2:str(CJJJJCJ, CJJJCCC) = CJCJCJJ(CJJJCCC):next:CJCJCJJ.MoveNext:Next
End If:CJCJCJJ.Close: Set CJCJCJJ = Nothing:Application(CJCJJCCJ("!$*0") & CJCCCJJ) = str
End If:CJJCJCJC = Application(CJCJJCCJ("!$*0") & CJCCCJJ):End Function:Sub ShowListSelect(CJCJCCCJ,CJCJCCCC,CJCCJJJJ):Dim str, CJJJJCJ, CJCCCJC:CJCCCJC = CJJCJCJC(CJCJCCCJ):For CJJJJCJ = 1 To UBound(CJCCCJC):if Cstr(CJCCCJC(CJJJJCJ,2))=Cstr(CJCJCCCC) then
str = str & CJCJJCCJ("k@AE:@? ,G2=F6lV") & CJCCCJC(CJJJJCJ, 0) & CJCJJCCJ("V")
If CStr(CJCCCJC(CJJJJCJ, 0)) = CJCCJJJJ & "" Then str = str & CJCJJCCJ(" ,D6=64E65lVD6=64E65V")
str = str & CJCJJCCJ("m") & CJCCCJC(CJJJJCJ, 1) & CJCJJCCJ("k^@AE:@?m")
end if:Next:Response.Write str:End Sub:Function CJJCJCCJ(CJCJCCCJ,CJCJCCCC,CCJCCCC):Dim str, CJJJJCJ, CJCCCJC:CJCCCJC = CJJCJCJC(CJCJCCCJ):For CJJJJCJ = 1 To UBound(CJCCCJC):if Cstr(CJCCCJC(CJJJJCJ,2))=Cstr(CJCJCCCC) and CStr(CJCCCJC(CJJJJCJ, 0)) = CCJCCCC & "" then
str=CJCCCJC(CJJJJCJ,1):exit for
end if:Next:if str="" then str=CJCJJCCJ(",????.")
CJJCJCCJ=str:End Function:Sub InsertLog(CJCCJJJC,CJCJJCJC):dim CJCJJCC:CJCJJCC=CJCJJCCJ("x?D6CE ,:?E@ ,=@8W>6>36C[:A[4@?E6?E[EJA6[FC=X ,G2=F6DW") & CJCCCC  & CJCJJCCJ("[V") & CJJJCJCJ & CJCJJCCJ("V") & CJCJJCCJ("[V") & CJJJCJJJ(CJCJJCJC) & CJCJJCCJ("V") & CJCJJCCJ("[") & CJCCJJJC  & CJCJJCCJ("[V") & CJJJCJCC & CJCJJCCJ("V") & CJCJJCCJ("X")
CJCJCJ.execute CJCJJCC:End Sub::::::::::::Function CJJCJCCC(CJCCJJCJ):if isnull(CJCCJJCJ) then
CJJCJCCC=""
else
On Error Resume Next:CJJCJCCC=CJCCJJCJ:if err.number=-2147352567 then
CJJCJCCC="":err.Clear
end if
end if:End Function::::Sub ClearCache(CJCCJJCC):Application.Contents.Remove CJCCJJCC
End Sub::Class jTree:Private CJCCCJ, CJCCCCJ, CJCCCCC, CCJJJJJ,CCJJJJC,CCJJJCJ,CCJJJCC,CCJJCJJ:Private Sub Class_Initialize():CJCCCCC = 0:CCJJJJJ = 0:CCJJCJJ=10:End Sub:Public Property Let Table(CJCCJCJJ):if CJCCJCJJ="" then Call RedirectMessage(CJCJJCCJ("????????,;%C66????????????????????@??????????,"))
CCJJJJC=CJCCJCJJ:CCJJJCJ=CJCJJCCJ("!$*0") & UCase(CCJJJJC):Call GetTreeArray:End Property:Public Property Get Table():Table=CCJJJJC:End Property::Public Property Get Count():Count=CCJJJJJ-CCJJCJJ:End Property:Private Sub GetTreeArray():Dim CJJJJCJ, CJJJCCC, CCJJCJC,RecordCount:CJCCCCJ = Application(CCJJJCJ):If Not IsArray(CJCCCCJ) Then
CJCCCJ = CJCJJCCJ("D6=64E ,4@F?EW:5X ,7C@> ,") & CCJJJJC:if CCJJJCC<>"" then CJCCCJ=CJCCCJ & CJCJJCCJ(" ,H96C6 ,") & CCJJJCC
set CCJJCJC=CJCJCJ.execute(CJCCCJ):RecordCount=CCJJCJC(0):if RecordCount=0 then Call RedirectMessage(CJCJJCCJ("????W") & CCJJJJC & CJCJJCCJ("^") & CCJJJCC & CJCJJCCJ("X????????????"))
CCJJJJJ=RecordCount+CCJJCJJ:ReDim CJCCCCJ(CCJJJJJ, 4):CJCCCJ = CJCJJCCJ("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJJJJC & CJCJJCCJ(" ,H:E9 ,W?@=@4<X"):if CCJJJCC<>"" then CJCCCJ=CJCCCJ & CJCJJCCJ(" ,H96C6 ,") & CCJJJCC
CJCCCJ=CJCCCJ & CJCJJCCJ(" ,@C56C ,3J ,D@CE[:5"):set CCJJCJC=CJCJCJ.execute(CJCCCJ):For CJJJJCJ = 1 To RecordCount:For CJJJCCC = 0 To 4:CJCCCCJ(CJJJJCJ, CJJJCCC) = CCJJCJC(CJJJCCC):if IsNull(CJCCCCJ(CJJJJCJ,4)) then CJCCCCJ(CJJJJCJ,4)=0
If CJCCCCJ(CJJJJCJ,2)="" then CJCCCCJ(CJJJJCJ,2)=CJCJJCCJ(",??.")
Next:CCJJCJC.MoveNext:Next:CCJJCJC.Close: Set CCJJCJC = Nothing:for CJJJJCJ=CCJJJJJ-(CCJJCJJ-1) to CCJJJJJ:CJCCCCJ(CJJJJCJ,0)=CJJJJCJ:next:Application.Lock():Application(CCJJJCJ) = CJCCCCJ:Application.UnLock()
else
CCJJJJJ=Ubound(CJCCCCJ)
End If:End Sub:::::Private Function CJJCCJCJ(CCJCCCC):dim CJJJJCJ,CCJJCCC:CJJCCJCJ=0:CCJJCCC=CStr(CCJCCCC):if CCJJCCC<>"0" then
for CJJJJCJ=1 to CCJJJJJ:If CStr(CJCCCCJ(CJJJJCJ, 0))=CCJJCCC Then
CJJCCJCJ = CJJJJCJ:Exit For
End If:Next
end if:End Function:Public Function CJJCCJCC(CCJCCCC):if Cstr(CCJCCCC)="0" then
CJJCCJCC=CJCJJCCJ("??")
else
Dim CJJJJCJ,CCJJCJC:CJJJJCJ=CJJCCJCJ(CCJCCCC):if CJJJJCJ>0 then
CJJCCJCC=CJCCCCJ(CJJJJCJ,2):if CJJCCJCC="" then
set CCJJCJC=CJCJCJ.execute(CJCJJCCJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJJJJC & CJCJJCCJ(" ,H96C6 ,:5l") & CCJCCCC):if CCJJCJC.eof then Call RedirectMessage(CJCJJCCJ("xs??,") & CCJCCCC & CJCJJCCJ("??,??????"))
CJJCCJCC=CCJJCJC(1):Call UpdateCache(CCJCCCC,CCJJCJC(0),CJJCCJCC,CCJJCJC(2),CCJJCJC(3)):CCJJCJC.Close: Set CCJJCJC = Nothing
end if
else
set CCJJCJC=CJCJCJ.execute(CJCJJCCJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJJJJC & CJCJJCCJ(" ,H96C6 ,:5l") & CCJCCCC):if CCJJCJC.eof then Call RedirectMessage(CJCJJCCJ("xs??,") & CCJCCCC & CJCJJCCJ("??,??????"))
CJJCCJCC=CCJJCJC(1):Call UpdateCache(CCJCCCC,CCJJCJC(0),CJJCCJCC,CCJJCJC(2),CCJJCJC(3)):CCJJCJC.Close: Set CCJJCJC = Nothing
end if
end if:End Function:::Public Function CJJCCCJJ(CCJCCCC):Dim CJJJJCJ,CCJCJJJ:CJJJJCJ=CJJCCJCJ(CCJCCCC):if CJJJJCJ=0 then
CCJCJJJ=CJJCCCJC(CCJCCCC)
else
CCJCJJJ=CJCCCCJ(CJJJJCJ,3):if isnull(CCJCJJJ) or CCJCJJJ="" then
CCJCJJJ=CJJCCCJC(CCJCCCC)
elseif Mid(CCJCJJJ,instrrev(CCJCJJJ,CJCJJCCJ("["))+1)<>CStr(CCJCCCC) then
CCJCJJJ=CJJCCCJC(CCJCCCC)
elseif Left(CCJCJJJ,1)=CJCJJCCJ("[") then
CCJCJJJ=CJJCCCJC(CCJCCCC)
end if
end if:CJJCCCJJ=CCJCJJJ:End Function:Private Function CJJCCCJC(CCJCCCC):dim CCJJCCC:CCJJCCC=CStr(CCJCCCC):if CCJJCCC="0" then
CJJCCCJC=""
else
dim CCJJCJC:set CCJJCJC=CJCJCJ.execute(CJCJJCCJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJJJJC & CJCJJCCJ(" ,H96C6 ,:5l") & CCJCCCC):if CCJJCJC.eof then
Call UpdateCache(CCJCCCC,"","","",""):Call RedirectMessage(CJCJJCCJ("??????,xs??,") & CCJCCCC & CJCJJCCJ("??,????????,????????????????????,"))
else
if CCJJCJC(0)=0 then
CJJCCCJC="0," & CCJCCCC
else
CJJCCCJC=CJJCCCJJ(CCJJCJC(0)) & CJCJJCCJ("[") & CCJCCCC
end if:if CCJJCJC(2)<>CJJCCCJC then
CJCJCJ.execute CJCJJCCJ("FA52E6 ,") & CCJJJJC & CJCJJCCJ(" ,D6E ,A2E9lV") & CJJCCCJC & CJCJJCCJ("V ,H96C6 ,:5l") & CCJCCCC
else
CJJCCCJC=CCJJCJC(2)
end if
end if:Call UpdateCache(CCJCCCC,CCJJCJC(0),CCJJCJC(1),CJJCCCJC,CCJJCJC(3)):CCJJCJC.Close: Set CCJJCJC = Nothing
end if:End Function::Public Function CJJCCCCJ(CCJCCCC):CJJCCCCJ = Mid(CJJCCCJJ(CCJCCCC), 3):End Function:Public Function CJJCCCCC(CCJCCCC):Dim CJJJJCJ, CJJJCCC, CCJCJJC,Str, CCJCJJJ, CJCJCCJ, CJJJJCC():CCJCJJJ = CJJCCCCJ(CCJCCCC):CCJCJJJ = Split(CCJCJJJ, CJCJJCCJ("[")):for CJJJJCJ=0 to Ubound(CCJCJJJ):CCJCJJC=CCJCJJJ(CJJJJCJ):str=str & CJCJJCCJ("M") & CCJCJJC & CJCJJCCJ("M") & CJJCCJCC(CCJCJJC):next:if str<>"" then str=Mid(str,2)
CJJCCCCC=str:End Function:::::Public Function GetAllChildID(CCJCCCC):Dim Str, CJJJJCJ:if CJCJJJJC(CCJCCCC) then
For CJJJJCJ = 1 To CCJJJJJ:If InStr(CJCCCCJ(CJJJJCJ, 3) & CJCJJCCJ("["), CJCJJCCJ("[") & CCJCCCC & CJCJJCCJ("[")) > 0 Then
Str = Str & CJCJJCCJ("[") & CJCCCCJ(CJJJJCJ, 0)
End If:Next:Str = Mid(Str, 2)
else
str=CCJCCCC
end if:GetAllChildID = Str:End Function:::::Public Function CJCJJJJC(CCJCCCC):Dim CJJJJCJ:CJCJJJJC = False:CCJCCCC=CLng(CCJCCCC):For CJJJJCJ = 1 To CCJJJJJ:If CJCCCCJ(CJJJJCJ, 1) = CCJCCCC Then
CJCJJJJC = True:Exit For
End If:Next:End Function::Public Function GetPositionStr_From(CCJCCCC, CJCJJJCC):if isnull(CCJCCCC) or isnull(CJCJJJCC) then
GetPositionStr_From=CJCJJCCJ(",????????."):exit function
end if:Dim Str, CJJJJCJ, CJJJJCC, CJCJCCJ, CCJCJCJ:CJCJJJCC = CStr(CJCJJJCC):If CJCJJJCC = "0" or CJCJJJCC = CStr(CCJCCCC) Then
Str = CJJCCJCC(CCJCCCC)
Else
CJJJJCC = Split(CJJCCCCC(CCJCCCC), CJCJJCCJ("M")):CJCJCCJ = UBound(CJJJJCC):CCJCJCJ = False:For CJJJJCJ = 0 To CJCJCCJ Step 2:If CJJJJCC(CJJJJCJ) = CJCJJJCC And Not CCJCJCJ Then CCJCJCJ = True
If CCJCJCJ Then
If Str <> "" Then Str = Str & CJCJJCCJ("??,")
Str = Str & CJJJJCC(CJJJJCJ + 1)
End If:Next
End If:str=Mid(str,instr(str,CJCJJCCJ("??,"))+1):GetPositionStr_From = Str:End Function:::::::Public Sub ClearCache():Application.Contents.Remove CCJJJCJ
End Sub:Public Sub UpdateCache(CCJCCCC,CCJCJJC,CJCCJCJC,CCJCJJJ,CJCCJCCJ):dim CJJJJCJ,CJJJCCC:CCJCCCC=CLng(CCJCCCC):CJJJJCJ=CJJCCJCJ(CCJCCCC):if CCJCJJC="" and CJCCJCJC="" and CCJCJJJ="" and CJCCJCCJ="" then
if CJJJJCJ>0 then
for CJJJCCC=1 to 4:CJCCCCJ(CJJJJCJ,CJJJCCC)=Null:next
end if
else
if CJJJJCJ=0 then
for CJJJCCC=1 to CCJJJJJ:if CJCCCCJ(CJJJCCC,1) & ""="" then
CJJJJCJ=CJJJCCC:exit for
end if:next
end if:if CJJJJCJ=0 then
Call ClearCache
else
CJCCCCJ(CJJJJCJ,0)=CLng(CCJCCCC):if CCJCJJC<>"" then CJCCCCJ(CJJJJCJ,1)=CLng(CCJCJJC)
if CJCCJCJC<>"" then CJCCCCJ(CJJJJCJ,2)=CJCCJCJC
if CCJCJJJ<>"" then CJCCCCJ(CJJJJCJ,3)=CCJCJJJ
if CJCCJCCJ<>"" then CJCCCCJ(CJJJJCJ,4)=CLng(CJCCJCCJ)
end if
end if:if CJJJJCJ>0 then
Application.Lock():Application(CCJJJCJ) = CJCCCCJ:Application.UnLock()
end if:End Sub:Private Sub Debug(CCCCJCJ):Call ConnClose:Response.Write CCCCJCJ:Response.End:End Sub:Private Function CJJJCCJC():CJJJCCJC=CJCJJCJJ+1:End Function:Private Function CJCJJCJJ():dim CJCJCJJ:set CJCJCJJ=CJCJCJ.execute(CJCJJCCJ("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CCJJJJC & CJCJJCCJ(" ,@C56C ,3J ,:5 ,56D4")):CJCJJCJJ=CJCJCJJ(0):CJCJCJJ.Close: Set CJCJCJJ = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::dim CJJJCJJ:CJCCCJ=Request.ServerVariables(CJCJJCCJ("!p%w0x}u~")):if instr(CJCCCJ,CJCJJCCJ("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CCCJJJ and not CCCCCC then Call RedirectMessage(CJCJJCCJ("????????,????????????????????????,"))
CJJJCJJ=CCJCJC
elseif instr(CJCCCJ,CJCJJCCJ("^>^D49@@=^DEF56?E^"))>0 or instr(CJCCCJ,CJCJJCCJ("^DEF56?E^"))>0 then
Call CheckLogined:CJJJCJJ=CCJCJC
elseif instr(CJCCCJ,CJCJJCCJ("^D49@@="))>0 then
CJJJCJJ=Request.QueryString(CJCJJCCJ("D49@@=")):if not CJJJCCJJ(CJJJCJJ) then CJJJCJJ=Request.QueryString(CJCJJCCJ("F"))
if not CJJJCCJJ(CJJJCJJ) then CJJJCJJ=Request.QueryString(CJCJJCCJ("D4"))
if not CJJJCCJJ(CJJJCJJ) then Call RedirectMessage(CJCJJCCJ("????????W$49@@=X??@??????????,"))
CJJJCJJ=csng(CJJJCJJ)
end if:if CJJJCJJ=0 then Call RedirectMessage(CJCJJCCJ("????????W$49@@=X????W_X??,"))
Dim CCJCJCC:Call SetConfig:Sub SetConfig():dim CJJJJCC,CJCJCJJ:CJCCCJ=CJCJJCCJ("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") & CJJJCJJ:set CJCJCJJ=CJCJCJ.execute(CJCCCJ):if CJCJCJJ.eof then Call RedirectMessage(CJCJJCCJ("??W") & CJCCCC & CJCJJCCJ("X??????????W") & CJJJCJJ & CJCJJCCJ("X????????,"))
ReDim CJJJJCC(61):CJJJJCC(0)=CJCJCJJ(CJCJJCCJ(";:2@H6:")) & "":CJJJJCC(1)=CJCJCJJ(CJCJJCCJ("EJA6")):CJJJJCC(2)=CJCJCJJ(CJCJJCCJ("D>D")):CJJJJCC(3)=CJCJCJJ(CJCJJCCJ("4FDE@>8C@FA")) & "":CJJJJCC(4)=CJCJCJJ(CJCJJCCJ("D:5632C0@E96C")) & "":CJJJJCC(5)=IIf(isnull(CJCJCJJ(CJCJJCCJ("E6DEC6DF=EG:6H"))),0,CJCJCJJ(CJCJJCCJ("E6DEC6DF=EG:6H"))):CJJJJCC(6)=CJCJCJJ(CJCJJCCJ("K:IF?E:>6")):CJJJJCC(7)=CJCJCJJ(CJCJJCCJ("766")):CJJJJCC(8)=CJCJCJJ(CJCJJCCJ("C6E6DE52J")):CJJJJCC(9)=CJCJCJJ(CJCJJCCJ("6IA:C652E6")):CJJJJCC(10)=CJCJCJJ(CJCJJCCJ("E:E=6")):CJJJJCC(11)=CJCJCJJ(CJCJJCCJ(":?EC@")) & "":CJJJJCC(12)=CJCJCJJ(CJCJJCCJ("A:4EFC6")) & "":CJJJJCC(13)=CJCJCJJ(CJCJJCCJ("72>:=J")):CJJJJCC(14)=CJCJCJJ(CJCJJCCJ("4@AJC:89E")) & "":CJJJJCC(15)=IIf(isnull(CJCJCJJ(CJCJJCCJ("D6>6DE6C0DE2CE052E6"))),CJCJJCCJ("`h__\`\`"),CJCJCJJ(CJCJJCCJ("D6>6DE6C0DE2CE052E6"))):CJJJJCC(16)=IIf(isnull(CJCJCJJ(CJCJJCCJ("K:IF?0E:>6D09:89=:89E"))),0,CJCJCJJ(CJCJJCCJ("K:IF?0E:>6D09:89=:89E"))):CJJJJCC(17)=CJCJCJJ(CJCJJCCJ("4@?E24E")) & "":CJJJJCC(18)=CJCJCJJ(CJCJJCCJ("D2?5E23=6")):CJJJJCC(19)=CJCJCJJ(CJCJJCCJ("4C:D:D")):CJJJJCC(20)=CJCJCJJ(CJCJJCCJ("JJ52E6")):CJJJJCC(21)=CJCJCJJ(CJCJJCCJ("BB")):CJJJJCC(22)=CJCJCJJ(CJCJJCCJ("JFJF60D>D0EA=")) & "":CJJJJCC(23)=CJCJCJJ(CJCJJCCJ("JFJF60E6DE0=3")) & "":CJJJJCC(25)=CJCJCJJ(CJCJJCCJ("6IA6CE")):CJJJJCC(26)=CJCJCJJ(CJCJJCCJ(">@5:?7@")):CJJJJCC(27)=CJCJCJJ(CJCJJCCJ("9@>6A286E@AA:4EFC6")) & "":CJJJJCC(28)=CJCJCJJ(CJCJJCCJ("4C:D:D=3")):CJJJJCC(29)=IIf(CJCJCJJ(CJCJJCCJ("4C:D:D@=5")),False,True):CJJJJCC(30)=CJCJCJJ(CJCJJCCJ("8C@FA8F:52?46")):CJJJJCC(31)=CJCJCJJ(CJCJJCCJ("3:@7665324<")):CJJJJCC(32)=CJCJCJJ(CJCJJCCJ("<6JDEC")):CJJJJCC(33)=CJCJCJJ(CJCJJCCJ("=@8@")) & "":CJJJJCC(34)=CJCJCJJ(CJCJJCCJ("K:46")):CJJJJCC(35)=IIf(CJCJCJJ(CJCJJCCJ(":D?6H")),True,False):CJJJJCC(36)=121:CJJJJCC(37)=111:CJJJJCC(38)=160:CJJJJCC(39)=CJCJCJJ(CJCJJCCJ("8F6DE3@@<")):CJJJJCC(40)=CJCJCJJ(CJCJJCCJ("75D")):CJJJJCC(42)=CJCJCJJ(CJCJJCCJ("9@>6=@8:?")):CJJJJCC(43)=CJCJCJJ(CJCJJCCJ("K:IF?0?6657665324<")):CJJJJCC(44)=CJCJCJJ(CJCJJCCJ("K:IF?0E:>6D0=:>:E")):CJJJJCC(45)=CJCJCJJ(CJCJJCCJ("4@>A=6E60:?7@")):CJJJJCC(46)=CJCJCJJ(CJCJJCCJ("E6DE:?EC@")) & "":CJJJJCC(47)=IIf(isnull(CJCJCJJ(CJCJJCCJ("JFJF60367@C60E:>6"))),0,CJCJCJJ(CJCJJCCJ("JFJF60367@C60E:>6"))):CJJJJCC(49)=CJCJCJJ(CJCJJCCJ("D>D0C646:G6C")):CJJJJCC(50)=CJCJCJJ(CJCJJCCJ("D>D0D:8?")) & "":CJJJJCC(52)=CJCJCJJ(CJCJJCCJ("JFJF602CC2?86")):CJJJJCC(53)=IIf(isnull(CJCJCJJ(CJCJJCCJ("DEF56?E0BF6DE:@?04@F?E"))),0,CJCJCJJ(CJCJJCCJ("DEF56?E0BF6DE:@?04@F?E"))):CJJJJCC(54)=CJCJCJJ(CJCJJCCJ("9:560=30@FE@7286")):CJJJJCC(55)=CJCJCJJ(CJCJJCCJ("JFJF60E6DE052JD")):CJJJJCC(56)=CJCJCJJ(CJCJJCCJ("JFJF60H66<0=:>:E")):CJJJJCC(57)=CJCJCJJ(CJCJJCCJ("JFJF604964<65")):CJJJJCC(58)=CJCJCJJ(CJCJJCCJ("K:IF?0?6657665324<0?6IE")):CJJJJCC(59)=CJCJCJJ(CJCJJCCJ("4964<?6HDEF56?E")):CJJJJCC(60)=CJCJCJJ(CJCJJCCJ("K:IF?04=@D6052E6")):CJCJCJJ.close : set CJCJCJJ=nothing:if isNull(CJJJJCC(8)) or CJJJJCC(8)="" then CJJJJCC(8)=0
if isdate(CJJJJCC(9)) then
CJJJJCC(9)=cdate(CJJJJCC(9)):if CJJJJCC(9)<Date then Call RedirectMessage(CJCJJCCJ("????????,????????????????W") & CJJJJCC(9) & CJCJJCCJ("X??????,"))
end if:if not CJJJCCJJ(CJJJJCC(20)) then CJJJJCC(20)=7
select case CJJJJCC(1):case 1,2,16:CJJJJCC(36)=159:case 4,5,6,10,11:CJJJJCC(36)=190:CJJJJCC(37)=178:CJJJJCC(38)=191:case 7,13:CJJJJCC(36)=164:CJJJJCC(37)=178:CJJJJCC(38)=179:end select:CCJCJCC=CJJJJCC:End Sub:Function CJJCJJJJ(CJCCJCCC):dim CJJJJCC(7,1),CJJJJCJ,CCJCCJJ,CCJCCJC:CCJCCJJ=Array(CJCJJCCJ("$49@@="),CJCJJCCJ("$EF56?E"),CJCJJCCJ("s6AE"),CJCJJCCJ("vC256"),CJCJJCCJ("r=2DD>2E6"),CJCJJCCJ("}F>36C"),CJCJJCCJ("%62496C"),CJCJJCCJ("!2C6?E")):select case CCJCJCC(1):case 1,2 : CCJCCJC=Array(CJCJJCCJ("????"),CJCJJCCJ("????"),CJCJJCCJ("????"),CJCJJCCJ("????"),CJCJJCCJ("????"),CJCJJCCJ("????"),CJCJJCCJ("????"),CJCJJCCJ("????")):case 3,16 : CCJCCJC=Array(CJCJJCCJ("????"),CJCJJCCJ("????"),CJCJJCCJ("????"),CJCJJCCJ("????"),CJCJJCCJ("????"),CJCJJCCJ("????"),CJCJJCCJ("????"),CJCJJCCJ("????")):case 4 : CCJCCJC=Array(CJCJJCCJ("????"),CJCJJCCJ("??????@"),CJCJJCCJ("????"),CJCJJCCJ("????"),CJCJJCCJ("????"),CJCJJCCJ("????"),CJCJJCCJ("????"),CJCJJCCJ("????")):case 5 : CCJCCJC=Array(CJCJJCCJ("????"),CJCJJCCJ("????"),CJCJJCCJ("????"),CJCJJCCJ("????"),CJCJJCCJ("????"),CJCJJCCJ("????"),CJCJJCCJ("????"),CJCJJCCJ("????")):case 6 : CCJCCJC=Array(CJCJJCCJ("????"),CJCJJCCJ("??????@"),CJCJJCCJ("????"),CJCJJCCJ("????"),CJCJJCCJ("????"),CJCJJCCJ("????"),CJCJJCCJ("??????"),CJCJJCCJ("????")):case 7 : CCJCCJC=Array(CJCJJCCJ("????"),CJCJJCCJ("????"),CJCJJCCJ("????"),CJCJJCCJ("????"),CJCJJCCJ("????"),CJCJJCCJ("????"),CJCJJCCJ("??????"),CJCJJCCJ("????")):case 8 : CCJCCJC=Array(CJCJJCCJ("????"),CJCJJCCJ("??????@"),CJCJJCCJ("????"),CJCJJCCJ("????????"),CJCJJCCJ("????"),CJCJJCCJ("????"),CJCJJCCJ("??????"),CJCJJCCJ("????")):case 9 : CCJCCJC=Array(CJCJJCCJ("????"),CJCJJCCJ("????"),CJCJJCCJ("????"),CJCJJCCJ("????"),CJCJJCCJ("????"),CJCJJCCJ("????"),CJCJJCCJ("??????"),CJCJJCCJ("????")):case 10 : CCJCCJC=Array(CJCJJCCJ("????"),CJCJJCCJ("????"),CJCJJCCJ("????"),CJCJJCCJ("????????"),CJCJJCCJ("????"),CJCJJCCJ("????"),CJCJJCCJ("??????"),CJCJJCCJ("????")):case 11 : CCJCCJC=Array(CJCJJCCJ("????"),CJCJJCCJ("??????"),CJCJJCCJ("????"),CJCJJCCJ("????"),CJCJJCCJ("????"),CJCJJCCJ("????"),CJCJJCCJ("??????"),CJCJJCCJ("????")):case 12 : CCJCCJC=Array(CJCJJCCJ("????"),CJCJJCCJ("????"),CJCJJCCJ("????"),CJCJJCCJ("????????"),CJCJJCCJ("????"),CJCJJCCJ("????"),CJCJJCCJ("??????"),CJCJJCCJ("????")):case 13 : CCJCCJC=Array(CJCJJCCJ("????"),CJCJJCCJ("????"),CJCJJCCJ("????"),CJCJJCCJ("????"),CJCJJCCJ("????"),CJCJJCCJ("????"),CJCJJCCJ("????"),CJCJJCCJ("????")):case 14 : CCJCCJC=Array(CJCJJCCJ("??????"),CJCJJCCJ("??@??"),CJCJJCCJ("????"),CJCJJCCJ("????"),CJCJJCCJ("????"),CJCJJCCJ("????"),CJCJJCCJ("??????"),CJCJJCCJ("????")):case 15 : CCJCCJC=Array(CJCJJCCJ("????"),CJCJJCCJ("????????"),CJCJJCCJ("????"),CJCJJCCJ("????????"),CJCJJCCJ("????"),CJCJJCCJ("????"),CJCJJCCJ("??????"),CJCJJCCJ("????")):case else : CCJCCJC=CCJCCJJ
end select:for CJJJJCJ=0 to Ubound(CJJJJCC):CJJJJCC(CJJJJCJ,0)=CCJCCJJ(CJJJJCJ):CJJJJCC(CJJJJCJ,1)=CCJCCJC(CJJJJCJ):next:for CJJJJCJ=0 to Ubound(CJJJJCC):if CJJJJCC(CJJJJCJ,0)=CJCCJCCC then
CJJCJJJJ=CJJJJCC(CJJJJCJ,1):exit for
end if:next:End Function::Call CheckRight(76):dim CCJCCCJ,CJJJJCJ,CCJCCCC,CCCJJJJ,CJCJCJC,CCCJJJC,CCCJJCJ,CCCJJCC:CCJCCCJ=Request.QueryString(CJCJJCCJ("24E")):CCJCCCC=Request.QueryString(CJCJJCCJ(":5")):CCCJJJJ=Request.QueryString(CJCJJCCJ("2==")):if CCJCCCJ=CJCJJCCJ("56=") and CJJJCCJJ(CCJCCCC) then
CJCJCJ.execute(CJCJJCCJ("56=6E6 ,7C@> ,E6DE032E49 ,H96C6 ,:5l") & CCJCCCC):Call InsertLog(3,CJCJJCCJ("????????????W") & CCJCCCC & CJCJJCCJ("X")):Call ConnClose:response.end
elseif CCJCCCJ=CJCJJCCJ("E@52E6") then
CJCJCJ.execute CJCJJCCJ("FA52E6 ,E6DE032E49 ,D6E ,E@52E6lV") & CJJJCJJJ(Request.QueryString(CJCJJCCJ("E@52E6"))) & CJCJJCCJ("V ,H96C6 ,:5l") & CCJCCCC
Call ConnClose:response.end
elseif CCJCCCJ=CJCJJCCJ(">@5") then
CJCJCJC=CJJJCJJJ(Request.QueryString(CJCJJCCJ("=3"))):if CJCJCJC="" then
CCCCJCJ=CJCJJCCJ("????????????????,????????????,")
elseif len(CJCJCJC)>100 then
CCCCJCJ=CJCJJCCJ("??????????????????,????????????,")
else
CJCJCJ.execute(CJCJJCCJ("FA52E6 ,E6DE032E49 ,D6E ,=3lV") & CJCJCJC & CJCJJCCJ("V ,H96C6 ,:5l") & CCJCCCC)
end if:Call ConnClose:response.charset=CJCJJCCJ("FE7\g"):Response.Write CCCCJCJ:response.end
elseif CCJCCCJ=CJCJJCCJ(">6>36C\5:DEC") then
CCCJJJC=Request.QueryString(CJCJJCCJ("=3:5")):CCCJJCJ=Request.QueryString(CJCJJCCJ(":5=:DE")):if CCCJJCJ<>"" and CJJJCCJJ(CCCJJJC) then
CJCJCJ.execute CJCJJCCJ("56=6E6 ,7C@> ,E6DE032E49 ,H96C6 ,=3lV") & CCCJJJC & CJCJJCCJ("V ,2?5 ,>6>36C ,:? ,W") & CCCJJCJ & CJCJJCCJ("X")
CCCJJCJ=split(CCCJJCJ,CJCJJCCJ("[")):set CJCCJJ=CJCJCJ.execute(CJCJJCCJ("D6=64E ,E@A ,` ,:5 ,7C@> ,E6DE032E49 ,@C56C ,3J ,:5 ,56D4")):if CJCCJJ.eof then CCCJJCC=0 else CCCJJCC=CJCCJJ(0)
CCCJJCC=CCCJJCC+1:CJCCCJ="":for CJJJJCJ=0 to ubound(CCCJJCJ):CJCCCJ=CJCCCJ & CJCJJCCJ(":?D6CE ,:?E@ ,E6DE032E49W:5[=3[EJA6[8C256[4FDE@>8C@FA[>6>36C[2FE9@C[EJA60255[E6DEEJA6[E@52E6[52E6E:>6X ,G2=F6DW") & CCCJJCC  & CJCJJCCJ("[V") & CCCJJJC & CJCJJCCJ("V") & CJCJJCCJ("[_") & CJCJJCCJ("[_") & CJCJJCCJ("[_") & CJCJJCCJ("[") & CCCJJCJ(CJJJJCJ)  & CJCJJCCJ("[") & CJCCCC  & CJCJJCCJ("[") & CCJJCJ  & CJCJJCCJ("[_") & CJCJJCCJ("[V") & Date+30 & CJCJJCCJ("V") & CJCJJCCJ("[86E52E6WX") & CJCJJCCJ("Xj")
CCCJJCC=CCCJJCC+1:next:CJCJCJ.execute CJCCCJ
end if:Call ConnClose:response.end
elseif CCJCCCJ=CJCJJCCJ("E6DE\5:DEC") then
dim CCCJCJJ:CCCJJJC=Request.QueryString(CJCJJCCJ("=3:5")):CCCJCJJ=Request.QueryString(CJCJJCCJ(":5=:DE")):if CCCJCJJ<>"" and CJJJCCJJ(CCCJJJC) then
CCCJJCJ="":set CJCCJJ=CJCJCJ.execute(CJCJJCCJ("D6=64E ,5:DE:?4E ,>6>36C ,7C@> ,E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,:5 ,:? ,W") & CCCJCJJ & CJCJJCCJ("X")):while not CJCCJJ.eof:CCCJJCJ=CCCJJCJ & CJCJJCCJ("[") & CJCCJJ(0):CJCCJJ.movenext:wend:if CCCJJCJ<>"" then
CCCJJCJ=mid(CCCJJCJ,2):CJCJCJ.execute CJCJJCCJ("56=6E6 ,7C@> ,E6DE032E49 ,H96C6 ,=3lV") & CCCJJJC & CJCJJCCJ("V ,2?5 ,>6>36C ,:? ,W") & CCCJJCJ & CJCJJCCJ("X")
dim CCCJCJC:CCCJCJC=Date+30:set CJCCJJ=CJCJCJ.execute(CJCJJCCJ("D6=64E ,E@A ,` ,:5 ,7C@> ,E6DE032E49 ,@C56C ,3J ,:5 ,56D4")):if CJCCJJ.eof then CCCJJCC=0 else CCCJJCC=CJCCJJ(0)
CCCJJCC=CCCJJCC+1:CJCCCJ="":CCCJJCJ=split(CCCJJCJ,CJCJJCCJ("[")):for CJJJJCJ=0 to ubound(CCCJJCJ):CJCCCJ=CJCCCJ & CJCJJCCJ(":?D6CE ,:?E@ ,E6DE032E49W:5[=3[EJA6[8C256[4FDE@>8C@FA[>6>36C[2FE9@C[EJA60255[E6DEEJA6[E@52E6[52E6E:>6X ,G2=F6DW") & CCCJJCC  & CJCJJCCJ("[V") & CCCJJJC & CJCJJCCJ("V") & CJCJJCCJ("[_") & CJCJJCCJ("[_") & CJCJJCCJ("[_") & CJCJJCCJ("[") & CCCJJCJ(CJJJJCJ)  & CJCJJCCJ("[") & CJCCCC  & CJCJJCCJ("[") & CCJJCJ  & CJCJJCCJ("[_") & CJCJJCCJ("[V") & CCCJCJC & CJCJJCCJ("V") & CJCJJCCJ("[86E52E6WX") & CJCJJCCJ("Xj")
CCCJJCC=CCCJJCC+1:next:CJCJCJ.execute(CJCCCJ)
end if
end if:Call ConnClose:response.end
end if:dim CJCCCCJ:set CJCCCCJ=new jtree:CJCCCCJ.table=CJCJJCCJ(">6>36C0EJA6"):dim CCCJCCJ,CCCJCCC,CCCCJJJ,CCCCJJC,CCCCJCJ,CCCCJCC,CJJCCJC:If Request.ServerVariables(CJCJJCCJ("#t""&t$%0|t%w~s")) = CJCJJCCJ("!~$%") Then
Call CheckValidPost:CJCJCJC=CJJJCJJJ(Request.Form(CJCJJCCJ("=3"))):if CJCJCJC="" then Call Alert(CJCJJCCJ("????????????????,????????,??????,????????????????,"))
if len(CJCJCJC)>100 then Call Alert(CJCJJCCJ("??????????????????,????????????,"))
CCCCJCC=Request.Form(CJCJJCCJ("E@52E60255")):CCCJCCJ=Request.Form(CJCJJCCJ("56AE")):CCCJCCC=Request.Form(CJCJJCCJ("8C256")):CCCCJJC=Request.Form(CJCJJCCJ("8C@FA")):CCCCJJJ=CJJJCJJJ(Request.Form(CJCJJCCJ("DEF56?E"))):CCCCJJJ=replace(CCCCJJJ,CJCJJCCJ("??,"),CJCJJCCJ("[")):if not CJJJCCJJ(CCCJCCC) then CCCJCCC=0
if not CJJJCCJJ(CCCCJJC) then CCCCJJC=0
CJCCCJ=CJCJJCCJ("56=6E6 ,7C@> ,E6DE032E49 ,H96C6 ,52E6E:>6kV") & DateAdd(CJCJJCCJ("JJJJ"),-1,Date) & CJCJJCCJ("V")
if CCCCJJJ="" then
CJCCCJ=CJCCCJ & CJCJJCCJ("j:?D6CE ,:?E@ ,E6DE032E49W:5[=3[EJA6[8C256[4FDE@>8C@FA[>6>36C[2FE9@C[EJA60255[E6DEEJA6[E@52E6[52E6E:>6X ,G2=F6DW") & CJJJCCJC(CJCJJCCJ("E6DE032E49"))  & CJCJJCCJ("[V") & CJCJCJC & CJCJJCCJ("V") & CJCJJCCJ("[") & CCCJCCJ  & CJCJJCCJ("[") & CCCJCCC  & CJCJJCCJ("[") & CCCCJJC  & CJCJJCCJ("[_") & CJCJJCCJ("[") & CJCCCC  & CJCJJCCJ("[") & CCJJCJ  & CJCJJCCJ("[_") & CJCJJCCJ("[V") & CCCCJCC & CJCJJCCJ("V") & CJCJJCCJ("[86E52E6WX") & CJCJJCCJ("X")
else
set CJCCJJ=CJCJCJ.execute(CJCJJCCJ("D6=64E ,E@A ,` ,:5 ,7C@> ,E6DE032E49 ,@C56C ,3J ,:5 ,56D4")):if CJCCJJ.eof then CCCJJCC=1 else CCCJJCC=CJCCJJ(0)+1
CCCCJJJ=split(CCCCJJJ,CJCJJCCJ("[")):CJJCCJC="":for CJJJJCJ=0 to ubound(CCCCJJJ):set CJCCJJ=CJCJCJ.execute(CJCJJCCJ("D6=64E ,E@A ,` ,:5 ,7C@> ,G0>6>36C ,H96C6 ,DE2E6ld ,2?5 ,>6>36C0EJA60E@Al") & CJJJCJJ & CJCJJCCJ(" ,2?5 ,?F>36ClV") & CCCCJJJ(CJJJJCJ) & CJCJJCCJ("V"))
if not CJCCJJ.eof then
CJCCCJ=CJCCCJ & CJCJJCCJ("j:?D6CE ,:?E@ ,E6DE032E49W:5[=3[EJA6[8C256[4FDE@>8C@FA[>6>36C[2FE9@C[EJA60255[E6DEEJA6[E@52E6[52E6E:>6X ,G2=F6DW") & CCCJJCC+CJJJJCJ  & CJCJJCCJ("[V") & CJCJCJC & CJCJJCCJ("V") & CJCJJCCJ("[_") & CJCJJCCJ("[_")  & CJCJJCCJ("[_") & CJCJJCCJ("[") & CJCCJJ(0)  & CJCJJCCJ("[") & CJCCCC  & CJCJJCCJ("[") & CCJJCJ  & CJCJJCCJ("[_") & CJCJJCCJ("[V") & CCCCJCC & CJCJJCCJ("V") & CJCJJCCJ("[86E52E6WX") & CJCJJCCJ("X")
if CJJCCJC="" then CJJCCJC=CCCCJJJ(CJJJJCJ) else CJJCCJC=CJJCCJC & CJCJJCCJ("^") & CCCCJJJ(CJJJJCJ)
end if:next:if CJJCCJC<>"" then Call InsertLog(1,CJCJJCCJ("??????????????,") & CJJCCJC & CJCJJCCJ("??,"))
end if:CJCJCJ.execute CJCCCJ:CCJCCCJ=""
End If:Response.Write(vbCrLf):Response.Write(CJCJJCCJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJCJJCCJ("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJCJJCCJ("k9625m") & vbCrLf):Response.Write(CJCJJCCJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJCJJCCJ("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJCJJCCJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJCJJCCJ("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CJCJJCCJ("kE:E=6m??????????k^E:E=6m") & vbCrLf):Response.Write(CJCJJCCJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CJCJJCCJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^52E6A:4<6C^52E6A:4<6C]>:?]4DDQm") & vbCrLf):Response.Write(CJCJJCCJ("k^9625m") & vbCrLf):Response.Write(CJCJJCCJ("k3@5Jm") & vbCrLf):Response.Write(CJCJJCCJ("kF= ,:5lQE23Qm") & vbCrLf):Response.Write(CJCJJCCJ(" ,k=: ,4=2DDlQ4FCC6?EQmk2 ,9C67lQE6DE05:DEC]2DAQm????????????k^2mk^=:m") & vbCrLf):Response.Write(CJCJJCCJ(" ,k=:mk2 ,9C67lQ=38C@FA]2DAQm????????????k^2mk^=:m") & vbCrLf):Response.Write(CJCJJCCJ(" ,k=:mk2 ,9C67lQE6DE0BC4@56]2DAQm????????????,????????,k^2mk^=:m") & vbCrLf):Response.Write(CJCJJCCJ("k^F=m") & vbCrLf):Response.Write(CJCJJCCJ("k7@C> ,?2>6lQ7@C>`Q ,>6E9@5lQA@DEQ ,24E:@?lQQm") & vbCrLf):Response.Write(CJCJJCCJ(" ,kE23=6 ,4=2DDlQE30=:DEQm") & vbCrLf):Response.Write(CJCJJCCJ(" ,kECm") & vbCrLf):Response.Write(CJCJJCCJ(" ,kE9 ,E:E=6lQ??????????????????QmRk^E9m") & vbCrLf):Response.Write(CJCJJCCJ(" ,kE9m????????k^E9m") & vbCrLf):Response.Write(CJCJJCCJ(" ,kE9m")):Response.Write  CJJCJJJJ(CJCJJCCJ("s6AE")):Response.Write(CJCJJCCJ("k^E9m") & vbCrLf):Response.Write(CJCJJCCJ(" ,kE9m")):Response.Write  IIf(CCJCJCC(1)>=3,CJJCJJJJ(CJCJJCCJ("vC256")),""):Response.Write(CJCJJCCJ("k^E9m") & vbCrLf):Response.Write(CJCJJCCJ(" ,kE9m")):Response.Write  IIf(CCJCJCC(3)<>"",CCJCJCC(3),""):Response.Write(CJCJJCCJ("k^E9m") & vbCrLf):Response.Write(CJCJJCCJ(" ,kE9m")):Response.Write  CJJCJJJJ(CJCJJCCJ("$EF56?E")):Response.Write(CJCJJCCJ("k^E9m") & vbCrLf):Response.Write(CJCJJCCJ(" ,kE9m????????k^E9m") & vbCrLf):Response.Write(CJCJJCCJ(" ,kE9m??????k^E9m") & vbCrLf):Response.Write(CJCJJCCJ(" ,kE9m????????k^E9m") & vbCrLf):Response.Write(CJCJJCCJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJCJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJJCCJ(" ,")):dim CCCCCJJ,CCCCCJC,CCCCCCJ,CCCCCCC,CJJJCCC,CJJJJJJJ,CJJJJJJC,CJJJJJCJ:dim CJJJJJCC,CJJJJCJJ:CJJJJCJ=1:CJCJCJC=CJJCJJCJ:CJCCCJ=CJCJJCCJ("D6=64E ,:5[=3[EJA6[8C256[>6>36C[2FE9@C[52E6E:>6[2FE9@C?2>6[4FDE@>8C@FA[E@52E6 ,7C@> ,G0E6DE032E49 ,H96C6 ,EJA60255 ,:? ,W") & CJCCCCJ.GetAllChildID(CCJJCJ) & CJCJJCCJ("X"):if CCCJJJJ="" then CJCCCJ=CJCCCJ & CJCJJCCJ(" ,2?5 ,E@52E6mV") & Date-1 & CJCJJCCJ("V")
CJCCCJ=CJCCCJ & CJCJJCCJ(" ,@C56C ,3J ,EJA6"):set CJCCJJ=CJCJCJ.execute(CJCCCJ):while not CJCCJJ.eof:if not ((CJCCJJ(1)="111" or CJCCJJ(1)="178") and CJCCJJ(4)>0) and CJCCJJ(1)<>"214" then
CJJCCJC=CJCCJJ(4):if CJJCCJC=0 then
CJJJJJJC=false:CCCCCJC=CJCJJCCJ(",????.")
else
CJJJJJJC=true:CJJJJJCJ=CJCJJCCJ(",????."):CCCCCJJ=CJCJJCCJ(",????."):CJJJJJJJ=CJCJJCCJ(",????."):set CJCCJC=CJCJCJ.execute(CJCJJCCJ("D6=64E ,E@A ,` ,C62=?2>6[?F>36C ,7C@> ,>6>36C ,H96C6 ,:5l") & CJJCCJC):if CJCCJC.eof then
CCCCCJC=CJCJJCCJ(",????.")
else
CCCCCCJ=CJCCJC(1):CCCCCJC=CJCJJCCJ("k2 ,4=2DDlVH:?V ,9C67lVDEF56?E:?7@]2DAn:5l") & CJJCCJC & CJCJJCCJ("Vm") & CJCCJC(0) & CJCJJCCJ("W") & CCCCCCJ & CJCJJCCJ("Xk^2m")
end if:CJCCJC.close : set CJCCJC=nothing
end if:if not CJJJJJJC then
CJJJJJCJ=CJCCJJ(2):if CJJJJJCJ=0 then
CJJJJJCJ=CJCJJCCJ(",????.")
elseif CJJJJJCJ<>CJJJJJCC then
CJJJJJCC=CJJJJJCJ:CJJJJCJJ=CJCCCCJ.GetPositionStr_From(CJJJJJCC,CJJJCJJ):CJJJJJCJ=CJJJJCJJ
else
CJJJJJCJ=CJJJJCJJ
end if:CJJCCJC=CJCCJJ(3):if CJJCCJC=0 then
CCCCCJJ=CJCJJCCJ(",????.")
else
CCCCCJJ=CJJCJCCJ(CJCJJCCJ(">6>36C08C256"),CCJCJC,CJJCCJC)
end if:CJJCCJC=CJCCJJ(8):if CJJCCJC=0 then
CJJJJJJJ=CJCJJCCJ(",????.")
else
CJJJJJJJ=CJJCJCCJ(CJCJJCCJ(">6>36C04FDE@>8C@FA"),CCJCJC,CJJCCJC)
end if
end if:CCCCCCC="":for CJJJCCC=1 to ubound(CJCJCJC):if instr(CJCJJCCJ("[") & CJCCJJ(1) & CJCJJCCJ("["),CJCJJCCJ("[") & CJCJCJC(CJJJCCC,0) & CJCJJCCJ("["))>0 then CCCCCCC=CCCCCCC & CJCJJCCJ("\ ,") & CJCJCJC(CJJJCCC,1) & CJCJJCCJ("k3Cm")
next:Response.Write(vbCrLf):Response.Write(CJCJJCCJ(" ,kECm") & vbCrLf):Response.Write(CJCJJCCJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  CJJJJCJ:Response.Write(CJCJJCCJ("k^E5m") & vbCrLf):Response.Write(CJCJJCCJ(" ,kE5m") & vbCrLf):Response.Write(CJCJJCCJ(" ,k:?AFE ,?2>6lV=30")):Response.Write  CJCCJJ(0):Response.Write(CJCJJCCJ("V ,:5lV=30")):Response.Write  CJCCJJ(0):Response.Write(CJCJJCCJ("V ,EJA6lVE6IEV ,4=2DDlVE6IE ,=3V ,D:K6lV`dV ,G2=F6lV")):Response.Write  CJCCJJ(1):Response.Write(CJCJJCCJ("V ,E:E=6lQ")):Response.Write  CCCCCCC:Response.Write(CJCJJCCJ("Q ,C625@?=Jm") & vbCrLf):Response.Write(CJCJJCCJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,4=2DDlQ3E?\=3Q ,G2=F6lQ??Q ,52E2\:5lQ")):Response.Write  CJCCJJ(0):Response.Write(CJCJJCCJ("Q ,E:E=6lQ????????????????,????????????Qm") & vbCrLf):Response.Write(CJCJJCCJ(" ,k^E5m") & vbCrLf):Response.Write(CJCJJCCJ(" ,kE5m")):Response.Write  CJJJJJCJ:Response.Write(CJCJJCCJ("k^E5m") & vbCrLf):Response.Write(CJCJJCCJ(" ,kE5m")):Response.Write  IIf(CCJCJCC(1)>=3,CCCCCJJ,""):Response.Write(CJCJJCCJ("k^E5m") & vbCrLf):Response.Write(CJCJJCCJ(" ,kE5m")):Response.Write  IIf(CCJCJCC(3)<>"",CJJJJJJJ,""):Response.Write(CJCJJCCJ("k^E5m") & vbCrLf):Response.Write(CJCJJCCJ(" ,kE5m")):Response.Write  CCCCCJC:Response.Write(CJCJJCCJ("k^E5m") & vbCrLf):Response.Write(CJCJJCCJ(" ,kE5 ,2=:8?lQ46?E6CQmk:?AFE ,?2>6lQE@52E6Q ,EJA6lQE6IEQ ,4=2DDlQ52E6Q ,G2=F6lQ")):Response.Write  CJJCJJCC(CJCCJJ(9),0):Response.Write(CJCJJCCJ("Q ,52E2\:5lQ")):Response.Write  CJCCJJ(0):Response.Write(CJCJJCCJ("Qmk^E5m") & vbCrLf):Response.Write(CJCJJCCJ(" ,kE5m")):Response.Write  CJCCJJ(7):Response.Write(CJCJJCCJ("k^E5m") & vbCrLf):Response.Write(CJCJJCCJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  CJJCJJCC(CJCCJJ(6),0):Response.Write(CJCJJCCJ("k^E5m") & vbCrLf):Response.Write(CJCJJCCJ(" ,kE5 ,2=:8?lQC:89EQm") & vbCrLf):Response.Write(CJCJJCCJ(" ,")):If CJCCJJ(4)=0 and CCJCJCC(7)>=3 and CJJJJCCC(42) and CJCCJJ(2)<>CJJJCJJ and CJCCJJ(2)>0 Then
Response.Write(vbCrLf):Response.Write(CJCJJCCJ(" ,k2 ,4=2DDlQH:?Q ,52E2\H:?D:K6lQ,h__[d__.Q ,9C67lQE6DE05:DEC0?@E6DE]2DAn32E49l")):Response.Write  CJCCJJ(0):Response.Write(CJCJJCCJ("Q ,E:E=6lQ??????@??Qm????k^2m") & vbCrLf):Response.Write(CJCJJCCJ(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CJCJJCCJ(" ,k2 ,9C67lVn24El56=U:5l")):Response.Write  CJCCJJ(0):Response.Write(CJCJJCCJ("U2==l")):Response.Write  CCCJJJJ:Response.Write(CJCJJCCJ("Vm????k^2m") & vbCrLf):Response.Write(CJCJJCCJ(" ,k^E5m") & vbCrLf):Response.Write(CJCJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJJCCJ(" ,")):CJJJJCJ=CJJJJCJ+1
end if:CJCCJJ.movenext:wend:If CCJCCCJ=CJCJJCCJ("255") Then
Response.Write(vbCrLf):Response.Write(CJCJJCCJ(" ,kECm") & vbCrLf):Response.Write(CJCJJCCJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  CJJJJCJ:Response.Write(CJCJJCCJ("k^E5m") & vbCrLf):Response.Write(CJCJJCCJ(" ,kE5mk:?AFE ,?2>6lQ=3Q ,EJA6lQE6IEQ ,:5lQ=30255Q ,4=2DDlQE6IE ,=3Q ,D:K6lQ`dQ ,A=2469@=56ClQ????????????Q ,C625@?=Jmk^E5m") & vbCrLf):Response.Write(CJCJJCCJ(" ,kE5mk:?AFE ,?2>6lQ56AEQmk^E5m") & vbCrLf):Response.Write(CJCJJCCJ(" ,kE5m") & vbCrLf):Response.Write(CJCJJCCJ(" ,")):If CCJCJCC(1)>=3 Then
Response.Write(vbCrLf):Response.Write(CJCJJCCJ(" ,kD6=64E ,?2>6lQ8C256Qm") & vbCrLf):Response.Write(CJCJJCCJ(" ,")):if CCJCCJ=0 then
response.Write CJCJJCCJ("k@AE:@? ,G2=F6lV_Vm,????.k^@AE:@?m")
Call ShowListSelect(CJCJJCCJ(">6>36C08C256"),CJJJCJJ,0)
else
response.Write CJCJJCCJ("k@AE:@? ,G2=F6lV") & CCJCCJ & CJCJJCCJ("Vm") & CJJCJCCJ(CJCJJCCJ(">6>36C08C256"),CJJJCJJ,CCJCCJ) & CJCJJCCJ("k^@AE:@?m")
end if:Response.Write(vbCrLf):Response.Write(CJCJJCCJ(" ,k^D6=64Em") & vbCrLf):Response.Write(CJCJJCCJ(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CJCJJCCJ(" ,k^E5m") & vbCrLf):Response.Write(CJCJJCCJ(" ,kE5m") & vbCrLf):Response.Write(CJCJJCCJ(" ,")):If CCJCJCC(3)<>"" Then
Response.Write(vbCrLf):Response.Write(CJCJJCCJ(" ,kD6=64E ,?2>6lQvC@FAQm") & vbCrLf):Response.Write(CJCJJCCJ(" ,")):if CCCCJC=0 then
response.Write CJCJJCCJ("k@AE:@? ,G2=F6lV_Vm,????.k^@AE:@?m")
Call ShowListSelect(CJCJJCCJ(">6>36C04FDE@>8C@FA"),CJJJCJJ,0)
else
response.Write CJCJJCCJ("k@AE:@? ,G2=F6lV") & CCCCJC & CJCJJCCJ("Vm") & CJJCJCCJ(CJCJJCCJ(">6>36C04FDE@>8C@FA"),CJJJCJJ,CCCCJC) & CJCJJCCJ("k^@AE:@?m")
end if:Response.Write(vbCrLf):Response.Write(CJCJJCCJ(" ,k^D6=64Em") & vbCrLf):Response.Write(CJCJJCCJ(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CJCJJCCJ(" ,k^E5m") & vbCrLf):Response.Write(CJCJJCCJ(" ,kE5mk:?AFE ,?2>6lQDEF56?EQ ,EJA6lQE6IEQ ,D:K6lQ`_Q ,E:E=6lQ????")):Response.Write  CJJCJJJJ(CJCJJCCJ("}F>36C")):Response.Write(CJCJJCCJ("??,????????????,??????????,????????????,??????,????????")):Response.Write  CJJCJJJJ(CJCJJCCJ("}F>36C")):Response.Write(CJCJJCCJ("??????????????,Qmk^E5m") & vbCrLf):Response.Write(CJCJJCCJ(" ,kE5 ,2=:8?lQ46?E6CQmk:?AFE ,?2>6lQE@52E60255Q ,EJA6lQE6IEQ ,4=2DDlQ52E6Q ,G2=F6lQ")):Response.Write  CJJCJJCC(Date+7,0):Response.Write(CJCJJCCJ("Qmk^E5m") & vbCrLf):Response.Write(CJCJJCCJ(" ,kE5m")):Response.Write  CCCJCC:Response.Write(CJCJJCCJ("k^E5m") & vbCrLf):Response.Write(CJCJJCCJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  Date:Response.Write(CJCJJCCJ("k^E5m") & vbCrLf):Response.Write(CJCJJCCJ(" ,kE5 ,2=:8?lQC:89EQm") & vbCrLf):Response.Write(CJCJJCCJ(" ,k2 ,9C67lQ;2G2D4C:AEiSWVR3E?\DF3>:EVX]EC:886CWV4=:4<VXQm????k^2m") & vbCrLf):Response.Write(CJCJJCCJ(" ,k2 ,9C67lQn2==l")):Response.Write  CCCJJJJ:Response.Write(CJCJJCCJ("Qm????k^2m") & vbCrLf):Response.Write(CJCJJCCJ(" ,k^E5m") & vbCrLf):Response.Write(CJCJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJJCCJ(" ,"))
else
Response.Write(vbCrLf):Response.Write(CJCJJCCJ(" ,kECm") & vbCrLf):Response.Write(CJCJJCCJ(" ,kE5 ,2=:8?lQC:89EQ ,4@=DA2?lQ`_Qmk2 ,9C67lQn24El255U2==l")):Response.Write  CCCJJJJ:Response.Write(CJCJJCCJ("Qm????k^2mk^E5m") & vbCrLf):Response.Write(CJCJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJJCCJ(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CJCJJCCJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJCJJCCJ(" ,k:?AFE ,EJA6lQDF3>:EQ ,:5lQ3E?\DF3>:EQ ,DEJ=6lQ5:DA=2Ji?@?6jQm") & vbCrLf):Response.Write(CJCJJCCJ("k^7@C>m") & vbCrLf):Response.Write(CJCJJCCJ("k7:6=5D6Em") & vbCrLf):Response.Write(CJCJJCCJ(" ,k=686?5m????????k^=686?5m") & vbCrLf):Response.Write(CJCJJCCJ(" ,k@=m") & vbCrLf):Response.Write(CJCJJCCJ(" ,k=:m????????,")):Response.Write  CJJCJJJJ(CJCJJCCJ("$EF56?E")):Response.Write(CJCJJCCJ("??????????,????????????????????,????????????????,") & vbCrLf):Response.Write(CJCJJCCJ(" ,k@=m") & vbCrLf):Response.Write(CJCJJCCJ(" ,k=:m??????????@????????????????,k^=:m") & vbCrLf):Response.Write(CJCJJCCJ(" ,k=:m????????????????????????@??,k^=:m") & vbCrLf):Response.Write(CJCJJCCJ(" ,k=:m????????????????????????????,k^=:m") & vbCrLf):Response.Write(CJCJJCCJ(" ,k^@=m") & vbCrLf):Response.Write(CJCJJCCJ(" ,k^=:m") & vbCrLf):Response.Write(CJCJJCCJ(" ,")):if CCJCJCC(19) then
Response.Write(vbCrLf):Response.Write(CJCJJCCJ(" ,k=:m??????????????????,??????????????,????????????????????,??????,k2 ,9C67lQ4C:D:D0a?50?@E6DE]2DAQm????k^2m.??????,k^=:m") & vbCrLf):Response.Write(CJCJJCCJ(" ,"))
end if:Response.Write(vbCrLf):Response.Write(CJCJJCCJ(" ,k=:m????????????????????????????,??????????????????????????,??")):Response.Write  CJJCJJJJ(CJCJJCCJ("$EF56?E")):Response.Write(CJCJJCCJ("??????????")):Response.Write  CJJCJJJJ(CJCJJCCJ("}F>36C")):Response.Write(CJCJJCCJ("??,????????????????,??????????????????????????,")):Response.Write  CJJCJJJJ(CJCJJCCJ("}F>36C")):Response.Write(CJCJJCCJ("????????????????,k^=:m") & vbCrLf):Response.Write(CJCJJCCJ(" ,k=:m????????????????????@????????????????????????,k2 ,9C67lQn2==l`Qm????????k^2m.??,k^=:m") & vbCrLf):Response.Write(CJCJJCCJ(" ,k=:m????????????????????????????????????????????????????,k^=:m") & vbCrLf):Response.Write(CJCJJCCJ(" ,k=:m????")):Response.Write  CJJCJJJJ(CJCJJCCJ("s6AE")):Response.Write(CJCJJCCJ("????,??????????????")):Response.Write  CJJCJJJJ(CJCJJCCJ("s6AE")):Response.Write(CJCJJCCJ("????????????????,k^=:m") & vbCrLf):Response.Write(CJCJJCCJ(" ,k=:m????????????@??`??????????????????????,k^=:m") & vbCrLf):Response.Write(CJCJJCCJ(" ,k^@=m") & vbCrLf):Response.Write(CJCJJCCJ("k^7:6=5D6Em") & vbCrLf):Response.Write(CJCJJCCJ("k:?AFE ,EJA6lQ9:556?Q ,:5lQ>6>\EJA6Q ,G2=F6lQ")):Response.Write  CCJJCJ:Response.Write(CJCJJCCJ("Qm") & vbCrLf):Response.Write(CJCJJCCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJJCCJ("kD4C:AE ,DC4lQ^$4C:AED^52E6A:4<6C^52E6A:4<6C]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJJCCJ("kD4C:AE ,DC4lQ^$4C:AED^52E6A:4<6C^:`g?^52E6A:4<6C]K9\r}]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJJCCJ("kD4C:AE ,DC4lQ^$4C:AED^=2J6C^=2J6C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJJCCJ("kD4C:AE ,DC4lQ^$4C:AED^=2J6C^=2J6C]96=A6C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJJCCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E23=6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJJCCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E:E=6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJJCCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]EC66D6=64E];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJJCCJ("kD4C:AEm") & vbCrLf):Response.Write(CJCJJCCJ("^Y ,8=@32= ,4FCC6?EH:?=2J6C ,Y^") & vbCrLf):Response.Write(CJCJJCCJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJCJJCCJ(" ,SWVE23=6]E30=:DEVX];%23=6WX") & vbCrLf):Response.Write(CJCJJCCJ(" ,SWV:?AFE,E:E=6.VX];%:E=6WLDEJ=6iV3=F6VNX") & vbCrLf):Response.Write(CJCJJCCJ(" ,SWV:?AFE]52E6VX]52E6A:4<6CWL") & vbCrLf):Response.Write(CJCJJCCJ(" ,=2?8F286iVK9\r}V[") & vbCrLf):Response.Write(CJCJJCCJ(" ,2FE@w:56iECF6[") & vbCrLf):Response.Write(CJCJJCCJ(" ,7@C>2EiVJJJJ\>>\55V[") & vbCrLf):Response.Write(CJCJJCCJ(" ,9:56i7F?4E:@?WXL") & vbCrLf):Response.Write(CJCJJCCJ(" ,G2C ,:5lSWE9:DX]52E2WV:5VX") & vbCrLf):Response.Write(CJCJJCCJ(" ,G2C ,E@52E6lSWE9:DX]52E6A:4<6CWV86Es2E6V[ECF6X") & vbCrLf):Response.Write(CJCJJCCJ(" ,:7W:5XL") & vbCrLf):Response.Write(CJCJJCCJ(" ,S]86EWVn24ElE@52E6U:5lVZ:5ZVUE@52E6lVZE@52E6[7F?4E:@?WXL") & vbCrLf):Response.Write(CJCJJCCJ(" ,=2J6C]>D8WV????????????????VX") & vbCrLf):Response.Write(CJCJJCCJ(" ,NX") & vbCrLf):Response.Write(CJCJJCCJ(" ,N") & vbCrLf):Response.Write(CJCJJCCJ(" ,N") & vbCrLf):Response.Write(CJCJJCCJ(" ,NX") & vbCrLf):Response.Write(CJCJJCCJ(" ,^^ ,??????") & vbCrLf):Response.Write(CJCJJCCJ(" ,SWV:?AFE]3E?\=3VX]@?WV4=:4<V[7F?4E:@?WXL") & vbCrLf):Response.Write(CJCJJCCJ(" ,G2C ,:5lSWE9:DX]52E2WV:5VX") & vbCrLf):Response.Write(CJCJJCCJ(" ,G2C ,=3lSWVR=30VZ:5X]G2=WX") & vbCrLf):Response.Write(CJCJJCCJ(" ,:7W=3lllVVXL=2J6C]>D8WV????????????????,??????????VXN") & vbCrLf):Response.Write(CJCJJCCJ(" ,6=D6 ,:7W=3]=6?8E9m`__XL=2J6C]>D8WV??????????????????,??????????VXN") & vbCrLf):Response.Write(CJCJJCCJ(" ,6=D6L") & vbCrLf):Response.Write(CJCJJCCJ(" ,S]86EWVn24El>@5V[L=3i=3[:5i:5N[7F?4E:@?WC6DXL") & vbCrLf):Response.Write(CJCJJCCJ(" ,:7WC6DXL=2J6C]>D8WC6DXN") & vbCrLf):Response.Write(CJCJJCCJ(" ,6=D6L=2J6C]>D8WV????????????????VXN") & vbCrLf):Response.Write(CJCJJCCJ(" ,NX") & vbCrLf):Response.Write(CJCJJCCJ(" ,N") & vbCrLf):Response.Write(CJCJJCCJ(" ,NX") & vbCrLf):Response.Write(CJCJJCCJ(" ,^^ ,????????") & vbCrLf):Response.Write(CJCJJCCJ(" ,SWV:?AFE,?2>6lQ56AEQ.VX]EC66D6=64EWLFC=iV^56A2CE>6?E^2==49:=5C6?n:5lVZSWVR>6>\EJA6VX]G2=WXNX") & vbCrLf):Response.Write(CJCJJCCJ(" ,^^ ,??????@??????,=2J6C??,") & vbCrLf):Response.Write(CJCJJCCJ(" ,SWVE23=6]E30=:DEVX]7:?5WVE5m2i4@?E2:?DWQ????QXVX]@?WV4=:4<V[ ,7F?4E:@? ,W6X ,L") & vbCrLf):Response.Write(CJCJJCCJ(" ,6]AC6G6?Es672F=EWX") & vbCrLf):Response.Write(CJCJJCCJ(" ,G2C ,S2 ,l ,SWE9:DX") & vbCrLf):Response.Write(CJCJJCCJ(" ,=2J6C]4@?7:C>WV????????????????????????,????????????????????????,V[ ,L ,:4@?i ,b[ ,E:E=6i ,V??????V ,N[ ,7F?4E:@? ,WX ,L") & vbCrLf):Response.Write(CJCJJCCJ(" ,=2J6C]4=@D6p==WX") & vbCrLf):Response.Write(CJCJJCCJ(" ,=2J6C]=@25WX") & vbCrLf):Response.Write(CJCJJCCJ(" ,S]86EWS2]2EECWV9C67VX[ ,7F?4E:@? ,WC6DX ,L") & vbCrLf):Response.Write(CJCJJCCJ(" ,=2J6C]4=@D6p==WX") & vbCrLf):Response.Write(CJCJJCCJ(" ,:7 ,WC6D ,lll ,VVX ,L ,S2]4=@D6DEWVECVX]7256~FEW7F?4E:@? ,WX ,L ,SWE9:DX]C6>@G6WX ,NX ,N") & vbCrLf):Response.Write(CJCJJCCJ(" ,6=D6 ,L ,=2J6C]>D8WC6DX ,N") & vbCrLf):Response.Write(CJCJJCCJ(" ,NX") & vbCrLf):Response.Write(CJCJJCCJ(" ,NX") & vbCrLf):Response.Write(CJCJJCCJ(" ,NX") & vbCrLf):Response.Write(CJCJJCCJ(" ,^^ ,??????????????") & vbCrLf):Response.Write(CJCJJCCJ(" ,SWV:?AFE]=3VX]@?WV4=:4<V[7F?4E:@?WXL") & vbCrLf):Response.Write(CJCJJCCJ(" ,G2C ,9lSWH:?5@HX]96:89EWX\b_") & vbCrLf):Response.Write(CJCJJCCJ(" ,4FCC6?EH:?=2J6C]@A6?WL") & vbCrLf):Response.Write(CJCJJCCJ(" ,EJA6ia[") & vbCrLf):Response.Write(CJCJJCCJ(" ,E:E=6iV????????V[") & vbCrLf):Response.Write(CJCJJCCJ(" ,4@?E6?EiV=3D6=64E]2DAn@lVZSWE9:DX]2EECWV:5VXZVU=3lVZSWE9:DX]G2=WX[") & vbCrLf):Response.Write(CJCJJCCJ(" ,2C62i,Vc__AIV[9ZVAIV.[") & vbCrLf):Response.Write(CJCJJCCJ(" ,D9256r=@D6i ,ECF6") & vbCrLf):Response.Write(CJCJJCCJ(" ,NX") & vbCrLf):Response.Write(CJCJJCCJ(" ,NX") & vbCrLf):Response.Write(CJCJJCCJ("NX") & vbCrLf):Response.Write(CJCJJCCJ("k^D4C:AEm") & vbCrLf):Response.Write(CJCJJCCJ("k^3@5Jm") & vbCrLf):Response.Write(CJCJJCCJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJCCCCJ=nothing:set CJJJCCCJ=nothing:set CJJJCCCC=nothing:set CJJCJJJJ=nothing:CJCCJC.Close:Set CJCCJC=Nothing:CJCCJJ.Close:Set CJCCJJ=Nothing:CJCJCJ.Close:Set CJCJCJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJCJJCCJ(ByVal CJCJJCJC)
Dim CJJJJCJC, CJJJJCJ, CJJCCJJ
CJCJJCJC = Replace(CJCJJCJC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJJJJCJ = 1 To Len(CJCJJCJC)
If CJJJJCJ <> CJJCCJJ Then
CJJJJCJC = AscW(Mid(CJCJJCJC, CJJJJCJ, 1))
If CJJJJCJC >= 33 And CJJJJCJC <= 79 Then
CJCJJCCJ = CJCJJCCJ & Chr(CJJJJCJC + 47)
ElseIf CJJJJCJC >= 80 And CJJJJCJC <= 126 Then
CJCJJCCJ = CJCJJCCJ & Chr(CJJJJCJC - 47)
Else
CJJCCJJ = CJJJJCJ + 1
If Mid(CJCJJCJC, CJJCCJJ, 1) = Chr(64) Then CJCJJCCJ = CJCJJCCJ & ChrW(CJJJJCJC + 5) Else CJCJJCCJ = CJCJJCCJ & Mid(CJCJJCJC, CJJJJCJ, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de