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