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

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCJCC, CCCJJ,CCCJC, CCCCJ, CCCCC:Set CCJCC = server.CreateObject(CJJCCCJJ("ps~sq]r@??64E:@?")):CCJCC.open Application(CJJCCCJJ("r@??64E:@?$EC:?8")):Set CCCJJ=CCJCC::Dim CJJJJJ,CJJJJC,CJJJCJ,CJJJCC,CJJCJJ,CJJCJC,CJJCCJ,CJJCCC,CJCJJJ:Dim CJCJJC,CJCJCJ,CJCJCC,CJCCJJ,CJCCJC,CJCCCJ:Dim CJCCCC,CCJJJJ,CCJJJC:Dim CCJJCJ:CCJJCJ=Trim(Request.Cookies(CJJCCCJJ("!$*|t|qt#"))):if CCJJCJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJJJJJ>0 then
CCCCC=CJJCCCJJ("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") & CJJJJC & CJJCCCJJ("V ,2?5 ,:5l") & CJJJJJ
set CCCJC=CCJCC.execute(CCCCC):If CCCJC.EOF Then
Call ClearMemberCookie
Else
CJJJCJ=CCCJC(2) & "":CJJJCC=CCCJC(3):CJJCJJ=CCCJC(5):CJJCJC=CCCJC(6):CJJCCJ=CCCJC(9):CJJCCC=CCCJC(15):CJCJJC=CCCJC(0):CCJJJJ=CCCJC(1):CJCCCC=CCCJC(11) & "":CJCJCJ=CCCJC(10) & "":CJCJJJ=CCCJC(12):CJCJCC=CCCJC(14):CJCCJJ=CCCJC(13):CJCCJC=CCCJC(7) & "":CJCCCJ=CCCJC(4):CCJJJC=CCCJC(8):if isnull(CJJCCC) then CJJCCC=0
if isnull(CJJCCJ) or CJJCCJ=0 then CJJCCJ=CJJJCC
if isnull(CJCCCJ) then CJCCCJ=0
if isnull(CJJCJJ) then CJJCJJ=0
if instr(CJJCCCJJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJJJC)>0 then Call RedirectMessage(CJJCCCJJ("????????,????????????????????????????????,"))
Call SetMemberCookie(CJJJJJ,CJJJJC)
End IF
end if:Sub CheckRight(CJJJCCC):dim CCJJCC,CCJCJJ:if CJJJJJ=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJJCCCJJ("??????????????,????????????,"))
elseIf not CJJJJJCJ(CJJJCCC) then
Call RedirectMessage(CJJCCCJJ("????W") & CJJJCCC & CJJCCCJJ("X????????,????????????????????,"))
end if:End Sub:Function CJJJJJCJ(CJJJCCC):dim CCJJCC,CCJCJJ:CCJCJJ=split(CJJJCCC,CJJCCCJJ("[")):CJJJJJCJ=False:for CCJJCC=0 to ubound(CCJCJJ):If Mid(CJJJCJ,CCJCJJ(CCJJCC),1)="1" then
CJJJJJCJ=True:exit function
end if:next:End Function:Sub CheckLogined():if CJJJJJ=0 then
Call ClearMemberCookie:Call ConnClose:dim CCJCJC:CCJCJC=trim(request.QueryString(CJJCCCJJ("D49@@="))):if isnumeric(CCJCJC) then
response.Redirect CJJCCCJJ("^>^G2?E^R^D49@@=^") & CCJCJC & CJJCCCJJ("^DEF56?E^=@8:?nC65:C64El") & url
else
Call RedirectMessage(CJJCCCJJ("??????????????,????????????,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CJJCCCJJ("!$*|t|qt#"))="":CJJJJJ=0:CJJCJC=0:CJJJJC=Empty:CJJCJJ=0:CJJCCC=0:CJJCCJ=0:CJJJCC=0:CJCJJC=False:CCJJJJ=False:CCJJJC=Empty:End Sub:Sub CheckMemberCookie():dim CCJCCJ,CCJCCC,CCJJCC,CCCJJJ,CCCJJC:CCJCCJ=split(CCJJCJ,CJJCCCJJ("]")):if ubound(CCJCCJ)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CCJCCJ(0)) or len(CCJCCJ(1))<>32 or len(CCJCCJ(2))<>32 then
Call ClearMemberCookie
else
CCJCCC=CCJCCJ(1):for CCJJCC=1 to len(CCJCCC):CCCJJJ=mid(CCJCCC,CCJJCC,1):if isnumeric(CCCJJJ) then CCCJJC=CCCJJC & CCCJJJ
if len(CCCJJC)=7 then exit for
next:CCJCCC=CCJCCJ(2):if CCCJJC<>mid(CCJCCC,6,7) then
Call ClearMemberCookie
else
CCCJJJ=mid(CCJCCC,18,10)/2:if CCCJJJ<DateDiff(CJJCCCJJ("D"), CJJCCCJJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJJJJJ=Clng(CCJCCJ(0)):CJJJJC=CCJCCJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCJJCCC,CCJCJJC):dim CCJJCC,CCCJJJ,CCCJJC:for CCJJCC=1 to len(CCJCJJC):CCCJJJ=mid(CCJCJJC,CCJJCC,1):if isnumeric(CCCJJJ) then CCCJJC=CCCJJC & CCCJJJ
if len(CCCJJC)=7 then exit for
next:CCCJJC=CCJJCCC & CJJCCCJJ("]") & CCJCJJC & CJJCCCJJ("]") & Fix(10000*(Rnd+1)) & CCCJJC & Fix(10000*(Rnd+1)) & DateDiff(CJJCCCJJ("D"), CJJCCCJJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJJCCCJJ("!$*|t|qt#"))=CCCJJC:End Sub::Function CJJJJJCC(CJJCCCJC):Dim str,CCCJCC:str = Trim(CJJCCCJC):If IsNull(str) Or str = "" Then
CJJJJJCC = ""
else
str=Replace(str, CJJCCCJJ("V"), "")
str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CJJCCCJJ("k:7C2>6"), CJJCCCJJ("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CJJCCCJJ("kD4C:AE"), CJJCCCJJ("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CCCJCC=new RegExp:CCCJCC.Pattern=CJJCCCJJ("@?W,2\K.ZXl"):CCCJCC.IgnoreCase = True:CCCJCC.Global=True:str=CCCJCC.Replace(str,CJJCCCJJ("@?S`U6BF2=Dj")):set CCCJCC=nothing:CJJJJJCC=str
End If:End Function:Function IIf(CJJCCCCJ, CJJCCCCC, CJCJJJJJ):if isnull(CJJCCCCJ) or isempty(CJJCCCCJ) then
IIf = CJCJJJJJ
elseif CJJCCCCJ Then
IIf = CJJCCCCC
Else
IIf = CJCJJJJJ
end if:End Function:Const CCJCCJJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CJCJJJJC,CJCJJJCJ):dim CCJCCJ:CCJCCJ=CJCJJJJC & "=" & CJCJJJCJ & CJJCCCJJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJCCCJJ("$6E\r@@<:6"),CCJCCJ):End Sub:::::Sub CheckValidPost():dim CCCCJJ:CCCCJJ=false:Dim CCCCJC : CCCCJC=lcase(Request.ServerVariables(CJJCCCJJ("w%%!0#tut#t#"))):if(instr(CCCCJC,Application(CJJCCCJJ("s@>2:?(9:E6{:DE")))>0) then
CCCCJJ=true
else
Dim CCCCCJ : CCCCCJ=lcase(Request.ServerVariables(CJJCCCJJ("$t#'t#0}p|t"))):Dim CCCCCC : CCCCCC=Request.ServerVariables(CJJCCCJJ("{~rp{0pss#")):if Mid(CCCCJC,8,Len(CCCCCJ))=CCCCCJ or Mid(CCCCJC,9,Len(CCCCCJ))=CCCCCJ or CCCCCJ=CCCCCC then CCCCJJ=true
end if:if not CCCCJJ then Call RedirectMessage(CJJCCCJJ("????????,??????????????????????????,"))
end sub::Function CJJJJCJC(CCJCJCC):if isnull(CCJCJCC) or trim(CCJCJCC)="" or not isnumeric(CCJCJCC) then
CJJJJCJC=false
else
Dim CCCJCC:Set CCCJCC = New RegExp:CCCJCC.Pattern = CJJCCCJJ("/-5ZS"):CCCJCC.IgnoreCase = True:CJJJJCJC = CCCJCC.test(CCJCJCC):set CCCJCC=nothing
end if:End Function::Function CJJJJCCJ():dim CJJJJJJ,CJJJJJC,CJJJJCJ:CJJJJCJ=10001:CJJJJJJ=CJJCCCJJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\WC@H0?F>36CWX@G6CW@C56C ,3J ,:5XZ") & CJJJJCJ-1 & CJJCCCJJ("X ,2D ,5:77 ,7C@> ,>6>36C ,H96C6 ,:5m") & CJJJJCJ-1 & CJJCCCJJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJJJJJC=CCJCC.execute(CJJJJJJ):CJJJJCCJ = CJJJJJC(0):if isnull(CJJJJCCJ) then CJJJJCCJ=CJJJJCJ
CJJJJJC.close : set CJJJJJC=nothing:End Function::Sub WriteJS(CJCJJJCC):Call ConnClose:response.Charset=CJJCCCJJ("FE7\g"):response.write CJJCCCJJ("k") & CJJCCCJJ("D4C:AEm") & CJCJJJCC & CJJCCCJJ("k^D4C:AEm"):response.end:End Sub:Sub ConnClose():On Error Resume Next:set CJJJJCCC=nothing:set CJJJCJJJ=nothing:set CJJJCJJC=nothing:set CJJJCJCJ=nothing:CJJJJJC.close : set CJJJJJC=nothing:CCCCJ.Close : Set CCCCJ=Nothing:CCCJC.Close : Set CCCJC=Nothing:CJJJCJCC.Close : Set CJJJCJCC = Nothing:CCJCC.Close : Set CCJCC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJCJJCJJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJCCCJJ("!$*0|6DD286"),server.URLEncode(CJCJJCJJ)):Response.Redirect CJJCCCJJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::Function CJJJCCJJ(ByVal CJJJCCJC,style):if not isdate(CJJJCCJC) then
CJJJCCJJ=CJJJCCJC:exit function
end if:dim CJJJJCC,CJJJCJJ,CJJJCJC,CJJJCCJ:CJJJCCJC=cdate(CJJJCCJC):CJJJJCC=Year(CJJJCCJC):CJJJCJJ=Month(CJJJCCJC):CJJJCJC=Day(CJJJCCJC):select case style:case 0:CJJJCCJJ=CJJJJCC & CJJCCCJJ("\") & right(0 & CJJJCJJ,2) & CJJCCCJJ("\") & right(0 & CJJJCJC,2):case 1:CJJJCCJJ=CJJJJCC & right(0 & CJJJCJJ,2) & right(0 & CJJJCJC,2):case 2:CJJJCCJJ=right(CJJJJCC,2) & CJJCCCJJ("\") & right(0 & CJJJCJJ,2) & CJJCCCJJ("\") & right(0 & CJJJCJC,2):case 3:CJJJCCJJ=CJJJJCC & CJJCCCJJ("\") & right(0 & CJJJCJJ,2):case 4:CJJJCCJJ=right(0 & CJJJCJJ,2) & CJJCCCJJ("\") & right(0 & CJJJCJC,2):case 5:CJJJCCJJ=right(0 & CJJJCJC,2):case 6:CJJJCCJJ=CJJJJCC & CJJCCCJJ("??") & right(0 & CJJJCJJ,2) & CJJCCCJJ("??") & right(0 & CJJJCJC,2) & CJJCCCJJ("??"):case else
CJJJCCJJ=CJJJCCJC:end select:End Function:Function CJJJCCCJ(CJCJJCJC):Dim CJJJJJC, CJJJCCC, str(), CCJJCC,CCCJJJ,CJJCJJJ:CJJCJJJ=UCase(CJCJJCJC):If Not IsArray(Application(CJJCCCJJ("!$*0") & CJJCJJJ)) Then
CCCCC=CJJCCCJJ("D6=64E ,:5[?2>6[>6>36CEJA6 ,7C@> ,,") & CJCJJCJC & CJJCCCJJ(". ,@C56C ,3J ,D@CE[:5"):set CJJJJJC=server.createobject(CJJCCCJJ("25@53]C64@C5D6E")):CJJJJJC.open CCCCC,CCJCC,1:CJJJCCC = CJJJJJC.RecordCount:ReDim str(CJJJCCC, 2):If CJJJCCC > 0 Then
For CCJJCC = 1 To CJJJCCC:for CCCJJJ=0 to 2:str(CCJJCC, CCCJJJ) = CJJJJJC(CCCJJJ):next:CJJJJJC.MoveNext:Next
End If:CJJJJJC.Close: Set CJJJJJC = Nothing:Application(CJJCCCJJ("!$*0") & CJJCJJJ) = str
End If:CJJJCCCJ = Application(CJJCCCJJ("!$*0") & CJJCJJJ):End Function:Sub ShowListSelect(CJCJJCCJ,CJCJJCCC,CJCJCJJJ):Dim str, CCJJCC, CJJCJJC:CJJCJJC = CJJJCCCJ(CJCJJCCJ):For CCJJCC = 1 To UBound(CJJCJJC):if Cstr(CJJCJJC(CCJJCC,2))=Cstr(CJCJJCCC) then
str = str & CJJCCCJJ("k@AE:@? ,G2=F6lV") & CJJCJJC(CCJJCC, 0) & CJJCCCJJ("V")
If CStr(CJJCJJC(CCJJCC, 0)) = CJCJCJJJ & "" Then str = str & CJJCCCJJ(" ,D6=64E65lVD6=64E65V")
str = str & CJJCCCJJ("m") & CJJCJJC(CCJJCC, 1) & CJJCCCJJ("k^@AE:@?m")
end if:Next:Response.Write str:End Sub:Function CJJJCCCC(CJCJJCCJ,CJCJJCCC,CCJJCCC):Dim str, CCJJCC, CJJCJJC:CJJCJJC = CJJJCCCJ(CJCJJCCJ):For CCJJCC = 1 To UBound(CJJCJJC):if Cstr(CJJCJJC(CCJJCC,2))=Cstr(CJCJJCCC) and CStr(CJJCJJC(CCJJCC, 0)) = CCJJCCC & "" then
str=CJJCJJC(CCJJCC,1):exit for
end if:Next:if str="" then str=CJJCCCJJ(",????.")
CJJJCCCC=str:End Function::::::::::::::::Function CJJCJJJJ(str,CJCJCJJC):if isnull(str) or str="" or CJCJCJJC="" then
CJJCJJJJ=False:exit function
end if:Dim CCCJCC:Set CCCJCC = New RegExp:CCCJCC.Pattern = CJCJCJJC:CCCJCC.IgnoreCase = True:CJJCJJJJ = CCCJCC.test(str):set CCCJCC=nothing:End Function:::Private Const CCJCCJC =8:Private Const CCJCCCJ =4:Private Const CCJCCCC =32:Private CJJCJCJ(30):Private CJJCJCC(30):Private Function CJJCJJJC(CJCJCJCJ, CJCJCJCC):If CJCJCJCC = 0 Then
CJJCJJJC = CJCJCJCJ:Exit Function
ElseIf CJCJCJCC = 31 Then
If CJCJCJCJ And 1 Then
CJJCJJJC = &H80000000
Else
CJJCJJJC = 0
End If:Exit Function
ElseIf CJCJCJCC < 0 Or CJCJCJCC > 31 Then
Err.Raise 6
End If:If (CJCJCJCJ And CJJCJCC(31 - CJCJCJCC)) Then
CJJCJJJC = ((CJCJCJCJ And CJJCJCJ(31 - (CJCJCJCC + 1))) * CJJCJCC(CJCJCJCC)) Or &H80000000
Else
CJJCJJJC = ((CJCJCJCJ And CJJCJCJ(31 - CJCJCJCC)) * CJJCJCC(CJCJCJCC))
End If:End Function:Private Function CJJCJJCJ(CJCJCJCJ, CJCJCJCC):If CJCJCJCC = 0 Then
CJJCJJCJ = CJCJCJCJ:Exit Function
ElseIf CJCJCJCC = 31 Then
If CJCJCJCJ And &H80000000 Then
CJJCJJCJ = 1
Else
CJJCJJCJ = 0
End If:Exit Function
ElseIf CJCJCJCC < 0 Or CJCJCJCC > 31 Then
Err.Raise 6
End If:CJJCJJCJ = (CJCJCJCJ And &H7FFFFFFE) \ CJJCJCC(CJCJCJCC):If (CJCJCJCJ And &H80000000) Then
CJJCJJCJ = (CJJCJJCJ Or (&H40000000 \ CJJCJCC(CJCJCJCC - 1)))
End If:End Function:Private Function CJJCJJCC(CJCJCJCJ, CJCJCJCC):CJJCJJCC = CJJCJJJC(CJCJCJCJ, CJCJCJCC) Or CJJCJJCJ(CJCJCJCJ, (32 - CJCJCJCC)):End Function:Private Function CJJCJCJJ(CJCJCCJJ, CJCJCCJC):Dim CJJCCJJ:Dim CJJCCJC:Dim CJJCCCJ:Dim CJJCCCC:Dim CJCJJJJ:CJJCCCJ = CJCJCCJJ And &H80000000:CJJCCCC = CJCJCCJC And &H80000000:CJJCCJJ = CJCJCCJJ And &H40000000:CJJCCJC = CJCJCCJC And &H40000000:CJCJJJJ = (CJCJCCJJ And &H3FFFFFFF) + (CJCJCCJC And &H3FFFFFFF):If CJJCCJJ And CJJCCJC Then
CJCJJJJ = CJCJJJJ Xor &H80000000 Xor CJJCCCJ Xor CJJCCCC
ElseIf CJJCCJJ Or CJJCCJC Then
If CJCJJJJ And &H40000000 Then
CJCJJJJ = CJCJJJJ Xor &HC0000000 Xor CJJCCCJ Xor CJJCCCC
Else
CJCJJJJ = CJCJJJJ Xor &H40000000 Xor CJJCCCJ Xor CJJCCCC
End If
Else
CJCJJJJ = CJCJJJJ Xor CJJCCCJ Xor CJJCCCC
End If:CJJCJCJJ = CJCJJJJ:End Function:Private Function CJJCJCJC(CJCCJJC, CJJJJCC, CJCJCCCJ):CJJCJCJC = (CJCCJJC And CJJJJCC) Or ((Not CJCCJJC) And CJCJCCCJ):End Function:Private Function CJJCJCCJ(CJCCJJC, CJJJJCC, CJCJCCCJ):CJJCJCCJ = (CJCCJJC And CJCJCCCJ) Or (CJJJJCC And (Not CJCJCCCJ)):End Function:Private Function CJJCJCCC(CJCCJJC, CJJJJCC, CJCJCCCJ):CJJCJCCC = (CJCCJJC Xor CJJJJCC Xor CJCJCCCJ):End Function:Private Function CJJCCJJJ(CJCCJJC, CJJJJCC, CJCJCCCJ):CJJCCJJJ = (CJJJJCC Xor (CJCCJJC Or (Not CJCJCCCJ))):End Function:Private Sub md5_FF(CJCCCCJ, CJCCCCC, CCJJJJJ, CJJJCJC, CJCCJJC, CJCJCCCC, CJCCJJJJ):CJCCCCJ = CJJCJCJJ(CJCCCCJ, CJJCJCJJ(CJJCJCJJ(CJJCJCJC(CJCCCCC, CCJJJJJ, CJJJCJC), CJCCJJC), CJCCJJJJ)):CJCCCCJ = CJJCJJCC(CJCCCCJ, CJCJCCCC):CJCCCCJ = CJJCJCJJ(CJCCCCJ, CJCCCCC):End Sub:Private Sub md5_GG(CJCCCCJ, CJCCCCC, CCJJJJJ, CJJJCJC, CJCCJJC, CJCJCCCC, CJCCJJJJ):CJCCCCJ = CJJCJCJJ(CJCCCCJ, CJJCJCJJ(CJJCJCJJ(CJJCJCCJ(CJCCCCC, CCJJJJJ, CJJJCJC), CJCCJJC), CJCCJJJJ)):CJCCCCJ = CJJCJJCC(CJCCCCJ, CJCJCCCC):CJCCCCJ = CJJCJCJJ(CJCCCCJ, CJCCCCC):End Sub:Private Sub md5_HH(CJCCCCJ, CJCCCCC, CCJJJJJ, CJJJCJC, CJCCJJC, CJCJCCCC, CJCCJJJJ):CJCCCCJ = CJJCJCJJ(CJCCCCJ, CJJCJCJJ(CJJCJCJJ(CJJCJCCC(CJCCCCC, CCJJJJJ, CJJJCJC), CJCCJJC), CJCCJJJJ)):CJCCCCJ = CJJCJJCC(CJCCCCJ, CJCJCCCC):CJCCCCJ = CJJCJCJJ(CJCCCCJ, CJCCCCC):End Sub:Private Sub md5_II(CJCCCCJ, CJCCCCC, CCJJJJJ, CJJJCJC, CJCCJJC, CJCJCCCC, CJCCJJJJ):CJCCCCJ = CJJCJCJJ(CJCCCCJ, CJJCJCJJ(CJJCJCJJ(CJJCCJJJ(CJCCCCC, CCJJJJJ, CJJJCJC), CJCCJJC), CJCCJJJJ)):CJCCCCJ = CJJCJJCC(CJCCCCJ, CJCJCCCC):CJCCCCJ = CJJCJCJJ(CJCCCCJ, CJCCCCC):End Sub:Private Function CJJCCJJC(CJCCJJJC):Dim CJCJJJC:Dim CJCJJCJ:Dim CJCJJCC():Dim CJCJCJJ:Dim CJCJCJC:Dim CJCJCCJ:Const CCCJJJJ =512:Const CCCJJJC =448:CJCJJJC = Len(CJCCJJJC):CJCJJCJ = (((CJCJJJC + ((CCCJJJJ - CCCJJJC) \ CCJCCJC)) \ (CCCJJJJ \ CCJCCJC)) + 1) * (CCCJJJJ \ CCJCCCC):ReDim CJCJJCC(CJCJJCJ - 1):CJCJCJJ = 0:CJCJCJC = 0:Do Until CJCJCJC >= CJCJJJC:CJCJCCJ = CJCJCJC \ CCJCCCJ:CJCJCJJ = (CJCJCJC Mod CCJCCCJ) * CCJCCJC:CJCJJCC(CJCJCCJ) = CJCJJCC(CJCJCCJ) Or CJJCJJJC(Asc(Mid(CJCCJJJC, CJCJCJC + 1, 1)), CJCJCJJ):CJCJCJC = CJCJCJC + 1:Loop:CJCJCCJ = CJCJCJC \ CCJCCCJ:CJCJCJJ = (CJCJCJC Mod CCJCCCJ) * CCJCCJC:CJCJJCC(CJCJCCJ) = CJCJJCC(CJCJCCJ) Or CJJCJJJC(&H80, CJCJCJJ):CJCJJCC(CJCJJCJ - 2) = CJJCJJJC(CJCJJJC, 3):CJCJJCC(CJCJJCJ - 1) = CJJCJJCJ(CJCJJJC, 29):CJJCCJJC = CJCJJCC:End Function:Private Function CJJCCJCJ(CJCJCJCJ):Dim CJCJCCC:Dim CJCCJJJ:For CJCCJJJ = 0 To 3:CJCJCCC = CJJCJJCJ(CJCJCJCJ, CJCCJJJ * CCJCCJC) And CJJCJCJ(CCJCCJC - 1):CJJCCJCJ = CJJCCJCJ & Right("0" & Hex(CJCJCCC), 2):Next:End Function:Public Function CJJCCJCC(CJCCJJJC):CJJCJCJ(0) = CLng(1):CJJCJCJ(1) = CLng(3):CJJCJCJ(2) = CLng(7):CJJCJCJ(3) = CLng(15):CJJCJCJ(4) = CLng(31):CJJCJCJ(5) = CLng(63):CJJCJCJ(6) = CLng(127):CJJCJCJ(7) = CLng(255):CJJCJCJ(8) = CLng(511):CJJCJCJ(9) = CLng(1023):CJJCJCJ(10) = CLng(2047):CJJCJCJ(11) = CLng(4095):CJJCJCJ(12) = CLng(8191):CJJCJCJ(13) = CLng(16383):CJJCJCJ(14) = CLng(32767):CJJCJCJ(15) = CLng(65535):CJJCJCJ(16) = CLng(131071):CJJCJCJ(17) = CLng(262143):CJJCJCJ(18) = CLng(524287):CJJCJCJ(19) = CLng(1048575):CJJCJCJ(20) = CLng(2097151):CJJCJCJ(21) = CLng(4194303):CJJCJCJ(22) = CLng(8388607):CJJCJCJ(23) = CLng(16777215):CJJCJCJ(24) = CLng(33554431):CJJCJCJ(25) = CLng(67108863):CJJCJCJ(26) = CLng(134217727):CJJCJCJ(27) = CLng(268435455):CJJCJCJ(28) = CLng(536870911):CJJCJCJ(29) = CLng(1073741823):CJJCJCJ(30) = CLng(2147483647):CJJCJCC(0) = CLng(1):CJJCJCC(1) = CLng(2):CJJCJCC(2) = CLng(4):CJJCJCC(3) = CLng(8):CJJCJCC(4) = CLng(16):CJJCJCC(5) = CLng(32):CJJCJCC(6) = CLng(64):CJJCJCC(7) = CLng(128):CJJCJCC(8) = CLng(256):CJJCJCC(9) = CLng(512):CJJCJCC(10) = CLng(1024):CJJCJCC(11) = CLng(2048):CJJCJCC(12) = CLng(4096):CJJCJCC(13) = CLng(8192):CJJCJCC(14) = CLng(16384):CJJCJCC(15) = CLng(32768):CJJCJCC(16) = CLng(65536):CJJCJCC(17) = CLng(131072):CJJCJCC(18) = CLng(262144):CJJCJCC(19) = CLng(524288):CJJCJCC(20) = CLng(1048576):CJJCJCC(21) = CLng(2097152):CJJCJCC(22) = CLng(4194304):CJJCJCC(23) = CLng(8388608):CJJCJCC(24) = CLng(16777216):CJJCJCC(25) = CLng(33554432):CJJCJCC(26) = CLng(67108864):CJJCJCC(27) = CLng(134217728):CJJCJCC(28) = CLng(268435456):CJJCJCC(29) = CLng(536870912):CJJCJCC(30) = CLng(1073741824):Dim CJCCJJC:Dim CCCJJC:Dim CJCCJCJ:Dim CJCCJCC:Dim CJCCCJJ:Dim CJCCCJC:Dim CJCCCCJ:Dim CJCCCCC:Dim CCJJJJJ:Dim CJJJCJC:Const CCCJJCJ =7:Const CCCJJCC =12:Const CCCJCJJ =17:Const CCCJCJC =22:Const CCCJCCJ =5:Const CCCJCCC =9:Const CCCCJJJ =14:Const CCCCJJC =20:Const CCCCJCJ =4:Const CCCCJCC =11:Const CCCCCJJ =16:Const CCCCCJC =23:Const CCCCCCJ =6:Const CCCCCCC =10:Const CJJJJJJJ =15:Const CJJJJJJC =21:CJCCJJC = CJJCCJJC(CJCCJJJC):CJCCCCJ = &H67452301:CJCCCCC = &HEFCDAB89:CCJJJJJ = &H98BADCFE:CJJJCJC = &H10325476:For CCCJJC = 0 To UBound(CJCCJJC) Step 16:CJCCJCJ = CJCCCCJ:CJCCJCC = CJCCCCC:CJCCCJJ = CCJJJJJ:CJCCCJC = CJJJCJC:md5_FF CJCCCCJ, CJCCCCC, CCJJJJJ, CJJJCJC, CJCCJJC(CCCJJC + 0), CCCJJCJ, &HD76AA478:md5_FF CJJJCJC, CJCCCCJ, CJCCCCC, CCJJJJJ, CJCCJJC(CCCJJC + 1), CCCJJCC, &HE8C7B756:md5_FF CCJJJJJ, CJJJCJC, CJCCCCJ, CJCCCCC, CJCCJJC(CCCJJC + 2), CCCJCJJ, &H242070DB:md5_FF CJCCCCC, CCJJJJJ, CJJJCJC, CJCCCCJ, CJCCJJC(CCCJJC + 3), CCCJCJC, &HC1BDCEEE:md5_FF CJCCCCJ, CJCCCCC, CCJJJJJ, CJJJCJC, CJCCJJC(CCCJJC + 4), CCCJJCJ, &HF57C0FAF:md5_FF CJJJCJC, CJCCCCJ, CJCCCCC, CCJJJJJ, CJCCJJC(CCCJJC + 5), CCCJJCC, &H4787C62A:md5_FF CCJJJJJ, CJJJCJC, CJCCCCJ, CJCCCCC, CJCCJJC(CCCJJC + 6), CCCJCJJ, &HA8304613:md5_FF CJCCCCC, CCJJJJJ, CJJJCJC, CJCCCCJ, CJCCJJC(CCCJJC + 7), CCCJCJC, &HFD469501:md5_FF CJCCCCJ, CJCCCCC, CCJJJJJ, CJJJCJC, CJCCJJC(CCCJJC + 8), CCCJJCJ, &H698098D8:md5_FF CJJJCJC, CJCCCCJ, CJCCCCC, CCJJJJJ, CJCCJJC(CCCJJC + 9), CCCJJCC, &H8B44F7AF:md5_FF CCJJJJJ, CJJJCJC, CJCCCCJ, CJCCCCC, CJCCJJC(CCCJJC + 10), CCCJCJJ, &HFFFF5BB1:md5_FF CJCCCCC, CCJJJJJ, CJJJCJC, CJCCCCJ, CJCCJJC(CCCJJC + 11), CCCJCJC, &H895CD7BE:md5_FF CJCCCCJ, CJCCCCC, CCJJJJJ, CJJJCJC, CJCCJJC(CCCJJC + 12), CCCJJCJ, &H6B901122:md5_FF CJJJCJC, CJCCCCJ, CJCCCCC, CCJJJJJ, CJCCJJC(CCCJJC + 13), CCCJJCC, &HFD987193:md5_FF CCJJJJJ, CJJJCJC, CJCCCCJ, CJCCCCC, CJCCJJC(CCCJJC + 14), CCCJCJJ, &HA679438E:md5_FF CJCCCCC, CCJJJJJ, CJJJCJC, CJCCCCJ, CJCCJJC(CCCJJC + 15), CCCJCJC, &H49B40821:md5_GG CJCCCCJ, CJCCCCC, CCJJJJJ, CJJJCJC, CJCCJJC(CCCJJC + 1), CCCJCCJ, &HF61E2562:md5_GG CJJJCJC, CJCCCCJ, CJCCCCC, CCJJJJJ, CJCCJJC(CCCJJC + 6), CCCJCCC, &HC040B340:md5_GG CCJJJJJ, CJJJCJC, CJCCCCJ, CJCCCCC, CJCCJJC(CCCJJC + 11), CCCCJJJ, &H265E5A51:md5_GG CJCCCCC, CCJJJJJ, CJJJCJC, CJCCCCJ, CJCCJJC(CCCJJC + 0), CCCCJJC, &HE9B6C7AA:md5_GG CJCCCCJ, CJCCCCC, CCJJJJJ, CJJJCJC, CJCCJJC(CCCJJC + 5), CCCJCCJ, &HD62F105D:md5_GG CJJJCJC, CJCCCCJ, CJCCCCC, CCJJJJJ, CJCCJJC(CCCJJC + 10), CCCJCCC, &H2441453:md5_GG CCJJJJJ, CJJJCJC, CJCCCCJ, CJCCCCC, CJCCJJC(CCCJJC + 15), CCCCJJJ, &HD8A1E681:md5_GG CJCCCCC, CCJJJJJ, CJJJCJC, CJCCCCJ, CJCCJJC(CCCJJC + 4), CCCCJJC, &HE7D3FBC8:md5_GG CJCCCCJ, CJCCCCC, CCJJJJJ, CJJJCJC, CJCCJJC(CCCJJC + 9), CCCJCCJ, &H21E1CDE6:md5_GG CJJJCJC, CJCCCCJ, CJCCCCC, CCJJJJJ, CJCCJJC(CCCJJC + 14), CCCJCCC, &HC33707D6:md5_GG CCJJJJJ, CJJJCJC, CJCCCCJ, CJCCCCC, CJCCJJC(CCCJJC + 3), CCCCJJJ, &HF4D50D87:md5_GG CJCCCCC, CCJJJJJ, CJJJCJC, CJCCCCJ, CJCCJJC(CCCJJC + 8), CCCCJJC, &H455A14ED:md5_GG CJCCCCJ, CJCCCCC, CCJJJJJ, CJJJCJC, CJCCJJC(CCCJJC + 13), CCCJCCJ, &HA9E3E905:md5_GG CJJJCJC, CJCCCCJ, CJCCCCC, CCJJJJJ, CJCCJJC(CCCJJC + 2), CCCJCCC, &HFCEFA3F8:md5_GG CCJJJJJ, CJJJCJC, CJCCCCJ, CJCCCCC, CJCCJJC(CCCJJC + 7), CCCCJJJ, &H676F02D9:md5_GG CJCCCCC, CCJJJJJ, CJJJCJC, CJCCCCJ, CJCCJJC(CCCJJC + 12), CCCCJJC, &H8D2A4C8A:md5_HH CJCCCCJ, CJCCCCC, CCJJJJJ, CJJJCJC, CJCCJJC(CCCJJC + 5), CCCCJCJ, &HFFFA3942:md5_HH CJJJCJC, CJCCCCJ, CJCCCCC, CCJJJJJ, CJCCJJC(CCCJJC + 8), CCCCJCC, &H8771F681:md5_HH CCJJJJJ, CJJJCJC, CJCCCCJ, CJCCCCC, CJCCJJC(CCCJJC + 11), CCCCCJJ, &H6D9D6122:md5_HH CJCCCCC, CCJJJJJ, CJJJCJC, CJCCCCJ, CJCCJJC(CCCJJC + 14), CCCCCJC, &HFDE5380C:md5_HH CJCCCCJ, CJCCCCC, CCJJJJJ, CJJJCJC, CJCCJJC(CCCJJC + 1), CCCCJCJ, &HA4BEEA44:md5_HH CJJJCJC, CJCCCCJ, CJCCCCC, CCJJJJJ, CJCCJJC(CCCJJC + 4), CCCCJCC, &H4BDECFA9:md5_HH CCJJJJJ, CJJJCJC, CJCCCCJ, CJCCCCC, CJCCJJC(CCCJJC + 7), CCCCCJJ, &HF6BB4B60:md5_HH CJCCCCC, CCJJJJJ, CJJJCJC, CJCCCCJ, CJCCJJC(CCCJJC + 10), CCCCCJC, &HBEBFBC70:md5_HH CJCCCCJ, CJCCCCC, CCJJJJJ, CJJJCJC, CJCCJJC(CCCJJC + 13), CCCCJCJ, &H289B7EC6:md5_HH CJJJCJC, CJCCCCJ, CJCCCCC, CCJJJJJ, CJCCJJC(CCCJJC + 0), CCCCJCC, &HEAA127FA:md5_HH CCJJJJJ, CJJJCJC, CJCCCCJ, CJCCCCC, CJCCJJC(CCCJJC + 3), CCCCCJJ, &HD4EF3085:md5_HH CJCCCCC, CCJJJJJ, CJJJCJC, CJCCCCJ, CJCCJJC(CCCJJC + 6), CCCCCJC, &H4881D05:md5_HH CJCCCCJ, CJCCCCC, CCJJJJJ, CJJJCJC, CJCCJJC(CCCJJC + 9), CCCCJCJ, &HD9D4D039:md5_HH CJJJCJC, CJCCCCJ, CJCCCCC, CCJJJJJ, CJCCJJC(CCCJJC + 12), CCCCJCC, &HE6DB99E5:md5_HH CCJJJJJ, CJJJCJC, CJCCCCJ, CJCCCCC, CJCCJJC(CCCJJC + 15), CCCCCJJ, &H1FA27CF8:md5_HH CJCCCCC, CCJJJJJ, CJJJCJC, CJCCCCJ, CJCCJJC(CCCJJC + 2), CCCCCJC, &HC4AC5665:md5_II CJCCCCJ, CJCCCCC, CCJJJJJ, CJJJCJC, CJCCJJC(CCCJJC + 0), CCCCCCJ, &HF4292244:md5_II CJJJCJC, CJCCCCJ, CJCCCCC, CCJJJJJ, CJCCJJC(CCCJJC + 7), CCCCCCC, &H432AFF97:md5_II CCJJJJJ, CJJJCJC, CJCCCCJ, CJCCCCC, CJCCJJC(CCCJJC + 14), CJJJJJJJ, &HAB9423A7:md5_II CJCCCCC, CCJJJJJ, CJJJCJC, CJCCCCJ, CJCCJJC(CCCJJC + 5), CJJJJJJC, &HFC93A039:md5_II CJCCCCJ, CJCCCCC, CCJJJJJ, CJJJCJC, CJCCJJC(CCCJJC + 12), CCCCCCJ, &H655B59C3:md5_II CJJJCJC, CJCCCCJ, CJCCCCC, CCJJJJJ, CJCCJJC(CCCJJC + 3), CCCCCCC, &H8F0CCC92:md5_II CCJJJJJ, CJJJCJC, CJCCCCJ, CJCCCCC, CJCCJJC(CCCJJC + 10), CJJJJJJJ, &HFFEFF47D:md5_II CJCCCCC, CCJJJJJ, CJJJCJC, CJCCCCJ, CJCCJJC(CCCJJC + 1), CJJJJJJC, &H85845DD1:md5_II CJCCCCJ, CJCCCCC, CCJJJJJ, CJJJCJC, CJCCJJC(CCCJJC + 8), CCCCCCJ, &H6FA87E4F:md5_II CJJJCJC, CJCCCCJ, CJCCCCC, CCJJJJJ, CJCCJJC(CCCJJC + 15), CCCCCCC, &HFE2CE6E0:md5_II CCJJJJJ, CJJJCJC, CJCCCCJ, CJCCCCC, CJCCJJC(CCCJJC + 6), CJJJJJJJ, &HA3014314:md5_II CJCCCCC, CCJJJJJ, CJJJCJC, CJCCCCJ, CJCCJJC(CCCJJC + 13), CJJJJJJC, &H4E0811A1:md5_II CJCCCCJ, CJCCCCC, CCJJJJJ, CJJJCJC, CJCCJJC(CCCJJC + 4), CCCCCCJ, &HF7537E82:md5_II CJJJCJC, CJCCCCJ, CJCCCCC, CCJJJJJ, CJCCJJC(CCCJJC + 11), CCCCCCC, &HBD3AF235:md5_II CCJJJJJ, CJJJCJC, CJCCCCJ, CJCCCCC, CJCCJJC(CCCJJC + 2), CJJJJJJJ, &H2AD7D2BB:md5_II CJCCCCC, CCJJJJJ, CJJJCJC, CJCCCCJ, CJCCJJC(CCCJJC + 9), CJJJJJJC, &HEB86D391:CJCCCCJ = CJJCJCJJ(CJCCCCJ, CJCCJCJ):CJCCCCC = CJJCJCJJ(CJCCCCC, CJCCJCC):CCJJJJJ = CJJCJCJJ(CCJJJJJ, CJCCCJJ):CJJJCJC = CJJCJCJJ(CJJJCJC, CJCCCJC):Next:CJJCCJCC = LCase(CJJCCJCJ(CJCCCCJ) & CJJCCJCJ(CJCCCCC) & CJJCCJCJ(CCJJJJJ) & CJJCCJCJ(CJJJCJC)):End Function::dim CCJCJC:CCCCC=Request.ServerVariables(CJJCCCJJ("!p%w0x}u~")):if instr(CCCCC,CJJCCCJJ("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CJCJJC and not CCJJJJ then Call RedirectMessage(CJJCCCJJ("????????,????????????????????????,"))
CCJCJC=CJJCCJ
elseif instr(CCCCC,CJJCCCJJ("^>^D49@@=^DEF56?E^"))>0 or instr(CCCCC,CJJCCCJJ("^DEF56?E^"))>0 then
Call CheckLogined:CCJCJC=CJJCCJ
elseif instr(CCCCC,CJJCCCJJ("^D49@@="))>0 then
CCJCJC=Request.QueryString(CJJCCCJJ("D49@@=")):if not CJJJJCJC(CCJCJC) then CCJCJC=Request.QueryString(CJJCCCJJ("F"))
if not CJJJJCJC(CCJCJC) then CCJCJC=Request.QueryString(CJJCCCJJ("D4"))
if not CJJJJCJC(CCJCJC) then Call RedirectMessage(CJJCCCJJ("????????W$49@@=X??@??????????,"))
CCJCJC=csng(CCJCJC)
end if:if CCJCJC=0 then Call RedirectMessage(CJJCCCJJ("????????W$49@@=X????W_X??,"))
Dim CCJJJJC:Call SetConfig:Sub SetConfig():dim CCJCJJ,CJJJJJC:CCCCC=CJJCCCJJ("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") & CCJCJC:set CJJJJJC=CCJCC.execute(CCCCC):if CJJJJJC.eof then Call RedirectMessage(CJJCCCJJ("??W") & CJJJJJ & CJJCCCJJ("X??????????W") & CCJCJC & CJJCCCJJ("X????????,"))
ReDim CCJCJJ(61):CCJCJJ(0)=CJJJJJC(CJJCCCJJ(";:2@H6:")) & "":CCJCJJ(1)=CJJJJJC(CJJCCCJJ("EJA6")):CCJCJJ(2)=CJJJJJC(CJJCCCJJ("D>D")):CCJCJJ(3)=CJJJJJC(CJJCCCJJ("4FDE@>8C@FA")) & "":CCJCJJ(4)=CJJJJJC(CJJCCCJJ("D:5632C0@E96C")) & "":CCJCJJ(5)=IIf(isnull(CJJJJJC(CJJCCCJJ("E6DEC6DF=EG:6H"))),0,CJJJJJC(CJJCCCJJ("E6DEC6DF=EG:6H"))):CCJCJJ(6)=CJJJJJC(CJJCCCJJ("K:IF?E:>6")):CCJCJJ(7)=CJJJJJC(CJJCCCJJ("766")):CCJCJJ(8)=CJJJJJC(CJJCCCJJ("C6E6DE52J")):CCJCJJ(9)=CJJJJJC(CJJCCCJJ("6IA:C652E6")):CCJCJJ(10)=CJJJJJC(CJJCCCJJ("E:E=6")):CCJCJJ(11)=CJJJJJC(CJJCCCJJ(":?EC@")) & "":CCJCJJ(12)=CJJJJJC(CJJCCCJJ("A:4EFC6")) & "":CCJCJJ(13)=CJJJJJC(CJJCCCJJ("72>:=J")):CCJCJJ(14)=CJJJJJC(CJJCCCJJ("4@AJC:89E")) & "":CCJCJJ(15)=IIf(isnull(CJJJJJC(CJJCCCJJ("D6>6DE6C0DE2CE052E6"))),CJJCCCJJ("`h__\`\`"),CJJJJJC(CJJCCCJJ("D6>6DE6C0DE2CE052E6"))):CCJCJJ(16)=IIf(isnull(CJJJJJC(CJJCCCJJ("K:IF?0E:>6D09:89=:89E"))),0,CJJJJJC(CJJCCCJJ("K:IF?0E:>6D09:89=:89E"))):CCJCJJ(17)=CJJJJJC(CJJCCCJJ("4@?E24E")) & "":CCJCJJ(18)=CJJJJJC(CJJCCCJJ("D2?5E23=6")):CCJCJJ(19)=CJJJJJC(CJJCCCJJ("4C:D:D")):CCJCJJ(20)=CJJJJJC(CJJCCCJJ("JJ52E6")):CCJCJJ(21)=CJJJJJC(CJJCCCJJ("BB")):CCJCJJ(22)=CJJJJJC(CJJCCCJJ("JFJF60D>D0EA=")) & "":CCJCJJ(23)=CJJJJJC(CJJCCCJJ("JFJF60E6DE0=3")) & "":CCJCJJ(25)=CJJJJJC(CJJCCCJJ("6IA6CE")):CCJCJJ(26)=CJJJJJC(CJJCCCJJ(">@5:?7@")):CCJCJJ(27)=CJJJJJC(CJJCCCJJ("9@>6A286E@AA:4EFC6")) & "":CCJCJJ(28)=CJJJJJC(CJJCCCJJ("4C:D:D=3")):CCJCJJ(29)=IIf(CJJJJJC(CJJCCCJJ("4C:D:D@=5")),False,True):CCJCJJ(30)=CJJJJJC(CJJCCCJJ("8C@FA8F:52?46")):CCJCJJ(31)=CJJJJJC(CJJCCCJJ("3:@7665324<")):CCJCJJ(32)=CJJJJJC(CJJCCCJJ("<6JDEC")):CCJCJJ(33)=CJJJJJC(CJJCCCJJ("=@8@")) & "":CCJCJJ(34)=CJJJJJC(CJJCCCJJ("K:46")):CCJCJJ(35)=IIf(CJJJJJC(CJJCCCJJ(":D?6H")),True,False):CCJCJJ(36)=121:CCJCJJ(37)=111:CCJCJJ(38)=160:CCJCJJ(39)=CJJJJJC(CJJCCCJJ("8F6DE3@@<")):CCJCJJ(40)=CJJJJJC(CJJCCCJJ("75D")):CCJCJJ(42)=CJJJJJC(CJJCCCJJ("9@>6=@8:?")):CCJCJJ(43)=CJJJJJC(CJJCCCJJ("K:IF?0?6657665324<")):CCJCJJ(44)=CJJJJJC(CJJCCCJJ("K:IF?0E:>6D0=:>:E")):CCJCJJ(45)=CJJJJJC(CJJCCCJJ("4@>A=6E60:?7@")):CCJCJJ(46)=CJJJJJC(CJJCCCJJ("E6DE:?EC@")) & "":CCJCJJ(47)=IIf(isnull(CJJJJJC(CJJCCCJJ("JFJF60367@C60E:>6"))),0,CJJJJJC(CJJCCCJJ("JFJF60367@C60E:>6"))):CCJCJJ(49)=CJJJJJC(CJJCCCJJ("D>D0C646:G6C")):CCJCJJ(50)=CJJJJJC(CJJCCCJJ("D>D0D:8?")) & "":CCJCJJ(52)=CJJJJJC(CJJCCCJJ("JFJF602CC2?86")):CCJCJJ(53)=IIf(isnull(CJJJJJC(CJJCCCJJ("DEF56?E0BF6DE:@?04@F?E"))),0,CJJJJJC(CJJCCCJJ("DEF56?E0BF6DE:@?04@F?E"))):CCJCJJ(54)=CJJJJJC(CJJCCCJJ("9:560=30@FE@7286")):CCJCJJ(55)=CJJJJJC(CJJCCCJJ("JFJF60E6DE052JD")):CCJCJJ(56)=CJJJJJC(CJJCCCJJ("JFJF60H66<0=:>:E")):CCJCJJ(57)=CJJJJJC(CJJCCCJJ("JFJF604964<65")):CCJCJJ(58)=CJJJJJC(CJJCCCJJ("K:IF?0?6657665324<0?6IE")):CCJCJJ(59)=CJJJJJC(CJJCCCJJ("4964<?6HDEF56?E")):CCJCJJ(60)=CJJJJJC(CJJCCCJJ("K:IF?04=@D6052E6")):CJJJJJC.close : set CJJJJJC=nothing:if isNull(CCJCJJ(8)) or CCJCJJ(8)="" then CCJCJJ(8)=0
if isdate(CCJCJJ(9)) then
CCJCJJ(9)=cdate(CCJCJJ(9)):if CCJCJJ(9)<Date then Call RedirectMessage(CJJCCCJJ("????????,????????????????W") & CCJCJJ(9) & CJJCCCJJ("X??????,"))
end if:if not CJJJJCJC(CCJCJJ(20)) then CCJCJJ(20)=7
select case CCJCJJ(1):case 1,2,16:CCJCJJ(36)=159:case 4,5,6,10,11:CCJCJJ(36)=190:CCJCJJ(37)=178:CCJCJJ(38)=191:case 7,13:CCJCJJ(36)=164:CCJCJJ(37)=178:CCJCJJ(38)=179:end select:CCJJJJC=CCJCJJ:End Sub:Function CJJJCJCJ(CJCCJJCJ):dim CCJCJJ(7,1),CCJJCC,CCJJJCJ,CCJJJCC:CCJJJCJ=Array(CJJCCCJJ("$49@@="),CJJCCCJJ("$EF56?E"),CJJCCCJJ("s6AE"),CJJCCCJJ("vC256"),CJJCCCJJ("r=2DD>2E6"),CJJCCCJJ("}F>36C"),CJJCCCJJ("%62496C"),CJJCCCJJ("!2C6?E")):select case CCJJJJC(1):case 1,2 : CCJJJCC=Array(CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????")):case 3,16 : CCJJJCC=Array(CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????")):case 4 : CCJJJCC=Array(CJJCCCJJ("????"),CJJCCCJJ("??????@"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????")):case 5 : CCJJJCC=Array(CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????")):case 6 : CCJJJCC=Array(CJJCCCJJ("????"),CJJCCCJJ("??????@"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("??????"),CJJCCCJJ("????")):case 7 : CCJJJCC=Array(CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("??????"),CJJCCCJJ("????")):case 8 : CCJJJCC=Array(CJJCCCJJ("????"),CJJCCCJJ("??????@"),CJJCCCJJ("????"),CJJCCCJJ("????????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("??????"),CJJCCCJJ("????")):case 9 : CCJJJCC=Array(CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("??????"),CJJCCCJJ("????")):case 10 : CCJJJCC=Array(CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("??????"),CJJCCCJJ("????")):case 11 : CCJJJCC=Array(CJJCCCJJ("????"),CJJCCCJJ("??????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("??????"),CJJCCCJJ("????")):case 12 : CCJJJCC=Array(CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("??????"),CJJCCCJJ("????")):case 13 : CCJJJCC=Array(CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????")):case 14 : CCJJJCC=Array(CJJCCCJJ("??????"),CJJCCCJJ("??@??"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("??????"),CJJCCCJJ("????")):case 15 : CCJJJCC=Array(CJJCCCJJ("????"),CJJCCCJJ("????????"),CJJCCCJJ("????"),CJJCCCJJ("????????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("??????"),CJJCCCJJ("????")):case else : CCJJJCC=CCJJJCJ
end select:for CCJJCC=0 to Ubound(CCJCJJ):CCJCJJ(CCJJCC,0)=CCJJJCJ(CCJJCC):CCJCJJ(CCJJCC,1)=CCJJJCC(CCJJCC):next:for CCJJCC=0 to Ubound(CCJCJJ):if CCJCJJ(CCJJCC,0)=CJCCJJCJ then
CJJJCJCJ=CCJCJJ(CCJJCC,1):exit for
end if:next:End Function::Call CheckRight(62):If Request.ServerVariables(CJJCCCJJ("#t""&t$%0|t%w~s"))=CJJCCCJJ("!~$%") then
Call CheckValidPost:dim CCJJCJJ:CCJJCJJ=CJJJJJCC(Request.Form(CJJCCCJJ("FD6C?2>6"))):if CCJJCJJ="" then
CCJJCJJ=CJJCCCJJ("?F==")
elseif isnumeric(CCJJCJJ) then
Call RedirectMessage(CJJCCCJJ(",") & CCJJCJJ & CJJCCCJJ(".??????????????????????,????????????????,??????,????????????????,"))
elseif not CJJCJJJJ(CCJJCJJ,CJJCCCJJ("/-HL`[acNS")) then
Call RedirectMessage(CJJCCCJJ("????????????????????????????,??????????????,"))
else
CCJJCJJ=CJJCCCJJ("V") & CCJJCJJ & CJJCCCJJ("V")
end if:if CCJJCJJ<>CJJCCCJJ("?F==") then
set CCCJC=CCCJJ.execute(CJJCCCJJ("D6=64E ,E@A ,` ,:5 ,7C@> ,>6>36C ,H96C6 ,FD6C?2>6l") & CCJJCJJ):if not CCCJC.eof then Call RedirectMessage(CJJCCCJJ("??????????^????????????????,????????????,"))
end if:dim CCJJCJC,CCJJCCJ:CCJJCCJ=Request.Form(CJJCCCJJ("25>:?EJA6")):if CJJJJCJC(CCJJCCJ) then
set CCCJC=CCJCC.execute(CJJCCCJJ("D6=64E ,E@A ,` ,,C:89E. ,7C@> ,D49@@=025>:?0EJA6 ,H96C6 ,:5l") & CCJJCCJ):CCJJCJC=CJJCCCJJ("V") & CCCJC(0) & CJJCCCJJ("V")
else
CCJJCCJ=CJJCCCJJ("}F=="):CCJJCJC=CJJCCCJJ("}F==")
end if:dim CCJJCCC,CCJCJJJ,CCJCJJC:CCJJCCC=CJJJJCCJ:CCJCJJJ=Request.Form(CJJCCCJJ("56AE")):CCJCJJC=CJJJJJCC(Request.Form(CJJCCCJJ("A2DDH@C5"))):CCCCC=CJJCCCJJ(":?D6CE ,:?E@ ,>6>36CW:5[FD6C?2>6[A2DDH@C5[C62=?2>6[D6I[3:CE952J[EJA6[8C256[4FDE@>8C@FA[255C6DD[6>2:=[>@3:=6[,DE2E6.[,8C@FA.[:DD49@@=25>:?[:Dr@?DF=E2?E[:D$EF56?E[,C:89E.[D49@@=25>:?EJA6X ,G2=F6DW") & CCJJCCC  & CJJCCCJJ("[") & CCJJCJJ  & CJJCCCJJ("[V") & CJJCCJCC(CCJCJJC) & CJJCCCJJ("V") & CJJCCCJJ("[}V") & CJJJJJCC(Request.Form(CJJCCCJJ("C62=?2>6"))) & CJJCCCJJ("V") & CJJCCCJJ("[") & Request.Form(CJJCCCJJ("D6I")) & CJJCCCJJ("[V") & Request.Form(CJJCCCJJ("3:CE952J")) & CJJCCCJJ("V") & CJJCCCJJ("[") & CCJCJJJ  & CJJCCCJJ("[") & Cint(Request.Form(CJJCCCJJ("8C256"))) & CJJCCCJJ("[") & Cint(Request.Form(CJJCCCJJ("8C@FA"))) & CJJCCCJJ("[V") & CJJJJJCC(Request.Form(CJJCCCJJ("255C6DD"))) & CJJCCCJJ("V") & CJJCCCJJ("[V") & CJJJJJCC(Request.Form(CJJCCCJJ("6>2:="))) & CJJCCCJJ("V") & CJJCCCJJ("[V") & CJJJJJCC(Request.Form(CJJCCCJJ(">@3:=6"))) & CJJCCCJJ("V") & CJJCCCJJ("[d[`[`[`[_") & CJJCCCJJ("[") & CCJJCJC  & CJJCCCJJ("[") & CCJJCCJ  & CJJCCCJJ("X")
CCJCC.Execute CCCCC:Call ConnClose:Response.Write CJJCCCJJ("??????????????,???? ,`_ ,????????,?????? ,]]]"):Call WriteJS(CJJCCCJJ("D6E%:>6@FEW7F?4E:@?WXLH:?5@H]=@42E:@?]C6A=246WV25>:?=:DE]2DAn:5l") & CCJJCCC & CJJCCCJJ("U56AEl") & CCJCJJJ & CJJCCCJJ("U!@DEl`VXN[`____X"))
End if:Response.Write(vbCrLf):Response.Write(CJJCCCJJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJJCCCJJ("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJJCCCJJ("k9625m") & vbCrLf):Response.Write(CJJCCCJJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJJCCCJJ("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJJCCCJJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJJCCCJJ("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CJJCCCJJ("kE:E=6m??????????k^E:E=6m") & vbCrLf):Response.Write(CJJCCCJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CJJCCCJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^49@D6?^49@D6?]>:?]4DDQm") & vbCrLf):Response.Write(CJJCCCJJ("k^9625m") & vbCrLf):Response.Write(CJJCCCJJ("k3@5Jm") & vbCrLf):Response.Write(CJJCCCJJ("kF= ,:5lQE23Qm") & vbCrLf):Response.Write(CJJCCCJJ(" ,k=: ,4=2DDlQ4FCC6?EQmk2 ,9C67lQ25>:?255]2DAQm????????k^2mk^=:m") & vbCrLf):Response.Write(CJJCCCJJ(" ,k=:mk2 ,9C67lQ25>:?:>A@CE]2DAQmtI46=????k^2mk^=:m") & vbCrLf):Response.Write(CJJCCCJJ("k^F=m") & vbCrLf):Response.Write(CJJCCCJJ("k7@C> ,?2>6lQ7@C>`Q ,>6E9@5lQA@DEQ ,24E:@?lQQ ,:5lQ7@C>`Qm") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE23=6 ,H:5E9lQ`__TQ , ,3@C56ClQ_Qm") & vbCrLf):Response.Write(CJJCCCJJ(" ,kECm") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5 ,H:5E9lQ`c_Q ,2=:8?lQC:89EQm????????,k^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5mk:?AFE ,?2>6lQFD6C?2>6Q ,EJA6lQE6IEQ ,:5lQFD6C?2>6Qm??,??????,??????,????????????????,??????????????,????????????,????????????????????,k^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCCCJJ(" ,kECm") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5 ,2=:8?lQC:89EQmk7@?E ,4@=@ClQC65QmYk^7@?Em??????,k^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5mk:?AFE ,?2>6lQC62=?2>6Q ,EJA6lQE6IEQ ,:5lQC62=?2>6Q ,>2I=6?8E9lQ`_Qmk^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCCCJJ(" ,kECm") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5 ,2=:8?lQC:89EQmk7@?E ,4@=@ClQC65QmYk^7@?Em??????,k^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5mk:?AFE ,?2>6lQA2DDH@C5Q ,EJA6lQA2DDH@C5Q ,:5lQA2DDH@C5Q ,2FE@4@>A=6E6lQ@77Qmk^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCCCJJ(" ,kECm") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5 ,2=:8?lQC:89EQmk7@?E ,4@=@ClQC65QmYk^7@?Em??????????,k^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5mk:?AFE ,?2>6lQAH5Q ,EJA6lQA2DDH@C5Q ,:5lQAH5Q ,2FE@4@>A=6E6lQ@77Qmk^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCCCJJ(" ,kECm") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5 ,2=:8?lQC:89EQm??????,k^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5mkD6=64E ,?2>6lQD6IQ ,:5lQD6IQm") & vbCrLf):Response.Write(CJJCCCJJ(" ,k@AE:@? ,G2=F6lQ`Qm??k^@AE:@?m") & vbCrLf):Response.Write(CJJCCCJJ(" ,k@AE:@? ,G2=F6lQ_Qm??k^@AE:@?m") & vbCrLf):Response.Write(CJJCCCJJ(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCCCJJ(" ,kECm") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5 ,2=:8?lQC:89EQm??????,k^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5mk:?AFE ,?2>6lQ3:CE952JQ ,EJA6lQ52E6Q ,G2=F6lQ")):Response.Write  CJJJCCJJ(Date,0):Response.Write(CJJCCCJJ("Qmk^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCCCJJ(" ,kECm") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5 ,2=:8?lQC:89EQm??????????,k^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kD6=64E ,?2>6lQ56AEQ ,C6BF:C65mk^D6=64Em") & vbCrLf):Response.Write(CJJCCCJJ(" ,")):If CCJJJJC(1)>=3 Then
Response.Write CJJCCCJJ("kD6=64E ,?2>6lV8C256Vm")
if CJJCCC=0 then
response.Write CJJCCCJJ("k@AE:@? ,G2=F6lV_Vm,") & CJJJCJCJ(CJJCCCJJ("vC256")) & CJJCCCJJ(".k^@AE:@?m")
response.Write CJJCCCJJ("k@AE:@? ,G2=F6lV_Vm,????.k^@AE:@?m")
Call ShowListSelect(CJJCCCJJ(">6>36C08C256"),CCJCJC,0)
else
response.Write CJJCCCJJ("k@AE:@? ,G2=F6lV") & CJJCCC & CJJCCCJJ("Vm") & CJJJCCCC(CJJCCCJJ(">6>36C08C256"),CCJCJC,CJJCCC) & CJJCCCJJ("k^@AE:@?m")
end if:Response.Write CJJCCCJJ("k^D6=64Em")
end if:If CCJJJJC(3)<>"" Then
Response.Write CJJCCCJJ(" ,kD6=64E ,?2>6lV8C@FAVm")
if CJCCCJ=0 then
Response.Write CJJCCCJJ("k@AE:@? ,G2=F6lV_Vm,") & CCJJJJC(3) & CJJCCCJJ(".k^@AE:@?m")
response.Write CJJCCCJJ("k@AE:@? ,G2=F6lV_Vm,????.k^@AE:@?m")
Call ShowListSelect(CJJCCCJJ(">6>36C04FDE@>8C@FA"),CCJCJC,0)
else
Response.Write CJJCCCJJ("k@AE:@? ,G2=F6lV") & CJCCCJ & CJJCCCJJ("Vm") & CJJJCCCC(CJJCCCJJ(">6>36C04FDE@>8C@FA"),CCJCJC,CJCCCJ) & CJJCCCJJ("k^@AE:@?m")
end if:Response.Write CJJCCCJJ("k^D6=64Em")
End If:Response.Write(vbCrLf):Response.Write(CJJCCCJJ(" ,k^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCCCJJ(" ,kECm") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5 ,2=:8?lQC:89EQm????????^????????,k^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5mk:?AFE ,?2>6lQ255C6DDQ ,EJA6lQE6IEQ ,:5lQ255C6DDQ ,D:K6lQc_Qmk^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCCCJJ(" ,kECm") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5 ,2=:8?lQC:89EQm??????????,k^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5mk:?AFE ,?2>6lQ6>2:=Q ,EJA6lQE6IEQ ,:5lQ6>2:=Q ,D:K6lQc_Qmk^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCCCJJ(" ,kECm") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5 ,2=:8?lQC:89EQmk7@?E ,4@=@ClQC65QmYk^7@?Em??????,k^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5mk:?AFE ,?2>6lQ>@3:=6Q ,EJA6lQE6IEQ ,:5lQ>@3:=6Qmk^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCCCJJ(" ,kECm") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5 ,2=:8?lQC:89EQm??????,k^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kD6=64E ,?2>6lQ25>:?EJA6Q ,:5lQ25>:?EJA6Qm") & vbCrLf):Response.Write(CJJCCCJJ(" ,k@AE:@? ,G2=F6lQQm,??.k^@AE:@?m") & vbCrLf):Response.Write(CJJCCCJJ(" ,")):Call ShowListSelect(CJJCCCJJ("D49@@=025>:?0EJA6"),CJJCCJ,0):Response.Write(vbCrLf):Response.Write(CJJCCCJJ(" ,k^D6=64Em") & vbCrLf):Response.Write(CJJCCCJJ(" ,k^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCCCJJ(" ,kECm") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5 ,4@=DA2?lQaQmU?3DAjk^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCCCJJ(" ,kECm") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5mk^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,k:?AFE ,EJA6lQDF3>:EQ ,G2=F6lQ?? ,??Qm") & vbCrLf):Response.Write(CJJCCCJJ(" ,k2 ,4=2DDlQ3FEE@?Q ,9C67lQ;2G2D4C:AEi9:DE@CJ]324<WXQm?? ,??k^2m") & vbCrLf):Response.Write(CJJCCCJJ(" ,k^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCCCJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCCCJJ("k^7@C>m") & vbCrLf):Response.Write(CJJCCCJJ("k:?AFE ,EJA6lQ9:556?Q ,:5lQ>6>\EJA6Q ,G2=F6lQ")):Response.Write  CJJJCC:Response.Write(CJJCCCJJ("Qm") & vbCrLf):Response.Write(CJJCCCJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCCJJ("kD4C:AE ,DC4lQ^$4C:AED^49@D6?^49@D6?];BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCCJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]G2=:52E6]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCCJJ("kD4C:AE ,DC4lV^$4C:AED^;BF6CJ]D6=64E42496];DVmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCCJJ("kD4C:AEm") & vbCrLf):Response.Write(CJJCCCJJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJJCCCJJ(" ,SWVD6=64E,?2>6lQ8C256Q.[D6=64E,?2>6lQ8C@FAQ.VX]H:5E9W7F?4E:@?W:[HXLC6EFC? ,HZ`aNX]49@D6?WL5:D23=60D62C490E9C6D9@=5i`_[?@0C6DF=ED0E6IEiV??????????????,V[D62C4904@?E2:?DiECF6NX") & vbCrLf):Response.Write(CJJCCCJJ(" ,^^ ,????????") & vbCrLf):Response.Write(CJJCCCJJ(" ,SWVD6=64E,?2>6lQ56AEQ.VX]D6=64E42496WL") & vbCrLf):Response.Write(CJJCCCJJ(" ,FC=iV^56A2CE>6?E^2==49:=5C6?n:5lVZSWVR>6>\EJA6VX]G2=WX[") & vbCrLf):Response.Write(CJJCCCJJ(" ,EC66iECF6") & vbCrLf):Response.Write(CJJCCCJJ(" ,NX") & vbCrLf):Response.Write(CJJCCCJJ(" ,^^ ,????????") & vbCrLf):Response.Write(CJJCCCJJ(" ,SWVR7@C>`VX]G2=:52E6WL") & vbCrLf):Response.Write(CJJCCCJJ(" ,CF=6DiL") & vbCrLf):Response.Write(CJJCCCJJ(" ,FD6C?2>6iL") & vbCrLf):Response.Write(CJJCCCJJ(" ,C6>@E6iV^>6>36C^C68:DE04964<FD6C?2>6]2DAV") & vbCrLf):Response.Write(CJJCCCJJ(" ,N[") & vbCrLf):Response.Write(CJJCCCJJ(" ,A2DDH@C5iVC6BF:C65V[") & vbCrLf):Response.Write(CJJCCCJJ(" ,AH5iL") & vbCrLf):Response.Write(CJJCCCJJ(" ,C6BF:C65iECF6[") & vbCrLf):Response.Write(CJJCCCJJ(" ,6BF2=%@iVRA2DDH@C5V") & vbCrLf):Response.Write(CJJCCCJJ(" ,N[") & vbCrLf):Response.Write(CJJCCCJJ(" ,C62=?2>6iVC6BF:C65V[") & vbCrLf):Response.Write(CJJCCCJJ(" ,>@3:=6iL") & vbCrLf):Response.Write(CJJCCCJJ(" ,C6BF:C65iECF6[") & vbCrLf):Response.Write(CJJCCCJJ(" ,C6>@E6iV^>6>36C^C68:DE04964<>@3:=6]2DAV") & vbCrLf):Response.Write(CJJCCCJJ(" ,N") & vbCrLf):Response.Write(CJJCCCJJ(" ,N[") & vbCrLf):Response.Write(CJJCCCJJ(" ,>6DD286DiL") & vbCrLf):Response.Write(CJJCCCJJ(" ,FD6C?2>6iLC6>@E6iV????????????????????,??????????????????,VN[") & vbCrLf):Response.Write(CJJCCCJJ(" ,>@3:=6iLC6>@E6iV??????????????????,????????????,VN") & vbCrLf):Response.Write(CJJCCCJJ(" ,N") & vbCrLf):Response.Write(CJJCCCJJ(" ,NX") & vbCrLf):Response.Write(CJJCCCJJ("NX") & vbCrLf):Response.Write(CJJCCCJJ("k^D4C:AEm") & vbCrLf):Response.Write(CJJCCCJJ("k^3@5Jm") & vbCrLf):Response.Write(CJJCCCJJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJJJJCCC=nothing:set CJJJCJJJ=nothing:set CJJJCJJC=nothing:set CJJJCJCJ=nothing:CCCCJ.Close:Set CCCCJ=Nothing:CCCJC.Close:Set CCCJC=Nothing:CCJCC.Close:Set CCJCC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJJCCCJJ(ByVal CCJJJJJ)
Dim CCJCJCJ, CCJJCC, CCJCJCC
CCJJJJJ = Replace(CCJJJJJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CCJJCC = 1 To Len(CCJJJJJ)
If CCJJCC <> CCJCJCC Then
CCJCJCJ = AscW(Mid(CCJJJJJ, CCJJCC, 1))
If CCJCJCJ >= 33 And CCJCJCJ <= 79 Then
CJJCCCJJ = CJJCCCJJ & Chr(CCJCJCJ + 47)
ElseIf CCJCJCJ >= 80 And CCJCJCJ <= 126 Then
CJJCCCJJ = CJJCCCJJ & Chr(CCJCJCJ - 47)
Else
CCJCJCC = CCJJCC + 1
If Mid(CCJJJJJ, CCJCJCC, 1) = Chr(64) Then CJJCCCJJ = CJJCCCJJ & ChrW(CCJCJCJ + 5) Else CJJCCCJJ = CJJCCCJJ & Mid(CCJJJJJ, CCJJCC, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de