Edit D:\xinhaisoft\crisis_new\student\myinfo.asp

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCCCJC, CCCCCJ,CCCCCC, CJJJJJJ, CJJJJJC:Set CCCCJC = server.CreateObject(CJJCJCJC("ps~sq]r@??64E:@?")):CCCCJC.open Application(CJJCJCJC("r@??64E:@?$EC:?8")):Set CCCCCJ=CCCCJC::Function CJJJJJJJ(CJJCJCCJ):Dim str,CJJJJCC:str = Trim(CJJCJCCJ):If IsNull(str) Or str = "" Then
CJJJJJJJ = ""
else
str=Replace(str, CJJCJCJC("V"), "")
str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CJJCJCJC("k:7C2>6"), CJJCJCJC("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CJJCJCJC("kD4C:AE"), CJJCJCJC("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CJJJJCC=new RegExp:CJJJJCC.Pattern=CJJCJCJC("@?W,2\K.ZXl"):CJJJJCC.IgnoreCase = True:CJJJJCC.Global=True:str=CJJJJCC.Replace(str,CJJCJCJC("@?S`U6BF2=Dj")):set CJJJJCC=nothing:CJJJJJJJ=str
End If:End Function:Function IIf(CJJCJCCC, CJJCCJJJ, CJJCCJJC):if isnull(CJJCJCCC) or isempty(CJJCJCCC) then
IIf = CJJCCJJC
elseif CJJCJCCC Then
IIf = CJJCCJJJ
Else
IIf = CJJCCJJC
end if:End Function:Const CCCCCCC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::Sub Debug(str):response.Charset="utf-8":dim CJJJCJJ,CJJJCJC,CJJJCCJ:if isarray(str) then
on error resume next:CJJJCJJ=ubound(str,2):CJJJCCJ=err.number:err.clear:on error goto 0:if CJJJCCJ<>0 then
for CJJJCJJ=0 to ubound(str):if CJJJCJJ>0 then response.Write CJJCJCJC("k3C ,^m")
response.Write CJJJCJJ & CJJCJCJC("i ,") & str(CJJJCJJ):next
else
response.Write CJJCJCJC("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CJJJCJJ=0 to ubound(str,2):response.Write CJJCJCJC("kE9 ,2=:8?lV=67EVm") & CJJJCJJ & CJJCJCJC("k^E9m")
next:response.Write CJJCJCJC("k^ECm"):for CJJJCJJ=0 to ubound(str):response.Write CJJCJCJC("kECmkE9m") & CJJJCJJ & CJJCJCJC("k^E9m"):for CJJJCJC=0 to ubound(str,2):response.Write CJJCJCJC("kE5m") & str(CJJJCJJ,CJJJCJC) & CJJCJCJC("k^E5m"):next:response.Write CJJCJCJC("k^ECm"):next:response.Write CJJCJCJC("k^E23=6m")
end if
elseif isnull(str) then
response.Write CJJCJCJC(",}F==.")
else
Response.Write replace(str,vbcrlf,CJJCJCJC("k3Cm"))
end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CJJCCJCJ,CJJCCJCC):dim CJJJCCC:CJJJCCC=CJJCCJCJ & CJJCJCJC("l") & CJJCCJCC & CJJCJCJC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJCJCJC("$6E\r@@<:6"),CJJJCCC):End Sub:::::::Function CJJJJJCJ(CJJJCCJ):if isnull(CJJJCCJ) or trim(CJJJCCJ)="" or not isnumeric(CJJJCCJ) then
CJJJJJCJ=false
else
Dim CJJJJCC:Set CJJJJCC = New RegExp:CJJJJCC.Pattern = CJJCJCJC("/-5ZS"):CJJJJCC.IgnoreCase = True:CJJJJJCJ = CJJJJCC.test(CJJJCCJ):set CJJJJCC=nothing
end if:End Function:Function CJJJJJCC(CJJCCCJJ):dim CJJCJJJ,CJJCJJC:CJJCJJJ=CJJCJCJC("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJJCCCJJ & CJJCJCJC("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJJCJJC=CCCCJC.execute(CJJCJJJ):CJJJJJCC = CJJCJJC(0):if isnull(CJJJJJCC) then CJJJJJCC=1
CJJCJJC.close : set CJJCJJC=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CCJCJJJ=nothing:set CJJJJCJJ=nothing:set CJJJJCJC=nothing:set CJJJJCCJ=nothing:CJJCJJC.close : set CJJCJJC=nothing:CJJJJJJ.Close : Set CJJJJJJ=Nothing:CCCCCC.Close : Set CCCCCC=Nothing:CJJJJCCC.Close : Set CJJJJCCC = Nothing:CCCCJC.Close : Set CCCCJC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJCCCJC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJCJCJC("!$*0|6DD286"),server.URLEncode(CJJCCCJC)):Response.Redirect CJJCJCJC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::Function CJJJCJJJ(ByVal CJJJCJJC,style):if not isdate(CJJJCJJC) then
CJJJCJJJ=CJJJCJJC:exit function
end if:dim CJJCJCJ,CJJCJCC,CJJCCJJ,CJJCCJC:CJJJCJJC=cdate(CJJJCJJC):CJJCJCJ=Year(CJJJCJJC):CJJCJCC=Month(CJJJCJJC):CJJCCJJ=Day(CJJJCJJC):select case style:case 0:CJJJCJJJ=CJJCJCJ & CJJCJCJC("\") & right(0 & CJJCJCC,2) & CJJCJCJC("\") & right(0 & CJJCCJJ,2):case 1:CJJJCJJJ=CJJCJCJ & right(0 & CJJCJCC,2) & right(0 & CJJCCJJ,2):case 2:CJJJCJJJ=right(CJJCJCJ,2) & CJJCJCJC("\") & right(0 & CJJCJCC,2) & CJJCJCJC("\") & right(0 & CJJCCJJ,2):case 3:CJJJCJJJ=CJJCJCJ & CJJCJCJC("\") & right(0 & CJJCJCC,2):case 4:CJJJCJJJ=right(0 & CJJCJCC,2) & CJJCJCJC("\") & right(0 & CJJCCJJ,2):case 5:CJJJCJJJ=right(0 & CJJCCJJ,2):case 6:CJJJCJJJ=CJJCJCJ & CJJCJCJC("??") & right(0 & CJJCJCC,2) & CJJCJCJC("??") & right(0 & CJJCCJJ,2) & CJJCJCJC("??"):case else
CJJJCJJJ=CJJJCJJC:end select:End Function:Function CJJJCJCJ(Table):Dim CJJCJJC, CJJCCCJ, str(), CJJJCJJ,CJJJCJC,CJJCCCC:CJJCCCC=UCase(Table):If Not IsArray(Application(CJJCJCJC("!$*0") & CJJCCCC)) Then
CJJJJJC=CJJCJCJC("D6=64E ,:5[?2>6[>6>36CEJA6 ,7C@> ,,") & Table & CJJCJCJC(". ,@C56C ,3J ,D@CE[:5"):set CJJCJJC=server.createobject(CJJCJCJC("25@53]C64@C5D6E")):CJJCJJC.open CJJJJJC,CCCCJC,1:CJJCCCJ = CJJCJJC.RecordCount:ReDim str(CJJCCCJ, 2):If CJJCCCJ > 0 Then
For CJJJCJJ = 1 To CJJCCCJ:for CJJJCJC=0 to 2:str(CJJJCJJ, CJJJCJC) = CJJCJJC(CJJJCJC):next:CJJCJJC.MoveNext:Next
End If:CJJCJJC.Close: Set CJJCJJC = Nothing:Application(CJJCJCJC("!$*0") & CJJCCCC) = str
End If:CJJJCJCJ = Application(CJJCJCJC("!$*0") & CJJCCCC):End Function:Sub ShowListSelect(CJJCCCJJ,CJJCCCCJ,CJJCCCCC):Dim str, CJJJCJJ, CJCJJJJ:CJCJJJJ = CJJJCJCJ(CJJCCCJJ):For CJJJCJJ = 1 To UBound(CJCJJJJ):if Cstr(CJCJJJJ(CJJJCJJ,2))=Cstr(CJJCCCCJ) then
str = str & CJJCJCJC("k@AE:@? ,G2=F6lV") & CJCJJJJ(CJJJCJJ, 0) & CJJCJCJC("V")
If CStr(CJCJJJJ(CJJJCJJ, 0)) = CJJCCCCC & "" Then str = str & CJJCJCJC(" ,D6=64E65lVD6=64E65V")
str = str & CJJCJCJC("m") & CJCJJJJ(CJJJCJJ, 1) & CJJCJCJC("k^@AE:@?m")
end if:Next:Response.Write str:End Sub::::function CJJJCJCC(CCCCJCC,CJJCJJJC):dim CJCJJJC,CJJJCJJ:if isArray(CCCCJCC) then CJCJJJC=CCCCJCC else CJCJJJC=split(CCCCJCC & "",CJJCJCJC("M"))
for CJJJCJJ=0 to ubound(CJCJJJC)-1 step 2:if CJCJJJC(CJJJCJJ)=cstr(CJJCJJJC) then
CJJJCJCC=server.htmlencode(CJCJJJC(CJJJCJJ+1)):exit for
end if:next:end function::::::::::::::Sub ClearCache(CJCJJJJJ):Application.Contents.Remove CJCJJJJJ
End Sub::Dim CJCJJCJ,CJCJJCC,CJCJCJJ,CJCJCJC,CJCJCCJ,CJCJCCC,CJCCJJJ,CJCCJJC,CJCCJCJ:Dim CJCCJCC,CJCCCJJ,CJCCCJC,CJCCCCJ,CJCCCCC,CCJJJJJ:Dim CCJJJJC,CCJJJCJ,CCJJJCC:Dim CCJJCJJ:CCJJCJJ=Trim(Request.Cookies(CJJCJCJC("!$*|t|qt#"))):if CCJJCJJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJCJJCJ>0 then
CJJJJJC=CJJCJCJC("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") & CJCJJCC & CJJCJCJC("V ,2?5 ,:5l") & CJCJJCJ
set CCCCCC=CCCCJC.execute(CJJJJJC):If CCCCCC.EOF Then
Call ClearMemberCookie
Else
CJCJCJJ=CCCCCC(2) & "":CJCJCJC=CCCCCC(3):CJCJCCJ=CCCCCC(5):CJCJCCC=CCCCCC(6):CJCCJJJ=CCCCCC(9):CJCCJJC=CCCCCC(15):CJCCJCC=CCCCCC(0):CCJJJCJ=CCCCCC(1):CCJJJJC=CCCCCC(11) & "":CJCCCJJ=CCCCCC(10) & "":CJCCJCJ=CCCCCC(12):CJCCCJC=CCCCCC(14):CJCCCCJ=CCCCCC(13):CJCCCCC=CCCCCC(7) & "":CCJJJJJ=CCCCCC(4):CCJJJCC=CCCCCC(8):if isnull(CJCCJJC) then CJCCJJC=0
if isnull(CJCCJJJ) or CJCCJJJ=0 then CJCCJJJ=CJCJCJC
if isnull(CCJJJJJ) then CCJJJJJ=0
if isnull(CJCJCCJ) then CJCJCCJ=0
if instr(CJJCJCJC("6`_254bhch32dh2336de6_df7a_7ggb6"),CJCJJCC)>0 then Call RedirectMessage(CJJCJCJC("????????,????????????????????????????????,"))
Call SetMemberCookie(CJCJJCJ,CJCJJCC)
End IF
end if:::Sub CheckLogined():if CJCJJCJ=0 then
Call ClearMemberCookie:Call ConnClose:dim CCJJCJC:CCJJCJC=trim(request.QueryString(CJJCJCJC("D49@@="))):if isnumeric(CCJJCJC) then
response.Redirect CJJCJCJC("^>^G2?E^R^D49@@=^") & CCJJCJC & CJJCJCJC("^DEF56?E^=@8:?nC65:C64El") & url
else
Call RedirectMessage(CJJCJCJC("??????????????,????????????,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CJJCJCJC("!$*|t|qt#"))="":CJCJJCJ=0:CJCJCCC=0:CJCJJCC=Empty:CJCJCCJ=0:CJCCJJC=0:CJCCJJJ=0:CJCJCJC=0:CJCCJCC=False:CCJJJCJ=False:CCJJJCC=Empty:End Sub:Sub CheckMemberCookie():dim CJJJCCC,CCJJCCJ,CJJJCJJ,CJJJCJC,CCJJCCC:CJJJCCC=split(CCJJCJJ,CJJCJCJC("]")):if ubound(CJJJCCC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJJJCCC(0)) or len(CJJJCCC(1))<>32 or len(CJJJCCC(2))<>32 then
Call ClearMemberCookie
else
CCJJCCJ=CJJJCCC(1):for CJJJCJJ=1 to len(CCJJCCJ):CJJJCJC=mid(CCJJCCJ,CJJJCJJ,1):if isnumeric(CJJJCJC) then CCJJCCC=CCJJCCC & CJJJCJC
if len(CCJJCCC)=7 then exit for
next:CCJJCCJ=CJJJCCC(2):if CCJJCCC<>mid(CCJJCCJ,6,7) then
Call ClearMemberCookie
else
CJJJCJC=mid(CCJJCCJ,18,10)/2:if CJJJCJC<DateDiff(CJJCJCJC("D"), CJJCJCJC("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJCJJCJ=Clng(CJJJCCC(0)):CJCJJCC=CJJJCCC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJJCJJJC,CJCJJJJC):dim CJJJCJJ,CJJJCJC,CCJJCCC:for CJJJCJJ=1 to len(CJCJJJJC):CJJJCJC=mid(CJCJJJJC,CJJJCJJ,1):if isnumeric(CJJJCJC) then CCJJCCC=CCJJCCC & CJJJCJC
if len(CCJJCCC)=7 then exit for
next:CCJJCCC=CJJCJJJC & CJJCJCJC("]") & CJCJJJJC & CJJCJCJC("]") & Fix(10000*(Rnd+1)) & CCJJCCC & Fix(10000*(Rnd+1)) & DateDiff(CJJCJCJC("D"), CJJCJCJC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJJCJCJC("!$*|t|qt#"))=CCJJCCC:End Sub::Class jTree:Private CJJJJJC, CCJCJJJ, CCJCJJC, CCJCJCJ,CCJCJCC,CCJCCJJ,CCJCCJC,CCJCCCJ:Private Sub Class_Initialize():CCJCJJC = 0:CCJCJCJ = 0:CCJCCCJ=10:End Sub:Public Property Let Table(CJCJJJCJ):if CJCJJJCJ="" then Call RedirectMessage(CJJCJCJC("????????,;%C66????????????????????@??????????,"))
CCJCJCC=CJCJJJCJ:CCJCCJJ=CJJCJCJC("!$*0") & UCase(CCJCJCC):Call GetTreeArray:End Property:Public Property Get Table():Table=CCJCJCC:End Property:::Private Sub GetTreeArray():Dim CJJJCJJ, CJJJCJC, CCJCCCC,RecordCount:CCJCJJJ = Application(CCJCCJJ):If Not IsArray(CCJCJJJ) Then
CJJJJJC = CJJCJCJC("D6=64E ,4@F?EW:5X ,7C@> ,") & CCJCJCC:if CCJCCJC<>"" then CJJJJJC=CJJJJJC & CJJCJCJC(" ,H96C6 ,") & CCJCCJC
set CCJCCCC=CCCCJC.execute(CJJJJJC):RecordCount=CCJCCCC(0):if RecordCount=0 then Call RedirectMessage(CJJCJCJC("????W") & CCJCJCC & CJJCJCJC("^") & CCJCCJC & CJJCJCJC("X????????????"))
CCJCJCJ=RecordCount+CCJCCCJ:ReDim CCJCJJJ(CCJCJCJ, 4):CJJJJJC = CJJCJCJC("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJCJCC & CJJCJCJC(" ,H:E9 ,W?@=@4<X"):if CCJCCJC<>"" then CJJJJJC=CJJJJJC & CJJCJCJC(" ,H96C6 ,") & CCJCCJC
CJJJJJC=CJJJJJC & CJJCJCJC(" ,@C56C ,3J ,D@CE[:5"):set CCJCCCC=CCCCJC.execute(CJJJJJC):For CJJJCJJ = 1 To RecordCount:For CJJJCJC = 0 To 4:CCJCJJJ(CJJJCJJ, CJJJCJC) = CCJCCCC(CJJJCJC):if IsNull(CCJCJJJ(CJJJCJJ,4)) then CCJCJJJ(CJJJCJJ,4)=0
If CCJCJJJ(CJJJCJJ,2)="" then CCJCJJJ(CJJJCJJ,2)=CJJCJCJC(",??.")
Next:CCJCCCC.MoveNext:Next:CCJCCCC.Close: Set CCJCCCC = Nothing:for CJJJCJJ=CCJCJCJ-(CCJCCCJ-1) to CCJCJCJ:CCJCJJJ(CJJJCJJ,0)=CJJJCJJ:next:Application.Lock():Application(CCJCCJJ) = CCJCJJJ:Application.UnLock()
else
CCJCJCJ=Ubound(CCJCJJJ)
End If:End Sub:::::Private Function CJJJCCJC(CJJCJJJC):dim CJJJCJJ,CCCJJJC:CJJJCCJC=0:CCCJJJC=CStr(CJJCJJJC):if CCCJJJC<>"0" then
for CJJJCJJ=1 to CCJCJCJ:If CStr(CCJCJJJ(CJJJCJJ, 0))=CCCJJJC Then
CJJJCCJC = CJJJCJJ:Exit For
End If:Next
end if:End Function:Public Function CJJJCCCJ(CJJCJJJC):if Cstr(CJJCJJJC)="0" then
CJJJCCCJ=CJJCJCJC("??")
else
Dim CJJJCJJ,CCJCCCC:CJJJCJJ=CJJJCCJC(CJJCJJJC):if CJJJCJJ>0 then
CJJJCCCJ=CCJCJJJ(CJJJCJJ,2):if CJJJCCCJ="" then
set CCJCCCC=CCCCJC.execute(CJJCJCJC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJCJCC & CJJCJCJC(" ,H96C6 ,:5l") & CJJCJJJC):if CCJCCCC.eof then Call RedirectMessage(CJJCJCJC("xs??,") & CJJCJJJC & CJJCJCJC("??,??????"))
CJJJCCCJ=CCJCCCC(1):Call UpdateCache(CJJCJJJC,CCJCCCC(0),CJJJCCCJ,CCJCCCC(2),CCJCCCC(3)):CCJCCCC.Close: Set CCJCCCC = Nothing
end if
else
set CCJCCCC=CCCCJC.execute(CJJCJCJC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJCJCC & CJJCJCJC(" ,H96C6 ,:5l") & CJJCJJJC):if CCJCCCC.eof then Call RedirectMessage(CJJCJCJC("xs??,") & CJJCJJJC & CJJCJCJC("??,??????"))
CJJJCCCJ=CCJCCCC(1):Call UpdateCache(CJJCJJJC,CCJCCCC(0),CJJJCCCJ,CCJCCCC(2),CCJCCCC(3)):CCJCCCC.Close: Set CCJCCCC = Nothing
end if
end if:End Function:::Public Function CJJJCCCC(CJJCJJJC):Dim CJJJCJJ,CCCJJCJ:CJJJCJJ=CJJJCCJC(CJJCJJJC):if CJJJCJJ=0 then
CCCJJCJ=CJJCJJJJ(CJJCJJJC)
else
CCCJJCJ=CCJCJJJ(CJJJCJJ,3):if isnull(CCCJJCJ) or CCCJJCJ="" then
CCCJJCJ=CJJCJJJJ(CJJCJJJC)
elseif Mid(CCCJJCJ,instrrev(CCCJJCJ,CJJCJCJC("["))+1)<>CStr(CJJCJJJC) then
CCCJJCJ=CJJCJJJJ(CJJCJJJC)
elseif Left(CCCJJCJ,1)=CJJCJCJC("[") then
CCCJJCJ=CJJCJJJJ(CJJCJJJC)
end if
end if:CJJJCCCC=CCCJJCJ:End Function:Private Function CJJCJJJJ(CJJCJJJC):dim CCCJJJC:CCCJJJC=CStr(CJJCJJJC):if CCCJJJC="0" then
CJJCJJJJ=""
else
dim CCJCCCC:set CCJCCCC=CCCCJC.execute(CJJCJCJC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJCJCC & CJJCJCJC(" ,H96C6 ,:5l") & CJJCJJJC):if CCJCCCC.eof then
Call UpdateCache(CJJCJJJC,"","","",""):Call RedirectMessage(CJJCJCJC("??????,xs??,") & CJJCJJJC & CJJCJCJC("??,????????,????????????????????,"))
else
if CCJCCCC(0)=0 then
CJJCJJJJ="0," & CJJCJJJC
else
CJJCJJJJ=CJJJCCCC(CCJCCCC(0)) & CJJCJCJC("[") & CJJCJJJC
end if:if CCJCCCC(2)<>CJJCJJJJ then
CCCCJC.execute CJJCJCJC("FA52E6 ,") & CCJCJCC & CJJCJCJC(" ,D6E ,A2E9lV") & CJJCJJJJ & CJJCJCJC("V ,H96C6 ,:5l") & CJJCJJJC
else
CJJCJJJJ=CCJCCCC(2)
end if
end if:Call UpdateCache(CJJCJJJC,CCJCCCC(0),CCJCCCC(1),CJJCJJJJ,CCJCCCC(3)):CCJCCCC.Close: Set CCJCCCC = Nothing
end if:End Function:::::::::::Public Sub ShowTree_Select(CJJCJJJC,ByVal CJJCCCCC):Dim Str, CJJJCJJ:CJJCJJJC=CLng(CJJCJJJC):if isnumeric(CJJCCCCC) then CJJCCCCC=CLng(CJJCCCCC) else CJJCCCCC=0
if CJJCJJJC>0 then str=CJJCJCJC("k@AE:@? ,G2=F6lV") & CJJCJJJC & CJJCJCJC("V ,52E2\A:5lV_Vm") & CJJJCCCJ(CJJCJJJC) & CJJCJCJC("k^@AE:@?m")
For CJJJCJJ = 1 To CCJCJCJ:If CJJCJJJC=0 or (CJJCJJJC>0 and InStr(CCJCJJJ(CJJJCJJ, 3), CJJCJCJC("[") & CJJCJJJC & CJJCJCJC("[")) > 0) Then
str=str & CJJCJCJC("k@AE:@?"):if CCJCJJJ(CJJJCJJ,0)=CJJCCCCC then str=str & CJJCJCJC(" ,D6=64E65")
str=str & CJJCJCJC(" ,G2=F6lV") & CCJCJJJ(CJJJCJJ,0) & CJJCJCJC("V ,52E2\A:5lV") & CCJCJJJ(CJJJCJJ,1) & CJJCJCJC("Vm") & CCJCJJJ(CJJJCJJ,2) & CJJCJCJC("k^@AE:@?m") & vbcrlf
End If:Next:response.Write str:End Sub:::::::::::Public Sub ClearCache():Application.Contents.Remove CCJCCJJ
End Sub:Public Sub UpdateCache(CJJCJJJC,CJCJJJCC,CJCJJCJJ,CCCJJCJ,CJCJJCJC):dim CJJJCJJ,CJJJCJC:CJJCJJJC=CLng(CJJCJJJC):CJJJCJJ=CJJJCCJC(CJJCJJJC):if CJCJJJCC="" and CJCJJCJJ="" and CCCJJCJ="" and CJCJJCJC="" then
if CJJJCJJ>0 then
for CJJJCJC=1 to 4:CCJCJJJ(CJJJCJJ,CJJJCJC)=Null:next
end if
else
if CJJJCJJ=0 then
for CJJJCJC=1 to CCJCJCJ:if CCJCJJJ(CJJJCJC,1) & ""="" then
CJJJCJJ=CJJJCJC:exit for
end if:next
end if:if CJJJCJJ=0 then
Call ClearCache
else
CCJCJJJ(CJJJCJJ,0)=CLng(CJJCJJJC):if CJCJJJCC<>"" then CCJCJJJ(CJJJCJJ,1)=CLng(CJCJJJCC)
if CJCJJCJJ<>"" then CCJCJJJ(CJJJCJJ,2)=CJCJJCJJ
if CCCJJCJ<>"" then CCJCJJJ(CJJJCJJ,3)=CCCJJCJ
if CJCJJCJC<>"" then CCJCJJJ(CJJJCJJ,4)=CLng(CJCJJCJC)
end if
end if:if CJJJCJJ>0 then
Application.Lock():Application(CCJCCJJ) = CCJCJJJ:Application.UnLock()
end if:End Sub:Private Sub Debug(CJJCCCJC):Call ConnClose:Response.Write CJJCCCJC:Response.End:End Sub:Private Function CJJJJJCC():CJJJJJCC=CJJCJJCJ+1:End Function:Private Function CJJCJJCJ():dim CJJCJJC:set CJJCJJC=CCCCJC.execute(CJJCJCJC("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CCJCJCC & CJJCJCJC(" ,@C56C ,3J ,:5 ,56D4")):CJJCJJCJ=CJJCJJC(0):CJJCJJC.Close: Set CJJCJJC = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::dim CCJJCJC:CJJJJJC=Request.ServerVariables(CJJCJCJC("!p%w0x}u~")):if instr(CJJJJJC,CJJCJCJC("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CJCCJCC and not CCJJJCJ then Call RedirectMessage(CJJCJCJC("????????,????????????????????????,"))
CCJJCJC=CJCCJJJ
elseif instr(CJJJJJC,CJJCJCJC("^>^D49@@=^DEF56?E^"))>0 or instr(CJJJJJC,CJJCJCJC("^DEF56?E^"))>0 then
Call CheckLogined:CCJJCJC=CJCCJJJ
elseif instr(CJJJJJC,CJJCJCJC("^D49@@="))>0 then
CCJJCJC=Request.QueryString(CJJCJCJC("D49@@=")):if not CJJJJJCJ(CCJJCJC) then CCJJCJC=Request.QueryString(CJJCJCJC("F"))
if not CJJJJJCJ(CCJJCJC) then CCJJCJC=Request.QueryString(CJJCJCJC("D4"))
if not CJJJJJCJ(CCJJCJC) then Call RedirectMessage(CJJCJCJC("????????W$49@@=X??@??????????,"))
CCJJCJC=csng(CCJJCJC)
end if:if CCJJCJC=0 then Call RedirectMessage(CJJCJCJC("????????W$49@@=X????W_X??,"))
Dim CCCJJCC:Call SetConfig:Sub SetConfig():dim CJCJJJC,CJJCJJC:CJJJJJC=CJJCJCJC("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") & CCJJCJC:set CJJCJJC=CCCCJC.execute(CJJJJJC):if CJJCJJC.eof then Call RedirectMessage(CJJCJCJC("??W") & CJCJJCJ & CJJCJCJC("X??????????W") & CCJJCJC & CJJCJCJC("X????????,"))
ReDim CJCJJJC(61):CJCJJJC(0)=CJJCJJC(CJJCJCJC(";:2@H6:")) & "":CJCJJJC(1)=CJJCJJC(CJJCJCJC("EJA6")):CJCJJJC(2)=CJJCJJC(CJJCJCJC("D>D")):CJCJJJC(3)=CJJCJJC(CJJCJCJC("4FDE@>8C@FA")) & "":CJCJJJC(4)=CJJCJJC(CJJCJCJC("D:5632C0@E96C")) & "":CJCJJJC(5)=IIf(isnull(CJJCJJC(CJJCJCJC("E6DEC6DF=EG:6H"))),0,CJJCJJC(CJJCJCJC("E6DEC6DF=EG:6H"))):CJCJJJC(6)=CJJCJJC(CJJCJCJC("K:IF?E:>6")):CJCJJJC(7)=CJJCJJC(CJJCJCJC("766")):CJCJJJC(8)=CJJCJJC(CJJCJCJC("C6E6DE52J")):CJCJJJC(9)=CJJCJJC(CJJCJCJC("6IA:C652E6")):CJCJJJC(10)=CJJCJJC(CJJCJCJC("E:E=6")):CJCJJJC(11)=CJJCJJC(CJJCJCJC(":?EC@")) & "":CJCJJJC(12)=CJJCJJC(CJJCJCJC("A:4EFC6")) & "":CJCJJJC(13)=CJJCJJC(CJJCJCJC("72>:=J")):CJCJJJC(14)=CJJCJJC(CJJCJCJC("4@AJC:89E")) & "":CJCJJJC(15)=IIf(isnull(CJJCJJC(CJJCJCJC("D6>6DE6C0DE2CE052E6"))),CJJCJCJC("`h__\`\`"),CJJCJJC(CJJCJCJC("D6>6DE6C0DE2CE052E6"))):CJCJJJC(16)=IIf(isnull(CJJCJJC(CJJCJCJC("K:IF?0E:>6D09:89=:89E"))),0,CJJCJJC(CJJCJCJC("K:IF?0E:>6D09:89=:89E"))):CJCJJJC(17)=CJJCJJC(CJJCJCJC("4@?E24E")) & "":CJCJJJC(18)=CJJCJJC(CJJCJCJC("D2?5E23=6")):CJCJJJC(19)=CJJCJJC(CJJCJCJC("4C:D:D")):CJCJJJC(20)=CJJCJJC(CJJCJCJC("JJ52E6")):CJCJJJC(21)=CJJCJJC(CJJCJCJC("BB")):CJCJJJC(22)=CJJCJJC(CJJCJCJC("JFJF60D>D0EA=")) & "":CJCJJJC(23)=CJJCJJC(CJJCJCJC("JFJF60E6DE0=3")) & "":CJCJJJC(25)=CJJCJJC(CJJCJCJC("6IA6CE")):CJCJJJC(26)=CJJCJJC(CJJCJCJC(">@5:?7@")):CJCJJJC(27)=CJJCJJC(CJJCJCJC("9@>6A286E@AA:4EFC6")) & "":CJCJJJC(28)=CJJCJJC(CJJCJCJC("4C:D:D=3")):CJCJJJC(29)=IIf(CJJCJJC(CJJCJCJC("4C:D:D@=5")),False,True):CJCJJJC(30)=CJJCJJC(CJJCJCJC("8C@FA8F:52?46")):CJCJJJC(31)=CJJCJJC(CJJCJCJC("3:@7665324<")):CJCJJJC(32)=CJJCJJC(CJJCJCJC("<6JDEC")):CJCJJJC(33)=CJJCJJC(CJJCJCJC("=@8@")) & "":CJCJJJC(34)=CJJCJJC(CJJCJCJC("K:46")):CJCJJJC(35)=IIf(CJJCJJC(CJJCJCJC(":D?6H")),True,False):CJCJJJC(36)=121:CJCJJJC(37)=111:CJCJJJC(38)=160:CJCJJJC(39)=CJJCJJC(CJJCJCJC("8F6DE3@@<")):CJCJJJC(40)=CJJCJJC(CJJCJCJC("75D")):CJCJJJC(42)=CJJCJJC(CJJCJCJC("9@>6=@8:?")):CJCJJJC(43)=CJJCJJC(CJJCJCJC("K:IF?0?6657665324<")):CJCJJJC(44)=CJJCJJC(CJJCJCJC("K:IF?0E:>6D0=:>:E")):CJCJJJC(45)=CJJCJJC(CJJCJCJC("4@>A=6E60:?7@")):CJCJJJC(46)=CJJCJJC(CJJCJCJC("E6DE:?EC@")) & "":CJCJJJC(47)=IIf(isnull(CJJCJJC(CJJCJCJC("JFJF60367@C60E:>6"))),0,CJJCJJC(CJJCJCJC("JFJF60367@C60E:>6"))):CJCJJJC(49)=CJJCJJC(CJJCJCJC("D>D0C646:G6C")):CJCJJJC(50)=CJJCJJC(CJJCJCJC("D>D0D:8?")) & "":CJCJJJC(52)=CJJCJJC(CJJCJCJC("JFJF602CC2?86")):CJCJJJC(53)=IIf(isnull(CJJCJJC(CJJCJCJC("DEF56?E0BF6DE:@?04@F?E"))),0,CJJCJJC(CJJCJCJC("DEF56?E0BF6DE:@?04@F?E"))):CJCJJJC(54)=CJJCJJC(CJJCJCJC("9:560=30@FE@7286")):CJCJJJC(55)=CJJCJJC(CJJCJCJC("JFJF60E6DE052JD")):CJCJJJC(56)=CJJCJJC(CJJCJCJC("JFJF60H66<0=:>:E")):CJCJJJC(57)=CJJCJJC(CJJCJCJC("JFJF604964<65")):CJCJJJC(58)=CJJCJJC(CJJCJCJC("K:IF?0?6657665324<0?6IE")):CJCJJJC(59)=CJJCJJC(CJJCJCJC("4964<?6HDEF56?E")):CJCJJJC(60)=CJJCJJC(CJJCJCJC("K:IF?04=@D6052E6")):CJJCJJC.close : set CJJCJJC=nothing:if isNull(CJCJJJC(8)) or CJCJJJC(8)="" then CJCJJJC(8)=0
if isdate(CJCJJJC(9)) then
CJCJJJC(9)=cdate(CJCJJJC(9)):if CJCJJJC(9)<Date then Call RedirectMessage(CJJCJCJC("????????,????????????????W") & CJCJJJC(9) & CJJCJCJC("X??????,"))
end if:if not CJJJJJCJ(CJCJJJC(20)) then CJCJJJC(20)=7
select case CJCJJJC(1):case 1,2,16:CJCJJJC(36)=159:case 4,5,6,10,11:CJCJJJC(36)=190:CJCJJJC(37)=178:CJCJJJC(38)=191:case 7,13:CJCJJJC(36)=164:CJCJJJC(37)=178:CJCJJJC(38)=179:end select:CCCJJCC=CJCJJJC:End Sub:Function CJJJJCCJ(CJCJJCCJ):dim CJCJJJC(7,1),CJJJCJJ,CCCJCJJ,CCCJCJC:CCCJCJJ=Array(CJJCJCJC("$49@@="),CJJCJCJC("$EF56?E"),CJJCJCJC("s6AE"),CJJCJCJC("vC256"),CJJCJCJC("r=2DD>2E6"),CJJCJCJC("}F>36C"),CJJCJCJC("%62496C"),CJJCJCJC("!2C6?E")):select case CCCJJCC(1):case 1,2 : CCCJCJC=Array(CJJCJCJC("????"),CJJCJCJC("????"),CJJCJCJC("????"),CJJCJCJC("????"),CJJCJCJC("????"),CJJCJCJC("????"),CJJCJCJC("????"),CJJCJCJC("????")):case 3,16 : CCCJCJC=Array(CJJCJCJC("????"),CJJCJCJC("????"),CJJCJCJC("????"),CJJCJCJC("????"),CJJCJCJC("????"),CJJCJCJC("????"),CJJCJCJC("????"),CJJCJCJC("????")):case 4 : CCCJCJC=Array(CJJCJCJC("????"),CJJCJCJC("??????@"),CJJCJCJC("????"),CJJCJCJC("????"),CJJCJCJC("????"),CJJCJCJC("????"),CJJCJCJC("????"),CJJCJCJC("????")):case 5 : CCCJCJC=Array(CJJCJCJC("????"),CJJCJCJC("????"),CJJCJCJC("????"),CJJCJCJC("????"),CJJCJCJC("????"),CJJCJCJC("????"),CJJCJCJC("????"),CJJCJCJC("????")):case 6 : CCCJCJC=Array(CJJCJCJC("????"),CJJCJCJC("??????@"),CJJCJCJC("????"),CJJCJCJC("????"),CJJCJCJC("????"),CJJCJCJC("????"),CJJCJCJC("??????"),CJJCJCJC("????")):case 7 : CCCJCJC=Array(CJJCJCJC("????"),CJJCJCJC("????"),CJJCJCJC("????"),CJJCJCJC("????"),CJJCJCJC("????"),CJJCJCJC("????"),CJJCJCJC("??????"),CJJCJCJC("????")):case 8 : CCCJCJC=Array(CJJCJCJC("????"),CJJCJCJC("??????@"),CJJCJCJC("????"),CJJCJCJC("????????"),CJJCJCJC("????"),CJJCJCJC("????"),CJJCJCJC("??????"),CJJCJCJC("????")):case 9 : CCCJCJC=Array(CJJCJCJC("????"),CJJCJCJC("????"),CJJCJCJC("????"),CJJCJCJC("????"),CJJCJCJC("????"),CJJCJCJC("????"),CJJCJCJC("??????"),CJJCJCJC("????")):case 10 : CCCJCJC=Array(CJJCJCJC("????"),CJJCJCJC("????"),CJJCJCJC("????"),CJJCJCJC("????????"),CJJCJCJC("????"),CJJCJCJC("????"),CJJCJCJC("??????"),CJJCJCJC("????")):case 11 : CCCJCJC=Array(CJJCJCJC("????"),CJJCJCJC("??????"),CJJCJCJC("????"),CJJCJCJC("????"),CJJCJCJC("????"),CJJCJCJC("????"),CJJCJCJC("??????"),CJJCJCJC("????")):case 12 : CCCJCJC=Array(CJJCJCJC("????"),CJJCJCJC("????"),CJJCJCJC("????"),CJJCJCJC("????????"),CJJCJCJC("????"),CJJCJCJC("????"),CJJCJCJC("??????"),CJJCJCJC("????")):case 13 : CCCJCJC=Array(CJJCJCJC("????"),CJJCJCJC("????"),CJJCJCJC("????"),CJJCJCJC("????"),CJJCJCJC("????"),CJJCJCJC("????"),CJJCJCJC("????"),CJJCJCJC("????")):case 14 : CCCJCJC=Array(CJJCJCJC("??????"),CJJCJCJC("??@??"),CJJCJCJC("????"),CJJCJCJC("????"),CJJCJCJC("????"),CJJCJCJC("????"),CJJCJCJC("??????"),CJJCJCJC("????")):case 15 : CCCJCJC=Array(CJJCJCJC("????"),CJJCJCJC("????????"),CJJCJCJC("????"),CJJCJCJC("????????"),CJJCJCJC("????"),CJJCJCJC("????"),CJJCJCJC("??????"),CJJCJCJC("????")):case else : CCCJCJC=CCCJCJJ
end select:for CJJJCJJ=0 to Ubound(CJCJJJC):CJCJJJC(CJJJCJJ,0)=CCCJCJJ(CJJJCJJ):CJCJJJC(CJJJCJJ,1)=CCCJCJC(CJJJCJJ):next:for CJJJCJJ=0 to Ubound(CJCJJJC):if CJCJJJC(CJJJCJJ,0)=CJCJJCCJ then
CJJJJCCJ=CJCJJJC(CJJJCJJ,1):exit for
end if:next:End Function::If Request.ServerVariables(CJJCJCJC("#t""&t$%0|t%w~s"))=CJJCJCJC("!~$%") then
if CCCJJCC(26) then
if CJCCJCC or CCJJJCJ then
CJJJJJC=CJJCJCJC("FA52E6 ,>6>36C ,D6E") & CJJCJCJC(" ,C62=?2>6lV") & CJJJJJJJ(Request.Form(CJJCJCJC("C62=?2>6"))) & CJJCJCJC("V") & CJJCJCJC("[D6Il") & Cint(Request.Form(CJJCJCJC("D6I"))) & CJJCJCJC("[3:CE952JlV") & cdate(Request.Form(CJJCJCJC("3:CE952J"))) & CJJCJCJC("V") & CJJCJCJC("[255C6DDlV") & CJJJJJJJ(Request.Form(CJJCJCJC("255C6DD"))) & CJJCJCJC("V") & CJJCJCJC("[6>2:=lV") & CJJJJJJJ(Request.Form(CJJCJCJC("6>2:="))) & CJJCJCJC("V") & CJJCJCJC("[>@3:=6lV") & CJJJJJJJ(Request.Form(CJJCJCJC(">@3:=6"))) & CJJCJCJC("V") & CJJCJCJC("[BBlV") & CJJJJJJJ(Request.Form(CJJCJCJC("BB"))) & CJJCJCJC("V") & CJJCJCJC("[2?DH6ClV") & CJJCJJCC & CJJCJCJC("V") & CJJCJCJC(" ,H96C6 ,:5l") & CJCJJCJ
else
dim CCCJCCJ,CCCJCCC,CCCCJJJ:CCCCJJJ=Request.Form(CJJCJCJC("56AE")):CCCJCCJ=Request.Form(CJJCJCJC("8C256")):CCCJCCC=Request.Form(CJJCJCJC("4FDE@>8C@FA")):if not CJJJJJCJ(CCCCJJJ) then CCCCJJJ=CCJJCJC
if not CJJJJJCJ(CCCJCCJ) then CCCJCCJ=0
if not CJJJJJCJ(CCCJCCC) then CCCJCCC=0
CJJJJJC=CJJCJCJC("FA52E6 ,>6>36C ,D6E") & CJJCJCJC(" ,C62=?2>6lV") & CJJJJJJJ(Request.Form(CJJCJCJC("C62=?2>6"))) & CJJCJCJC("V") & CJJCJCJC("[D6Il") & Cint(Request.Form(CJJCJCJC("D6I"))) & CJJCJCJC("[3:CE952JlV") & cdate(Request.Form(CJJCJCJC("3:CE952J"))) & CJJCJCJC("V") & CJJCJCJC("[EJA6l") & CCCCJJJ  & CJJCJCJC("[8C256l") & CCCJCCJ  & CJJCJCJC("[4FDE@>8C@FAl") & CCCJCCC  & CJJCJCJC("[255C6DDlV") & CJJJJJJJ(Request.Form(CJJCJCJC("255C6DD"))) & CJJCJCJC("V") & CJJCJCJC("[6>2:=lV") & CJJJJJJJ(Request.Form(CJJCJCJC("6>2:="))) & CJJCJCJC("V") & CJJCJCJC("[>@3:=6lV") & CJJJJJJJ(Request.Form(CJJCJCJC(">@3:=6"))) & CJJCJCJC("V") & CJJCJCJC("[BBlV") & CJJJJJJJ(Request.Form(CJJCJCJC("BB"))) & CJJCJCJC("V") & CJJCJCJC("[2?DH6ClV") & CJJCJJCC & CJJCJCJC("V") & CJJCJCJC(" ,H96C6 ,:5l") & CJCJJCJ
end if:CCCCJC.execute CJJJJJC
else
CJJJJJC=CJJCJCJC("FA52E6 ,>6>36C ,D6E ,2?DH6ClV") & CJJCJJCC & CJJCJCJC("V ,H96C6 ,:5l") & CJCJJCJ
CCCCJC.execute CJJJJJC
end if:Call ConnClose:response.Redirect CJJCJCJC(":?56I]2DA")
End If:function CJJCJJCC():dim CCCCJJC,CJJJCJJ,CCCCJCJ,CJJCCJC:CCCCJJC=cint(request.Form(CJJCJCJC("B?F>"))):for CJJJCJJ=1 to CCCCJJC:CCCCJCJ=CJJJJJJJ(Request.Form(CJJCJCJC("B0") & CJJJCJJ)):if CCCCJCJ<>"" then
CCCCJCJ=replace(CCCCJCJ,CJJCJCJC("M"),""):CCCCJCJ=replace(CCCCJCJ,CJJCJCJC(" ,"),""):CJJCCJC=CJJCCJC & CJJCJCJC("M") & CJJJCJJ & CJJCJCJC("M") & CCCCJCJ
end if:next:if CJJCCJC<>"" then CJJCCJC=Mid(CJJCCJC,2)
CJJCJJCC=CJJCCJC:end function:dim CCJCJJJ:set CCJCJJJ=new jtree:CCJCJJJ.table=CJJCJCJC(">6>36C0EJA6"):Response.Write(vbCrLf):Response.Write(CJJCJCJC("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJJCJCJC("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJJCJCJC("k9625m") & vbCrLf):Response.Write(CJJCJCJC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJJCJCJC("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJJCJCJC("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJJCJCJC("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CJJCJCJC("kE:E=6m")):Response.Write  CCCJJCC(10):Response.Write(CJJCJCJC("k^E:E=6m") & vbCrLf):Response.Write(CJJCJCJC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ]]^4DD^C6D6E]4DDQm") & vbCrLf):Response.Write(CJJCJCJC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CJJCJCJC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^49@D6?^49@D6?]>:?]4DDQm") & vbCrLf):Response.Write(CJJCJCJC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^52E6A:4<6C^52E6A:4<6C]>:?]4DDQm") & vbCrLf):Response.Write(CJJCJCJC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJCJC("k^9625m") & vbCrLf):Response.Write(CJJCJCJC("k3@5Jm") & vbCrLf):Response.Write(CJJCJCJC("k5:G ,:5lQ4@?E2:?6CQm") & vbCrLf):Response.Write(CJJCJCJC(" ,k5:G ,:5lQ96256CQm") & vbCrLf):Response.Write(CJJCJCJC(" ,k9`m")):Response.Write  CCCJJCC(10):Response.Write(CJJCJCJC("k^9`m") & vbCrLf):Response.Write(CJJCJCJC("kF= ,:5lQ?2GQm") & vbCrLf):Response.Write(CJJCJCJC(" ,k=: ,E:E=6lQxsi ,")):Response.Write  CJCJJCJ:Response.Write(CJJCJCJC("Qm????????,")):Response.Write  CJCCCCJ:Response.Write(CJJCJCJC("??,")):Response.Write  CJCJCCC:Response.Write(CJJCJCJC("??,k^=:m") & vbCrLf):Response.Write(CJJCJCJC(" ,k=:mk2 ,9C67lQ:?56I]2DAQm????k^2mk^=:m") & vbCrLf):Response.Write(CJJCJCJC(" ,")):set CCCCCC=CCCCJC.execute(CJJCJCJC("D6=64E ,4@F?EW:5X ,7C@> ,>6DD286 ,H96C6 ,:D?6Hl` ,2?5 ,C646:G6Cl") & CJCJJCJ):if CCCCCC(0)=0 then
Response.Write CJJCJCJC("k=:mk2 ,9C67lV]]^>6DD286^:?]2DAnC625@?=Jl`V ,E2C86ElV03=2?<Vm????k^2mk^=:m")
else
Response.Write CJJCJCJC("k=:mk2 ,9C67lV]]^>6DD286^:?]2DAnC625@?=Jl`V ,E2C86ElV03=2?<Vm???? ,kDA2? ,DEJ=6lV4@=@CiR777j7@?E\D:K6i`_AIj5:DA=2Ji:?=:?6\3=@4<j324<8C@F?5\4@=@CiR7b_j96:89Ei`dAIjA255:?8i_ ,aAIj=:?6\96:89Ei`dAIj3@C56C\C25:FDibAIjVm") & CCCCCC(0) & CJJCJCJC("k^DA2?mk^2mk^=:m")
end if:Response.Write(vbCrLf):Response.Write(CJJCJCJC(" ,k=:mk2 ,9C67lQ>J:?7@]2DAQm????????????k^2mk^=:m") & vbCrLf):Response.Write(CJJCJCJC(" ,k=:mk2 ,9C67lQ492?86ADH]2DAQm????????????k^2mk^=:m") & vbCrLf):Response.Write(CJJCJCJC(" ,")):If CJCCJCC or CCJJJCJ Then
Response.Write(vbCrLf):Response.Write(CJJCJCJC(" ,k=:mk2 ,9C67lQ]]^D49@@=^25>:?^>2:?]2DAQm????????k^2mk^=:m") & vbCrLf):Response.Write(CJJCJCJC(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CJJCJCJC(" ,k=:mk2 ,9C67lQ]]^>6>36C^=@8@FE]2DAnC65:C64El^D49@@=^:?56I]2DAnD49@@=l")):Response.Write  CCJJCJC:Response.Write(CJJCJCJC("Qm????????k^2mk^=:m") & vbCrLf):Response.Write(CJJCJCJC("k^F=m") & vbCrLf):Response.Write(CJJCJCJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJCJCJC(" ,k5:G ,:5lQ>2:?Qm") & vbCrLf):Response.Write(CJJCJCJC(" ,k5:G ,:5lQ>2:?4@?E6?EQm") & vbCrLf):Response.Write(CJJCJCJC(" ,k9am????????????k^9am") & vbCrLf):Response.Write(CJJCJCJC(" ,k5:G ,4=2DDlQ4@?E6?EQm") & vbCrLf):Response.Write(CJJCJCJC(" ,")):set CCCCCC=CCCCJC.execute(CJJCJCJC("D6=64E ,E@A ,` ,BB[255C6DD[2?DH6C[6>2:=[D6I[3:CE952J ,7C@> ,>6>36C ,H96C6 ,:5l") & CJCJJCJ):Response.Write(vbCrLf):Response.Write(CJJCJCJC(" ,k7@C> ,:5lQ7@C>`Q ,?2>6lQ7@C>`Q ,>6E9@5lQA@DEQ ,24E:@?lQQm") & vbCrLf):Response.Write(CJJCJCJC(" ,kE23=6 ,H:5E9lQ`__TQ ,:5lQ32D6\:?7@Qm") & vbCrLf):Response.Write(CJJCJCJC(" ,kECm") & vbCrLf):Response.Write(CJJCJCJC(" ,kE5 ,2=:8?lQC:89EQ ,H:5E9lQ`d_Qm??????????,k^E5m") & vbCrLf):Response.Write(CJJCJCJC(" ,kE5mk^E5m") & vbCrLf):Response.Write(CJJCJCJC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJCJC(" ,kECm") & vbCrLf):Response.Write(CJJCJCJC(" ,kE5 ,2=:8?lQC:89EQm")):Response.Write  CJJJJCCJ(CJJCJCJC("}F>36C")):Response.Write(CJJCJCJC("??,k^E5m") & vbCrLf):Response.Write(CJJCJCJC(" ,kE5m")):Response.Write  CJCJCCC:Response.Write(CJJCJCJC("k^E5m") & vbCrLf):Response.Write(CJJCJCJC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJCJC(" ,kECm") & vbCrLf):Response.Write(CJJCJCJC(" ,kE5 ,2=:8?lQC:89EQm??????????,k^E5m") & vbCrLf):Response.Write(CJJCJCJC(" ,kE5mk:?AFE ,EJA6lQE6IEQ ,?2>6lQC62=?2>6Q ,4=2DDlQE6IEQ ,G2=F6lQ")):Response.Write  CJCCCCJ:Response.Write(CJJCJCJC("Q ,C6BF:C65m??,??@????,k^E5m") & vbCrLf):Response.Write(CJJCJCJC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJCJC(" ,kECm") & vbCrLf):Response.Write(CJJCJCJC(" ,kE5 ,2=:8?lQC:89EQm??????,k^E5m") & vbCrLf):Response.Write(CJJCJCJC(" ,kE5m") & vbCrLf):Response.Write(CJJCJCJC(" ,k=236=mk:?AFE ,EJA6lQC25:@Q ,?2>6lQD6IQ ,G2=F6lQ`Q ,")):Response.Write  IIf(CCCCCC(4),CJJCJCJC("4964<65"),""):Response.Write(CJJCJCJC("m??k^=236=m") & vbCrLf):Response.Write(CJJCJCJC(" ,k=236=mk:?AFE ,EJA6lQC25:@Q ,?2>6lQD6IQ ,G2=F6lQ_Q ,")):Response.Write  IIf(CCCCCC(4),"",CJJCJCJC("4964<65")):Response.Write(CJJCJCJC("m??k^=236=m") & vbCrLf):Response.Write(CJJCJCJC(" ,k^E5m") & vbCrLf):Response.Write(CJJCJCJC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJCJC(" ,kECm") & vbCrLf):Response.Write(CJJCJCJC(" ,kE5 ,2=:8?lQC:89EQm??????????,k^E5m") & vbCrLf):Response.Write(CJJCJCJC(" ,kE5mk:?AFE ,EJA6lQE6IEQ ,?2>6lQ3:CE952JQ ,:5lQ3:CE952JQ ,4=2DDlQE6IEQ ,C625@?=J ,G2=F6lQ")):Response.Write  CJJJCJJJ(CCCCCC(5),0):Response.Write(CJJCJCJC("Qm??,??????????,??@????,k^E5m") & vbCrLf):Response.Write(CJJCJCJC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJCJC(" ,")):if CJCCJCC or CCJJJCJ then
else
Response.Write(vbCrLf):Response.Write(CJJCJCJC(" ,kECm") & vbCrLf):Response.Write(CJJCJCJC(" ,kE5 ,2=:8?lQC:89EQm")):Response.Write  CJJJJCCJ(CJJCJCJC("s6AE")):Response.Write(CJJCJCJC("??,k^E5m") & vbCrLf):Response.Write(CJJCJCJC(" ,kE5m") & vbCrLf):Response.Write(CJJCJCJC(" ,kD6=64E ,?2>6lQ56AEQ ,:5lQ56AEQm") & vbCrLf):Response.Write(CJJCJCJC(" ,")):Call CCJCJJJ.ShowTree_Select(CCJJCJC,CJCJCJC):Response.Write(vbCrLf):Response.Write(CJJCJCJC(" ,k^D6=64Em") & vbCrLf):Response.Write(CJJCJCJC(" ,k^E5m") & vbCrLf):Response.Write(CJJCJCJC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJCJC(" ,")):if CCCJJCC(1)>=3 then
Response.Write(vbCrLf):Response.Write(CJJCJCJC(" ,kECm") & vbCrLf):Response.Write(CJJCJCJC(" ,kE5 ,2=:8?lQC:89EQm")):Response.Write  CJJJJCCJ(CJJCJCJC("vC256")):Response.Write(CJJCJCJC("??,k^E5m") & vbCrLf):Response.Write(CJJCJCJC(" ,kE5m") & vbCrLf):Response.Write(CJJCJCJC(" ,kD6=64E ,?2>6lQvC256Q ,:5lQ8C256Qm") & vbCrLf):Response.Write(CJJCJCJC(" ,")):Call ShowListSelect(CJJCJCJC(">6>36C08C256"),CCJJCJC,CJCCJJC):Response.Write(vbCrLf):Response.Write(CJJCJCJC(" ,k^D6=64Em") & vbCrLf):Response.Write(CJJCJCJC(" ,k^E5m") & vbCrLf):Response.Write(CJJCJCJC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJCJC(" ,"))
end if::If CCCJJCC(3)<>"" Then
Response.Write(vbCrLf):Response.Write(CJJCJCJC(" ,kECm") & vbCrLf):Response.Write(CJJCJCJC(" ,kE5 ,2=:8?lQC:89EQm")):Response.Write  CCCJJCC(3):Response.Write(CJJCJCJC("??,k^E5m") & vbCrLf):Response.Write(CJJCJCJC(" ,kE5m") & vbCrLf):Response.Write(CJJCJCJC(" ,kD6=64E ,?2>6lQ4FDE@>8C@FAQ ,:5lQ4FDE@>8C@FAQm") & vbCrLf):Response.Write(CJJCJCJC(" ,")):Call ShowListSelect(CJJCJCJC(">6>36C04FDE@>8C@FA"),CCJJCJC,CCJJJJJ):Response.Write(vbCrLf):Response.Write(CJJCJCJC(" ,k^D6=64Em") & vbCrLf):Response.Write(CJJCJCJC(" ,k^E5m") & vbCrLf):Response.Write(CJJCJCJC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJCJC(" ,"))
End If
end if:Response.Write(vbCrLf):Response.Write(CJJCJCJC(" ,kECm") & vbCrLf):Response.Write(CJJCJCJC(" ,kE5 ,2=:8?lQC:89EQm????????^????????,k^E5m") & vbCrLf):Response.Write(CJJCJCJC(" ,kE5mk:?AFE ,?2>6lQ255C6DDQ ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,D:K6lQc_Q ,G2=F6lQ")):Response.Write  CCCCCC(1):Response.Write(CJJCJCJC("Qmk^E5m") & vbCrLf):Response.Write(CJJCJCJC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJCJC(" ,kECm") & vbCrLf):Response.Write(CJJCJCJC(" ,kE5 ,2=:8?lQC:89EQm??????????,k^E5m") & vbCrLf):Response.Write(CJJCJCJC(" ,kE5mk:?AFE ,?2>6lQ6>2:=Q ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,D:K6lQc_Q ,G2=F6lQ")):Response.Write  CCCCCC(3):Response.Write(CJJCJCJC("Qmk^E5m") & vbCrLf):Response.Write(CJJCJCJC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJCJC(" ,kECm") & vbCrLf):Response.Write(CJJCJCJC(" ,kE5 ,2=:8?lQC:89EQm??????,k^E5m") & vbCrLf):Response.Write(CJJCJCJC(" ,kE5mk:?AFE ,EJA6lQE6IEQ ,?2>6lQ>@3:=6Q ,4=2DDlQE6IEQ ,G2=F6lQ")):Response.Write  CJCCCCC:Response.Write(CJJCJCJC("Q ,A2EE6C?lQ/`Wb,_\h.Mc,d\h.Md,_\h.Me,aef.Mf,_\g.Mg,_\h.Mh,g\h.X-5LgNSQ ,C6BF:C65m??,??@????,k^E5m") & vbCrLf):Response.Write(CJJCJCJC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJCJC(" ,kECm") & vbCrLf):Response.Write(CJJCJCJC(" ,kE5 ,2=:8?lQC:89EQm""""??,k^E5m") & vbCrLf):Response.Write(CJJCJCJC(" ,kE5mk:?AFE ,EJA6lQE6IEQ ,?2>6lQBBQ ,4=2DDlQE6IEQ ,G2=F6lQ")):Response.Write  CCCCCC(0):Response.Write(CJJCJCJC("Qmk^E5m") & vbCrLf):Response.Write(CJJCJCJC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJCJC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCJCJC(" ,k3Cm") & vbCrLf):Response.Write(CJJCJCJC(" ,kE23=6 ,H:5E9lQ`__TQ ,:5lQ6IE\:?7@Qm") & vbCrLf):Response.Write(CJJCJCJC(" ,")):Response.Write CJJCJCJC("kECmkE5 ,2=:8?lVC:89EV ,H:5E9lV`d_Vm??????????,k^E5mkE5mk^E5mk^ECm")
dim CCCCJCC,CJJJCJC,CCCCCJJ,CCCCJCJ,CCCCJJC,CCCCCJC,CJJJCJJ:CCCCCJJ=CCCCCC(2):set CCCCCC=CCCCJC.execute(CJJCJCJC("D6=64E ,:5[BF6DE:@?[2?DH6C[EJA6 ,7C@> ,>6>36C0BF6DE:@? ,H96C6 ,D49@@=l") & CCJJCJC & CJJCJCJC(" ,@C56C ,3J ,D@CE")):CJJJCJJ=1:CCCCJJC=0:while not CCCCCC.eof:CCCCCJC=CCCCCC(0):if CCCCCJC>CCCCJJC then CCCCJJC=CCCCCJC
response.Write vbcrlf & CJJCJCJC("kECmkE5 ,2=:8?lVC:89EVm") & CJJJCJJ & CJJCJCJC("??,k^E5mkE9 ,2=:8?lV=67EVm") & CCCCCC(1) & CJJCJCJC("k^E9mk^ECmkECmkE5mU?3DAjk^E5mkE5m")
select case CCCCCC(3):case 0:CCCCJCC=split(CCCCCC(2),CJJCJCJC("M")):CCCCJCJ=CJJJCJCC(CCCCCJJ,CCCCCJC):for CJJJCJC=0 to ubound(CCCCJCC):response.Write CJJCJCJC("k=236=mk:?AFE ,EJA6lVC25:@V ,?2>6lVB0") & CCCCCJC & CJJCJCJC("V ,G2=F6lV") & CCCCJCC(CJJJCJC) & CJJCJCJC("V") & IIf(CCCCJCC(CJJJCJC)=CCCCJCJ,CJJCJCJC(" ,4964<65"),"") & CJJCJCJC("m") & CCCCJCC(CJJJCJC) & CJJCJCJC("k^=236=m ,")
next:case 1:CCCCJCC=split(CCCCCC(2),CJJCJCJC("M")):CCCCJCJ=CJJJCJCC(CCCCCJJ,CCCCCJC):for CJJJCJC=0 to ubound(CCCCJCC):response.Write CJJCJCJC("k=236=mk:?AFE ,EJA6lV4964<3@IV ,?2>6lVB0") & CCCCCJC & CJJCJCJC("V ,G2=F6lV") & CCCCJCC(CJJJCJC) & CJJCJCJC("V") & IIf(CCCCJCC(CJJJCJC)=CCCCJCJ,CJJCJCJC(" ,4964<65"),"") & CJJCJCJC("m") & CCCCJCC(CJJJCJC) & CJJCJCJC("k^=236=m ,")
next:case 2:response.Write CJJCJCJC("k:?AFE ,EJA6lVE6IEV ,4=2DDlVE6IEV ,?2>6lVB0") & CCCCCJC & CJJCJCJC("V ,G2=F6lV") & CJJJCJCC(CCCCCJJ,CCCCCJC) & CJJCJCJC("Vm")
case 3:response.Write CJJCJCJC("kE6IE2C62 ,4=2DDlVE6IEV ,?2>6lVB0") & CCCCCJC & CJJCJCJC("V ,4@=DlVb_V ,C@HDlV`Vmk^E6IE2C62m")
case 4:CCCCJCC=split(CCCCCC(2),CJJCJCJC("M")):CCCCJCJ=CJJJCJCC(CCCCCJJ,CCCCCJC):Response.Write CJJCJCJC("kD6=64E ,?2>6lVB0") & CCCCCJC & CJJCJCJC("Vm")
for CJJJCJC=0 to ubound(CCCCJCC):response.Write CJJCJCJC("k@AE:@? ,G2=F6lV") & CCCCJCC(CJJJCJC) & CJJCJCJC("V") & IIf(CCCCJCC(CJJJCJC)=CCCCJCJ,CJJCJCJC(" ,D6=64E65"),"") & CJJCJCJC("m") & CCCCJCC(CJJJCJC) & CJJCJCJC("k^@AE:@?m")
next:Response.Write CJJCJCJC("k^D6=64Em"):end select:response.Write CJJCJCJC("k^E5mk^ECm"):CCCCCC.movenext:CJJJCJJ=CJJJCJJ+1:wend:response.Write CJJCJCJC("k:?AFE ,EJA6lV9:556?V ,?2>6lVB?F>V ,G2=F6lV") & CCCCJJC & CJJCJCJC("Vm")
Response.Write(vbCrLf):Response.Write(CJJCJCJC(" ,kECm") & vbCrLf):Response.Write(CJJCJCJC(" ,kE5 ,4@=DA2?lQaQmU?3DAjk^E5m") & vbCrLf):Response.Write(CJJCJCJC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJCJC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCJCJC(" ,kE23=6 ,H:5E9lQ`__TQm") & vbCrLf):Response.Write(CJJCJCJC(" ,kECm") & vbCrLf):Response.Write(CJJCJCJC(" ,kE5 ,H:5E9lQ`d_Qmk^E5m") & vbCrLf):Response.Write(CJJCJCJC(" ,kE5m") & vbCrLf):Response.Write(CJJCJCJC(" ,k:?AFE ,EJA6lQDF3>:EQ ,4=2DDlQ3FEE@?Q ,G2=F6lQ?? ,??Qm") & vbCrLf):Response.Write(CJJCJCJC(" ,k:?AFE ,EJA6lQC6D6EQ ,4=2DDlQ3FEE@?Q ,G2=F6lQ?? ,??Qm") & vbCrLf):Response.Write(CJJCJCJC(" ,k:?AFE ,EJA6lQ9:556?Q ,:5lQ>@5:?7@Q ,G2=F6lQ")):Response.Write  CCCJJCC(26):Response.Write(CJJCJCJC("Qm") & vbCrLf):Response.Write(CJJCJCJC(" ,k^E5m") & vbCrLf):Response.Write(CJJCJCJC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJCJC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCJCJC(" ,k^7@C>m") & vbCrLf):Response.Write(CJJCJCJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJCJCJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJCJCJC(" ,k5:G ,:5lQD:56Qm") & vbCrLf):Response.Write(CJJCJCJC(" ,k9bm????????????k^9bm") & vbCrLf):Response.Write(CJJCJCJC("kF=m") & vbCrLf):Response.Write(CJJCJCJC(" ,k=:mk2 ,9C67lQE6DE0AF46]2DAQm????????k^2mk^=:m") & vbCrLf):Response.Write(CJJCJCJC(" ,")):If CCCJJCC(34) Then
Response.Write(vbCrLf):Response.Write(CJJCJCJC(" ,k=:mk2 ,9C67lQE6DE0K:46]2DAQm????????k^2mk^=:m") & vbCrLf):Response.Write(CJJCJCJC(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CJJCJCJC(" ,k=:mk2 ,9C67lQ>JE6DE]2DAQm????????????k^2mk^=:m") & vbCrLf):Response.Write(CJJCJCJC("k^F=m") & vbCrLf)::If CCCJJCC(7)=3 Then
Response.Write(vbCrLf):Response.Write(CJJCJCJC("k9bm????????????k^9bm") & vbCrLf):Response.Write(CJJCJCJC("kF=m") & vbCrLf):Response.Write(CJJCJCJC(" ,k=:mk2 ,9C67lQ:?EC@]2DAQm????????????k^2mk^=:m") & vbCrLf):Response.Write(CJJCJCJC(" ,k=:mk2 ,:5lQ2D:56\JFJF6\=:?<Q ,9C67lQ^>^G2?E^R^=@8:?nC65:C64El^D49@@=^DEF56?EU<6JlQ ,52E2\:5lQ")):Response.Write  CJCJJCJ:Response.Write(CJJCJCJC("Qm????????k^2mk^=:m") & vbCrLf):Response.Write(CJJCJCJC(" ,k=:mk2 ,9C67lQJFJF6]2DAn24El=:DEQm????????????k^2mk^=:m") & vbCrLf):Response.Write(CJJCJCJC(" ,k=:mk2 ,9C67lQK:IF?]2DAQm????????????k^2mk^=:m") & vbCrLf):Response.Write(CJJCJCJC(" ,k=:mk2 ,9C67lQ:?E6CG:6H]2DAQm????????k^2mk^=:m") & vbCrLf):Response.Write(CJJCJCJC(" ,")):If CCCJJCC(39) Then
Response.Write(vbCrLf):Response.Write(CJJCJCJC(" ,k=:mk2 ,9C67lQ=:FJ2?]2DAn24El255Qm????????k^2mk^=:m") & vbCrLf):Response.Write(CJJCJCJC(" ,k=:mk2 ,9C67lQ=:FJ2?]2DAQm????????????k^2mk^=:m") & vbCrLf):Response.Write(CJJCJCJC(" ,"))
End If::If CCCJJCC(30) Then
Response.Write(vbCrLf):Response.Write(CJJCJCJC(" ,k=:mk2 ,9C67lQ^>^G2?E^R^D49@@=^DEF56?E^EF2?7FQm??????@??k^2mk^=:m") & vbCrLf):Response.Write(CJJCJCJC(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CJJCJCJC("k^F=m") & vbCrLf):Response.Write(CJJCJCJC("k9bm????????????k^9bm") & vbCrLf):Response.Write(CJJCJCJC("kF=m") & vbCrLf):Response.Write(CJJCJCJC(" ,k=:mk2 ,9C67lQ8C@HC6A@CE]2DAQm????????????k^2mk^=:m") & vbCrLf):Response.Write(CJJCJCJC(" ,k=:mk2 ,9C67lQC6>2C<]2DAn24El>JQm????k^2mk^=:m") & vbCrLf):Response.Write(CJJCJCJC(" ,k=:mk2 ,9C67lQC6>2C<]2DAQm????????k^2mk^=:m") & vbCrLf):Response.Write(CJJCJCJC("k^F=m") & vbCrLf)
End If:Response.Write(vbCrLf):Response.Write(CJJCJCJC("kD4C:AE ,DC4lQ^$4C:AED^6?4CJAE\?F>36C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJCJC("kD4C:AEm") & vbCrLf):Response.Write(CJJCJCJC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJJCJCJC(" ,^Y ,8=@32= ,t?4CJAE ,Y^") & vbCrLf):Response.Write(CJJCJCJC(" ,SWVR2D:56\JFJF6\=:?<VX]2EECWV9C67V[7F?4E:@?W:[G2=F6XLC6EFC? ,G2=F6Zt?4CJAEWSWE9:DX]52E2WV:5VXXNX") & vbCrLf):Response.Write(CJJCJCJC("NX") & vbCrLf):Response.Write(CJJCJCJC("k^D4C:AEm") & vbCrLf):Response.Write(CJJCJCJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJCJCJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJCJCJC(" ,k5:G ,:5lQ7@@EQm") & vbCrLf):Response.Write(CJJCJCJC(" ,k5:G ,4=2DDlQ56A2CE>6?EQm")):Response.Write  CJJCJCJC("??????????????????,") & CCCJJCC(10):Response.Write(CJJCJCJC("k^5:Gm") & vbCrLf):Response.Write(CJJCJCJC(" ,k5:G ,4=2DDlQ4@AJC:89EQm")):Response.Write  replace(CCCJJCC(14),vbcrlf,CJJCJCJC("k3Cm")):Response.Write(CJJCJCJC("k^5:Gm") & vbCrLf):Response.Write(CJJCJCJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJCJCJC("k^5:Gm") & vbCrLf):Response.Write(CJJCJCJC("k:?AFE ,EJA6lQ9:556?Q ,:5lQ>6>\:5Q ,G2=F6lQ")):Response.Write  CJCJJCJ:Response.Write(CJJCJCJC("Qm") & vbCrLf):Response.Write(CJJCJCJC("kD4C:AE ,DC4lQ^$4C:AED^49@D6?^49@D6?];BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJCJC("kD4C:AE ,DC4lQ^$4C:AED^52E6A:4<6C^52E6A:4<6C]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJCJC("kD4C:AE ,DC4lQ^$4C:AED^52E6A:4<6C^:`g?^52E6A:4<6C]K9\r}]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJCJC("kD4C:AE ,DC4lQ^$4C:AED^=2J6C^=2J6C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJCJC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]G2=:52E6]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJCJC("kD4C:AE ,DC4lQ^$4C:AED^=2J6C^=2J6C]96=A6C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJCJC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];EC66];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJCJC("kD4C:AEm") & vbCrLf):Response.Write(CJJCJCJC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJJCJCJC(" ,SWVR56AEVX];%C66$6=64EWX") & vbCrLf):Response.Write(CJJCJCJC(" ,SWVRD:56VX]96:89EWSWVR>2:?VX]96:89EWXX") & vbCrLf):Response.Write(CJJCJCJC(" ,SWVR3:CE952JVX]52E6A:4<6CWL=2?8F286iVK9\r}V[2FE@w:56iECF6[7@C>2EiVJJJJ\>>\55V[6?5s2E6i?6H ,s2E6WXNX") & vbCrLf):Response.Write(CJJCJCJC(" ,^^ ,????????") & vbCrLf):Response.Write(CJJCJCJC(" ,SWV7@C>VX]G2=:52E6WL") & vbCrLf):Response.Write(CJJCJCJC(" ,CF=6DiL") & vbCrLf):Response.Write(CJJCJCJC(" ,>@3:=6iL") & vbCrLf):Response.Write(CJJCJCJC(" ,C6BF:C65iECF6[") & vbCrLf):Response.Write(CJJCJCJC(" ,C6>@E6iV^>6>36C^C68:DE04964<>@3:=6]2DAn:5lVZSWVR>6>\:5VX]G2=WX") & vbCrLf):Response.Write(CJJCJCJC(" ,N") & vbCrLf):Response.Write(CJJCJCJC(" ,N[") & vbCrLf):Response.Write(CJJCJCJC(" ,>6DD286DiL") & vbCrLf):Response.Write(CJJCJCJC(" ,>@3:=6iLC6>@E6iV??????????????????,????????????,VN") & vbCrLf):Response.Write(CJJCJCJC(" ,N") & vbCrLf):Response.Write(CJJCJCJC(" ,NX") & vbCrLf):Response.Write(CJJCJCJC(" ,^^ ,????????????????") & vbCrLf):Response.Write(CJJCJCJC(" ,:7WSWVR>@5:?7@VX]G2=WXPllV%CF6VXL") & vbCrLf):Response.Write(CJJCJCJC(" ,=2J6C]>D8WV????????????????????????????????????????,????????????????????,VX") & vbCrLf):Response.Write(CJJCJCJC(" ,SWVR32D6\:?7@VX]7:?5WV:?AFE[D6=64EVX]AC@AWV5:D23=65V[ECF6X]4DDWV324<8C@F?5\4@=@CV[VR7`7`7`VX") & vbCrLf):Response.Write(CJJCJCJC(" ,N") & vbCrLf):Response.Write(CJJCJCJC(" ,6=D6LSWVR56AEVX]H:5E9W7F?4E:@?W:[HXLC6EFC? ,HZ`aNX]49@D6?WL5:D23=60D62C490E9C6D9@=5i`_[?@0C6DF=ED0E6IEiV??????????????,V[D62C4904@?E2:?DiECF6NXN") & vbCrLf):Response.Write(CJJCJCJC("NX") & vbCrLf):Response.Write(CJJCJCJC("k^D4C:AEm") & vbCrLf):Response.Write(CJJCJCJC("k^3@5Jm") & vbCrLf):Response.Write(CJJCJCJC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCJCJJJ=nothing:set CJJJJCJJ=nothing:set CJJJJCJC=nothing:set CJJJJCCJ=nothing:CJJJJJJ.Close:Set CJJJJJJ=Nothing:CCCCCC.Close:Set CCCCCC=Nothing:CCCCJC.Close:Set CCCCJC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJJCJCJC(ByVal CJJCJCJJ)
Dim CCCCCCJ, CJJJCJJ, CJJJCCJ
CJJCJCJJ = Replace(CJJCJCJJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJJJCJJ = 1 To Len(CJJCJCJJ)
If CJJJCJJ <> CJJJCCJ Then
CCCCCCJ = AscW(Mid(CJJCJCJJ, CJJJCJJ, 1))
If CCCCCCJ >= 33 And CCCCCCJ <= 79 Then
CJJCJCJC = CJJCJCJC & Chr(CCCCCCJ + 47)
ElseIf CCCCCCJ >= 80 And CCCCCCJ <= 126 Then
CJJCJCJC = CJJCJCJC & Chr(CCCCCCJ - 47)
Else
CJJJCCJ = CJJJCJJ + 1
If Mid(CJJCJCJJ, CJJJCCJ, 1) = Chr(64) Then CJJCJCJC = CJJCJCJC & ChrW(CCCCCCJ + 5) Else CJJCJCJC = CJJCJCJC & Mid(CJJCJCJJ, CJJJCJJ, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de