<%
Call CheckLogined:if not memIsSchoolAdmin then Call RedirectMessage(CJJCJJ("徾@琁@箜@琁@糶@绚@M寴@丈@赲@，,患@沜@朄@迖@兠@诠@顰@靝@癿@朾@陋@！,"))
dim CCCJJ,CCCJC(38):CCCJJ=memTopType:if not isinteger(CCCJJ) or CCCJJ=0 then
server.Transfer CJJCJJ("=@8:?]2DA")
end if:CJJJJC=CJJCJJ("D6=64E ,E@A ,` ,;:2@H6:[EJA6[4FDE@>8C@FA[D:5632C0@E96C[E6DEC6DF=EG:6H[>2I>6>36C[766[C6E6DE52J[6IA:C652E6[E:E=6[>6>36C0EJA60?2>6[4@AJC:89E[A:4EFC6[DEF56?E2AA62=[6>2:=0D>EA[6>2:=0=@8:??2>6[6>2:=0=@8:?A2DD[6>2:=07C@>[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 ,7C@> ,G0D49@@= ,H96C6 ,:5l") & CCCJJ:set CJJJCJ=con.execute(CJJJJC):if CJJJCJ.eof then Call RedirectMessage(CJJCJJ("丨@囸@徾@琁@罌@M寴@丈@赲@，,沜@朄@批@别@诠@卐@佈@W") & CCCJJ & CJJCJJ("X我@患@丈@屙@争@诠@卐@佈@，,诲@三@宝@月@聏@糶@！,"))
CCCJC(0)=CJJJCJ(0) & "":CCCJC(1)=CJJJCJ(1):CCCJC(3)=CJJJCJ(2) & "":CCCJC(4)=CJJJCJ(3) & "":CCCJC(5)=CJJJCJ(4):CCCJC(6)=CJJJCJ(5):CCCJC(7)=CJJJCJ(6):CCCJC(8)=CJJJCJ(7):CCCJC(9)=CJJJCJ(8):CCCJC(10)=CJJJCJ(9) & "":CCCJC(11)=CJJJCJ(11) & "":CCCJC(12)=CJJJCJ(12) & "":CCCJC(14)=CJJJCJ(14) & "":CCCJC(15)=CJJJCJ(15) & "":CCCJC(16)=CJJJCJ(16) & "":CCCJC(17)=CJJJCJ(17) & "":CCCJC(18)=CJJJCJ(18):CCCJC(19)=IIf(CJJJCJ(19),True,False):CCCJC(20)=CJJJCJ(20):CCCJC(25)=CJJJCJ(21):CCCJC(27)=CJJJCJ(22):CCCJC(28)=CJJJCJ(23):CCCJC(29)=IIf(CJJJCJ(24),False,True):CCCJC(30)=CJJJCJ(25):CCCJC(31)=CJJJCJ(26):CCCJC(32)=CJJJCJ(27):CCCJC(33)=CJJJCJ(28):CCCJC(34)=CJJJCJ(29):CCCJC(35)=IIf(CJJJCJ(30),True,False):CCCJC(36)=121:CCCJC(37)=111:CCCJC(38)=160:if isNull(CCCJC(7)) then CCCJC(7)=0
if not isdate(CCCJC(9)) then CCCJC(9)=Date+2 else CCCJC(9)=cdate(CCCJC(9))
if CCCJC(9)<Date then Call RedirectMessage(CJJCJJ("丨@囸@徾@琁@罌@M寴@丈@赲@，,患@癿@糶@绚@诐@産@朚@陋@W") & CCCJC(9) & CJJCJJ("X巭@迂@！,"))
if CCCJC(10)="" then CCCJC(10)=CJJJCJ(10)
if CCCJC(11)="" then CCCJC(11)=CJJCJJ("牃@朾@戻@朄@：,U4@AJj") & year(date)-1 & CJJCJJ("\") & year(date)+1 & CJJCJJ(" ,匒@产@徾@浲@寷@舥@敔@肭@秌@扻@肜@仸@朄@陋@內@右@") & vbcrlf & CJJCJJ("聏@糶@田@诘@：,_`_\eahge_``^`a") & vbcrlf & CJJCJJ("逕@俜@圫@圻@：,匒@产@巽@浲@涻@匵@丅@圫@七,衒@囸@陀@刖@丕@囨@襺@匵@a史@楷@ac_`実@W`___gdX") & vbcrlf & CJJCJJ("扻@未@攪@拼@：,k2 ,9C67lV9EEADi^^HHH]I:?92:D@7E]4@>V ,E2C86ElV03=2?<VmHHH]I:?92:D@7E]4@>k^2m")
if not isinteger(CCCJC(20)) then CCCJC(20)=7
select case CCCJC(1):case 1,2,16:CCCJC(36)=159:case 4,5,6,10,11:CCCJC(36)=190:CCCJC(37)=178:CCCJC(38)=191:case 7,13:CCCJC(36)=164:CCCJC(37)=178:CCCJC(38)=179:end select:::Response.Write(vbCrLf)
Function CJJCJJ(ByVal CJJJCC)
Dim CCCCJ, CCCCC, CJJJJJ
CJJJCC = Replace(CJJJCC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CCCCC = 1 To Len(CJJJCC)
If CCCCC <> CJJJJJ Then
CCCCJ = AscW(Mid(CJJJCC, CCCCC, 1))
If CCCCJ >= 33 And CCCCJ <= 79 Then
CJJCJJ = CJJCJJ & Chr(CCCCJ + 47)
ElseIf CCCCJ >= 80 And CCCCJ <= 126 Then
CJJCJJ = CJJCJJ & Chr(CCCCJ - 47)
Else
CJJJJJ = CCCCC + 1
If Mid(CJJJCC, CJJJJJ, 1) = Chr(64) Then CJJCJJ = CJJCJJ & ChrW(CCCCJ + 5) Else CJJCJJ = CJJCJJ & Mid(CJJJCC, CCCCC, 1)
End If
End If
Next
End Function
%>