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

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

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCCCCJ, CCCCCC,CJJJJJJ, CJJJJJC, CJJJJCJ:Set CCCCCJ = server.CreateObject(CJCJJJCJ("ps~sq]r@??64E:@?")):CCCCCJ.open Application(CJCJJJCJ("r@??64E:@?$EC:?8")):Set CCCCCC=CCCCCJ::Dim CJJJJCC,CJJJCJJ,CJJJCJC,CJJJCCJ,CJJJCCC,CJJCJJJ,CJJCJJC,CJJCJCJ,CJJCJCC:Dim CJJCCJJ,CJJCCJC,CJJCCCJ,CJJCCCC,CJCJJJJ,CJCJJJC:Dim CJCJJCJ,CJCJJCC,CJCJCJJ:Dim CJCJCJC:CJCJCJC=Trim(Request.Cookies(CJCJJJCJ("!$*|t|qt#"))):if CJCJCJC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJJJJCC>0 then
CJJJJCJ=CJCJJJCJ("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") & CJJJCJJ & CJCJJJCJ("V ,2?5 ,:5l") & CJJJJCC
set CJJJJJJ=CCCCCJ.execute(CJJJJCJ):If CJJJJJJ.EOF Then
Call ClearMemberCookie
Else
CJJJCJC=CJJJJJJ(2) & "":CJJJCCJ=CJJJJJJ(3):CJJJCCC=CJJJJJJ(5):CJJCJJJ=CJJJJJJ(6):CJJCJJC=CJJJJJJ(9):CJJCJCJ=CJJJJJJ(15):CJJCCJJ=CJJJJJJ(0):CJCJJCC=CJJJJJJ(1):CJCJJCJ=CJJJJJJ(11) & "":CJJCCJC=CJJJJJJ(10) & "":CJJCJCC=CJJJJJJ(12):CJJCCCJ=CJJJJJJ(14):CJJCCCC=CJJJJJJ(13):CJCJJJJ=CJJJJJJ(7) & "":CJCJJJC=CJJJJJJ(4):CJCJCJJ=CJJJJJJ(8):if isnull(CJJCJCJ) then CJJCJCJ=0
if isnull(CJJCJJC) or CJJCJJC=0 then CJJCJJC=CJJJCCJ
if isnull(CJCJJJC) then CJCJJJC=0
if isnull(CJJJCCC) then CJJJCCC=0
if instr(CJCJJJCJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJJCJJ)>0 then Call RedirectMessage(CJCJJJCJ("????????,????????????????????????????????,"))
Call SetMemberCookie(CJJJJCC,CJJJCJJ)
End IF
end if:Sub CheckRight(CJCJJJCC):dim CJCJCCJ,CJCJCCC:if CJJJJCC=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJCJJJCJ("??????????????,????????????,"))
elseIf not CJJJCJJJ(CJCJJJCC) then
Call RedirectMessage(CJCJJJCJ("????W") & CJCJJJCC & CJCJJJCJ("X????????,????????????????????,"))
end if:End Sub:Function CJJJCJJJ(CJCJJJCC):dim CJCJCCJ,CJCJCCC:CJCJCCC=split(CJCJJJCC,CJCJJJCJ("[")):CJJJCJJJ=False:for CJCJCCJ=0 to ubound(CJCJCCC):If Mid(CJJJCJC,CJCJCCC(CJCJCCJ),1)="1" then
CJJJCJJJ=True:exit function
end if:next:End Function:Sub CheckLogined():if CJJJJCC=0 then
Call ClearMemberCookie:Call ConnClose:dim CJCCJJJ:CJCCJJJ=trim(request.QueryString(CJCJJJCJ("D49@@="))):if isnumeric(CJCCJJJ) then
response.Redirect CJCJJJCJ("^>^G2?E^R^D49@@=^") & CJCCJJJ & CJCJJJCJ("^DEF56?E^=@8:?nC65:C64El") & CCJJJCJ
else
Call RedirectMessage(CJCJJJCJ("??????????????,????????????,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CJCJJJCJ("!$*|t|qt#"))="":CJJJJCC=0:CJJCJJJ=0:CJJJCJJ=Empty:CJJJCCC=0:CJJCJCJ=0:CJJCJJC=0:CJJJCCJ=0:CJJCCJJ=False:CJCJJCC=False:CJCJCJJ=Empty:End Sub:Sub CheckMemberCookie():dim CJCCJJC,CJCCJCJ,CJCJCCJ,CJCCJCC,CJCCCJJ:CJCCJJC=split(CJCJCJC,CJCJJJCJ("]")):if ubound(CJCCJJC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJCCJJC(0)) or len(CJCCJJC(1))<>32 or len(CJCCJJC(2))<>32 then
Call ClearMemberCookie
else
CJCCJCJ=CJCCJJC(1):for CJCJCCJ=1 to len(CJCCJCJ):CJCCJCC=mid(CJCCJCJ,CJCJCCJ,1):if isnumeric(CJCCJCC) then CJCCCJJ=CJCCCJJ & CJCCJCC
if len(CJCCCJJ)=7 then exit for
next:CJCCJCJ=CJCCJJC(2):if CJCCCJJ<>mid(CJCCJCJ,6,7) then
Call ClearMemberCookie
else
CJCCJCC=mid(CJCCJCJ,18,10)/2:if CJCCJCC<DateDiff(CJCJJJCJ("D"), CJCJJJCJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJJJJCC=Clng(CJCCJJC(0)):CJJJCJJ=CJCCJJC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJJJJJJJ,CJCJJCJJ):dim CJCJCCJ,CJCCJCC,CJCCCJJ:for CJCJCCJ=1 to len(CJCJJCJJ):CJCCJCC=mid(CJCJJCJJ,CJCJCCJ,1):if isnumeric(CJCCJCC) then CJCCCJJ=CJCCCJJ & CJCCJCC
if len(CJCCCJJ)=7 then exit for
next:CJCCCJJ=CJJJJJJJ & CJCJJJCJ("]") & CJCJJCJJ & CJCJJJCJ("]") & Fix(10000*(Rnd+1)) & CJCCCJJ & Fix(10000*(Rnd+1)) & DateDiff(CJCJJJCJ("D"), CJCJJJCJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJCJJJCJ("!$*|t|qt#"))=CJCCCJJ:End Sub::Function CJJJCJJC(CJCJJCJC):Dim str,CJCCCCJ:str = Trim(CJCJJCJC):If IsNull(str) Or str = "" Then
CJJJCJJC = ""
else
str=Replace(str, CJCJJJCJ("V"), "")
str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CJCJJJCJ("k:7C2>6"), CJCJJJCJ("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CJCJJJCJ("kD4C:AE"), CJCJJJCJ("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CJCCCCJ=new RegExp:CJCCCCJ.Pattern=CJCJJJCJ("@?W,2\K.ZXl"):CJCCCCJ.IgnoreCase = True:CJCCCCJ.Global=True:str=CJCCCCJ.Replace(str,CJCJJJCJ("@?S`U6BF2=Dj")):set CJCCCCJ=nothing:CJJJCJJC=str
End If:End Function:Function IIf(CJCJJCCJ, CJCJJCCC, CJCJCJJJ):if isnull(CJCJJCCJ) or isempty(CJCJJCCJ) then
IIf = CJCJCJJJ
elseif CJCJJCCJ Then
IIf = CJCJJCCC
Else
IIf = CJCJCJJJ
end if:End Function:Const CJJJJCCC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":Function CJJJCJCC(str):if isnull(str) or str="" then
CJJJCJCC=False:exit function
end if:Dim CJCCCCJ:Set CJCCCCJ = New RegExp:CJCCCCJ.Pattern = CJCJJJCJ("/`Wb,_\h.Mc,dfh.Md,_`abdefgh.Me,aef.Mf,_`abdefg.Mg,_\h.Mh,`dgh.X-5LgNS"):CJCCCCJ.IgnoreCase = True:CJJJCJCC = CJCCCCJ.test(str):set CJCCCCJ=nothing:End Function:Function CJJJCCJJ():dim CJCCCCC:CJCCCCC = Cstr(Request.ServerVariables(CJCJJJCJ("w%%!0)0u~#(p#sts0u~#"))):If CJCCCCC = "" Then CJCCCCC = Cstr(Request.ServerVariables(CJCJJJCJ("#t|~%t0pss#")))
if instr(CJCCCCC,CJCJJJCJ("i"))>0 then
CJCCCCC=left(CJCCCCC,instr(CJCCCCC,CJCJJJCJ("i"))-1)
elseif instr(CJCCCCC,CJCJJJCJ("["))>0 then
CJCCCCC=left(CJCCCCC,instr(CJCCCCC,CJCJJJCJ("["))-1)
end if:CJJJCCJJ=left(CJCCCCC,15):End Function:Sub Debug(str):response.Charset=CJCJJJCJ("FE7\g"):dim CJCJCCJ,CJCCJCC,CCJJJJJ:if isarray(str) then
on error resume next:CJCJCCJ=ubound(str,2):CCJJJJJ=err.number:err.clear:on error goto 0:if CCJJJJJ<>0 then
for CJCJCCJ=0 to ubound(str):if CJCJCCJ>0 then response.Write CJCJJJCJ("k3C ,^m")
response.Write CJCJCCJ & CJCJJJCJ("i ,") & str(CJCJCCJ):next
else
response.Write CJCJJJCJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CJCJCCJ=0 to ubound(str,2):response.Write CJCJJJCJ("kE9 ,2=:8?lV=67EVm") & CJCJCCJ & CJCJJJCJ("k^E9m")
next:response.Write CJCJJJCJ("k^ECm"):for CJCJCCJ=0 to ubound(str):response.Write CJCJJJCJ("kECmkE9m") & CJCJCCJ & CJCJJJCJ("k^E9m"):for CJCCJCC=0 to ubound(str,2):response.Write CJCJJJCJ("kE5m") & str(CJCJCCJ,CJCCJCC) & CJCJJJCJ("k^E5m"):next:response.Write CJCJJJCJ("k^ECm"):next:response.Write CJCJJJCJ("k^E23=6m")
end if
elseif isnull(str) then
response.Write CJCJJJCJ(",}F==.")
else
Response.Write replace(str,vbcrlf,CJCJJJCJ("k3Cm"))
end if:Call ConnClose:Response.End:End Sub:Public Function CJJJCCJC():Dim CCJJJJC, CCJJJCJ:CCJJJCJ = Request.ServerVariables(CJCJJJCJ("!p%w0x}u~")):CCJJJJC = Request.ServerVariables(CJCJJJCJ("""&t#*0$%#x}v")):If CCJJJJC <> Empty Then
if instr(lcase(CCJJJJC),CJCJJJCJ("Tb4:7C2>6"))>0 or instr(lcase(CCJJJJC),CJCJJJCJ("Tb4D4C:AE"))>0 then Call RedirectMessage(CJCJJJCJ("????????,????????????????????????,??,??,"))
CCJJJCJ = CCJJJCJ & CJCJJJCJ("n") & CCJJJJC
end if:CJJJCCJC = CCJJJCJ:End Function:Sub SetHttpOnlyCookie(CJCJCJJC,CJCJCJCJ):dim CJCCJJC:CJCCJJC=CJCJCJJC & CJCJJJCJ("l") & CJCJCJCJ & CJCJJJCJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJCJJJCJ("$6E\r@@<:6"),CJCCJJC):End Sub:::::::Function CJJJCCCJ(CCJJJJJ):if isnull(CCJJJJJ) or trim(CCJJJJJ)="" or not isnumeric(CCJJJJJ) then
CJJJCCCJ=false
else
Dim CJCCCCJ:Set CJCCCCJ = New RegExp:CJCCCCJ.Pattern = CJCJJJCJ("/-5ZS"):CJCCCCJ.IgnoreCase = True:CJJJCCCJ = CJCCCCJ.test(CCJJJJJ):set CJCCCCJ=nothing
end if:End Function:Function CJJJCCCC(CJCJCJCC):dim CCJJJCC,CCJJCJJ:CCJJJCC=CJCJJJCJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJCJCJCC & CJCJJJCJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CCJJCJJ=CCCCCJ.execute(CCJJJCC):CJJJCCCC = CCJJCJJ(0):if isnull(CJJJCCCC) then CJJJCCCC=1
CCJJCJJ.close : set CCJJCJJ=nothing:End Function::sub Alert(ByVal CJJCJJJJ):Call ConnClose:CJJCJJJJ=replace(CJJCJJJJ,vbcrlf,CJCJJJCJ("-?")):CJJCJJJJ=replace(CJJCJJJJ,CJCJJJCJ("V"),CJCJJJCJ("-V"))
response.Charset=CJCJJJCJ("FE7\g"):response.write CJCJJJCJ("kD4C:AEm2=6CEWV") & CJJCJJJJ & CJCJJJCJ("VXj9:DE@CJ]324<WXk^D4C:AEm")
response.end:end sub::Sub ConnClose():On Error Resume Next:set CCCJJJJ=nothing:set CJJCJJJC=nothing:set CJJCJJCJ=nothing:set CJJCJJCC=nothing:CCJJCJJ.close : set CCJJCJJ=nothing:CJJJJJC.Close : Set CJJJJJC=Nothing:CJJJJJJ.Close : Set CJJJJJJ=Nothing:CJJCJCJJ.Close : Set CJJCJCJJ = Nothing:CCCCCJ.Close : Set CCCCCJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJCJJJJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJCJJJCJ("!$*0|6DD286"),server.URLEncode(CJJCJJJJ)):Response.Redirect CJCJJJCJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:Sub SendSystemMessage(ByVal CJJCJCJC,title,content):Dim CJCJCCJ,CCJJJCC:if isnull(CJJCJCJC) or CJJCJCJC="" then exit Sub
CJJCJCJC=split(CJJCJCJC,CJCJJJCJ("[")):for CJCJCCJ=0 to ubound(CJJCJCJC):if CJJJCCCJ(CJJCJCJC(CJCJCCJ)) then CCJJJCC=CCJJJCC & CJCJJJCJ(":?D6CE ,:?E@ ,>6DD286WD6?56C[C646:G6C[E:E=6[4@?E6?E[:DDJD[:D?6HX ,G2=F6DW") & CJJJJCC & CJCJJJCJ("[") & CJJCJCJC(CJCJCCJ) & CJCJJJCJ("[V") & title & CJCJJJCJ("V[V") & content & CJCJJJCJ("V[`[`Xj")
next:if CCJJJCC<>"" then CCCCCJ.execute CCJJJCC
End Sub:Sub StringDown(CJCJCCJJ, str):Call ConnClose:Response.Charset=CJCJJJCJ("FE7\g"):Response.Buffer = True:Response.Clear:if right(CJCJCCJJ,4)=CJCJJJCJ("]4DG") then Response.BinaryWrite ChrB(&HEF) & ChrB(&HBB) & ChrB(&HBF)
Response.AddHeader CJCJJJCJ("r@?E6?E\s:DA@D:E:@?"), CJCJJJCJ("2EE249>6?Ej ,7:=6?2>6l") & CJCJCCJJ:Response.ContentType = CJCJJJCJ("2AA=:42E:@?^@4E6E\DEC62>"):Response.Write str:Response.End:End Sub::::Function CJJCJCCJ(CJCJCCJC,CJCJJJCC):if isnull(CJCJCCJC) then
CJJCJCCJ=False
else
If Mid(CJCJCCJC,CJCJJJCC,1)="1" then CJJCJCCJ=True else CJJCJCCJ=False
end if:End Function:::Sub SMS(CCJCCCC,CJCJJJJC):dim CCJJJCJ:if instr(CJCJJJJC,CJCJJJCJ("??,"))<>1 then CJCJJJJC=CJCJJJCJ("??,??????????,") & CJCJJJJC
CCJJJCJ=CJCJJJCJ("9EEAi^^`a_]ae]ee]ac^>D8^wEEAq2E49$6?5$|n244@F?El3;I95909JUADH5l3;I95909J`abU>@3:=6l") &  CCJCCCC & CJCJJJCJ("U>D8l") + server.urlencode(CJCJJJJC)
Call CJJCCJJJ(CCJJJCJ,CJCJJJCJ("v6E"),"")
End Sub:Function CJJCCJJJ(ByVal CCJJJCJ,ByVal CJJCJCCC,Data)
Dim CCJJCJC,CCJJCCJ,CCJJCCC,CCJCJJJ,CCJJJJJ:if left(CCJJJCJ,7)<>CJCJJJCJ("9EEAi^^") then CCJJJCJ=CJCJJJCJ("9EEAi^^") & request.ServerVariables(CJCJJJCJ("$t#'t#0}p|t")) & CJCJJJCJ("i") & request.ServerVariables(CJCJJJCJ("$t#'t#0!~#%")) & CCJJJCJ
CJJCJCCC=Ucase(CJJCJCCC):Set CCJJCJC = Server.CreateObject(CJCJJJCJ("|DI>=a]$6CG6C)|{w%%!")):CCJJCJC.Open CJJCJCCC, CCJJJCJ, False:if CJJCJCCC=CJCJJJCJ("!~$%") then CCJJCJC.setRequestHeader CJCJJJCJ("r@?E6?E\%JA6"),CJCJJJCJ("2AA=:42E:@?^I\HHH\7@C>\FC=6?4@565")
On Error Resume Next:CCJJCJC.Send Data:if err then Call RedirectMessage(CJCJJJCJ("$6CG6C)|{w%%!\tCC@C\,") & CJJCJCCC & CJCJJJCJ(".") & CCJJJCJ & CJCJJJCJ("i ,") & err.description)
On Error Goto 0:if CCJJCJC.Readystate <> 4 or CCJJCJC.Status<>200 then
CCJJCCC = ""
else
CCJJCCC = CCJJCJC.ResponseText
end if:Set CCJJCJC = Nothing:CJJCCJJJ=CCJJCCC
End Function:::::::::::Sub InsertLog(CJCJCCCJ,CJCJJJJC):dim CCJJJCC:CCJJJCC=CJCJJJCJ("x?D6CE ,:?E@ ,=@8W>6>36C[:A[4@?E6?E[EJA6[FC=X ,G2=F6DW") & CJJJJCC  & CJCJJJCJ("[V") & CJJJCCJJ & CJCJJJCJ("V") & CJCJJJCJ("[V") & CJJJCJJC(CJCJJJJC) & CJCJJJCJ("V") & CJCJJJCJ("[") & CJCJCCCJ  & CJCJJJCJ("[V") & CJJJCCJC & CJCJJJCJ("V") & CJCJJJCJ("X")
CCCCCJ.execute CCJJJCC:End Sub::::::::Sub Export2Excel(CJJJJCJ,CJCJCCJJ):if CJJJJCJ="" then call redirectmessage(CJCJJJCJ("????????,????????????????????,"))
dim CCJJCJJ,CCJCJJC,CJCJCCJ,CCJCJCJ,CCJCJCC:set CCJJCJJ=CCCCCJ.execute(CJJJJCJ):CCJCJJC=CCJJCJJ.fields.count-1:CCJCJCJ=CJCJJJCJ("k>6E2 ,9EEA\6BF:GlVr@?E6?E\%JA6V ,4@?E6?ElVE6IE^9E>=j ,492CD6ElFE7\gV ,^mkE23=6 ,3@C56ClV`VmkECm")
for CJCJCCJ=0 to CCJCJJC:CCJCJCJ=CCJCJCJ & CJCJJJCJ("kE9m") & CCJJCJJ.fields(CJCJCCJ).name & CJCJJJCJ("k^E9m"):next:CCJCJCJ=CCJCJCJ & CJCJJJCJ("k^ECm"):while not CCJJCJJ.eof:CCJCJCJ=CCJCJCJ & CJCJJJCJ("kECm"):for CJCJCCJ=0 to CCJCJJC:CCJCJCC=CCJJCJJ(CJCJCCJ):CCJCJCJ=CCJCJCJ & CJCJJJCJ("kE5m") & CCJCJCC & CJCJJJCJ("k^E5m"):next:CCJCJCJ=CCJCJCJ & CJCJJJCJ("k^ECm"):CCJJCJJ.movenext:wend:CCJCJCJ=CCJCJCJ & CJCJJJCJ("k^E23=6m"):CCJJCJJ.close : set CCJJCJJ=nothing:Call StringDown(CJCJCCJJ & CJCJJJCJ("]I=D"),CCJCJCJ):End Sub:::Function CJJCCJJC(CJCCJJJ,CCJJJJJ):dim CCJJCJJ,CCJCCJJ:set CCJJCJJ=CCCCCJ.execute(CJCJJJCJ("D6=64E ,:5[,C:89E. ,7C@> ,G0>6>36C ,H96C6 ,:DD49@@=25>:?l` ,2?5 ,>6>36C0EJA60E@Al") & CJCCJJJ):while not CCJJCJJ.eof:if CJJCJCCJ(CCJJCJJ(1),CCJJJJJ) then CCJCCJJ=CCJCCJJ & CJCJJJCJ("[") & CCJJCJJ(0)
CCJJCJJ.movenext:wend:if CCJCCJJ<>"" then CCJCCJJ=Mid(CCJCCJJ,2)
CJJCCJJC=CCJCCJJ:End Function:::Function CJJCCJCJ(CJCJCCCC,str):dim CJCJCCJ,CCJCCJC,CCJCCCJ,CCJCCCC,CCJJJJJ,CCJCJCJ,CJCCCJJ:CJCCCJJ=ucase(CJCJCCCC):CCJCJCJ=str:if CCJCJCJ="" then
CCJCJCJ=request.cookies(CJCCCJJ):if CCJCJCJ="" then
CJJCCJCJ=""
else
CCJCJCJ=strreverse(CCJCJCJ):CCJCCJC=len(CCJCJCJ):for CJCJCCJ=1 to CCJCCJC-1 step 2:CCJCCCC=mid(CCJCJCJ,CJCJCCJ,1):CCJJJJJ=mid(CCJCJCJ,CJCJCCJ+1,1):CCJCCCJ=CCJCCCJ & CCJJJJJ & CCJCCCC:next:CCJCCCJ=replace(CCJCCCJ,CJCJJJCJ("L0N"),CJCJJJCJ(" ,")):CCJCCCJ=replace(CCJCCCJ,CJCJJJCJ("LIN"),CJCJJJCJ("Y")):CCJCCCJ=replace(CCJCCCJ,CJCJJJCJ("L:N"),CJCJJJCJ("^")):CJJCCJCJ=trim(CCJCCCJ)
end if
else
if Len(CCJCJCJ) Mod 2=1 then CCJCJCJ=CCJCJCJ & CJCJJJCJ(" ,")
CCJCJCJ=replace(CCJCJCJ,CJCJJJCJ(" ,"),CJCJJJCJ("L0N")):CCJCJCJ=replace(CCJCJCJ,CJCJJJCJ("Y"),CJCJJJCJ("LIN")):CCJCJCJ=replace(CCJCJCJ,CJCJJJCJ("^"),CJCJJJCJ("L:N")):CCJCCJC=len(CCJCJCJ):for CJCJCCJ=1 to CCJCCJC-1 step 2:CCJCCCC=mid(CCJCJCJ,CJCJCCJ,1):CCJJJJJ=mid(CCJCJCJ,CJCJCCJ+1,1):CCJCCCJ=CCJCCCJ & CCJJJJJ & CCJCCCC:next:CCJCCCJ=Trim(strreverse(CCJCCCJ)):CJJCCJCJ=CCJCCCJ:response.cookies(CJCCCJJ)=CCJCCCJ
end if:End Function::Sub ClearCache(CJCCJJJJ):Application.Contents.Remove CJCCJJJJ
End Sub::Class jTree:Private CJJJJCJ, CCCJJJJ, CCCJJJC, CCCJJCJ,CCCJJCC,CCCJCJJ,CCCJCJC,CCCJCCJ:Private Sub Class_Initialize():CCCJJJC = 0:CCCJJCJ = 0:CCCJCCJ=10:End Sub:Public Property Let Table(CJCCJJJC):if CJCCJJJC="" then Call RedirectMessage(CJCJJJCJ("????????,;%C66????????????????????@??????????,"))
CCCJJCC=CJCCJJJC:CCCJCJJ=CJCJJJCJ("!$*0") & UCase(CCCJJCC):Call GetTreeArray:End Property:Public Property Get Table():Table=CCCJJCC:End Property::Public Property Get Count():Count=CCCJJCJ-CCCJCCJ:End Property:Private Sub GetTreeArray():Dim CJCJCCJ, CJCCJCC, CCCJCCC,CCCCJJJ:CCCJJJJ = Application(CCCJCJJ):If Not IsArray(CCCJJJJ) Then
CJJJJCJ = CJCJJJCJ("D6=64E ,4@F?EW:5X ,7C@> ,") & CCCJJCC:if CCCJCJC<>"" then CJJJJCJ=CJJJJCJ & CJCJJJCJ(" ,H96C6 ,") & CCCJCJC
set CCCJCCC=CCCCCJ.execute(CJJJJCJ):CCCCJJJ=CCCJCCC(0):if CCCCJJJ=0 then Call RedirectMessage(CJCJJJCJ("????W") & CCCJJCC & CJCJJJCJ("^") & CCCJCJC & CJCJJJCJ("X????????????"))
CCCJJCJ=CCCCJJJ+CCCJCCJ:ReDim CCCJJJJ(CCCJJCJ, 4):CJJJJCJ = CJCJJJCJ("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCCJJCC & CJCJJJCJ(" ,H:E9 ,W?@=@4<X"):if CCCJCJC<>"" then CJJJJCJ=CJJJJCJ & CJCJJJCJ(" ,H96C6 ,") & CCCJCJC
CJJJJCJ=CJJJJCJ & CJCJJJCJ(" ,@C56C ,3J ,D@CE[:5"):set CCCJCCC=CCCCCJ.execute(CJJJJCJ):For CJCJCCJ = 1 To CCCCJJJ:For CJCCJCC = 0 To 4:CCCJJJJ(CJCJCCJ, CJCCJCC) = CCCJCCC(CJCCJCC):if IsNull(CCCJJJJ(CJCJCCJ,4)) then CCCJJJJ(CJCJCCJ,4)=0
If CCCJJJJ(CJCJCCJ,2)="" then CCCJJJJ(CJCJCCJ,2)=CJCJJJCJ(",??.")
Next:CCCJCCC.MoveNext:Next:CCCJCCC.Close: Set CCCJCCC = Nothing:for CJCJCCJ=CCCJJCJ-(CCCJCCJ-1) to CCCJJCJ:CCCJJJJ(CJCJCCJ,0)=CJCJCCJ:next:Application.Lock():Application(CCCJCJJ) = CCCJJJJ:Application.UnLock()
else
CCCJJCJ=Ubound(CCCJJJJ)
End If:End Sub:::::Private Function CJJCCCJJ(CJJJJJJJ):dim CJCJCCJ,CCCCJJC:CJJCCCJJ=0:CCCCJJC=CStr(CJJJJJJJ):if CCCCJJC<>"0" then
for CJCJCCJ=1 to CCCJJCJ:If CStr(CCCJJJJ(CJCJCCJ, 0))=CCCCJJC Then
CJJCCCJJ = CJCJCCJ:Exit For
End If:Next
end if:End Function::::Public Function CJJCCCJC(CJJJJJJJ):Dim CJCJCCJ,CCCCJCJ:CJCJCCJ=CJJCCCJJ(CJJJJJJJ):if CJCJCCJ=0 then
CCCCJCJ=CJJCCCCJ(CJJJJJJJ)
else
CCCCJCJ=CCCJJJJ(CJCJCCJ,3):if isnull(CCCCJCJ) or CCCCJCJ="" then
CCCCJCJ=CJJCCCCJ(CJJJJJJJ)
elseif Mid(CCCCJCJ,instrrev(CCCCJCJ,CJCJJJCJ("["))+1)<>CStr(CJJJJJJJ) then
CCCCJCJ=CJJCCCCJ(CJJJJJJJ)
elseif Left(CCCCJCJ,1)=CJCJJJCJ("[") then
CCCCJCJ=CJJCCCCJ(CJJJJJJJ)
end if
end if:CJJCCCJC=CCCCJCJ:End Function:Private Function CJJCCCCJ(CJJJJJJJ):dim CCCCJJC:CCCCJJC=CStr(CJJJJJJJ):if CCCCJJC="0" then
CJJCCCCJ=""
else
dim CCCJCCC:set CCCJCCC=CCCCCJ.execute(CJCJJJCJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCCJJCC & CJCJJJCJ(" ,H96C6 ,:5l") & CJJJJJJJ):if CCCJCCC.eof then
Call UpdateCache(CJJJJJJJ,"","","",""):Call RedirectMessage(CJCJJJCJ("??????,xs??,") & CJJJJJJJ & CJCJJJCJ("??,????????,????????????????????,"))
else
if CCCJCCC(0)=0 then
CJJCCCCJ="0," & CJJJJJJJ
else
CJJCCCCJ=CJJCCCJC(CCCJCCC(0)) & CJCJJJCJ("[") & CJJJJJJJ
end if:if CCCJCCC(2)<>CJJCCCCJ then
CCCCCJ.execute CJCJJJCJ("FA52E6 ,") & CCCJJCC & CJCJJJCJ(" ,D6E ,A2E9lV") & CJJCCCCJ & CJCJJJCJ("V ,H96C6 ,:5l") & CJJJJJJJ
else
CJJCCCCJ=CCCJCCC(2)
end if
end if:Call UpdateCache(CJJJJJJJ,CCCJCCC(0),CCCJCCC(1),CJJCCCCJ,CCCJCCC(3)):CCCJCCC.Close: Set CCCJCCC = Nothing
end if:End Function::::::::::::Public Function Sql_GetChildren(CJJJJJJJ):dim CCCCJCJ:CCCCJCJ=CJJCCCJC(CJJJJJJJ):Sql_GetChildren = CCCJJCC & CJCJJJCJ("0A2E9ZV[V ,=:<6 ,V") & CCCCJCJ & CJCJJJCJ("[TV")
End Function::::::::::Public Sub ClearCache():Application.Contents.Remove CCCJCJJ
End Sub:Public Sub UpdateCache(CJJJJJJJ,CJCCJJCJ,name,CCCCJCJ,CJCCJCJJ):dim CJCJCCJ,CJCCJCC:CJJJJJJJ=CLng(CJJJJJJJ):CJCJCCJ=CJJCCCJJ(CJJJJJJJ):if CJCCJJCJ="" and name="" and CCCCJCJ="" and CJCCJCJJ="" then
if CJCJCCJ>0 then
for CJCCJCC=1 to 4:CCCJJJJ(CJCJCCJ,CJCCJCC)=Null:next
end if
else
if CJCJCCJ=0 then
for CJCCJCC=1 to CCCJJCJ:if CCCJJJJ(CJCCJCC,1) & ""="" then
CJCJCCJ=CJCCJCC:exit for
end if:next
end if:if CJCJCCJ=0 then
Call ClearCache
else
CCCJJJJ(CJCJCCJ,0)=CLng(CJJJJJJJ):if CJCCJJCJ<>"" then CCCJJJJ(CJCJCCJ,1)=CLng(CJCCJJCJ)
if name<>"" then CCCJJJJ(CJCJCCJ,2)=name
if CCCCJCJ<>"" then CCCJJJJ(CJCJCCJ,3)=CCCCJCJ
if CJCCJCJJ<>"" then CCCJJJJ(CJCJCCJ,4)=CLng(CJCCJCJJ)
end if
end if:if CJCJCCJ>0 then
Application.Lock():Application(CCCJCJJ) = CCCJJJJ:Application.UnLock()
end if:End Sub:Private Sub Debug(CJJCJJJJ):Call ConnClose:Response.Write CJJCJJJJ:Response.End:End Sub:Private Function CJJJCCCC():CJJJCCCC=CJCJJJJJ+1:End Function:Private Function CJCJJJJJ():dim CCJJCJJ:set CCJJCJJ=CCCCCJ.execute(CJCJJJCJ("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CCCJJCC & CJCJJJCJ(" ,@C56C ,3J ,:5 ,56D4")):CJCJJJJJ=CCJJCJJ(0):CCJJCJJ.Close: Set CCJJCJJ = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::dim CJCCJJJ:CJJJJCJ=Request.ServerVariables(CJCJJJCJ("!p%w0x}u~")):if instr(CJJJJCJ,CJCJJJCJ("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CJJCCJJ and not CJCJJCC then Call RedirectMessage(CJCJJJCJ("????????,????????????????????????,"))
CJCCJJJ=CJJCJJC
elseif instr(CJJJJCJ,CJCJJJCJ("^>^D49@@=^DEF56?E^"))>0 or instr(CJJJJCJ,CJCJJJCJ("^DEF56?E^"))>0 then
Call CheckLogined:CJCCJJJ=CJJCJJC
elseif instr(CJJJJCJ,CJCJJJCJ("^D49@@="))>0 then
CJCCJJJ=Request.QueryString(CJCJJJCJ("D49@@=")):if not CJJJCCCJ(CJCCJJJ) then CJCCJJJ=Request.QueryString(CJCJJJCJ("F"))
if not CJJJCCCJ(CJCCJJJ) then CJCCJJJ=Request.QueryString(CJCJJJCJ("D4"))
if not CJJJCCCJ(CJCCJJJ) then Call RedirectMessage(CJCJJJCJ("????????W$49@@=X??@??????????,"))
CJCCJJJ=csng(CJCCJJJ)
end if:if CJCCJJJ=0 then Call RedirectMessage(CJCJJJCJ("????????W$49@@=X????W_X??,"))
Dim CCCCJCC:Call SetConfig:Sub SetConfig():dim CJCJCCC,CCJJCJJ:CJJJJCJ=CJCJJJCJ("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") & CJCCJJJ:set CCJJCJJ=CCCCCJ.execute(CJJJJCJ):if CCJJCJJ.eof then Call RedirectMessage(CJCJJJCJ("??W") & CJJJJCC & CJCJJJCJ("X??????????W") & CJCCJJJ & CJCJJJCJ("X????????,"))
ReDim CJCJCCC(61):CJCJCCC(0)=CCJJCJJ(CJCJJJCJ(";:2@H6:")) & "":CJCJCCC(1)=CCJJCJJ(CJCJJJCJ("EJA6")):CJCJCCC(2)=CCJJCJJ(CJCJJJCJ("D>D")):CJCJCCC(3)=CCJJCJJ(CJCJJJCJ("4FDE@>8C@FA")) & "":CJCJCCC(4)=CCJJCJJ(CJCJJJCJ("D:5632C0@E96C")) & "":CJCJCCC(5)=IIf(isnull(CCJJCJJ(CJCJJJCJ("E6DEC6DF=EG:6H"))),0,CCJJCJJ(CJCJJJCJ("E6DEC6DF=EG:6H"))):CJCJCCC(6)=CCJJCJJ(CJCJJJCJ("K:IF?E:>6")):CJCJCCC(7)=CCJJCJJ(CJCJJJCJ("766")):CJCJCCC(8)=CCJJCJJ(CJCJJJCJ("C6E6DE52J")):CJCJCCC(9)=CCJJCJJ(CJCJJJCJ("6IA:C652E6")):CJCJCCC(10)=CCJJCJJ(CJCJJJCJ("E:E=6")):CJCJCCC(11)=CCJJCJJ(CJCJJJCJ(":?EC@")) & "":CJCJCCC(12)=CCJJCJJ(CJCJJJCJ("A:4EFC6")) & "":CJCJCCC(13)=CCJJCJJ(CJCJJJCJ("72>:=J")):CJCJCCC(14)=CCJJCJJ(CJCJJJCJ("4@AJC:89E")) & "":CJCJCCC(15)=IIf(isnull(CCJJCJJ(CJCJJJCJ("D6>6DE6C0DE2CE052E6"))),CJCJJJCJ("`h__\`\`"),CCJJCJJ(CJCJJJCJ("D6>6DE6C0DE2CE052E6"))):CJCJCCC(16)=IIf(isnull(CCJJCJJ(CJCJJJCJ("K:IF?0E:>6D09:89=:89E"))),0,CCJJCJJ(CJCJJJCJ("K:IF?0E:>6D09:89=:89E"))):CJCJCCC(17)=CCJJCJJ(CJCJJJCJ("4@?E24E")) & "":CJCJCCC(18)=CCJJCJJ(CJCJJJCJ("D2?5E23=6")):CJCJCCC(19)=CCJJCJJ(CJCJJJCJ("4C:D:D")):CJCJCCC(20)=CCJJCJJ(CJCJJJCJ("JJ52E6")):CJCJCCC(21)=CCJJCJJ(CJCJJJCJ("BB")):CJCJCCC(22)=CCJJCJJ(CJCJJJCJ("JFJF60D>D0EA=")) & "":CJCJCCC(23)=CCJJCJJ(CJCJJJCJ("JFJF60E6DE0=3")) & "":CJCJCCC(25)=CCJJCJJ(CJCJJJCJ("6IA6CE")):CJCJCCC(26)=CCJJCJJ(CJCJJJCJ(">@5:?7@")):CJCJCCC(27)=CCJJCJJ(CJCJJJCJ("9@>6A286E@AA:4EFC6")) & "":CJCJCCC(28)=CCJJCJJ(CJCJJJCJ("4C:D:D=3")):CJCJCCC(29)=IIf(CCJJCJJ(CJCJJJCJ("4C:D:D@=5")),False,True):CJCJCCC(30)=CCJJCJJ(CJCJJJCJ("8C@FA8F:52?46")):CJCJCCC(31)=CCJJCJJ(CJCJJJCJ("3:@7665324<")):CJCJCCC(32)=CCJJCJJ(CJCJJJCJ("<6JDEC")):CJCJCCC(33)=CCJJCJJ(CJCJJJCJ("=@8@")) & "":CJCJCCC(34)=CCJJCJJ(CJCJJJCJ("K:46")):CJCJCCC(35)=IIf(CCJJCJJ(CJCJJJCJ(":D?6H")),True,False):CJCJCCC(36)=121:CJCJCCC(37)=111:CJCJCCC(38)=160:CJCJCCC(39)=CCJJCJJ(CJCJJJCJ("8F6DE3@@<")):CJCJCCC(40)=CCJJCJJ(CJCJJJCJ("75D")):CJCJCCC(42)=CCJJCJJ(CJCJJJCJ("9@>6=@8:?")):CJCJCCC(43)=CCJJCJJ(CJCJJJCJ("K:IF?0?6657665324<")):CJCJCCC(44)=CCJJCJJ(CJCJJJCJ("K:IF?0E:>6D0=:>:E")):CJCJCCC(45)=CCJJCJJ(CJCJJJCJ("4@>A=6E60:?7@")):CJCJCCC(46)=CCJJCJJ(CJCJJJCJ("E6DE:?EC@")) & "":CJCJCCC(47)=IIf(isnull(CCJJCJJ(CJCJJJCJ("JFJF60367@C60E:>6"))),0,CCJJCJJ(CJCJJJCJ("JFJF60367@C60E:>6"))):CJCJCCC(49)=CCJJCJJ(CJCJJJCJ("D>D0C646:G6C")):CJCJCCC(50)=CCJJCJJ(CJCJJJCJ("D>D0D:8?")) & "":CJCJCCC(52)=CCJJCJJ(CJCJJJCJ("JFJF602CC2?86")):CJCJCCC(53)=IIf(isnull(CCJJCJJ(CJCJJJCJ("DEF56?E0BF6DE:@?04@F?E"))),0,CCJJCJJ(CJCJJJCJ("DEF56?E0BF6DE:@?04@F?E"))):CJCJCCC(54)=CCJJCJJ(CJCJJJCJ("9:560=30@FE@7286")):CJCJCCC(55)=CCJJCJJ(CJCJJJCJ("JFJF60E6DE052JD")):CJCJCCC(56)=CCJJCJJ(CJCJJJCJ("JFJF60H66<0=:>:E")):CJCJCCC(57)=CCJJCJJ(CJCJJJCJ("JFJF604964<65")):CJCJCCC(58)=CCJJCJJ(CJCJJJCJ("K:IF?0?6657665324<0?6IE")):CJCJCCC(59)=CCJJCJJ(CJCJJJCJ("4964<?6HDEF56?E")):CJCJCCC(60)=CCJJCJJ(CJCJJJCJ("K:IF?04=@D6052E6")):CCJJCJJ.close : set CCJJCJJ=nothing:if isNull(CJCJCCC(8)) or CJCJCCC(8)="" then CJCJCCC(8)=0
if isdate(CJCJCCC(9)) then
CJCJCCC(9)=cdate(CJCJCCC(9)):if CJCJCCC(9)<Date then Call RedirectMessage(CJCJJJCJ("????????,????????????????W") & CJCJCCC(9) & CJCJJJCJ("X??????,"))
end if:if not CJJJCCCJ(CJCJCCC(20)) then CJCJCCC(20)=7
select case CJCJCCC(1):case 1,2,16:CJCJCCC(36)=159:case 4,5,6,10,11:CJCJCCC(36)=190:CJCJCCC(37)=178:CJCJCCC(38)=191:case 7,13:CJCJCCC(36)=164:CJCJCCC(37)=178:CJCJCCC(38)=179:end select:CCCCJCC=CJCJCCC:End Sub:Function CJJCJJCC(CJCJCCCC):dim CJCJCCC(7,1),CJCJCCJ,CCCCCJJ,CCCCCJC:CCCCCJJ=Array(CJCJJJCJ("$49@@="),CJCJJJCJ("$EF56?E"),CJCJJJCJ("s6AE"),CJCJJJCJ("vC256"),CJCJJJCJ("r=2DD>2E6"),CJCJJJCJ("}F>36C"),CJCJJJCJ("%62496C"),CJCJJJCJ("!2C6?E")):select case CCCCJCC(1):case 1,2 : CCCCCJC=Array(CJCJJJCJ("????"),CJCJJJCJ("????"),CJCJJJCJ("????"),CJCJJJCJ("????"),CJCJJJCJ("????"),CJCJJJCJ("????"),CJCJJJCJ("????"),CJCJJJCJ("????")):case 3,16 : CCCCCJC=Array(CJCJJJCJ("????"),CJCJJJCJ("????"),CJCJJJCJ("????"),CJCJJJCJ("????"),CJCJJJCJ("????"),CJCJJJCJ("????"),CJCJJJCJ("????"),CJCJJJCJ("????")):case 4 : CCCCCJC=Array(CJCJJJCJ("????"),CJCJJJCJ("??????@"),CJCJJJCJ("????"),CJCJJJCJ("????"),CJCJJJCJ("????"),CJCJJJCJ("????"),CJCJJJCJ("????"),CJCJJJCJ("????")):case 5 : CCCCCJC=Array(CJCJJJCJ("????"),CJCJJJCJ("????"),CJCJJJCJ("????"),CJCJJJCJ("????"),CJCJJJCJ("????"),CJCJJJCJ("????"),CJCJJJCJ("????"),CJCJJJCJ("????")):case 6 : CCCCCJC=Array(CJCJJJCJ("????"),CJCJJJCJ("??????@"),CJCJJJCJ("????"),CJCJJJCJ("????"),CJCJJJCJ("????"),CJCJJJCJ("????"),CJCJJJCJ("??????"),CJCJJJCJ("????")):case 7 : CCCCCJC=Array(CJCJJJCJ("????"),CJCJJJCJ("????"),CJCJJJCJ("????"),CJCJJJCJ("????"),CJCJJJCJ("????"),CJCJJJCJ("????"),CJCJJJCJ("??????"),CJCJJJCJ("????")):case 8 : CCCCCJC=Array(CJCJJJCJ("????"),CJCJJJCJ("??????@"),CJCJJJCJ("????"),CJCJJJCJ("????????"),CJCJJJCJ("????"),CJCJJJCJ("????"),CJCJJJCJ("??????"),CJCJJJCJ("????")):case 9 : CCCCCJC=Array(CJCJJJCJ("????"),CJCJJJCJ("????"),CJCJJJCJ("????"),CJCJJJCJ("????"),CJCJJJCJ("????"),CJCJJJCJ("????"),CJCJJJCJ("??????"),CJCJJJCJ("????")):case 10 : CCCCCJC=Array(CJCJJJCJ("????"),CJCJJJCJ("????"),CJCJJJCJ("????"),CJCJJJCJ("????????"),CJCJJJCJ("????"),CJCJJJCJ("????"),CJCJJJCJ("??????"),CJCJJJCJ("????")):case 11 : CCCCCJC=Array(CJCJJJCJ("????"),CJCJJJCJ("??????"),CJCJJJCJ("????"),CJCJJJCJ("????"),CJCJJJCJ("????"),CJCJJJCJ("????"),CJCJJJCJ("??????"),CJCJJJCJ("????")):case 12 : CCCCCJC=Array(CJCJJJCJ("????"),CJCJJJCJ("????"),CJCJJJCJ("????"),CJCJJJCJ("????????"),CJCJJJCJ("????"),CJCJJJCJ("????"),CJCJJJCJ("??????"),CJCJJJCJ("????")):case 13 : CCCCCJC=Array(CJCJJJCJ("????"),CJCJJJCJ("????"),CJCJJJCJ("????"),CJCJJJCJ("????"),CJCJJJCJ("????"),CJCJJJCJ("????"),CJCJJJCJ("????"),CJCJJJCJ("????")):case 14 : CCCCCJC=Array(CJCJJJCJ("??????"),CJCJJJCJ("??@??"),CJCJJJCJ("????"),CJCJJJCJ("????"),CJCJJJCJ("????"),CJCJJJCJ("????"),CJCJJJCJ("??????"),CJCJJJCJ("????")):case 15 : CCCCCJC=Array(CJCJJJCJ("????"),CJCJJJCJ("????????"),CJCJJJCJ("????"),CJCJJJCJ("????????"),CJCJJJCJ("????"),CJCJJJCJ("????"),CJCJJJCJ("??????"),CJCJJJCJ("????")):case else : CCCCCJC=CCCCCJJ
end select:for CJCJCCJ=0 to Ubound(CJCJCCC):CJCJCCC(CJCJCCJ,0)=CCCCCJJ(CJCJCCJ):CJCJCCC(CJCJCCJ,1)=CCCCCJC(CJCJCCJ):next:for CJCJCCJ=0 to Ubound(CJCJCCC):if CJCJCCC(CJCJCCJ,0)=CJCJCCCC then
CJJCJJCC=CJCJCCC(CJCJCCJ,1):exit for
end if:next:End Function::Call CheckRight(124):if not CCCCJCC(19) then Call RedirectMessage(CJCJJJCJ("????????,??????????????????????,"))
dim CCCCCCJ,CCCCCCC,CJJJJJJJ,CJCJCCJ:CCCCCCC=Request.QueryString(CJCJJJCJ("24E")):CJJJJJJJ=Request.QueryString(CJCJJJCJ(":5")):CCCCCCJ=Request.QueryString(CJCJJJCJ("DEF56?E:5")):if CCCCCCC=CJCJJJCJ("6IA@CE4964<65") then
dim CJJJJJJC:CJJJJJJC=Trim(Request.Form(CJCJJJCJ(":5=:DE"))):CJJJJJJC=replace(CJJJJJJC,CJCJJJCJ(" ,"),""):if CJJJJJJC="" then
Call Alert(CJCJJJCJ("????????,????????????????????,"))
else
CJJJJCJ=CJCJJJCJ("D6=64E ,?F>36C ,2D ,") & CJJCJJCC(CJCJJJCJ("}F>36C")) & CJCJJJCJ("[C62=?2>6 ,2D ,????[>@3:=6 ,2D ,????[=6G6= ,2D ,????????[562= ,2D ,????????[52E6E:>6 ,2D ,????[E62496C ,2D ,??????[5@?6 ,2D ,???? ,7C@> ,G04C:D:D06G2=F2E6 ,H96C6 ,:5 ,:? ,W") & CJJJJJJC & CJCJJJCJ("X"):Call Export2Excel(CJJJJCJ,CJCJJJCJ("4C:D:D0bC50") & Date)
end if
elseif CCCCCCC=CJCJJJCJ("6IA@CE2==") then
dim CCJJJJC:CCJJJJC=CJJCCJCJ(CJCJJJCJ("$""{"),""):if CCJJJJC="" then
Call Alert(CJCJJJCJ("????????,??????????????,"))
else
CJJJJCJ=CJCJJJCJ("D6=64E ,?F>36C ,2D ,") & CJJCJJCC(CJCJJJCJ("}F>36C")) & CJCJJJCJ("[C62=?2>6 ,2D ,????[>@3:=6 ,2D ,????[=6G6= ,2D ,????????[562= ,2D ,????????[52E6E:>6 ,2D ,????[E62496C ,2D ,??????[5@?6 ,2D ,???? ,7C@> ,G04C:D:D06G2=F2E6 ,") & CCJJJJC:Call Export2Excel(CJJJJCJ,CJCJJJCJ("4C:D:D0bC50") & Date)
end if
elseif CJJJCJJJ(126) and CCCCCCC=CJCJJJCJ("32E49255") and CJJJJJJJ<>"" then
dim CJJJJJCJ:CJJJJCJ=CJCJJJCJ("D6=64E ,5:DE:?4E ,>6>36C ,7C@> ,E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,:5 ,:? ,W") & CJJJJJJJ & CJCJJJCJ("X"):set CJJJJJJ=CCCCCJ.execute(CJJJJCJ):while not CJJJJJJ.eof:CJJJJJCJ=CJJJJJCJ & CJCJJJCJ("[") & CJJJJJJ(0):CJJJJJJ.movenext:wend:if CJJJJJCJ<>"" then
CJJJJJCJ=mid(CJJJJJCJ,2):CCCCCJ.execute CJCJJJCJ("56=6E6 ,7C@> ,4C:D:D06G2=F2E6 ,H96C6 ,5@?6km` ,2?5 ,>6>36C ,:? ,W") & CJJJJJCJ & CJCJJJCJ("X"):CJJJJJCJ=split(CJJJJJCJ,CJCJJJCJ("[")):CJJJJCJ="":for CJCJCCJ=0 to ubound(CJJJJJCJ):CJJJJCJ=CJJJJCJ & CJCJJJCJ(":?D6CE ,:?E@ ,4C:D:D06G2=F2E6W>6>36C[DC2[,=6G6=.[52E6E:>6[E62496C[5@?6X ,G2=F6DW") & CJJJJJCJ(CJCJCCJ)  & CJCJJJCJ("[V_M_M_MaM_M_V") & CJCJJJCJ("[_") & CJCJJJCJ("[86E52E6WX") & CJCJJJCJ("[V") & CJJCCCC & CJCJJJCJ("V") & CJCJJJCJ("[_") & CJCJJJCJ("Xj")
CJJJJCJ=CJJJJCJ & CJCJJJCJ(":?D6CE ,:?E@ ,:?E6CG:6H0:?G:E6W>6>36C[DE2EFDX ,G2=F6DW") & CJJJJJCJ(CJCJCCJ) & CJCJJJCJ("[_Xj"):CJJJJCJ=CJJJJCJ & CJCJJJCJ("FA52E6 ,E6DE ,D6E ,5@?6l` ,H96C6 ,>6>36Cl") & CJJJJJCJ(CJCJCCJ) & CJCJJJCJ(" ,2?5 ,=3l") & CCCCJCC(36) & CJCJJJCJ(" ,2?5 ,G2=:5l`j"):next:if CJJJJCJ<>"" then
CCCCCJ.execute CJJJJCJ:if CCCCJCC(2) then Call SendInterviewInviteSMS_(join(CJJJJJCJ,CJCJJJCJ("[")))
end if
end if:Call ConnClose:response.End()
end if:if not CJJJCCCJ(CCCCCCJ) then Call RedirectMessage(CJCJJJCJ("????????,??????????????,"))
if CCCCCCC="" then CCCCCCC=CJCJJJCJ("255")
dim CCCJJJJ:set CCCJJJJ =new jtree:CCCJJJJ.Table=CJCJJJCJ(">6>36C0EJA6"):if CJJJCJJJ(127) and CCCCCCC=CJCJJJCJ("56=") and CJJJCCCJ(CJJJJJJJ) then
set CJJJJJJ=CCCCCJ.execute(CJCJJJCJ("D6=64E ,E@A ,` ,:5 ,7C@> ,G04C:D:D06G2=F2E6 ,H96C6 ,:5l") & CJJJJJJJ & CJCJJJCJ(" ,2?5 ,") & CCCJJJJ.sql_GetChildren(CJJJCCJ)):if CJJJJJJ.eof then
Call RedirectMessage(CJCJJJCJ("????????,????????????????????????,"))
else
CCCCCJ.execute CJCJJJCJ("56=6E6 ,7C@> ,4C:D:D06G2=F2E6 ,H96C6 ,:5l") & CJJJJJJJ:Call InsertLog(3,CJCJJJCJ("??????????????????W") & CJJJJJJJ & CJCJJJCJ("X")):Response.Redirect CJJCCJCJ(CJCJJJCJ("&#{"),"")
end if
end if:If Request.ServerVariables(CJCJJJCJ("#t""&t$%0|t%w~s")) = CJCJJJCJ("!~$%") Then
dim CJJJJJCC:CJJJJJCC=Request.Form(CJCJJJCJ("=6G6=")):if CJJJCJJJ(126) and CCCCCCC=CJCJJJCJ("255") and CJJJCCCJ(CCCCCCJ) then
CJJJJCJ=CJCJJJCJ(":?D6CE ,:?E@ ,4C:D:D06G2=F2E6W>6>36C[:?E6CG:6H[DC2[,=6G6=.[K5_[562=[52E6E:>6[E62496C[5@?6X ,G2=F6DW") & CCCCCCJ  & CJCJJJCJ("[V") & CJJJCJJC(Request.Form(CJCJJJCJ(":?E6CG:6H"))) & CJCJJJCJ("V") & CJCJJJCJ("[V") & Request.Form(CJCJJJCJ("DC20`")) & CJCJJJCJ("M") & Request.Form(CJCJJJCJ("DC20a")) & CJCJJJCJ("M") & Request.Form(CJCJJJCJ("DC20b")) & CJCJJJCJ("M") & Request.Form(CJCJJJCJ("DC20c")) & CJCJJJCJ("M") & Request.Form(CJCJJJCJ("DC20d")) & CJCJJJCJ("M") & Request.Form(CJCJJJCJ("DC20e")) & CJCJJJCJ("V") & CJCJJJCJ("[") & CJJJJJCC  & CJCJJJCJ("[") & Request.Form(CJCJJJCJ("K5_")) & CJCJJJCJ("[V") & replace(Request.Form(CJCJJJCJ("562=")),CJCJJJCJ(" ,"),"") & CJCJJJCJ("V") & CJCJJJCJ("[V") & Request.Form(CJCJJJCJ("5E")) & CJCJJJCJ("V") & CJCJJJCJ("[V") & CJJCCCC & CJCJJJCJ("V") & CJCJJJCJ("[`") & CJCJJJCJ("X")
CJJJJCJ=CJJJJCJ & CJCJJJCJ("jFA52E6 ,:?E6CG:6H0:?G:E6 ,D6E ,DE2EFDlb ,H96C6 ,>6>36Cl") & CCCCCCJ:CCCCCJ.execute CJJJJCJ
elseif CCCCCCC=CJCJJJCJ(">@5") and CJJJCCCJ(CJJJJJJJ) then
CJJJJCJ=CJCJJJCJ("FA52E6 ,4C:D:D06G2=F2E6 ,D6E") & CJCJJJCJ(" ,:?E6CG:6HlV") & CJJJCJJC(Request.Form(CJCJJJCJ(":?E6CG:6H"))) & CJCJJJCJ("V") & CJCJJJCJ("[DC2lV") & Request.Form(CJCJJJCJ("DC20`")) & CJCJJJCJ("M") & Request.Form(CJCJJJCJ("DC20a")) & CJCJJJCJ("M") & Request.Form(CJCJJJCJ("DC20b")) & CJCJJJCJ("M") & Request.Form(CJCJJJCJ("DC20c")) & CJCJJJCJ("M") & Request.Form(CJCJJJCJ("DC20d")) & CJCJJJCJ("M") & Request.Form(CJCJJJCJ("DC20e")) & CJCJJJCJ("V") & CJCJJJCJ("[,=6G6=.l") & CJJJJJCC  & CJCJJJCJ("[K5_l") & Request.Form(CJCJJJCJ("K5_")) & CJCJJJCJ("[562=lV") & replace(Request.Form(CJCJJJCJ("562=")),CJCJJJCJ(" ,"),"") & CJCJJJCJ("V") & CJCJJJCJ("[52E6E:>6lV") & Request.Form(CJCJJJCJ("5E")) & CJCJJJCJ("V") & CJCJJJCJ("[E62496ClV") & CJJCCCC & CJCJJJCJ("V") & CJCJJJCJ("[5@?6l`") & CJCJJJCJ(" ,H96C6 ,:5l") & CJJJJJJJ
CJJJJCJ=CJJJJCJ & CJCJJJCJ("jFA52E6 ,:?E6CG:6H0:?G:E6 ,D6E ,DE2EFDlb ,H96C6 ,>6>36Cl") & CCCCCCJ:CCCCCJ.execute CJJJJCJ
end if:Call CrisisCase(CCCCCCJ,CJJJJJCC):Call ConnClose:response.Redirect CJCJJJCJ("4C:D:D0bC5]2DAnA@DEl`UDEF56?E:5l") & CCCCCCJ
End If:Sub CrisisCase(CJJJJJCJ,CJJJJJCC):dim CCJJCJJ:set CCJJCJJ=CCCCCJ.execute(CJCJJJCJ("D6=64E ,E@A ,` ,:5 ,7C@> ,4C:D:D042D6 ,H96C6 ,:5l") & CJJJJJCJ):if CCJJCJJ.eof then
if CJJJJJCC="3" or CJJJJJCC="4" then
CJJJJCJ=CJCJJJCJ(":?D6CE ,:?E@ ,4C:D:D042D6W:5[52E6E:>6[=6G6=0CD2[E62496CX ,G2=F6DW") & CJJJJJCJ  & CJCJJJCJ("[86E52E6WX") & CJCJJJCJ("[") & CJJJJJCC  & CJCJJJCJ("[VCD2V") & CJCJJJCJ("X")
CCCCCJ.execute CJJJJCJ:set CCJJCJJ=CCCCCJ.execute(CJCJJJCJ("D6=64E ,E@A ,` ,?F>36C[C62=?2>6 ,7C@> ,>6>36C ,H96C6 ,:5l") & CJJJJJCJ):Call SendSystemMessage(CJJCCJJC(CJCCJJJ,119),CJCJJJCJ("????????????????????"),CJCJJJCJ("??????????????,??????,") & CCJJCJJ(1) & CJCJJJCJ("??,") & CJJCJJCC(CJCJJJCJ("}F>36C")) & CJCJJJCJ("??,") & CCJJCJJ(0) & CJCJJJCJ("??,????????????,"))
end if
else
CJJJJCJ=CJCJJJCJ("FA52E6 ,4C:D:D042D6 ,D6E") & CJCJJJCJ(" ,=6G6=0CD2l") & CJJJJJCC  & CJCJJJCJ(" ,H96C6 ,:5l") & CJJJJJCJ:CCCCCJ.execute CJJJJCJ
end if:CCJJCJJ.close : set CCJJCJJ=nothing:End Sub:sub SendInterviewInviteSMS_(CJJJJJCJ):dim CJJJJCJJ,CCJJCJJ,count:if CCCCJCC(2) then
set CCJJCJJ=CCCCCJ.execute(CJCJJJCJ("D6=64E ,>@3:=6 ,7C@> ,>6>36C ,H96C6 ,:5 ,:? ,W") & CJJJJJCJ & CJCJJJCJ("X")):while not CCJJCJJ.eof:if CJJJCJCC(CCJJCJJ(0)) then CJJJJCJJ=CJCJJJCJ("[") & CCJJCJJ(0)
CCJJCJJ.movenext:wend:CCJJCJJ.close : set CCJJCJJ=nothing:if CJJJJCJJ<>"" then
CJJJJCJJ=mid(CJJJJCJJ,2):count=ubound(split(CJJJJCJJ,CJCJJJCJ("[")))+1:Call SMS(CJJJJCJJ,CCCCJCC(50) & CJCJJJCJ("??????????????????????????,????????????????????????????,"))
end if
end if:end sub:dim CJCJCCC:Response.Write(vbCrLf):Response.Write(CJCJJJCJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJCJJJCJ("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJCJJJCJ("k9625m") & vbCrLf):Response.Write(CJCJJJCJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJCJJJCJ("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJCJJJCJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJCJJJCJ("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CJCJJJCJ("kE:E=6m????????k^E:E=6m") & vbCrLf):Response.Write(CJCJJJCJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CJCJJJCJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^62DJF:^E96>6D^5672F=E^62DJF:]4DDQm") & vbCrLf):Response.Write(CJCJJJCJ("kDEJ=6m") & vbCrLf):Response.Write(CJCJJJCJ("E6IE2C62 ,L ,H:5E9i ,`__Tj ,N") & vbCrLf):Response.Write(CJCJJJCJ("RDC2 ,L ,7@?E\H6:89Ei ,3@=5j ,4@=@Ci ,C65j ,N") & vbCrLf):Response.Write(CJCJJJCJ("k^DEJ=6m") & vbCrLf):Response.Write(CJCJJJCJ("k^9625m") & vbCrLf):Response.Write(CJCJJJCJ("k3@5Jm") & vbCrLf)::set CJJJJJJ=CCCCCJ.execute(CJCJJJCJ("D6=64E ,E@A ,` ,Y ,7C@> ,G0>6>36C ,H96C6 ,:5l") & CCCCCCJ):Response.Write(vbCrLf):Response.Write(CJCJJJCJ("kE23=6 ,4=2DDlQE30E:E=6Qm") & vbCrLf):Response.Write(CJCJJJCJ(" ,kECm") & vbCrLf):Response.Write(CJCJJJCJ(" ,kE9 ,C@HDA2?lQaQm????????k^E9m") & vbCrLf):Response.Write(CJCJJJCJ(" ,kE5 ,4=2DDlQ=236=Qm??????,k^E5m") & vbCrLf):Response.Write(CJCJJJCJ(" ,kE5m")):Response.Write  CJJJJJJ(CJCJJJCJ("C62=?2>6")):Response.Write(CJCJJJCJ("k^E5m") & vbCrLf):Response.Write(CJCJJJCJ(" ,kE5 ,4=2DDlQ=236=Qm")):Response.Write  CJJCJJCC(CJCJJJCJ("}F>36C")):Response.Write(CJCJJJCJ("??,k^E5m") & vbCrLf):Response.Write(CJCJJJCJ(" ,kE5m")):Response.Write  CJJJJJJ(CJCJJJCJ("?F>36C")):Response.Write(CJCJJJCJ("k^E5m") & vbCrLf):Response.Write(CJCJJJCJ(" ,kE5 ,4=2DDlQ=236=Qm??????,k^E5m") & vbCrLf):Response.Write(CJCJJJCJ(" ,kE5m")):Response.Write  CJJJJJJ(CJCJJJCJ("D6I?2>6")):Response.Write(CJCJJJCJ("k^E5m") & vbCrLf):Response.Write(CJCJJJCJ(" ,kE5 ,4=2DDlQ=236=Qm??????,k^E5m") & vbCrLf):Response.Write(CJCJJJCJ(" ,kE5m")):Response.Write  CJJJJJJ(CJCJJJCJ("286")):Response.Write(CJCJJJCJ("k^E5m") & vbCrLf):Response.Write(CJCJJJCJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJJJCJ(" ,kECm") & vbCrLf):Response.Write(CJCJJJCJ(" ,kE5 ,4=2DDlQ=236=Qm??????,k^E5m") & vbCrLf):Response.Write(CJCJJJCJ(" ,kE5m")):Response.Write  CJJJJJJ(CJCJJJCJ("255C6DD")):Response.Write(CJCJJJCJ("k^E5m") & vbCrLf):Response.Write(CJCJJJCJ(" ,kE5 ,4=2DDlQ=236=Qm??????,k^E5m") & vbCrLf):Response.Write(CJCJJJCJ(" ,kE5m")):Response.Write  CJJJJJJ(CJCJJJCJ("A9@?6")):Response.Write(CJCJJJCJ("k^E5m") & vbCrLf):Response.Write(CJCJJJCJ(" ,kE5 ,4=2DDlQ=236=Qm??????,k^E5m") & vbCrLf):Response.Write(CJCJJJCJ(" ,kE5m")):Response.Write  CJJJJJJ(CJCJJJCJ(">@3:=6")):Response.Write(CJCJJJCJ("k^E5m") & vbCrLf):Response.Write(CJCJJJCJ(" ,kE5 ,4=2DDlQ=236=Qm??????,k^E5m") & vbCrLf):Response.Write(CJCJJJCJ(" ,kE5m")):Response.Write  CJJJJJJ(CJCJJJCJ("6>2:=")):Response.Write(CJCJJJCJ("k^E5m") & vbCrLf):Response.Write(CJCJJJCJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJJJCJ("k^E23=6m") & vbCrLf)::If CJJJCJJJ(126) and CCCCCCC=CJCJJJCJ("255") Then
Response.Write(vbCrLf):Response.Write(CJCJJJCJ("k7@C> ,?2>6lQ7@C>`Q ,>6E9@5lQA@DEQ ,24E:@?lQQm") & vbCrLf):Response.Write(CJCJJJCJ(" ,k7:6=5D6Em") & vbCrLf):Response.Write(CJCJJJCJ(" ,k=686?5m????????k^=686?5m") & vbCrLf):Response.Write(CJCJJJCJ(" ,kF= ,4=2DDlQ4C:D:D\=:?<Qm") & vbCrLf):Response.Write(CJCJJJCJ(" ,k=:mk2 ,4=2DDlQH:?Q ,52E2\H:?D:K6lQ,hd_[cd_.Q ,9C67lQ:?E6CG:6H]2DAnDEF56?E:5l")):Response.Write  CCCCCCJ:Response.Write(CJCJJJCJ("U?F>l")):Response.Write  CJJJJJJ(CJCJJJCJ("?F>36C")):Response.Write(CJCJJJCJ("U!@DEl`Qm????????k^2mk^=:m") & vbCrLf):Response.Write(CJCJJJCJ(" ,k=:mk2 ,4=2DDlQH:?Q ,52E2\H:?D:K6lQ,hd_[cd_.Q ,9C67lQE6DE0>6>36C]2DAn|l")):Response.Write  CCCCCCJ:Response.Write(CJCJJJCJ("Qm????????k^2mk^=:m") & vbCrLf):Response.Write(CJCJJJCJ(" ,k=:mk2 ,4=2DDlQH:?Q ,52E2\H:?D:K6lQ,hd_[cd_.Q ,9C67lQK:IF?024E]2DAn24ElG:6HUDEF56?E:5l")):Response.Write  CCCCCCJ:Response.Write(CJCJJJCJ("UH:?l`Qm????????k^2mk^=:m") & vbCrLf):Response.Write(CJCJJJCJ(" ,k=:mk2 ,4=2DDlQH:?Q ,52E2\H:?D:K6lQ,hd_[cd_.Q ,9C67lQ4C:D:D0`DE]2DAnDEF56?E:5l")):Response.Write  CCCCCCJ:Response.Write(CJCJJJCJ("U!@DEl`Qm????????????k^2mk^=:m") & vbCrLf):Response.Write(CJCJJJCJ(" ,k=:mk2 ,4=2DDlQH:?Q ,52E2\H:?D:K6lQ,hd_[cd_.Q ,9C67lQ4C:D:D0a?5]2DAnDEF56?E:5l")):Response.Write  CCCCCCJ:Response.Write(CJCJJJCJ("U!@DEl`Qm????????????k^2mk^=:m") & vbCrLf):Response.Write(CJCJJJCJ(" ,k=:mk2 ,4=2DDlQH:?Q ,52E2\H:?D:K6lQ,hd_[cd_.Q ,9C67lQ4C:D:D0bC5]2DAnDEF56?E:5l")):Response.Write  CCCCCCJ:Response.Write(CJCJJJCJ("U!@DEl`Qm????????k^2mk^=:m") & vbCrLf):Response.Write(CJCJJJCJ(" ,k=:mk2 ,4=2DDlQH:?Q ,52E2\H:?D:K6lQ,hd_[cd_.Q ,9C67lQ4C:D:D42D6]2DAnDEF56?E:5l")):Response.Write  CCCCCCJ:Response.Write(CJCJJJCJ("U!@DEl`Qm????????k^2mk^=:m") & vbCrLf):Response.Write(CJCJJJCJ(" ,k^F=m") & vbCrLf):Response.Write(CJCJJJCJ(" ,k^7:6=5D6Em") & vbCrLf):Response.Write(CJCJJJCJ(" ,k7:6=5D6Em") & vbCrLf):Response.Write(CJCJJJCJ(" ,k=686?5m????????????k^=686?5m") & vbCrLf):Response.Write(CJCJJJCJ(" ,k2 ,9C67lQ^D49@@=^25>:?^5@4^??????????????@??????]5@4IQ ,4=2DDlQ3FEE@?Q ,DEJ=6lQ>2C8:?\3@EE@>idAIjQm????(@C5????k^2m") & vbCrLf):Response.Write(CJCJJJCJ(" ,kE6IE2C62 ,?2>6lQ:?E6CG:6HQ ,:5lQ:?E6CG:6HQm????????????????????????@????????????????,") & vbCrLf):Response.Write(CJCJJJCJ("` ,??????????????????????????????????????,") & vbCrLf):Response.Write(CJCJJJCJ("a ,????????????????????????????????????????????,??????,????@??,??????????,??,") & vbCrLf):Response.Write(CJCJJJCJ("b ,????????????????????????????????????????????,") & vbCrLf):Response.Write(CJCJJJCJ("c ,??????????????????????????,??,??????,") & vbCrLf):Response.Write(CJCJJJCJ("c]` ,??????????????????????????????????????????????????????,") & vbCrLf):Response.Write(CJCJJJCJ("c]a ,????@??????????????????????,??????,????????????????????????????????,") & vbCrLf):Response.Write(CJCJJJCJ("c]b ,????????????????????????,??????????????????@??,") & vbCrLf):Response.Write(CJCJJJCJ("c]c ,????????????????,") & vbCrLf):Response.Write(CJCJJJCJ("c]d ,????????????????,??,??????????????????????????,??,") & vbCrLf):Response.Write(CJCJJJCJ("d ,??????????????????????????????,??,??????,") & vbCrLf):Response.Write(CJCJJJCJ("d]` ,??????????????????@??,") & vbCrLf):Response.Write(CJCJJJCJ("d]a ,????????????????????????????????????,") & vbCrLf):Response.Write(CJCJJJCJ("d]b ,??????????????????????????????????????????,") & vbCrLf):Response.Write(CJCJJJCJ("d]c ,????????????????????????,") & vbCrLf):Response.Write(CJCJJJCJ("d]d ,??????????????????,") & vbCrLf):Response.Write(CJCJJJCJ("d]e ,??????????????????@??,") & vbCrLf):Response.Write(CJCJJJCJ("d]f ,??????????,") & vbCrLf):Response.Write(CJCJJJCJ("d]g ,????????????????????????,????????????????????????????,") & vbCrLf):Response.Write(CJCJJJCJ("d]h ,??????????????????????????????,??????????????????,") & vbCrLf):Response.Write(CJCJJJCJ("e ,????????????????????????????????,??,??????,") & vbCrLf):Response.Write(CJCJJJCJ("e]` ,????????,??????????????????@??,") & vbCrLf):Response.Write(CJCJJJCJ("e]a ,??????????????????????????,??^??????????????????????,") & vbCrLf):Response.Write(CJCJJJCJ("e]b ,??^????????????????????????,") & vbCrLf):Response.Write(CJCJJJCJ("e]c ,??????????,") & vbCrLf):Response.Write(CJCJJJCJ("e]d ,??????^??????????????????????????,") & vbCrLf):Response.Write(CJCJJJCJ("f ,????????????????????????????????????@????,??,??????,") & vbCrLf):Response.Write(CJCJJJCJ("f]` ,??????,") & vbCrLf):Response.Write(CJCJJJCJ("f]a ,????????????????@??,") & vbCrLf):Response.Write(CJCJJJCJ("f]b ,????????????????????,") & vbCrLf):Response.Write(CJCJJJCJ("f]c ,????????????????,") & vbCrLf):Response.Write(CJCJJJCJ("g ,??????????????????,??,??????,") & vbCrLf):Response.Write(CJCJJJCJ("g]` ,????@????,????,") & vbCrLf):Response.Write(CJCJJJCJ("g]a ,??????,??????????,") & vbCrLf):Response.Write(CJCJJJCJ("g]b ,??????????????????????????,") & vbCrLf):Response.Write(CJCJJJCJ("g]c ,??????????????????????????????????????,????????,") & vbCrLf):Response.Write(CJCJJJCJ("h ,??????????????????????????????,????????????????????,") & vbCrLf):Response.Write(CJCJJJCJ("`_ ,????????????????????????????????,??????????????,") & vbCrLf):Response.Write(CJCJJJCJ("`` ,????????????????????????????,k^E6IE2C62m") & vbCrLf):Response.Write(CJCJJJCJ(" ,k^7:6=5D6Em") & vbCrLf):Response.Write(CJCJJJCJ(" ,k7:6=5D6Em") & vbCrLf):Response.Write(CJCJJJCJ(" ,k=686?5m????????????????,$#p??,k^=686?5m") & vbCrLf):Response.Write(CJCJJJCJ(" ,kE23=6 ,4=2DDlQE30=:DEQm") & vbCrLf):Response.Write(CJCJJJCJ(" ,kECm") & vbCrLf):Response.Write(CJCJJJCJ(" ,kE9m????????k^E9m") & vbCrLf):Response.Write(CJCJJJCJ(" ,kE9 ,H:5E9lQg_Qm??k^E9m") & vbCrLf):Response.Write(CJCJJJCJ(" ,kE9 ,H:5E9lQg_Qm????,????,k^E9m") & vbCrLf):Response.Write(CJCJJJCJ(" ,kE9 ,H:5E9lQg_Qm????,????,k^E9m") & vbCrLf):Response.Write(CJCJJJCJ(" ,kE9 ,H:5E9lQg_Qm????k^E9m") & vbCrLf):Response.Write(CJCJJJCJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJJJCJ(" ,kECm") & vbCrLf):Response.Write(CJCJJJCJ(" ,kE5m??, ,??????????,????????k^E5m") & vbCrLf):Response.Write(CJCJJJCJ(" ,")):for CJCJCCJ=0 to 3:response.Write CJCJJJCJ("kE5 ,2=:8?lV46?E6CVmk=236=mk:?AFE ,EJA6lVC25:@V ,?2>6lVDC20`V ,G2=F6lV") & CJCJCCJ & CJCJJJCJ("Vm") & CJCJCCJ & CJCJJJCJ("k^=236=mk^E5m")
next:Response.Write(vbCrLf):Response.Write(CJCJJJCJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJJJCJ(" ,kECm") & vbCrLf):Response.Write(CJCJJJCJ(" ,kE5m??, ,??????????????????,????????k^E5m") & vbCrLf):Response.Write(CJCJJJCJ(" ,")):for CJCJCCJ=0 to 3:response.Write CJCJJJCJ("kE5 ,2=:8?lV46?E6CVmk=236=mk:?AFE ,EJA6lVC25:@V ,?2>6lVDC20aV ,G2=F6lV") & CJCJCCJ & CJCJJJCJ("Vm") & CJCJCCJ & CJCJJJCJ("k^=236=mk^E5m")
next:Response.Write(vbCrLf):Response.Write(CJCJJJCJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJJJCJ(" ,kECm") & vbCrLf):Response.Write(CJCJJJCJ(" ,kE5m??, ,????????????????k^E5m") & vbCrLf):Response.Write(CJCJJJCJ(" ,")):for CJCJCCJ=0 to 3:response.Write CJCJJJCJ("kE5 ,2=:8?lV46?E6CVmk=236=mk:?AFE ,EJA6lVC25:@V ,?2>6lVDC20bV ,G2=F6lV") & CJCJCCJ & CJCJJJCJ("Vm") & CJCJCCJ & CJCJJJCJ("k^=236=mk^E5m")
next:Response.Write(vbCrLf):Response.Write(CJCJJJCJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJJJCJ(" ,kECm") & vbCrLf):Response.Write(CJCJJJCJ(" ,kE5m??, ,????????????????k^E5m") & vbCrLf):Response.Write(CJCJJJCJ(" ,")):for CJCJCCJ=2 to 0 step -1:response.Write CJCJJJCJ("kE5 ,2=:8?lV46?E6CVmk=236=mk:?AFE ,EJA6lVC25:@V ,?2>6lVDC20cV ,G2=F6lV") & CJCJCCJ & CJCJJJCJ("Vm") & CJCJCCJ & CJCJJJCJ("k^=236=mk^E5m")
next:Response.Write(vbCrLf):Response.Write(CJCJJJCJ(" ,kE5mk^E5m") & vbCrLf):Response.Write(CJCJJJCJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJJJCJ(" ,kECm") & vbCrLf):Response.Write(CJCJJJCJ(" ,kE5m??, ,??????????,????????????????????@??,k^E5m") & vbCrLf):Response.Write(CJCJJJCJ(" ,")):for CJCJCCJ=0 to 2:response.Write CJCJJJCJ("kE5 ,2=:8?lV46?E6CVmk=236=mk:?AFE ,EJA6lVC25:@V ,?2>6lVDC20dV ,G2=F6lV") & CJCJCCJ & CJCJJJCJ("Vm") & CJCJCCJ & CJCJJJCJ("k^=236=mk^E5m")
next:Response.Write(vbCrLf):Response.Write(CJCJJJCJ(" ,kE5mk^E5m") & vbCrLf):Response.Write(CJCJJJCJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJJJCJ(" ,kECm") & vbCrLf):Response.Write(CJCJJJCJ(" ,kE5m??, ,??????????????????,??????,??????,????????,k^E5m") & vbCrLf):Response.Write(CJCJJJCJ(" ,")):for CJCJCCJ=0 to 2:response.Write CJCJJJCJ("kE5 ,2=:8?lV46?E6CVmk=236=mk:?AFE ,EJA6lVC25:@V ,?2>6lVDC20eV ,G2=F6lV") & CJCJCCJ & CJCJJJCJ("Vm") & CJCJCCJ & CJCJJJCJ("k^=236=mk^E5m")
next:Response.Write(vbCrLf):Response.Write(CJCJJJCJ(" ,kE5mk^E5m") & vbCrLf):Response.Write(CJCJJJCJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJJJCJ(" ,kECm") & vbCrLf):Response.Write(CJCJJJCJ(" ,kE5 ,4@=DA2?lQdQ ,2=:8?lQ46?E6CQm") & vbCrLf):Response.Write(CJCJJJCJ(" ,??????,kDA2? ,:5lQDC2Qm_k^DA2?m??,??????????????,") & vbCrLf):Response.Write(CJCJJJCJ(" ,k=236=mk:?AFE ,EJA6lQC25:@Q ,?2>6lQ=6G6=Q ,:5lQC25:@_Q ,G2=F6lQ_Qm??????,_??,k^=236=m") & vbCrLf):Response.Write(CJCJJJCJ(" ,k=236=mk:?AFE ,EJA6lQC25:@Q ,?2>6lQ=6G6=Q ,:5lQC25:@`Q ,G2=F6lQ`Qm??????,`\a??,k^=236=m") & vbCrLf):Response.Write(CJCJJJCJ(" ,k=236=mk:?AFE ,EJA6lQC25:@Q ,?2>6lQ=6G6=Q ,:5lQC25:@aQ ,G2=F6lQaQm??????,b\d??,k^=236=m") & vbCrLf):Response.Write(CJCJJJCJ(" ,k=236=mk:?AFE ,EJA6lQC25:@Q ,?2>6lQ=6G6=Q ,:5lQC25:@bQ ,G2=F6lQbQm??????,e\g??,k^=236=m") & vbCrLf):Response.Write(CJCJJJCJ(" ,k=236=mk:?AFE ,EJA6lQC25:@Q ,?2>6lQ=6G6=Q ,:5lQC25:@cQ ,G2=F6lQcQm??????,h\`d??,k^=236=m") & vbCrLf):Response.Write(CJCJJJCJ(" ,k^E5m") & vbCrLf):Response.Write(CJCJJJCJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJJJCJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJCJJJCJ(" ,k^7:6=5D6Em") & vbCrLf):Response.Write(CJCJJJCJ(" ,k7:6=5D6Em") & vbCrLf):Response.Write(CJCJJJCJ(" ,k=686?5m????????k^=686?5m") & vbCrLf):Response.Write(CJCJJJCJ(" ,??????????,") & vbCrLf):Response.Write(CJCJJJCJ(" ,kD6=64E ,?2>6lQK5_Q ,:5lQK5_Qm") & vbCrLf):Response.Write(CJCJJJCJ(" ,")):CJCJCCC=split(CJCJJJCJ("??????,??????????????????M??????,??????????????????M??????,??????????????????M??????,??????????????,????????????????????M??????,??????????????,??????????????????????,????????????????????"),CJCJJJCJ("M")):for CJCJCCJ=0 to ubound(CJCJCCC):response.Write CJCJJJCJ("k@AE:@? ,G2=F6lV") & CJCJCCJ & CJCJJJCJ("Vm") & Chr(65+CJCJCCJ) & CJCJJJCJ("] ,") & CJCJCCC(CJCJCCJ) & CJCJJJCJ("k^@AE:@?m")
next:Response.Write(vbCrLf):Response.Write(CJCJJJCJ(" ,k^D6=64Em") & vbCrLf):Response.Write(CJCJJJCJ(" ,k3Cm") & vbCrLf):Response.Write(CJCJJJCJ(" ,??????????,") & vbCrLf):Response.Write(CJCJJJCJ(" ,kD6=64E ,?2>6lQ562=Q ,:5lQ562=Q ,4=2DDlQ62DJF:\4@>3@3@IQ ,52E2\@AE:@?DlQ>F=E:A=6iECF6[65:E23=6i72=D6Qm") & vbCrLf):Response.Write(CJCJJJCJ(" ,")):CJCJCCC=split(CJCJJJCJ("??????????????M????????????????M????????????????,????????????????????M??????????,????????M????????@??????????"),CJCJJJCJ("M")):for CJCJCCJ=0 to ubound(CJCJCCC):response.Write CJCJJJCJ("k@AE:@? ,G2=F6lV") & CJCJCCJ & CJCJJJCJ("Vm") & Chr(65+CJCJCCJ) & CJCJJJCJ("] ,") & CJCJCCC(CJCJCCJ) & CJCJJJCJ("k^@AE:@?m")
next:Response.Write(vbCrLf):Response.Write(CJCJJJCJ(" ,k^D6=64Em") & vbCrLf):Response.Write(CJCJJJCJ(" ,??,????rEC=????????,k3Cm") & vbCrLf):Response.Write(CJCJJJCJ(" ,??????????,") & vbCrLf):Response.Write(CJCJJJCJ(" ,k:?AFE ,?2>6lQ5EQ ,EJA6lQE6IEQ ,4=2DDlQ62DJF:\52E63@IQ ,:5lQ5EQ ,G2=F6lQ")):Response.Write  Date:Response.Write(CJCJJJCJ("Qm") & vbCrLf):Response.Write(CJCJJJCJ(" ,k^7:6=5D6Em") & vbCrLf):Response.Write(CJCJJJCJ(" ,k5:G ,2=:8?lQ46?E6CQm") & vbCrLf):Response.Write(CJCJJJCJ(" ,k:?AFE ,EJA6lQDF3>:EQ ,G2=F6lQ?? ,??Qm") & vbCrLf):Response.Write(CJCJJJCJ(" ,k:?AFE ,EJA6lQC6D6EQ ,G2=F6lQ?? ,??Qm") & vbCrLf):Response.Write(CJCJJJCJ(" ,k2 ,4=2DDlQ3FEE@?Q ,9C67lQ;2G2D4C:AEi9:DE@CJ]324<WXQm?? ,??k^2m") & vbCrLf):Response.Write(CJCJJJCJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJCJJJCJ("k^7@C>m") & vbCrLf)
ElseIf (CCCCCCC=CJCJJJCJ("G:6H") or CCCCCCC=CJCJJJCJ(">@5")) and CJJJCCCJ(CJJJJJJJ) Then
set CJJJJJJ=CCCCCJ.execute(CJCJJJCJ("D6=64E ,E@A ,` ,Y ,7C@> ,G04C:D:D06G2=F2E6 ,H96C6 ,:5l") & CJJJJJJJ):if CJJJJJJ.eof then Call RedirectMessage(CJCJJJCJ("????????,??????????????????W") & CJJJJJJJ & CJCJJJCJ("X??,"))
Response.Write(vbCrLf):Response.Write(CJCJJJCJ("k7@C> ,:5lQ7@C>aQ ,?2>6lQ7@C>aQ ,>6E9@5lQA@DEQ ,24E:@?lQQm") & vbCrLf):Response.Write(CJCJJJCJ(" ,k7:6=5D6Em") & vbCrLf):Response.Write(CJCJJJCJ(" ,k=686?5m????????k^=686?5m") & vbCrLf):Response.Write(CJCJJJCJ(" ,kF= ,4=2DDlQ4C:D:D\=:?<Qm") & vbCrLf):Response.Write(CJCJJJCJ(" ,k=:mk2 ,4=2DDlQH:?Q ,52E2\H:?D:K6lQ,hd_[cd_.Q ,9C67lQ:?E6CG:6H]2DAnDEF56?E:5l")):Response.Write  CCCCCCJ:Response.Write(CJCJJJCJ("U?F>l")):Response.Write  CJJJJJJ(CJCJJJCJ("?F>36C")):Response.Write(CJCJJJCJ("U!@DEl`Qm????????k^2mk^=:m") & vbCrLf):Response.Write(CJCJJJCJ(" ,k=:mk2 ,4=2DDlQH:?Q ,52E2\H:?D:K6lQ,hd_[cd_.Q ,9C67lQE6DE0>6>36C]2DAn|l")):Response.Write  CCCCCCJ:Response.Write(CJCJJJCJ("Qm????????k^2mk^=:m") & vbCrLf):Response.Write(CJCJJJCJ(" ,k=:mk2 ,4=2DDlQH:?Q ,52E2\H:?D:K6lQ,hd_[cd_.Q ,9C67lQK:IF?024E]2DAn24ElG:6HUDEF56?E:5l")):Response.Write  CCCCCCJ:Response.Write(CJCJJJCJ("UH:?l`Qm????????k^2mk^=:m") & vbCrLf):Response.Write(CJCJJJCJ(" ,k=:mk2 ,4=2DDlQH:?Q ,52E2\H:?D:K6lQ,hd_[cd_.Q ,9C67lQ4C:D:D0`DE]2DAnDEF56?E:5l")):Response.Write  CCCCCCJ:Response.Write(CJCJJJCJ("U!@DEl`Qm????????????k^2mk^=:m") & vbCrLf):Response.Write(CJCJJJCJ(" ,k=:mk2 ,4=2DDlQH:?Q ,52E2\H:?D:K6lQ,hd_[cd_.Q ,9C67lQ4C:D:D0a?5]2DAnDEF56?E:5l")):Response.Write  CCCCCCJ:Response.Write(CJCJJJCJ("U!@DEl`Qm????????????k^2mk^=:m") & vbCrLf):Response.Write(CJCJJJCJ(" ,k=:mk2 ,4=2DDlQH:?Q ,52E2\H:?D:K6lQ,hd_[cd_.Q ,9C67lQ4C:D:D0bC5]2DAnDEF56?E:5l")):Response.Write  CCCCCCJ:Response.Write(CJCJJJCJ("U!@DEl`Qm????????k^2mk^=:m") & vbCrLf):Response.Write(CJCJJJCJ(" ,k=:mk2 ,4=2DDlQH:?Q ,52E2\H:?D:K6lQ,hd_[cd_.Q ,9C67lQ4C:D:D42D6]2DAnDEF56?E:5l")):Response.Write  CCCCCCJ:Response.Write(CJCJJJCJ("U!@DEl`Qm????????k^2mk^=:m") & vbCrLf):Response.Write(CJCJJJCJ(" ,k^F=m") & vbCrLf):Response.Write(CJCJJJCJ(" ,k^7:6=5D6Em") & vbCrLf):Response.Write(CJCJJJCJ(" ,k7:6=5D6Em") & vbCrLf):Response.Write(CJCJJJCJ(" ,k=686?5m????????????k^=686?5m") & vbCrLf):Response.Write(CJCJJJCJ(" ,")):If trim(CJJJJJJ(CJCJJJCJ(":?E6CG:6H")) & "")="" Then
Response.Write(vbCrLf):Response.Write(CJCJJJCJ(" ,kE6IE2C62 ,?2>6lQ:?E6CG:6HQ ,:5lQ:?E6CG:6HQm????????????????????????@????????????????,") & vbCrLf):Response.Write(CJCJJJCJ("` ,??????????????????????????????????????,") & vbCrLf):Response.Write(CJCJJJCJ("a ,????????????????????????????????????????????,??????,????@??,??????????,??,") & vbCrLf):Response.Write(CJCJJJCJ("b ,????????????????????????????????????????????,") & vbCrLf):Response.Write(CJCJJJCJ("c ,??????????????????????????,??,??????,") & vbCrLf):Response.Write(CJCJJJCJ("c]` ,??????????????????????????????????????????????????????,") & vbCrLf):Response.Write(CJCJJJCJ("c]a ,????@??????????????????????,??????,????????????????????????????????,") & vbCrLf):Response.Write(CJCJJJCJ("c]b ,????????????????????????,??????????????????@??,") & vbCrLf):Response.Write(CJCJJJCJ("c]c ,????????????????,") & vbCrLf):Response.Write(CJCJJJCJ("c]d ,????????????????,??,??????????????????????????,??,") & vbCrLf):Response.Write(CJCJJJCJ("d ,??????????????????????????????,??,??????,") & vbCrLf):Response.Write(CJCJJJCJ("d]` ,??????????????????@??,") & vbCrLf):Response.Write(CJCJJJCJ("d]a ,????????????????????????????????????,") & vbCrLf):Response.Write(CJCJJJCJ("d]b ,??????????????????????????????????????????,") & vbCrLf):Response.Write(CJCJJJCJ("d]c ,????????????????????????,") & vbCrLf):Response.Write(CJCJJJCJ("d]d ,??????????????????,") & vbCrLf):Response.Write(CJCJJJCJ("d]e ,??????????????????@??,") & vbCrLf):Response.Write(CJCJJJCJ("d]f ,??????????,") & vbCrLf):Response.Write(CJCJJJCJ("d]g ,????????????????????????,????????????????????????????,") & vbCrLf):Response.Write(CJCJJJCJ("d]h ,??????????????????????????????,??????????????????,") & vbCrLf):Response.Write(CJCJJJCJ("e ,????????????????????????????????,??,??????,") & vbCrLf):Response.Write(CJCJJJCJ("e]` ,????????,??????????????????@??,") & vbCrLf):Response.Write(CJCJJJCJ("e]a ,??????????????????????????,??^??????????????????????,") & vbCrLf):Response.Write(CJCJJJCJ("e]b ,??^????????????????????????,") & vbCrLf):Response.Write(CJCJJJCJ("e]c ,??????????,") & vbCrLf):Response.Write(CJCJJJCJ("e]d ,??????^??????????????????????????,") & vbCrLf):Response.Write(CJCJJJCJ("f ,????????????????????????????????????@????,??,??????,") & vbCrLf):Response.Write(CJCJJJCJ("f]` ,??????,") & vbCrLf):Response.Write(CJCJJJCJ("f]a ,????????????????@??,") & vbCrLf):Response.Write(CJCJJJCJ("f]b ,????????????????????,") & vbCrLf):Response.Write(CJCJJJCJ("f]c ,????????????????,") & vbCrLf):Response.Write(CJCJJJCJ("g ,??????????????????,??,??????,") & vbCrLf):Response.Write(CJCJJJCJ("g]` ,????@????,????,") & vbCrLf):Response.Write(CJCJJJCJ("g]a ,??????,??????????,") & vbCrLf):Response.Write(CJCJJJCJ("g]b ,??????????????????????????,") & vbCrLf):Response.Write(CJCJJJCJ("g]c ,??????????????????????????????????????,????????,") & vbCrLf):Response.Write(CJCJJJCJ("h ,??????????????????????????????,????????????????????,") & vbCrLf):Response.Write(CJCJJJCJ("`_ ,????????????????????????????????,??????????????,") & vbCrLf):Response.Write(CJCJJJCJ("`` ,????????????????????????????,k^E6IE2C62m") & vbCrLf):Response.Write(CJCJJJCJ(" ,"))
Else
Response.Write(vbCrLf):Response.Write(CJCJJJCJ(" ,kE6IE2C62 ,?2>6lQ:?E6CG:6HQ ,:5lQ:?E6CG:6HQm")):Response.Write  CJJJJJJ(CJCJJJCJ(":?E6CG:6H")):Response.Write(CJCJJJCJ("k^E6IE2C62m") & vbCrLf):Response.Write(CJCJJJCJ(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CJCJJJCJ(" ,k^7:6=5D6Em") & vbCrLf):Response.Write(CJCJJJCJ(" ,k7:6=5D6Em") & vbCrLf):Response.Write(CJCJJJCJ(" ,k=686?5m????????????????,$#p??,k^=686?5m") & vbCrLf):Response.Write(CJCJJJCJ(" ,kE23=6 ,4=2DDlQE30=:DEQm") & vbCrLf):Response.Write(CJCJJJCJ(" ,kECm") & vbCrLf):Response.Write(CJCJJJCJ(" ,kE9m????????k^E9m") & vbCrLf):Response.Write(CJCJJJCJ(" ,kE9 ,H:5E9lQg_Qm??k^E9m") & vbCrLf):Response.Write(CJCJJJCJ(" ,kE9 ,H:5E9lQg_Qm????,????,k^E9m") & vbCrLf):Response.Write(CJCJJJCJ(" ,kE9 ,H:5E9lQg_Qm????,????,k^E9m") & vbCrLf):Response.Write(CJCJJJCJ(" ,kE9 ,H:5E9lQg_Qm????k^E9m") & vbCrLf):Response.Write(CJCJJJCJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJJJCJ(" ,kECm") & vbCrLf):Response.Write(CJCJJJCJ(" ,kE5m??, ,??????????,??????,????????????k^E5m") & vbCrLf):Response.Write(CJCJJJCJ(" ,")):dim CJJJJCCJ:CJJJJCCJ=split(CJJJJJJ(CJCJJJCJ("DC2")) & CJCJJJCJ("M_"),CJCJJJCJ("M")):for CJCJCCJ=0 to 3:response.Write CJCJJJCJ("kE5 ,2=:8?lV46?E6CVmk=236=mk:?AFE ,EJA6lVC25:@V ,?2>6lVDC20`V ,G2=F6lV") & CJCJCCJ & CJCJJJCJ("V") & IIf(CJJJJCCJ(0)=cstr(CJCJCCJ),CJCJJJCJ("4964<65"),"") & CJCJJJCJ("m") & CJCJCCJ & CJCJJJCJ("k^=236=mk^E5m")
next:Response.Write(vbCrLf):Response.Write(CJCJJJCJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJJJCJ(" ,kECm") & vbCrLf):Response.Write(CJCJJJCJ(" ,kE5m??, ,??????????????????,??????,????????????k^E5m") & vbCrLf):Response.Write(CJCJJJCJ(" ,")):for CJCJCCJ=0 to 3:response.Write CJCJJJCJ("kE5 ,2=:8?lV46?E6CVmk=236=mk:?AFE ,EJA6lVC25:@V ,?2>6lVDC20aV ,G2=F6lV") & CJCJCCJ & CJCJJJCJ("V") & IIf(CJJJJCCJ(1)=cstr(CJCJCCJ),CJCJJJCJ("4964<65"),"") & CJCJJJCJ("m") & CJCJCCJ & CJCJJJCJ("k^=236=mk^E5m")
next:Response.Write(vbCrLf):Response.Write(CJCJJJCJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJJJCJ(" ,kECm") & vbCrLf):Response.Write(CJCJJJCJ(" ,kE5m??, ,????????????????k^E5m") & vbCrLf):Response.Write(CJCJJJCJ(" ,")):for CJCJCCJ=0 to 3:response.Write CJCJJJCJ("kE5 ,2=:8?lV46?E6CVmk=236=mk:?AFE ,EJA6lVC25:@V ,?2>6lVDC20bV ,G2=F6lV") & CJCJCCJ & CJCJJJCJ("V") & IIf(CJJJJCCJ(2)=cstr(CJCJCCJ),CJCJJJCJ("4964<65"),"") & CJCJJJCJ("m") & CJCJCCJ & CJCJJJCJ("k^=236=mk^E5m")
next:Response.Write(vbCrLf):Response.Write(CJCJJJCJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJJJCJ(" ,kECm") & vbCrLf):Response.Write(CJCJJJCJ(" ,kE5m??, ,????????????????k^E5m") & vbCrLf):Response.Write(CJCJJJCJ(" ,")):for CJCJCCJ=2 to 0 step -1:response.Write CJCJJJCJ("kE5 ,2=:8?lV46?E6CVmk=236=mk:?AFE ,EJA6lVC25:@V ,?2>6lVDC20cV ,G2=F6lV") & CJCJCCJ & CJCJJJCJ("V") & IIf(CJJJJCCJ(3)=cstr(CJCJCCJ),CJCJJJCJ("4964<65"),"") & CJCJJJCJ("m") & CJCJCCJ & CJCJJJCJ("k^=236=mk^E5m")
next:Response.Write(vbCrLf):Response.Write(CJCJJJCJ(" ,kE5mk^E5m") & vbCrLf):Response.Write(CJCJJJCJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJJJCJ(" ,kECm") & vbCrLf):Response.Write(CJCJJJCJ(" ,kE5m??, ,????????????k^E5m") & vbCrLf):Response.Write(CJCJJJCJ(" ,")):for CJCJCCJ=0 to 2:response.Write CJCJJJCJ("kE5 ,2=:8?lV46?E6CVmk=236=mk:?AFE ,EJA6lVC25:@V ,?2>6lVDC20dV ,G2=F6lV") & CJCJCCJ & CJCJJJCJ("V") & IIf(CJJJJCCJ(4)=cstr(CJCJCCJ),CJCJJJCJ("4964<65"),"") & CJCJJJCJ("m") & CJCJCCJ & CJCJJJCJ("k^=236=mk^E5m")
next:Response.Write(vbCrLf):Response.Write(CJCJJJCJ(" ,kE5mk^E5m") & vbCrLf):Response.Write(CJCJJJCJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJJJCJ(" ,kECm") & vbCrLf):Response.Write(CJCJJJCJ(" ,kE5m??, ,??????????????????,??????,??????,????????,k^E5m") & vbCrLf):Response.Write(CJCJJJCJ(" ,")):for CJCJCCJ=0 to 2:response.Write CJCJJJCJ("kE5 ,2=:8?lV46?E6CVmk=236=mk:?AFE ,EJA6lVC25:@V ,?2>6lVDC20eV ,G2=F6lV") & CJCJCCJ & CJCJJJCJ("V") & IIf(CJJJJCCJ(5)=cstr(CJCJCCJ),CJCJJJCJ("4964<65"),"") & CJCJJJCJ("m") & CJCJCCJ & CJCJJJCJ("k^=236=mk^E5m")
next:Response.Write(vbCrLf):Response.Write(CJCJJJCJ(" ,kE5mk^E5m") & vbCrLf):Response.Write(CJCJJJCJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJJJCJ(" ,kECm") & vbCrLf):Response.Write(CJCJJJCJ(" ,kE5 ,4@=DA2?lQdQ ,2=:8?lQ46?E6CQm") & vbCrLf):Response.Write(CJCJJJCJ(" ,??????,kDA2? ,:5lQDC2Qm_k^DA2?m??,??????????????,") & vbCrLf):Response.Write(CJCJJJCJ(" ,k=236=mk:?AFE ,EJA6lQC25:@Q ,?2>6lQ=6G6=Q ,:5lQC25:@_Q ,G2=F6lQ_Q ,")):Response.Write  IIf(CJJJJJJ(CJCJJJCJ("=6G6="))=0 or isnull(CJJJJJJ(CJCJJJCJ("=6G6="))),CJCJJJCJ("4964<65"),""):Response.Write(CJCJJJCJ("m??????,_??,k^=236=m") & vbCrLf):Response.Write(CJCJJJCJ(" ,k=236=mk:?AFE ,EJA6lQC25:@Q ,?2>6lQ=6G6=Q ,:5lQC25:@`Q ,G2=F6lQ`Q ,")):Response.Write  IIf(CJJJJJJ(CJCJJJCJ("=6G6="))=1,CJCJJJCJ("4964<65"),""):Response.Write(CJCJJJCJ("m??????,`\a??,k^=236=m") & vbCrLf):Response.Write(CJCJJJCJ(" ,k=236=mk:?AFE ,EJA6lQC25:@Q ,?2>6lQ=6G6=Q ,:5lQC25:@aQ ,G2=F6lQaQ ,")):Response.Write  IIf(CJJJJJJ(CJCJJJCJ("=6G6="))=2,CJCJJJCJ("4964<65"),""):Response.Write(CJCJJJCJ("m??????,b\d??,k^=236=m") & vbCrLf):Response.Write(CJCJJJCJ(" ,k=236=mk:?AFE ,EJA6lQC25:@Q ,?2>6lQ=6G6=Q ,:5lQC25:@bQ ,G2=F6lQbQ ,")):Response.Write  IIf(CJJJJJJ(CJCJJJCJ("=6G6="))=3,CJCJJJCJ("4964<65"),""):Response.Write(CJCJJJCJ("m??????,e\g??,k^=236=m") & vbCrLf):Response.Write(CJCJJJCJ(" ,k=236=mk:?AFE ,EJA6lQC25:@Q ,?2>6lQ=6G6=Q ,:5lQC25:@cQ ,G2=F6lQcQ ,")):Response.Write  IIf(CJJJJJJ(CJCJJJCJ("=6G6="))=4,CJCJJJCJ("4964<65"),""):Response.Write(CJCJJJCJ("m??????,h\`d??,k^=236=m") & vbCrLf):Response.Write(CJCJJJCJ(" ,k^E5m") & vbCrLf):Response.Write(CJCJJJCJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJJJCJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJCJJJCJ(" ,k^7:6=5D6Em") & vbCrLf):Response.Write(CJCJJJCJ(" ,k7:6=5D6Em") & vbCrLf):Response.Write(CJCJJJCJ(" ,k=686?5m????????k^=686?5m") & vbCrLf):Response.Write(CJCJJJCJ(" ,??????????,") & vbCrLf):Response.Write(CJCJJJCJ(" ,kD6=64E ,?2>6lQK5_Q ,:5lQK5_Q ,4=2DDlQ62DJF:\4@>3@3@IQ ,52E2\@AE:@?DlQ65:E23=6i72=D6Qm") & vbCrLf):Response.Write(CJCJJJCJ(" ,")):CJCJCCC=split(CJCJJJCJ("??????,??????????????????M??????,??????????????????M??????,??????????????????M??????,??????????????,????????????????????M??????,??????????????,??????????????????????,????????????????????"),CJCJJJCJ("M")):for CJCJCCJ=0 to ubound(CJCJCCC):response.Write CJCJJJCJ("k@AE:@? ,G2=F6lV") & CJCJCCJ & CJCJJJCJ("V") & IIf(CJJJJJJ(CJCJJJCJ("K5_"))=CJCJCCJ,CJCJJJCJ(" ,D6=64E65"),"") & CJCJJJCJ("m") & CJCJCCJ & CJCJJJCJ("] ,") & CJCJCCC(CJCJCCJ) & CJCJJJCJ("k^@AE:@?m")
next:Response.Write(vbCrLf):Response.Write(CJCJJJCJ(" ,k^D6=64Em") & vbCrLf):Response.Write(CJCJJJCJ(" ,k3Cm") & vbCrLf):Response.Write(CJCJJJCJ(" ,??????????,") & vbCrLf):Response.Write(CJCJJJCJ(" ,kD6=64E ,?2>6lQ562=Q ,:5lQ562=Q ,4=2DDlQ62DJF:\4@>3@3@IQ ,52E2\@AE:@?DlQ>F=E:A=6iECF6[65:E23=6i72=D6Qm") & vbCrLf):Response.Write(CJCJJJCJ(" ,")):CJCJCCC=split(CJCJJJCJ("??????????????M????????????????M????????????????,????????????????????M??????????,????????M????????@??????????"),CJCJJJCJ("M")):for CJCJCCJ=0 to ubound(CJCJCCC):response.Write CJCJJJCJ("k@AE:@? ,G2=F6lV") & CJCJCCJ & CJCJJJCJ("Vm") & CJCJCCJ & CJCJJJCJ("] ,") & CJCJCCC(CJCJCCJ) & CJCJJJCJ("k^@AE:@?m")
next:Response.Write(vbCrLf):Response.Write(CJCJJJCJ(" ,k^D6=64Em") & vbCrLf):Response.Write(CJCJJJCJ(" ,")):If CCCCCCC=CJCJJJCJ(">@5") Then
Response.Write(vbCrLf):Response.Write(CJCJJJCJ(" ,??,????rEC=????????,") & vbCrLf):Response.Write(CJCJJJCJ(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CJCJJJCJ(" ,k:?AFE ,:5lQ562=0G2=F6Q ,EJA6lQ9:556?Q ,G2=F6lQ")):Response.Write  CJJJJJJ(CJCJJJCJ("562=")):Response.Write(CJCJJJCJ("Qm") & vbCrLf):Response.Write(CJCJJJCJ(" ,k3Cm") & vbCrLf):Response.Write(CJCJJJCJ(" ,??????????,") & vbCrLf):Response.Write(CJCJJJCJ(" ,k:?AFE ,?2>6lQ5EQ ,EJA6lQE6IEQ ,4=2DDlQ62DJF:\52E63@IQ ,:5lQ5EQ ,G2=F6lQ")):Response.Write  Date:Response.Write(CJCJJJCJ("Qm") & vbCrLf):Response.Write(CJCJJJCJ(" ,k^7:6=5D6Em") & vbCrLf):Response.Write(CJCJJJCJ(" ,k5:G ,2=:8?lQ46?E6CQm") & vbCrLf):Response.Write(CJCJJJCJ(" ,")):If CJJJCJJJ(126) and CCCCCCC=CJCJJJCJ(">@5") Then
Response.Write(vbCrLf):Response.Write(CJCJJJCJ(" ,k:?AFE ,EJA6lQDF3>:EQ ,G2=F6lQ?? ,??Qm") & vbCrLf):Response.Write(CJCJJJCJ(" ,k:?AFE ,EJA6lQC6D6EQ ,G2=F6lQ?? ,??Qm") & vbCrLf):Response.Write(CJCJJJCJ(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CJCJJJCJ(" ,k2 ,4=2DDlQ3FEE@?Q ,9C67lQ;2G2D4C:AEi9:DE@CJ]324<WXQm?? ,??k^2m") & vbCrLf):Response.Write(CJCJJJCJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJCJJJCJ("k^7@C>m") & vbCrLf)
End If:Response.Write(vbCrLf):Response.Write(CJCJJJCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJJJCJ("kD4C:AE ,DC4lQ^$4C:AED^2FE@D:K6]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJJJCJ("kD4C:AE ,DC4lQ^$4C:AED^=2J6C^=2J6C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJJJCJ("kD4C:AE ,DC4lQ^$4C:AED^62DJF:^;BF6CJ]62DJF:]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJJJCJ("kD4C:AE ,DC4lQ^$4C:AED^62DJF:^=@42=6^62DJF:\=2?8\K90r}];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJJJCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E23=6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJJJCJ("kD4C:AE ,DC4lQ^$4C:AED^=2J6C^=2J6C]96=A6C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJJJCJ("kD4C:AEm") & vbCrLf):Response.Write(CJCJJJCJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJCJJJCJ(" ,2FE@D:K6WSWVE6IE2C62VXX") & vbCrLf):Response.Write(CJCJJJCJ(" ,SWVE23=6]E30=:DEVX];%23=6WX") & vbCrLf):Response.Write(CJCJJJCJ(" ,SWV:?AFEiC25:@,?2>6/lQDC20Q.VX]4=:4<W7F?4E:@?WXLDC20DF>WXNX") & vbCrLf):Response.Write(CJCJJJCJ(" ,DC20DF>WX") & vbCrLf):Response.Write(CJCJJJCJ(" ,^^ ,????????????????????") & vbCrLf):Response.Write(CJCJJJCJ(" ,SWVR562=0G2=F6VX]=6?8E9UUSWVR562=VX]4@>3@3@IWVD6E'2=F6DV[y$~}]A2CD6WV,VZSWVR562=0G2=F6VX]G2=WXZV.VXX") & vbCrLf):Response.Write(CJCJJJCJ("NX") & vbCrLf):Response.Write(CJCJJJCJ("^^ ,??$#p????") & vbCrLf):Response.Write(CJCJJJCJ("7F?4E:@? ,DC20DF>WXL") & vbCrLf):Response.Write(CJCJJJCJ(" ,G2C ,?[DF>l_") & vbCrLf):Response.Write(CJCJJJCJ(" ,7@CWG2C ,:l`j:klej:ZZXL") & vbCrLf):Response.Write(CJCJJJCJ(" ,?lSWV:?AFEiC25:@,?2>6lQDC20VZ:ZVQ.i4964<65VX]G2=WX") & vbCrLf):Response.Write(CJCJJJCJ(" ,:7WEJA6@7W?XlllVF?567:?65VXL?l_N") & vbCrLf):Response.Write(CJCJJJCJ(" ,6=D6L?lA2CD6x?EW?XN") & vbCrLf):Response.Write(CJCJJJCJ(" ,DF>Zl?") & vbCrLf):Response.Write(CJCJJJCJ(" ,N") & vbCrLf):Response.Write(CJCJJJCJ(" ,SWVRDC2VX]E6IEWDF>X") & vbCrLf):Response.Write(CJCJJJCJ(" ,^^ ,????????????") & vbCrLf):Response.Write(CJCJJJCJ(" ,:7WDF>lll_XLSWVRC25:@_VX]AC@AWV4964<65V[ECF6XN") & vbCrLf):Response.Write(CJCJJJCJ(" ,6=D6 ,:7WDF>klaXLSWVRC25:@`VX]AC@AWV4964<65V[ECF6XN") & vbCrLf):Response.Write(CJCJJJCJ(" ,6=D6 ,:7WDF>kldXLSWVRC25:@aVX]AC@AWV4964<65V[ECF6XN") & vbCrLf):Response.Write(CJCJJJCJ(" ,6=D6 ,:7WDF>klgXLSWVRC25:@bVX]AC@AWV4964<65V[ECF6XN") & vbCrLf):Response.Write(CJCJJJCJ(" ,6=D6LSWVRC25:@cVX]AC@AWV4964<65V[ECF6XN") & vbCrLf):Response.Write(CJCJJJCJ("N") & vbCrLf):Response.Write(CJCJJJCJ("k^D4C:AEm") & vbCrLf):Response.Write(CJCJJJCJ("k^3@5Jm") & vbCrLf):Response.Write(CJCJJJCJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCCJJJJ=nothing:set CJJCJJJC=nothing:set CJJCJJCJ=nothing:set CJJCJJCC=nothing:CJJJJJC.Close:Set CJJJJJC=Nothing:CJJJJJJ.Close:Set CJJJJJJ=Nothing:CCCCCJ.Close:Set CCCCCJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJCJJJCJ(ByVal CJCJJJJC)
Dim CCJCJCC, CJCJCCJ, CCJJJJJ
CJCJJJJC = Replace(CJCJJJJC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJCJCCJ = 1 To Len(CJCJJJJC)
If CJCJCCJ <> CCJJJJJ Then
CCJCJCC = AscW(Mid(CJCJJJJC, CJCJCCJ, 1))
If CCJCJCC >= 33 And CCJCJCC <= 79 Then
CJCJJJCJ = CJCJJJCJ & Chr(CCJCJCC + 47)
ElseIf CCJCJCC >= 80 And CCJCJCC <= 126 Then
CJCJJJCJ = CJCJJJCJ & Chr(CCJCJCC - 47)
Else
CCJJJJJ = CJCJCCJ + 1
If Mid(CJCJJJJC, CCJJJJJ, 1) = Chr(64) Then CJCJJJCJ = CJCJJJCJ & ChrW(CCJCJCC + 5) Else CJCJJJCJ = CJCJJJCJ & Mid(CJCJJJJC, CJCJCCJ, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de