<%
dim CJJCCC:CJCCCJ=Request.ServerVariables(CCJJJJ("!p%w0x}u~")):if instr(CJCCCJ,CCJJJJ("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not memIsSchoolAdmin and not memIsConsultant then Call RedirectMessage(CCJJJJ("寴@丈@赲@，,患@沜@朄@迖@兠@诠@顰@靝@癿@朾@陋@。,"))
CJJCCC=memTopType
elseif instr(CJCCCJ,CCJJJJ("^>^D49@@=^DEF56?E^"))>0 or instr(CJCCCJ,CCJJJJ("^DEF56?E^"))>0 then
Call CheckLogined:CJJCCC=memTopType
elseif instr(CJCCCJ,CCJJJJ("^D49@@="))>0 then
CJJCCC=Request.QueryString(CCJJJJ("D49@@=")):if not isinteger(CJJCCC) then CJJCCC=Request.QueryString(CCJJJJ("F"))
if not isinteger(CJJCCC) then CJJCCC=Request.QueryString(CCJJJJ("D4"))
if not isinteger(CJJCCC) then Call RedirectMessage(CCJJJJ("糶@绚@厽@敫@W$49@@=X忀@顶@丵@敫@孒@。,"))
CJJCCC=csng(CJJCCC)
end if:if CJJCCC=0 then Call RedirectMessage(CCJJJJ("糶@绚@厽@敫@W$49@@=X锔@诪@W_X。,"))
Dim CJCJJJ:Call SetConfig:Sub SetConfig():dim CJCJJC,CJCJCJ:CJCCCJ=CCJJJJ("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") & CJJCCC:set CJCJCJ=con.execute(CJCCCJ):if CJCJCJ.eof then Call RedirectMessage(CCJJJJ("患@W") & memID & CCJJJJ("X戻@圣@癿@卐@佈@W") & CJJCCC & CCJJJJ("X朥@批@别@。,"))
ReDim CJCJJC(61):CJCJJC(0)=CJCJCJ(CCJJJJ(";:2@H6:")) & "":CJCJJC(1)=CJCJCJ(CCJJJJ("EJA6")):CJCJJC(2)=CJCJCJ(CCJJJJ("D>D")):CJCJJC(3)=CJCJCJ(CCJJJJ("4FDE@>8C@FA")) & "":CJCJJC(4)=CJCJCJ(CCJJJJ("D:5632C0@E96C")) & "":CJCJJC(5)=IIf(isnull(CJCJCJ(CCJJJJ("E6DEC6DF=EG:6H"))),0,CJCJCJ(CCJJJJ("E6DEC6DF=EG:6H"))):CJCJJC(6)=CJCJCJ(CCJJJJ("K:IF?E:>6")):CJCJJC(7)=CJCJCJ(CCJJJJ("766")):CJCJJC(8)=CJCJCJ(CCJJJJ("C6E6DE52J")):CJCJJC(9)=CJCJCJ(CCJJJJ("6IA:C652E6")):CJCJJC(10)=CJCJCJ(CCJJJJ("E:E=6")):CJCJJC(11)=CJCJCJ(CCJJJJ(":?EC@")) & "":CJCJJC(12)=CJCJCJ(CCJJJJ("A:4EFC6")) & "":CJCJJC(13)=CJCJCJ(CCJJJJ("72>:=J")):CJCJJC(14)=CJCJCJ(CCJJJJ("4@AJC:89E")) & "":CJCJJC(15)=IIf(isnull(CJCJCJ(CCJJJJ("D6>6DE6C0DE2CE052E6"))),CCJJJJ("`h__\`\`"),CJCJCJ(CCJJJJ("D6>6DE6C0DE2CE052E6"))):CJCJJC(16)=IIf(isnull(CJCJCJ(CCJJJJ("K:IF?0E:>6D09:89=:89E"))),0,CJCJCJ(CCJJJJ("K:IF?0E:>6D09:89=:89E"))):CJCJJC(17)=CJCJCJ(CCJJJJ("4@?E24E")) & "":CJCJJC(18)=CJCJCJ(CCJJJJ("D2?5E23=6")):CJCJJC(19)=CJCJCJ(CCJJJJ("4C:D:D")):CJCJJC(20)=CJCJCJ(CCJJJJ("JJ52E6")):CJCJJC(21)=CJCJCJ(CCJJJJ("BB")):CJCJJC(22)=CJCJCJ(CCJJJJ("JFJF60D>D0EA=")) & "":CJCJJC(23)=CJCJCJ(CCJJJJ("JFJF60E6DE0=3")) & "":CJCJJC(25)=CJCJCJ(CCJJJJ("6IA6CE")):CJCJJC(26)=CJCJCJ(CCJJJJ(">@5:?7@")):CJCJJC(27)=CJCJCJ(CCJJJJ("9@>6A286E@AA:4EFC6")) & "":CJCJJC(28)=CJCJCJ(CCJJJJ("4C:D:D=3")):CJCJJC(29)=IIf(CJCJCJ(CCJJJJ("4C:D:D@=5")),False,True):CJCJJC(30)=CJCJCJ(CCJJJJ("8C@FA8F:52?46")):CJCJJC(31)=CJCJCJ(CCJJJJ("3:@7665324<")):CJCJJC(32)=CJCJCJ(CCJJJJ("<6JDEC")):CJCJJC(33)=CJCJCJ(CCJJJJ("=@8@")) & "":CJCJJC(34)=CJCJCJ(CCJJJJ("K:46")):CJCJJC(35)=IIf(CJCJCJ(CCJJJJ(":D?6H")),True,False):CJCJJC(36)=121:CJCJJC(37)=111:CJCJJC(38)=160:CJCJJC(39)=CJCJCJ(CCJJJJ("8F6DE3@@<")):CJCJJC(40)=CJCJCJ(CCJJJJ("75D")):CJCJJC(42)=CJCJCJ(CCJJJJ("9@>6=@8:?")):CJCJJC(43)=CJCJCJ(CCJJJJ("K:IF?0?6657665324<")):CJCJJC(44)=CJCJCJ(CCJJJJ("K:IF?0E:>6D0=:>:E")):CJCJJC(45)=CJCJCJ(CCJJJJ("4@>A=6E60:?7@")):CJCJJC(46)=CJCJCJ(CCJJJJ("E6DE:?EC@")) & "":CJCJJC(47)=IIf(isnull(CJCJCJ(CCJJJJ("JFJF60367@C60E:>6"))),0,CJCJCJ(CCJJJJ("JFJF60367@C60E:>6"))):CJCJJC(49)=CJCJCJ(CCJJJJ("D>D0C646:G6C")):CJCJJC(50)=CJCJCJ(CCJJJJ("D>D0D:8?")) & "":CJCJJC(52)=CJCJCJ(CCJJJJ("JFJF602CC2?86")):CJCJJC(53)=IIf(isnull(CJCJCJ(CCJJJJ("DEF56?E0BF6DE:@?04@F?E"))),0,CJCJCJ(CCJJJJ("DEF56?E0BF6DE:@?04@F?E"))):CJCJJC(54)=CJCJCJ(CCJJJJ("9:560=30@FE@7286")):CJCJJC(55)=CJCJCJ(CCJJJJ("JFJF60E6DE052JD")):CJCJJC(56)=CJCJCJ(CCJJJJ("JFJF60H66<0=:>:E")):CJCJJC(57)=CJCJCJ(CCJJJJ("JFJF604964<65")):CJCJJC(58)=CJCJCJ(CCJJJJ("K:IF?0?6657665324<0?6IE")):CJCJJC(59)=CJCJCJ(CCJJJJ("4964<?6HDEF56?E")):CJCJJC(60)=CJCJCJ(CCJJJJ("K:IF?04=@D6052E6")):CJCJCJ.close : set CJCJCJ=nothing:if isNull(CJCJJC(8)) or CJCJJC(8)="" then CJCJJC(8)=0
if isdate(CJCJJC(9)) then
CJCJJC(9)=cdate(CJCJJC(9)):if CJCJJC(9)<Date then Call RedirectMessage(CCJJJJ("寴@丈@赲@，,患@癿@糶@绚@诐@産@朚@陋@W") & CJCJJC(9) & CCJJJJ("X巭@迂@。,"))
end if:if not isinteger(CJCJJC(20)) then CJCJJC(20)=7
select case CJCJJC(1):case 1,2,16:CJCJJC(36)=159:case 4,5,6,10,11:CJCJJC(36)=190:CJCJJC(37)=178:CJCJJC(38)=191:case 7,13:CJCJJC(36)=164:CJCJJC(37)=178:CJCJJC(38)=179:end select:CJCJJJ=CJCJJC:End Sub::Response.Write(vbCrLf)
Function CCJJJJ(ByVal CJCCCC)
Dim CJCJCC, CJCCJJ, CJCCJC
CJCCCC = Replace(CJCCCC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJCCJJ = 1 To Len(CJCCCC)
If CJCCJJ <> CJCCJC Then
CJCJCC = AscW(Mid(CJCCCC, CJCCJJ, 1))
If CJCJCC >= 33 And CJCJCC <= 79 Then
CCJJJJ = CCJJJJ & Chr(CJCJCC + 47)
ElseIf CJCJCC >= 80 And CJCJCC <= 126 Then
CCJJJJ = CCJJJJ & Chr(CJCJCC - 47)
Else
CJCCJC = CJCCJJ + 1
If Mid(CJCCCC, CJCCJC, 1) = Chr(64) Then CCJJJJ = CCJJJJ & ChrW(CJCJCC + 5) Else CCJJJJ = CCJJJJ & Mid(CJCCCC, CJCCJJ, 1)
End If
End If
Next
End Function
%>