<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJCCC, CCJJJ,CCJJC, CCJCJ, CCJCC:Set CJCCC = server.CreateObject(CCCCJCJ("ps~sq]r@??64E:@?")):CJCCC.open Application(CCCCJCJ("r@??64E:@?$EC:?8")):Set CCJJJ=CJCCC::Dim CCCJJ,CCCJC,CCCCJ,CCCCC,CJJJJJ,CJJJJC,CJJJCJ,CJJJCC,CJJCJJ:Dim CJJCJC,CJJCCJ,CJJCCC,CJCJJJ,CJCJJC,CJCJCJ:Dim CJCJCC,CJCCJJ,CJCCJC:Dim CJCCCJ:CJCCCJ=Trim(Request.Cookies(CCCCJCJ("!$*|t|qt#"))):if CJCCCJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CCCJJ>0 then
CCJCC=CCCCJCJ("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") & CCCJC & CCCCJCJ("V ,2?5 ,:5l") & CCCJJ
set CCJJC=CJCCC.execute(CCJCC):If CCJJC.EOF Then
Call ClearMemberCookie
Else
CCCCJ=CCJJC(2) & "":CCCCC=CCJJC(3):CJJJJJ=CCJJC(5):CJJJJC=CCJJC(6):CJJJCJ=CCJJC(9):CJJJCC=CCJJC(15):CJJCJC=CCJJC(0):CJCCJJ=CCJJC(1):CJCJCC=CCJJC(11) & "":CJJCCJ=CCJJC(10) & "":CJJCJJ=CCJJC(12):CJJCCC=CCJJC(14):CJCJJJ=CCJJC(13):CJCJJC=CCJJC(7) & "":CJCJCJ=CCJJC(4):CJCCJC=CCJJC(8):if isnull(CJJJCC) then CJJJCC=0
if isnull(CJJJCJ) or CJJJCJ=0 then CJJJCJ=CCCCC
if isnull(CJCJCJ) then CJCJCJ=0
if isnull(CJJJJJ) then CJJJJJ=0
if instr(CCCCJCJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CCCJC)>0 then Call RedirectMessage(CCCCJCJ("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CCCJJ,CCCJC)
End IF
end if:Sub CheckRight(CJJCJJJ):dim CJCCCC,CCJJJJ:if CCCJJ=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CCCCJCJ("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
elseIf not CCJJJCJ(CJJCJJJ) then
Call RedirectMessage(CCCCJCJ("朾@陋@W") & CJJCJJJ & CCCCJCJ("X袦@祼@歝@，,诲@三@糶@绚@箜@琁@呓@聏@糶@。,"))
end if:End Sub:Function CCJJJCJ(CJJCJJJ):dim CJCCCC,CCJJJJ:CCJJJJ=split(CJJCJJJ,CCCCJCJ("[")):CCJJJCJ=False:for CJCCCC=0 to ubound(CCJJJJ):If Mid(CCCCJ,CCJJJJ(CJCCCC),1)="1" then
CCJJJCJ=True:exit function
end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CCCCJCJ("!$*|t|qt#"))="":CCCJJ=0:CJJJJC=0:CCCJC=Empty:CJJJJJ=0:CJJJCC=0:CJJJCJ=0:CCCCC=0:CJJCJC=False:CJCCJJ=False:CJCCJC=Empty:End Sub:Sub CheckMemberCookie():dim CCJJJC,CCJJCJ,CJCCCC,CCJJCC,CCJCJJ:CCJJJC=split(CJCCCJ,CCCCJCJ("]")):if ubound(CCJJJC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CCJJJC(0)) or len(CCJJJC(1))<>32 or len(CCJJJC(2))<>32 then
Call ClearMemberCookie
else
CCJJCJ=CCJJJC(1):for CJCCCC=1 to len(CCJJCJ):CCJJCC=mid(CCJJCJ,CJCCCC,1):if isnumeric(CCJJCC) then CCJCJJ=CCJCJJ & CCJJCC
if len(CCJCJJ)=7 then exit for
next:CCJJCJ=CCJJJC(2):if CCJCJJ<>mid(CCJJCJ,6,7) then
Call ClearMemberCookie
else
CCJJCC=mid(CCJJCJ,18,10)/2:if CCJJCC<DateDiff(CCCCJCJ("D"), CCCCJCJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CCCJJ=Clng(CCJJJC(0)):CCCJC=CCJJJC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCJCJCC,CCCCJCC):dim CJCCCC,CCJJCC,CCJCJJ:for CJCCCC=1 to len(CCCCJCC):CCJJCC=mid(CCCCJCC,CJCCCC,1):if isnumeric(CCJJCC) then CCJCJJ=CCJCJJ & CCJJCC
if len(CCJCJJ)=7 then exit for
next:CCJCJJ=CCJCJCC & CCCCJCJ("]") & CCCCJCC & CCCCJCJ("]") & Fix(10000*(Rnd+1)) & CCJCJJ & Fix(10000*(Rnd+1)) & DateDiff(CCCCJCJ("D"), CCCCJCJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CCCCJCJ("!$*|t|qt#"))=CCJCJJ:End Sub:::Function IIf(CCCCCJJ, CCCCCJC, CCCCCCJ):if isnull(CCCCCJJ) or isempty(CCCCCJJ) then
IIf = CCCCCCJ
elseif CCCCCJJ Then
IIf = CCCCCJC
Else
IIf = CCCCCCJ
end if:End Function:Const CJCCCCC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::Sub Debug(str):response.Charset=CCCCJCJ("FE7\g"):dim CJCCCC,CCJJCC,CCJCJC:if isarray(str) then
on error resume next:CJCCCC=ubound(str,2):CCJCJC=err.number:err.clear:on error goto 0:if CCJCJC<>0 then
for CJCCCC=0 to ubound(str):if CJCCCC>0 then response.Write CCCCJCJ("k3C ,^m")
response.Write CJCCCC & CCCCJCJ("i ,") & str(CJCCCC):next
else
response.Write CCCCJCJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CJCCCC=0 to ubound(str,2):response.Write CCCCJCJ("kE9 ,2=:8?lV=67EVm") & CJCCCC & CCCCJCJ("k^E9m")
next:response.Write CCCCJCJ("k^ECm"):for CJCCCC=0 to ubound(str):response.Write CCCCJCJ("kECmkE9m") & CJCCCC & CCCCJCJ("k^E9m"):for CCJJCC=0 to ubound(str,2):response.Write CCCCJCJ("kE5m") & str(CJCCCC,CCJJCC) & CCCCJCJ("k^E5m"):next:response.Write CCCCJCJ("k^ECm"):next:response.Write CCCCJCJ("k^E23=6m")
end if
elseif isnull(str) then
response.Write CCCCJCJ(",}F==.")
else
Response.Write replace(str,vbcrlf,CCCCJCJ("k3Cm"))
end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CCCCCCC,CJJJJJJJ):dim CCJJJC:CCJJJC=CCCCCCC & CCCCJCJ("l") & CJJJJJJJ & CCCCJCJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCCCJCJ("$6E\r@@<:6"),CCJJJC):End Sub::::::sub ShowMessage(CJJJJJJC):response.Charset="utf-8":Response.Write CCCCJCJ("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") & CJJJJJJC & CCCCJCJ("k^5:Gmk^5:Gmk3Cm")
end sub:Function CCJJCJJ(CCJCJC):if isnull(CCJCJC) or trim(CCJCJC)="" or not isnumeric(CCJCJC) then
CCJJCJJ=false
else
Dim CCJCCJ:Set CCJCCJ = New RegExp:CCJCCJ.Pattern = CCCCJCJ("/-5ZS"):CCJCCJ.IgnoreCase = True:CCJJCJJ = CCJCCJ.test(CCJCJC):set CCJCCJ=nothing
end if:End Function:Function CCJJCJC(CJJJJJCJ):dim CCJCCC,CCCJJJ:CCJCCC=CCCCJCJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJJJJJCJ & CCCCJCJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CCCJJJ=CJCCC.execute(CCJCCC):CCJJCJC = CCCJJJ(0):if isnull(CCJJCJC) then CCJJCJC=1
CCCJJJ.close : set CCCJJJ=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CCCCJJ=nothing:set CCJJCCJ=nothing:set CCJJCCC=nothing:set CCJCJJJ=nothing:CCCJJJ.close : set CCCJJJ=nothing:CCJCJ.Close : Set CCJCJ=Nothing:CCJJC.Close : Set CCJJC=Nothing:CCJCJJC.Close : Set CCJCJJC = Nothing:CJCCC.Close : Set CJCCC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJJJJJC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCCCJCJ("!$*0|6DD286"),server.URLEncode(CJJJJJJC)):Response.Redirect CCCCJCJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::Sub CheckQueryTime(CJJJJJCC,CJJJJCJJ):dim str,CCJCJC:str=CCCCJCJ("!$*0") & Ucase(CJJJJJCC):if Session(str)<>"" then
CCJCJC=DateDiff(CCCCJCJ("D"),Session(str),Time):if CCJCJC<CJJJJCJJ and CCJCJC>0 then
Call ConnClose:Call ShowMessage(CCCCJCJ("柠@话@闯@随@忀@顶@夢@争@ ,") & CJJJJCJJ & CCCCJCJ(" ,种@，,迓@剤@ ,") & CJJJJCJJ-CCJCJC & CCCCJCJ(" ,种@！,")):response.End()
else
Session.Contents.Remove(str)
end if
end if:Session(str)=Time:End Sub:::::::Sub ArrayInit(CJJJJCJC):dim CJCCCC,CCJJCC,CCCJCJ,CCCJCC:on error resume next:CCCJCJ=ubound(CJJJJCJC):CCCJCC=ubound(CJJJJCJC,2):if err.number<>0 then
err.clear:for CJCCCC=0 to CCCJCJ:CJJJJCJC(CJCCCC)=0:next
else
for CJCCCC=0 to CCCJCJ:for CCJJCC=0 to CCCJCC:CJJJJCJC(CJCCCC,CCJJCC)=0:next:next
end if:End Sub:::Sub ClearCache(CJJJJCCJ):Application.Contents.Remove CJJJJCCJ
End Sub::Class jTree:Private CCJCC, CCCCJJ, CCCCJC, CCCCCJ,CCCCCC,CJJJJJJ,CJJJJJC,CJJJJCJ:Private Sub Class_Initialize():CCCCJC = 0:CCCCCJ = 0:CJJJJCJ=10:End Sub:Public Property Let Table(CJJJJCCC):if CJJJJCCC="" then Call RedirectMessage(CCCCJCJ("寴@丈@赲@，,;%C66籶@宙@來@匑@旱@沜@朄@讹@罩@忀@襼@癿@屙@怢@！,"))
CCCCCC=CJJJJCCC:CJJJJJJ=CCCCJCJ("!$*0") & UCase(CCCCCC):Call GetTreeArray:End Property:Public Property Get Table():Table=CCCCCC:End Property:::Private Sub GetTreeArray():Dim CJCCCC, CCJJCC, CJJJJCC,CJJJCJJ:CCCCJJ = Application(CJJJJJJ):If Not IsArray(CCCCJJ) Then
CCJCC = CCCCJCJ("D6=64E ,4@F?EW:5X ,7C@> ,") & CCCCCC:if CJJJJJC<>"" then CCJCC=CCJCC & CCCCJCJ(" ,H96C6 ,") & CJJJJJC
set CJJJJCC=CJCCC.execute(CCJCC):CJJJCJJ=CJJJJCC(0):if CJJJCJJ=0 then Call RedirectMessage(CCCCJCJ("柠@话@W") & CCCCCC & CCCCJCJ("^") & CJJJJJC & CCCCJCJ("X沜@朄@绎@林@敫@捩@"))
CCCCCJ=CJJJCJJ+CJJJJCJ:ReDim CCCCJJ(CCCCCJ, 4):CCJCC = CCCCJCJ("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCCCCC & CCCCJCJ(" ,H:E9 ,W?@=@4<X"):if CJJJJJC<>"" then CCJCC=CCJCC & CCCCJCJ(" ,H96C6 ,") & CJJJJJC
CCJCC=CCJCC & CCCCJCJ(" ,@C56C ,3J ,D@CE[:5"):set CJJJJCC=CJCCC.execute(CCJCC):For CJCCCC = 1 To CJJJCJJ:For CCJJCC = 0 To 4:CCCCJJ(CJCCCC, CCJJCC) = CJJJJCC(CCJJCC):if IsNull(CCCCJJ(CJCCCC,4)) then CCCCJJ(CJCCCC,4)=0
If CCCCJJ(CJCCCC,2)="" then CCCCJJ(CJCCCC,2)=CCCCJCJ(",穵@.")
Next:CJJJJCC.MoveNext:Next:CJJJJCC.Close: Set CJJJJCC = Nothing:for CJCCCC=CCCCCJ-(CJJJJCJ-1) to CCCCCJ:CCCCJJ(CJCCCC,0)=CJCCCC:next:Application.Lock():Application(CJJJJJJ) = CCCCJJ:Application.UnLock()
else
CCCCCJ=Ubound(CCCCJJ)
End If:End Sub::::Public Function GetChild(CCJCJCC):Dim CJCCCC, Str:CCJCJCC=CLng(CCJCJCC):For CJCCCC = 1 To CCCCCJ:If CCCCJJ(CJCCCC, 1) = CCJCJCC Then Str = Str & CCCCJCJ("M") & CCCCJJ(CJCCCC, 0) & CCCCJCJ("M") & CCCCJJ(CJCCCC,2)
Next:If Str <> "" Then Str = Mid(Str, 2)
GetChild = Split(str,CCCCJCJ("M")):End Function:Private Function CCJCCJC(CCJCJCC):dim CJCCCC,CJJJCJC:CCJCCJC=0:CJJJCJC=CStr(CCJCJCC):if CJJJCJC<>"0" then
for CJCCCC=1 to CCCCCJ:If CStr(CCCCJJ(CJCCCC, 0))=CJJJCJC Then
CCJCCJC = CJCCCC:Exit For
End If:Next
end if:End Function:Public Function GetCurName(CCJCJCC):if Cstr(CCJCJCC)="0" then
GetCurName=CCCCJCJ("栴@")
else
Dim CJCCCC,CJJJJCC:CJCCCC=CCJCCJC(CCJCJCC):if CJCCCC>0 then
GetCurName=CCCCJJ(CJCCCC,2):if GetCurName="" then
set CJJJJCC=CJCCC.execute(CCCCJCJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCCCCC & CCCCJCJ(" ,H96C6 ,:5l") & CCJCJCC):if CJJJJCC.eof then Call RedirectMessage(CCCCJCJ("xs（,") & CCJCJCC & CCCCJCJ("）,朥@批@别@"))
GetCurName=CJJJJCC(1):Call UpdateCache(CCJCJCC,CJJJJCC(0),GetCurName,CJJJJCC(2),CJJJJCC(3)):CJJJJCC.Close: Set CJJJJCC = Nothing
end if
else
set CJJJJCC=CJCCC.execute(CCCCJCJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCCCCC & CCCCJCJ(" ,H96C6 ,:5l") & CCJCJCC):if CJJJJCC.eof then Call RedirectMessage(CCCCJCJ("xs（,") & CCJCJCC & CCCCJCJ("）,朥@批@别@"))
GetCurName=CJJJJCC(1):Call UpdateCache(CCJCJCC,CJJJJCC(0),GetCurName,CJJJJCC(2),CJJJJCC(3)):CJJJJCC.Close: Set CJJJJCC = Nothing
end if
end if:End Function:::Public Function CCJCCCC(CCJCJCC):Dim CJCCCC,CJJJCCJ:CJCCCC=CCJCCJC(CCJCJCC):if CJCCCC=0 then
CJJJCCJ=CCCJJJJ(CCJCJCC)
else
CJJJCCJ=CCCCJJ(CJCCCC,3):if isnull(CJJJCCJ) or CJJJCCJ="" then
CJJJCCJ=CCCJJJJ(CCJCJCC)
elseif Mid(CJJJCCJ,instrrev(CJJJCCJ,CCCCJCJ("["))+1)<>CStr(CCJCJCC) then
CJJJCCJ=CCCJJJJ(CCJCJCC)
elseif Left(CJJJCCJ,1)=CCCCJCJ("[") then
CJJJCCJ=CCCJJJJ(CCJCJCC)
end if
end if:CCJCCCC=CJJJCCJ:End Function:Private Function CCCJJJJ(CCJCJCC):dim CJJJCJC:CJJJCJC=CStr(CCJCJCC):if CJJJCJC="0" then
CCCJJJJ=""
else
dim CJJJJCC:set CJJJJCC=CJCCC.execute(CCCCJCJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCCCCC & CCCCJCJ(" ,H96C6 ,:5l") & CCJCJCC):if CJJJJCC.eof then
Call UpdateCache(CCJCJCC,"","","",""):Call RedirectMessage(CCCCJCJ("顴@盩@（,xs：,") & CCJCJCC & CCCCJCJ("）,丈@孓@圣@，,诲@患@迏@囙@吉@釈@斫@擈@佗@。,"))
else
if CJJJJCC(0)=0 then
CCCJJJJ="0," & CCJCJCC
else
CCCJJJJ=CCJCCCC(CJJJJCC(0)) & CCCCJCJ("[") & CCJCJCC
end if:if CJJJJCC(2)<>CCCJJJJ then
CJCCC.execute CCCCJCJ("FA52E6 ,") & CCCCCC & CCCCJCJ(" ,D6E ,A2E9lV") & CCCJJJJ & CCCCJCJ("V ,H96C6 ,:5l") & CCJCJCC
else
CCCJJJJ=CJJJJCC(2)
end if
end if:Call UpdateCache(CCJCJCC,CJJJJCC(0),CJJJJCC(1),CCCJJJJ,CJJJJCC(3)):CJJJJCC.Close: Set CJJJJCC = Nothing
end if:End Function::Public Function CCCJJJC(CCJCJCC):CCCJJJC = Mid(CCJCCCC(CCJCJCC), 3):End Function:Public Function CCCJJCJ(CCJCJCC):Dim CJCCCC, CCJJCC, CJJJCCC,Str, CJJJCCJ, CJJCJJJ, CCJJJJ():CJJJCCJ = CCCJJJC(CCJCJCC):CJJJCCJ = Split(CJJJCCJ, CCCCJCJ("[")):for CJCCCC=0 to Ubound(CJJJCCJ):CJJJCCC=CJJJCCJ(CJCCCC):str=str & CCCCJCJ("M") & CJJJCCC & CCCCJCJ("M") & GetCurName(CJJJCCC):next:if str<>"" then str=Mid(str,2)
CCCJJCJ=str:End Function:Public Function IsParent(CJJJCJJJ, CJJJCJJC):IsParent=InStr(CCJCCCC(CJJJCJJC) & CCCCJCJ("["), CCCCJCJ("[") & CJJJCJJJ & CCCCJCJ("[")) > 0:End Function::::::::Public Function Sql_GetChildren(CCJCJCC):dim CJJJCCJ:CJJJCCJ=CCJCCCC(CCJCJCC):Sql_GetChildren = CCCCCC & CCCCJCJ("0A2E9ZV[V ,=:<6 ,V") & CJJJCCJ & CCCCJCJ("[TV")
End Function:::Public Function GetPositionStr_From(CCJCJCC, CCCJCCJ):if isnull(CCJCJCC) or isnull(CCCJCCJ) then
GetPositionStr_From=CCCCJCJ(",厽@敫@锔@诪@."):exit function
end if:Dim Str, CJCCCC, CCJJJJ, CJJCJJJ, CJJCJJC:CCCJCCJ = CStr(CCCJCCJ):If CCCJCCJ = "0" or CCCJCCJ = CStr(CCJCJCC) Then
Str = GetCurName(CCJCJCC)
Else
CCJJJJ = Split(CCCJJCJ(CCJCJCC), CCCCJCJ("M")):CJJCJJJ = UBound(CCJJJJ):CJJCJJC = False:For CJCCCC = 0 To CJJCJJJ Step 2:If CCJJJJ(CJCCCC) = CCCJCCJ And Not CJJCJJC Then CJJCJJC = True
If CJJCJJC Then
If Str <> "" Then Str = Str & CCCCJCJ("→,")
Str = Str & CCJJJJ(CJCCCC + 1)
End If:Next
End If:str=Mid(str,instr(str,CCCCJCJ("→,"))+1):GetPositionStr_From = Str:End Function:::::::Public Sub ClearCache():Application.Contents.Remove CJJJJJJ
End Sub:Public Sub UpdateCache(CCJCJCC,CJJJCCC,CJJJCJCJ,CJJJCCJ,CJJJCJCC):dim CJCCCC,CCJJCC:CCJCJCC=CLng(CCJCJCC):CJCCCC=CCJCCJC(CCJCJCC):if CJJJCCC="" and CJJJCJCJ="" and CJJJCCJ="" and CJJJCJCC="" then
if CJCCCC>0 then
for CCJJCC=1 to 4:CCCCJJ(CJCCCC,CCJJCC)=Null:next
end if
else
if CJCCCC=0 then
for CCJJCC=1 to CCCCCJ:if CCCCJJ(CCJJCC,1) & ""="" then
CJCCCC=CCJJCC:exit for
end if:next
end if:if CJCCCC=0 then
Call ClearCache
else
CCCCJJ(CJCCCC,0)=CLng(CCJCJCC):if CJJJCCC<>"" then CCCCJJ(CJCCCC,1)=CLng(CJJJCCC)
if CJJJCJCJ<>"" then CCCCJJ(CJCCCC,2)=CJJJCJCJ
if CJJJCCJ<>"" then CCCCJJ(CJCCCC,3)=CJJJCCJ
if CJJJCJCC<>"" then CCCCJJ(CJCCCC,4)=CLng(CJJJCJCC)
end if
end if:if CJCCCC>0 then
Application.Lock():Application(CJJJJJJ) = CCCCJJ:Application.UnLock()
end if:End Sub:Private Sub Debug(CJJJJJJC):Call ConnClose:Response.Write CJJJJJJC:Response.End:End Sub:Private Function CCJJCJC():CCJJCJC=CCCJCCC+1:End Function:Private Function CCCJCCC():dim CCCJJJ:set CCCJJJ=CJCCC.execute(CCCCJCJ("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CCCCCC & CCCCJCJ(" ,@C56C ,3J ,:5 ,56D4")):CCCJCCC=CCCJJJ(0):CCCJJJ.Close: Set CCCJJJ = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Const CCJJJJJ=159:Const CCJJJJC="中小学生心理普查问卷":Call CheckRight("54,81"):Call CheckQueryTime(CCCCJCJ("%6DE0#6A@CE"),15):dim CJJCJCJ,CJJCJCC,CJJCCJJ,CJJCCJC,CJJCCCJ,CJJCCCC:CJJCCCC=Request.QueryString(CCCCJCJ("$49@@=")):CJJCJCJ=Request.QueryString(CCCCJCJ("s6AE")):CJJCJCC=Request.QueryString(CCCCJCJ("vC256")):CJJCCJJ=Request.QueryString(CCCCJCJ("vC@FA")):CJJCCJC=Request.QueryString(CCCCJCJ("E`")):CJJCCCJ=Request.QueryString(CCCCJCJ("Ea")):if not CCJJCJJ(CJJCJCJ) then Call RedirectMessage(CCCCJCJ("寴@丈@赲@，,糶@绚@厽@敫@丝@夬@！,"))
dim CCCCJJ:set CCCCJJ=new jtree:CCCCJJ.table=CCCCJCJ(">6>36C0EJA6"):if not CCCCJJ.IsParent(CCCCC,CJJCJCJ) then Call RedirectMessage(CCCCJCJ("诠@苾@囯@W") & CJJCJCJ & CCCCJCJ("X丈@圣@患@W") & CCCCC & CCCCJCJ("X癿@箜@琁@苾@囯@冀@。,"))
dim CCCCJJJ:CCCCJJJ=CCCCJJ.GetChild(CJJCJCJ):if ubound(CCCCJJJ)<0 then Call RedirectMessage(CCCCJCJ("陝@糶@苾@囯@诲@丈@襼@逄@别@曻@庐@尽@！,"))
CCCCJJJ=join(CCCCJJJ,CCCCJCJ("M")) & CCCCJCJ("M_M共@仑@"):CCCCJJJ=split(CCCCJJJ,CCCCJCJ("M")):dim CJCJJJJ:CJCJJJJ=CCCCJJ.GetCurName(CJJCJCJ):dim CJCCCC,CCJJCC,CCJCJJ,CJCJJJC,CJCJJCJ,CJCJJCC:dim CJCJCJJ():redim CJCJCJJ((ubound(CCCCJJJ)-1)/2,5):for CJCCCC=0 to ubound(CCCCJJJ)-1 step 2:CCJCJJ=CJCCCC/2:CJCJCJJ(CCJCJJ,0)=CCCCJJJ(CJCCCC):CJCJCJJ(CCJCJJ,1)=CCCCJJJ(CJCCCC+1):for CCJJCC=2 to ubound(CJCJCJJ,2):CJCJCJJ(CCJCJJ,CCJJCC)=0:next:next:dim CJCJCJC(1,4):Call ArrayInit(CJCJCJC):CJCJCJC(0,0)=CCCCJCJ("甲@"):CJCJCJC(1,0)=CCCCJCJ("奮@"):dim CCJJJJ,CJCJCCJ,CJCJCCC,CJCCJJJ,CJCCJJC,CJCCJCJ,CJCCJCC:CJCCJJJ=Date:CJCCJJC=cdate(CCCCJCJ("a___\`\`")):dim CJCCCJJ(2):Call ArrayInit(CJCCCJJ):dim CJCCCJC,CJCCCCJ:CCJCC=CCCCJCJ("D6=64E ,52E6E:>6[C6DF=E[D6I[C6DF=E056E2:=[>6>36C0EJA60A2E9[C62=?2>6[2?DH6C[>6>36CEJA6 ,7C@> ,G0E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,=3l") & CCJJJJJ & CCCCJCJ(" ,2?5 ,G2=:5l`"):if cstr(CJJCJCJ)=cstr(CJJCCCC) then CCJCC=CCJCC & CCCCJCJ(" ,2?5 ,>6>36C0EJA60E@Al") & CJJCCCC else CCJCC=CCJCC & CCCCJCJ(" ,2?5 ,") & CCCCJJ.Sql_GetChildren(CJJCJCJ)
if CCJJCJJ(CJJCJCC) then CCJCC=CCJCC & CCCCJCJ(" ,2?5 ,8C256l") & CJJCJCC
if CCJJCJJ(CJJCCJJ) then CCJCC=CCJCC & CCCCJCJ(" ,2?5 ,4FDE@>8C@FAl") & CJJCCJJ
if isdate(CJJCCJC) then CCJCC=CCJCC & CCCCJCJ(" ,2?5 ,52E6E:>6mlV") & CJJCCJC & CCCCJCJ("V")
if isdate(CJJCCCJ) then CCJCC=CCJCC & CCCCJCJ(" ,2?5 ,52E6E:>6kV") & cdate(CJJCCCJ)+1 & CCCCJCJ("V")
CCJCC=CCJCC & CCCCJCJ(" ,@C56C ,3J ,>6>36CEJA6"):set CCJJC=CCJJJ.execute(CCJCC):if CCJJC.eof then Call RedirectMessage(CCCCJCJ("寴@丈@赲@，,迓@沜@朄@浆@访@讫@彐@！,"))
while not CCJJC.eof:CCJCJJ=CCJJC(0):if CCJCJJ<CJCCJJJ then CJCCJJJ=CCJCJJ
if CCJCJJ>CJCCJJC then CJCCJJC=CCJCJJ
CCJJCC=CCJJC(1):if CCJJCC="4" then
CCJCJJ=0
elseif CCJJCC="3" then
CCJCJJ=1
else
CCJCJJ=2
end if:CJCCCJJ(CCJCJJ)=CJCCCJJ(CCJCJJ)+1:if CCJJC(2) then CCJJCC=0 else CCJJCC=1
CJCJCJC(CCJJCC,1)=CJCJCJC(CCJJCC,1)+1:CCJCJJ=CCJCJJ+2:CJCJCJC(CCJJCC,CCJCJJ)=CJCJCJC(CCJJCC,CCJCJJ)+1:CCJJCC=ubound(CJCJCJJ):for CJCCCC=0 to CCJJCC-1:if instr(CCJJC(4) & CCCCJCJ("["),CCCCJCJ("[") & CJCJCJJ(CJCCCC,0) & CCCCJCJ("["))>0 then
CCJJCC=CJCCCC:exit for
end if:next:CJCCCC=CCJJCC:CJCJCJJ(CJCCCC,2)=CJCJCJJ(CJCCCC,2)+1:CCJCJJ=CCJCJJ+1:CJCJCJJ(CJCCCC,CCJCJJ)=CJCJCJJ(CJCCCC,CCJCJJ)+1:CCJJJJ=split(CCJJC(3),CCCCJCJ("M")):if CCJJJJ(0)=CCCCJCJ("廽@帳@") or CCJJJJ(1)=CCCCJCJ("髓@") or CCJJJJ(2)=CCCCJCJ("髓@") or CCJJJJ(3)=CCCCJCJ("佉@") or CCJJJJ(4)=CCCCJCJ("廽@帳@") or CCJJC(1)="4" or CCJJC(1)="3" then
if CCJJC(7)<>CJCCCJC then
CJCCCJC=CCJJC(7):CJCCCCJ=CCCCJJ.GetPositionStr_From(CJCCCJC,CJJCCCC)
end if:CJCCJCJ=CJCCJCJ & CCJJC(5) & CCCCJCJ("M") & CJCCCCJ & CCCCJCJ("M") & IIf(CCJJJJ(0)=CCCCJCJ("廽@帳@"),CCCCJCJ("廽@帳@"),"") & CCCCJCJ("M") & IIf(CCJJJJ(1)=CCCCJCJ("髓@"),CCCCJCJ("廽@帳@"),"") & CCCCJCJ("M") & IIf(CCJJJJ(2)=CCCCJCJ("髓@"),CCCCJCJ("廽@帳@"),"") & CCCCJCJ("M") & IIf(CCJJJJ(3)=CCCCJCJ("佉@"),CCCCJCJ("廽@帳@"),"") & CCCCJCJ("M") & IIf(CCJJJJ(4)=CCCCJCJ("廽@帳@"),CCCCJCJ("廽@帳@"),"") & CCCCJCJ("M") & CCJJJJ(6) & vbcrlf
end if:CJCJCCJ=split(CCCCJCJ("M") & CCJJC(6),CCCCJCJ("M")):if CJCJCCJ(2)="1" or CJCJCCJ(3)="1" or CJCJCCJ(4)="1" or CJCJCCJ(11)="1" or CJCJCCJ(13)="1" or CJCJCCJ(15)="1" then
if CCJJC(7)<>CJCCCJC then
CJCCCJC=CCJJC(7):CJCCCCJ=CCCCJJ.GetPositionStr_From(CJCCCJC,CJJCCCC)
end if:CJCCJCC=CJCCJCC & CCJJC(5) & CCCCJCJ("M") & CJCCCCJ & CCCCJCJ("M") & IIf(CJCJCCJ(2)="1",CCCCJCJ("昪@"),"") & CCCCJCJ("M") & IIf(CJCJCCJ(3)="1",CCCCJCJ("昪@"),"") & CCCCJCJ("M") & IIf(CJCJCCJ(4)="1",CCCCJCJ("账@囫@"),"") & CCCCJCJ("M") & IIf(CJCJCCJ(11)="1",CCCCJCJ("昪@"),"") & CCCCJCJ("M") & IIf(CJCJCCJ(13)="1",CCCCJCJ("昪@"),"") & CCCCJCJ("M") & IIf(CJCJCCJ(15)="1",CCCCJCJ("昪@"),"") & CCCCJCJ("M") & CCJJJJ(6) & vbcrlf
end if:CJCJCCC=CJCJCCC+1:CCJJC.movenext:wend:Response.Write(vbCrLf):Response.Write(CCCCJCJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CCCCJCJ("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CCCCJCJ("k9625m") & vbCrLf):Response.Write(CCCCJCJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CCCCJCJ("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CCCCJCJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CCCCJCJ("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CCCCJCJ("kE:E=6m")):Response.Write  CJCJJJJ:Response.Write(CCCCJCJ("\")):Response.Write  CCJJJJC:Response.Write(CCCCJCJ("浆@诐@绎@林@抠@呅@k^E:E=6m") & vbCrLf):Response.Write(CCCCJCJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^2>2K6F:\36E2^4DD^2>2K6F:]>:?]4DDQm") & vbCrLf):Response.Write(CCCCJCJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^2FE@4;D^4DD^2FE@4]>:?]4DDQm") & vbCrLf):Response.Write(CCCCJCJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^4DD^C6A@CE]4DDQm") & vbCrLf):Response.Write(CCCCJCJ("kDEJ=6m") & vbCrLf):Response.Write(CCCCJCJ("k^DEJ=6m") & vbCrLf):Response.Write(CCCCJCJ("kDEJ=6 ,>65:2lQAC:?EQm") & vbCrLf):Response.Write(CCCCJCJ("3@5J ,L ,324<8C@F?5\4@=@Ci ,EC2?DA2C6?Ej ,N") & vbCrLf):Response.Write(CCCCJCJ("2CE:4=6 ,L ,H:5E9i ,`__Tj ,>2C8:?i ,_j ,A255:?8i ,_j ,3@I\D925@Hi ,?@?6j ,324<8C@F?5\4@=@Ci ,EC2?DA2C6?Ej ,N") & vbCrLf):Response.Write(CCCCJCJ("7@@E6C[]2FE@4;D ,L ,5:DA=2Ji ,?@?6j ,N") & vbCrLf):Response.Write(CCCCJCJ("k^DEJ=6m") & vbCrLf):Response.Write(CCCCJCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCCJCJ("kD4C:AE ,DC4lQ^$4C:AED^6492CED^6492CED]4@>>@?]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCCJCJ("k^9625m") & vbCrLf):Response.Write(CCCCJCJ("k3@5Jm") & vbCrLf):Response.Write(CCCCJCJ("k2CE:4=6 ,4=2DDlQ2>\4@?E2:?6CQm") & vbCrLf):Response.Write(CCCCJCJ(" ,k5:G ,4=2DDlQ:??6CQm") & vbCrLf):Response.Write(CCCCJCJ(" ,k9`mkD>2==m")):Response.Write  CJCJJJJ:Response.Write(CCCCJCJ("k^D>2==mk3Cm")):Response.Write  CCJJJJC:Response.Write(CCCCJCJ("浆@诐@绎@林@抠@呅@k^9`m") & vbCrLf):Response.Write(CCCCJCJ(" ,k9am` ,斸@浆@惀@冰@k^9am") & vbCrLf):Response.Write(CCCCJCJ(" ,kD64E:@?m") & vbCrLf):Response.Write(CCCCJCJ(" ,k9bm`]` ,释@衣@筻@仆@k^9bm") & vbCrLf):Response.Write(CCCCJCJ(" ,kD64E:@?m") & vbCrLf):Response.Write(CCCCJCJ(" ,kAm《,丨@尊@孡@徾@琁@晩@柠@闩@卲@》,昪@丨@囸@徾@琁@罌@砏@双@亵@呓@寴@囸@冀@夑@兮@争@臥@朻@斴@靝@癿@夢@释@砏@穱@斂@猩@迖@衇@砏@诶@、,刁@枋@、,缑@撫@癿@闩@卲@，,闩@卲@浆@柠@癿@苾@囯@匀@拧@亏@严@斴@靝@。,k^Am") & vbCrLf):Response.Write(CCCCJCJ(" ,kAm（,`）,甚@洶@绊@厁@，,匀@拧@一,亖@三@严@亵@戋@镺@叭@咇@彎@剈@甚@洶@犱@冰@朄@兮@癿@闩@颓@，,丶@襼@産@杠@浆@柠@宱@庨@劚@胸@、,宱@庨@绊@浉@惀@冰@、,爱@毈@敔@其@斴@弊@、,章@幯@绊@厁@、,荪@牤@滠@産@、,宱@旊@粹@祙@疹@痀@叭@咇@臥@朻@叭@、,严@亵@粹@祙@疹@痀@叭@咇@臥@朻@朥@逽@绊@厁@筄@；,k^Am") & vbCrLf):Response.Write(CCCCJCJ(" ,kAm（,a）,亵@样@牴@责@，,浆@柠@癿@昪@三@臥@朻@髓@盳@兮@癿@亵@样@牴@责@癿@氯@幮@，,返@亖@牴@责@匀@拧@惀@绥@丈@種@宕@、,衇@丵@冭@劣@、,序@寴@斴@弊@涃@杼@、,怘@绯@斴@弊@僰@匑@筄@；,k^Am") & vbCrLf):Response.Write(CCCCJCJ(" ,kAm（,b）,甚@洶@了@仱@，,丶@襼@浆@柠@严@低@迌@杠@戻@遂@别@癿@序@澻@甚@洶@了@仱@癿@惀@冰@；,k^Am") & vbCrLf):Response.Write(CCCCJCJ(" ,kAm（,c）,礹@伕@攪@拼@，,丶@襼@浆@柠@严@低@彎@剈@戻@胸@莲@徒@癿@杠@臥@宱@亵@、,朆@叆@、,吇@孡@筄@癿@礹@伕@攪@拼@惀@冰@；,k^Am") & vbCrLf):Response.Write(CCCCJCJ(" ,kAm（,d）,抌@邼@，,浆@释@癿@昪@严@低@圣@曻@迌@丟@呣@癿@無@虌@、,抌@邼@氯@幮@。,k^Am") & vbCrLf):Response.Write(CCCCJCJ(" ,kAm怶@刁@超@髓@，,误@昉@严@低@癿@臥@朻@潗@圣@飉@除@超@髓@。,k^Am") & vbCrLf):Response.Write(CCCCJCJ(" ,k^D64E:@?m") & vbCrLf):Response.Write(CCCCJCJ(" ,k9bm`]a ,浆@访@惀@冰@k^9bm") & vbCrLf):Response.Write(CCCCJCJ(" ,kD64E:@?m") & vbCrLf):Response.Write(CCCCJCJ(" ,kAm浆@访@旱@闯@丵@：,")):Response.Write  formatdatetime(CJCCJJJ,1):Response.Write(CCCCJCJ("～,")):Response.Write  formatdatetime(CJCCJJC,1):Response.Write(CCCCJCJ("k^Am") & vbCrLf):Response.Write(CCCCJCJ(" ,kAm") & vbCrLf):Response.Write(CCCCJCJ(" ,《,丨@尊@孡@甚@徾@琁@晩@柠@闩@卲@》,宙@陀@厽@三@浆@访@")):Response.Write  CJCJCCC:Response.Write(CCCCJCJ("亵@。,宙@浆@亵@羟@丨@，,甲@甚@")):Response.Write  CJCJCJC(0,1):Response.Write(CCCCJCJ("亵@，,奮@甚@")):Response.Write  CJCJCJC(1,1):Response.Write(CCCCJCJ("亵@；,") & vbCrLf):Response.Write(CCCCJCJ(" ,")):CCJJCC=0:for CJCCCC=0 to ubound(CJCJCJJ):if CJCJCJJ(CJCCCC,2)>0 then
CCJJCC=CCJJCC+1:response.Write CJCJCJJ(CJCCCC,1) & CJCJCJJ(CJCCCC,2) & CCCCJCJ("亵@，,")
end if:next:Response.Write(vbCrLf):Response.Write(CCCCJCJ(" ,公@讜@")):Response.Write  CCJJCC:Response.Write(CCCCJCJ("严@卐@佈@。,") & vbCrLf):Response.Write(CCCCJCJ(" ,k^Am") & vbCrLf):Response.Write(CCCCJCJ(" ,k^D64E:@?m") & vbCrLf):Response.Write(CCCCJCJ(" ,k^D64E:@?m") & vbCrLf):Response.Write(CCCCJCJ(" ,k9ama ,怶@低@绎@林@k^9am") & vbCrLf):Response.Write(CCCCJCJ(" ,kD64E:@?m") & vbCrLf):Response.Write(CCCCJCJ(" ,")):redim CCJJJJ(2):CCJJJJ(0)=FormatPercent(CJCCCJJ(0)/CJCJCCC,2,-1):CCJJJJ(1)=FormatPercent(CJCCCJJ(1)/CJCJCCC,2,-1):CCJJJJ(2)=FormatPercent((CJCCCJJ(0)+CJCCCJJ(1))/CJCJCCC,2,-1):Response.Write(vbCrLf):Response.Write(CCCCJCJ(" ,kAm《,丨@尊@孡@徾@琁@晩@柠@闩@卲@》,梻@凵@，,潗@圣@飉@除@杼@髓@亵@敫@丵@k4@56m")):Response.Write  CJCCCJJ(0):Response.Write(CCCCJCJ("k^4@56m亵@，,卛@兣@栜@厽@三@浆@访@怶@亵@敫@癿@k4@56m")):Response.Write  CCJJJJ(0):Response.Write(CCCCJCJ("k^4@56m；,潗@圣@飉@除@轾@髓@丵@k4@56m")):Response.Write  CJCCCJJ(1):Response.Write(CCCCJCJ("k^4@56m亵@，,卛@兣@栜@厽@三@浆@访@怶@亵@敫@癿@k4@56m")):Response.Write  CCJJJJ(1):Response.Write(CCCCJCJ("k^4@56m。,共@卛@兣@栜@宙@浆@亵@敫@癿@每@來@好@囹@戻@礵@。,k^Am") & vbCrLf):Response.Write(CCCCJCJ(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lA:6U9lb__UIl杼@髓@M轾@髓@M歞@帳@UGl")):Response.Write  join(CJCCCJJ,CCCCJCJ("M")):Response.Write(CCCCJCJ("Qmk^D4C:AEm") & vbCrLf):Response.Write(CCCCJCJ(" ,kE23=6 ,4=2DDlQ2>\E23=6 ,2>\E23=6\DEC:A65 ,2>\E23=6\9@G6C ,2>\E23=6\4@>A24E ,2>\E23=6\46?E6C65 ,2>\E23=6\3@C56C65 ,2>\E6IE\D>Qm") & vbCrLf):Response.Write(CCCCJCJ(" ,k42AE:@?m三@兣@囸@帳@樜@每@轾@k^42AE:@?m") & vbCrLf):Response.Write(CCCCJCJ(" ,kE9625m") & vbCrLf):Response.Write(CCCCJCJ(" ,kECm") & vbCrLf):Response.Write(CCCCJCJ(" ,kE9m潗@圣@飉@除@k^E9m") & vbCrLf):Response.Write(CCCCJCJ(" ,kE9m朧@欜@梻@凵@玂@k^E9m") & vbCrLf):Response.Write(CCCCJCJ(" ,kE9m尊@孡@阱@殰@帳@樜@k^E9m") & vbCrLf):Response.Write(CCCCJCJ(" ,kE9m刘@丨@阱@殰@帳@樜@k^E9m") & vbCrLf):Response.Write(CCCCJCJ(" ,kE9m髓@丨@阱@殰@帳@樜@k^E9m") & vbCrLf):Response.Write(CCCCJCJ(" ,kE9m丨@聇@帳@樜@k^E9m") & vbCrLf):Response.Write(CCCCJCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCCJCJ(" ,k^E9625m") & vbCrLf):Response.Write(CCCCJCJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CCCCJCJ(" ,kECm") & vbCrLf):Response.Write(CCCCJCJ(" ,kE5m杼@髓@k^E5m") & vbCrLf):Response.Write(CCCCJCJ(" ,kE5m")):Response.Write  CCJJJJ(0):Response.Write(CCCCJCJ("k^E5m") & vbCrLf):Response.Write(CCCCJCJ(" ,kE5ma]g_Tk^E5m") & vbCrLf):Response.Write(CCCCJCJ(" ,kE5md]ddTk^E5m") & vbCrLf):Response.Write(CCCCJCJ(" ,kE5md]cdTk^E5m") & vbCrLf):Response.Write(CCCCJCJ(" ,kE5mh]`dTk^E5m") & vbCrLf):Response.Write(CCCCJCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCCJCJ(" ,kECm") & vbCrLf):Response.Write(CCCCJCJ(" ,kE5m轾@髓@k^E5m") & vbCrLf):Response.Write(CCCCJCJ(" ,kE5m")):Response.Write  CCJJJJ(1):Response.Write(CCCCJCJ("k^E5m") & vbCrLf):Response.Write(CCCCJCJ(" ,kE5mc]a_Tk^E5m") & vbCrLf):Response.Write(CCCCJCJ(" ,kE5mf]edTk^E5m") & vbCrLf):Response.Write(CCCCJCJ(" ,kE5mh]fdTk^E5m") & vbCrLf):Response.Write(CCCCJCJ(" ,kE5mh]ddTk^E5m") & vbCrLf):Response.Write(CCCCJCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCCJCJ(" ,kECm") & vbCrLf):Response.Write(CCCCJCJ(" ,kE5m杼@髓@Z轾@髓@k^E5m") & vbCrLf):Response.Write(CCCCJCJ(" ,kE5m")):Response.Write  CCJJJJ(2):Response.Write(CCCCJCJ("k^E5m") & vbCrLf):Response.Write(CCCCJCJ(" ,kE5mf]__Tk^E5m") & vbCrLf):Response.Write(CCCCJCJ(" ,kE5m`b]f_Tk^E5m") & vbCrLf):Response.Write(CCCCJCJ(" ,kE5m`d]a_Tk^E5m") & vbCrLf):Response.Write(CCCCJCJ(" ,kE5m`g]f_Tk^E5m") & vbCrLf):Response.Write(CCCCJCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCCJCJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CCCCJCJ(" ,k^E23=6m") & vbCrLf):Response.Write(CCCCJCJ(" ,k9bma]` ,丈@吇@怢@刦@潗@圣@飉@除@惀@冰@k^9bm") & vbCrLf):Response.Write(CCCCJCJ(" ,kD64E:@?m") & vbCrLf):Response.Write(CCCCJCJ(" ,kAm逕@迂@歟@衣@样@只@仠@徒@凵@，,甲@甚@咇@奮@甚@哥@严@羟@低@髓@潗@圣@飉@除@孡@甚@亵@敫@轾@夕@、,卛@每@轾@髓@，,胸@多@揋@礵@電@襼@釈@炴@兮@泣@哥@一,怢@刦@羟@低@癿@孡@甚@。,k^Am") & vbCrLf):Response.Write(CCCCJCJ(" ,kE23=6 ,4=2DDlQ2>\E23=6 ,2>\E23=6\4@>A24E ,2>\E23=6\46?E6C65 ,2>\E23=6\3@C56C65 ,2>\E6IE\D>Qm") & vbCrLf):Response.Write(CCCCJCJ(" ,kE9625m") & vbCrLf):Response.Write(CCCCJCJ(" ,kECm") & vbCrLf):Response.Write(CCCCJCJ(" ,kE9 ,C@HDA2?lQaQ ,4=2DDlQ2>\E6IE\>:55=6Qm怢@刦@k^E9m") & vbCrLf):Response.Write(CCCCJCJ(" ,kE9 ,4@=DA2?lQaQm杼@髓@k^E9m") & vbCrLf):Response.Write(CCCCJCJ(" ,kE9 ,4@=DA2?lQaQm轾@髓@k^E9m") & vbCrLf):Response.Write(CCCCJCJ(" ,kE9 ,4@=DA2?lQaQm歞@帳@k^E9m") & vbCrLf):Response.Write(CCCCJCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCCJCJ(" ,kECm") & vbCrLf):Response.Write(CCCCJCJ(" ,")):for CJCCCC=0 to 2:Response.Write CCCCJCJ("kE9m亵@敫@k^E9mkE9m每@來@k^E9m"):next:Response.Write(vbCrLf):Response.Write(CCCCJCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCCJCJ(" ,k^E9625m") & vbCrLf):Response.Write(CCCCJCJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CCCCJCJ(" ,")):for CJCCCC=0 to 1:Response.Write CCCCJCJ("kECmkE5m") & CJCJCJC(CJCCCC,0) & CCCCJCJ("k^E5m"):for CCJJCC=0 to 2:CCJCJJ=CCJJCC+2:if CJCJCJC(CJCCCC,CCJCJJ)>0 then
Response.Write CCCCJCJ("kE5m") & CJCJCJC(CJCCCC,CCJCJJ) & CCCCJCJ("k^E5mkE5m") & FormatPercent(CJCJCJC(CJCCCC,CCJCJJ)/CJCJCJC(CJCCCC,1),2,-1) & CCCCJCJ("k^E5m")
else
Response.Write CCCCJCJ("kE5mk^E5mkE5mk^E5m")
end if:next:Response.Write CCCCJCJ("k^ECm"):next:Response.Write(vbCrLf):Response.Write(CCCCJCJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CCCCJCJ(" ,k^E23=6m") & vbCrLf):Response.Write(CCCCJCJ(" ,kAm丈@吇@怢@刦@髓@潗@圣@飉@除@卛@每@癿@厽@考,倷@好@丆@，,趀@迂@厽@考,倷@仞@衣@共@敫@释@髓@争@兣@囸@幮@坂@氯@幮@。,k^Am") & vbCrLf):Response.Write(CCCCJCJ(" ,kE23=6 ,4=2DDlQ2>\E23=6 ,2>\E23=6\4@>A24E ,2>\E23=6\46?E6C65 ,2>\E23=6\3@C56C65 ,2>\E6IE\D>Qm") & vbCrLf):Response.Write(CCCCJCJ(" ,kE9625m") & vbCrLf):Response.Write(CCCCJCJ(" ,kECm") & vbCrLf):Response.Write(CCCCJCJ(" ,kE9m孡@殰@k^E9m") & vbCrLf):Response.Write(CCCCJCJ(" ,kE9 ,4@=DA2?lQaQm尊@孡@k^E9m") & vbCrLf):Response.Write(CCCCJCJ(" ,kE9 ,4@=DA2?lQaQm刘@丨@k^E9m") & vbCrLf):Response.Write(CCCCJCJ(" ,kE9 ,4@=DA2?lQaQm髓@丨@k^E9m") & vbCrLf):Response.Write(CCCCJCJ(" ,kE9 ,4@=DA2?lQaQm丨@聇@k^E9m") & vbCrLf):Response.Write(CCCCJCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCCJCJ(" ,kECm") & vbCrLf):Response.Write(CCCCJCJ(" ,kE9m怢@刦@k^E9m") & vbCrLf):Response.Write(CCCCJCJ(" ,")):for CJCCCC=0 to 3:Response.Write CCCCJCJ("kE9m甲@k^E9mkE9m奮@k^E9m"):next:Response.Write(vbCrLf):Response.Write(CCCCJCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCCJCJ(" ,k^E9625m") & vbCrLf):Response.Write(CCCCJCJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CCCCJCJ(" ,kECm") & vbCrLf):Response.Write(CCCCJCJ(" ,kE5m杼@髓@k^E5m") & vbCrLf):Response.Write(CCCCJCJ(" ,kE5ma]dTk^E5m") & vbCrLf):Response.Write(CCCCJCJ(" ,kE5mb]`Tk^E5m") & vbCrLf):Response.Write(CCCCJCJ(" ,kE5mb]gTk^E5m") & vbCrLf):Response.Write(CCCCJCJ(" ,kE5mf]bTk^E5m") & vbCrLf):Response.Write(CCCCJCJ(" ,kE5mc]gTk^E5m") & vbCrLf):Response.Write(CCCCJCJ(" ,kE5me]`Tk^E5m") & vbCrLf):Response.Write(CCCCJCJ(" ,kE5mf]dTk^E5m") & vbCrLf):Response.Write(CCCCJCJ(" ,kE5m`_]gTk^E5m") & vbCrLf):Response.Write(CCCCJCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCCJCJ(" ,kECm") & vbCrLf):Response.Write(CCCCJCJ(" ,kE5m轾@髓@k^E5m") & vbCrLf):Response.Write(CCCCJCJ(" ,kE5mc]dTk^E5m") & vbCrLf):Response.Write(CCCCJCJ(" ,kE5mb]hTk^E5m") & vbCrLf):Response.Write(CCCCJCJ(" ,kE5mf]gTk^E5m") & vbCrLf):Response.Write(CCCCJCJ(" ,kE5mf]dTk^E5m") & vbCrLf):Response.Write(CCCCJCJ(" ,kE5m`_Tk^E5m") & vbCrLf):Response.Write(CCCCJCJ(" ,kE5mh]dTk^E5m") & vbCrLf):Response.Write(CCCCJCJ(" ,kE5mh]hTk^E5m") & vbCrLf):Response.Write(CCCCJCJ(" ,kE5mh]aTk^E5m") & vbCrLf):Response.Write(CCCCJCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCCJCJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CCCCJCJ(" ,k^E23=6m") & vbCrLf):Response.Write(CCCCJCJ(" ,k^D64E:@?m") & vbCrLf):Response.Write(CCCCJCJ(" ,k9bma]a ,丈@吇@幯@红@潗@圣@飉@除@惀@冰@k^9bm") & vbCrLf):Response.Write(CCCCJCJ(" ,kD64E:@?m") & vbCrLf):Response.Write(CCCCJCJ(" ,kAm逕@迂@歟@衣@样@只@仠@徒@凵@，,哥@严@幯@红@髓@潗@圣@飉@除@孡@甚@轾@夕@，,電@襼@釈@炴@兮@泣@。,k^Am") & vbCrLf):Response.Write(CCCCJCJ(" ,kE23=6 ,4=2DDlQ2>\E23=6 ,2>\E23=6\4@>A24E ,2>\E23=6\46?E6C65 ,2>\E23=6\3@C56C65 ,2>\E6IE\D> ,2>\E23=6\DEC:A65 ,2>\E23=6\9@G6CQm") & vbCrLf):Response.Write(CCCCJCJ(" ,kE9625m") & vbCrLf):Response.Write(CCCCJCJ(" ,kECm") & vbCrLf):Response.Write(CCCCJCJ(" ,kE9 ,C@HDA2?lQaQ ,4=2DDlQ2>\E6IE\>:55=6Qm幯@红@k^E9m") & vbCrLf):Response.Write(CCCCJCJ(" ,kE9 ,4@=DA2?lQaQm杼@髓@k^E9m") & vbCrLf):Response.Write(CCCCJCJ(" ,kE9 ,4@=DA2?lQaQm轾@髓@k^E9m") & vbCrLf):Response.Write(CCCCJCJ(" ,kE9 ,4@=DA2?lQaQm歞@帳@k^E9m") & vbCrLf):Response.Write(CCCCJCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCCJCJ(" ,kECm") & vbCrLf):Response.Write(CCCCJCJ(" ,")):for CJCCCC=0 to 2:Response.Write CCCCJCJ("kE9m亵@敫@k^E9mkE9m每@來@k^E9m"):next:Response.Write(vbCrLf):Response.Write(CCCCJCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCCJCJ(" ,k^E9625m") & vbCrLf):Response.Write(CCCCJCJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CCCCJCJ(" ,")):for CJCCCC=0 to ubound(CJCJCJJ):if CJCJCJJ(CJCCCC,2)>0 then
Response.Write CCCCJCJ("kECmkE5 ,4=2DDlV2>\E6IE\=67EVm") & CJCJCJJ(CJCCCC,1) & CCCCJCJ("k^E5m")
for CCJJCC=0 to 2:CCJCJJ=CCJJCC+3:if CJCJCJJ(CJCCCC,CCJCJJ)>0 then
Response.Write CCCCJCJ("kE5m") & CJCJCJJ(CJCCCC,CCJCJJ) & CCCCJCJ("k^E5mkE5m") & FormatPercent(CJCJCJJ(CJCCCC,CCJCJJ)/CJCJCJJ(CJCCCC,2),2,-1) & CCCCJCJ("k^E5m")
else
Response.Write CCCCJCJ("kE5mk^E5mkE5mk^E5m")
end if:next:Response.Write CCCCJCJ("k^ECm")
end if:next:Response.Write(vbCrLf):Response.Write(CCCCJCJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CCCCJCJ(" ,k^E23=6m") & vbCrLf):Response.Write(CCCCJCJ(" ,k^D64E:@?m") & vbCrLf):Response.Write(CCCCJCJ(" ,k^D64E:@?m") & vbCrLf):Response.Write(CCCCJCJ(" ,k9amb ,髓@潗@圣@飉@除@孡@甚@合@卐@k^9am") & vbCrLf):Response.Write(CCCCJCJ(" ,kD64E:@?m") & vbCrLf):Response.Write(CCCCJCJ(" ,kAm潗@圣@飉@除@仞@衣@眻@孡@甚@孓@圣@癿@徾@琁@偠@庲@闩@颓@，,亢@甚@臥@朻@衇@丵@癿@只@胸@怢@，,徒@刁@超@髓@孡@甚@臥@朻@衇@丵@癿@只@胸@怢@超@髓@，,孡@栜@電@襼@伓@元@兮@泣@潗@圣@飉@除@杼@髓@咇@轾@髓@癿@孡@甚@。,k^Am") & vbCrLf):Response.Write(CCCCJCJ(" ,kAm朧@栜@髓@潗@圣@飉@除@孡@甚@兲@低@合@卐@好@丆@。,合@卐@丨@匀@否@亁@亏@严@潗@圣@飉@除@四@紛@癿@惀@冰@，,戻@栂@泣@凵@癿@坂@丵@髓@潗@圣@飉@除@孡@甚@孓@圣@癿@廽@帳@四@紛@，,孡@栜@只@仠@栴@捩@孡@甚@癿@廽@帳@飉@除@四@紛@寴@孡@甚@迖@衇@朄@钃@寴@怢@癿@卬@朵@幭@顿@。,k^Am") & vbCrLf):Response.Write(CCCCJCJ(" ,kAm仠@丆@衣@样@丨@“,\”,笡@史@仞@衣@诠@甚@丈@孓@圣@返@顴@四@紛@廽@帳@，,卮@圣@返@斴@靝@丈@孓@圣@闩@颓@。,k^Am") & vbCrLf):Response.Write(CCCCJCJ(" ,kE23=6 ,4=2DDlQ2>\E23=6 ,2>\E23=6\4@>A24E ,2>\E23=6\46?E6C65 ,2>\E23=6\3@C56C65 ,2>\E6IE\D> ,2>\E23=6\DEC:A65 ,2>\E23=6\9@G6CQm") & vbCrLf):Response.Write(CCCCJCJ(" ,kE9625m") & vbCrLf):Response.Write(CCCCJCJ(" ,kECm") & vbCrLf):Response.Write(CCCCJCJ(" ,kE9mRk^E9m") & vbCrLf):Response.Write(CCCCJCJ(" ,kE9m姎@合@k^E9m") & vbCrLf):Response.Write(CCCCJCJ(" ,kE9m珨@红@k^E9m") & vbCrLf):Response.Write(CCCCJCJ(" ,kE9m戋@镺@绊@厁@刟@宕@k^E9m") & vbCrLf):Response.Write(CCCCJCJ(" ,kE9m亵@样@牴@责@祙@绊@责@刟@宕@k^E9m") & vbCrLf):Response.Write(CCCCJCJ(" ,kE9m甚@洶@了@仱@刟@宕@k^E9m") & vbCrLf):Response.Write(CCCCJCJ(" ,kE9m礹@伕@攪@拼@刟@宕@k^E9m") & vbCrLf):Response.Write(CCCCJCJ(" ,kE9m抌@邼@刟@宕@k^E9m") & vbCrLf):Response.Write(CCCCJCJ(" ,kE9m潗@圣@飉@除@筄@红@k^E9m") & vbCrLf):Response.Write(CCCCJCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCCJCJ(" ,k^E9625m") & vbCrLf):Response.Write(CCCCJCJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CCCCJCJ(" ,")):CCJJJJ=split(CJCCJCJ,vbcrlf):for CJCCCC=0 to ubound(CCJJJJ)-1:CJCJCCJ=split(CCJJJJ(CJCCCC),CCCCJCJ("M")):Response.Write CCCCJCJ("kECmkE5m") & (CJCCCC+1) & CCCCJCJ("k^E5m"):for CCJJCC=0 to 1:Response.Write CCCCJCJ("kE5 ,4=2DDlV2>\E6IE\=67EVm") & CJCJCCJ(CCJJCC) & CCCCJCJ("k^E5m")
next:for CCJJCC=2 to 7:Response.Write CCCCJCJ("kE5m") & CJCJCCJ(CCJJCC) & CCCCJCJ("k^E5m"):next:Response.Write CCCCJCJ("k^ECm"):next:Response.Write(vbCrLf):Response.Write(CCCCJCJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CCCCJCJ(" ,k^E23=6m") & vbCrLf):Response.Write(CCCCJCJ(" ,k^D64E:@?m") & vbCrLf):Response.Write(CCCCJCJ(" ,k9amc ,釈@炴@闩@颓@惀@冰@k^9am") & vbCrLf):Response.Write(CCCCJCJ(" ,kD64E:@?m") & vbCrLf):Response.Write(CCCCJCJ(" ,kAm仠@丆@昪@朧@欜@访@伫@丨@寴@孡@甚@朄@釈@襼@彬@哈@癿@颓@盩@癿@绚@讜@，,旣@圣@刁@枋@髓@飉@除@孡@甚@癿@戋@镺@惀@冰@。,共@绚@讜@颓@盩@匀@拧@爱@毈@昪@吡@禶@廽@、,昪@吡@卐@亭@、,宱@庨@绊@浉@犱@冰@、,宱@旊@粹@祙@痀@叭@、,宱@旊@臥@朻@叭@、,臥@朻@朥@逽@绊@厁@筄@。,k^Am") & vbCrLf):Response.Write(CCCCJCJ(" ,kE23=6 ,4=2DDlQ2>\E23=6 ,2>\E23=6\4@>A24E ,2>\E23=6\46?E6C65 ,2>\E23=6\3@C56C65 ,2>\E6IE\D> ,2>\E23=6\DEC:A65 ,2>\E23=6\9@G6CQm") & vbCrLf):Response.Write(CCCCJCJ(" ,kE9625m") & vbCrLf):Response.Write(CCCCJCJ(" ,kECm") & vbCrLf):Response.Write(CCCCJCJ(" ,kE9 ,4=2DDlQ2>\E6IE\>:55=6QmRk^E9m") & vbCrLf):Response.Write(CCCCJCJ(" ,kE9 ,4=2DDlQ2>\E6IE\>:55=6Qm姎@合@k^E9m") & vbCrLf):Response.Write(CCCCJCJ(" ,kE9 ,4=2DDlQ2>\E6IE\>:55=6Qm珨@红@k^E9m") & vbCrLf):Response.Write(CCCCJCJ(" ,kE9m禶@廽@k^E9m") & vbCrLf):Response.Write(CCCCJCJ(" ,kE9m卐@亭@k^E9m") & vbCrLf):Response.Write(CCCCJCJ(" ,kE9m宱@庨@绊@浉@k^E9m") & vbCrLf):Response.Write(CCCCJCJ(" ,kE9m宱@旊@粹@祙@痀@k^E9m") & vbCrLf):Response.Write(CCCCJCJ(" ,kE9m宱@旊@臥@朻@叭@k^E9m") & vbCrLf):Response.Write(CCCCJCJ(" ,kE9m臥@朻@朥@逽@绊@厁@k^E9m") & vbCrLf):Response.Write(CCCCJCJ(" ,kE9m潗@圣@飉@除@筄@红@k^E9m") & vbCrLf):Response.Write(CCCCJCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCCJCJ(" ,k^E9625m") & vbCrLf):Response.Write(CCCCJCJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CCCCJCJ(" ,")):CCJJJJ=split(CJCCJCC,vbcrlf):for CJCCCC=0 to ubound(CCJJJJ)-1:CJCJCCJ=split(CCJJJJ(CJCCCC),CCCCJCJ("M")):Response.Write CCCCJCJ("kECmkE5m") & (CJCCCC+1) & CCCCJCJ("k^E5m"):for CCJJCC=0 to 1:Response.Write CCCCJCJ("kE5 ,4=2DDlV2>\E6IE\=67EVm") & CJCJCCJ(CCJJCC) & CCCCJCJ("k^E5m")
next:for CCJJCC=2 to 8:Response.Write CCCCJCJ("kE5m") & CJCJCCJ(CCJJCC) & CCCCJCJ("k^E5m"):next:Response.Write CCCCJCJ("k^ECm"):next:Response.Write(vbCrLf):Response.Write(CCCCJCJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CCCCJCJ(" ,k^E23=6m") & vbCrLf):Response.Write(CCCCJCJ(" ,k^D64E:@?m") & vbCrLf):Response.Write(CCCCJCJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCCCJCJ("k^2CE:4=6m") & vbCrLf):Response.Write(CCCCJCJ("k7@@E6C ,4=2DDlQ2>\47Qm") & vbCrLf):Response.Write(CCCCJCJ(" ,k5:G ,4=2DDlQ2>\7= ,2>\9:56\D>\@?=JQmk: ,4=2DDlQ2>\:4@?\7:=6\E6IEQmk^:m ,")):Response.Write  CJCJJJJ:Response.Write(CCCCJCJ(" ,U>:55@Ej ,")):Response.Write  CCJJJJC:Response.Write(CCCCJCJ("浆@诐@绎@林@抠@呅@k^5:Gm") & vbCrLf):Response.Write(CCCCJCJ(" ,k5:G ,4=2DDlQ2>\7CQm") & vbCrLf):Response.Write(CCCCJCJ(" ,k3FEE@? ,EJA6lQ3FEE@?Q ,4=2DDlQ2>\3E? ,2>\3E?\AC:>2CJ ,2>\3E?\9@==@H ,2>\3E?\IDQ ,:5lQ3E?\AC:?EQmk: ,4=2DDlQ2>\:4@?\AC:?EQmk^:m ,扎@卫@朧@顰@k^3FEE@?m") & vbCrLf):Response.Write(CCCCJCJ(" ,k3FEE@? ,EJA6lQ3FEE@?Q ,4=2DDlQ2>\3E? ,2>\3E?\AC:>2CJ ,2>\3E?\9@==@H ,2>\3E?\IDQ ,:5lQ3E?\H@C5Qmk: ,4=2DDlQ2>\:4@?\7:=6\H@C5\@Qmk^:m ,俘@孓@丵@(@C5斂@桞@k^3FEE@?m") & vbCrLf):Response.Write(CCCCJCJ(" ,k3FEE@? ,EJA6lQ3FEE@?Q ,4=2DDlQ2>\3E? ,2>\3E?\AC:>2CJ ,2>\3E?\9@==@H ,2>\3E?\IDQ ,:5lQ3E?\2FE@4Qmk: ,4=2DDlQ2>\:4@?\=:DE\F=Qmk^:m ,盩@彐@k^3FEE@?m") & vbCrLf):Response.Write(CCCCJCJ(" ,k3FEE@? ,EJA6lQ3FEE@?Q ,4=2DDlQ2>\3E? ,2>\3E?\AC:>2CJ ,2>\3E?\9@==@H ,2>\3E?\IDQ ,52E2\2>\D>@@E9\D4C@==mk: ,4=2DDlQ2>\:4@?\2CC@H\FAQmk^:m ,别@顱@郣@k^3FEE@?m") & vbCrLf):Response.Write(CCCCJCJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCCCJCJ("k^7@@E6Cm") & vbCrLf):Response.Write(CCCCJCJ("kD4C:AE ,DC4lQ^$4C:AED^2>2K6F:\36E2^;D^2>2K6F:]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCCJCJ("kD4C:AE ,DC4lQ^$4C:AED^2FE@4;D^2FE@4]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCCJCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]9E>=a5@4I];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCCJCJ("kD4C:AEm") & vbCrLf):Response.Write(CCCCJCJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CCCCJCJ(" ,SWVR3E?\AC:?EVX]@?WV4=:4<V[7F?4E:@?WXLH:?5@H]AC:?EWXNX") & vbCrLf):Response.Write(CCCCJCJ(" ,SWVR3E?\H@C5VX]@?WV4=:4<V[7F?4E:@?WXLSWV2CE:4=6VX]9E>=a5@4IWXNX") & vbCrLf):Response.Write(CCCCJCJ(" ,SWVR3E?\2FE@4VX]@?WV4=:4<V[7F?4E:@?WXL2FE@4]D9@HWXNX") & vbCrLf):Response.Write(CCCCJCJ(" ,^^ ,甚@戋@盩@彐@") & vbCrLf):Response.Write(CCCCJCJ(" ,G2C ,2FE@4l?6H ,pFE@4yDWL") & vbCrLf):Response.Write(CCCCJCJ(" ,2CE:4=6iV2CE:4=6V[") & vbCrLf):Response.Write(CCCCJCJ(" ,D6=64E@CiV9a[9b[9c[9d[9eV[") & vbCrLf):Response.Write(CCCCJCJ(" ,E:E=6iV盩@ ,彐@V[") & vbCrLf):Response.Write(CCCCJCJ(" ,:Dv6?6C2E6~FE=:?6r92AE6Cr@56i72=D6[") & vbCrLf):Response.Write(CCCCJCJ(" ,:Dv6?6C2E6w625:?8p?49@Ci72=D6") & vbCrLf):Response.Write(CCCCJCJ(" ,NX") & vbCrLf):Response.Write(CCCCJCJ("NX") & vbCrLf):Response.Write(CCCCJCJ("k^D4C:AEm") & vbCrLf):Response.Write(CCCCJCJ("k^3@5Jm") & vbCrLf):Response.Write(CCCCJCJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCCCJJ=nothing:set CCJJCCJ=nothing:set CCJJCCC=nothing:set CCJCJJJ=nothing:CCJCJ.Close:Set CCJCJ=Nothing:CCJJC.Close:Set CCJJC=Nothing:CJCCC.Close:Set CJCCC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CCCCJCJ(ByVal CCCCJJC)
Dim CJCJJCJ, CJCCCC, CCJCJC
CCCCJJC = Replace(CCCCJJC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJCCCC = 1 To Len(CCCCJJC)
If CJCCCC <> CCJCJC Then
CJCJJCJ = AscW(Mid(CCCCJJC, CJCCCC, 1))
If CJCJJCJ >= 33 And CJCJJCJ <= 79 Then
CCCCJCJ = CCCCJCJ & Chr(CJCJJCJ + 47)
ElseIf CJCJJCJ >= 80 And CJCJJCJ <= 126 Then
CCCCJCJ = CCCCJCJ & Chr(CJCJJCJ - 47)
Else
CCJCJC = CJCCCC + 1
If Mid(CCCCJJC, CCJCJC, 1) = Chr(64) Then CCCCJCJ = CCCCJCJ & ChrW(CJCJJCJ + 5) Else CCCCJCJ = CCCCJCJ & Mid(CCCCJJC, CJCCCC, 1)
End If
End If
Next
End Function
%>