<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim CCJCCJ, conn,rs, CCCJJC, sql:Set CCJCCJ = server.CreateObject(CCJCJJJJ("ps~sq]r@??64E:@?")):CCJCCJ.open Application(CCJCJJJJ("r@??64E:@?$EC:?8")):Set conn=CCJCCJ::Dim CCCJCC,CCCCJJ,CCCCJC,CCCCCJ,CCCCCC,CJJJJJJ,CJJJJJC,CJJJJCJ,CJJJJCC:Dim CJJJCJJ,CJJJCJC,CJJJCCJ,CJJJCCC,CJJCJJJ,CJJCJJC:Dim CJJCJCJ,CJJCJCC,CJJCCJJ:Dim CJJCCJC:CJJCCJC=Trim(Request.Cookies(CCJCJJJJ("!$*|t|qt#"))):if CJJCCJC="" then Call ClearMemberCookie else Call CheckMemberCookie end if:if CCCJCC>0 then sql=CCJCJJJJ("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?@=@40 then Call RedirectMessage(CCJCJJJJ("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,")) Call SetMemberCookie(CCCJCC,CCCCJJ) End IF end if:Sub CheckRight(CCJJCJJ):dim CJJCCCJ,CJJCCCC:if CCCJCC=0 then Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CCJCJJJJ("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,")) elseIf not CJCJJCJC(CCJJCJJ) then Call RedirectMessage(CCJCJJJJ("朾@陋@W") & CCJJCJJ & CCJCJJJJ("X袦@祼@歝@，,诲@三@糶@绚@箜@琁@呓@聏@糶@。,")) end if:End Sub:Function CJCJJCJC(CCJJCJJ):dim CJJCCCJ,CJJCCCC:CJJCCCC=split(CCJJCJJ,CCJCJJJJ("[")):CJCJJCJC=False:for CJJCCCJ=0 to ubound(CJJCCCC):If Mid(CCCCJC,CJJCCCC(CJJCCCJ),1)="1" then CJCJJCJC=True:exit function end if:next:End Function:Sub CheckLogined():if CCCJCC=0 then Call ClearMemberCookie:Call ConnClose:dim CJCJJJJ:CJCJJJJ=trim(request.QueryString(CCJCJJJJ("D49@@="))):if isnumeric(CJCJJJJ) then response.Redirect CCJCJJJJ("^>^G2?E^R^D49@@=^") & CJCJJJJ & CCJCJJJJ("^DEF56?E^=@8:?nC65:C64El") & CJCCJJC else Call RedirectMessage(CCJCJJJJ("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,")) end if end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CCJCJJJJ("!$*|t|qt#"))="":CCCJCC=0:CJJJJJJ=0:CCCCJJ=Empty:CCCCCC=0:CJJJJCJ=0:CJJJJJC=0:CCCCCJ=0:CJJJCJJ=False:CJJCJCC=False:CJJCCJJ=Empty:End Sub:Sub CheckMemberCookie():dim CJCJJJC,CJCJJCJ,CJJCCCJ,CJCJJCC,CJCJCJJ:CJCJJJC=split(CJJCCJC,CCJCJJJJ("]")):if ubound(CJCJJJC)<>2 then Call ClearMemberCookie elseif not isnumeric(CJCJJJC(0)) or len(CJCJJJC(1))<>32 or len(CJCJJJC(2))<>32 then Call ClearMemberCookie else CJCJJCJ=CJCJJJC(1):for CJJCCCJ=1 to len(CJCJJCJ):CJCJJCC=mid(CJCJJCJ,CJJCCCJ,1):if isnumeric(CJCJJCC) then CJCJCJJ=CJCJCJJ & CJCJJCC if len(CJCJCJJ)=7 then exit for next:CJCJJCJ=CJCJJJC(2):if CJCJCJJ<>mid(CJCJJCJ,6,7) then Call ClearMemberCookie else CJCJJCC=mid(CJCJJCJ,18,10)/2:if CJCJJCC6"), CCJCJJJJ("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CCJCJJJJ("kD4C:AE"), CCJCJJJJ("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CJCJCCJ=new RegExp:CJCJCCJ.Pattern=CCJCJJJJ("@?W,2\K.ZXl"):CJCJCCJ.IgnoreCase = True:CJCJCCJ.Global=True:str=CJCJCCJ.Replace(str,CCJCJJJJ("@?S`U6BF2=Dj")):set CJCJCCJ=nothing:CJCJJCCJ=str End If:End Function:Function IIf(CCJCJJCC, CCJCJCJJ, CCJCJCJC):if isnull(CCJCJJCC) or isempty(CCJCJJCC) then IIf = CCJCJCJC elseif CCJCJJCC Then IIf = CCJCJCJJ Else IIf = CCJCJCJC end if:End Function:Const CJJCCCJC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::Sub Debug(str):response.Charset=CCJCJJJJ("FE7\g"):dim CJJCCCJ,CJCJJCC,CJCJCCC:if isarray(str) then on error resume next:CJJCCCJ=ubound(str,2):CJCJCCC=err.number:err.clear:on error goto 0:if CJCJCCC<>0 then for CJJCCCJ=0 to ubound(str):if CJJCCCJ>0 then response.Write CCJCJJJJ("k3C ,^m") response.Write CJJCCCJ & CCJCJJJJ("i ,") & str(CJJCCCJ):next else response.Write CCJCJJJJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m") for CJJCCCJ=0 to ubound(str,2):response.Write CCJCJJJJ("kE9 ,2=:8?lV=67EVm") & CJJCCCJ & CCJCJJJJ("k^E9m") next:response.Write CCJCJJJJ("k^ECm"):for CJJCCCJ=0 to ubound(str):response.Write CCJCJJJJ("kECmkE9m") & CJJCCCJ & CCJCJJJJ("k^E9m"):for CJCJJCC=0 to ubound(str,2):response.Write CCJCJJJJ("kE5m") & str(CJJCCCJ,CJCJJCC) & CCJCJJJJ("k^E5m"):next:response.Write CCJCJJJJ("k^ECm"):next:response.Write CCJCJJJJ("k^E23=6m") end if elseif isnull(str) then response.Write CCJCJJJJ(",}F==.") else Response.Write replace(str,vbcrlf,CCJCJJJJ("k3Cm")) end if:Call ConnClose:Response.End:End Sub:Public Function CJCJCJJJ():Dim CJCCJJJ, CJCCJJC:CJCCJJC = Request.ServerVariables(CCJCJJJJ("!p%w0x}u~")):CJCCJJJ = Request.ServerVariables(CCJCJJJJ("""&t#*0$%#x}v")):If CJCCJJJ <> Empty Then if instr(lcase(CJCCJJJ),CCJCJJJJ("Tb4:7C2>6"))>0 or instr(lcase(CJCCJJJ),CCJCJJJJ("Tb4D4C:AE"))>0 then Call RedirectMessage(CCJCJJJJ("寴@丈@赲@，,患@癿@圫@圻@栊@否@朄@静@泐@孒@笡@！,！,！,")) CJCCJJC = CJCCJJC & CCJCJJJJ("n") & CJCCJJJ end if:CJCJCJJJ = CJCCJJC:End Function:Sub SetHttpOnlyCookie(CCJCJCCJ,CCJCJCCC):dim CJCJJJC:CJCJJJC=CCJCJCCJ & CCJCJJJJ("l") & CCJCJCCC & CCJCJJJJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCJCJJJJ("$6E\r@@<:6"),CJCJJJC):End Sub::::::sub ShowMessage(CCJCCJJJ):response.Charset="utf-8":Response.Write CCJCJJJJ("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") & CCJCCJJJ & CCJCJJJJ("k^5:Gmk^5:Gmk3Cm") end sub:Function CJCJCJJC(CJCJCCC):if isnull(CJCJCCC) or trim(CJCJCCC)="" or not isnumeric(CJCJCCC) then CJCJCJJC=false else Dim CJCJCCJ:Set CJCJCCJ = New RegExp:CJCJCCJ.Pattern = CCJCJJJJ("/-5ZS"):CJCJCCJ.IgnoreCase = True:CJCJCJJC = CJCJCCJ.test(CJCJCCC):set CJCJCCJ=nothing end if:End Function:Function CJCJCJCJ(CCJCCJJC):dim CJCCJCJ,CJCCJCC:CJCCJCJ=CCJCJJJJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CCJCCJJC & CCJCJJJJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJCCJCC=CCJCCJ.execute(CJCCJCJ):CJCJCJCJ = CJCCJCC(0):if isnull(CJCJCJCJ) then CJCJCJCJ=1 CJCCJCC.close : set CJCCJCC=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CCJCJCJ=nothing:set CJCJCJCC=nothing:set CJCJCCJJ=nothing:set CJCJCCJC=nothing:CJCCJCC.close : set CJCCJCC=nothing:CCCJJC.Close : Set CCCJJC=Nothing:rs.Close : Set rs=Nothing:CJCJCCCJ.Close : Set CJCJCCCJ = Nothing:CCJCCJ.Close : Set CCJCCJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCJCCJJJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCJCJJJJ("!$*0|6DD286"),server.URLEncode(CCJCCJJJ)):Response.Redirect CCJCJJJJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::Function CJCJCCCC(CJCJCCC):Dim CJCCCJJ, CJCCCJC, CJCCCCJ, CJCCCCC, str:If Not CJCJCJJC(CJCJCCC) or CJCJCCC=0 Then str=0 else CJCCCJJ = Fix(CJCJCCC / 86400):CJCCCJC = Fix((CJCJCCC - CJCCCJJ * 86400) / 3600):CJCCCCJ = Fix((CJCJCCC - CJCCCJJ * 86400 - CJCCCJC * 3600) / 60):CJCCCCC = Fix(CJCJCCC - CJCCCJJ * 86400 - CJCCCJC * 3600 - CJCCCCJ * 60):If CJCCCJJ <> 0 Then str = CJCCCJJ & CCJCJJJJ("夤@") If CJCCCJC <> 0 Then str = str & CJCCCJC & CCJCJJJJ("尊@旱@") If CJCCCCJ <> 0 Then str = str & CJCCCCJ & CCJCJJJJ("刁@") if CJCCCCC <> 0 Then str = str & CJCCCCC & CCJCJJJJ("种@") end if:CJCJCCCC = str:End Function::::::::::::Function CJCCJJJJ(ByVal CJCCJJJC,style):if not isdate(CJCCJJJC) then CJCCJJJJ=CJCCJJJC:exit function end if:dim CCJJJJJ,CCJJJJC,CCJJJCJ,CCJJJCC:CJCCJJJC=cdate(CJCCJJJC):CCJJJJJ=Year(CJCCJJJC):CCJJJJC=Month(CJCCJJJC):CCJJJCJ=Day(CJCCJJJC):select case style:case 0:CJCCJJJJ=CCJJJJJ & CCJCJJJJ("\") & right(0 & CCJJJJC,2) & CCJCJJJJ("\") & right(0 & CCJJJCJ,2):case 1:CJCCJJJJ=CCJJJJJ & right(0 & CCJJJJC,2) & right(0 & CCJJJCJ,2):case 2:CJCCJJJJ=right(CCJJJJJ,2) & CCJCJJJJ("\") & right(0 & CCJJJJC,2) & CCJCJJJJ("\") & right(0 & CCJJJCJ,2):case 3:CJCCJJJJ=CCJJJJJ & CCJCJJJJ("\") & right(0 & CCJJJJC,2):case 4:CJCCJJJJ=right(0 & CCJJJJC,2) & CCJCJJJJ("\") & right(0 & CCJJJCJ,2):case 5:CJCCJJJJ=right(0 & CCJJJCJ,2):case 6:CJCCJJJJ=CCJJJJJ & CCJCJJJJ("幯@") & right(0 & CCJJJJC,2) & CCJCJJJJ("會@") & right(0 & CCJJJCJ,2) & CCJCJJJJ("无@"):case else CJCCJJJJ=CJCCJJJC:end select:End Function:Function CJCCJJCJ(Table):Dim CJCCJCC, CCJJCJJ, str(), CJJCCCJ,CJCJJCC,CCJJCJC:CCJJCJC=UCase(Table):If Not IsArray(Application(CCJCJJJJ("!$*0") & CCJJCJC)) Then Sql=CCJCJJJJ("D6=64E ,:5[?2>6[>6>36CEJA6 ,7C@> ,,") & Table & CCJCJJJJ(". ,@C56C ,3J ,D@CE[:5"):set CJCCJCC=server.createobject(CCJCJJJJ("25@53]C64@C5D6E")):CJCCJCC.open sql,CCJCCJ,1:CCJJCJJ = CJCCJCC.RecordCount:ReDim str(CCJJCJJ, 2):If CCJJCJJ > 0 Then For CJJCCCJ = 1 To CCJJCJJ:for CJCJJCC=0 to 2:str(CJJCCCJ, CJCJJCC) = CJCCJCC(CJCJJCC):next:CJCCJCC.MoveNext:Next End If:CJCCJCC.Close: Set CJCCJCC = Nothing:Application(CCJCJJJJ("!$*0") & CCJJCJC) = str End If:CJCCJJCJ = Application(CCJCJJJJ("!$*0") & CCJJCJC):End Function:Sub ShowListSelect(CCJCCJJC,CCJCCJCJ,CCJCCJCC):Dim str, CJJCCCJ, CCJJCCJ:CCJJCCJ = CJCCJJCJ(CCJCCJJC):For CJJCCCJ = 1 To UBound(CCJJCCJ):if Cstr(CCJJCCJ(CJJCCCJ,2))=Cstr(CCJCCJCJ) then str = str & CCJCJJJJ("k@AE:@? ,G2=F6lV") & CCJJCCJ(CJJCCCJ, 0) & CCJCJJJJ("V") If CStr(CCJJCCJ(CJJCCCJ, 0)) = CCJCCJCC & "" Then str = str & CCJCJJJJ(" ,D6=64E65lVD6=64E65V") str = str & CCJCJJJJ("m") & CCJJCCJ(CJJCCCJ, 1) & CCJCJJJJ("k^@AE:@?m") end if:Next:Response.Write str:End Sub:Function CJCCJJCC(CCJCCJJC,CCJCCJCJ,CJJCCJJJ):Dim str, CJJCCCJ, CCJJCCJ:CCJJCCJ = CJCCJJCJ(CCJCCJJC):For CJJCCCJ = 1 To UBound(CCJJCCJ):if Cstr(CCJJCCJ(CJJCCCJ,2))=Cstr(CCJCCJCJ) and CStr(CCJJCCJ(CJJCCCJ, 0)) = CJJCCJJJ & "" then str=CCJJCCJ(CJJCCCJ,1):exit for end if:Next:if str="" then str=CCJCJJJJ(",朥@矠@.") CJCCJJCC=str:End Function:::::::::::::::Function CJCCJCJJ(CCJCCCJJ,str):dim CJJCCCJ,CCJJCCC,CCJCJJJ,CCJJJJC,CJCJCCC,CCJCJJC,CJCJCJJ:CJCJCJJ=ucase(CCJCCCJJ):CCJCJJC=str:if CCJCJJC="" then CCJCJJC=request.cookies(CJCJCJJ):if CCJCJJC="" then CJCCJCJJ="" else CCJCJJC=strreverse(CCJCJJC):CCJJCCC=len(CCJCJJC):for CJJCCCJ=1 to CCJJCCC-1 step 2:CCJJJJC=mid(CCJCJJC,CJJCCCJ,1):CJCJCCC=mid(CCJCJJC,CJJCCCJ+1,1):CCJCJJJ=CCJCJJJ & CJCJCCC & CCJJJJC:next:CCJCJJJ=replace(CCJCJJJ,CCJCJJJJ("L0N"),CCJCJJJJ(" ,")):CCJCJJJ=replace(CCJCJJJ,CCJCJJJJ("LIN"),CCJCJJJJ("Y")):CCJCJJJ=replace(CCJCJJJ,CCJCJJJJ("L:N"),CCJCJJJJ("^")):CJCCJCJJ=trim(CCJCJJJ) end if else if Len(CCJCJJC) Mod 2=1 then CCJCJJC=CCJCJJC & CCJCJJJJ(" ,") CCJCJJC=replace(CCJCJJC,CCJCJJJJ(" ,"),CCJCJJJJ("L0N")):CCJCJJC=replace(CCJCJJC,CCJCJJJJ("Y"),CCJCJJJJ("LIN")):CCJCJJC=replace(CCJCJJC,CCJCJJJJ("^"),CCJCJJJJ("L:N")):CCJJCCC=len(CCJCJJC):for CJJCCCJ=1 to CCJJCCC-1 step 2:CCJJJJC=mid(CCJCJJC,CJJCCCJ,1):CJCJCCC=mid(CCJCJJC,CJJCCCJ+1,1):CCJCJJJ=CCJCJJJ & CJCJCCC & CCJJJJC:next:CCJCJJJ=Trim(strreverse(CCJCJJJ)):CJCCJCJJ=CCJCJJJ:response.cookies(CJCJCJJ)=CCJCJJJ end if:End Function::Sub ClearCache(CCJCCCJC):Application.Contents.Remove CCJCCCJC End Sub::Class jTree:Private Sql, CCJCJCJ, CCJCJCC, CCJCCJJ,CCJCCJC,CCJCCCJ,CCJCCCC,CCCJJJJ:Private Sub Class_Initialize():CCJCJCC = 0:CCJCCJJ = 0:CCCJJJJ=10:End Sub:Public Property Let Table(CCJCCCCJ):if CCJCCCCJ="" then Call RedirectMessage(CCJCJJJJ("寴@丈@赲@，,;%C66籶@宙@來@匑@旱@沜@朄@讹@罩@忀@襼@癿@屙@怢@！,")) CCJCCJC=CCJCCCCJ:CCJCCCJ=CCJCJJJJ("!$*0") & UCase(CCJCCJC):Call GetTreeArray:End Property:Public Property Get Table():Table=CCJCCJC:End Property:::Private Sub GetTreeArray():Dim CJJCCCJ, CJCJJCC, CCCJJJC,RecordCount:CCJCJCJ = Application(CCJCCCJ):If Not IsArray(CCJCJCJ) Then Sql = CCJCJJJJ("D6=64E ,4@F?EW:5X ,7C@> ,") & CCJCCJC:if CCJCCCC<>"" then Sql=Sql & CCJCJJJJ(" ,H96C6 ,") & CCJCCCC set CCCJJJC=CCJCCJ.execute(sql):RecordCount=CCCJJJC(0):if RecordCount=0 then Call RedirectMessage(CCJCJJJJ("柠@话@W") & CCJCCJC & CCJCJJJJ("^") & CCJCCCC & CCJCJJJJ("X沜@朄@绎@林@敫@捩@")) CCJCCJJ=RecordCount+CCCJJJJ:ReDim CCJCJCJ(CCJCCJJ, 4):Sql = CCJCJJJJ("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJCCJC & CCJCJJJJ(" ,H:E9 ,W?@=@4"" then Sql=Sql & CCJCJJJJ(" ,H96C6 ,") & CCJCCCC Sql=Sql & CCJCJJJJ(" ,@C56C ,3J ,D@CE[:5"):set CCCJJJC=CCJCCJ.execute(sql):For CJJCCCJ = 1 To RecordCount:For CJCJJCC = 0 To 4:CCJCJCJ(CJJCCCJ, CJCJJCC) = CCCJJJC(CJCJJCC):if IsNull(CCJCJCJ(CJJCCCJ,4)) then CCJCJCJ(CJJCCCJ,4)=0 If CCJCJCJ(CJJCCCJ,2)="" then CCJCJCJ(CJJCCCJ,2)=CCJCJJJJ(",穵@.") Next:CCCJJJC.MoveNext:Next:CCCJJJC.Close: Set CCCJJJC = Nothing:for CJJCCCJ=CCJCCJJ-(CCCJJJJ-1) to CCJCCJJ:CCJCJCJ(CJJCCCJ,0)=CJJCCCJ:next:Application.Lock():Application(CCJCCCJ) = CCJCJCJ:Application.UnLock() else CCJCCJJ=Ubound(CCJCJCJ) End If:End Sub:::::Private Function CJCCJCCJ(CJJCCJJJ):dim CJJCCCJ,CCCJJCC:CJCCJCCJ=0:CCCJJCC=CStr(CJJCCJJJ):if CCCJJCC<>"0" then for CJJCCCJ=1 to CCJCCJJ:If CStr(CCJCJCJ(CJJCCCJ, 0))=CCCJJCC Then CJCCJCCJ = CJJCCCJ:Exit For End If:Next end if:End Function:Public Function CJCCJCCC(CJJCCJJJ):if Cstr(CJJCCJJJ)="0" then CJCCJCCC=CCJCJJJJ("栴@") else Dim CJJCCCJ,CCCJJJC:CJJCCCJ=CJCCJCCJ(CJJCCJJJ):if CJJCCCJ>0 then CJCCJCCC=CCJCJCJ(CJJCCCJ,2):if CJCCJCCC="" then set CCCJJJC=CCJCCJ.execute(CCJCJJJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJCCJC & CCJCJJJJ(" ,H96C6 ,:5l") & CJJCCJJJ):if CCCJJJC.eof then Call RedirectMessage(CCJCJJJJ("xs（,") & CJJCCJJJ & CCJCJJJJ("）,朥@批@别@")) CJCCJCCC=CCCJJJC(1):Call UpdateCache(CJJCCJJJ,CCCJJJC(0),CJCCJCCC,CCCJJJC(2),CCCJJJC(3)):CCCJJJC.Close: Set CCCJJJC = Nothing end if else set CCCJJJC=CCJCCJ.execute(CCJCJJJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJCCJC & CCJCJJJJ(" ,H96C6 ,:5l") & CJJCCJJJ):if CCCJJJC.eof then Call RedirectMessage(CCJCJJJJ("xs（,") & CJJCCJJJ & CCJCJJJJ("）,朥@批@别@")) CJCCJCCC=CCCJJJC(1):Call UpdateCache(CJJCCJJJ,CCCJJJC(0),CJCCJCCC,CCCJJJC(2),CCCJJJC(3)):CCCJJJC.Close: Set CCCJJJC = Nothing end if end if:End Function:::Public Function CJCCCJJJ(CJJCCJJJ):Dim CJJCCCJ,CCCJCJJ:CJJCCCJ=CJCCJCCJ(CJJCCJJJ):if CJJCCCJ=0 then CCCJCJJ=CJCCCJJC(CJJCCJJJ) else CCCJCJJ=CCJCJCJ(CJJCCCJ,3):if isnull(CCCJCJJ) or CCCJCJJ="" then CCCJCJJ=CJCCCJJC(CJJCCJJJ) elseif Mid(CCCJCJJ,instrrev(CCCJCJJ,CCJCJJJJ("["))+1)<>CStr(CJJCCJJJ) then CCCJCJJ=CJCCCJJC(CJJCCJJJ) elseif Left(CCCJCJJ,1)=CCJCJJJJ("[") then CCCJCJJ=CJCCCJJC(CJJCCJJJ) end if end if:CJCCCJJJ=CCCJCJJ:End Function:Private Function CJCCCJJC(CJJCCJJJ):dim CCCJJCC:CCCJJCC=CStr(CJJCCJJJ):if CCCJJCC="0" then CJCCCJJC="" else dim CCCJJJC:set CCCJJJC=CCJCCJ.execute(CCJCJJJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJCCJC & CCJCJJJJ(" ,H96C6 ,:5l") & CJJCCJJJ):if CCCJJJC.eof then Call UpdateCache(CJJCCJJJ,"","","",""):Call RedirectMessage(CCJCJJJJ("顴@盩@（,xs：,") & CJJCCJJJ & CCJCJJJJ("）,丈@孓@圣@，,诲@患@迏@囙@吉@釈@斫@擈@佗@。,")) else if CCCJJJC(0)=0 then CJCCCJJC="0," & CJJCCJJJ else CJCCCJJC=CJCCCJJJ(CCCJJJC(0)) & CCJCJJJJ("[") & CJJCCJJJ end if:if CCCJJJC(2)<>CJCCCJJC then CCJCCJ.execute CCJCJJJJ("FA52E6 ,") & CCJCCJC & CCJCJJJJ(" ,D6E ,A2E9lV") & CJCCCJJC & CCJCJJJJ("V ,H96C6 ,:5l") & CJJCCJJJ else CJCCCJJC=CCCJJJC(2) end if end if:Call UpdateCache(CJJCCJJJ,CCCJJJC(0),CCCJJJC(1),CJCCCJJC,CCCJJJC(3)):CCCJJJC.Close: Set CCCJJJC = Nothing end if:End Function::Public Function CJCCCJCJ(CJJCCJJJ):CJCCCJCJ = Mid(CJCCCJJJ(CJJCCJJJ), 3):End Function:Public Function CJCCCJCC(CJJCCJJJ):Dim CJJCCCJ, CJCJJCC, CCCJCJC,Str, CCCJCJJ, CCJJCJJ, CJJCCCC():CCCJCJJ = CJCCCJCJ(CJJCCJJJ):CCCJCJJ = Split(CCCJCJJ, CCJCJJJJ("[")):for CJJCCCJ=0 to Ubound(CCCJCJJ):CCCJCJC=CCCJCJJ(CJJCCCJ):str=str & CCJCJJJJ("M") & CCCJCJC & CCJCJJJJ("M") & CJCCJCCC(CCCJCJC):next:if str<>"" then str=Mid(str,2) CJCCCJCC=str:End Function:::::::::Public Function Sql_GetChildren(CJJCCJJJ):dim CCCJCJJ:CCCJCJJ=CJCCCJJJ(CJJCCJJJ):Sql_GetChildren = CCJCCJC & CCJCJJJJ("0A2E9ZV[V ,=:<6 ,V") & CCCJCJJ & CCJCJJJJ("[TV") End Function:Public Function HaveChildren(CJJCCJJJ):Dim CJJCCCJ:HaveChildren = False:CJJCCJJJ=CLng(CJJCCJJJ):For CJJCCCJ = 1 To CCJCCJJ:If CCJCJCJ(CJJCCCJ, 1) = CJJCCJJJ Then HaveChildren = True:Exit For End If:Next:End Function::Public Function GetPositionStr_From(CJJCCJJJ, CJCCCCCC):if isnull(CJJCCJJJ) or isnull(CJCCCCCC) then GetPositionStr_From=CCJCJJJJ(",厽@敫@锔@诪@."):exit function end if:Dim Str, CJJCCCJ, CJJCCCC, CCJJCJJ, CCCJCCJ:CJCCCCCC = CStr(CJCCCCCC):If CJCCCCCC = "0" or CJCCCCCC = CStr(CJJCCJJJ) Then Str = CJCCJCCC(CJJCCJJJ) Else CJJCCCC = Split(CJCCCJCC(CJJCCJJJ), CCJCJJJJ("M")):CCJJCJJ = UBound(CJJCCCC):CCCJCCJ = False:For CJJCCCJ = 0 To CCJJCJJ Step 2:If CJJCCCC(CJJCCCJ) = CJCCCCCC And Not CCCJCCJ Then CCCJCCJ = True If CCCJCCJ Then If Str <> "" Then Str = Str & CCJCJJJJ("→,") Str = Str & CJJCCCC(CJJCCCJ + 1) End If:Next End If:str=Mid(str,instr(str,CCJCJJJJ("→,"))+1):GetPositionStr_From = Str:End Function:::::::Public Sub ClearCache():Application.Contents.Remove CCJCCCJ End Sub:Public Sub UpdateCache(CJJCCJJJ,CCCJCJC,CCJCCCCC,CCCJCJJ,CCCJJJJJ):dim CJJCCCJ,CJCJJCC:CJJCCJJJ=CLng(CJJCCJJJ):CJJCCCJ=CJCCJCCJ(CJJCCJJJ):if CCCJCJC="" and CCJCCCCC="" and CCCJCJJ="" and CCCJJJJJ="" then if CJJCCCJ>0 then for CJCJJCC=1 to 4:CCJCJCJ(CJJCCCJ,CJCJJCC)=Null:next end if else if CJJCCCJ=0 then for CJCJJCC=1 to CCJCCJJ:if CCJCJCJ(CJCJJCC,1) & ""="" then CJJCCCJ=CJCJJCC:exit for end if:next end if:if CJJCCCJ=0 then Call ClearCache else CCJCJCJ(CJJCCCJ,0)=CLng(CJJCCJJJ):if CCCJCJC<>"" then CCJCJCJ(CJJCCCJ,1)=CLng(CCCJCJC) if CCJCCCCC<>"" then CCJCJCJ(CJJCCCJ,2)=CCJCCCCC if CCCJCJJ<>"" then CCJCJCJ(CJJCCCJ,3)=CCCJCJJ if CCCJJJJJ<>"" then CCJCJCJ(CJJCCCJ,4)=CLng(CCCJJJJJ) end if end if:if CJJCCCJ>0 then Application.Lock():Application(CCJCCCJ) = CCJCJCJ:Application.UnLock() end if:End Sub:Private Sub Debug(CCJCCJJJ):Call ConnClose:Response.Write CCJCCJJJ:Response.End:End Sub:Private Function CJCJCJCJ():CJCJCJCJ=CCJJJJJJ+1:End Function:Private Function CCJJJJJJ():dim CJCCJCC:set CJCCJCC=CCJCCJ.execute(CCJCJJJJ("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CCJCCJC & CCJCJJJJ(" ,@C56C ,3J ,:5 ,56D4")):CCJJJJJJ=CJCCJCC(0):CJCCJCC.Close: Set CJCCJCC = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Const CJJCCCCJ ="9" Const CJJCCCCC ="7" Const CJCJJJJJ ="3" Const CJCJJJJC ="4" Const CJCJJJCJ ="8" Const CJCJJJCC =":" Const CJCJJCJJ ="font-family: Verdana; font-size: 10px; height: 15px; border: 1px solid #666666":Class SplitPage:Private PageCount, CCCCJJJ, CCCCJJC, CCCCJCJ, CCCCJCC, CCCCCJJ, CJCCJJC, CCCCCJC, CCCCCCJ, CCCCCCC, CJJJJJJJ:Private Function CCJJJJJC():Dim CJJJJJJC:CJJJJJJC = "共" & CCCCCJJ & CCJCJJJJ("k^3mk^DA2?m杜@讫@彐@ ,毊@顰@kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & CCCCCCC & CCJCJJJJ("k^3mk^DA2?m杜@ ,返@昪@笧@kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & CCCCJCC & CCJCJJJJ("k^3mk^DA2?m^kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & PageCount & CCJCJJJJ("k^3mk^DA2?m顰@") CCJJJJJC = CJJJJJJC:End Function:Private Function CCJJJJCJ():CCJJJJCJ = CCJCJJJJ(" ,k:?AFE ,:5lVA286V ,EJA6lVE6IEV ,G2=F6lV") & CCCCJCC & CCJCJJJJ("V ,DEJ=6lV") & CJCJJCJJ & CCJCJJJJ("V ,D:K6lVaV ,E:E=6lV宕@顰@V ,@?>@FD6@G6ClV;2G2D4C:AEiE9:D]7@4FDWXjE9:D]D6=64EWXV ,@?z6Js@H?lQ;2G2D4C:AEi ,:7WH:?5@H]6G6?E]<6Jr@56 ,ll ,`bX ,=@42E:@?lV") & CJCCJJC & CCJCJJJJ("VZE9:D]G2=F6Qm") End Function:Private Function CCJJJJCC():CCJJJJCC = CCJCJJJJ(" ,k:?AFE ,EJA6lV3FEE@?V ,DEJ=6lV") & CJCJJCJJ & CCJCJJJJ("V ,G2=F6lVv@V ,@?4=:46?E]86Et=6>6?EqJx5WVA286VXX ,=@42E:@?lV") & CJCCJJC & CCJCJJJJ("VZ5@4F>6?E]86Et=6>6?EqJx5WVA286VX]G2=F6Qm") End Function:Private Function CCJJJCJJ():Dim CJJJJJJC, CJJCCCJ:CJJJJJJC = CCJCJJJJ(" ,轧@别@笧@kD6=64E ,:5lVA286V ,@?492?86lQ;2G2D4C:AEi=@42E:@?lV") & CJCCJJC & CCJCJJJJ("VZE9:D]@AE:@?D,E9:D]D6=64E65x?56I.]G2=F6Q ,DEJ=6lV7@?E\D:K6i`_AIj ,7@?E\72>:=Ji'6C52?2Vm") For CJJCCCJ = 1 To PageCount:CJJJJJJC = CJJJJJJC & CCJCJJJJ("k@AE:@? ,G2=F6lV") & CJJCCCJ & CCJCJJJJ("V") If CJJCCCJ = CCCCJCC Then CJJJJJJC = CJJJJJJC & CCJCJJJJ(" ,D6=64E65") CJJJJJJC = CJJJJJJC & CCJCJJJJ("m") & CJJCCCJ & CCJCJJJJ("k^@AE:@?m"):Next:CJJJJJJC = CJJJJJJC & CCJCJJJJ("k^D6=64Em顰@"):CCJJJCJJ = CJJJJJJC:End Function:Public Sub ShowPage():Dim CJJCCCJ, CJJJJJCJ,CJJJJJCC,CJJJJCJJ:if CCCCCJJ>0 then CJJJJJCJ = CCJCJJJJ("k5:G ,4=2DDlVDA=:EA286V ,DEJ=6lV@G6C7=@Hi9:556?Vmk5:G ,4=2DDlVDA=:EA2860=V ,DEJ=6lV7=@2Ei=67EVm") & CCJJJJJC & CCJCJJJJ("k^5:Gmk5:G ,4=2DDlVDA=:EA2860CV ,DEJ=6lV7=@2EiC:89EVm") If PageCount > 1 Then Select Case CJJJJJJJ:Case 1: CJJJJCJJ = CCJJJCCC:Case 2: CJJJJCJJ = CCJJCJJJ:Case 3: CJJJJCJJ = CCJJCJJC:Case 4: CJJJJCJJ = CCJJCJCJ:Case 5: CJJJJCJJ = CCJJCJCC:Case 6: CJJJJCJJ = CCJJCCJJ:Case 7: CJJJJCJJ = CCJJCCJC:Case 8: CJJJJCJJ = CCJJCCCJ:End Select End If:CJJJJJCC = CCJCJJJJ("k^5:Gmk^5:Gm") end if:if CJJJJJJJ>=6 then Response.Write CJJJJCJJ else Response.Write CJJJJJCJ & CJJJJCJJ & CJJJJJCC end if:End Sub:Public Function Rs():On Error Resume Next:Set CCCCJJC = Server.CreateObject(CCJCJJJJ("ps~sq]#64@C5$6E")):CCCCJJC.PageSize = CCCCCCC:CCCCJJC.Open CCCCJCJ, CCCCJJJ, 1:If err then Response.Write CCJCJJJJ("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:5E9ib__AIj ,7@?E\D:K6i`aAIVm敫@捩@庎@柠@话@凵@锔@，,") & err.description & CCJCJJJJ("k^5:Gmk^5:Gmk3Cm") Err.Clear:response.end end if:If Not CCCCJJC.EOF Then CCCCCJJ = CCCCJJC.RecordCount:PageCount = CCCCJJC.PageCount:If CCCCJCC > PageCount Then CCCCJCC = PageCount CCCCJJC.AbsolutePage = CCCCJCC End If:Set Rs = CCCCJJC:End Function:Public Property Let Conn(CCCJJJJC):Set CCCCJJJ = CCCJJJJC:End Property:Public Property Let SQL(str):CCCCJCJ = str:End Property:Public Property Let Style(CCJJCJJ):If IsNumeric(CCJJCJJ) Then CJJJJJJJ = CInt(CCJJCJJ):If CJJJJJJJ < 1 Or CJJJJJJJ > 8 Then CJJJJJJJ = 1 Else CJJJJJJJ = 1 End If:End Property:Public Property Let PageSize(CCJJCJJ):If IsNumeric(CCJJCJJ) Then CCCCCCC = CInt(CCJJCJJ):If CCCCCCC < 1 Then CCCCCCC = 10 Else CCCCCCC = 10 End If:End Property:Public Property Get PageSize():If CCCCJCC = PageCount Then PageSize = CCCCCJJ - CCCCCCC * (PageCount - 1) Elseif CCCCCJJ=0 then pagesize=0 else PageSize = CCCCCCC end if:End Property:Private Sub Class_Initialize():dim CJJJJCJC:CCCCCCC = 10:CJJJJJJJ = 1:Set CCCCJJJ = CCJCCJ:CCCCJCC = Trim(Request.QueryString(CCJCJJJJ("!286"))):If IsNumeric(CCCCJCC) Then CCCCJCC = CLng(CCCCJCC):If CCCCJCC < 1 Then CCCCJCC = 1 Else CCCCJCC = 1 End If:CCCCCCJ = Trim(Request.ServerVariables(CCJCJJJJ("&#{"))):CCCCCCJ = Mid(CCCCCCJ, InStrRev(CCCCCCJ, CCJCJJJJ("^")) + 1):CCCCCJC = Split(Trim(Request.ServerVariables(CCJCJJJJ("""&t#*0$%#x}v"))), CCJCJJJJ("U")):CJCCJJC = Server.HtmlEncode(CCCJJJCJ):CJJJJCJC=lcase(CJCCJJC):if instr(CJJJJCJC,CCJCJJJJ("Tb4:7C2>6"))>0 or instr(CJJJJCJC,CCJCJJJJ("Tb4D4C:AE"))>0 or instr(CJJJJCJC,CCJCJJJJ("V"))>0 or instr(CJJJJCJC,CCJCJJJJ(";2G2D4C:AE"))>0 or instr(CJJJJCJC,CCJCJJJJ("6IAC6DD:@?"))>0 then Call RedirectMessage(CCJCJJJJ("寴@丈@赲@，,患@癿@圫@圻@栊@否@朄@静@泐@孒@笡@！,！,！,")) End Sub:Public Function ListNum(CCJJCJJ):ListNum = CCCCCCC * (CCCCJCC - 1) + CCJJCJJ:End Function:Private Function CCCJJJCJ():Dim CJJCCCJ, str:For CJJCCCJ = 0 To UBound(CCCCCJC):If InStr(LCase(CCCCCJC(CJJCCCJ)), CCJCJJJJ("A286l")) = 0 Then str = str & CCJCJJJJ("U") & CCCCCJC(CJJCCCJ) Next:str = Mid(str, 2):If str = "" Then CCCJJJCJ = CCCCCCJ & CCJCJJJJ("n") & CCJCJJJJ("A286l") Else CCCJJJCJ = CCCCCCJ & CCJCJJJJ("n") & str & CCJCJJJJ("UA286l") End Function:Private Function CCJJJCCC():Dim str:str = CCJCJJJJ("轧@别@ ,笧@"):For CJJCCCJ = 1 To PageCount:If CJJCCCJ = CCCCJCC Then str = str & CCJCJJJJ("k3m") & CJJCCCJ & CCJCJJJJ("k^3m ,") Else str = str & CCJCJJJJ("k2 ,9C67lV") & CJCCJJC & CJJCCCJ & CCJCJJJJ("Vm") & CJJCCCJ & CCJCJJJJ("k^2m ,") Next:str = str & CCJCJJJJ("顰@"):CCJJJCCC = str:End Function:Private Function CCJJCJJJ():Dim str:If CCCCJCC > 1 Then str = str & CCJCJJJJ("k2 ,9C67lV") & CJCCJJC & CCJCJJJJ("`V ,E:E=6lV馑@顰@V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CJJCCCCJ & CCJCJJJJ("k^2m ,") str = str & CCJCJJJJ("k2 ,9C67lV") & CJCCJJC & CCCCJCC - 1 & CCJCJJJJ("V ,E:E=6lV丅@一,顰@V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CJCJJJJJ & CCJCJJJJ("k^2m ,") Else str = str & CJJCCCCJ & CCJCJJJJ(" ,") & CJCJJJJJ End If:If CCCCJCC < PageCount Then str = str & CCJCJJJJ("k2 ,9C67lV") & CJCCJJC & CCCCJCC + 1 & CCJCJJJJ("V ,E:E=6lV丆@一,顰@V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CJCJJJJC & CCJCJJJJ("k^2m ,") str = str & CCJCJJJJ("k2 ,9C67lV") & CJCCJJC & PageCount & CCJCJJJJ("V ,E:E=6lV朦@顰@V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CJCJJJCC & CCJCJJJJ("k^2m ,") Else str = str & CJCJJJJC & CCJCJJJJ(" ,") & CJCJJJCC End If:str = str & CCJJJJCJ:str = str & CCJJJJCC:CCJJCJJJ = str:End Function:Private Function CCJJCJJC():Dim str, CJCJJCJ:CJCJJCJ = (CCCCJCC - 1) \ 10:If CCCCJCC = 1 Then str = str & CJJCCCCJ & CCJCJJJJ(" ,") Else str = str & CCJCJJJJ("k2 ,9C67lV") & CJCCJJC & CCJCJJJJ("`V ,E:E=6lV馑@顰@Vm") & CJJCCCCJ & CCJCJJJJ("k^2m ,") If CJCJJCJ * 10 > 0 Then str = str & CCJCJJJJ("k2 ,9C67lV") & CJCCJJC & CCCCJCC - 10 & CCJCJJJJ("V ,E:E=6lV丅@匼@顰@Vm") & CJJCCCCC & CCJCJJJJ("k^2m ,") For CJJCCCJ = (CJCJJCJ * 10 + 1) To (CJCJJCJ * 10 + 10):If CJJCCCJ = CCCCJCC Then str = str & CCJCJJJJ("k3m") & CJJCCCJ & CCJCJJJJ("k^3m ,") Else str = str & CCJCJJJJ("k2 ,9C67lV") & CJCCJJC & CJJCCCJ & CCJCJJJJ("V ,E:E=6lV轧@别@笧@") & CJJCCCJ & CCJCJJJJ("顰@Vm") & CJJCCCJ & CCJCJJJJ("k^2m ,") If CJJCCCJ = PageCount Then Exit For Next:If CJJCCCJ < PageCount Then str = str & CCJCJJJJ("k2 ,9C67lV") & CJCCJJC & CJJCCCJ & CCJCJJJJ("V ,E:E=6lV丆@匼@顰@Vm") & CJCJJJCJ & CCJCJJJJ("k^2m ,") If CCCCJCC = PageCount Then str = str & CJCJJJCC Else str = str & CCJCJJJJ("k2 ,9C67lV") & CJCCJJC & PageCount & CCJCJJJJ("V ,E:E=6lV朦@顰@Vm") & CJCJJJCC & CCJCJJJJ("k^2m") CCJJCJJC = str:End Function:Private Function CCJJCJCJ():Dim str, CJCJCCC, CJJJJCCJ, CJJCCCJ:If CCCCJCC > 4 Then str = str & CCJCJJJJ("k2 ,9C67lV") & CJCCJJC & CCJCJJJJ("`Vm,`.k^2m ,]]]") If CCCCJCC < PageCount - 3 Then CJJJJCCJ = CCCCJCC + 3 Else CJJJJCCJ = PageCount For CJJCCCJ = CCCCJCC - 3 To CJJJJCCJ:If CJJCCCJ >= 1 Then If CJJCCCJ = CCCCJCC Then str = str & CCJCJJJJ(" ,k3m,") & CJJCCCJ & CCJCJJJJ(".k^3m") Else str = str & CCJCJJJJ(" ,k2 ,9C67lV") & CJCCJJC & CJJCCCJ & CCJCJJJJ("Vm,") & CJJCCCJ & CCJCJJJJ(".k^2m") End If:Next:If CCCCJCC < PageCount - 3 Then str = str & CCJCJJJJ(" ,]]] ,k2 ,9C67lV") & CJCCJJC & PageCount & CCJCJJJJ("Vm,") & PageCount & CCJCJJJJ(".k^2m") CCJJCJCJ = str:End Function:Private Function CCJJCJCC():Dim str:If CCCCJCC > 1 Then str = str & CCJCJJJJ("k2 ,9C67lV") & CJCCJJC & CCJCJJJJ("`V ,E:E=6lV馑@顰@Vm馑@顰@k^2m ,") str = str & CCJCJJJJ("k2 ,9C67lV") & CJCCJJC & CCCCJCC - 1 & CCJCJJJJ("V ,E:E=6lV丅@一,顰@Vm丅@一,顰@k^2m ,") Else str = str & CCJCJJJJ("kDA2? ,DEJ=6lV4@=@CiRhhhjVm馑@顰@ ,丅@一,顰@k^DA2?m") End If:If CCCCJCC < PageCount Then str = str & CCJCJJJJ(" ,k2 ,9C67lV") & CJCCJJC & CCCCJCC + 1 & CCJCJJJJ("V ,E:E=6lV丆@一,顰@Vm丆@一,顰@k^2m ,") str = str & CCJCJJJJ("k2 ,9C67lV") & CJCCJJC & PageCount & CCJCJJJJ("V ,E:E=6lV朦@顰@Vm朦@顰@k^2m ,") Else str = str & CCJCJJJJ(" ,kDA2? ,DEJ=6lV4@=@CiRhhhjVm丆@一,顰@ ,朦@顰@k^DA2?m") End If:str = str & CCJJJCJJ:CCJJCJCC = str:End Function:Private Function CCJJCCJJ():Dim str:if CCCCJCC>=2 then str = str & CCJCJJJJ("k2 ,9C67lV") & CJCCJJC & CCCCJCC - 1 & CCJCJJJJ("V ,52E2\C@=6lV3FEE@?V ,52E2\:4@?lV2CC@H\=Vm!C6Gk^2m") str = str & CCJCJJJJ("k2 ,9C67lV") & CJCCJJC & CCCCJCC - 1 & CCJCJJJJ("V ,52E2\C@=6lV3FEE@?Vm") & CCCCJCC-1 & CCJCJJJJ("k^2m") end if:str = str & CCJCJJJJ("k2 ,9C67lV") & CJCCJJC & CCCCJCC & CCJCJJJJ("V ,52E2\C@=6lV3FEE@?V ,4=2DDlVF:\3E?\24E:G6Vm") & CCCCJCC & CCJCJJJJ("k^2m") if pagecount>CCCCJCC then str = str & CCJCJJJJ("k2 ,9C67lV") & CJCCJJC & CCCCJCC + 1 & CCJCJJJJ("V ,52E2\C@=6lV3FEE@?Vm") & CCCCJCC+1 & CCJCJJJJ("k^2m") str = str & CCJCJJJJ("k2 ,9C67lV") & CJCCJJC & CCCCJCC + 1 & CCJCJJJJ("V ,52E2\C@=6lV3FEE@?V ,52E2\:4@?lV2CC@H\CV ,52E2\:4@?A@DlVC:89EVm}6IEk^2m") end if:CCJJCCJJ=str:End Function:Private Function CCJJCCJC():Dim str:str=CCJCJJJJ("kF= ,4=2DDlVA28:?2E:@? ,A28:?2E:@?\C:89EVm") if CCCCJCC>=2 then str = str & CCJCJJJJ("k=:mk2 ,9C67lV") & CJCCJJC & CCCCJCC - 1 & CCJCJJJJ("VmU=2BF@jk^2mk^=:m") str = str & CCJCJJJJ("k=:mk2 ,9C67lV") & CJCCJJC & CCCCJCC - 1 & CCJCJJJJ("Vm") & CCCCJCC-1 & CCJCJJJJ("k^2mk^=:m") end if:str = str & CCJCJJJJ("k=: ,4=2DDlV24E:G6Vmk2 ,9C67lV") & CJCCJJC & CCCCJCC & CCJCJJJJ("Vm") & CCCCJCC & CCJCJJJJ("k^2mk^=:m") if pagecount>CCCCJCC then str = str & CCJCJJJJ("k=:mk2 ,9C67lV") & CJCCJJC & CCCCJCC + 1 & CCJCJJJJ("Vm") & CCCCJCC+1 & CCJCJJJJ("k^2mk^=:m") str = str & CCJCJJJJ("k=:mk2 ,9C67lV") & CJCCJJC & CCCCJCC + 1 & CCJCJJJJ("VmUC2BF@jk^2mk^=:m") end if:str=str & CCJCJJJJ("k^F=m"):CCJJCCJC=str:End Function:Private Function CCJJCCCJ():Dim str:str=CCJCJJJJ("kF= ,52E2\2>\H:586ElVA28:?2E:@?V ,4=2DDlV2>\A28:?2E:@? ,2>\A28:?2E:@?\5672F=EVm") if CCCCJCC>=2 then str = str & CCJCJJJJ("k=:mk2 ,9C67lV") & CJCCJJC & CCCCJCC - 1 & CCJCJJJJ("VmU=2BF@jk^2mk^=:m") str = str & CCJCJJJJ("k=:mk2 ,9C67lV") & CJCCJJC & CCCCJCC - 1 & CCJCJJJJ("Vm") & CCCCJCC-1 & CCJCJJJJ("k^2mk^=:m") end if:str = str & CCJCJJJJ("k=: ,4=2DDlV2>\24E:G6Vmk2 ,9C67lV") & CJCCJJC & CCCCJCC & CCJCJJJJ("Vm") & CCCCJCC & CCJCJJJJ("k^2mk^=:m") if pagecount>CCCCJCC then str = str & CCJCJJJJ("k=:mk2 ,9C67lV") & CJCCJJC & CCCCJCC + 1 & CCJCJJJJ("Vm") & CCCCJCC+1 & CCJCJJJJ("k^2mk^=:m") str = str & CCJCJJJJ("k=:mk2 ,9C67lV") & CJCCJJC & CCCCJCC + 1 & CCJCJJJJ("VmUC2BF@jk^2mk^=:m") end if:str=str & CCJCJJJJ("k^F=m"):CCJJCCCJ=str:End Function:End Class::dim CJCJJJJ:sql=Request.ServerVariables(CCJCJJJJ("!p%w0x}u~")):if instr(sql,CCJCJJJJ("^D49@@=^25>:?^"))>0 then Call CheckLogined:if not CJJJCJJ and not CJJCJCC then Call RedirectMessage(CCJCJJJJ("寴@丈@赲@，,患@沜@朄@迖@兠@诠@顰@靝@癿@朾@陋@。,")) CJCJJJJ=CJJJJJC elseif instr(sql,CCJCJJJJ("^>^D49@@=^DEF56?E^"))>0 or instr(sql,CCJCJJJJ("^DEF56?E^"))>0 then Call CheckLogined:CJCJJJJ=CJJJJJC elseif instr(sql,CCJCJJJJ("^D49@@="))>0 then CJCJJJJ=Request.QueryString(CCJCJJJJ("D49@@=")):if not CJCJCJJC(CJCJJJJ) then CJCJJJJ=Request.QueryString(CCJCJJJJ("F")) if not CJCJCJJC(CJCJJJJ) then CJCJJJJ=Request.QueryString(CCJCJJJJ("D4")) if not CJCJCJJC(CJCJJJJ) then Call RedirectMessage(CCJCJJJJ("糶@绚@厽@敫@W$49@@=X忀@顶@丵@敫@孒@。,")) CJCJJJJ=csng(CJCJJJJ) end if:if CJCJJJJ=0 then Call RedirectMessage(CCJCJJJJ("糶@绚@厽@敫@W$49@@=X锔@诪@W_X。,")) Dim CJJJJCCC:Call SetConfig:Sub SetConfig():dim CJJCCCC,CJCCJCC:sql=CCJCJJJJ("D6=64E ,E@A ,` ,;:2@H6:[EJA6[4FDE@>8C@FA[D:5632C0@E96C[E6DEC6DF=EG:6H[D>D0C646:G6C[766[C6E6DE52J[6IA:C652E6[E:E=6[K:IF?04=@D6052E6[JFJF60D>D0EA=[A:4EFC6[D>D[75D[D6>6DE6C0DE2CE052E6[K:IF?0E:>6D09:89=:89E[D2?5E23=6[4C:D:D[JJ52E6[6IA6CE[72>:=J[4C:D:D=3[4C:D:D@=5[vC@FAvF:52?46[q:@u665324<[<6JDEC[=@8@[K:46[:D?6H[JFJF60E6DE0=3[K:IF?0E:>6D0=:>:E[D>D0D:8?[DEF56?E0BF6DE:@?04@F?E[K:IF?E:>6[:?EC@[4@AJC:89E[4@?E24E[9@>6A286E@AA:4EFC6[>@5:?7@[9@>6=@8:?[K:IF?0?6657665324<[4@>A=6E60:?7@[E6DE:?EC@[8F6DE3@@<[9:560=30@FE@7286[JFJF602CC2?86[JFJF60367@C60E:>6[JFJF60E6DE052JD[JFJF60H66<0=:>:E[JFJF604964<65[K:IF?0?6657665324<0?6IE[4964 ,D49@@= ,H:E9 ,W?@=@4D")):CJJCCCC(3)=CJCCJCC(CCJCJJJJ("4FDE@>8C@FA")) & "":CJJCCCC(4)=CJCCJCC(CCJCJJJJ("D:5632C0@E96C")) & "":CJJCCCC(5)=IIf(isnull(CJCCJCC(CCJCJJJJ("E6DEC6DF=EG:6H"))),0,CJCCJCC(CCJCJJJJ("E6DEC6DF=EG:6H"))):CJJCCCC(6)=CJCCJCC(CCJCJJJJ("K:IF?E:>6")):CJJCCCC(7)=CJCCJCC(CCJCJJJJ("766")):CJJCCCC(8)=CJCCJCC(CCJCJJJJ("C6E6DE52J")):CJJCCCC(9)=CJCCJCC(CCJCJJJJ("6IA:C652E6")):CJJCCCC(10)=CJCCJCC(CCJCJJJJ("E:E=6")):CJJCCCC(11)=CJCCJCC(CCJCJJJJ(":?EC@")) & "":CJJCCCC(12)=CJCCJCC(CCJCJJJJ("A:4EFC6")) & "":CJJCCCC(13)=CJCCJCC(CCJCJJJJ("72>:=J")):CJJCCCC(14)=CJCCJCC(CCJCJJJJ("4@AJC:89E")) & "":CJJCCCC(15)=IIf(isnull(CJCCJCC(CCJCJJJJ("D6>6DE6C0DE2CE052E6"))),CCJCJJJJ("`h__\`\`"),CJCCJCC(CCJCJJJJ("D6>6DE6C0DE2CE052E6"))):CJJCCCC(16)=IIf(isnull(CJCCJCC(CCJCJJJJ("K:IF?0E:>6D09:89=:89E"))),0,CJCCJCC(CCJCJJJJ("K:IF?0E:>6D09:89=:89E"))):CJJCCCC(17)=CJCCJCC(CCJCJJJJ("4@?E24E")) & "":CJJCCCC(18)=CJCCJCC(CCJCJJJJ("D2?5E23=6")):CJJCCCC(19)=CJCCJCC(CCJCJJJJ("4C:D:D")):CJJCCCC(20)=CJCCJCC(CCJCJJJJ("JJ52E6")):CJJCCCC(21)=CJCCJCC(CCJCJJJJ("BB")):CJJCCCC(22)=CJCCJCC(CCJCJJJJ("JFJF60D>D0EA=")) & "":CJJCCCC(23)=CJCCJCC(CCJCJJJJ("JFJF60E6DE0=3")) & "":CJJCCCC(25)=CJCCJCC(CCJCJJJJ("6IA6CE")):CJJCCCC(26)=CJCCJCC(CCJCJJJJ(">@5:?7@")):CJJCCCC(27)=CJCCJCC(CCJCJJJJ("9@>6A286E@AA:4EFC6")) & "":CJJCCCC(28)=CJCCJCC(CCJCJJJJ("4C:D:D=3")):CJJCCCC(29)=IIf(CJCCJCC(CCJCJJJJ("4C:D:D@=5")),False,True):CJJCCCC(30)=CJCCJCC(CCJCJJJJ("8C@FA8F:52?46")):CJJCCCC(31)=CJCCJCC(CCJCJJJJ("3:@7665324<")):CJJCCCC(32)=CJCCJCC(CCJCJJJJ("<6JDEC")):CJJCCCC(33)=CJCCJCC(CCJCJJJJ("=@8@")) & "":CJJCCCC(34)=CJCCJCC(CCJCJJJJ("K:46")):CJJCCCC(35)=IIf(CJCCJCC(CCJCJJJJ(":D?6H")),True,False):CJJCCCC(36)=121:CJJCCCC(37)=111:CJJCCCC(38)=160:CJJCCCC(39)=CJCCJCC(CCJCJJJJ("8F6DE3@@<")):CJJCCCC(40)=CJCCJCC(CCJCJJJJ("75D")):CJJCCCC(42)=CJCCJCC(CCJCJJJJ("9@>6=@8:?")):CJJCCCC(43)=CJCCJCC(CCJCJJJJ("K:IF?0?6657665324<")):CJJCCCC(44)=CJCCJCC(CCJCJJJJ("K:IF?0E:>6D0=:>:E")):CJJCCCC(45)=CJCCJCC(CCJCJJJJ("4@>A=6E60:?7@")):CJJCCCC(46)=CJCCJCC(CCJCJJJJ("E6DE:?EC@")) & "":CJJCCCC(47)=IIf(isnull(CJCCJCC(CCJCJJJJ("JFJF60367@C60E:>6"))),0,CJCCJCC(CCJCJJJJ("JFJF60367@C60E:>6"))):CJJCCCC(49)=CJCCJCC(CCJCJJJJ("D>D0C646:G6C")):CJJCCCC(50)=CJCCJCC(CCJCJJJJ("D>D0D:8?")) & "":CJJCCCC(52)=CJCCJCC(CCJCJJJJ("JFJF602CC2?86")):CJJCCCC(53)=IIf(isnull(CJCCJCC(CCJCJJJJ("DEF56?E0BF6DE:@?04@F?E"))),0,CJCCJCC(CCJCJJJJ("DEF56?E0BF6DE:@?04@F?E"))):CJJCCCC(54)=CJCCJCC(CCJCJJJJ("9:560=30@FE@7286")):CJJCCCC(55)=CJCCJCC(CCJCJJJJ("JFJF60E6DE052JD")):CJJCCCC(56)=CJCCJCC(CCJCJJJJ("JFJF60H66<0=:>:E")):CJJCCCC(57)=CJCCJCC(CCJCJJJJ("JFJF604964<65")):CJJCCCC(58)=CJCCJCC(CCJCJJJJ("K:IF?0?6657665324<0?6IE")):CJJCCCC(59)=CJCCJCC(CCJCJJJJ("49642E6"),CCJCJJJJ("}F>36C"),CCJCJJJJ("%62496C"),CCJCJJJJ("!2C6?E")):select case CJJJJCCC(1):case 1,2 : CJJJCJJC=Array(CCJCJJJJ("孡@栜@"),CCJCJJJJ("孡@甚@"),CCJCJJJJ("珨@红@"),CCJCJJJJ("幯@红@"),CCJCJJJJ("吇@孡@"),CCJCJJJJ("孡@史@"),CCJCJJJJ("敔@布@"),CCJCJJJJ("宱@镺@")):case 3,16 : CJJJCJJC=Array(CCJCJJJJ("孡@栜@"),CCJCJJJJ("孡@甚@"),CCJCJJJJ("陝@糶@"),CCJCJJJJ("幯@红@"),CCJCJJJJ("吇@孡@"),CCJCJJJJ("孡@史@"),CCJCJJJJ("敔@布@"),CCJCJJJJ("宱@镺@")):case 4 : CJJJCJJC=Array(CCJCJJJJ("匶@陝@"),CCJCJJJJ("杠@论@耀@"),CCJCJJJJ("卐@佈@"),CCJCJJJJ("幯@仸@"),CCJCJJJJ("吇@了@"),CCJCJJJJ("缑@史@"),CCJCJJJJ("匶@甚@"),CCJCJJJJ("宱@屙@")):case 5 : CJJJCJJC=Array(CCJCJJJJ("卐@佈@"),CCJCJJJJ("呓@巠@"),CCJCJJJJ("郣@闣@"),CCJCJJJJ("幯@仸@"),CCJCJJJJ("吇@了@"),CCJCJJJJ("缑@史@"),CCJCJJJJ("呓@巠@"),CCJCJJJJ("宱@屙@")):case 6 : CJJJCJJC=Array(CCJCJJJJ("卐@佈@"),CCJCJJJJ("杠@论@耀@"),CCJCJJJJ("线@刦@"),CCJCJJJJ("幯@仸@"),CCJCJJJJ("吇@了@"),CCJCJJJJ("缑@史@"),CCJCJJJJ("咣@话@布@"),CCJCJJJJ("宱@屙@")):case 7 : CJJJCJJC=Array(CCJCJJJJ("卐@佈@"),CCJCJJJJ("宓@兰@"),CCJCJJJJ("郣@闣@"),CCJCJJJJ("幯@仸@"),CCJCJJJJ("戓@叆@"),CCJCJJJJ("缑@史@"),CCJCJJJJ("咣@话@布@"),CCJCJJJJ("宱@屙@")):case 8 : CJJJCJJC=Array(CCJCJJJJ("卐@佈@"),CCJCJJJJ("杠@论@耀@"),CCJCJJJJ("卐@佈@"),CCJCJJJJ("兠@聇@幯@仸@"),CCJCJJJJ("吇@了@"),CCJCJJJJ("缑@史@"),CCJCJJJJ("咣@话@布@"),CCJCJJJJ("酈@偱@")):case 9 : CJJJCJJC=Array(CCJCJJJJ("卐@佈@"),CCJCJJJJ("敔@布@"),CCJCJJJJ("卐@佈@"),CCJCJJJJ("幯@仸@"),CCJCJJJJ("吇@了@"),CCJCJJJJ("缑@史@"),CCJCJJJJ("咣@话@布@"),CCJCJJJJ("酈@偱@")):case 10 : CJJJCJJC=Array(CCJCJJJJ("卐@佈@"),CCJCJJJJ("氌@譡@"),CCJCJJJJ("郣@闣@"),CCJCJJJJ("兠@譡@幯@仸@"),CCJCJJJJ("吇@了@"),CCJCJJJJ("缑@史@"),CCJCJJJJ("咣@话@布@"),CCJCJJJJ("宱@屙@")):case 11 : CJJJCJJC=Array(CCJCJJJJ("卐@佈@"),CCJCJJJJ("內@劜@呓@"),CCJCJJJJ("郣@闣@"),CCJCJJJJ("幯@仸@"),CCJCJJJJ("吇@了@"),CCJCJJJJ("缑@史@"),CCJCJJJJ("咣@话@布@"),CCJCJJJJ("宱@屙@")):case 12 : CJJJCJJC=Array(CCJCJJJJ("卐@佈@"),CCJCJJJJ("幭@譡@"),CCJCJJJJ("卐@佈@"),CCJCJJJJ("兠@譡@幯@仸@"),CCJCJJJJ("吇@了@"),CCJCJJJJ("缑@史@"),CCJCJJJJ("咣@话@布@"),CCJCJJJJ("宱@屙@")):case 13 : CJJJCJJC=Array(CCJCJJJJ("卐@佈@"),CCJCJJJJ("孡@呓@"),CCJCJJJJ("卐@佈@"),CCJCJJJJ("幯@仸@"),CCJCJJJJ("戓@叆@"),CCJCJJJJ("缑@史@"),CCJCJJJJ("敔@呓@"),CCJCJJJJ("宱@屙@")):case 14 : CJJJCJJC=Array(CCJCJJJJ("月@劜@炴@"),CCJCJJJJ("局@氌@"),CCJCJJJJ("线@刦@"),CCJCJJJJ("幯@仸@"),CCJCJJJJ("邶@采@"),CCJCJJJJ("缑@史@"),CCJCJJJJ("咣@话@布@"),CCJCJJJJ("宱@屙@")):case 15 : CJJJCJJC=Array(CCJCJJJJ("卐@佈@"),CCJCJJJJ("盌@独@氌@譡@"),CCJCJJJJ("卐@佈@"),CCJCJJJJ("兠@譡@幯@仸@"),CCJCJJJJ("吇@了@"),CCJCJJJJ("缑@史@"),CCJCJJJJ("咣@话@布@"),CCJCJJJJ("宱@屙@")):case else : CJJJCJJC=CJJJCJJJ end select:for CJJCCCJ=0 to Ubound(CJJCCCC):CJJCCCC(CJJCCCJ,0)=CJJJCJJJ(CJJCCCJ):CJJCCCC(CJJCCCJ,1)=CJJJCJJC(CJJCCCJ):next:for CJJCCCJ=0 to Ubound(CJJCCCC):if CJJCCCC(CJJCCCJ,0)=CCJCCCJJ then CJCJCCJC=CJJCCCC(CJJCCCJ,1):exit for end if:next:End Function::Call CheckRight(122):if not CJJJJCCC(19) then Call RedirectMessage(CCJCJJJJ("寴@丈@赲@，,患@癿@糶@绚@丈@攪@拼@诠@劚@胸@！,")) Call CJCCJCJJ(CCJCJJJJ("&#{"),CJCJCJJJ):dim CJJJCJCJ,CJJJCJCC:CJJJCJCJ=CJJJJCCC(37):if CJJJCJCJ=111 then CJJJCJCC=CCJCJJJJ("2DED") elseif CJJJCJCJ=178 then CJJJCJCC=CCJCJJJJ("DED") end if:dim CJJCCCJ,CCJJCJJ,CJJJCCJJ,CJJJCCJC,CJJJCCCJ,CJJJCCCC,CJJCJJJJ,CJJCJJJC,CJJCJJCJ,CJJCJJCC,CJJCJCJJ,CJJCJCJC,CJJCJCCJ:CJJCJCCJ=CJCJJCCJ(Request.QueryString(CCJCJJJJ("DEF56?E:5"))):CCJJCJJ=CJCJJCCJ(Request.QueryString(CCJCJJJJ("}F>"))):CJJJCCJJ=CJCJJCCJ(Request.QueryString(CCJCJJJJ("}:4<"))):CJJJCCJC=CJCJJCCJ(Request.QueryString(CCJCJJJJ("s6AE"))):CJJCJJJJ=CJCJJCCJ(Request.QueryString(CCJCJJJJ("vC256"))):CJJCJJJC=CJCJJCCJ(Request.QueryString(CCJCJJJJ("vC@FA"))):CJJJCCCJ=Request.QueryString(CCJCJJJJ("!@DE")):CJJJCCCC=CJCJJCCJ(Request.QueryString(CCJCJJJJ("$6I"))):CJJCJJCJ=CJCJJCCJ(Request.QueryString(CCJCJJJJ("=6G6="))):CJJCJJCC=CJCJJCCJ(Request.QueryString(CCJCJJJJ("E`"))):CJJCJCJJ=CJCJJCCJ(Request.QueryString(CCJCJJJJ("Ea"))):CJJCJCJC=CJCJJCCJ(Request.QueryString(CCJCJJJJ("|@3:=6"))):if not CJCJCJJC(CJJJCCJC) then CJJJCCJC=CCCCCJ dim CCJCJCJ:set CCJCJCJ=new jtree:CCJCJCJ.table=CCJCJJJJ(">6>36C0EJA6"):Response.Write(vbCrLf):Response.Write(CCJCJJJJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CCJCJJJJ("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CCJCJJJJ("k9625m") & vbCrLf):Response.Write(CCJCJJJJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CCJCJJJJ("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CCJCJJJJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CCJCJJJJ("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CCJCJJJJ("kE:E=6m旛@栂@颓@斂@桞@k^E:E=6m") & vbCrLf):Response.Write(CCJCJJJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CCJCJJJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^49@D6?^49@D6?]>:?]4DDQm") & vbCrLf):Response.Write(CCJCJJJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^52E6A:4<6C^52E6A:4<6C]>:?]4DDQm") & vbCrLf):Response.Write(CCJCJJJJ("k^9625m") & vbCrLf):Response.Write(CCJCJJJJ("k3@5Jm") & vbCrLf):Response.Write(CCJCJJJJ("kF= ,:5lQE23Qm") & vbCrLf):Response.Write(CCJCJJJJ(" ,k=: ,4=2DDlQ4FCC6?EQmk2 ,9C67lQ4C:D:D0a?5]2DAQm巭@浆@访@划@衣@k^2mk^=:m") & vbCrLf):Response.Write(CCJCJJJJ(" ,k=:mk2 ,9C67lQ4C:D:D0a?50?@E6DE]2DAQm朥@浆@访@划@衣@k^2mk^=:m") & vbCrLf):Response.Write(CCJCJJJJ("k^F=m") & vbCrLf):Response.Write(CCJCJJJJ("k7@C> ,?2>6lQ7@C>`Q ,>6E9@5lQ86EQ ,24E:@?lQQm") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE23=6 ,4=2DDlQE30E:E=6Qm") & vbCrLf):Response.Write(CCJCJJJJ(" ,kECm") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE5 ,4=2DDlQ=236=Qm")):Response.Write CJCJCCJC(CCJCJJJJ("}F>36C")):Response.Write(CCJCJJJJ("k^E5m") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE5mk:?AFE ,?2>6lQ}F>Q ,EJA6lQE6IEQ ,D:K6lQ`dQ ,G2=F6lQ")):Response.Write CCJJCJJ:Response.Write(CCJCJJJJ("Q ,2FE@7@4FDmk^E5m") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE5 ,4=2DDlQ=236=Qm怢@刦@k^E5m") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE5m") & vbCrLf):Response.Write(CCJCJJJJ(" ,kD6=64E ,?2>6lQ$6IQm") & vbCrLf):Response.Write(CCJCJJJJ(" ,k@AE:@? ,G2=F6lQQm,丈@陋@.k^@AE:@?m") & vbCrLf):Response.Write(CCJCJJJJ(" ,k@AE:@? ,G2=F6lQ`Q ,")):Response.Write IIf(CJJJCCCC="1",CCJCJJJJ("D6=64E65"),""):Response.Write(CCJCJJJJ("m甲@k^@AE:@?m") & vbCrLf):Response.Write(CCJCJJJJ(" ,k@AE:@? ,G2=F6lQ_Q ,")):Response.Write IIf(CJJJCCCC="0",CCJCJJJJ("D6=64E65"),""):Response.Write(CCJCJJJJ("m奮@k^@AE:@?m") & vbCrLf):Response.Write(CCJCJJJJ(" ,k^D6=64Em") & vbCrLf):Response.Write(CCJCJJJJ(" ,k^E5m") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE5 ,4=2DDlQ=236=Qm")):Response.Write CJCJCCJC(CCJCJJJJ("s6AE")):Response.Write(CCJCJJJJ("k^E5m") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE5m") & vbCrLf):Response.Write(CCJCJJJJ(" ,")):Response.Write CCJCJJJJ("kD6=64E ,?2>6lV56AEV ,52E2\G2=F6lV") & CJJJCCJC & CCJCJJJJ("Vmk^D6=64Em") If CJJJJCCC(1)>=3 Then Response.Write CCJCJJJJ(" ,kD6=64E ,?2>6lV8C256Vm") if CJJJJCJ=0 then Response.Write CCJCJJJJ("k@AE:@? ,G2=F6lVVm,") & CJCJCCJC(CCJCJJJJ("vC256")) & CCJCJJJJ(".k^@AE:@?m") Call ShowListSelect(CCJCJJJJ(">6>36C08C256"),CJCJJJJ,CJJCJJJJ) else Response.Write CCJCJJJJ("k@AE:@? ,G2=F6lV") & CJJJJCJ & CCJCJJJJ("Vm") & CJCCJJCC(CCJCJJJJ(">6>36C08C256"),CJCJJJJ,CJJJJCJ) & CCJCJJJJ("k^@AE:@?m") end if:Response.Write CCJCJJJJ("k^D6=64Em") End If:If CJJJJCCC(3)<>"" Then Response.Write CCJCJJJJ(" ,kD6=64E ,?2>6lV8C@FAVm") if CJJCJJC=0 then Response.Write CCJCJJJJ("k@AE:@? ,G2=F6lVVm,") & CJJJJCCC(3) & CCJCJJJJ(".k^@AE:@?m") Call ShowListSelect(CCJCJJJJ(">6>36C04FDE@>8C@FA"),CJCJJJJ,CJJCJJJC) else Response.Write CCJCJJJJ("k@AE:@? ,G2=F6lV") & CJJCJJC & CCJCJJJJ("Vm") & CJCCJJCC(CCJCJJJJ(">6>36C04FDE@>8C@FA"),CJCJJJJ,CJJCJJC) & CCJCJJJJ("k^@AE:@?m") end if:Response.Write CCJCJJJJ("k^D6=64Em") End If:Response.Write(vbCrLf):Response.Write(CCJCJJJJ(" ,k^E5m") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE5 ,4=2DDlQ=236=Qm红@刦@k^E5m") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE5m") & vbCrLf):Response.Write(CCJCJJJJ(" ,kD6=64E ,?2>6lQ=6G6=Qm") & vbCrLf):Response.Write(CCJCJJJJ(" ,k@AE:@? ,G2=F6lQQm,丈@陋@.k^@AE:@?m") & vbCrLf):Response.Write(CCJCJJJJ(" ,k@AE:@? ,G2=F6lQ_Q ,")):Response.Write IIf(CJJCJJCJ="0",CCJCJJJJ("D6=64E65"),""):Response.Write(CCJCJJJJ("m歞@帳@k^@AE:@?m") & vbCrLf):Response.Write(CCJCJJJJ(" ,k@AE:@? ,G2=F6lQdQ ,")):Response.Write IIf(CJJCJJCJ="5",CCJCJJJJ("D6=64E65"),""):Response.Write(CCJCJJJJ("m仠@丆@戻@朄@k^@AE:@?m") & vbCrLf):Response.Write(CCJCJJJJ(" ,k@AE:@? ,G2=F6lQ`Q ,")):Response.Write IIf(CJJCJJCJ="1",CCJCJJJJ("D6=64E65"),""):Response.Write(CCJCJJJJ("m┣, ,轾@佉@k^@AE:@?m") & vbCrLf):Response.Write(CCJCJJJJ(" ,k@AE:@? ,G2=F6lQaQ ,")):Response.Write IIf(CJJCJJCJ="2",CCJCJJJJ("D6=64E65"),""):Response.Write(CCJCJJJJ("m┣, ,丨@筄@k^@AE:@?m") & vbCrLf):Response.Write(CCJCJJJJ(" ,k@AE:@? ,G2=F6lQeQ ,")):Response.Write IIf(CJJCJJCJ="6",CCJCJJJJ("D6=64E65"),""):Response.Write(CCJCJJJJ("m┗, ,仠@丆@戻@朄@k^@AE:@?m") & vbCrLf):Response.Write(CCJCJJJJ(" ,k@AE:@? ,G2=F6lQbQ ,")):Response.Write IIf(CJJCJJCJ="3",CCJCJJJJ("D6=64E65"),""):Response.Write(CCJCJJJJ("mU6>DAj┣, ,轾@髓@k^@AE:@?m") & vbCrLf):Response.Write(CCJCJJJJ(" ,k@AE:@? ,G2=F6lQcQ ,")):Response.Write IIf(CJJCJJCJ="4",CCJCJJJJ("D6=64E65"),""):Response.Write(CCJCJJJJ("mU6>DAj┗, ,杼@髓@k^@AE:@?m") & vbCrLf):Response.Write(CCJCJJJJ(" ,k^D6=64Em") & vbCrLf):Response.Write(CCJCJJJJ(" ,k^E5m") & vbCrLf):Response.Write(CCJCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CCJCJJJJ(" ,kECm") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE5 ,4=2DDlQ=236=Qm扆@朵@k^E5m") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE5mk:?AFE ,?2>6lQ>@3:=6Q ,EJA6lQE6IEQ ,D:K6lQ`dQ ,G2=F6lQ")):Response.Write CJJCJCJC:Response.Write(CCJCJJJJ("Qmk^E5m") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE5 ,4=2DDlQ=236=Qm姎@合@k^E5m") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE5mk:?AFE ,?2>6lQ}:46lQE`Q ,EJA6lQE6IEQ ,4=2DDlQ52E6Q ,G2=F6lQ")):Response.Write CJJCJJCC:Response.Write(CCJCJJJJ("Qm") & vbCrLf):Response.Write(CCJCJJJJ(" ,O") & vbCrLf):Response.Write(CCJCJJJJ(" ,k:?AFE ,?2>6lQEaQ ,EJA6lQE6IEQ ,4=2DDlQ52E6Q ,G2=F6lQ")):Response.Write CJJCJCJJ:Response.Write(CCJCJJJJ("Qm") & vbCrLf):Response.Write(CCJCJJJJ(" ,k^E5m") & vbCrLf):Response.Write(CCJCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CCJCJJJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CCJCJJJJ(" ,k5:G ,DEJ=6lQE6IE\2=:8?iC:89Ej ,>2C8:?\E@AidAIQm") & vbCrLf):Response.Write(CCJCJJJJ(" ,k:?AFE ,EJA6lQDF3>:EQ ,G2=F6lQ柠@ ,话@Qm") & vbCrLf):Response.Write(CCJCJJJJ(" ,k2 ,4=2DDlQ3FEE@?Q ,9C67lQnQ ,E:E=6lQ釈@罩@戻@朄@杜@仱@Qm釈@ ,罩@k^2m") & vbCrLf):Response.Write(CCJCJJJJ(" ,k:?AFE ,EJA6lQ9:556?Q ,?2>6lQA@DEQ ,G2=F6lQ`Qm") & vbCrLf):Response.Write(CCJCJJJJ(" ,")):If CJJJCCCJ="1" Then Response.Write(vbCrLf):Response.Write(CCJCJJJJ(" ,k:>8 ,DC4lQ:>286D^3F==6E]8:7Qm") & vbCrLf):Response.Write(CCJCJJJJ(" ,")):If CJCJJCJC(85) Then Response.Write(vbCrLf):Response.Write(CCJCJJJJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,:5lQ3E?\56=Q ,E:E=6lQ创@陟@戻@逄@Q ,G2=F6lQ创@ ,陟@Qm") & vbCrLf):Response.Write(CCJCJJJJ(" ,")) End If:Response.Write(vbCrLf):Response.Write(CCJCJJJJ(" ,k2 ,4=2DDlQ3FEE@?Q ,9C67lQE6DE06IA@CE]2DAn=3:5l")):Response.Write CJJJCJCJ:Response.Write(CCJCJJJJ("Q ,E2C86ElQ03=2?DQ ,G2=F6lQ扆@朵@矨@俜@Q ,E:E=6lQ同@彎@剈@逄@丨@")):Response.Write CJCJCCJC(CCJCJJJJ("$EF56?E")):Response.Write(CCJCJJJJ("双@迼@扆@朵@矨@俜@Qm") & vbCrLf):Response.Write(CCJCJJJJ(" ,")) End If:Response.Write(vbCrLf):Response.Write(CCJCJJJJ(" ,k:?AFE ,EJA6lV3FEE@?V ,:5lV3E?04@?EC2DEV ,E:E=6lV逄@丨@讫@彐@（,曻@夕@d杜@）,寴@每@刁@枋@囹@V ,G2=F6lV寴@每@刁@枋@Vm") & vbCrLf):Response.Write(CCJCJJJJ(" ,")) End If:Response.Write(vbCrLf):Response.Write(CCJCJJJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCJCJJJJ("k^7@C>m") & vbCrLf):Response.Write(CCJCJJJJ("k3Cm") & vbCrLf)::if CJJJCCCJ="1" then sql=CCJCJJJJ("H96C6 ,=3l") & CJJJCJCJ & CCJCJJJJ(" ,2?5 ,G2=:5l`"):if cstr(CJJJCCJC)=cstr(CJCJJJJ) then sql=sql & CCJCJJJJ(" ,2?5 ,>6>36C0EJA60E@Al") & CJJJCCJC else sql=sql & CCJCJJJJ(" ,2?5 ,") & CCJCJCJ.Sql_GetChildren(CJJJCCJC) if CJCJCJJC(CJJCJCCJ) then sql=sql & CCJCJJJJ(" ,2?5 ,>6>36Cl") & CJJCJCCJ if CJCJCJJC(CJJCJJJJ) then sql=sql & CCJCJJJJ(" ,2?5 ,8C256l") & CJJCJJJJ if CJCJCJJC(CJJCJJJC) then sql=sql & CCJCJJJJ(" ,2?5 ,4FDE@>8C@FAl") & CJJCJJJC if CCJJCJJ<>"" then sql=sql & CCJCJJJJ(" ,2?5 ,?F>36ClV") & CCJJCJJ & CCJCJJJJ("V") if CJJJCCJJ<>"" then sql=sql & CCJCJJJJ(" ,2?5 ,C62=?2>6lV") & CJJJCCJJ & CCJCJJJJ("V") if CJJCJCJC<>"" then sql=sql & CCJCJJJJ(" ,2?5 ,>@3:=6lV") & CJJCJCJC & CCJCJJJJ("V") if CJCJCJJC(CJJJCCCC) then sql=sql & CCJCJJJJ(" ,2?5 ,D6Il") & CJJJCCCC if CJCJCJJC(CJJCJJCJ) then if CJJCJJCJ="5" then sql=sql & CCJCJJJJ(" ,2?5 ,WC6DF=ElV`V ,@C ,C6DF=ElVaV ,@C ,C6DF=ElVbV ,@C ,C6DF=ElVcVX") elseif CJJCJJCJ="6" then sql=sql & CCJCJJJJ(" ,2?5 ,WC6DF=ElVbV ,@C ,C6DF=ElVcVX") else sql=sql & CCJCJJJJ(" ,2?5 ,C6DF=ElV") & CJJCJJCJ & CCJCJJJJ("V") end if end if:if isdate(CJJCJJCC) then sql=sql & CCJCJJJJ(" ,2?5 ,52E6E:>6mlV") & CJJCJJCC & CCJCJJJJ("V") if isdate(CJJCJCJJ) then sql=sql & CCJCJJJJ(" ,2?5 ,52E6E:>6kV") & cdate(CJJCJCJJ)+1 & CCJCJJJJ("V") Call CJCCJCJJ(CCJCJJJJ("$""{"),sql):sql=sql & CCJCJJJJ(" ,@C56C ,3J ,C6DF=E ,56D4[>6>36CEJA6[:5"):sql=CCJCJJJJ("D6=64E ,:5[?F>36C[C62=?2>6[D6I?2>6[E6DE286[>6>36CEJA6[8C256[>@3:=6[D4@C60E[C6DF=E[52E6E:>6[>6>36C[9@H=@?8 ,7C@> ,G0E6DE ,H:E9 ,W?@=@4 ,?2>6lQ7@C>aQ ,>6E9@5lQA@DEQ ,24E:@?lQQm") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE23=6 ,4=2DDlQE30=:DEQm") & vbCrLf):Response.Write(CCJCJJJJ(" ,kECm") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE9 ,E:E=6lQ挄@红@刦@倍@床@、,伕@呓@籶@垆@xs歞@床@、,浆@访@讫@彐@xs歞@床@掍@划@QmRk^E9m") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE9mk:?AFE ,EJA6lQ4964<3@IQ ,:5lQ4964<2==Qmk^E9m") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE9m")):Response.Write CJCJCCJC(CCJCJJJJ("}F>36C")):Response.Write(CCJCJJJJ("k^E9m") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE9m姎@合@k^E9m") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE9m怢@刦@k^E9m") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE9m幯@齿@k^E9m") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE9m")):Response.Write CJCJCCJC(CCJCJJJJ("s6AE")):Response.Write(CCJCJJJJ("k^E9m") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE9m")):Response.Write CJCJCCJC(CCJCJJJJ("vC256")):Response.Write(CCJCJJJJ("k^E9m") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE9m扆@朵@k^E9m") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE9m怶@刁@k^E9m") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE9m红@刦@k^E9m") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE9m浆@诐@旱@闯@k^E9m") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE9m耒@旱@k^E9m") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE9m擈@佗@k^E9m") & vbCrLf):Response.Write(CCJCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CCJCJJJJ(" ,")):for CJJCCCJ=1 to CJJCJCCC.pagesize:CJJCCJJJ=rs(0):Response.Write(vbCrLf):Response.Write(CCJCJJJJ(" ,kECm") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write CJJCJCCC.listnum(CJJCCCJ):Response.Write(CCJCJJJJ("k^E5m") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE5 ,2=:8?lQ46?E6CQmk:?AFE ,?2>6lQ:5=:DEQ ,EJA6lQ4964<3@IQ ,G2=F6lQ")):Response.Write CJJCCJJJ:Response.Write(CCJCJJJJ("Qmk^E5m") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write rs(1):Response.Write(CCJCJJJJ("k^E5m") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE5 ,2=:8?lQ46?E6CQmk2 ,4=2DDlQH:?Q ,9C67lQDEF56?E:?7@]2DAn:5l")):Response.Write rs(11):Response.Write(CCJCJJJJ("Qm")):Response.Write rs(2):Response.Write(CCJCJJJJ("k^2mk^E5m") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write rs(3):Response.Write(CCJCJJJJ("k^E5m") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write rs(4):Response.Write(CCJCJJJJ("k^E5m") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE5m") & vbCrLf):Response.Write(CCJCJJJJ(" ,")):if rs(5)<>CJJCCJJC then CJJCCJJC=rs(5):CJJCCJCJ=CCJCJCJ.GetPositionStr_From(CJJCCJJC,CJCJJJJ) end if:Response.Write CJJCCJCJ:Response.Write(vbCrLf):Response.Write(CCJCJJJJ(" ,k^E5m") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write CJCCJJCC(CCJCJJJJ(">6>36C08C256"),CJJJJJC,rs(6)):Response.Write(CCJCJJJJ("k^E5m") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write rs(7):Response.Write(CCJCJJJJ("k^E5m") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write rs(8):Response.Write(CCJCJJJJ("k^E5m") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE5 ,2=:8?lQ46?E6CQm")):call showlevel(rs(9)):Response.Write(CCJCJJJJ("k^E5m") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE5 ,2=:8?lQ46?E6CQ ,4=2DDlQD>2==Qm")):Response.Write CJCCJJJJ(rs(10),0):Response.Write(CCJCJJJJ("k^E5m") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE5 ,2=:8?lQC:89EQm")):Response.Write CJCJCCCC(rs(12)):Response.Write(CCJCJJJJ("k^E5m") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE5 ,2=:8?lQ46?E6CQm") & vbCrLf):Response.Write(CCJCJJJJ(" ,k2 ,9C67lQ4C:D:D0`DE0a?50G:6H]2DAn:5l")):Response.Write CJJCCJJJ:Response.Write(CCJCJJJJ("Qm柠@眆@k^2m") & vbCrLf):Response.Write(CCJCJJJJ(" ,k2 ,9C67lQ4C:D:D42D6024E]2DAn24El255UDEF56?E:5l")):Response.Write rs(11):Response.Write(CCJCJJJJ("Qm迸@踥@k^2m") & vbCrLf):Response.Write(CCJCJJJJ(" ,")):If CJCJJCJC(85) Then Response.Write(vbCrLf):Response.Write(CCJCJJJJ(" ,k2 ,9C67lQE6DE0562=]2DAn24El56=U:5l")):Response.Write CJJCCJJJ:Response.Write(CCJCJJJJ("U2;2Il`Qm创@陟@k^2m") & vbCrLf):Response.Write(CCJCJJJJ(" ,")) End If:Response.Write(vbCrLf):Response.Write(CCJCJJJJ(" ,k^E5m") & vbCrLf):Response.Write(CCJCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CCJCJJJJ(" ,")):rs.movenext:next:Response.Write(vbCrLf):Response.Write(CCJCJJJJ(" ,kECm") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE5 ,4@=DA2?lQ`eQm")):Call CJJCJCCC.showpage:Response.Write(CCJCJJJJ("k^E5m") & vbCrLf):Response.Write(CCJCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CCJCJJJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CCJCJJJJ("k^7@C>m") & vbCrLf) End If:set CJJCJCCC=nothing else response.write CCJCJJJJ("k9C ,D:K6lV`Vmk5:G ,2=:8?lV46?E6CVmk3m诲@逄@拤@杜@仱@吉@炴@凶@“,柠@话@”,挄@钩@！,k^3mk^5:Gm") response.Write CCJCJJJJ("k5:G ,DEJ=6lV3@C56Ci`AI ,D@=:5 ,Rrrrj ,A255:?8i`_AIj>2C8:?\E@Aia_AIj324<8C@F?5iRu`u`u`jVmk9bm访@伫@筻@仆@k^9bmk@=m") response.Write CCJCJJJJ("k=:m潗@圣@飉@除@访@伫@：,仉@戋@镺@甚@洶@绊@厁@、,亵@样@牴@责@、,甚@洶@序@澻@、,礹@伕@攪@拼@、,無@虌@抌@邼@惀@绥@筄@斴@靝@浆@柠@严@低@巭@绊@宝@覽@孓@圣@癿@三@臥@朻@盳@兮@癿@飉@除@四@紛@，,仉@耇@杠@访@伫@共@臥@朻@癿@潗@圣@飉@除@氯@幮@。,k^=:m"):response.Write CCJCJJJJ("k=:m臥@朻@倹@同@访@伫@：,臥@朻@潗@圣@飉@除@髓@癿@严@低@朥@忀@彎@剈@尬@朄@臥@朻@癿@劣@朵@，,臥@朻@倹@同@访@伫@癿@盩@癿@昪@盯@掠@浆@柠@严@低@彎@剈@癿@丶@覽@臥@朻@倹@同@。,k^=:m"):response.Write CCJCJJJJ("k=:m鉯@刦@访@伫@：,寴@争@彎@剈@臥@朻@倹@同@每@轾@髓@癿@严@低@，,甬@徾@琁@偠@庲@巠@佗@亵@呓@寴@共@迖@衇@一,寴@一,癿@鉯@刦@访@伫@。,k^=:mk^@=mk^5:Gm") end if:Sub ShowLevel(CJJCJJCJ):dim CJJCCJCC:if not CJCJCJJC(CJJCJJCJ) then response.Write CCJCJJJJ("k5:G ,4=2DDlV=6G6=V ,DEJ=6lV324<8C@F?5i8C2JjVm朥@ ,访@k^5:Gm") else CJJCCJCC=split(CCJCJJJJ("歞@ ,帳@M轾@ ,佉@M丨@ ,筄@M轾@ ,髓@M杼@ ,髓@"),CCJCJJJJ("M")):response.Write CCJCJJJJ("k5:G ,4=2DDlV=6G6=V ,DEJ=6lV324<8C@F?5i") select case cint(CJJCJJCJ):case 0 : response.Write CCJCJJJJ("R__g___"):case 1 : response.Write CCJCJJJJ("R__u"):case 2 : response.Write CCJCJJJJ("Ruu_j4@=@CiR___"):case 3 : response.Write CCJCJJJJ("Ruupd__"):case 4 : response.Write CCJCJJJJ("Ru__"):end select:response.Write CCJCJJJJ("jVm") & CJJCCJCC(CJJCJJCJ) & CCJCJJJJ("k^5:Gm") end if:End Sub:Response.Write(vbCrLf):Response.Write(CCJCJJJJ("k:?AFE ,EJA6lQ9:556?Q ,:5lQ=3:5Q ,G2=F6lQ")):Response.Write CJJJCJCJ:Response.Write(CCJCJJJJ("Qm") & vbCrLf):Response.Write(CCJCJJJJ("k:?AFE ,EJA6lQ9:556?Q ,:5lQ>6>\EJA6Q ,G2=F6lQ")):Response.Write CCCCCJ:Response.Write(CCJCJJJJ("Qm") & vbCrLf):Response.Write(CCJCJJJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJCJJJJ("kD4C:AE ,DC4lQ^$4C:AED^49@D6?^49@D6?];BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJCJJJJ("kD4C:AE ,DC4lQ^$4C:AED^52E6A:4<6C^52E6A:4<6C]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJCJJJJ("kD4C:AE ,DC4lQ^$4C:AED^52E6A:4<6C^:`g?^52E6A:4<6C]K9\r}]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJCJJJJ("kD4C:AE ,DC4lQ^$4C:AED^=2J6C^=2J6C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJCJJJJ("kD4C:AE ,DC4lQ^$4C:AED^=2J6C^=2J6C]96=A6C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJCJJJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E23=6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJCJJJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E:E=6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJCJJJJ("kD4C:AE ,DC4lV^$4C:AED^;BF6CJ]D6=64E42496];DVmk^D4C:AEm") & vbCrLf):Response.Write(CCJCJJJJ("kD4C:AEm") & vbCrLf):Response.Write(CCJCJJJJ("^Y ,8=@32= ,H:?0@A6? ,Y^") & vbCrLf):Response.Write(CCJCJJJJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CCJCJJJJ(" ,SWVE23=6]E30=:DEVX];%23=6WX") & vbCrLf):Response.Write(CCJCJJJJ(" ,SWV:,E:E=6.VX];%:E=6WX") & vbCrLf):Response.Write(CCJCJJJJ(" ,SWVD6=64E,?2>6lQ8C256Q.[D6=64E,?2>6lQ8C@FAQ.VX]H:5E9W7F?4E:@?W:[HXLC6EFC? ,HZ`aNX]49@D6?WL5:D23=60D62C490E9C6D9@=5i`_[?@0C6DF=ED0E6IEiV沜@朄@绎@林@匴@酈@：,V[D62C4904@?E2:?DiECF6NX") & vbCrLf):Response.Write(CCJCJJJJ(" ,SWV:?AFE]52E6VX]52E6A:4<6CWL=2?8F286iVK9\r}V[2FE@w:56iECF6[7@C>2EiVJJJJ\>>\55VNX") & vbCrLf):Response.Write(CCJCJJJJ(" ,^^ ,衣@样@冀@创@陟@（,=2J6C）,") & vbCrLf):Response.Write(CCJCJJJJ(" ,SWVE23=6]E30=:DEVX]7:?5WVE5m2i4@?E2:?DWQ创@陟@QXVX]@?WV4=:4WV诲@泣@愊@创@陟@吉@封@丈@只@恝@夈@，,患@昪@眚@癿@襼@创@陟@诠@顴@盩@吒@？,V[ ,L ,:4@?i ,b[ ,E:E=6i ,V诲@硩@讟@V ,N[ ,7F?4E:@? ,WX ,L") & vbCrLf):Response.Write(CCJCJJJJ(" ,=2J6C]=@25WX") & vbCrLf):Response.Write(CCJCJJJJ(" ,S]86EWS2]2EECWV9C67VX[ ,7F?4E:@? ,WC6DX ,L") & vbCrLf):Response.Write(CCJCJJJJ(" ,=2J6C]4=@D6p==WX") & vbCrLf):Response.Write(CCJCJJJJ(" ,:7 ,WC6D ,lll ,VVX ,L ,S2]4=@D6DEWVECVX]7256~FEW7F?4E:@? ,WX ,L ,SWE9:DX]C6>@G6WX ,NX ,N") & vbCrLf):Response.Write(CCJCJJJJ(" ,6=D6 ,L ,=2J6C]>D8WC6DX ,N") & vbCrLf):Response.Write(CCJCJJJJ(" ,NX") & vbCrLf):Response.Write(CCJCJJJJ(" ,NX") & vbCrLf):Response.Write(CCJCJJJJ(" ,NX") & vbCrLf):Response.Write(CCJCJJJJ(" ,^^ ,陝@糶@划@衣@") & vbCrLf):Response.Write(CCJCJJJJ(" ,SWVD6=64E,?2>6lQ56AEQ.VX]D6=64E42496WL") & vbCrLf):Response.Write(CCJCJJJJ(" ,FC=iV^56A2CE>6?E^2==49:=5C6?n:5lVZSWVR>6>\EJA6VX]G2=WX[") & vbCrLf):Response.Write(CCJCJJJJ(" ,EC66iECF6") & vbCrLf):Response.Write(CCJCJJJJ(" ,NX") & vbCrLf):Response.Write(CCJCJJJJ(" ,^^ ,斫@墙@鉯@刦@访@伫@") & vbCrLf):Response.Write(CCJCJJJJ(" ,SWVR3E?\CD2VX]4=:4D8WV患@沜@朄@逄@丨@件@佐@敫@捩@VXN") & vbCrLf):Response.Write(CCJCJJJJ(" ,6=D6L") & vbCrLf):Response.Write(CCJCJJJJ(" ,=2J6C]=@25WX") & vbCrLf):Response.Write(CCJCJJJJ(" ,S]86EWV4C:D:D0bC5024E]2DAn24El32E49255U:5lVZ:5=:DEZVU0VZ|2E9]C2?5@>WX[7F?4E:@?WXL") & vbCrLf):Response.Write(CCJCJJJJ(" ,=2J6C]4=@D6p==WX") & vbCrLf):Response.Write(CCJCJJJJ(" ,=2J6C]>D8WV巭@淶@力@别@往@访@伫@划@衣@幱@双@迼@亁@论@调@遻@诲@VX") & vbCrLf):Response.Write(CCJCJJJJ(" ,NX") & vbCrLf):Response.Write(CCJCJJJJ(" ,N") & vbCrLf):Response.Write(CCJCJJJJ(" ,NX") & vbCrLf):Response.Write(CCJCJJJJ(" ,^^ ,双@迼@扆@朵@矨@俜@") & vbCrLf):Response.Write(CCJCJJJJ(" ,SWVR3E?\D>DVX]4=:4D8WV患@沜@朄@逄@丨@件@佐@敫@捩@！,VXN") & vbCrLf):Response.Write(CCJCJJJJ(" ,6=D6LH:?0@A6?WVD6?5D>D]2DAnE23=6lG0E6DEU:5=:DElVZ:5=:DE[V双@迼@扆@朵@矨@俜@V[Vf__[cc_VXN") & vbCrLf):Response.Write(CCJCJJJJ(" ,NX") & vbCrLf):Response.Write(CCJCJJJJ(" ,^^ ,扴@释@创@陟@") & vbCrLf):Response.Write(CCJCJJJJ(" ,SWVR3E?\56=VX]4=:4D8WV患@沜@朄@逄@丨@件@佐@敫@捩@！,VXN") & vbCrLf):Response.Write(CCJCJJJJ(" ,6=D6 ,:7W4@?7:C>WV患@昪@眚@癿@襼@创@陟@诠@顴@盩@吒@？,挄@硩@宕@创@陟@，,挄@发@涃@丈@伕@创@陟@。,VXXL") & vbCrLf):Response.Write(CCJCJJJJ(" ,H:?5@H]=@42E:@?lVE6DE0562=]2DAn24El32E4956=U:5=:DElVZ:5=:DE") & vbCrLf):Response.Write(CCJCJJJJ(" ,N") & vbCrLf):Response.Write(CCJCJJJJ(" ,NX") & vbCrLf):Response.Write(CCJCJJJJ(" ,^^ ,寴@每@刁@枋@") & vbCrLf):Response.Write(CCJCJJJJ(" ,SWVR3E?04@?EC2DEVX]@?WV4=:4D8WV患@沜@朄@逄@丨@件@佐@敫@捩@！,VXN") & vbCrLf):Response.Write(CCJCJJJJ(" ,6=D6LH:?0@A6?WVE6DE04@?EC2DE]2DAn:5=:DElVZ:5=:DEZVU=3:5l")):Response.Write CJJJCJCJ:Response.Write(CCJCJJJJ("V[V寴@每@刁@枋@V[Vh__[ca_VXN") & vbCrLf):Response.Write(CCJCJJJJ(" ,NX") & vbCrLf):Response.Write(CCJCJJJJ("NX") & vbCrLf):Response.Write(CCJCJJJJ("k^D4C:AEm") & vbCrLf):Response.Write(CCJCJJJJ("k^3@5Jm") & vbCrLf):Response.Write(CCJCJJJJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCJCJCJ=nothing:set CJCJCJCC=nothing:set CJCJCCJJ=nothing:set CJCJCCJC=nothing:CCCJJC.Close:Set CCCJJC=Nothing:rs.Close:Set rs=Nothing:CCJCCJ.Close:Set CCJCCJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf) Function CCJCJJJJ(ByVal CCJJCCCC) Dim CJJCCCJJ, CJJCCCJ, CJCJCCC CCJJCCCC = Replace(CCJJCCCC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62)) For CJJCCCJ = 1 To Len(CCJJCCCC) If CJJCCCJ <> CJCJCCC Then CJJCCCJJ = AscW(Mid(CCJJCCCC, CJJCCCJ, 1)) If CJJCCCJJ >= 33 And CJJCCCJJ <= 79 Then CCJCJJJJ = CCJCJJJJ & Chr(CJJCCCJJ + 47) ElseIf CJJCCCJJ >= 80 And CJJCCCJJ <= 126 Then CCJCJJJJ = CCJCJJJJ & Chr(CJJCCCJJ - 47) Else CJCJCCC = CJJCCCJ + 1 If Mid(CCJJCCCC, CJCJCCC, 1) = Chr(64) Then CCJCJJJJ = CCJCJJJJ & ChrW(CJJCCCJJ + 5) Else CCJCJJJJ = CCJCJJJJ & Mid(CCJJCCCC, CJJCCCJ, 1) End If End If Next End Function %>