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

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJCCJJ, CJCCJC,CJCCCJ, CJCCCC, CCJJJJ:Set CJCCJJ = server.CreateObject(CJCCCJCC("ps~sq]r@??64E:@?")):CJCCJJ.open Application(CJCCCJCC("r@??64E:@?$EC:?8")):Set CJCCJC=CJCCJJ::Function CJJCCCJJ(CJCCCCJJ):Dim str,CCJJCJ:str = Trim(CJCCCCJJ):If IsNull(str) Or str = "" Then
CJJCCCJJ = ""
else
str=Replace(str, CJCCCJCC("V"), "")
str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CJCCCJCC("k:7C2>6"), CJCCCJCC("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CJCCCJCC("kD4C:AE"), CJCCCJCC("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CCJJCJ=new RegExp:CCJJCJ.Pattern=CJCCCJCC("@?W,2\K.ZXl"):CCJJCJ.IgnoreCase = True:CCJJCJ.Global=True:str=CCJJCJ.Replace(str,CJCCCJCC("@?S`U6BF2=Dj")):set CCJJCJ=nothing:CJJCCCJJ=str
End If:End Function:Function IIf(CJCCCCJC, CJCCCCCJ, CJCCCCCC):if isnull(CJCCCCJC) or isempty(CJCCCCJC) then
IIf = CJCCCCCC
elseif CJCCCCJC Then
IIf = CJCCCCCJ
Else
IIf = CJCCCCCC
end if:End Function:Const CJJJJCCJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::Sub Debug(str):response.Charset=CJCCCJCC("FE7\g"):dim CCJJCC,CCJCJJ,CCJCJC:if isarray(str) then
on error resume next:CCJJCC=ubound(str,2):CCJCJC=err.number:err.clear:on error goto 0:if CCJCJC<>0 then
for CCJJCC=0 to ubound(str):if CCJJCC>0 then response.Write CJCCCJCC("k3C ,^m")
response.Write CCJJCC & CJCCCJCC("i ,") & str(CCJJCC):next
else
response.Write CJCCCJCC("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CCJJCC=0 to ubound(str,2):response.Write CJCCCJCC("kE9 ,2=:8?lV=67EVm") & CCJJCC & CJCCCJCC("k^E9m")
next:response.Write CJCCCJCC("k^ECm"):for CCJJCC=0 to ubound(str):response.Write CJCCCJCC("kECmkE9m") & CCJJCC & CJCCCJCC("k^E9m"):for CCJCJJ=0 to ubound(str,2):response.Write CJCCCJCC("kE5m") & str(CCJJCC,CCJCJJ) & CJCCCJCC("k^E5m"):next:response.Write CJCCCJCC("k^ECm"):next:response.Write CJCCCJCC("k^E23=6m")
end if
elseif isnull(str) then
response.Write CJCCCJCC(",}F==.")
else
Response.Write replace(str,vbcrlf,CJCCCJCC("k3Cm"))
end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CCJJJJJJ,CCJJJJJC):dim CCJCCJ:CCJCCJ=CCJJJJJJ & CJCCCJCC("l") & CCJJJJJC & CJCCCJCC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJCCCJCC("$6E\r@@<:6"),CCJCCJ):End Sub:::::Sub CheckValidPost():dim CCJCCC:CCJCCC=false:Dim CCCJJJ : CCCJJJ=lcase(Request.ServerVariables(CJCCCJCC("w%%!0#tut#t#"))):if(instr(CCCJJJ,Application(CJCCCJCC("s@>2:?(9:E6{:DE")))>0) then
CCJCCC=true
else
Dim CCCJJC : CCCJJC=lcase(Request.ServerVariables(CJCCCJCC("$t#'t#0}p|t"))):Dim CCCJCJ : CCCJCJ=Request.ServerVariables(CJCCCJCC("{~rp{0pss#")):if Mid(CCCJJJ,8,Len(CCCJJC))=CCCJJC or Mid(CCCJJJ,9,Len(CCCJJC))=CCCJJC or CCCJJC=CCCJCJ then CCJCCC=true
end if:if not CCJCCC then Call RedirectMessage(CJCCCJCC("????????,??????????????????????????,"))
end sub:sub ShowMessage(CCJJJJCJ):response.Charset="utf-8":Response.Write CJCCCJCC("k3Cmk5:G ,2=:8?lV46?E6CVmk5:G ,DEJ=6lV4@=@CiC65j ,7@?E\H6:89Ei3@=5j ,E6IE\2=:8?i46?E6Cj ,3@C56Ci`AI ,D@=:5 ,Rrrrrrrj ,324<8C@F?5\4@=@CiRtgtgtgj ,A255:?8icAI ,aAI ,aAIj ,H:5E9ibd_AIj ,7@?E\D:K6i`aAIVm") & CCJJJJCJ & CJCCCJCC("k^5:Gmk^5:Gmk3Cm")
end sub:Function CJJCCCCJ(CCJCJC):if isnull(CCJCJC) or trim(CCJCJC)="" or not isnumeric(CCJCJC) then
CJJCCCCJ=false
else
Dim CCJJCJ:Set CCJJCJ = New RegExp:CCJJCJ.Pattern = CJCCCJCC("/-5ZS"):CCJJCJ.IgnoreCase = True:CJJCCCCJ = CCJJCJ.test(CCJCJC):set CCJJCJ=nothing
end if:End Function:Function CJJCCCCC(CCJJJJCC):dim CCCJCC,CCCCJJ:CCCJCC=CJCCCJCC("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CCJJJJCC & CJCCCJCC("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CCCCJJ=CJCCJJ.execute(CCCJCC):CJJCCCCC = CCCCJJ(0):if isnull(CJJCCCCC) then CJJCCCCC=1
CCCCJJ.close : set CCCCJJ=nothing:End Function:Function CJCJJJJJ():dim CCCJCC,CCCCJJ,CCCCJC:CCCCJC=10001:CCCJCC=CJCCCJCC("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\WC@H0?F>36CWX@G6CW@C56C ,3J ,:5XZ") & CCCCJC-1 & CJCCCJCC("X ,2D ,5:77 ,7C@> ,>6>36C ,H96C6 ,:5m") & CCCCJC-1 & CJCCCJCC("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CCCCJJ=CJCCJJ.execute(CCCJCC):CJCJJJJJ = CCCCJJ(0):if isnull(CJCJJJJJ) then CJCJJJJJ=CCCCJC
CCCCJJ.close : set CCCCJJ=nothing:End Function:::Sub ConnClose():On Error Resume Next:set CJCCJCJ=nothing:set CJCJJJJC=nothing:set CJCJJJCJ=nothing:set CJCJJJCC=nothing:CCCCJJ.close : set CCCCJJ=nothing:CJCCCC.Close : Set CJCCCC=Nothing:CJCCCJ.Close : Set CJCCCJ=Nothing:CJCJJCJJ.Close : Set CJCJJCJJ = Nothing:CJCCJJ.Close : Set CJCCJJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCJJJJCJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJCCCJCC("!$*0|6DD286"),server.URLEncode(CCJJJJCJ)):Response.Redirect CJCCCJCC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::function CJCJJCJC(str):dim CCJJCC,CCCCCJ,CCJCJC,CCCCCC:if isnull(str) then exit function
str=trim(str):for CCJJCC=1 to len(str):CCCCCJ=mid(str,CCJJCC,1):CCJCJC=AscW(CCCCCJ):if CCJCJC=12288 then
CCCCCJ=chrw(32)
elseif CCJCJC=-29 then
CCCCCJ=chrw(CCJCJC+155)
elseif CCJCJC<0 then
CCCCCJ=chrw(CCJCJC+288)
end if:CCCCCC=CCCCCC & CCCCCJ:next:CJCJJCJC=CCCCCC:end function:::::Function CJCJJCCJ(Table):Dim CCCCJJ, CJJJJJJ, str(), CCJJCC,CCJCJJ,CJJJJJC:CJJJJJC=UCase(Table):If Not IsArray(Application(CJCCCJCC("!$*0") & CJJJJJC)) Then
CCJJJJ=CJCCCJCC("D6=64E ,:5[?2>6[>6>36CEJA6 ,7C@> ,,") & Table & CJCCCJCC(". ,@C56C ,3J ,D@CE[:5"):set CCCCJJ=server.createobject(CJCCCJCC("25@53]C64@C5D6E")):CCCCJJ.open CCJJJJ,CJCCJJ,1:CJJJJJJ = CCCCJJ.RecordCount:ReDim str(CJJJJJJ, 2):If CJJJJJJ > 0 Then
For CCJJCC = 1 To CJJJJJJ:for CCJCJJ=0 to 2:str(CCJJCC, CCJCJJ) = CCCCJJ(CCJCJJ):next:CCCCJJ.MoveNext:Next
End If:CCCCJJ.Close: Set CCCCJJ = Nothing:Application(CJCCCJCC("!$*0") & CJJJJJC) = str
End If:CJCJJCCJ = Application(CJCCCJCC("!$*0") & CJJJJJC):End Function:Sub ShowListSelect(CCJJJJCC,CCJJJCJJ,CCJJJCJC):Dim str, CCJJCC, CJJJJCJ:CJJJJCJ = CJCJJCCJ(CCJJJJCC):For CCJJCC = 1 To UBound(CJJJJCJ):if Cstr(CJJJJCJ(CCJJCC,2))=Cstr(CCJJJCJJ) then
str = str & CJCCCJCC("k@AE:@? ,G2=F6lV") & CJJJJCJ(CCJJCC, 0) & CJCCCJCC("V")
If CStr(CJJJJCJ(CCJJCC, 0)) = CCJJJCJC & "" Then str = str & CJCCCJCC(" ,D6=64E65lVD6=64E65V")
str = str & CJCCCJCC("m") & CJJJJCJ(CCJJCC, 1) & CJCCCJCC("k^@AE:@?m")
end if:Next:Response.Write str:End Sub:Function CJCJJCCC(CCJJJJCC,CCJJJCJJ,CJCJCCJC):Dim str, CCJJCC, CJJJJCJ:CJJJJCJ = CJCJJCCJ(CCJJJJCC):For CCJJCC = 1 To UBound(CJJJJCJ):if Cstr(CJJJJCJ(CCJJCC,2))=Cstr(CCJJJCJJ) and CStr(CJJJJCJ(CCJJCC, 0)) = CJCJCCJC & "" then
str=CJJJJCJ(CCJJCC,1):exit for
end if:Next:if str="" then str=CJCCCJCC(",????.")
CJCJJCCC=str:End Function:::::::::::::::::Sub ClearCache(CCJJJCCJ):Application.Contents.Remove CCJJJCCJ
End Sub::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(CJCCCJCC("!$*|t|qt#"))):if CJCJCJC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJJJJCC>0 then
CCJJJJ=CJCCCJCC("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 & CJCCCJCC("V ,2?5 ,:5l") & CJJJJCC
set CJCCCJ=CJCCJJ.execute(CCJJJJ):If CJCCCJ.EOF Then
Call ClearMemberCookie
Else
CJJJCJC=CJCCCJ(2) & "":CJJJCCJ=CJCCCJ(3):CJJJCCC=CJCCCJ(5):CJJCJJJ=CJCCCJ(6):CJJCJJC=CJCCCJ(9):CJJCJCJ=CJCCCJ(15):CJJCCJJ=CJCCCJ(0):CJCJJCC=CJCCCJ(1):CJCJJCJ=CJCCCJ(11) & "":CJJCCJC=CJCCCJ(10) & "":CJJCJCC=CJCCCJ(12):CJJCCCJ=CJCCCJ(14):CJJCCCC=CJCCCJ(13):CJCJJJJ=CJCCCJ(7) & "":CJCJJJC=CJCCCJ(4):CJCJCJJ=CJCCCJ(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(CJCCCJCC("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJJCJJ)>0 then Call RedirectMessage(CJCCCJCC("????????,????????????????????????????????,"))
Call SetMemberCookie(CJJJJCC,CJJJCJJ)
End IF
end if:Sub CheckRight(CJJJJJJ):dim CCJJCC,CJCJCCJ:if CJJJJCC=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJCCCJCC("??????????????,????????????,"))
elseIf not CJCJCJJJ(CJJJJJJ) then
Call RedirectMessage(CJCCCJCC("????W") & CJJJJJJ & CJCCCJCC("X????????,????????????????????,"))
end if:End Sub:Function CJCJCJJJ(CJJJJJJ):dim CCJJCC,CJCJCCJ:CJCJCCJ=split(CJJJJJJ,CJCCCJCC("[")):CJCJCJJJ=False:for CCJJCC=0 to ubound(CJCJCCJ):If Mid(CJJJCJC,CJCJCCJ(CCJJCC),1)="1" then
CJCJCJJJ=True:exit function
end if:next:End Function:Sub CheckLogined():if CJJJJCC=0 then
Call ClearMemberCookie:Call ConnClose:dim CJCJCCC:CJCJCCC=trim(request.QueryString(CJCCCJCC("D49@@="))):if isnumeric(CJCJCCC) then
response.Redirect CJCCCJCC("^>^G2?E^R^D49@@=^") & CJCJCCC & CJCCCJCC("^DEF56?E^=@8:?nC65:C64El") & url
else
Call RedirectMessage(CJCCCJCC("??????????????,????????????,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CJCCCJCC("!$*|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 CCJCCJ,CJCCJJJ,CCJJCC,CCJCJJ,CJCCJJC:CCJCCJ=split(CJCJCJC,CJCCCJCC("]")):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
CJCCJJJ=CCJCCJ(1):for CCJJCC=1 to len(CJCCJJJ):CCJCJJ=mid(CJCCJJJ,CCJJCC,1):if isnumeric(CCJCJJ) then CJCCJJC=CJCCJJC & CCJCJJ
if len(CJCCJJC)=7 then exit for
next:CJCCJJJ=CCJCCJ(2):if CJCCJJC<>mid(CJCCJJJ,6,7) then
Call ClearMemberCookie
else
CCJCJJ=mid(CJCCJJJ,18,10)/2:if CCJCJJ<DateDiff(CJCCCJCC("D"), CJCCCJCC("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJJJJCC=Clng(CCJCCJ(0)):CJJJCJJ=CCJCCJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJCJCCJC,CCCCCCC):dim CCJJCC,CCJCJJ,CJCCJJC:for CCJJCC=1 to len(CCCCCCC):CCJCJJ=mid(CCCCCCC,CCJJCC,1):if isnumeric(CCJCJJ) then CJCCJJC=CJCCJJC & CCJCJJ
if len(CJCCJJC)=7 then exit for
next:CJCCJJC=CJCJCCJC & CJCCCJCC("]") & CCCCCCC & CJCCCJCC("]") & Fix(10000*(Rnd+1)) & CJCCJJC & Fix(10000*(Rnd+1)) & DateDiff(CJCCCJCC("D"), CJCCCJCC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJCCCJCC("!$*|t|qt#"))=CJCCJJC:End Sub::Class jTree:Private CCJJJJ, CJCCJCJ, CJCCJCC, CJCCCJJ,CJCCCJC,CJCCCCJ,CJCCCCC,CCJJJJJ:Private Sub Class_Initialize():CJCCJCC = 0:CJCCCJJ = 0:CCJJJJJ=10:End Sub:Public Property Let Table(CCJJJCCC):if CCJJJCCC="" then Call RedirectMessage(CJCCCJCC("????????,;%C66????????????????????@??????????,"))
CJCCCJC=CCJJJCCC:CJCCCCJ=CJCCCJCC("!$*0") & UCase(CJCCCJC):Call GetTreeArray:End Property:Public Property Get Table():Table=CJCCCJC:End Property:::Private Sub GetTreeArray():Dim CCJJCC, CCJCJJ, CCJJJJC,RecordCount:CJCCJCJ = Application(CJCCCCJ):If Not IsArray(CJCCJCJ) Then
CCJJJJ = CJCCCJCC("D6=64E ,4@F?EW:5X ,7C@> ,") & CJCCCJC:if CJCCCCC<>"" then CCJJJJ=CCJJJJ & CJCCCJCC(" ,H96C6 ,") & CJCCCCC
set CCJJJJC=CJCCJJ.execute(CCJJJJ):RecordCount=CCJJJJC(0):if RecordCount=0 then Call RedirectMessage(CJCCCJCC("????W") & CJCCCJC & CJCCCJCC("^") & CJCCCCC & CJCCCJCC("X????????????"))
CJCCCJJ=RecordCount+CCJJJJJ:ReDim CJCCJCJ(CJCCCJJ, 4):CCJJJJ = CJCCCJCC("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCCCJC & CJCCCJCC(" ,H:E9 ,W?@=@4<X"):if CJCCCCC<>"" then CCJJJJ=CCJJJJ & CJCCCJCC(" ,H96C6 ,") & CJCCCCC
CCJJJJ=CCJJJJ & CJCCCJCC(" ,@C56C ,3J ,D@CE[:5"):set CCJJJJC=CJCCJJ.execute(CCJJJJ):For CCJJCC = 1 To RecordCount:For CCJCJJ = 0 To 4:CJCCJCJ(CCJJCC, CCJCJJ) = CCJJJJC(CCJCJJ):if IsNull(CJCCJCJ(CCJJCC,4)) then CJCCJCJ(CCJJCC,4)=0
If CJCCJCJ(CCJJCC,2)="" then CJCCJCJ(CCJJCC,2)=CJCCCJCC(",??.")
Next:CCJJJJC.MoveNext:Next:CCJJJJC.Close: Set CCJJJJC = Nothing:for CCJJCC=CJCCCJJ-(CCJJJJJ-1) to CJCCCJJ:CJCCJCJ(CCJJCC,0)=CCJJCC:next:Application.Lock():Application(CJCCCCJ) = CJCCJCJ:Application.UnLock()
else
CJCCCJJ=Ubound(CJCCJCJ)
End If:End Sub:::::Private Function CJCJCJCJ(CJCJCCJC):dim CCJJCC,CCJJJCC:CJCJCJCJ=0:CCJJJCC=CStr(CJCJCCJC):if CCJJJCC<>"0" then
for CCJJCC=1 to CJCCCJJ:If CStr(CJCCJCJ(CCJJCC, 0))=CCJJJCC Then
CJCJCJCJ = CCJJCC:Exit For
End If:Next
end if:End Function::::Public Function CJCJCJCC(CJCJCCJC):Dim CCJJCC,CCJJCJJ:CCJJCC=CJCJCJCJ(CJCJCCJC):if CCJJCC=0 then
CCJJCJJ=CJCJCCJJ(CJCJCCJC)
else
CCJJCJJ=CJCCJCJ(CCJJCC,3):if isnull(CCJJCJJ) or CCJJCJJ="" then
CCJJCJJ=CJCJCCJJ(CJCJCCJC)
elseif Mid(CCJJCJJ,instrrev(CCJJCJJ,CJCCCJCC("["))+1)<>CStr(CJCJCCJC) then
CCJJCJJ=CJCJCCJJ(CJCJCCJC)
elseif Left(CCJJCJJ,1)=CJCCCJCC("[") then
CCJJCJJ=CJCJCCJJ(CJCJCCJC)
end if
end if:CJCJCJCC=CCJJCJJ:End Function:Private Function CJCJCCJJ(CJCJCCJC):dim CCJJJCC:CCJJJCC=CStr(CJCJCCJC):if CCJJJCC="0" then
CJCJCCJJ=""
else
dim CCJJJJC:set CCJJJJC=CJCCJJ.execute(CJCCCJCC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCCCJC & CJCCCJCC(" ,H96C6 ,:5l") & CJCJCCJC):if CCJJJJC.eof then
Call UpdateCache(CJCJCCJC,"","","",""):Call RedirectMessage(CJCCCJCC("??????,xs??,") & CJCJCCJC & CJCCCJCC("??,????????,????????????????????,"))
else
if CCJJJJC(0)=0 then
CJCJCCJJ="0," & CJCJCCJC
else
CJCJCCJJ=CJCJCJCC(CCJJJJC(0)) & CJCCCJCC("[") & CJCJCCJC
end if:if CCJJJJC(2)<>CJCJCCJJ then
CJCCJJ.execute CJCCCJCC("FA52E6 ,") & CJCCCJC & CJCCCJCC(" ,D6E ,A2E9lV") & CJCJCCJJ & CJCCCJCC("V ,H96C6 ,:5l") & CJCJCCJC
else
CJCJCCJJ=CCJJJJC(2)
end if
end if:Call UpdateCache(CJCJCCJC,CCJJJJC(0),CCJJJJC(1),CJCJCCJJ,CCJJJJC(3)):CCJJJJC.Close: Set CCJJJJC = Nothing
end if:End Function::::::::::::::::::::::Public Sub ClearCache():Application.Contents.Remove CJCCCCJ
End Sub:Public Sub UpdateCache(CJCJCCJC,CCJJCJJJ,CCJJCJJC,CCJJCJJ,CCJJCJCJ):dim CCJJCC,CCJCJJ:CJCJCCJC=CLng(CJCJCCJC):CCJJCC=CJCJCJCJ(CJCJCCJC):if CCJJCJJJ="" and CCJJCJJC="" and CCJJCJJ="" and CCJJCJCJ="" then
if CCJJCC>0 then
for CCJCJJ=1 to 4:CJCCJCJ(CCJJCC,CCJCJJ)=Null:next
end if
else
if CCJJCC=0 then
for CCJCJJ=1 to CJCCCJJ:if CJCCJCJ(CCJCJJ,1) & ""="" then
CCJJCC=CCJCJJ:exit for
end if:next
end if:if CCJJCC=0 then
Call ClearCache
else
CJCCJCJ(CCJJCC,0)=CLng(CJCJCCJC):if CCJJCJJJ<>"" then CJCCJCJ(CCJJCC,1)=CLng(CCJJCJJJ)
if CCJJCJJC<>"" then CJCCJCJ(CCJJCC,2)=CCJJCJJC
if CCJJCJJ<>"" then CJCCJCJ(CCJJCC,3)=CCJJCJJ
if CCJJCJCJ<>"" then CJCCJCJ(CCJJCC,4)=CLng(CCJJCJCJ)
end if
end if:if CCJJCC>0 then
Application.Lock():Application(CJCCCCJ) = CJCCJCJ:Application.UnLock()
end if:End Sub:Private Sub Debug(CCJJJJCJ):Call ConnClose:Response.Write CCJJJJCJ:Response.End:End Sub:Private Function CJJCCCCC():CJJCCCCC=CJCJCCCJ+1:End Function:Private Function CJCJCCCJ():dim CCCCJJ:set CCCCJJ=CJCCJJ.execute(CJCCCJCC("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CJCCCJC & CJCCCJCC(" ,@C56C ,3J ,:5 ,56D4")):CJCJCCCJ=CCCCJJ(0):CCCCJJ.Close: Set CCCCJJ = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Private Const CJJJJCCC =8:Private Const CJJJCJJJ =4:Private Const CJJJCJJC =32:Private CCJJCJC(30):Private CCJJCCJ(30):Private Function CJCJCCCC(CCJJCJCC, CCJJCCJJ):If CCJJCCJJ = 0 Then
CJCJCCCC = CCJJCJCC:Exit Function
ElseIf CCJJCCJJ = 31 Then
If CCJJCJCC And 1 Then
CJCJCCCC = &H80000000
Else
CJCJCCCC = 0
End If:Exit Function
ElseIf CCJJCCJJ < 0 Or CCJJCCJJ > 31 Then
Err.Raise 6
End If:If (CCJJCJCC And CCJJCCJ(31 - CCJJCCJJ)) Then
CJCJCCCC = ((CCJJCJCC And CCJJCJC(31 - (CCJJCCJJ + 1))) * CCJJCCJ(CCJJCCJJ)) Or &H80000000
Else
CJCJCCCC = ((CCJJCJCC And CCJJCJC(31 - CCJJCCJJ)) * CCJJCCJ(CCJJCCJJ))
End If:End Function:Private Function CJCCJJJJ(CCJJCJCC, CCJJCCJJ):If CCJJCCJJ = 0 Then
CJCCJJJJ = CCJJCJCC:Exit Function
ElseIf CCJJCCJJ = 31 Then
If CCJJCJCC And &H80000000 Then
CJCCJJJJ = 1
Else
CJCCJJJJ = 0
End If:Exit Function
ElseIf CCJJCCJJ < 0 Or CCJJCCJJ > 31 Then
Err.Raise 6
End If:CJCCJJJJ = (CCJJCJCC And &H7FFFFFFE) \ CCJJCCJ(CCJJCCJJ):If (CCJJCJCC And &H80000000) Then
CJCCJJJJ = (CJCCJJJJ Or (&H40000000 \ CCJJCCJ(CCJJCCJJ - 1)))
End If:End Function:Private Function CJCCJJJC(CCJJCJCC, CCJJCCJJ):CJCCJJJC = CJCJCCCC(CCJJCJCC, CCJJCCJJ) Or CJCCJJJJ(CCJJCJCC, (32 - CCJJCCJJ)):End Function:Private Function CJCCJJCJ(CCJJCCJC, CCJJCCCJ):Dim CCJJCCC:Dim CCJCJJJ:Dim CCJCJJC:Dim CCJCJCJ:Dim CCJCJCC:CCJCJJC = CCJJCCJC And &H80000000:CCJCJCJ = CCJJCCCJ And &H80000000:CCJJCCC = CCJJCCJC And &H40000000:CCJCJJJ = CCJJCCCJ And &H40000000:CCJCJCC = (CCJJCCJC And &H3FFFFFFF) + (CCJJCCCJ And &H3FFFFFFF):If CCJJCCC And CCJCJJJ Then
CCJCJCC = CCJCJCC Xor &H80000000 Xor CCJCJJC Xor CCJCJCJ
ElseIf CCJJCCC Or CCJCJJJ Then
If CCJCJCC And &H40000000 Then
CCJCJCC = CCJCJCC Xor &HC0000000 Xor CCJCJJC Xor CCJCJCJ
Else
CCJCJCC = CCJCJCC Xor &H40000000 Xor CCJCJJC Xor CCJCJCJ
End If
Else
CCJCJCC = CCJCJCC Xor CCJCJJC Xor CCJCJCJ
End If:CJCCJJCJ = CCJCJCC:End Function:Private Function CJCCJJCC(CCCJCJJ, CCJJCCCC, CCJCJJJJ):CJCCJJCC = (CCCJCJJ And CCJJCCCC) Or ((Not CCCJCJJ) And CCJCJJJJ):End Function:Private Function CJCCJCJJ(CCCJCJJ, CCJJCCCC, CCJCJJJJ):CJCCJCJJ = (CCCJCJJ And CCJCJJJJ) Or (CCJJCCCC And (Not CCJCJJJJ)):End Function:Private Function CJCCJCJC(CCCJCJJ, CCJJCCCC, CCJCJJJJ):CJCCJCJC = (CCCJCJJ Xor CCJJCCCC Xor CCJCJJJJ):End Function:Private Function CJCCJCCJ(CCCJCJJ, CCJJCCCC, CCJCJJJJ):CJCCJCCJ = (CCJJCCCC Xor (CCCJCJJ Or (Not CCJCJJJJ))):End Function:Private Sub md5_FF(CCCCJJC, CCCCJCJ, CCCCCJ, CCCCJCC, CCCJCJJ, CCCCCC, CCJCJJJC):CCCCJJC = CJCCJJCJ(CCCCJJC, CJCCJJCJ(CJCCJJCJ(CJCCJJCC(CCCCJCJ, CCCCCJ, CCCCJCC), CCCJCJJ), CCJCJJJC)):CCCCJJC = CJCCJJJC(CCCCJJC, CCCCCC):CCCCJJC = CJCCJJCJ(CCCCJJC, CCCCJCJ):End Sub:Private Sub md5_GG(CCCCJJC, CCCCJCJ, CCCCCJ, CCCCJCC, CCCJCJJ, CCCCCC, CCJCJJJC):CCCCJJC = CJCCJJCJ(CCCCJJC, CJCCJJCJ(CJCCJJCJ(CJCCJCJJ(CCCCJCJ, CCCCCJ, CCCCJCC), CCCJCJJ), CCJCJJJC)):CCCCJJC = CJCCJJJC(CCCCJJC, CCCCCC):CCCCJJC = CJCCJJCJ(CCCCJJC, CCCCJCJ):End Sub:Private Sub md5_HH(CCCCJJC, CCCCJCJ, CCCCCJ, CCCCJCC, CCCJCJJ, CCCCCC, CCJCJJJC):CCCCJJC = CJCCJJCJ(CCCCJJC, CJCCJJCJ(CJCCJJCJ(CJCCJCJC(CCCCJCJ, CCCCCJ, CCCCJCC), CCCJCJJ), CCJCJJJC)):CCCCJJC = CJCCJJJC(CCCCJJC, CCCCCC):CCCCJJC = CJCCJJCJ(CCCCJJC, CCCCJCJ):End Sub:Private Sub md5_II(CCCCJJC, CCCCJCJ, CCCCCJ, CCCCJCC, CCCJCJJ, CCCCCC, CCJCJJJC):CCCCJJC = CJCCJJCJ(CCCCJJC, CJCCJJCJ(CJCCJJCJ(CJCCJCCJ(CCCCJCJ, CCCCCJ, CCCCJCC), CCCJCJJ), CCJCJJJC)):CCCCJJC = CJCCJJJC(CCCCJJC, CCCCCC):CCCCJJC = CJCCJJCJ(CCCCJJC, CCCCJCJ):End Sub:Private Function CJCCJCCC(CCJCJJCJ):Dim CCJCCJJ:Dim CCJCCJC:Dim CCJCCCJ():Dim CCJCCCC:Dim CCCJJJJ:Dim CCCJJJC:Const CJJJCJCJ =512:Const CJJJCJCC =448:CCJCCJJ = Len(CCJCJJCJ):CCJCCJC = (((CCJCCJJ + ((CJJJCJCJ - CJJJCJCC) \ CJJJJCCC)) \ (CJJJCJCJ \ CJJJJCCC)) + 1) * (CJJJCJCJ \ CJJJCJJC):ReDim CCJCCCJ(CCJCCJC - 1):CCJCCCC = 0:CCCJJJJ = 0:Do Until CCCJJJJ >= CCJCCJJ:CCCJJJC = CCCJJJJ \ CJJJCJJJ:CCJCCCC = (CCCJJJJ Mod CJJJCJJJ) * CJJJJCCC:CCJCCCJ(CCCJJJC) = CCJCCCJ(CCCJJJC) Or CJCJCCCC(Asc(Mid(CCJCJJCJ, CCCJJJJ + 1, 1)), CCJCCCC):CCCJJJJ = CCCJJJJ + 1:Loop:CCCJJJC = CCCJJJJ \ CJJJCJJJ:CCJCCCC = (CCCJJJJ Mod CJJJCJJJ) * CJJJJCCC:CCJCCCJ(CCCJJJC) = CCJCCCJ(CCCJJJC) Or CJCJCCCC(&H80, CCJCCCC):CCJCCCJ(CCJCCJC - 2) = CJCJCCCC(CCJCCJJ, 3):CCJCCCJ(CCJCCJC - 1) = CJCCJJJJ(CCJCCJJ, 29):CJCCJCCC = CCJCCCJ:End Function:Private Function CJCCCJJJ(CCJJCJCC):Dim CCCJJCJ:Dim CCCJJCC:For CCCJJCC = 0 To 3:CCCJJCJ = CJCCJJJJ(CCJJCJCC, CCCJJCC * CJJJJCCC) And CCJJCJC(CJJJJCCC - 1):CJCCCJJJ = CJCCCJJJ & Right("0" & Hex(CCCJJCJ), 2):Next:End Function:Public Function CJCCCJJC(CCJCJJCJ):CCJJCJC(0) = CLng(1):CCJJCJC(1) = CLng(3):CCJJCJC(2) = CLng(7):CCJJCJC(3) = CLng(15):CCJJCJC(4) = CLng(31):CCJJCJC(5) = CLng(63):CCJJCJC(6) = CLng(127):CCJJCJC(7) = CLng(255):CCJJCJC(8) = CLng(511):CCJJCJC(9) = CLng(1023):CCJJCJC(10) = CLng(2047):CCJJCJC(11) = CLng(4095):CCJJCJC(12) = CLng(8191):CCJJCJC(13) = CLng(16383):CCJJCJC(14) = CLng(32767):CCJJCJC(15) = CLng(65535):CCJJCJC(16) = CLng(131071):CCJJCJC(17) = CLng(262143):CCJJCJC(18) = CLng(524287):CCJJCJC(19) = CLng(1048575):CCJJCJC(20) = CLng(2097151):CCJJCJC(21) = CLng(4194303):CCJJCJC(22) = CLng(8388607):CCJJCJC(23) = CLng(16777215):CCJJCJC(24) = CLng(33554431):CCJJCJC(25) = CLng(67108863):CCJJCJC(26) = CLng(134217727):CCJJCJC(27) = CLng(268435455):CCJJCJC(28) = CLng(536870911):CCJJCJC(29) = CLng(1073741823):CCJJCJC(30) = CLng(2147483647):CCJJCCJ(0) = CLng(1):CCJJCCJ(1) = CLng(2):CCJJCCJ(2) = CLng(4):CCJJCCJ(3) = CLng(8):CCJJCCJ(4) = CLng(16):CCJJCCJ(5) = CLng(32):CCJJCCJ(6) = CLng(64):CCJJCCJ(7) = CLng(128):CCJJCCJ(8) = CLng(256):CCJJCCJ(9) = CLng(512):CCJJCCJ(10) = CLng(1024):CCJJCCJ(11) = CLng(2048):CCJJCCJ(12) = CLng(4096):CCJJCCJ(13) = CLng(8192):CCJJCCJ(14) = CLng(16384):CCJJCCJ(15) = CLng(32768):CCJJCCJ(16) = CLng(65536):CCJJCCJ(17) = CLng(131072):CCJJCCJ(18) = CLng(262144):CCJJCCJ(19) = CLng(524288):CCJJCCJ(20) = CLng(1048576):CCJJCCJ(21) = CLng(2097152):CCJJCCJ(22) = CLng(4194304):CCJJCCJ(23) = CLng(8388608):CCJJCCJ(24) = CLng(16777216):CCJJCCJ(25) = CLng(33554432):CCJJCCJ(26) = CLng(67108864):CCJJCCJ(27) = CLng(134217728):CCJJCCJ(28) = CLng(268435456):CCJJCCJ(29) = CLng(536870912):CCJJCCJ(30) = CLng(1073741824):Dim CCCJCJJ:Dim CJCCJJC:Dim CCCJCJC:Dim CCCJCCJ:Dim CCCJCCC:Dim CCCCJJJ:Dim CCCCJJC:Dim CCCCJCJ:Dim CCCCCJ:Dim CCCCJCC:Const CJJJCCJJ =7:Const CJJJCCJC =12:Const CJJJCCCJ =17:Const CJJJCCCC =22:Const CJJCJJJJ =5:Const CJJCJJJC =9:Const CJJCJJCJ =14:Const CJJCJJCC =20:Const CJJCJCJJ =4:Const CJJCJCJC =11:Const CJJCJCCJ =16:Const CJJCJCCC =23:Const CJJCCJJJ =6:Const CJJCCJJC =10:Const CJJCCJCJ =15:Const CJJCCJCC =21:CCCJCJJ = CJCCJCCC(CCJCJJCJ):CCCCJJC = &H67452301:CCCCJCJ = &HEFCDAB89:CCCCCJ = &H98BADCFE:CCCCJCC = &H10325476:For CJCCJJC = 0 To UBound(CCCJCJJ) Step 16:CCCJCJC = CCCCJJC:CCCJCCJ = CCCCJCJ:CCCJCCC = CCCCCJ:CCCCJJJ = CCCCJCC:md5_FF CCCCJJC, CCCCJCJ, CCCCCJ, CCCCJCC, CCCJCJJ(CJCCJJC + 0), CJJJCCJJ, &HD76AA478:md5_FF CCCCJCC, CCCCJJC, CCCCJCJ, CCCCCJ, CCCJCJJ(CJCCJJC + 1), CJJJCCJC, &HE8C7B756:md5_FF CCCCCJ, CCCCJCC, CCCCJJC, CCCCJCJ, CCCJCJJ(CJCCJJC + 2), CJJJCCCJ, &H242070DB:md5_FF CCCCJCJ, CCCCCJ, CCCCJCC, CCCCJJC, CCCJCJJ(CJCCJJC + 3), CJJJCCCC, &HC1BDCEEE:md5_FF CCCCJJC, CCCCJCJ, CCCCCJ, CCCCJCC, CCCJCJJ(CJCCJJC + 4), CJJJCCJJ, &HF57C0FAF:md5_FF CCCCJCC, CCCCJJC, CCCCJCJ, CCCCCJ, CCCJCJJ(CJCCJJC + 5), CJJJCCJC, &H4787C62A:md5_FF CCCCCJ, CCCCJCC, CCCCJJC, CCCCJCJ, CCCJCJJ(CJCCJJC + 6), CJJJCCCJ, &HA8304613:md5_FF CCCCJCJ, CCCCCJ, CCCCJCC, CCCCJJC, CCCJCJJ(CJCCJJC + 7), CJJJCCCC, &HFD469501:md5_FF CCCCJJC, CCCCJCJ, CCCCCJ, CCCCJCC, CCCJCJJ(CJCCJJC + 8), CJJJCCJJ, &H698098D8:md5_FF CCCCJCC, CCCCJJC, CCCCJCJ, CCCCCJ, CCCJCJJ(CJCCJJC + 9), CJJJCCJC, &H8B44F7AF:md5_FF CCCCCJ, CCCCJCC, CCCCJJC, CCCCJCJ, CCCJCJJ(CJCCJJC + 10), CJJJCCCJ, &HFFFF5BB1:md5_FF CCCCJCJ, CCCCCJ, CCCCJCC, CCCCJJC, CCCJCJJ(CJCCJJC + 11), CJJJCCCC, &H895CD7BE:md5_FF CCCCJJC, CCCCJCJ, CCCCCJ, CCCCJCC, CCCJCJJ(CJCCJJC + 12), CJJJCCJJ, &H6B901122:md5_FF CCCCJCC, CCCCJJC, CCCCJCJ, CCCCCJ, CCCJCJJ(CJCCJJC + 13), CJJJCCJC, &HFD987193:md5_FF CCCCCJ, CCCCJCC, CCCCJJC, CCCCJCJ, CCCJCJJ(CJCCJJC + 14), CJJJCCCJ, &HA679438E:md5_FF CCCCJCJ, CCCCCJ, CCCCJCC, CCCCJJC, CCCJCJJ(CJCCJJC + 15), CJJJCCCC, &H49B40821:md5_GG CCCCJJC, CCCCJCJ, CCCCCJ, CCCCJCC, CCCJCJJ(CJCCJJC + 1), CJJCJJJJ, &HF61E2562:md5_GG CCCCJCC, CCCCJJC, CCCCJCJ, CCCCCJ, CCCJCJJ(CJCCJJC + 6), CJJCJJJC, &HC040B340:md5_GG CCCCCJ, CCCCJCC, CCCCJJC, CCCCJCJ, CCCJCJJ(CJCCJJC + 11), CJJCJJCJ, &H265E5A51:md5_GG CCCCJCJ, CCCCCJ, CCCCJCC, CCCCJJC, CCCJCJJ(CJCCJJC + 0), CJJCJJCC, &HE9B6C7AA:md5_GG CCCCJJC, CCCCJCJ, CCCCCJ, CCCCJCC, CCCJCJJ(CJCCJJC + 5), CJJCJJJJ, &HD62F105D:md5_GG CCCCJCC, CCCCJJC, CCCCJCJ, CCCCCJ, CCCJCJJ(CJCCJJC + 10), CJJCJJJC, &H2441453:md5_GG CCCCCJ, CCCCJCC, CCCCJJC, CCCCJCJ, CCCJCJJ(CJCCJJC + 15), CJJCJJCJ, &HD8A1E681:md5_GG CCCCJCJ, CCCCCJ, CCCCJCC, CCCCJJC, CCCJCJJ(CJCCJJC + 4), CJJCJJCC, &HE7D3FBC8:md5_GG CCCCJJC, CCCCJCJ, CCCCCJ, CCCCJCC, CCCJCJJ(CJCCJJC + 9), CJJCJJJJ, &H21E1CDE6:md5_GG CCCCJCC, CCCCJJC, CCCCJCJ, CCCCCJ, CCCJCJJ(CJCCJJC + 14), CJJCJJJC, &HC33707D6:md5_GG CCCCCJ, CCCCJCC, CCCCJJC, CCCCJCJ, CCCJCJJ(CJCCJJC + 3), CJJCJJCJ, &HF4D50D87:md5_GG CCCCJCJ, CCCCCJ, CCCCJCC, CCCCJJC, CCCJCJJ(CJCCJJC + 8), CJJCJJCC, &H455A14ED:md5_GG CCCCJJC, CCCCJCJ, CCCCCJ, CCCCJCC, CCCJCJJ(CJCCJJC + 13), CJJCJJJJ, &HA9E3E905:md5_GG CCCCJCC, CCCCJJC, CCCCJCJ, CCCCCJ, CCCJCJJ(CJCCJJC + 2), CJJCJJJC, &HFCEFA3F8:md5_GG CCCCCJ, CCCCJCC, CCCCJJC, CCCCJCJ, CCCJCJJ(CJCCJJC + 7), CJJCJJCJ, &H676F02D9:md5_GG CCCCJCJ, CCCCCJ, CCCCJCC, CCCCJJC, CCCJCJJ(CJCCJJC + 12), CJJCJJCC, &H8D2A4C8A:md5_HH CCCCJJC, CCCCJCJ, CCCCCJ, CCCCJCC, CCCJCJJ(CJCCJJC + 5), CJJCJCJJ, &HFFFA3942:md5_HH CCCCJCC, CCCCJJC, CCCCJCJ, CCCCCJ, CCCJCJJ(CJCCJJC + 8), CJJCJCJC, &H8771F681:md5_HH CCCCCJ, CCCCJCC, CCCCJJC, CCCCJCJ, CCCJCJJ(CJCCJJC + 11), CJJCJCCJ, &H6D9D6122:md5_HH CCCCJCJ, CCCCCJ, CCCCJCC, CCCCJJC, CCCJCJJ(CJCCJJC + 14), CJJCJCCC, &HFDE5380C:md5_HH CCCCJJC, CCCCJCJ, CCCCCJ, CCCCJCC, CCCJCJJ(CJCCJJC + 1), CJJCJCJJ, &HA4BEEA44:md5_HH CCCCJCC, CCCCJJC, CCCCJCJ, CCCCCJ, CCCJCJJ(CJCCJJC + 4), CJJCJCJC, &H4BDECFA9:md5_HH CCCCCJ, CCCCJCC, CCCCJJC, CCCCJCJ, CCCJCJJ(CJCCJJC + 7), CJJCJCCJ, &HF6BB4B60:md5_HH CCCCJCJ, CCCCCJ, CCCCJCC, CCCCJJC, CCCJCJJ(CJCCJJC + 10), CJJCJCCC, &HBEBFBC70:md5_HH CCCCJJC, CCCCJCJ, CCCCCJ, CCCCJCC, CCCJCJJ(CJCCJJC + 13), CJJCJCJJ, &H289B7EC6:md5_HH CCCCJCC, CCCCJJC, CCCCJCJ, CCCCCJ, CCCJCJJ(CJCCJJC + 0), CJJCJCJC, &HEAA127FA:md5_HH CCCCCJ, CCCCJCC, CCCCJJC, CCCCJCJ, CCCJCJJ(CJCCJJC + 3), CJJCJCCJ, &HD4EF3085:md5_HH CCCCJCJ, CCCCCJ, CCCCJCC, CCCCJJC, CCCJCJJ(CJCCJJC + 6), CJJCJCCC, &H4881D05:md5_HH CCCCJJC, CCCCJCJ, CCCCCJ, CCCCJCC, CCCJCJJ(CJCCJJC + 9), CJJCJCJJ, &HD9D4D039:md5_HH CCCCJCC, CCCCJJC, CCCCJCJ, CCCCCJ, CCCJCJJ(CJCCJJC + 12), CJJCJCJC, &HE6DB99E5:md5_HH CCCCCJ, CCCCJCC, CCCCJJC, CCCCJCJ, CCCJCJJ(CJCCJJC + 15), CJJCJCCJ, &H1FA27CF8:md5_HH CCCCJCJ, CCCCCJ, CCCCJCC, CCCCJJC, CCCJCJJ(CJCCJJC + 2), CJJCJCCC, &HC4AC5665:md5_II CCCCJJC, CCCCJCJ, CCCCCJ, CCCCJCC, CCCJCJJ(CJCCJJC + 0), CJJCCJJJ, &HF4292244:md5_II CCCCJCC, CCCCJJC, CCCCJCJ, CCCCCJ, CCCJCJJ(CJCCJJC + 7), CJJCCJJC, &H432AFF97:md5_II CCCCCJ, CCCCJCC, CCCCJJC, CCCCJCJ, CCCJCJJ(CJCCJJC + 14), CJJCCJCJ, &HAB9423A7:md5_II CCCCJCJ, CCCCCJ, CCCCJCC, CCCCJJC, CCCJCJJ(CJCCJJC + 5), CJJCCJCC, &HFC93A039:md5_II CCCCJJC, CCCCJCJ, CCCCCJ, CCCCJCC, CCCJCJJ(CJCCJJC + 12), CJJCCJJJ, &H655B59C3:md5_II CCCCJCC, CCCCJJC, CCCCJCJ, CCCCCJ, CCCJCJJ(CJCCJJC + 3), CJJCCJJC, &H8F0CCC92:md5_II CCCCCJ, CCCCJCC, CCCCJJC, CCCCJCJ, CCCJCJJ(CJCCJJC + 10), CJJCCJCJ, &HFFEFF47D:md5_II CCCCJCJ, CCCCCJ, CCCCJCC, CCCCJJC, CCCJCJJ(CJCCJJC + 1), CJJCCJCC, &H85845DD1:md5_II CCCCJJC, CCCCJCJ, CCCCCJ, CCCCJCC, CCCJCJJ(CJCCJJC + 8), CJJCCJJJ, &H6FA87E4F:md5_II CCCCJCC, CCCCJJC, CCCCJCJ, CCCCCJ, CCCJCJJ(CJCCJJC + 15), CJJCCJJC, &HFE2CE6E0:md5_II CCCCCJ, CCCCJCC, CCCCJJC, CCCCJCJ, CCCJCJJ(CJCCJJC + 6), CJJCCJCJ, &HA3014314:md5_II CCCCJCJ, CCCCCJ, CCCCJCC, CCCCJJC, CCCJCJJ(CJCCJJC + 13), CJJCCJCC, &H4E0811A1:md5_II CCCCJJC, CCCCJCJ, CCCCCJ, CCCCJCC, CCCJCJJ(CJCCJJC + 4), CJJCCJJJ, &HF7537E82:md5_II CCCCJCC, CCCCJJC, CCCCJCJ, CCCCCJ, CCCJCJJ(CJCCJJC + 11), CJJCCJJC, &HBD3AF235:md5_II CCCCCJ, CCCCJCC, CCCCJJC, CCCCJCJ, CCCJCJJ(CJCCJJC + 2), CJJCCJCJ, &H2AD7D2BB:md5_II CCCCJCJ, CCCCCJ, CCCCJCC, CCCCJJC, CCCJCJJ(CJCCJJC + 9), CJJCCJCC, &HEB86D391:CCCCJJC = CJCCJJCJ(CCCCJJC, CCCJCJC):CCCCJCJ = CJCCJJCJ(CCCCJCJ, CCCJCCJ):CCCCCJ = CJCCJJCJ(CCCCCJ, CCCJCCC):CCCCJCC = CJCCJJCJ(CCCCJCC, CCCCJJJ):Next:CJCCCJJC = LCase(CJCCCJJJ(CCCCJJC) & CJCCCJJJ(CCCCJCJ) & CJCCCJJJ(CCCCCJ) & CJCCCJJJ(CCCCJCC)):End Function::dim CJCJCCC:CCJJJJ=Request.ServerVariables(CJCCCJCC("!p%w0x}u~")):if instr(CCJJJJ,CJCCCJCC("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CJJCCJJ and not CJCJJCC then Call RedirectMessage(CJCCCJCC("????????,????????????????????????,"))
CJCJCCC=CJJCJJC
elseif instr(CCJJJJ,CJCCCJCC("^>^D49@@=^DEF56?E^"))>0 or instr(CCJJJJ,CJCCCJCC("^DEF56?E^"))>0 then
Call CheckLogined:CJCJCCC=CJJCJJC
elseif instr(CCJJJJ,CJCCCJCC("^D49@@="))>0 then
CJCJCCC=Request.QueryString(CJCCCJCC("D49@@=")):if not CJJCCCCJ(CJCJCCC) then CJCJCCC=Request.QueryString(CJCCCJCC("F"))
if not CJJCCCCJ(CJCJCCC) then CJCJCCC=Request.QueryString(CJCCCJCC("D4"))
if not CJJCCCCJ(CJCJCCC) then Call RedirectMessage(CJCCCJCC("????????W$49@@=X??@??????????,"))
CJCJCCC=csng(CJCJCCC)
end if:if CJCJCCC=0 then Call RedirectMessage(CJCCCJCC("????????W$49@@=X????W_X??,"))
Dim CCCCCJJ:Call SetConfig:Sub SetConfig():dim CJCJCCJ,CCCCJJ:CCJJJJ=CJCCCJCC("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") & CJCJCCC:set CCCCJJ=CJCCJJ.execute(CCJJJJ):if CCCCJJ.eof then Call RedirectMessage(CJCCCJCC("??W") & CJJJJCC & CJCCCJCC("X??????????W") & CJCJCCC & CJCCCJCC("X????????,"))
ReDim CJCJCCJ(61):CJCJCCJ(0)=CCCCJJ(CJCCCJCC(";:2@H6:")) & "":CJCJCCJ(1)=CCCCJJ(CJCCCJCC("EJA6")):CJCJCCJ(2)=CCCCJJ(CJCCCJCC("D>D")):CJCJCCJ(3)=CCCCJJ(CJCCCJCC("4FDE@>8C@FA")) & "":CJCJCCJ(4)=CCCCJJ(CJCCCJCC("D:5632C0@E96C")) & "":CJCJCCJ(5)=IIf(isnull(CCCCJJ(CJCCCJCC("E6DEC6DF=EG:6H"))),0,CCCCJJ(CJCCCJCC("E6DEC6DF=EG:6H"))):CJCJCCJ(6)=CCCCJJ(CJCCCJCC("K:IF?E:>6")):CJCJCCJ(7)=CCCCJJ(CJCCCJCC("766")):CJCJCCJ(8)=CCCCJJ(CJCCCJCC("C6E6DE52J")):CJCJCCJ(9)=CCCCJJ(CJCCCJCC("6IA:C652E6")):CJCJCCJ(10)=CCCCJJ(CJCCCJCC("E:E=6")):CJCJCCJ(11)=CCCCJJ(CJCCCJCC(":?EC@")) & "":CJCJCCJ(12)=CCCCJJ(CJCCCJCC("A:4EFC6")) & "":CJCJCCJ(13)=CCCCJJ(CJCCCJCC("72>:=J")):CJCJCCJ(14)=CCCCJJ(CJCCCJCC("4@AJC:89E")) & "":CJCJCCJ(15)=IIf(isnull(CCCCJJ(CJCCCJCC("D6>6DE6C0DE2CE052E6"))),CJCCCJCC("`h__\`\`"),CCCCJJ(CJCCCJCC("D6>6DE6C0DE2CE052E6"))):CJCJCCJ(16)=IIf(isnull(CCCCJJ(CJCCCJCC("K:IF?0E:>6D09:89=:89E"))),0,CCCCJJ(CJCCCJCC("K:IF?0E:>6D09:89=:89E"))):CJCJCCJ(17)=CCCCJJ(CJCCCJCC("4@?E24E")) & "":CJCJCCJ(18)=CCCCJJ(CJCCCJCC("D2?5E23=6")):CJCJCCJ(19)=CCCCJJ(CJCCCJCC("4C:D:D")):CJCJCCJ(20)=CCCCJJ(CJCCCJCC("JJ52E6")):CJCJCCJ(21)=CCCCJJ(CJCCCJCC("BB")):CJCJCCJ(22)=CCCCJJ(CJCCCJCC("JFJF60D>D0EA=")) & "":CJCJCCJ(23)=CCCCJJ(CJCCCJCC("JFJF60E6DE0=3")) & "":CJCJCCJ(25)=CCCCJJ(CJCCCJCC("6IA6CE")):CJCJCCJ(26)=CCCCJJ(CJCCCJCC(">@5:?7@")):CJCJCCJ(27)=CCCCJJ(CJCCCJCC("9@>6A286E@AA:4EFC6")) & "":CJCJCCJ(28)=CCCCJJ(CJCCCJCC("4C:D:D=3")):CJCJCCJ(29)=IIf(CCCCJJ(CJCCCJCC("4C:D:D@=5")),False,True):CJCJCCJ(30)=CCCCJJ(CJCCCJCC("8C@FA8F:52?46")):CJCJCCJ(31)=CCCCJJ(CJCCCJCC("3:@7665324<")):CJCJCCJ(32)=CCCCJJ(CJCCCJCC("<6JDEC")):CJCJCCJ(33)=CCCCJJ(CJCCCJCC("=@8@")) & "":CJCJCCJ(34)=CCCCJJ(CJCCCJCC("K:46")):CJCJCCJ(35)=IIf(CCCCJJ(CJCCCJCC(":D?6H")),True,False):CJCJCCJ(36)=121:CJCJCCJ(37)=111:CJCJCCJ(38)=160:CJCJCCJ(39)=CCCCJJ(CJCCCJCC("8F6DE3@@<")):CJCJCCJ(40)=CCCCJJ(CJCCCJCC("75D")):CJCJCCJ(42)=CCCCJJ(CJCCCJCC("9@>6=@8:?")):CJCJCCJ(43)=CCCCJJ(CJCCCJCC("K:IF?0?6657665324<")):CJCJCCJ(44)=CCCCJJ(CJCCCJCC("K:IF?0E:>6D0=:>:E")):CJCJCCJ(45)=CCCCJJ(CJCCCJCC("4@>A=6E60:?7@")):CJCJCCJ(46)=CCCCJJ(CJCCCJCC("E6DE:?EC@")) & "":CJCJCCJ(47)=IIf(isnull(CCCCJJ(CJCCCJCC("JFJF60367@C60E:>6"))),0,CCCCJJ(CJCCCJCC("JFJF60367@C60E:>6"))):CJCJCCJ(49)=CCCCJJ(CJCCCJCC("D>D0C646:G6C")):CJCJCCJ(50)=CCCCJJ(CJCCCJCC("D>D0D:8?")) & "":CJCJCCJ(52)=CCCCJJ(CJCCCJCC("JFJF602CC2?86")):CJCJCCJ(53)=IIf(isnull(CCCCJJ(CJCCCJCC("DEF56?E0BF6DE:@?04@F?E"))),0,CCCCJJ(CJCCCJCC("DEF56?E0BF6DE:@?04@F?E"))):CJCJCCJ(54)=CCCCJJ(CJCCCJCC("9:560=30@FE@7286")):CJCJCCJ(55)=CCCCJJ(CJCCCJCC("JFJF60E6DE052JD")):CJCJCCJ(56)=CCCCJJ(CJCCCJCC("JFJF60H66<0=:>:E")):CJCJCCJ(57)=CCCCJJ(CJCCCJCC("JFJF604964<65")):CJCJCCJ(58)=CCCCJJ(CJCCCJCC("K:IF?0?6657665324<0?6IE")):CJCJCCJ(59)=CCCCJJ(CJCCCJCC("4964<?6HDEF56?E")):CJCJCCJ(60)=CCCCJJ(CJCCCJCC("K:IF?04=@D6052E6")):CCCCJJ.close : set CCCCJJ=nothing:if isNull(CJCJCCJ(8)) or CJCJCCJ(8)="" then CJCJCCJ(8)=0
if isdate(CJCJCCJ(9)) then
CJCJCCJ(9)=cdate(CJCJCCJ(9)):if CJCJCCJ(9)<Date then Call RedirectMessage(CJCCCJCC("????????,????????????????W") & CJCJCCJ(9) & CJCCCJCC("X??????,"))
end if:if not CJJCCCCJ(CJCJCCJ(20)) then CJCJCCJ(20)=7
select case CJCJCCJ(1):case 1,2,16:CJCJCCJ(36)=159:case 4,5,6,10,11:CJCJCCJ(36)=190:CJCJCCJ(37)=178:CJCJCCJ(38)=191:case 7,13:CJCJCCJ(36)=164:CJCJCCJ(37)=178:CJCJCCJ(38)=179:end select:CCCCCJJ=CJCJCCJ:End Sub:Function CJCJJJCC(CCJCJJCC):dim CJCJCCJ(7,1),CCJJCC,CCCCCJC,CCCCCCJ:CCCCCJC=Array(CJCCCJCC("$49@@="),CJCCCJCC("$EF56?E"),CJCCCJCC("s6AE"),CJCCCJCC("vC256"),CJCCCJCC("r=2DD>2E6"),CJCCCJCC("}F>36C"),CJCCCJCC("%62496C"),CJCCCJCC("!2C6?E")):select case CCCCCJJ(1):case 1,2 : CCCCCCJ=Array(CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????")):case 3,16 : CCCCCCJ=Array(CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????")):case 4 : CCCCCCJ=Array(CJCCCJCC("????"),CJCCCJCC("??????@"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????")):case 5 : CCCCCCJ=Array(CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????")):case 6 : CCCCCCJ=Array(CJCCCJCC("????"),CJCCCJCC("??????@"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("??????"),CJCCCJCC("????")):case 7 : CCCCCCJ=Array(CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("??????"),CJCCCJCC("????")):case 8 : CCCCCCJ=Array(CJCCCJCC("????"),CJCCCJCC("??????@"),CJCCCJCC("????"),CJCCCJCC("????????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("??????"),CJCCCJCC("????")):case 9 : CCCCCCJ=Array(CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("??????"),CJCCCJCC("????")):case 10 : CCCCCCJ=Array(CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("??????"),CJCCCJCC("????")):case 11 : CCCCCCJ=Array(CJCCCJCC("????"),CJCCCJCC("??????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("??????"),CJCCCJCC("????")):case 12 : CCCCCCJ=Array(CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("??????"),CJCCCJCC("????")):case 13 : CCCCCCJ=Array(CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????")):case 14 : CCCCCCJ=Array(CJCCCJCC("??????"),CJCCCJCC("??@??"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("??????"),CJCCCJCC("????")):case 15 : CCCCCCJ=Array(CJCCCJCC("????"),CJCCCJCC("????????"),CJCCCJCC("????"),CJCCCJCC("????????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("??????"),CJCCCJCC("????")):case else : CCCCCCJ=CCCCCJC
end select:for CCJJCC=0 to Ubound(CJCJCCJ):CJCJCCJ(CCJJCC,0)=CCCCCJC(CCJJCC):CJCJCCJ(CCJJCC,1)=CCCCCCJ(CCJJCC):next:for CCJJCC=0 to Ubound(CJCJCCJ):if CJCJCCJ(CCJJCC,0)=CCJCJJCC then
CJCJJJCC=CJCJCCJ(CCJJCC,1):exit for
end if:next:End Function::Call CheckRight(63):If Request.ServerVariables(CJCCCJCC("#t""&t$%0|t%w~s"))=CJCCCJCC("!~$%") then
Call CheckValidPost:dim CJJJJJJ,CCCCCCC:CJJJJJJ=CJCJJCJC(CJJCCCJJ(Request.Form(CJCCCJCC("?F>")))):CCCCCCC=right(CJJJJJJ,6):set CJCCCJ=CJCCJJ.execute(CJCCCJCC("D6=64E ,E@A ,` ,:5 ,7C@> ,G0>6>36C ,H96C6 ,>6>36C0EJA60E@Al") & CJCJCCC & CJCCCJCC(" ,2?5 ,?F>36ClV") & CJJJJJJ & CJCCCJCC("V"))
if not CJCCCJ.eof then
Call RedirectMessage(CJCJJJCC(CJCCCJCC("}F>36C")) & CJCCCJCC("??????????,"))
else
CCJJJJ=CJCCCJCC(":?D6CE ,:?E@ ,>6>36CW:5[?F>36C[A2DDH@C5[EJA6[C62=?2>6[D6I[3:CE952J[255C6DD[6>2:=[>@3:=6[8C256[4FDE@>8C@FA[,DE2E6.[,8C@FA.[:DDEF56?E[2?DH6CX ,G2=F6DW") & CJCJJJJJ  & CJCCCJCC("[V") & CJJJJJJ & CJCCCJCC("V") & CJCCCJCC("[V") & CJCCCJJC(CCCCCCC) & CJCCCJCC("V") & CJCCCJCC("[") & Request.Form(CJCCCJCC("56AE")) & CJCCCJCC("[}V") & CJJCCCJJ(Request.Form(CJCCCJCC("C62=?2>6"))) & CJCCCJCC("V") & CJCCCJCC("[") & Request.Form(CJCCCJCC("D6I")) & CJCCCJCC("[V") & Trim(Request.Form(CJCCCJCC("3:CE952J"))) & CJCCCJCC("V") & CJCCCJCC("[V") & CJJCCCJJ(Request.Form(CJCCCJCC("255C6DD"))) & CJCCCJCC("V") & CJCCCJCC("[V") & CJJCCCJJ(Request.Form(CJCCCJCC("6>2:="))) & CJCCCJCC("V") & CJCCCJCC("[V") & CJJCCCJJ(Request.Form(CJCCCJCC(">@3:=6"))) & CJCCCJCC("V") & CJCCCJCC("[") & Cint(Request.Form(CJCCCJCC("8C256"))) & CJCCCJCC("[") & Cint(Request.Form(CJCCCJCC("8C@FA"))) & CJCCCJCC("[d") & CJCCCJCC("[`") & CJCCCJCC("[`") & CJCCCJCC("[V") & CJCCCJCJ & CJCCCJCC("V") & CJCCCJCC("X")
CJCCJJ.Execute CCJJJJ:Call ShowMessage(CJCJJJCC(CJCCCJCC("$EF56?E")) & CJCCCJCC("??????????????,"))
end if
End if:dim CJCCJCJ:set CJCCJCJ=new jtree:CJCCJCJ.table=CJCCCJCC(">6>36C0EJA6"):Response.Write(vbCrLf):Response.Write(CJCCCJCC("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJCCCJCC("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJCCCJCC("k9625m") & vbCrLf):Response.Write(CJCCCJCC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJCCCJCC("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJCCCJCC("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJCCCJCC("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CJCCCJCC("kE:E=6m????????k^E:E=6m") & vbCrLf):Response.Write(CJCCCJCC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CJCCCJCC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^49@D6?^49@D6?]>:?]4DDQm") & vbCrLf):Response.Write(CJCCCJCC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^52E6A:4<6C^52E6A:4<6C]>:?]4DDQm") & vbCrLf):Response.Write(CJCCCJCC("k^9625m") & vbCrLf):Response.Write(CJCCCJCC("k3@5Jm") & vbCrLf):Response.Write(CJCCCJCC("kF= ,:5lQE23Qm") & vbCrLf):Response.Write(CJCCCJCC(" ,k=:mk2 ,9C67lQDEF56?E255]2DAQm????????k^2mk^=:m") & vbCrLf):Response.Write(CJCCCJCC(" ,")):if CCCCCJJ(7)=3 then
Response.Write(vbCrLf):Response.Write(CJCCCJCC(" ,k=:mk2 ,9C67lQDEF56?E0:>A@CE]2DAQmtI46=????\????k^2mk^=:m") & vbCrLf):Response.Write(CJCCCJCC(" ,k=:mk2 ,9C67lQDEF56?E0:>A@CE056AE08C256]2DAQmtI46=????\????k^2mk^=:m") & vbCrLf):Response.Write(CJCCCJCC(" ,k=:mk2 ,9C67lQDEF56?E0:>A@CE056AE]2DAQmtI46=????\????k^2mk^=:m") & vbCrLf):Response.Write(CJCCCJCC(" ,")):If CCCCCJJ(1)=3 Then
Response.Write(vbCrLf):Response.Write(CJCCCJCC(" ,k=:mk2 ,9C67lQDEF56?EC625]2DAQm??????????k^2mk^=:m") & vbCrLf):Response.Write(CJCCCJCC(" ,"))
End If
End If:Response.Write(vbCrLf):Response.Write(CJCCCJCC(" ,k=: ,4=2DDlQ4FCC6?EQmk2 ,9C67lQDEF56?E255@?6]2DAQm????????k^2mk^=:m") & vbCrLf):Response.Write(CJCCCJCC(" ,")):if CCCCCJJ(7)>=2 then
Response.Write(vbCrLf):Response.Write(CJCCCJCC(" ,k=:mk2 ,9C67lQDEF56?E?6H]2DAQm????????k^2mk^=:m") & vbCrLf):Response.Write(CJCCCJCC(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CJCCCJCC("k^F=m") & vbCrLf):Response.Write(CJCCCJCC("k7@C> ,24E:@?lQQ ,>6E9@5lQA@DEQ ,?2>6lQ7@C>`Q ,:5lQ7@C>`Qm") & vbCrLf):Response.Write(CJCCCJCC(" ,k7:6=5D6Em") & vbCrLf):Response.Write(CJCCCJCC(" ,k=686?5m????????k^=686?5m") & vbCrLf):Response.Write(CJCCCJCC(" ,kE23=6 ,H:5E9lQ`__TQm") & vbCrLf):Response.Write(CJCCCJCC(" ,kECm") & vbCrLf):Response.Write(CJCCCJCC(" ,kE5 ,2=:8?lQC:89EQm")):Response.Write  CJCJJJCC(CJCCCJCC("}F>36C")):Response.Write(CJCCCJCC("??,k^E5m") & vbCrLf):Response.Write(CJCCCJCC(" ,kE5mk:?AFE ,?2>6lQ?F>Q ,EJA6lQE6IEQ ,2FE@4@>A=6E6lQ@77Q ,D:K6lQc_Qmk^E5m") & vbCrLf):Response.Write(CJCCCJCC(" ,kE5 ,2=:8?lQC:89EQm??????,k^E5m") & vbCrLf):Response.Write(CJCCCJCC(" ,kE5mk:?AFE ,?2>6lQC62=?2>6Q ,EJA6lQE6IEQ ,D:K6lQ`dQ ,>2I=6?8E9lQ`_Qmk^E5m") & vbCrLf):Response.Write(CJCCCJCC(" ,k^ECm") & vbCrLf):Response.Write(CJCCCJCC(" ,kECm") & vbCrLf):Response.Write(CJCCCJCC(" ,kE5 ,2=:8?lQC:89EQm??????????,k^E5m") & vbCrLf):Response.Write(CJCCCJCC(" ,kE5mkDA2? ,:5lQADHQm??,??????????????")):Response.Write  CJCJJJCC(CJCCCJCC("}F>36C")):Response.Write(CJCCCJCC("??e????,k^DA2?mk^E5m") & vbCrLf):Response.Write(CJCCCJCC(" ,kE5 ,2=:8?lQC:89EQm??????,k^E5m") & vbCrLf):Response.Write(CJCCCJCC(" ,kE5m") & vbCrLf):Response.Write(CJCCCJCC(" ,kD6=64E ,?2>6lQD6IQm") & vbCrLf):Response.Write(CJCCCJCC(" ,k@AE:@? ,G2=F6lQ`Qm??k^@AE:@?m") & vbCrLf):Response.Write(CJCCCJCC(" ,k@AE:@? ,G2=F6lQ_Qm??k^@AE:@?m") & vbCrLf):Response.Write(CJCCCJCC(" ,k^D6=64Em") & vbCrLf):Response.Write(CJCCCJCC(" ,k^E5m") & vbCrLf):Response.Write(CJCCCJCC(" ,k^ECm") & vbCrLf):Response.Write(CJCCCJCC(" ,kECm") & vbCrLf):Response.Write(CJCCCJCC(" ,kE5 ,2=:8?lQC:89EQm")):Response.Write  CJCJJJCC(CJCCCJCC("s6AE")):Response.Write(CJCCCJCC("??,k^E5m") & vbCrLf):Response.Write(CJCCCJCC(" ,kE5mkD6=64E ,?2>6lQ56AEQmk^D6=64Emk^E5m") & vbCrLf):Response.Write(CJCCCJCC(" ,kE5 ,2=:8?lQC:89EQm")):Response.Write  IIf(CCCCCJJ(3)<>"",CCCCCJJ(3) & CJCCCJCC("??,"),""):Response.Write(CJCCCJCC("k^E5m") & vbCrLf):Response.Write(CJCCCJCC(" ,kE5m")):If CCCCCJJ(3)<>"" Then
Response.Write(vbCrLf):Response.Write(CJCCCJCC(" ,kD6=64E ,?2>6lQ8C@FAQm") & vbCrLf):Response.Write(CJCCCJCC(" ,k@AE:@? ,G2=F6lQ_Qm,??.k^@AE:@?m") & vbCrLf):Response.Write(CJCCCJCC(" ,")):Call ShowListSelect(CJCCCJCC(">6>36C04FDE@>8C@FA"),CJJCJJC,0):Response.Write(vbCrLf):Response.Write(CJCCCJCC(" ,k^D6=64Em") & vbCrLf):Response.Write(CJCCCJCC(" ,"))
End If:Response.Write(CJCCCJCC("k^E5m") & vbCrLf):Response.Write(CJCCCJCC(" ,k^ECm") & vbCrLf):Response.Write(CJCCCJCC(" ,kECm") & vbCrLf):Response.Write(CJCCCJCC(" ,kE5 ,2=:8?lQC:89EQm")):Response.Write  IIf(CCCCCJJ(1)>=3,CJCJJJCC(CJCCCJCC("vC256")) & CJCCCJCC("??,"),""):Response.Write(CJCCCJCC("k^E5m") & vbCrLf):Response.Write(CJCCCJCC(" ,kE5m") & vbCrLf):Response.Write(CJCCCJCC(" ,")):If CCCCCJJ(1)>=3 Then
Response.Write(vbCrLf):Response.Write(CJCCCJCC(" ,kD6=64E ,?2>6lQvC256Qm") & vbCrLf):Response.Write(CJCCCJCC(" ,")):if CJJCJCJ=0 then
response.Write CJCCCJCC("k@AE:@? ,G2=F6lV_Vm,??.k^@AE:@?m")
Call ShowListSelect(CJCCCJCC(">6>36C08C256"),IIf(CCCCCJJ(1)<=2,0,CJCJCCC),0)
else
response.Write CJCCCJCC("k@AE:@? ,G2=F6lV") & CJJCJCJ & CJCCCJCC("Vm") & CJCJJCCC(CJCCCJCC(">6>36C08C256"),CJCJCCC,CJJCJCJ) & CJCCCJCC("k^@AE:@?m")
end if:Response.Write(vbCrLf):Response.Write(CJCCCJCC(" ,k^D6=64Em") & vbCrLf):Response.Write(CJCCCJCC(" ,"))
end if:Response.Write(vbCrLf):Response.Write(CJCCCJCC(" ,k^E5m") & vbCrLf):Response.Write(CJCCCJCC(" ,kE5 ,2=:8?lQC:89EQm??????,k^E5m") & vbCrLf):Response.Write(CJCCCJCC(" ,kE5mk:?AFE ,?2>6lQ3:CE952JQ ,EJA6lQE6IEQ ,4=2DDlQ52E6Q ,G2=F6lQ")):Response.Write  Date:Response.Write(CJCCCJCC("Q ,2FE@4@>A=6E6lQ@77Qmk^E5m") & vbCrLf):Response.Write(CJCCCJCC(" ,k^ECm") & vbCrLf):Response.Write(CJCCCJCC(" ,kECm") & vbCrLf):Response.Write(CJCCCJCC(" ,kE5 ,2=:8?lQC:89EQm????????^????????,k^E5m") & vbCrLf):Response.Write(CJCCCJCC(" ,kE5mk:?AFE ,?2>6lQ255C6DDQ ,EJA6lQE6IEQ ,D:K6lQc_Qmk^E5m") & vbCrLf):Response.Write(CJCCCJCC(" ,kE5 ,2=:8?lQC:89EQm??????,k^E5m") & vbCrLf):Response.Write(CJCCCJCC(" ,kE5mk:?AFE ,?2>6lQ>@3:=6Q ,EJA6lQE6IEQ ,D:K6lQ`dQ ,>2I=6?8E9lQ``Qmk^E5m") & vbCrLf):Response.Write(CJCCCJCC(" ,k^ECm") & vbCrLf):Response.Write(CJCCCJCC(" ,kECm") & vbCrLf):Response.Write(CJCCCJCC(" ,kE5 ,2=:8?lQC:89EQm??????????,k^E5m") & vbCrLf):Response.Write(CJCCCJCC(" ,kE5mk:?AFE ,?2>6lQ6>2:=Q ,EJA6lQE6IEQ ,D:K6lQc_Qmk^E5m") & vbCrLf):Response.Write(CJCCCJCC(" ,kE5 ,2=:8?lQC:89EQmk^E5m") & vbCrLf):Response.Write(CJCCCJCC(" ,kE5mk^E5m") & vbCrLf):Response.Write(CJCCCJCC(" ,k^ECm") & vbCrLf):Response.Write(CJCCCJCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJCCCJCC(" ,k^7:6=5D6Em") & vbCrLf):Response.Write(CJCCCJCC(" ,k7:6=5D6Em") & vbCrLf):Response.Write(CJCCCJCC(" ,k=686?5m????????k^=686?5m") & vbCrLf):Response.Write(CJCCCJCC(" ,")):dim CJJJJJJJ,CCJJCC,CCJCJJ,CJJJJJJC,CJJJJJCJ:set CJCCCJ=CJCCJJ.execute(CJCCCJCC("D6=64E ,:5[BF6DE:@?[2?DH6C[EJA6 ,7C@> ,>6>36C0BF6DE:@? ,H96C6 ,D49@@=l") & CJCJCCC & CJCCCJCC(" ,@C56C ,3J ,D@CE")):CCJJCC=1:CJJJJJJC=0:response.Write CJCCCJCC("kE23=6 ,H:5E9lV`__TVmkECm")
while not CJCCCJ.eof:CJJJJJCJ=CJCCCJ(0):if CJJJJJCJ>CJJJJJJC then CJJJJJJC=CJJJJJCJ
response.Write vbcrlf & CJCCCJCC("kE5m") & CCJJCC & CJCCCJCC("??,") & CJCCCJ(1) & CJCCCJCC("k^E5mkE5m"):select case CJCCCJ(3):case 0:CJJJJJJJ=split(CJCCCJ(2),CJCCCJCC("M")):for CCJCJJ=0 to ubound(CJJJJJJJ):response.Write CJCCCJCC("k=236=mk:?AFE ,EJA6lVC25:@V ,?2>6lVB0") & CJJJJJCJ & CJCCCJCC("V ,G2=F6lV") & CJJJJJJJ(CCJCJJ) & CJCCCJCC("Vm") & CJJJJJJJ(CCJCJJ) & CJCCCJCC("k^=236=m ,")
next:case 1:CJJJJJJJ=split(CJCCCJ(2),CJCCCJCC("M")):for CCJCJJ=0 to ubound(CJJJJJJJ):response.Write CJCCCJCC("k=236=mk:?AFE ,EJA6lV4964<3@IV ,?2>6lVB0") & CJJJJJCJ & CJCCCJCC("V ,G2=F6lV") & CJJJJJJJ(CCJCJJ) & CJCCCJCC("Vm") & CJJJJJJJ(CCJCJJ) & CJCCCJCC("k^=236=m ,")
next:case 2:response.Write CJCCCJCC("k:?AFE ,EJA6lVE6IEV ,4=2DDlVE6IEV ,?2>6lVB0") & CJJJJJCJ & CJCCCJCC("Vm")
case 3:response.Write CJCCCJCC("kE6IE2C62 ,4=2DDlVE6IEV ,?2>6lVB0") & CJJJJJCJ & CJCCCJCC("V ,4@=DlVb_V ,C@HDlV`Vmk^E6IE2C62m")
case 4:CJJJJJJJ=split(CJCCCJ(2),CJCCCJCC("M")):Response.Write CJCCCJCC("kD6=64E ,?2>6lVB0") & CJJJJJCJ & CJCCCJCC("Vm")
for CCJCJJ=0 to ubound(CJJJJJJJ):response.Write CJCCCJCC("k@AE:@? ,G2=F6lV") & CJJJJJJJ(CCJCJJ) & CJCCCJCC("Vm") & CJJJJJJJ(CCJCJJ) & CJCCCJCC("k^@AE:@?m")
next:Response.Write CJCCCJCC("k^D6=64Em"):end select:response.Write CJCCCJCC("k^E5m"):if CCJJCC mod 2=0 then response.Write CJCCCJCC("k^ECmkECm")
CJCCCJ.movenext:CCJJCC=CCJJCC+1:wend:response.Write CJCCCJCC("k^ECmk^E23=6m"):response.Write CJCCCJCC("k:?AFE ,EJA6lV9:556?V ,?2>6lVB?F>V ,G2=F6lV") & CJJJJJJC & CJCCCJCC("Vm")
Response.Write(vbCrLf):Response.Write(CJCCCJCC(" ,k^7:6=5D6Em") & vbCrLf):Response.Write(CJCCCJCC(" ,k3Cm") & vbCrLf):Response.Write(CJCCCJCC(" ,k5:G ,2=:8?lQ46?E6CQm") & vbCrLf):Response.Write(CJCCCJCC(" ,k:?AFE ,EJA6lQDF3>:EQ ,G2=F6lQ?? ,??Qm") & vbCrLf):Response.Write(CJCCCJCC(" ,k:?AFE ,EJA6lQ3FEE@?Q ,@?4=:4<lQ;2G2D4C:AEi7@C>`]$F3>:E]5:D23=65l72=D6Q ,G2=F6lQ?? ,??Qm") & vbCrLf):Response.Write(CJCCCJCC(" ,k^5:Gm") & vbCrLf):Response.Write(CJCCCJCC("k^7@C>m") & vbCrLf)::function CJCCCJCJ():dim CJJJJJJC,CCJJCC,CJJJJJCC,CJJJJCJJ:CJJJJJJC=cint(request.Form(CJCCCJCC("B?F>"))):for CCJJCC=1 to CJJJJJJC:CJJJJJCC=CJJCCCJJ(Request.Form(CJCCCJCC("B0") & CCJJCC)):if CJJJJJCC<>"" then
CJJJJJCC=replace(CJJJJJCC,CJCCCJCC("M"),""):CJJJJJCC=replace(CJJJJJCC,CJCCCJCC(" ,"),""):CJJJJCJJ=CJJJJCJJ & CJCCCJCC("M") & CCJJCC & CJCCCJCC("M") & CJJJJJCC
end if:next:if CJJJJCJJ<>"" then CJJJJCJJ=Mid(CJJJJCJJ,2)
CJCCCJCJ=CJJJJCJJ:end function:Response.Write(vbCrLf):Response.Write(CJCCCJCC("k:?AFE ,EJA6lQ9:556?Q ,:5lQ>6>\EJA6Q ,G2=F6lQ")):Response.Write  CJJJCCJ:Response.Write(CJCCCJCC("Qm") & vbCrLf):Response.Write(CJCCCJCC("k:?AFE ,EJA6lQ9:556?Q ,:5lQD49@@=Q ,G2=F6lQ")):Response.Write  CJCJCCC:Response.Write(CJCCCJCC("Qm") & vbCrLf):Response.Write(CJCCCJCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCCJCC("kD4C:AE ,DC4lQ^$4C:AED^52E6A:4<6C^52E6A:4<6C]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCCJCC("kD4C:AE ,DC4lQ^$4C:AED^52E6A:4<6C^:`g?^52E6A:4<6C]K9\r}]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCCJCC("kD4C:AE ,DC4lQ^$4C:AED^49@D6?^49@D6?];BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCCJCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]G2=:52E6]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCCJCC("kD4C:AE ,DC4lV^$4C:AED^;BF6CJ]D6=64E42496];DVmk^D4C:AEm") & vbCrLf):Response.Write(CJCCCJCC("kD4C:AE ,DC4lQ^$4C:AED^8=@32=];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCCJCC("kD4C:AEm") & vbCrLf):Response.Write(CJCCCJCC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJCCCJCC(" ,SWV:?AFE]52E6VX]52E6A:4<6CWL=2?8F286iVK9\r}V[2FE@w:56iECF6[7@C>2EiVJJJJ\>>\55VNX") & vbCrLf):Response.Write(CJCCCJCC(" ,^^ ,????????") & vbCrLf):Response.Write(CJCCCJCC(" ,SWVD6=64E,?2>6lQ56AEQ.VX]D6=64E42496WL") & vbCrLf):Response.Write(CJCCCJCC(" ,FC=iV^56A2CE>6?E^2==49:=5C6?n:5lVZSWVR>6>\EJA6VX]G2=WX[") & vbCrLf):Response.Write(CJCCCJCC(" ,EC66iECF6") & vbCrLf):Response.Write(CJCCCJCC(" ,NX") & vbCrLf):Response.Write(CJCCCJCC(" ,^^ ,??????????,????????????????????????????????,??????????????????") & vbCrLf):Response.Write(CJCCCJCC(" ,G2C ,ADHE:AlSWVRADHVX]E6IEWX") & vbCrLf):Response.Write(CJCCCJCC(" ,G2C ,x5r2C5'2=:52E6#68 ,l ,^/,`\h.,_\h.LdNW`hMa_X,_\h.LaNWW_`M_bM_dM_fM_gM`_M`aXW_,`\h.M,`\a.,_\h.Mb`XMW_cM_eM_hM``XW_,`\h.M,`\a.,_\h.Mb_XM_aW_,`\h.M,`\a.,_\h.XX,_\h.LbNW,_\h.MIM)XS^") & vbCrLf):Response.Write(CJCCCJCC(" ,SWV:?AFE,?2>6lQ?F>Q.VX]@?WV492?86V[7F?4E:@?WXL") & vbCrLf):Response.Write(CJCCCJCC(" ,G2C ,?F>lSWE9:DX]G2=WX") & vbCrLf):Response.Write(CJCCCJCC(" ,:7W?F>lllVVXLSWVRADHVX]E6IEWADHE:AXN") & vbCrLf):Response.Write(CJCCCJCC(" ,6=D6LSWVRADHVX]E6IEW?F>]DF3DEC:?8W?F>]=6?8E9\eXXN") & vbCrLf):Response.Write(CJCCCJCC(" ,:7W?F>]>2E49Wx5r2C5'2=:52E6#68XXL") & vbCrLf):Response.Write(CJCCCJCC(" ,G2C ,D6I ,l ,?F>]DF3DEC:?8W`e[ ,`fX ,T ,a ,lll ,_ ,n ,_ ,i ,`") & vbCrLf):Response.Write(CJCCCJCC(" ,G2C ,3:CE952J ,l ,?F>]DF3DEC:?8We[ ,`_X ,Z ,V\V ,Z ,?F>]DF3DEC:?8W`_[ ,`aX ,Z ,V\V ,Z ,?F>]DF3DEC:?8W`a[ ,`cX") & vbCrLf):Response.Write(CJCCCJCC(" ,SWVD6=64E,?2>6lQD6IQ.VX]G2=WD6IX") & vbCrLf):Response.Write(CJCCCJCC(" ,SWV:?AFE,?2>6lQ3:CE952JQ.VX]G2=W3:CE952JX]52E6A:4<6CWVFA52E6VX") & vbCrLf):Response.Write(CJCCCJCC(" ,N") & vbCrLf):Response.Write(CJCCCJCC(" ,S]86Ey$~}Wv=@32=]w@DE ,Z ,V^D49@@=^V ,Z ,SWVRD49@@=VX]G2=WX ,Z ,V^?F>36C^6I:DEV[ ,L ,?i ,?F> ,N[ ,7F?4E:@? ,W;D@?X ,L") & vbCrLf):Response.Write(CJCCCJCC(" ,:7 ,W;D@?]4@56 ,lll ,_ ,UU ,;D@?]52E2 ,lll ,`X ,L") & vbCrLf):Response.Write(CJCCCJCC(" ,2=6CEWV????^????????????????????,??????????VX") & vbCrLf):Response.Write(CJCCCJCC(" ,SWV:?AFE,?2>6lQ?F>Q.VX]7@4FDWX") & vbCrLf):Response.Write(CJCCCJCC(" ,N") & vbCrLf):Response.Write(CJCCCJCC(" ,NX") & vbCrLf):Response.Write(CJCCCJCC(" ,NX") & vbCrLf):Response.Write(CJCCCJCC(" ,^^ ,????????") & vbCrLf):Response.Write(CJCCCJCC(" ,SWV7@C>VX]G2=:52E6WL") & vbCrLf):Response.Write(CJCCCJCC(" ,CF=6DiL>@3:=6iLC6>@E6iV^>6>36C^C68:DE04964<>@3:=6]2DAVNN[") & vbCrLf):Response.Write(CJCCCJCC(" ,>6DD286DiL>@3:=6iLC6>@E6iV??????????????????,????????????????VNN") & vbCrLf):Response.Write(CJCCCJCC(" ,NX") & vbCrLf):Response.Write(CJCCCJCC("NX") & vbCrLf):Response.Write(CJCCCJCC("k^D4C:AEm") & vbCrLf):Response.Write(CJCCCJCC("k^3@5Jm") & vbCrLf):Response.Write(CJCCCJCC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJCCJCJ=nothing:set CJCJJJJC=nothing:set CJCJJJCJ=nothing:set CJCJJJCC=nothing:CJCCCC.Close:Set CJCCCC=Nothing:CJCCCJ.Close:Set CJCCCJ=Nothing:CJCCJJ.Close:Set CJCCJJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJCCCJCC(ByVal CCCCCJ)
Dim CJJJJCJC, CCJJCC, CCJCJC
CCCCCJ = Replace(CCCCCJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CCJJCC = 1 To Len(CCCCCJ)
If CCJJCC <> CCJCJC Then
CJJJJCJC = AscW(Mid(CCCCCJ, CCJJCC, 1))
If CJJJJCJC >= 33 And CJJJJCJC <= 79 Then
CJCCCJCC = CJCCCJCC & Chr(CJJJJCJC + 47)
ElseIf CJJJJCJC >= 80 And CJJJJCJC <= 126 Then
CJCCCJCC = CJCCCJCC & Chr(CJJJJCJC - 47)
Else
CCJCJC = CCJJCC + 1
If Mid(CCCCCJ, CCJCJC, 1) = Chr(64) Then CJCCCJCC = CJCCCJCC & ChrW(CJJJJCJC + 5) Else CJCCCJCC = CJCCCJCC & Mid(CCCCCJ, 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