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