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

??<%
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
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de