<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJJJCJJ, CJJJCJC,CJJJCCJ, CJJJCCC, CJJCJJJ:Set CJJJCJJ = server.CreateObject(CJCJCJJJ("ps~sq]r@??64E:@?")):CJJJCJJ.open Application(CJCJCJJJ("r@??64E:@?$EC:?8")):Set CJJJCJC=CJJJCJJ::Dim CJJCJJC,CJJCJCJ,CJJCJCC,CJJCCJJ,CJJCCJC,CJJCCCJ,CJJCCCC,CJCJJJJ,CJCJJJC:Dim CJCJJCJ,CJCJJCC,CJCJCJJ,CJCJCJC,CJCJCCJ,CJCJCCC:Dim CJCCJJJ,CJCCJJC,CJCCJCJ:Dim CJCCJCC:CJCCJCC=Trim(Request.Cookies(CJCJCJJJ("!$*|t|qt#"))):if CJCCJCC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJJCJJC>0 then
CJJCJJJ=CJCJCJJJ("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") & CJJCJCJ & CJCJCJJJ("V ,2?5 ,:5l") & CJJCJJC
set CJJJCCJ=CJJJCJJ.execute(CJJCJJJ):If CJJJCCJ.EOF Then
Call ClearMemberCookie
Else
CJJCJCC=CJJJCCJ(2) & "":CJJCCJJ=CJJJCCJ(3):CJJCCJC=CJJJCCJ(5):CJJCCCJ=CJJJCCJ(6):CJJCCCC=CJJJCCJ(9):CJCJJJJ=CJJJCCJ(15):CJCJJCJ=CJJJCCJ(0):CJCCJJC=CJJJCCJ(1):CJCCJJJ=CJJJCCJ(11) & "":CJCJJCC=CJJJCCJ(10) & "":CJCJJJC=CJJJCCJ(12):CJCJCJJ=CJJJCCJ(14):CJCJCJC=CJJJCCJ(13):CJCJCCJ=CJJJCCJ(7) & "":CJCJCCC=CJJJCCJ(4):CJCCJCJ=CJJJCCJ(8):if isnull(CJCJJJJ) then CJCJJJJ=0
if isnull(CJJCCCC) or CJJCCCC=0 then CJJCCCC=CJJCCJJ
if isnull(CJCJCCC) then CJCJCCC=0
if isnull(CJJCCJC) then CJJCCJC=0
if instr(CJCJCJJJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJCJCJ)>0 then Call RedirectMessage(CJCJCJJJ("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CJJCJJC,CJJCJCJ)
End IF
end if:Sub CheckRight(CJCJCJJC):dim CJCCCJJ,CJCCCJC:if CJJCJJC=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJCJCJJJ("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
elseIf not CJJCJCJJ(CJCJCJJC) then
Call RedirectMessage(CJCJCJJJ("朾@陋@W") & CJCJCJJC & CJCJCJJJ("X袦@祼@歝@，,诲@三@糶@绚@箜@琁@呓@聏@糶@。,"))
end if:End Sub:Function CJJCJCJJ(CJCJCJJC):dim CJCCCJJ,CJCCCJC:CJCCCJC=split(CJCJCJJC,CJCJCJJJ("[")):CJJCJCJJ=False:for CJCCCJJ=0 to ubound(CJCCCJC):If Mid(CJJCJCC,CJCCCJC(CJCCCJJ),1)="1" then
CJJCJCJJ=True:exit function
end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CJCJCJJJ("!$*|t|qt#"))="":CJJCJJC=0:CJJCCCJ=0:CJJCJCJ=Empty:CJJCCJC=0:CJCJJJJ=0:CJJCCCC=0:CJJCCJJ=0:CJCJJCJ=False:CJCCJJC=False:CJCCJCJ=Empty:End Sub:Sub CheckMemberCookie():dim CJCCCCJ,CJCCCCC,CJCCCJJ,CCJJJJJ,CCJJJJC:CJCCCCJ=split(CJCCJCC,CJCJCJJJ("]")):if ubound(CJCCCCJ)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJCCCCJ(0)) or len(CJCCCCJ(1))<>32 or len(CJCCCCJ(2))<>32 then
Call ClearMemberCookie
else
CJCCCCC=CJCCCCJ(1):for CJCCCJJ=1 to len(CJCCCCC):CCJJJJJ=mid(CJCCCCC,CJCCCJJ,1):if isnumeric(CCJJJJJ) then CCJJJJC=CCJJJJC & CCJJJJJ
if len(CCJJJJC)=7 then exit for
next:CJCCCCC=CJCCCCJ(2):if CCJJJJC<>mid(CJCCCCC,6,7) then
Call ClearMemberCookie
else
CCJJJJJ=mid(CJCCCCC,18,10)/2:if CCJJJJJ<DateDiff(CJCJCJJJ("D"), CJCJCJJJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJJCJJC=Clng(CJCCCCJ(0)):CJJCJCJ=CJCCCCJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJJCCCJJ,CJCJCJCJ):dim CJCCCJJ,CCJJJJJ,CCJJJJC:for CJCCCJJ=1 to len(CJCJCJCJ):CCJJJJJ=mid(CJCJCJCJ,CJCCCJJ,1):if isnumeric(CCJJJJJ) then CCJJJJC=CCJJJJC & CCJJJJJ
if len(CCJJJJC)=7 then exit for
next:CCJJJJC=CJJCCCJJ & CJCJCJJJ("]") & CJCJCJCJ & CJCJCJJJ("]") & Fix(10000*(Rnd+1)) & CCJJJJC & Fix(10000*(Rnd+1)) & DateDiff(CJCJCJJJ("D"), CJCJCJJJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJCJCJJJ("!$*|t|qt#"))=CCJJJJC:End Sub::::Const CJJCJJJC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::Sub Debug(str):response.Charset=CJCJCJJJ("FE7\g"):dim CJCCCJJ,CCJJJJJ,CCJJJCJ:if isarray(str) then
on error resume next:CJCCCJJ=ubound(str,2):CCJJJCJ=err.number:err.clear:on error goto 0:if CCJJJCJ<>0 then
for CJCCCJJ=0 to ubound(str):if CJCCCJJ>0 then response.Write CJCJCJJJ("k3C ,^m")
response.Write CJCCCJJ & CJCJCJJJ("i ,") & str(CJCCCJJ):next
else
response.Write CJCJCJJJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CJCCCJJ=0 to ubound(str,2):response.Write CJCJCJJJ("kE9 ,2=:8?lV=67EVm") & CJCCCJJ & CJCJCJJJ("k^E9m")
next:response.Write CJCJCJJJ("k^ECm"):for CJCCCJJ=0 to ubound(str):response.Write CJCJCJJJ("kECmkE9m") & CJCCCJJ & CJCJCJJJ("k^E9m"):for CCJJJJJ=0 to ubound(str,2):response.Write CJCJCJJJ("kE5m") & str(CJCCCJJ,CCJJJJJ) & CJCJCJJJ("k^E5m"):next:response.Write CJCJCJJJ("k^ECm"):next:response.Write CJCJCJJJ("k^E23=6m")
end if
elseif isnull(str) then
response.Write CJCJCJJJ(",}F==.")
else
Response.Write replace(str,vbcrlf,CJCJCJJJ("k3Cm"))
end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CJCJCJCC,CJCJCCJJ):dim CJCCCCJ:CJCCCCJ=CJCJCJCC & CJCJCJJJ("l") & CJCJCCJJ & CJCJCJJJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJCJCJJJ("$6E\r@@<:6"),CJCCCCJ):End Sub::::::sub ShowMessage(CJCJCCJC):response.Charset="utf-8":Response.Write CJCJCJJJ("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") & CJCJCCJC & CJCJCJJJ("k^5:Gmk^5:Gmk3Cm")
end sub:Function CJJCJCJC(CCJJJCJ):if isnull(CCJJJCJ) or trim(CCJJJCJ)="" or not isnumeric(CCJJJCJ) then
CJJCJCJC=false
else
Dim CCJJJCC:Set CCJJJCC = New RegExp:CCJJJCC.Pattern = CJCJCJJJ("/-5ZS"):CCJJJCC.IgnoreCase = True:CJJCJCJC = CCJJJCC.test(CCJJJCJ):set CCJJJCC=nothing
end if:End Function:Function CJJCJCCJ(CJCJCCCJ):dim CCJJCJJ,CCJJCJC:CCJJCJJ=CJCJCJJJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJCJCCCJ & CJCJCJJJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CCJJCJC=CJJJCJJ.execute(CCJJCJJ):CJJCJCCJ = CCJJCJC(0):if isnull(CJJCJCCJ) then CJJCJCCJ=1
CCJJCJC.close : set CCJJCJC=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CCJCJJC=nothing:set CJJCJCCC=nothing:set CJJCCJJJ=nothing:set CJJCCJJC=nothing:CCJJCJC.close : set CCJJCJC=nothing:CJJJCCC.Close : Set CJJJCCC=Nothing:CJJJCCJ.Close : Set CJJJCCJ=Nothing:CJJCCJCJ.Close : Set CJJCCJCJ = Nothing:CJJJCJJ.Close : Set CJJJCJJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJCJCCJC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJCJCJJJ("!$*0|6DD286"),server.URLEncode(CJCJCCJC)):Response.Redirect CJCJCJJJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::Sub CheckQueryTime(CJCJCCCC,CJCCJJJJ):dim str,CCJJJCJ:str=CJCJCJJJ("!$*0") & Ucase(CJCJCCCC):if Session(str)<>"" then
CCJJJCJ=DateDiff(CJCJCJJJ("D"),Session(str),Time):if CCJJJCJ<CJCCJJJJ and CCJJJCJ>0 then
Call ConnClose:Call ShowMessage(CJCJCJJJ("柠@话@闯@随@忀@顶@夢@争@ ,") & CJCCJJJJ & CJCJCJJJ(" ,种@，,迓@剤@ ,") & CJCCJJJJ-CCJJJCJ & CJCJCJJJ(" ,种@！,")):response.End()
else
Session.Contents.Remove(str)
end if
end if:Session(str)=Time:End Sub:::::::Sub ArrayInit(CJCCJJJC):dim CJCCCJJ,CCJJJJJ,CCJJCCC,CCJCJJJ:on error resume next:CCJJCCC=ubound(CJCCJJJC):CCJCJJJ=ubound(CJCCJJJC,2):if err.number<>0 then
err.clear:for CJCCCJJ=0 to CCJJCCC:CJCCJJJC(CJCCCJJ)=0:next
else
for CJCCCJJ=0 to CCJJCCC:for CCJJJJJ=0 to CCJCJJJ:CJCCJJJC(CJCCCJJ,CCJJJJJ)=0:next:next
end if:End Sub:::Sub ClearCache(CJCCJJCJ):Application.Contents.Remove CJCCJJCJ
End Sub::Class jTree:Private CJJCJJJ, CCJCJJC, CCJCJCJ, CCJCJCC,CCJCCJJ,CCJCCJC,CCJCCCJ,CCJCCCC:Private Sub Class_Initialize():CCJCJCJ = 0:CCJCJCC = 0:CCJCCCC=10:End Sub:Public Property Let Table(CJCCJJCC):if CJCCJJCC="" then Call RedirectMessage(CJCJCJJJ("寴@丈@赲@，,;%C66籶@宙@來@匑@旱@沜@朄@讹@罩@忀@襼@癿@屙@怢@！,"))
CCJCCJJ=CJCCJJCC:CCJCCJC=CJCJCJJJ("!$*0") & UCase(CCJCCJJ):Call GetTreeArray:End Property:Public Property Get Table():Table=CCJCCJJ:End Property:::Private Sub GetTreeArray():Dim CJCCCJJ, CCJJJJJ, CCCJJJJ,CCCJJJC:CCJCJJC = Application(CCJCCJC):If Not IsArray(CCJCJJC) Then
CJJCJJJ = CJCJCJJJ("D6=64E ,4@F?EW:5X ,7C@> ,") & CCJCCJJ:if CCJCCCJ<>"" then CJJCJJJ=CJJCJJJ & CJCJCJJJ(" ,H96C6 ,") & CCJCCCJ
set CCCJJJJ=CJJJCJJ.execute(CJJCJJJ):CCCJJJC=CCCJJJJ(0):if CCCJJJC=0 then Call RedirectMessage(CJCJCJJJ("柠@话@W") & CCJCCJJ & CJCJCJJJ("^") & CCJCCCJ & CJCJCJJJ("X沜@朄@绎@林@敫@捩@"))
CCJCJCC=CCCJJJC+CCJCCCC:ReDim CCJCJJC(CCJCJCC, 4):CJJCJJJ = CJCJCJJJ("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJCCJJ & CJCJCJJJ(" ,H:E9 ,W?@=@4<X"):if CCJCCCJ<>"" then CJJCJJJ=CJJCJJJ & CJCJCJJJ(" ,H96C6 ,") & CCJCCCJ
CJJCJJJ=CJJCJJJ & CJCJCJJJ(" ,@C56C ,3J ,D@CE[:5"):set CCCJJJJ=CJJJCJJ.execute(CJJCJJJ):For CJCCCJJ = 1 To CCCJJJC:For CCJJJJJ = 0 To 4:CCJCJJC(CJCCCJJ, CCJJJJJ) = CCCJJJJ(CCJJJJJ):if IsNull(CCJCJJC(CJCCCJJ,4)) then CCJCJJC(CJCCCJJ,4)=0
If CCJCJJC(CJCCCJJ,2)="" then CCJCJJC(CJCCCJJ,2)=CJCJCJJJ(",穵@.")
Next:CCCJJJJ.MoveNext:Next:CCCJJJJ.Close: Set CCCJJJJ = Nothing:for CJCCCJJ=CCJCJCC-(CCJCCCC-1) to CCJCJCC:CCJCJJC(CJCCCJJ,0)=CJCCCJJ:next:Application.Lock():Application(CCJCCJC) = CCJCJJC:Application.UnLock()
else
CCJCJCC=Ubound(CCJCJJC)
End If:End Sub::::Public Function GetChild(CJJCCCJJ):Dim CJCCCJJ, Str:CJJCCCJJ=CLng(CJJCCCJJ):For CJCCCJJ = 1 To CCJCJCC:If CCJCJJC(CJCCCJJ, 1) = CJJCCCJJ Then Str = Str & CJCJCJJJ("M") & CCJCJJC(CJCCCJJ, 0) & CJCJCJJJ("M") & CCJCJJC(CJCCCJJ,2)
Next:If Str <> "" Then Str = Mid(Str, 2)
GetChild = Split(str,CJCJCJJJ("M")):End Function:Private Function CJJCCCCJ(CJJCCCJJ):dim CJCCCJJ,CCCJJCJ:CJJCCCCJ=0:CCCJJCJ=CStr(CJJCCCJJ):if CCCJJCJ<>"0" then
for CJCCCJJ=1 to CCJCJCC:If CStr(CCJCJJC(CJCCCJJ, 0))=CCCJJCJ Then
CJJCCCCJ = CJCCCJJ:Exit For
End If:Next
end if:End Function:Public Function GetCurName(CJJCCCJJ):if Cstr(CJJCCCJJ)="0" then
GetCurName=CJCJCJJJ("栴@")
else
Dim CJCCCJJ,CCCJJJJ:CJCCCJJ=CJJCCCCJ(CJJCCCJJ):if CJCCCJJ>0 then
GetCurName=CCJCJJC(CJCCCJJ,2):if GetCurName="" then
set CCCJJJJ=CJJJCJJ.execute(CJCJCJJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJCCJJ & CJCJCJJJ(" ,H96C6 ,:5l") & CJJCCCJJ):if CCCJJJJ.eof then Call RedirectMessage(CJCJCJJJ("xs（,") & CJJCCCJJ & CJCJCJJJ("）,朥@批@别@"))
GetCurName=CCCJJJJ(1):Call UpdateCache(CJJCCCJJ,CCCJJJJ(0),GetCurName,CCCJJJJ(2),CCCJJJJ(3)):CCCJJJJ.Close: Set CCCJJJJ = Nothing
end if
else
set CCCJJJJ=CJJJCJJ.execute(CJCJCJJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJCCJJ & CJCJCJJJ(" ,H96C6 ,:5l") & CJJCCCJJ):if CCCJJJJ.eof then Call RedirectMessage(CJCJCJJJ("xs（,") & CJJCCCJJ & CJCJCJJJ("）,朥@批@别@"))
GetCurName=CCCJJJJ(1):Call UpdateCache(CJJCCCJJ,CCCJJJJ(0),GetCurName,CCCJJJJ(2),CCCJJJJ(3)):CCCJJJJ.Close: Set CCCJJJJ = Nothing
end if
end if:End Function:::Public Function CJCJJJJJ(CJJCCCJJ):Dim CJCCCJJ,CCCJJCC:CJCCCJJ=CJJCCCCJ(CJJCCCJJ):if CJCCCJJ=0 then
CCCJJCC=CJCJJJJC(CJJCCCJJ)
else
CCCJJCC=CCJCJJC(CJCCCJJ,3):if isnull(CCCJJCC) or CCCJJCC="" then
CCCJJCC=CJCJJJJC(CJJCCCJJ)
elseif Mid(CCCJJCC,instrrev(CCCJJCC,CJCJCJJJ("["))+1)<>CStr(CJJCCCJJ) then
CCCJJCC=CJCJJJJC(CJJCCCJJ)
elseif Left(CCCJJCC,1)=CJCJCJJJ("[") then
CCCJJCC=CJCJJJJC(CJJCCCJJ)
end if
end if:CJCJJJJJ=CCCJJCC:End Function:Private Function CJCJJJJC(CJJCCCJJ):dim CCCJJCJ:CCCJJCJ=CStr(CJJCCCJJ):if CCCJJCJ="0" then
CJCJJJJC=""
else
dim CCCJJJJ:set CCCJJJJ=CJJJCJJ.execute(CJCJCJJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJCCJJ & CJCJCJJJ(" ,H96C6 ,:5l") & CJJCCCJJ):if CCCJJJJ.eof then
Call UpdateCache(CJJCCCJJ,"","","",""):Call RedirectMessage(CJCJCJJJ("顴@盩@（,xs：,") & CJJCCCJJ & CJCJCJJJ("）,丈@孓@圣@，,诲@患@迏@囙@吉@釈@斫@擈@佗@。,"))
else
if CCCJJJJ(0)=0 then
CJCJJJJC="0," & CJJCCCJJ
else
CJCJJJJC=CJCJJJJJ(CCCJJJJ(0)) & CJCJCJJJ("[") & CJJCCCJJ
end if:if CCCJJJJ(2)<>CJCJJJJC then
CJJJCJJ.execute CJCJCJJJ("FA52E6 ,") & CCJCCJJ & CJCJCJJJ(" ,D6E ,A2E9lV") & CJCJJJJC & CJCJCJJJ("V ,H96C6 ,:5l") & CJJCCCJJ
else
CJCJJJJC=CCCJJJJ(2)
end if
end if:Call UpdateCache(CJJCCCJJ,CCCJJJJ(0),CCCJJJJ(1),CJCJJJJC,CCCJJJJ(3)):CCCJJJJ.Close: Set CCCJJJJ = Nothing
end if:End Function::::Public Function IsParent(CJCCJCJJ, CJCCJCJC):IsParent=InStr(CJCJJJJJ(CJCCJCJC) & CJCJCJJJ("["), CJCJCJJJ("[") & CJCCJCJJ & CJCJCJJJ("[")) > 0:End Function::::::::Public Function Sql_GetChildren(CJJCCCJJ):dim CCCJJCC:CCCJJCC=CJCJJJJJ(CJJCCCJJ):Sql_GetChildren = CCJCCJJ & CJCJCJJJ("0A2E9ZV[V ,=:<6 ,V") & CCCJJCC & CJCJCJJJ("[TV")
End Function::::::::::Public Sub ClearCache():Application.Contents.Remove CCJCCJC
End Sub:Public Sub UpdateCache(CJJCCCJJ,CJCCJCCJ,CJCCJCCC,CCCJJCC,CJCCCJJJ):dim CJCCCJJ,CCJJJJJ:CJJCCCJJ=CLng(CJJCCCJJ):CJCCCJJ=CJJCCCCJ(CJJCCCJJ):if CJCCJCCJ="" and CJCCJCCC="" and CCCJJCC="" and CJCCCJJJ="" then
if CJCCCJJ>0 then
for CCJJJJJ=1 to 4:CCJCJJC(CJCCCJJ,CCJJJJJ)=Null:next
end if
else
if CJCCCJJ=0 then
for CCJJJJJ=1 to CCJCJCC:if CCJCJJC(CCJJJJJ,1) & ""="" then
CJCCCJJ=CCJJJJJ:exit for
end if:next
end if:if CJCCCJJ=0 then
Call ClearCache
else
CCJCJJC(CJCCCJJ,0)=CLng(CJJCCCJJ):if CJCCJCCJ<>"" then CCJCJJC(CJCCCJJ,1)=CLng(CJCCJCCJ)
if CJCCJCCC<>"" then CCJCJJC(CJCCCJJ,2)=CJCCJCCC
if CCCJJCC<>"" then CCJCJJC(CJCCCJJ,3)=CCCJJCC
if CJCCCJJJ<>"" then CCJCJJC(CJCCCJJ,4)=CLng(CJCCCJJJ)
end if
end if:if CJCCCJJ>0 then
Application.Lock():Application(CCJCCJC) = CCJCJJC:Application.UnLock()
end if:End Sub:Private Sub Debug(CJCJCCJC):Call ConnClose:Response.Write CJCJCCJC:Response.End:End Sub:Private Function CJJCJCCJ():CJJCJCCJ=CJCJJCJJ+1:End Function:Private Function CJCJJCJJ():dim CCJJCJC:set CCJJCJC=CJJJCJJ.execute(CJCJCJJJ("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CCJCCJJ & CJCJCJJJ(" ,@C56C ,3J ,:5 ,56D4")):CJCJJCJJ=CCJJCJC(0):CCJJCJC.Close: Set CCJJCJC = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Const CJJCJJCJ=159:Const CJJCJJCC="中小学生心理普查问卷":Call CheckRight("54,81"):Call CheckQueryTime(CJCJCJJJ("%6DE0#6A@CE"),15):dim CCCJCJJ,CCCJCJC,CCCJCCJ,CCCJCCC,CCCCJJJ,CCCCJJC:CCCCJJC=Request.QueryString(CJCJCJJJ("$49@@=")):CCCJCJJ=Request.QueryString(CJCJCJJJ("s6AE")):CCCJCJC=Request.QueryString(CJCJCJJJ("vC256")):CCCJCCJ=Request.QueryString(CJCJCJJJ("vC@FA")):CCCJCCC=Request.QueryString(CJCJCJJJ("E`")):CCCCJJJ=Request.QueryString(CJCJCJJJ("Ea")):if not CJJCJCJC(CCCJCJJ) then Call RedirectMessage(CJCJCJJJ("寴@丈@赲@，,糶@绚@厽@敫@丝@夬@！,"))
dim CCJCJJC:set CCJCJJC=new jtree:CCJCJJC.table=CJCJCJJJ(">6>36C0EJA6"):if not CCJCJJC.IsParent(CJJCCJJ,CCCJCJJ) then Call RedirectMessage(CJCJCJJJ("诠@苾@囯@W") & CCCJCJJ & CJCJCJJJ("X丈@圣@患@W") & CJJCCJJ & CJCJCJJJ("X癿@箜@琁@苾@囯@冀@。,"))
dim CJCJJCJC:CJCJJCJC=CCJCJJC.GetChild(CCCJCJJ):if ubound(CJCJJCJC)<0 then Call RedirectMessage(CJCJCJJJ("陝@糶@苾@囯@诲@丈@襼@逄@别@曻@庐@尽@！,"))
CJCJJCJC=join(CJCJJCJC,CJCJCJJJ("M")) & CJCJCJJJ("M_M共@仑@"):CJCJJCJC=split(CJCJJCJC,CJCJCJJJ("M")):dim CCCCJCJ:CCCCJCJ=CCJCJJC.GetCurName(CCCJCJJ):dim CJCCCJJ,CCJJJJJ,CCJJJJC,CCCCJCC,CCCCCJJ,CCCCCJC:dim CCCCCCJ():redim CCCCCCJ((ubound(CJCJJCJC)-1)/2,8):for CJCCCJJ=0 to ubound(CJCJJCJC)-1 step 2:CCJJJJC=CJCCCJJ/2:CCCCCCJ(CCJJJJC,0)=CJCJJCJC(CJCCCJJ):CCCCCCJ(CCJJJJC,1)=CJCJJCJC(CJCCCJJ+1):for CCJJJJJ=2 to ubound(CCCCCCJ,2):CCCCCCJ(CCJJJJC,CCJJJJJ)=0:next:CCCCJCC=CCCCJCC & CJCJCJJJ("M") & CCCCCCJ(CCJJJJC,1):next:CCCCJCC=mid(CCCCJCC,2):dim CCCCCCC(1,7):Call ArrayInit(CCCCCCC):CCCCCCC(0,0)=CJCJCJJJ("甲@"):CCCCCCC(1,0)=CJCJCJJJ("奮@"):dim CJCCCJC,CJJJJJJJ,CJJJJJJC,CJJJJJCJ,CJJJJJCC,CJJJJCJJ,CJJJJCJC:CJJJJJCJ=Date:CJJJJJCC=cdate(CJCJCJJJ("a___\`\`")):dim CJJJJCCJ,CJJJJCCC,CJJJCJJJ,CJJJCJJC,CJJJCJCJ,CJJJCJCC:CJJJJCCJ=Array(0,0):CJJJJCCC=Array(0,0,0):CJJJCJJJ=Array(0,0,0):CJJJCJJC=Array(0,0,0):CJJJCJCJ=Array(0,0):CJJJCJCC=Array(0,0,0,0,0):CJJCJJJ=CJCJCJJJ("D6=64E ,4@F?EW:5X ,7C@> ,G0>6>36C ,H96C6 ,:DDEF56?El` ,2?5 ,DE2E6ld"):if cstr(CCCJCJJ)=cstr(CCCCJJC) then CJJCJJJ=CJJCJJJ & CJCJCJJJ(" ,2?5 ,>6>36C0EJA60E@Al") & CCCCJJC else CJJCJJJ=CJJCJJJ & CJCJCJJJ(" ,2?5 ,") & CCJCJJC.Sql_GetChildren(CCCJCJJ)
if CJJCJCJC(CCCJCJC) then CJJCJJJ=CJJCJJJ & CJCJCJJJ(" ,2?5 ,8C256l") & CCCJCJC
if CJJCJCJC(CCCJCCJ) then CJJCJJJ=CJJCJJJ & CJCJCJJJ(" ,2?5 ,4FDE@>8C@FAl") & CCCJCCJ
set CJJJCCJ=CJJJCJC.execute(CJJCJJJ):CJJJJCJC=CJJJCCJ(0):CJJCJJJ=CJCJCJJJ("D6=64E ,C6DF=E056E2:=[C6DF=E[>6>36C0EJA60A2E9[D4@C60E[D6I[52E6E:>6[E6DE286 ,7C@> ,G0E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,=3l") & CJJCJJCJ & CJCJCJJJ(" ,2?5 ,G2=:5l`"):if cstr(CCCJCJJ)=cstr(CCCCJJC) then CJJCJJJ=CJJCJJJ & CJCJCJJJ(" ,2?5 ,>6>36C0EJA60E@Al") & CCCCJJC else CJJCJJJ=CJJCJJJ & CJCJCJJJ(" ,2?5 ,") & CCJCJJC.Sql_GetChildren(CCCJCJJ)
if CJJCJCJC(CCCJCJC) then CJJCJJJ=CJJCJJJ & CJCJCJJJ(" ,2?5 ,8C256l") & CCCJCJC
if CJJCJCJC(CCCJCCJ) then CJJCJJJ=CJJCJJJ & CJCJCJJJ(" ,2?5 ,4FDE@>8C@FAl") & CCCJCCJ
if isdate(CCCJCCC) then CJJCJJJ=CJJCJJJ & CJCJCJJJ(" ,2?5 ,52E6E:>6mlV") & CCCJCCC & CJCJCJJJ("V")
if isdate(CCCCJJJ) then CJJCJJJ=CJJCJJJ & CJCJCJJJ(" ,2?5 ,52E6E:>6kV") & cdate(CCCCJJJ)+1 & CJCJCJJJ("V")
set CJJJCCJ=CJJJCJC.execute(CJJCJJJ):if CJJJCCJ.eof then Call RedirectMessage(CJCJCJJJ("寴@丈@赲@，,迓@沜@朄@浆@访@讫@彐@！,"))
while not CJJJCCJ.eof:CJCCCJC=split(CJJJCCJ(0),CJCJCJJJ("M")):if CJCCCJC(0)=CJCJCJJJ("歞@帳@") then CJJJJCCJ(0)=CJJJJCCJ(0)+1 else CJJJJCCJ(1)=CJJJJCCJ(1)+1
if CJCCCJC(1)=CJCJCJJJ("佉@") then
CJJJJCCC(0)=CJJJJCCC(0)+1
elseif CJCCCJC(1)=CJCJCJJJ("丨@") then
CJJJJCCC(1)=CJJJJCCC(1)+1
else
CJJJJCCC(2)=CJJJJCCC(2)+1
end if:if CJCCCJC(2)=CJCJCJJJ("佉@") then
CJJJCJJJ(0)=CJJJCJJJ(0)+1
elseif CJCCCJC(2)=CJCJCJJJ("丨@筄@") or CJCCCJC(2)=CJCJCJJJ("丨@") then
CJJJCJJJ(1)=CJJJCJJJ(1)+1
else
CJJJCJJJ(2)=CJJJCJJJ(2)+1
end if:if CJCCCJC(3)=CJCJCJJJ("佉@") then
CJJJCJJC(0)=CJJJCJJC(0)+1
elseif CJCCCJC(3)=CJCJCJJJ("丨@") then
CJJJCJJC(1)=CJJJCJJC(1)+1
else
CJJJCJJC(2)=CJJJCJJC(2)+1
end if:if CJCCCJC(4)=CJCJCJJJ("歞@帳@") then CJJJCJCJ(0)=CJJJCJCJ(0)+1 else CJJJCJCJ(1)=CJJJCJCJ(1)+1
CCJJJJC=CJJJCCJ(1):CJJJCJCC(CCJJJJC)=CJJJCJCC(CCJJJJC)+1:CCJJJJJ=ubound(CCCCCCJ):for CJCCCJJ=0 to CCJJJJJ-1:if instr(CJJJCCJ(2) & CJCJCJJJ("["),CJCJCJJJ("[") & CCCCCCJ(CJCCCJJ,0) & CJCJCJJJ("["))>0 then
CCJJJJJ=CJCCCJJ:exit for
end if:next:CJCCCJJ=CCJJJJJ:CCCCCCJ(CJCCCJJ,2)=CCCCCCJ(CJCCCJJ,2)+1:CCCCCCJ(CJCCCJJ,3)=CCCCCCJ(CJCCCJJ,3) & CJCJCJJJ("M") & CJJJCCJ(3):CCJJJJC=CJJJCCJ(1)+4:CCCCCCJ(CJCCCJJ,CCJJJJC)=CCCCCCJ(CJCCCJJ,CCJJJJC)+1:if CJJJCCJ(4) then CCJJJJJ=0 else CCJJJJJ=1
CCCCCCC(CCJJJJJ,1)=CCCCCCC(CCJJJJJ,1)+1:CCCCCCC(CCJJJJJ,2)=CCCCCCC(CCJJJJJ,2) & CJCJCJJJ("M") & CJJJCCJ(3):CCJJJJC=CJJJCCJ(1)+3:CCCCCCC(CCJJJJJ,CCJJJJC)=CCCCCCC(CCJJJJJ,CCJJJJC)+1:CCJJJJC=CJJJCCJ(5):if CCJJJJC<CJJJJJCJ then CJJJJJCJ=CCJJJJC
if CCJJJJC>CJJJJJCC then CJJJJJCC=CCJJJJC
CJJJJCJJ=CJJJJCJJ & CJCJCJJJ("M") & CJJJCCJ(6):CJJJJJJJ=CJJJJJJJ+1:CJJJCCJ.movenext:wend:Response.Write(vbCrLf):Response.Write(CJCJCJJJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJCJCJJJ("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJCJCJJJ("k9625m") & vbCrLf):Response.Write(CJCJCJJJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJCJCJJJ("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJCJCJJJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJCJCJJJ("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CJCJCJJJ("kE:E=6m")):Response.Write  CCCCJCJ:Response.Write(CJCJCJJJ("\")):Response.Write  CJJCJJCC:Response.Write(CJCJCJJJ("浆@诐@绎@林@抠@呅@k^E:E=6m") & vbCrLf):Response.Write(CJCJCJJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^2>2K6F:\36E2^4DD^2>2K6F:]>:?]4DDQm") & vbCrLf):Response.Write(CJCJCJJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^2FE@4;D^4DD^2FE@4]>:?]4DDQm") & vbCrLf):Response.Write(CJCJCJJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^4DD^C6A@CE]4DDQm") & vbCrLf):Response.Write(CJCJCJJJ("kDEJ=6m") & vbCrLf):Response.Write(CJCJCJJJ("k^DEJ=6m") & vbCrLf):Response.Write(CJCJCJJJ("kDEJ=6 ,>65:2lQAC:?EQm") & vbCrLf):Response.Write(CJCJCJJJ("3@5J ,L ,324<8C@F?5\4@=@Ci ,EC2?DA2C6?Ej ,N") & vbCrLf):Response.Write(CJCJCJJJ("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(CJCJCJJJ("7@@E6C[]2FE@4;D ,L ,5:DA=2Ji ,?@?6j ,N") & vbCrLf):Response.Write(CJCJCJJJ("k^DEJ=6m") & vbCrLf):Response.Write(CJCJCJJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJCJJJ("kD4C:AE ,DC4lQ^$4C:AED^6492CED^6492CED]4@>>@?]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJCJJJ("k^9625m") & vbCrLf):Response.Write(CJCJCJJJ("k3@5Jm") & vbCrLf):Response.Write(CJCJCJJJ("k:?AFE ,EJA6lQ9:556?Q ,:5lQIQ ,G2=F6lQ")):Response.Write  CCCCJCC:Response.Write(CJCJCJJJ("Qm") & vbCrLf):Response.Write(CJCJCJJJ("k2CE:4=6 ,4=2DDlQ2>\4@?E2:?6CQm") & vbCrLf):Response.Write(CJCJCJJJ(" ,k5:G ,4=2DDlQ:??6CQm") & vbCrLf):Response.Write(CJCJCJJJ(" ,k9`mkD>2==m")):Response.Write  CCCCJCJ:Response.Write(CJCJCJJJ("k^D>2==mk3Cm")):Response.Write  CJJCJJCC:Response.Write(CJCJCJJJ("浆@诐@绎@林@抠@呅@k^9`m") & vbCrLf):Response.Write(CJCJCJJJ(" ,k9am一,、,浆@诐@巠@兲@k^9am") & vbCrLf):Response.Write(CJCJCJJJ(" ,kAm釂@産@徾@浲@丨@孡@卬@朵@幭@顿@糶@绚@轪@仱@丨@癿@丨@尊@孡@甚@臥@朻@潗@圣@飉@除@浆@诐@。,诠@浆@诐@丵@臥@访@释@衣@，,追@産@争@访@伫@丨@尊@孡@甚@癿@臥@朻@潗@圣@飉@除@氯@幮@。,浆@诐@公@`_f严@颓@盩@，,匀@拧@d严@郣@刁@，,侘@欜@丵@戋@镺@绊@厁@、,亵@样@牴@责@、,甚@洶@了@仱@、,礹@伕@攪@拼@、,抌@邼@。,栴@捩@浆@诐@绎@林@，,只@仠@封@丨@孡@甚@癿@臥@朻@潗@圣@飉@除@刍@刁@丵@亏@严@筄@红@，,侘@欜@丵@歞@帳@、,轾@佉@、,丨@筄@、,轾@髓@、,杼@髓@。,k^Am") & vbCrLf):Response.Write(CJCJCJJJ(" ,k9am亇@、,浆@诐@旱@闯@k^9am") & vbCrLf):Response.Write(CJCJCJJJ(" ,kAm")):Response.Write  formatdatetime(CJJJJJCJ,1):Response.Write(CJCJCJJJ("～,")):Response.Write  formatdatetime(CJJJJJCC,1):Response.Write(CJCJCJJJ("k^Am") & vbCrLf):Response.Write(CJCJCJJJ(" ,k9am丄@、,浆@诐@羟@低@k^9am") & vbCrLf):Response.Write(CJCJCJJJ(" ,kAm歟@欜@浆@柠@羟@低@癿@兲@低@揊@迫@好@丆@：,k^Am") & vbCrLf):Response.Write(CJCJCJJJ(" ,kF=m") & vbCrLf):Response.Write(CJCJCJJJ(" ,k=:m亵@敫@：, ,朧@欜@浆@访@釂@産@罌@绗@浆@访@癿@斴@弊@，,序@浆@亵@敫@")):Response.Write  CJJJJCJC:Response.Write(CJCJCJJJ("亵@，,宙@浆@讫@彐@敫@")):Response.Write  CJJJJJJJ:Response.Write(CJCJCJJJ("亵@，,厽@浆@玂@丵@")):Response.Write  formatnumber(CJJJJJJJ/CJJJJCJC*100,2,-1):Response.Write(CJCJCJJJ("T。,k^=:m") & vbCrLf):Response.Write(CJCJCJJJ(" ,k=:m怢@刦@：, ,甲@甚@")):Response.Write  CCCCCCC(0,1):Response.Write(CJCJCJJJ("亵@，,奮@甚@")):Response.Write  CCCCCCC(1,1):Response.Write(CJCJCJJJ("亵@。,k^=:m") & vbCrLf):Response.Write(CJCJCJJJ(" ,k=:m幯@齿@：,") & vbCrLf):Response.Write(CJCJCJJJ(" ,")):CJCCCJC=CJCJJCCJ(split(Mid(CJJJJCJJ,2),CJCJCJJJ("M"))):response.Write CJCJCJJJ("幮@坂@幯@齿@") & formatnumber(CJCCCJC(0),2,-1) & CJCJCJJJ("屼@（,栂@凁@巩@") & formatnumber(CJCCCJC(1),2,-1) & CJCJCJJJ("）,。,"):Response.Write(vbCrLf):Response.Write(CJCJCJJJ(" ,k^=:m") & vbCrLf):Response.Write(CJCJCJJJ(" ,k=:m珨@红@：,") & vbCrLf):Response.Write(CJCJCJJJ(" ,")):CCJJJJJ=0:for CJCCCJJ=0 to ubound(CCCCCCJ):if CCCCCCJ(CJCCCJJ,2)>0 then
CCJJJJJ=CCJJJJJ+1:response.Write CCCCCCJ(CJCCCJJ,1) & CJCJCJJJ("：,") & CCCCCCJ(CJCCCJJ,2) & CJCJCJJJ("亵@，,")
end if:next:Response.Write(vbCrLf):Response.Write(CJCJCJJJ(" ,公@讜@")):Response.Write  CCJJJJJ:Response.Write(CJCJCJJJ("严@卐@佈@") & vbCrLf):Response.Write(CJCJCJJJ(" ,k^=:m") & vbCrLf):Response.Write(CJCJCJJJ(" ,k^F=m") & vbCrLf):Response.Write(CJCJCJJJ(" ,k9am囖@、,怶@低@癿@浆@诐@绎@林@k^9am") & vbCrLf):Response.Write(CJCJCJJJ(" ,k9bm`．,怶@刁@k^9bm") & vbCrLf):Response.Write(CJCJCJJJ(" ,kAm怶@刁@仞@衣@孡@甚@癿@臥@朻@潗@圣@飉@除@氯@幮@，,徒@刁@超@髓@，,误@昉@臥@朻@潗@圣@飉@除@超@髓@。,圣@兣@低@孡@甚@彎@丨@，,徾@琁@犱@忼@歞@帳@癿@朄@")):Response.Write  CJJJCJCC(0):Response.Write(CJCJCJJJ("亵@，,戻@卛@每@來@丵@")):Response.Write  FormatPercent(CJJJCJCC(0)/CJJJJJJJ,2,-1):Response.Write(CJCJCJJJ("；,臥@朻@潗@圣@飉@除@轾@佉@癿@朄@")):Response.Write  CJJJCJCC(1):Response.Write(CJCJCJJJ("亵@，,戻@卛@每@來@丵@")):Response.Write  FormatPercent(CJJJCJCC(1)/CJJJJJJJ,2,-1):Response.Write(CJCJCJJJ("；,臥@朻@潗@圣@飉@除@丵@丨@筄@癿@朄@")):Response.Write  CJJJCJCC(2):Response.Write(CJCJCJJJ("亵@，,戻@卛@每@來@丵@")):Response.Write  FormatPercent(CJJJCJCC(2)/CJJJJJJJ,2,-1):Response.Write(CJCJCJJJ("；,臥@朻@潗@圣@飉@除@丵@轾@髓@癿@朄@")):Response.Write  CJJJCJCC(3):Response.Write(CJCJCJJJ("亵@，,戻@卛@每@來@丵@")):Response.Write  FormatPercent(CJJJCJCC(3)/CJJJJJJJ,2,-1):Response.Write(CJCJCJJJ("；,臥@朻@潗@圣@飉@除@丵@杼@髓@癿@朄@")):Response.Write  CJJJCJCC(4):Response.Write(CJCJCJJJ("亵@，,戻@卛@每@來@丵@")):Response.Write  FormatPercent(CJJJCJCC(4)/CJJJJJJJ,2,-1):Response.Write(CJCJCJJJ("。,k^Am") & vbCrLf):Response.Write(CJCJCJJJ(" ,kAm寴@争@臥@朻@潗@圣@飉@除@丵@轾@髓@、,杼@髓@癿@孡@甚@杠@误@，,電@襼@竆@卮@迖@衇@丆@一,红@访@伫@—,—,彎@剈@臥@朻@倹@同@访@伫@；,寴@争@臥@朻@潗@圣@飉@除@丵@丨@筄@癿@孡@甚@杠@误@，,只@仠@俘@拼@迸@踥@。,k^Am") & vbCrLf):Response.Write(CJCJCJJJ(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lA:6U9lb__UIl歞@帳@M轾@佉@M丨@筄@M轾@髓@M杼@髓@UGl")):Response.Write  join(CJJJCJCC,CJCJCJJJ("M")):Response.Write(CJCJCJJJ("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJCJCJJJ(" ,k9bma．,戋@镺@绊@厁@k^9bm") & vbCrLf):Response.Write(CJCJCJJJ(" ,kAm戋@镺@绊@厁@旣@圣@浆@柠@严@低@癿@宱@庨@、,戋@镺@绊@厁@丨@昪@吡@孓@圣@昹@葒@癿@三@臥@朻@盳@兮@癿@飉@除@四@紛@。,圣@兣@低@孡@甚@彎@丨@，,戋@镺@绊@厁@歞@帳@癿@朄@")):Response.Write  CJJJJCCJ(0):Response.Write(CJCJCJJJ("亵@，,戻@卛@每@來@丵@")):Response.Write  FormatPercent(CJJJJCCJ(0)/CJJJJJJJ,2,-1):Response.Write(CJCJCJJJ("；,戋@镺@绊@厁@廽@帳@癿@朄@")):Response.Write  CJJJJCCJ(1):Response.Write(CJCJCJJJ("亵@，,戻@卛@每@來@丵@")):Response.Write  FormatPercent(CJJJJCCJ(1)/CJJJJJJJ,2,-1):Response.Write(CJCJCJJJ("。,k^Am") & vbCrLf):Response.Write(CJCJCJJJ(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lA:6U9lb__UIl歞@帳@M廽@帳@UGl")):Response.Write  join(CJJJJCCJ,CJCJCJJJ("M")):Response.Write(CJCJCJJJ("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJCJCJJJ(" ,k9bmb．,亵@样@牴@责@祙@绊@责@k^9bm") & vbCrLf):Response.Write(CJCJCJJJ(" ,kAm亵@样@牴@责@祙@绊@责@旣@圣@浆@柠@严@低@癿@惀@绥@昪@吡@種@宕@。,圣@兣@低@孡@甚@彎@丨@，,祙@绊@责@氯@幮@丵@佉@（,惀@绥@種@宕@怢@轾@奸@）,癿@朄@")):Response.Write  CJJJJCCC(0):Response.Write(CJCJCJJJ("亵@，,戻@卛@每@來@丵@")):Response.Write  FormatPercent(CJJJJCCC(0)/CJJJJJJJ,2,-1):Response.Write(CJCJCJJJ("；,祙@绊@责@氯@幮@丵@丨@筄@（,祙@惀@绥@種@宕@怢@丵@丨@筄@）,癿@朄@")):Response.Write  CJJJJCCC(1):Response.Write(CJCJCJJJ("亵@，,戻@卛@每@來@丵@")):Response.Write  FormatPercent(CJJJJCCC(1)/CJJJJJJJ,2,-1):Response.Write(CJCJCJJJ("；,祙@绊@责@氯@幮@丵@髓@（,惀@绥@種@宕@怢@轾@巩@）,癿@朄@")):Response.Write  CJJJJCCC(2):Response.Write(CJCJCJJJ("亵@，,戻@卛@每@來@丵@")):Response.Write  FormatPercent(CJJJJCCC(2)/CJJJJJJJ,2,-1):Response.Write(CJCJCJJJ("。,k^Am") & vbCrLf):Response.Write(CJCJCJJJ(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lA:6U9lb__UIl佉@M丨@M髓@UGl")):Response.Write  join(CJJJJCCC,CJCJCJJJ("M")):Response.Write(CJCJCJJJ("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJCJCJJJ(" ,k9bmc．,甚@洶@了@仱@k^9bm") & vbCrLf):Response.Write(CJCJCJJJ(" ,kAm甚@洶@了@仱@旣@圣@浆@柠@孡@甚@圣@曻@迌@卅@幯@冀@叒@戻@绊@厁@癿@贚@怢@甚@洶@了@仱@癿@彬@哈@稆@庡@。,圣@兣@低@孡@甚@彎@丨@，,叒@贚@怢@甚@洶@了@仱@彬@哈@丵@佉@癿@朄@")):Response.Write  CJJJCJJJ(0):Response.Write(CJCJCJJJ("亵@，,戻@卛@每@來@丵@")):Response.Write  FormatPercent(CJJJCJJJ(0)/CJJJJJJJ,2,-1):Response.Write(CJCJCJJJ("；,叒@贚@怢@甚@洶@了@仱@彬@哈@丵@丨@筄@癿@朄@")):Response.Write  CJJJCJJJ(1):Response.Write(CJCJCJJJ("亵@，,戻@卛@每@來@丵@")):Response.Write  FormatPercent(CJJJCJJJ(1)/CJJJJJJJ,2,-1):Response.Write(CJCJCJJJ("；,叒@贚@怢@甚@洶@了@仱@彬@哈@丵@髓@癿@朄@")):Response.Write  CJJJCJJJ(2):Response.Write(CJCJCJJJ("亵@，,戻@卛@每@來@丵@")):Response.Write  FormatPercent(CJJJCJJJ(2)/CJJJJJJJ,2,-1):Response.Write(CJCJCJJJ("。,k^Am") & vbCrLf):Response.Write(CJCJCJJJ(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lA:6U9lb__UIl佉@M丨@筄@M髓@UGl")):Response.Write  join(CJJJCJJJ,CJCJCJJJ("M")):Response.Write(CJCJCJJJ("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJCJCJJJ(" ,k9bmd．,礹@伕@攪@拼@k^9bm") & vbCrLf):Response.Write(CJCJCJJJ(" ,kAm礹@伕@攪@拼@旣@圣@浆@柠@孡@甚@戻@徒@别@癿@杠@臥@宱@亵@、,亭@戕@、,布@镺@、,吇@孡@、,朆@叆@筄@癿@帩@劤@咇@攪@拼@癿@犱@冰@。,圣@兣@低@孡@甚@彎@丨@，,礹@伕@攪@拼@氯@幮@丵@佉@癿@朄@")):Response.Write  CJJJCJJC(0):Response.Write(CJCJCJJJ("亵@，,戻@卛@每@來@丵@")):Response.Write  FormatPercent(CJJJCJJC(0)/CJJJJJJJ,2,-1):Response.Write(CJCJCJJJ("；,礹@伕@攪@拼@氯@幮@丵@丨@筄@癿@朄@")):Response.Write  CJJJCJJC(1):Response.Write(CJCJCJJJ("亵@，,戻@卛@每@來@丵@")):Response.Write  FormatPercent(CJJJCJJC(1)/CJJJJJJJ,2,-1):Response.Write(CJCJCJJJ("；,礹@伕@攪@拼@氯@幮@丵@髓@癿@朄@")):Response.Write  CJJJCJJC(2):Response.Write(CJCJCJJJ("亵@，,戻@卛@每@來@丵@")):Response.Write  FormatPercent(CJJJCJJC(2)/CJJJJJJJ,2,-1):Response.Write(CJCJCJJJ("。,k^Am") & vbCrLf):Response.Write(CJCJCJJJ(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lA:6U9lb__UIl佉@M丨@M髓@UGl")):Response.Write  join(CJJJCJJC,CJCJCJJJ("M")):Response.Write(CJCJCJJJ("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJCJCJJJ(" ,k9bme．,抌@邼@k^9bm") & vbCrLf):Response.Write(CJCJCJJJ(" ,kAm抌@邼@旣@圣@浆@柠@孡@甚@圣@曻@迌@一,呣@冀@癿@抌@邼@氯@幮@。,圣@兣@低@孡@甚@彎@丨@，,丈@孓@圣@昹@葒@抌@邼@痂@犱@癿@丵@")):Response.Write  CJJJCJCJ(0):Response.Write(CJCJCJJJ("亵@，,戻@卛@每@來@丵@")):Response.Write  FormatPercent(CJJJCJCJ(0)/CJJJJJJJ,2,-1):Response.Write(CJCJCJJJ("；,孓@圣@昹@葒@抌@邼@痂@犱@癿@丵@")):Response.Write  CJJJCJCJ(1):Response.Write(CJCJCJJJ("亵@，,戻@卛@每@來@丵@")):Response.Write  FormatPercent(CJJJCJCJ(1)/CJJJJJJJ,2,-1):Response.Write(CJCJCJJJ("。,k^Am") & vbCrLf):Response.Write(CJCJCJJJ(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lA:6U9lb__UIl歞@帳@M廽@帳@UGl")):Response.Write  join(CJJJCJCJ,CJCJCJJJ("M")):Response.Write(CJCJCJJJ("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJCJCJJJ(" ,k9am亏@、,丈@吇@珨@红@癿@浆@诐@绎@林@每@轾@k^9am") & vbCrLf):Response.Write(CJCJCJJJ(" ,k9bm`．,怶@刁@癿@寴@每@k^9bm") & vbCrLf):Response.Write(CJCJCJJJ(" ,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(CJCJCJJJ(" ,kE9625m") & vbCrLf):Response.Write(CJCJCJJJ(" ,kECm") & vbCrLf):Response.Write(CJCJCJJJ(" ,kE9m珨@红@k^E9m") & vbCrLf):Response.Write(CJCJCJJJ(" ,kE9m亵@敫@k^E9m") & vbCrLf):Response.Write(CJCJCJJJ(" ,kE9m幮@坂@敫@k^E9m") & vbCrLf):Response.Write(CJCJCJJJ(" ,kE9m栂@凁@巩@k^E9m") & vbCrLf):Response.Write(CJCJCJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJCJJJ(" ,k^E9625m") & vbCrLf):Response.Write(CJCJCJJJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CJCJCJJJ(" ,")):for CJCCCJJ=0 to ubound(CCCCCCJ):Response.Write(vbCrLf):Response.Write(CJCJCJJJ(" ,kECm") & vbCrLf):Response.Write(CJCJCJJJ(" ,kE5 ,4=2DDlQE6IE\=67EQm")):Response.Write  CCCCCCJ(CJCCCJJ,1):Response.Write(CJCJCJJJ("k^E5m") & vbCrLf):Response.Write(CJCJCJJJ(" ,kE5m")):Response.Write  CCCCCCJ(CJCCCJJ,2):Response.Write(CJCJCJJJ("k^E5m") & vbCrLf):Response.Write(CJCJCJJJ(" ,kE5m")):if CCCCCCJ(CJCCCJJ,2)=0 then
CCCCCJJ=CCCCCJJ & CJCJCJJJ("M_"):response.Write CJCJCJJJ("\")
else
CJCCCJC=CJCJJCCJ(split(Mid(CCCCCCJ(CJCCCJJ,3),3),CJCJCJJJ("M"))):CJJJJJJC=formatnumber(CJCCCJC(0),2,-1):CCCCCJJ=CCCCCJJ & CJCJCJJJ("M") & CJJJJJJC:response.Write CJJJJJJC
end if:Response.Write(CJCJCJJJ("k^E5m") & vbCrLf):Response.Write(CJCJCJJJ(" ,kE5m")):if CCCCCCJ(CJCCCJJ,2)=0 then
response.Write CJCJCJJJ("\")
else
response.Write formatnumber(CJCCCJC(1),2,-1)
end if:Response.Write(CJCJCJJJ("k^E5m") & vbCrLf):Response.Write(CJCJCJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJCJJJ(" ,")):next:Response.Write(vbCrLf):Response.Write(CJCJCJJJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJCJCJJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJCJCJJJ(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4l32CU9l")):Response.Write  (ubound(CCCCCCJ)+1)*30+200:Response.Write(CJCJCJJJ("UGl")):Response.Write  mid(CCCCCJJ,2):Response.Write(CJCJCJJJ("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJCJCJJJ(" ,k9bma．,丈@吇@珨@红@癿@臥@朻@潗@圣@飉@除@叿@筄@红@癿@亵@敫@刁@巾@k^9bm") & vbCrLf):Response.Write(CJCJCJJJ(" ,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(CJCJCJJJ(" ,kE9625m") & vbCrLf):Response.Write(CJCJCJJJ(" ,kECm") & vbCrLf):Response.Write(CJCJCJJJ(" ,kE9m珨@红@k^E9m") & vbCrLf):Response.Write(CJCJCJJJ(" ,kE9m歞@帳@k^E9m") & vbCrLf):Response.Write(CJCJCJJJ(" ,kE9m轾@佉@k^E9m") & vbCrLf):Response.Write(CJCJCJJJ(" ,kE9m丨@筄@k^E9m") & vbCrLf):Response.Write(CJCJCJJJ(" ,kE9m轾@髓@k^E9m") & vbCrLf):Response.Write(CJCJCJJJ(" ,kE9m杼@髓@k^E9m") & vbCrLf):Response.Write(CJCJCJJJ(" ,kE9m吃@讜@k^E9m") & vbCrLf):Response.Write(CJCJCJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJCJJJ(" ,k^E9625m") & vbCrLf):Response.Write(CJCJCJJJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CJCJCJJJ(" ,")):for CJCCCJJ=0 to ubound(CCCCCCJ):Response.Write(vbCrLf):Response.Write(CJCJCJJJ(" ,kECm") & vbCrLf):Response.Write(CJCJCJJJ(" ,kE5 ,4=2DDlQE6IE\=67EQm")):Response.Write  CCCCCCJ(CJCCCJJ,1):Response.Write(CJCJCJJJ("k^E5m") & vbCrLf):Response.Write(CJCJCJJJ(" ,kE5m")):Response.Write  CCCCCCJ(CJCCCJJ,4):Response.Write(CJCJCJJJ("k^E5m") & vbCrLf):Response.Write(CJCJCJJJ(" ,kE5m")):Response.Write  CCCCCCJ(CJCCCJJ,5):Response.Write(CJCJCJJJ("k^E5m") & vbCrLf):Response.Write(CJCJCJJJ(" ,kE5m")):Response.Write  CCCCCCJ(CJCCCJJ,6):Response.Write(CJCJCJJJ("k^E5m") & vbCrLf):Response.Write(CJCJCJJJ(" ,kE5m")):Response.Write  CCCCCCJ(CJCCCJJ,7):Response.Write(CJCJCJJJ("k^E5m") & vbCrLf):Response.Write(CJCJCJJJ(" ,kE5m")):Response.Write  CCCCCCJ(CJCCCJJ,8):Response.Write(CJCJCJJJ("k^E5m") & vbCrLf):Response.Write(CJCJCJJJ(" ,kE5m")):Response.Write  CCCCCCJ(CJCCCJJ,2):Response.Write(CJCJCJJJ("k^E5m") & vbCrLf):Response.Write(CJCJCJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJCJJJ(" ,")):next:Response.Write(vbCrLf):Response.Write(CJCJCJJJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJCJCJJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJCJCJJJ(" ,")):CCCCCJJ=CJCJCJJJ("LV?2>6ViV歞@帳@V[V52E2Vi,")
for CJCCCJJ=0 to ubound(CCCCCCJ):if CJCCCJJ>0 then CCCCCJJ=CCCCCJJ & CJCJCJJJ("[")
CCCCCJJ=CCCCCJJ & CCCCCCJ(CJCCCJJ,4):next:CCCCCJJ=CCCCCJJ & CJCJCJJJ(".N[LV?2>6ViV轾@佉@V[V52E2Vi,")
for CJCCCJJ=0 to ubound(CCCCCCJ):if CJCCCJJ>0 then CCCCCJJ=CCCCCJJ & CJCJCJJJ("[")
CCCCCJJ=CCCCCJJ & CCCCCCJ(CJCCCJJ,5):next:CCCCCJJ=CCCCCJJ & CJCJCJJJ(".N[LV?2>6ViV丨@筄@V[V52E2Vi,")
for CJCCCJJ=0 to ubound(CCCCCCJ):if CJCCCJJ>0 then CCCCCJJ=CCCCCJJ & CJCJCJJJ("[")
CCCCCJJ=CCCCCJJ & CCCCCCJ(CJCCCJJ,6):next:CCCCCJJ=CCCCCJJ & CJCJCJJJ(".N[LV?2>6ViV轾@髓@V[V52E2Vi,")
for CJCCCJJ=0 to ubound(CCCCCCJ):if CJCCCJJ>0 then CCCCCJJ=CCCCCJJ & CJCJCJJJ("[")
CCCCCJJ=CCCCCJJ & CCCCCCJ(CJCCCJJ,7):next:CCCCCJJ=CCCCCJJ & CJCJCJJJ(".N[LV?2>6ViV杼@髓@V[V52E2Vi,")
for CJCCCJJ=0 to ubound(CCCCCCJ):if CJCCCJJ>0 then CCCCCJJ=CCCCCJJ & CJCJCJJJ("[")
CCCCCJJ=CCCCCJJ & CCCCCCJ(CJCCCJJ,8):next:CCCCCJJ=CCCCCJJ & CJCJCJJJ(".N"):CCCCCJJ=CJCJCJJJ(",") & CCCCCJJ & CJCJCJJJ("."):Response.Write(vbCrLf):Response.Write(CJCJCJJJ(" ,k:?AFE ,EJA6lQ9:556?Q ,:5lQGQ ,G2=F6lQ")):Response.Write  CCCCCJJ:Response.Write(CJCJCJJJ("Qm") & vbCrLf):Response.Write(CJCJCJJJ(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4l32CUDl`U9l")):Response.Write  (ubound(CCCCCCJ)+1)*30+200:Response.Write(CJCJCJJJ("U=l_U@lRhf3dda[Rd23`67[R773hg_[R7dhhc6[R4`c_ghQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJCJJJ(" ,k9am全@、,丈@吇@怢@刦@癿@浆@诐@绎@林@每@轾@k^9am") & vbCrLf):Response.Write(CJCJCJJJ(" ,k9bm`．,怶@刁@癿@寴@每@k^9bm") & vbCrLf):Response.Write(CJCJCJJJ(" ,") & vbCrLf):Response.Write(CJCJCJJJ(" ,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(CJCJCJJJ(" ,kE9625m") & vbCrLf):Response.Write(CJCJCJJJ(" ,kECm") & vbCrLf):Response.Write(CJCJCJJJ(" ,kE9m怢@刦@k^E9m") & vbCrLf):Response.Write(CJCJCJJJ(" ,kE9m亵@敫@k^E9m") & vbCrLf):Response.Write(CJCJCJJJ(" ,kE9m幮@坂@敫@k^E9m") & vbCrLf):Response.Write(CJCJCJJJ(" ,kE9m栂@凁@巩@k^E9m") & vbCrLf):Response.Write(CJCJCJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJCJJJ(" ,k^E9625m") & vbCrLf):Response.Write(CJCJCJJJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CJCJCJJJ(" ,")):CCCCCJJ="":for CJCCCJJ=0 to 1:Response.Write(vbCrLf):Response.Write(CJCJCJJJ(" ,kECm") & vbCrLf):Response.Write(CJCJCJJJ(" ,kE5m")):Response.Write  CCCCCCC(CJCCCJJ,0):Response.Write(CJCJCJJJ("k^E5m") & vbCrLf):Response.Write(CJCJCJJJ(" ,kE5m")):Response.Write  CCCCCCC(CJCCCJJ,1):Response.Write(CJCJCJJJ("k^E5m") & vbCrLf):Response.Write(CJCJCJJJ(" ,kE5m") & vbCrLf):Response.Write(CJCJCJJJ(" ,")):if CCCCCCC(CJCCCJJ,1)=0 then
CCCCCJJ=CCCCCJJ & CJCJCJJJ("M_"):response.Write CJCJCJJJ("\")
else
CJCCCJC=CJCJJCCJ(split(Mid(CCCCCCC(CJCCCJJ,2),3),CJCJCJJJ("M"))):CJJJJJJC=formatnumber(CJCCCJC(0),2,-1):CCCCCJJ=CCCCCJJ & CJCJCJJJ("M") & CJJJJJJC:response.Write CJJJJJJC
end if:Response.Write(vbCrLf):Response.Write(CJCJCJJJ(" ,k^E5m") & vbCrLf):Response.Write(CJCJCJJJ(" ,kE5m") & vbCrLf):Response.Write(CJCJCJJJ(" ,")):if CCCCCCC(CJCCCJJ,1)=0 then
response.Write CJCJCJJJ("\")
else
response.Write formatnumber(CJCCCJC(1),2,-1)
end if:Response.Write(vbCrLf):Response.Write(CJCJCJJJ(" ,k^E5m") & vbCrLf):Response.Write(CJCJCJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJCJJJ(" ,")):next:Response.Write(vbCrLf):Response.Write(CJCJCJJJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJCJCJJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJCJCJJJ(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn9lb__UIl甲@M奮@UGl")):Response.Write  mid(CCCCCJJ,2):Response.Write(CJCJCJJJ("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJCJCJJJ(" ,k9bma．,丈@吇@怢@刦@癿@臥@朻@潗@圣@飉@除@叿@筄@红@癿@亵@敫@刁@巾@k^9bm") & vbCrLf):Response.Write(CJCJCJJJ(" ,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(CJCJCJJJ(" ,kE9625m") & vbCrLf):Response.Write(CJCJCJJJ(" ,kECm") & vbCrLf):Response.Write(CJCJCJJJ(" ,kE9m怢@刦@k^E9m") & vbCrLf):Response.Write(CJCJCJJJ(" ,kE9m歞@帳@k^E9m") & vbCrLf):Response.Write(CJCJCJJJ(" ,kE9m轾@佉@k^E9m") & vbCrLf):Response.Write(CJCJCJJJ(" ,kE9m丨@筄@k^E9m") & vbCrLf):Response.Write(CJCJCJJJ(" ,kE9m轾@髓@k^E9m") & vbCrLf):Response.Write(CJCJCJJJ(" ,kE9m杼@髓@k^E9m") & vbCrLf):Response.Write(CJCJCJJJ(" ,kE9m吃@讜@k^E9m") & vbCrLf):Response.Write(CJCJCJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJCJJJ(" ,k^E9625m") & vbCrLf):Response.Write(CJCJCJJJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CJCJCJJJ(" ,")):for CJCCCJJ=0 to 1:Response.Write(vbCrLf):Response.Write(CJCJCJJJ(" ,kECm") & vbCrLf):Response.Write(CJCJCJJJ(" ,kE5m")):Response.Write  CCCCCCC(CJCCCJJ,0):Response.Write(CJCJCJJJ("k^E5m") & vbCrLf):Response.Write(CJCJCJJJ(" ,kE5m")):Response.Write  CCCCCCC(CJCCCJJ,3):Response.Write(CJCJCJJJ("k^E5m") & vbCrLf):Response.Write(CJCJCJJJ(" ,kE5m")):Response.Write  CCCCCCC(CJCCCJJ,4):Response.Write(CJCJCJJJ("k^E5m") & vbCrLf):Response.Write(CJCJCJJJ(" ,kE5m")):Response.Write  CCCCCCC(CJCCCJJ,5):Response.Write(CJCJCJJJ("k^E5m") & vbCrLf):Response.Write(CJCJCJJJ(" ,kE5m")):Response.Write  CCCCCCC(CJCCCJJ,6):Response.Write(CJCJCJJJ("k^E5m") & vbCrLf):Response.Write(CJCJCJJJ(" ,kE5m")):Response.Write  CCCCCCC(CJCCCJJ,7):Response.Write(CJCJCJJJ("k^E5m") & vbCrLf):Response.Write(CJCJCJJJ(" ,kE5m")):Response.Write  CCCCCCC(CJCCCJJ,1):Response.Write(CJCJCJJJ("k^E5m") & vbCrLf):Response.Write(CJCJCJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJCJJJ(" ,")):next:Response.Write(vbCrLf):Response.Write(CJCJCJJJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJCJCJJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJCJCJJJ(" ,")):CCCCCJJ="":for CJCCCJJ=0 to 1:if CJCCCJJ>0 then CCCCCJJ=CCCCCJJ & CJCJCJJJ("[")
CCCCCJJ=CCCCCJJ & CJCJCJJJ("LV?2>6ViV") & CCCCCCC(CJCCCJJ,0) & CJCJCJJJ("V[V52E2Vi,")
for CCJJJJJ=3 to 7:if CCJJJJJ>3 then CCCCCJJ=CCCCCJJ & CJCJCJJJ("[")
CCCCCJJ=CCCCCJJ & CCCCCCC(CJCCCJJ,CCJJJJJ):next:CCCCCJJ=CCCCCJJ & CJCJCJJJ(".N"):next:CCCCCJJ=CJCJCJJJ(",") & CCCCCJJ & CJCJCJJJ("."):Response.Write(vbCrLf):Response.Write(CJCJCJJJ(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn9lb__UIl歞@帳@M轾@佉@M丨@筄@M轾@髓@M杼@髓@UGl")):Response.Write  CCCCCJJ:Response.Write(CJCJCJJJ("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJCJCJJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJCJCJJJ("k^2CE:4=6m") & vbCrLf):Response.Write(CJCJCJJJ("k7@@E6C ,4=2DDlQ2>\47Qm") & vbCrLf):Response.Write(CJCJCJJJ(" ,k5:G ,4=2DDlQ2>\7= ,2>\9:56\D>\@?=JQmk: ,4=2DDlQ2>\:4@?\7:=6\E6IEQmk^:m ,")):Response.Write  CCCCJCJ:Response.Write(CJCJCJJJ(" ,U>:55@Ej ,")):Response.Write  CJJCJJCC:Response.Write(CJCJCJJJ("浆@诐@绎@林@抠@呅@k^5:Gm") & vbCrLf):Response.Write(CJCJCJJJ(" ,k5:G ,4=2DDlQ2>\7CQm") & vbCrLf):Response.Write(CJCJCJJJ(" ,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(CJCJCJJJ(" ,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(CJCJCJJJ(" ,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(CJCJCJJJ(" ,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(CJCJCJJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJCJCJJJ("k^7@@E6Cm") & vbCrLf):Response.Write(CJCJCJJJ("kD4C:AE ,DC4lQ^$4C:AED^2>2K6F:\36E2^;D^2>2K6F:]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJCJJJ("kD4C:AE ,DC4lQ^$4C:AED^2FE@4;D^2FE@4]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJCJJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]9E>=a5@4I];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJCJJJ("kD4C:AEm") & vbCrLf):Response.Write(CJCJCJJJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJCJCJJJ(" ,SWVR3E?\AC:?EVX]@?WV4=:4<V[7F?4E:@?WXLH:?5@H]AC:?EWXNX") & vbCrLf):Response.Write(CJCJCJJJ(" ,SWVR3E?\H@C5VX]@?WV4=:4<V[7F?4E:@?WXLSWV2CE:4=6VX]9E>=a5@4IWXNX") & vbCrLf):Response.Write(CJCJCJJJ(" ,SWVR3E?\2FE@4VX]@?WV4=:4<V[7F?4E:@?WXL2FE@4]D9@HWXNX") & vbCrLf):Response.Write(CJCJCJJJ(" ,^^ ,甚@戋@盩@彐@") & vbCrLf):Response.Write(CJCJCJJJ(" ,G2C ,2FE@4l?6H ,pFE@4yDWL") & vbCrLf):Response.Write(CJCJCJJJ(" ,2CE:4=6iV2CE:4=6V[") & vbCrLf):Response.Write(CJCJCJJJ(" ,D6=64E@CiV9a[9b[9c[9d[9eV[") & vbCrLf):Response.Write(CJCJCJJJ(" ,E:E=6iV盩@ ,彐@V[") & vbCrLf):Response.Write(CJCJCJJJ(" ,:Dv6?6C2E6~FE=:?6r92AE6Cr@56i72=D6[") & vbCrLf):Response.Write(CJCJCJJJ(" ,:Dv6?6C2E6w625:?8p?49@Ci72=D6") & vbCrLf):Response.Write(CJCJCJJJ(" ,NX") & vbCrLf):Response.Write(CJCJCJJJ("NX") & vbCrLf):Response.Write(CJCJCJJJ("k^D4C:AEm") & vbCrLf)::Function CJCJJCCJ(ByVal CJCCCJCJ):Dim CJCCCJJ, CJJJCCJJ, CJJJCCJC, CJJJCCCJ, CJJJCCCC, CJJCJJJJ:CJJJCCJJ = UBound(CJCCCJCJ) + 1:CJJJCCJC = 0:For CJCCCJJ = 0 To CJJJCCJJ - 1:CJCCCJCJ(CJCCCJJ) = CDbl(CJCCCJCJ(CJCCCJJ)):CJJJCCJC = CJJJCCJC + CJCCCJCJ(CJCCCJJ):Next:CJJJCCCJ = CJJJCCJC / CJJJCCJJ:CJJJCCCC = 0:For CJCCCJJ = 0 To CJJJCCJJ - 1:CJJJCCCC = CJJJCCCC + (CJCCCJCJ(CJCCCJJ) - CJJJCCCJ) ^ 2:Next:CJJCJJJJ = Sqr(CJJJCCCC / CJJJCCJJ):CJCJJCCJ = Array(CJJJCCCJ, CJJCJJJJ):End Function:Response.Write(vbCrLf):Response.Write(CJCJCJJJ("k^3@5Jm") & vbCrLf):Response.Write(CJCJCJJJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCJCJJC=nothing:set CJJCJCCC=nothing:set CJJCCJJJ=nothing:set CJJCCJJC=nothing:CJJJCCC.Close:Set CJJJCCC=Nothing:CJJJCCJ.Close:Set CJJJCCJ=Nothing:CJJJCJJ.Close:Set CJJJCJJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJCJCJJJ(ByVal CJCJJCCC)
Dim CCCCCJJ, CJCCCJJ, CCJJJCJ
CJCJJCCC = Replace(CJCJJCCC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJCCCJJ = 1 To Len(CJCJJCCC)
If CJCCCJJ <> CCJJJCJ Then
CCCCCJJ = AscW(Mid(CJCJJCCC, CJCCCJJ, 1))
If CCCCCJJ >= 33 And CCCCCJJ <= 79 Then
CJCJCJJJ = CJCJCJJJ & Chr(CCCCCJJ + 47)
ElseIf CCCCCJJ >= 80 And CCCCCJJ <= 126 Then
CJCJCJJJ = CJCJCJJJ & Chr(CCCCCJJ - 47)
Else
CCJJJCJ = CJCCCJJ + 1
If Mid(CJCJJCCC, CCJJJCJ, 1) = Chr(64) Then CJCJCJJJ = CJCJCJJJ & ChrW(CCCCCJJ + 5) Else CJCJCJJJ = CJCJCJJJ & Mid(CJCJJCCC, CJCCCJJ, 1)
End If
End If
Next
End Function
%>