<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim CCCCJC, CCCCCJ,rs, CJJJJJJ, sql:Set CCCCJC = server.CreateObject(CCJJJCCJ("ps~sq]r@??64E:@?")):CCCCJC.open Application(CCJJJCCJ("r@??64E:@?$EC:?8")):Set CCCCCJ=CCCCJC::Dim CJJJJCJ,CJJJJCC,CJJJCJJ,CJJJCJC,CJJJCCJ,CJJJCCC,CJJCJJJ,CJJCJJC,CJJCJCJ:Dim CJJCJCC,CJJCCJJ,CJJCCJC,CJJCCCJ,CJJCCCC,CJCJJJJ:Dim CJCJJJC,CJCJJCJ,CJCJJCC:Dim CJCJCJJ:CJCJCJJ=Trim(Request.Cookies(CCJJJCCJ("!$*|t|qt#"))):if CJCJCJJ="" then Call ClearMemberCookie else Call CheckMemberCookie end if:if CJJJJCJ>0 then sql=CCJJJCCJ("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(CCJJJCCJ("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,")) Call SetMemberCookie(CJJJJCJ,CJJJJCC) End IF end if:Sub CheckRight(CCJCJCJ):dim CJCJCJC,CJCJCCJ:if CJJJJCJ=0 then Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CCJJJCCJ("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,")) elseIf not CJCJJJJJ(CCJCJCJ) then Call RedirectMessage(CCJJJCCJ("朾@陋@W") & CCJCJCJ & CCJJJCCJ("X袦@祼@歝@，,诲@三@糶@绚@箜@琁@呓@聏@糶@。,")) end if:End Sub:Function CJCJJJJJ(CCJCJCJ):dim CJCJCJC,CJCJCCJ:CJCJCCJ=split(CCJCJCJ,CCJJJCCJ("[")):CJCJJJJJ=False:for CJCJCJC=0 to ubound(CJCJCCJ):If Mid(CJJJCJJ,CJCJCCJ(CJCJCJC),1)="1" then CJCJJJJJ=True:exit function end if:next:End Function:Sub CheckLogined():if CJJJJCJ=0 then Call ClearMemberCookie:Call ConnClose:dim CJCJCCC:CJCJCCC=trim(request.QueryString(CCJJJCCJ("D49@@="))):if isnumeric(CJCJCCC) then response.Redirect CCJJJCCJ("^>^G2?E^R^D49@@=^") & CJCJCCC & CCJJJCCJ("^DEF56?E^=@8:?nC65:C64El") & CCJJJJJ else Call RedirectMessage(CCJJJCCJ("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,")) end if end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CCJJJCCJ("!$*|t|qt#"))="":CJJJJCJ=0:CJJJCCC=0:CJJJJCC=Empty:CJJJCCJ=0:CJJCJJC=0:CJJCJJJ=0:CJJJCJC=0:CJJCJCC=False:CJCJJCJ=False:CJCJJCC=Empty:End Sub:Sub CheckMemberCookie():dim CJCCJJJ,CJCCJJC,CJCJCJC,CJCCJCJ,CJCCJCC:CJCCJJJ=split(CJCJCJJ,CCJJJCCJ("]")):if ubound(CJCCJJJ)<>2 then Call ClearMemberCookie elseif not isnumeric(CJCCJJJ(0)) or len(CJCCJJJ(1))<>32 or len(CJCCJJJ(2))<>32 then Call ClearMemberCookie else CJCCJJC=CJCCJJJ(1):for CJCJCJC=1 to len(CJCCJJC):CJCCJCJ=mid(CJCCJJC,CJCJCJC,1):if isnumeric(CJCCJCJ) then CJCCJCC=CJCCJCC & CJCCJCJ if len(CJCCJCC)=7 then exit for next:CJCCJJC=CJCCJJJ(2):if CJCCJCC<>mid(CJCCJJC,6,7) then Call ClearMemberCookie else CJCCJCJ=mid(CJCCJJC,18,10)/2:if CJCCJCJ6"), CCJJJCCJ("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CCJJJCCJ("kD4C:AE"), CCJJJCCJ("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CJCCCJC=new RegExp:CJCCCJC.Pattern=CCJJJCCJ("@?W,2\K.ZXl"):CJCCCJC.IgnoreCase = True:CJCCCJC.Global=True:str=CJCCCJC.Replace(str,CCJJJCCJ("@?S`U6BF2=Dj")):set CJCCCJC=nothing:CJCJJJJC=str End If:End Function:Function IIf(CCJJCJJC, CCJJCJCJ, CCJJCJCC):if isnull(CCJJCJJC) or isempty(CCJJCJJC) then IIf = CCJJCJCC elseif CCJJCJJC Then IIf = CCJJCJCJ Else IIf = CCJJCJCC end if:End Function:Const CJJCCJJJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::Sub Debug(str):response.Charset="utf-8":dim CJCJCJC,CJCCJCJ,CJCCCCJ:if isarray(str) then on error resume next:CJCJCJC=ubound(str,2):CJCCCCJ=err.number:err.clear:on error goto 0:if CJCCCCJ<>0 then for CJCJCJC=0 to ubound(str):if CJCJCJC>0 then response.Write CCJJJCCJ("k3C ,^m") response.Write CJCJCJC & CCJJJCCJ("i ,") & str(CJCJCJC):next else response.Write CCJJJCCJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m") for CJCJCJC=0 to ubound(str,2):response.Write CCJJJCCJ("kE9 ,2=:8?lV=67EVm") & CJCJCJC & CCJJJCCJ("k^E9m") next:response.Write CCJJJCCJ("k^ECm"):for CJCJCJC=0 to ubound(str):response.Write CCJJJCCJ("kECmkE9m") & CJCJCJC & CCJJJCCJ("k^E9m"):for CJCCJCJ=0 to ubound(str,2):response.Write CCJJJCCJ("kE5m") & str(CJCJCJC,CJCCJCJ) & CCJJJCCJ("k^E5m"):next:response.Write CCJJJCCJ("k^ECm"):next:response.Write CCJJJCCJ("k^E23=6m") end if elseif isnull(str) then response.Write CCJJJCCJ(",}F==.") else Response.Write replace(str,vbcrlf,CCJJJCCJ("k3Cm")) end if:Call ConnClose:Response.End:End Sub:Public Function CJCJJJCC():Dim CJCCCCC, CCJJJJJ:CCJJJJJ = Request.ServerVariables(CCJJJCCJ("!p%w0x}u~")):CJCCCCC = Request.ServerVariables(CCJJJCCJ("""&t#*0$%#x}v")):If CJCCCCC <> Empty Then if instr(lcase(CJCCCCC),CCJJJCCJ("Tb4:7C2>6"))>0 or instr(lcase(CJCCCCC),CCJJJCCJ("Tb4D4C:AE"))>0 then Call RedirectMessage(CCJJJCCJ("寴@丈@赲@，,患@癿@圫@圻@栊@否@朄@静@泐@孒@笡@！,！,！,")) CCJJJJJ = CCJJJJJ & CCJJJCCJ("n") & CJCCCCC end if:CJCJJJCC = CCJJJJJ:End Function:Sub SetHttpOnlyCookie(CCJJCCJJ,CCJJCCJC):dim CJCCJJJ:CJCCJJJ=CCJJCCJJ & CCJJJCCJ("l") & CCJJCCJC & CCJJJCCJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCJJJCCJ("$6E\r@@<:6"),CJCCJJJ):End Sub:::Function CJCJJCJJ(ByVal Str, ByVal StrLen):Dim CCJJJJC, CCJJJCJ, CCJJJCC, CJCJCJC:if isnull(str) then CJCJJCJJ="" else CCJJJJC = Len(Str):CCJJJCJ = 0:For CJCJCJC = 1 To CCJJJJC:CCJJJCC = AscW(Mid(Str, CJCJCJC, 1)):If CCJJJCC < 0 Or CCJJJCC > 255 Then CCJJJCJ = CCJJJCJ + 2 Else CCJJJCJ = CCJJJCJ + 1 If CCJJJCJ >= StrLen Then CJCJJCJJ = Left(Str, CJCJCJC) & CCJJJCCJ("]]]"):Exit For Else CJCJJCJJ = Str End If:Next end if:End Function::::Function CJCJJCJC(CJCCCCJ):if isnull(CJCCCCJ) or trim(CJCCCCJ)="" or not isnumeric(CJCCCCJ) then CJCJJCJC=false else Dim CJCCCJC:Set CJCCCJC = New RegExp:CJCCCJC.Pattern = CCJJJCCJ("/-5ZS"):CJCCCJC.IgnoreCase = True:CJCJJCJC = CJCCCJC.test(CJCCCCJ):set CJCCCJC=nothing end if:End Function:Function CJCJJCCJ(CCJJCCCJ):dim CCJJCJJ,CCJJCJC:CCJJCJJ=CCJJJCCJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CCJJCCCJ & CCJJJCCJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CCJJCJC=CCCCJC.execute(CCJJCJJ):CJCJJCCJ = CCJJCJC(0):if isnull(CJCJJCCJ) then CJCJJCCJ=1 CCJJCJC.close : set CCJJCJC=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CCJCCCC=nothing:set CJCJJCCC=nothing:set CJCJCJJJ=nothing:set CJCJCJJC=nothing:CCJJCJC.close : set CCJJCJC=nothing:CJJJJJJ.Close : Set CJJJJJJ=Nothing:rs.Close : Set rs=Nothing:CJCJCJCJ.Close : Set CJCJCJCJ = Nothing:CCCCJC.Close : Set CCCCJC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCJJCCCC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCJJJCCJ("!$*0|6DD286"),server.URLEncode(CCJJCCCC)):Response.Redirect CCJJJCCJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub::::::::::::Function CJCJCJCC(CCJCJJJJ):CJCJCJCC=CCJCJJJJ:End Function:::::Function CJCJCCJJ(ByVal CJCJCCJC,style):if not isdate(CJCJCCJC) then CJCJCCJJ=CJCJCCJC:exit function end if:dim CCJJCCJ,CCJJCCC,CCJCJJJ,CCJCJJC:CJCJCCJC=cdate(CJCJCCJC):CCJJCCJ=Year(CJCJCCJC):CCJJCCC=Month(CJCJCCJC):CCJCJJJ=Day(CJCJCCJC):select case style:case 0:CJCJCCJJ=CCJJCCJ & CCJJJCCJ("\") & right(0 & CCJJCCC,2) & CCJJJCCJ("\") & right(0 & CCJCJJJ,2):case 1:CJCJCCJJ=CCJJCCJ & right(0 & CCJJCCC,2) & right(0 & CCJCJJJ,2):case 2:CJCJCCJJ=right(CCJJCCJ,2) & CCJJJCCJ("\") & right(0 & CCJJCCC,2) & CCJJJCCJ("\") & right(0 & CCJCJJJ,2):case 3:CJCJCCJJ=CCJJCCJ & CCJJJCCJ("\") & right(0 & CCJJCCC,2):case 4:CJCJCCJJ=right(0 & CCJJCCC,2) & CCJJJCCJ("\") & right(0 & CCJCJJJ,2):case 5:CJCJCCJJ=right(0 & CCJCJJJ,2):case 6:CJCJCCJJ=CCJJCCJ & CCJJJCCJ("幯@") & right(0 & CCJJCCC,2) & CCJJJCCJ("會@") & right(0 & CCJCJJJ,2) & CCJJJCCJ("无@"):case else CJCJCCJJ=CJCJCCJC:end select:End Function:Function CJCJCCCJ(Table):Dim CCJJCJC, CCJCJCJ, str(), CJCJCJC,CJCCJCJ,CCJCJCC:CCJCJCC=UCase(Table):If Not IsArray(Application(CCJJJCCJ("!$*0") & CCJCJCC)) Then Sql=CCJJJCCJ("D6=64E ,:5[?2>6[>6>36CEJA6 ,7C@> ,,") & Table & CCJJJCCJ(". ,@C56C ,3J ,D@CE[:5"):set CCJJCJC=server.createobject(CCJJJCCJ("25@53]C64@C5D6E")):CCJJCJC.open sql,CCCCJC,1:CCJCJCJ = CCJJCJC.RecordCount:ReDim str(CCJCJCJ, 2):If CCJCJCJ > 0 Then For CJCJCJC = 1 To CCJCJCJ:for CJCCJCJ=0 to 2:str(CJCJCJC, CJCCJCJ) = CCJJCJC(CJCCJCJ):next:CCJJCJC.MoveNext:Next End If:CCJJCJC.Close: Set CCJJCJC = Nothing:Application(CCJJJCCJ("!$*0") & CCJCJCC) = str End If:CJCJCCCJ = Application(CCJJJCCJ("!$*0") & CCJCJCC):End Function:Sub ShowListSelect(CCJJCCCJ,CCJCJJJC,CCJCJJCJ):Dim str, CJCJCJC, CCJCCJJ:CCJCCJJ = CJCJCCCJ(CCJJCCCJ):For CJCJCJC = 1 To UBound(CCJCCJJ):if Cstr(CCJCCJJ(CJCJCJC,2))=Cstr(CCJCJJJC) then str = str & CCJJJCCJ("k@AE:@? ,G2=F6lV") & CCJCCJJ(CJCJCJC, 0) & CCJJJCCJ("V") If CStr(CCJCCJJ(CJCJCJC, 0)) = CCJCJJCJ & "" Then str = str & CCJJJCCJ(" ,D6=64E65lVD6=64E65V") str = str & CCJJJCCJ("m") & CCJCCJJ(CJCJCJC, 1) & CCJJJCCJ("k^@AE:@?m") end if:Next:Response.Write str:End Sub:Function CJCJCCCC(CCJJCCCJ,CCJCJJJC,CJCCJCCJ):Dim str, CJCJCJC, CCJCCJJ:CCJCCJJ = CJCJCCCJ(CCJJCCCJ):For CJCJCJC = 1 To UBound(CCJCCJJ):if Cstr(CCJCCJJ(CJCJCJC,2))=Cstr(CCJCJJJC) and CStr(CCJCCJJ(CJCJCJC, 0)) = CJCCJCCJ & "" then str=CCJCCJJ(CJCJCJC,1):exit for end if:Next:if str="" then str=CCJJJCCJ(",朥@矠@.") CJCJCCCC=str:End Function:::::::::::::::Function CJCCJJJJ(CCJCJJCC,str):dim CJCJCJC,CCJJJJC,CCJCCJC,CCJJCCC,CJCCCCJ,CCJCCCJ,CJCCJCC:CJCCJCC=ucase(CCJCJJCC):CCJCCCJ=str:if CCJCCCJ="" then CCJCCCJ=request.cookies(CJCCJCC):if CCJCCCJ="" then CJCCJJJJ="" else CCJCCCJ=strreverse(CCJCCCJ):CCJJJJC=len(CCJCCCJ):for CJCJCJC=1 to CCJJJJC-1 step 2:CCJJCCC=mid(CCJCCCJ,CJCJCJC,1):CJCCCCJ=mid(CCJCCCJ,CJCJCJC+1,1):CCJCCJC=CCJCCJC & CJCCCCJ & CCJJCCC:next:CCJCCJC=replace(CCJCCJC,CCJJJCCJ("L0N"),CCJJJCCJ(" ,")):CCJCCJC=replace(CCJCCJC,CCJJJCCJ("LIN"),CCJJJCCJ("Y")):CCJCCJC=replace(CCJCCJC,CCJJJCCJ("L:N"),CCJJJCCJ("^")):CJCCJJJJ=trim(CCJCCJC) end if else if Len(CCJCCCJ) Mod 2=1 then CCJCCCJ=CCJCCCJ & CCJJJCCJ(" ,") CCJCCCJ=replace(CCJCCCJ,CCJJJCCJ(" ,"),CCJJJCCJ("L0N")):CCJCCCJ=replace(CCJCCCJ,CCJJJCCJ("Y"),CCJJJCCJ("LIN")):CCJCCCJ=replace(CCJCCCJ,CCJJJCCJ("^"),CCJJJCCJ("L:N")):CCJJJJC=len(CCJCCCJ):for CJCJCJC=1 to CCJJJJC-1 step 2:CCJJCCC=mid(CCJCCCJ,CJCJCJC,1):CJCCCCJ=mid(CCJCCCJ,CJCJCJC+1,1):CCJCCJC=CCJCCJC & CJCCCCJ & CCJJCCC:next:CCJCCJC=Trim(strreverse(CCJCCJC)):CJCCJJJJ=CCJCCJC:response.cookies(CJCCJCC)=CCJCCJC end if:End Function::Sub ClearCache(CCJCJCJJ):Application.Contents.Remove CCJCJCJJ End Sub::Class jTree:Private Sql, CCJCCCC, CCCJJJJ, CCCJJJC,CCCJJCJ,CCCJJCC,CCCJCJJ,CCCJCJC:Private Sub Class_Initialize():CCCJJJJ = 0:CCCJJJC = 0:CCCJCJC=10:End Sub:Public Property Let Table(CCJCJCJC):if CCJCJCJC="" then Call RedirectMessage(CCJJJCCJ("寴@丈@赲@，,;%C66籶@宙@來@匑@旱@沜@朄@讹@罩@忀@襼@癿@屙@怢@！,")) CCCJJCJ=CCJCJCJC:CCCJJCC=CCJJJCCJ("!$*0") & UCase(CCCJJCJ):Call GetTreeArray:End Property:Public Property Get Table():Table=CCCJJCJ:End Property:::Private Sub GetTreeArray():Dim CJCJCJC, CJCCJCJ, CCCJCCJ,RecordCount:CCJCCCC = Application(CCCJJCC):If Not IsArray(CCJCCCC) Then Sql = CCJJJCCJ("D6=64E ,4@F?EW:5X ,7C@> ,") & CCCJJCJ:if CCCJCJJ<>"" then Sql=Sql & CCJJJCCJ(" ,H96C6 ,") & CCCJCJJ set CCCJCCJ=CCCCJC.execute(sql):RecordCount=CCCJCCJ(0):if RecordCount=0 then Call RedirectMessage(CCJJJCCJ("柠@话@W") & CCCJJCJ & CCJJJCCJ("^") & CCCJCJJ & CCJJJCCJ("X沜@朄@绎@林@敫@捩@")) CCCJJJC=RecordCount+CCCJCJC:ReDim CCJCCCC(CCCJJJC, 4):Sql = CCJJJCCJ("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCCJJCJ & CCJJJCCJ(" ,H:E9 ,W?@=@4"" then Sql=Sql & CCJJJCCJ(" ,H96C6 ,") & CCCJCJJ Sql=Sql & CCJJJCCJ(" ,@C56C ,3J ,D@CE[:5"):set CCCJCCJ=CCCCJC.execute(sql):For CJCJCJC = 1 To RecordCount:For CJCCJCJ = 0 To 4:CCJCCCC(CJCJCJC, CJCCJCJ) = CCCJCCJ(CJCCJCJ):if IsNull(CCJCCCC(CJCJCJC,4)) then CCJCCCC(CJCJCJC,4)=0 If CCJCCCC(CJCJCJC,2)="" then CCJCCCC(CJCJCJC,2)=CCJJJCCJ(",穵@.") Next:CCCJCCJ.MoveNext:Next:CCCJCCJ.Close: Set CCCJCCJ = Nothing:for CJCJCJC=CCCJJJC-(CCCJCJC-1) to CCCJJJC:CCJCCCC(CJCJCJC,0)=CJCJCJC:next:Application.Lock():Application(CCCJJCC) = CCJCCCC:Application.UnLock() else CCCJJJC=Ubound(CCJCCCC) End If:End Sub:::::Private Function CJCCJJCJ(CJCCJCCJ):dim CJCJCJC,CCCCJJJ:CJCCJJCJ=0:CCCCJJJ=CStr(CJCCJCCJ):if CCCCJJJ<>"0" then for CJCJCJC=1 to CCCJJJC:If CStr(CCJCCCC(CJCJCJC, 0))=CCCCJJJ Then CJCCJJCJ = CJCJCJC:Exit For End If:Next end if:End Function::::Public Function CJCCJJCC(CJCCJCCJ):Dim CJCJCJC,CCCCJJC:CJCJCJC=CJCCJJCJ(CJCCJCCJ):if CJCJCJC=0 then CCCCJJC=CJCCJCJJ(CJCCJCCJ) else CCCCJJC=CCJCCCC(CJCJCJC,3):if isnull(CCCCJJC) or CCCCJJC="" then CCCCJJC=CJCCJCJJ(CJCCJCCJ) elseif Mid(CCCCJJC,instrrev(CCCCJJC,CCJJJCCJ("["))+1)<>CStr(CJCCJCCJ) then CCCCJJC=CJCCJCJJ(CJCCJCCJ) elseif Left(CCCCJJC,1)=CCJJJCCJ("[") then CCCCJJC=CJCCJCJJ(CJCCJCCJ) end if end if:CJCCJJCC=CCCCJJC:End Function:Private Function CJCCJCJJ(CJCCJCCJ):dim CCCCJJJ:CCCCJJJ=CStr(CJCCJCCJ):if CCCCJJJ="0" then CJCCJCJJ="" else dim CCCJCCJ:set CCCJCCJ=CCCCJC.execute(CCJJJCCJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCCJJCJ & CCJJJCCJ(" ,H96C6 ,:5l") & CJCCJCCJ):if CCCJCCJ.eof then Call UpdateCache(CJCCJCCJ,"","","",""):Call RedirectMessage(CCJJJCCJ("顴@盩@（,xs：,") & CJCCJCCJ & CCJJJCCJ("）,丈@孓@圣@，,诲@患@迏@囙@吉@釈@斫@擈@佗@。,")) else if CCCJCCJ(0)=0 then CJCCJCJJ="0," & CJCCJCCJ else CJCCJCJJ=CJCCJJCC(CCCJCCJ(0)) & CCJJJCCJ("[") & CJCCJCCJ end if:if CCCJCCJ(2)<>CJCCJCJJ then CCCCJC.execute CCJJJCCJ("FA52E6 ,") & CCCJJCJ & CCJJJCCJ(" ,D6E ,A2E9lV") & CJCCJCJJ & CCJJJCCJ("V ,H96C6 ,:5l") & CJCCJCCJ else CJCCJCJJ=CCCJCCJ(2) end if end if:Call UpdateCache(CJCCJCCJ,CCCJCCJ(0),CCCJCCJ(1),CJCCJCJJ,CCCJCCJ(3)):CCCJCCJ.Close: Set CCCJCCJ = Nothing end if:End Function::::::::::::Public Function Sql_GetChildren(CJCCJCCJ):dim CCCCJJC:CCCCJJC=CJCCJJCC(CJCCJCCJ):Sql_GetChildren = CCCJJCJ & CCJJJCCJ("0A2E9ZV[V ,=:<6 ,V") & CCCCJJC & CCJJJCCJ("[TV") End Function::::::::::Public Sub ClearCache():Application.Contents.Remove CCCJJCC End Sub:Public Sub UpdateCache(CJCCJCCJ,CCJCJCCJ,CCJCJCCC,CCCCJJC,CCJCCJJJ):dim CJCJCJC,CJCCJCJ:CJCCJCCJ=CLng(CJCCJCCJ):CJCJCJC=CJCCJJCJ(CJCCJCCJ):if CCJCJCCJ="" and CCJCJCCC="" and CCCCJJC="" and CCJCCJJJ="" then if CJCJCJC>0 then for CJCCJCJ=1 to 4:CCJCCCC(CJCJCJC,CJCCJCJ)=Null:next end if else if CJCJCJC=0 then for CJCCJCJ=1 to CCCJJJC:if CCJCCCC(CJCCJCJ,1) & ""="" then CJCJCJC=CJCCJCJ:exit for end if:next end if:if CJCJCJC=0 then Call ClearCache else CCJCCCC(CJCJCJC,0)=CLng(CJCCJCCJ):if CCJCJCCJ<>"" then CCJCCCC(CJCJCJC,1)=CLng(CCJCJCCJ) if CCJCJCCC<>"" then CCJCCCC(CJCJCJC,2)=CCJCJCCC if CCCCJJC<>"" then CCJCCCC(CJCJCJC,3)=CCCCJJC if CCJCCJJJ<>"" then CCJCCCC(CJCJCJC,4)=CLng(CCJCCJJJ) end if end if:if CJCJCJC>0 then Application.Lock():Application(CCCJJCC) = CCJCCCC:Application.UnLock() end if:End Sub:Private Sub Debug(CCJJCCCC):Call ConnClose:Response.Write CCJJCCCC:Response.End:End Sub:Private Function CJCJJCCJ():CJCJJCCJ=CJCCJCCC+1:End Function:Private Function CJCCJCCC():dim CCJJCJC:set CCJJCJC=CCCCJC.execute(CCJJJCCJ("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CCCJJCJ & CCJJJCCJ(" ,@C56C ,3J ,:5 ,56D4")):CJCCJCCC=CCJJCJC(0):CCJJCJC.Close: Set CCJJCJC = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Const CJJCCJJC ="9" Const CJJCCJCJ ="7" Const CJJCCJCC ="3" Const CJJCCCJJ ="4" Const CJJCCCJC ="8" Const CJJCCCCJ =":" Const CJJCCCCC ="font-family: Verdana; font-size: 10px; height: 15px; border: 1px solid #666666":Class SplitPage:Private PageCount, CCCCJCC, CCCCCJJ, CCCCCJC, CCCCCCJ, CCCCCCC, CCJJJJJ, CJJJJJJJ, CJJJJJJC, CJJJJJCJ, CJJJJJCC:Private Function CJCCCJJJ():Dim CJJJJCJJ:CJJJJCJJ = "共" & CCCCCCC & CCJJJCCJ("k^3mk^DA2?m杜@讫@彐@ ,毊@顰@kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & CJJJJJCJ & CCJJJCCJ("k^3mk^DA2?m杜@ ,返@昪@笧@kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & CCCCCCJ & CCJJJCCJ("k^3mk^DA2?m^kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & PageCount & CCJJJCCJ("k^3mk^DA2?m顰@") CJCCCJJJ = CJJJJCJJ:End Function:Private Function CJCCCJJC():CJCCCJJC = CCJJJCCJ(" ,k:?AFE ,:5lVA286V ,EJA6lVE6IEV ,G2=F6lV") & CCCCCCJ & CCJJJCCJ("V ,DEJ=6lV") & CJJCCCCC & CCJJJCCJ("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") & CCJJJJJ & CCJJJCCJ("VZE9:D]G2=F6Qm") End Function:Private Function CJCCCJCJ():CJCCCJCJ = CCJJJCCJ(" ,k:?AFE ,EJA6lV3FEE@?V ,DEJ=6lV") & CJJCCCCC & CCJJJCCJ("V ,G2=F6lVv@V ,@?4=:46?E]86Et=6>6?EqJx5WVA286VXX ,=@42E:@?lV") & CCJJJJJ & CCJJJCCJ("VZ5@4F>6?E]86Et=6>6?EqJx5WVA286VX]G2=F6Qm") End Function:Private Function CJCCCJCC():Dim CJJJJCJJ, CJCJCJC:CJJJJCJJ = CCJJJCCJ(" ,轧@别@笧@kD6=64E ,:5lVA286V ,@?492?86lQ;2G2D4C:AEi=@42E:@?lV") & CCJJJJJ & CCJJJCCJ("VZE9:D]@AE:@?D,E9:D]D6=64E65x?56I.]G2=F6Q ,DEJ=6lV7@?E\D:K6i`_AIj ,7@?E\72>:=Ji'6C52?2Vm") For CJCJCJC = 1 To PageCount:CJJJJCJJ = CJJJJCJJ & CCJJJCCJ("k@AE:@? ,G2=F6lV") & CJCJCJC & CCJJJCCJ("V") If CJCJCJC = CCCCCCJ Then CJJJJCJJ = CJJJJCJJ & CCJJJCCJ(" ,D6=64E65") CJJJJCJJ = CJJJJCJJ & CCJJJCCJ("m") & CJCJCJC & CCJJJCCJ("k^@AE:@?m"):Next:CJJJJCJJ = CJJJJCJJ & CCJJJCCJ("k^D6=64Em顰@"):CJCCCJCC = CJJJJCJJ:End Function:Public Sub ShowPage():Dim CJCJCJC, CJJJJCJC,CJJJJCCJ,CJJJJCCC:if CCCCCCC>0 then CJJJJCJC = CCJJJCCJ("k5:G ,4=2DDlVDA=:EA286V ,DEJ=6lV@G6C7=@Hi9:556?Vmk5:G ,4=2DDlVDA=:EA2860=V ,DEJ=6lV7=@2Ei=67EVm") & CJCCCJJJ & CCJJJCCJ("k^5:Gmk5:G ,4=2DDlVDA=:EA2860CV ,DEJ=6lV7=@2EiC:89EVm") If PageCount > 1 Then Select Case CJJJJJCC:Case 1: CJJJJCCC = CJCCCCCJ:Case 2: CJJJJCCC = CJCCCCCC:Case 3: CJJJJCCC = CCJJJJJJ:Case 4: CJJJJCCC = CCJJJJJC:Case 5: CJJJJCCC = CCJJJJCJ:Case 6: CJJJJCCC = CCJJJJCC:Case 7: CJJJJCCC = CCJJJCJJ:Case 8: CJJJJCCC = CCJJJCJC:End Select End If:CJJJJCCJ = CCJJJCCJ("k^5:Gmk^5:Gm") end if:if CJJJJJCC>=6 then Response.Write CJJJJCCC else Response.Write CJJJJCJC & CJJJJCCC & CJJJJCCJ end if:End Sub:Public Function Rs():On Error Resume Next:Set CCCCCJJ = Server.CreateObject(CCJJJCCJ("ps~sq]#64@C5$6E")):CCCCCJJ.PageSize = CJJJJJCJ:CCCCCJJ.Open CCCCCJC, CCCCJCC, 1:If err then Response.Write CCJJJCCJ("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 & CCJJJCCJ("k^5:Gmk^5:Gmk3Cm") Err.Clear:response.end end if:If Not CCCCCJJ.EOF Then CCCCCCC = CCCCCJJ.RecordCount:PageCount = CCCCCJJ.PageCount:If CCCCCCJ > PageCount Then CCCCCCJ = PageCount CCCCCJJ.AbsolutePage = CCCCCCJ End If:Set Rs = CCCCCJJ:End Function:Public Property Let CCCCCJ(CCJCCJJC):Set CCCCJCC = CCJCCJJC:End Property:Public Property Let SQL(str):CCCCCJC = str:End Property:Public Property Let Style(CCJCJCJ):If IsNumeric(CCJCJCJ) Then CJJJJJCC = CInt(CCJCJCJ):If CJJJJJCC < 1 Or CJJJJJCC > 8 Then CJJJJJCC = 1 Else CJJJJJCC = 1 End If:End Property:Public Property Let PageSize(CCJCJCJ):If IsNumeric(CCJCJCJ) Then CJJJJJCJ = CInt(CCJCJCJ):If CJJJJJCJ < 1 Then CJJJJJCJ = 10 Else CJJJJJCJ = 10 End If:End Property:Public Property Get PageSize():If CCCCCCJ = PageCount Then PageSize = CCCCCCC - CJJJJJCJ * (PageCount - 1) Elseif CCCCCCC=0 then pagesize=0 else PageSize = CJJJJJCJ end if:End Property:Private Sub Class_Initialize():dim CJJJCJJJ:CJJJJJCJ = 10:CJJJJJCC = 1:Set CCCCJCC = CCCCJC:CCCCCCJ = Trim(Request.QueryString(CCJJJCCJ("!286"))):If IsNumeric(CCCCCCJ) Then CCCCCCJ = CLng(CCCCCCJ):If CCCCCCJ < 1 Then CCCCCCJ = 1 Else CCCCCCJ = 1 End If:CJJJJJJC = Trim(Request.ServerVariables(CCJJJCCJ("&#{"))):CJJJJJJC = Mid(CJJJJJJC, InStrRev(CJJJJJJC, CCJJJCCJ("^")) + 1):CJJJJJJJ = Split(Trim(Request.ServerVariables(CCJJJCCJ("""&t#*0$%#x}v"))), CCJJJCCJ("U")):CCJJJJJ = Server.HtmlEncode(CCJCCJCJ):CJJJCJJJ=lcase(CCJJJJJ):if instr(CJJJCJJJ,CCJJJCCJ("Tb4:7C2>6"))>0 or instr(CJJJCJJJ,CCJJJCCJ("Tb4D4C:AE"))>0 or instr(CJJJCJJJ,CCJJJCCJ("V"))>0 or instr(CJJJCJJJ,CCJJJCCJ(";2G2D4C:AE"))>0 or instr(CJJJCJJJ,CCJJJCCJ("6IAC6DD:@?"))>0 then Call RedirectMessage(CCJJJCCJ("寴@丈@赲@，,患@癿@圫@圻@栊@否@朄@静@泐@孒@笡@！,！,！,")) End Sub:Public Function ListNum(CCJCJCJ):ListNum = CJJJJJCJ * (CCCCCCJ - 1) + CCJCJCJ:End Function:Private Function CCJCCJCJ():Dim CJCJCJC, str:For CJCJCJC = 0 To UBound(CJJJJJJJ):If InStr(LCase(CJJJJJJJ(CJCJCJC)), CCJJJCCJ("A286l")) = 0 Then str = str & CCJJJCCJ("U") & CJJJJJJJ(CJCJCJC) Next:str = Mid(str, 2):If str = "" Then CCJCCJCJ = CJJJJJJC & CCJJJCCJ("n") & CCJJJCCJ("A286l") Else CCJCCJCJ = CJJJJJJC & CCJJJCCJ("n") & str & CCJJJCCJ("UA286l") End Function:Private Function CJCCCCCJ():Dim str:str = CCJJJCCJ("轧@别@ ,笧@"):For CJCJCJC = 1 To PageCount:If CJCJCJC = CCCCCCJ Then str = str & CCJJJCCJ("k3m") & CJCJCJC & CCJJJCCJ("k^3m ,") Else str = str & CCJJJCCJ("k2 ,9C67lV") & CCJJJJJ & CJCJCJC & CCJJJCCJ("Vm") & CJCJCJC & CCJJJCCJ("k^2m ,") Next:str = str & CCJJJCCJ("顰@"):CJCCCCCJ = str:End Function:Private Function CJCCCCCC():Dim str:If CCCCCCJ > 1 Then str = str & CCJJJCCJ("k2 ,9C67lV") & CCJJJJJ & CCJJJCCJ("`V ,E:E=6lV馑@顰@V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CJJCCJJC & CCJJJCCJ("k^2m ,") str = str & CCJJJCCJ("k2 ,9C67lV") & CCJJJJJ & CCCCCCJ - 1 & CCJJJCCJ("V ,E:E=6lV丅@一,顰@V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CJJCCJCC & CCJJJCCJ("k^2m ,") Else str = str & CJJCCJJC & CCJJJCCJ(" ,") & CJJCCJCC End If:If CCCCCCJ < PageCount Then str = str & CCJJJCCJ("k2 ,9C67lV") & CCJJJJJ & CCCCCCJ + 1 & CCJJJCCJ("V ,E:E=6lV丆@一,顰@V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CJJCCCJJ & CCJJJCCJ("k^2m ,") str = str & CCJJJCCJ("k2 ,9C67lV") & CCJJJJJ & PageCount & CCJJJCCJ("V ,E:E=6lV朦@顰@V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CJJCCCCJ & CCJJJCCJ("k^2m ,") Else str = str & CJJCCCJJ & CCJJJCCJ(" ,") & CJJCCCCJ End If:str = str & CJCCCJJC:str = str & CJCCCJCJ:CJCCCCCC = str:End Function:Private Function CCJJJJJJ():Dim str, CJCCJJC:CJCCJJC = (CCCCCCJ - 1) \ 10:If CCCCCCJ = 1 Then str = str & CJJCCJJC & CCJJJCCJ(" ,") Else str = str & CCJJJCCJ("k2 ,9C67lV") & CCJJJJJ & CCJJJCCJ("`V ,E:E=6lV馑@顰@Vm") & CJJCCJJC & CCJJJCCJ("k^2m ,") If CJCCJJC * 10 > 0 Then str = str & CCJJJCCJ("k2 ,9C67lV") & CCJJJJJ & CCCCCCJ - 10 & CCJJJCCJ("V ,E:E=6lV丅@匼@顰@Vm") & CJJCCJCJ & CCJJJCCJ("k^2m ,") For CJCJCJC = (CJCCJJC * 10 + 1) To (CJCCJJC * 10 + 10):If CJCJCJC = CCCCCCJ Then str = str & CCJJJCCJ("k3m") & CJCJCJC & CCJJJCCJ("k^3m ,") Else str = str & CCJJJCCJ("k2 ,9C67lV") & CCJJJJJ & CJCJCJC & CCJJJCCJ("V ,E:E=6lV轧@别@笧@") & CJCJCJC & CCJJJCCJ("顰@Vm") & CJCJCJC & CCJJJCCJ("k^2m ,") If CJCJCJC = PageCount Then Exit For Next:If CJCJCJC < PageCount Then str = str & CCJJJCCJ("k2 ,9C67lV") & CCJJJJJ & CJCJCJC & CCJJJCCJ("V ,E:E=6lV丆@匼@顰@Vm") & CJJCCCJC & CCJJJCCJ("k^2m ,") If CCCCCCJ = PageCount Then str = str & CJJCCCCJ Else str = str & CCJJJCCJ("k2 ,9C67lV") & CCJJJJJ & PageCount & CCJJJCCJ("V ,E:E=6lV朦@顰@Vm") & CJJCCCCJ & CCJJJCCJ("k^2m") CCJJJJJJ = str:End Function:Private Function CCJJJJJC():Dim str, CJCCCCJ, CJJJCJJC, CJCJCJC:If CCCCCCJ > 4 Then str = str & CCJJJCCJ("k2 ,9C67lV") & CCJJJJJ & CCJJJCCJ("`Vm,`.k^2m ,]]]") If CCCCCCJ < PageCount - 3 Then CJJJCJJC = CCCCCCJ + 3 Else CJJJCJJC = PageCount For CJCJCJC = CCCCCCJ - 3 To CJJJCJJC:If CJCJCJC >= 1 Then If CJCJCJC = CCCCCCJ Then str = str & CCJJJCCJ(" ,k3m,") & CJCJCJC & CCJJJCCJ(".k^3m") Else str = str & CCJJJCCJ(" ,k2 ,9C67lV") & CCJJJJJ & CJCJCJC & CCJJJCCJ("Vm,") & CJCJCJC & CCJJJCCJ(".k^2m") End If:Next:If CCCCCCJ < PageCount - 3 Then str = str & CCJJJCCJ(" ,]]] ,k2 ,9C67lV") & CCJJJJJ & PageCount & CCJJJCCJ("Vm,") & PageCount & CCJJJCCJ(".k^2m") CCJJJJJC = str:End Function:Private Function CCJJJJCJ():Dim str:If CCCCCCJ > 1 Then str = str & CCJJJCCJ("k2 ,9C67lV") & CCJJJJJ & CCJJJCCJ("`V ,E:E=6lV馑@顰@Vm馑@顰@k^2m ,") str = str & CCJJJCCJ("k2 ,9C67lV") & CCJJJJJ & CCCCCCJ - 1 & CCJJJCCJ("V ,E:E=6lV丅@一,顰@Vm丅@一,顰@k^2m ,") Else str = str & CCJJJCCJ("kDA2? ,DEJ=6lV4@=@CiRhhhjVm馑@顰@ ,丅@一,顰@k^DA2?m") End If:If CCCCCCJ < PageCount Then str = str & CCJJJCCJ(" ,k2 ,9C67lV") & CCJJJJJ & CCCCCCJ + 1 & CCJJJCCJ("V ,E:E=6lV丆@一,顰@Vm丆@一,顰@k^2m ,") str = str & CCJJJCCJ("k2 ,9C67lV") & CCJJJJJ & PageCount & CCJJJCCJ("V ,E:E=6lV朦@顰@Vm朦@顰@k^2m ,") Else str = str & CCJJJCCJ(" ,kDA2? ,DEJ=6lV4@=@CiRhhhjVm丆@一,顰@ ,朦@顰@k^DA2?m") End If:str = str & CJCCCJCC:CCJJJJCJ = str:End Function:Private Function CCJJJJCC():Dim str:if CCCCCCJ>=2 then str = str & CCJJJCCJ("k2 ,9C67lV") & CCJJJJJ & CCCCCCJ - 1 & CCJJJCCJ("V ,52E2\C@=6lV3FEE@?V ,52E2\:4@?lV2CC@H\=Vm!C6Gk^2m") str = str & CCJJJCCJ("k2 ,9C67lV") & CCJJJJJ & CCCCCCJ - 1 & CCJJJCCJ("V ,52E2\C@=6lV3FEE@?Vm") & CCCCCCJ-1 & CCJJJCCJ("k^2m") end if:str = str & CCJJJCCJ("k2 ,9C67lV") & CCJJJJJ & CCCCCCJ & CCJJJCCJ("V ,52E2\C@=6lV3FEE@?V ,4=2DDlVF:\3E?\24E:G6Vm") & CCCCCCJ & CCJJJCCJ("k^2m") if pagecount>CCCCCCJ then str = str & CCJJJCCJ("k2 ,9C67lV") & CCJJJJJ & CCCCCCJ + 1 & CCJJJCCJ("V ,52E2\C@=6lV3FEE@?Vm") & CCCCCCJ+1 & CCJJJCCJ("k^2m") str = str & CCJJJCCJ("k2 ,9C67lV") & CCJJJJJ & CCCCCCJ + 1 & CCJJJCCJ("V ,52E2\C@=6lV3FEE@?V ,52E2\:4@?lV2CC@H\CV ,52E2\:4@?A@DlVC:89EVm}6IEk^2m") end if:CCJJJJCC=str:End Function:Private Function CCJJJCJJ():Dim str:str=CCJJJCCJ("kF= ,4=2DDlVA28:?2E:@? ,A28:?2E:@?\C:89EVm") if CCCCCCJ>=2 then str = str & CCJJJCCJ("k=:mk2 ,9C67lV") & CCJJJJJ & CCCCCCJ - 1 & CCJJJCCJ("VmU=2BF@jk^2mk^=:m") str = str & CCJJJCCJ("k=:mk2 ,9C67lV") & CCJJJJJ & CCCCCCJ - 1 & CCJJJCCJ("Vm") & CCCCCCJ-1 & CCJJJCCJ("k^2mk^=:m") end if:str = str & CCJJJCCJ("k=: ,4=2DDlV24E:G6Vmk2 ,9C67lV") & CCJJJJJ & CCCCCCJ & CCJJJCCJ("Vm") & CCCCCCJ & CCJJJCCJ("k^2mk^=:m") if pagecount>CCCCCCJ then str = str & CCJJJCCJ("k=:mk2 ,9C67lV") & CCJJJJJ & CCCCCCJ + 1 & CCJJJCCJ("Vm") & CCCCCCJ+1 & CCJJJCCJ("k^2mk^=:m") str = str & CCJJJCCJ("k=:mk2 ,9C67lV") & CCJJJJJ & CCCCCCJ + 1 & CCJJJCCJ("VmUC2BF@jk^2mk^=:m") end if:str=str & CCJJJCCJ("k^F=m"):CCJJJCJJ=str:End Function:Private Function CCJJJCJC():Dim str:str=CCJJJCCJ("kF= ,52E2\2>\H:586ElVA28:?2E:@?V ,4=2DDlV2>\A28:?2E:@? ,2>\A28:?2E:@?\5672F=EVm") if CCCCCCJ>=2 then str = str & CCJJJCCJ("k=:mk2 ,9C67lV") & CCJJJJJ & CCCCCCJ - 1 & CCJJJCCJ("VmU=2BF@jk^2mk^=:m") str = str & CCJJJCCJ("k=:mk2 ,9C67lV") & CCJJJJJ & CCCCCCJ - 1 & CCJJJCCJ("Vm") & CCCCCCJ-1 & CCJJJCCJ("k^2mk^=:m") end if:str = str & CCJJJCCJ("k=: ,4=2DDlV2>\24E:G6Vmk2 ,9C67lV") & CCJJJJJ & CCCCCCJ & CCJJJCCJ("Vm") & CCCCCCJ & CCJJJCCJ("k^2mk^=:m") if pagecount>CCCCCCJ then str = str & CCJJJCCJ("k=:mk2 ,9C67lV") & CCJJJJJ & CCCCCCJ + 1 & CCJJJCCJ("Vm") & CCCCCCJ+1 & CCJJJCCJ("k^2mk^=:m") str = str & CCJJJCCJ("k=:mk2 ,9C67lV") & CCJJJJJ & CCCCCCJ + 1 & CCJJJCCJ("VmUC2BF@jk^2mk^=:m") end if:str=str & CCJJJCCJ("k^F=m"):CCJJJCJC=str:End Function:End Class::dim CJCJCCC:sql=Request.ServerVariables(CCJJJCCJ("!p%w0x}u~")):if instr(sql,CCJJJCCJ("^D49@@=^25>:?^"))>0 then Call CheckLogined:if not CJJCJCC and not CJCJJCJ then Call RedirectMessage(CCJJJCCJ("寴@丈@赲@，,患@沜@朄@迖@兠@诠@顰@靝@癿@朾@陋@。,")) CJCJCCC=CJJCJJJ elseif instr(sql,CCJJJCCJ("^>^D49@@=^DEF56?E^"))>0 or instr(sql,CCJJJCCJ("^DEF56?E^"))>0 then Call CheckLogined:CJCJCCC=CJJCJJJ elseif instr(sql,CCJJJCCJ("^D49@@="))>0 then CJCJCCC=Request.QueryString(CCJJJCCJ("D49@@=")):if not CJCJJCJC(CJCJCCC) then CJCJCCC=Request.QueryString(CCJJJCCJ("F")) if not CJCJJCJC(CJCJCCC) then CJCJCCC=Request.QueryString(CCJJJCCJ("D4")) if not CJCJJCJC(CJCJCCC) then Call RedirectMessage(CCJJJCCJ("糶@绚@厽@敫@W$49@@=X忀@顶@丵@敫@孒@。,")) CJCJCCC=csng(CJCJCCC) end if:if CJCJCCC=0 then Call RedirectMessage(CCJJJCCJ("糶@绚@厽@敫@W$49@@=X锔@诪@W_X。,")) Dim CJJJCJCJ:Call SetConfig:Sub SetConfig():dim CJCJCCJ,CCJJCJC:sql=CCJJJCCJ("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")):CJCJCCJ(3)=CCJJCJC(CCJJJCCJ("4FDE@>8C@FA")) & "":CJCJCCJ(4)=CCJJCJC(CCJJJCCJ("D:5632C0@E96C")) & "":CJCJCCJ(5)=IIf(isnull(CCJJCJC(CCJJJCCJ("E6DEC6DF=EG:6H"))),0,CCJJCJC(CCJJJCCJ("E6DEC6DF=EG:6H"))):CJCJCCJ(6)=CCJJCJC(CCJJJCCJ("K:IF?E:>6")):CJCJCCJ(7)=CCJJCJC(CCJJJCCJ("766")):CJCJCCJ(8)=CCJJCJC(CCJJJCCJ("C6E6DE52J")):CJCJCCJ(9)=CCJJCJC(CCJJJCCJ("6IA:C652E6")):CJCJCCJ(10)=CCJJCJC(CCJJJCCJ("E:E=6")):CJCJCCJ(11)=CCJJCJC(CCJJJCCJ(":?EC@")) & "":CJCJCCJ(12)=CCJJCJC(CCJJJCCJ("A:4EFC6")) & "":CJCJCCJ(13)=CCJJCJC(CCJJJCCJ("72>:=J")):CJCJCCJ(14)=CCJJCJC(CCJJJCCJ("4@AJC:89E")) & "":CJCJCCJ(15)=IIf(isnull(CCJJCJC(CCJJJCCJ("D6>6DE6C0DE2CE052E6"))),CCJJJCCJ("`h__\`\`"),CCJJCJC(CCJJJCCJ("D6>6DE6C0DE2CE052E6"))):CJCJCCJ(16)=IIf(isnull(CCJJCJC(CCJJJCCJ("K:IF?0E:>6D09:89=:89E"))),0,CCJJCJC(CCJJJCCJ("K:IF?0E:>6D09:89=:89E"))):CJCJCCJ(17)=CCJJCJC(CCJJJCCJ("4@?E24E")) & "":CJCJCCJ(18)=CCJJCJC(CCJJJCCJ("D2?5E23=6")):CJCJCCJ(19)=CCJJCJC(CCJJJCCJ("4C:D:D")):CJCJCCJ(20)=CCJJCJC(CCJJJCCJ("JJ52E6")):CJCJCCJ(21)=CCJJCJC(CCJJJCCJ("BB")):CJCJCCJ(22)=CCJJCJC(CCJJJCCJ("JFJF60D>D0EA=")) & "":CJCJCCJ(23)=CCJJCJC(CCJJJCCJ("JFJF60E6DE0=3")) & "":CJCJCCJ(25)=CCJJCJC(CCJJJCCJ("6IA6CE")):CJCJCCJ(26)=CCJJCJC(CCJJJCCJ(">@5:?7@")):CJCJCCJ(27)=CCJJCJC(CCJJJCCJ("9@>6A286E@AA:4EFC6")) & "":CJCJCCJ(28)=CCJJCJC(CCJJJCCJ("4C:D:D=3")):CJCJCCJ(29)=IIf(CCJJCJC(CCJJJCCJ("4C:D:D@=5")),False,True):CJCJCCJ(30)=CCJJCJC(CCJJJCCJ("8C@FA8F:52?46")):CJCJCCJ(31)=CCJJCJC(CCJJJCCJ("3:@7665324<")):CJCJCCJ(32)=CCJJCJC(CCJJJCCJ("<6JDEC")):CJCJCCJ(33)=CCJJCJC(CCJJJCCJ("=@8@")) & "":CJCJCCJ(34)=CCJJCJC(CCJJJCCJ("K:46")):CJCJCCJ(35)=IIf(CCJJCJC(CCJJJCCJ(":D?6H")),True,False):CJCJCCJ(36)=121:CJCJCCJ(37)=111:CJCJCCJ(38)=160:CJCJCCJ(39)=CCJJCJC(CCJJJCCJ("8F6DE3@@<")):CJCJCCJ(40)=CCJJCJC(CCJJJCCJ("75D")):CJCJCCJ(42)=CCJJCJC(CCJJJCCJ("9@>6=@8:?")):CJCJCCJ(43)=CCJJCJC(CCJJJCCJ("K:IF?0?6657665324<")):CJCJCCJ(44)=CCJJCJC(CCJJJCCJ("K:IF?0E:>6D0=:>:E")):CJCJCCJ(45)=CCJJCJC(CCJJJCCJ("4@>A=6E60:?7@")):CJCJCCJ(46)=CCJJCJC(CCJJJCCJ("E6DE:?EC@")) & "":CJCJCCJ(47)=IIf(isnull(CCJJCJC(CCJJJCCJ("JFJF60367@C60E:>6"))),0,CCJJCJC(CCJJJCCJ("JFJF60367@C60E:>6"))):CJCJCCJ(49)=CCJJCJC(CCJJJCCJ("D>D0C646:G6C")):CJCJCCJ(50)=CCJJCJC(CCJJJCCJ("D>D0D:8?")) & "":CJCJCCJ(52)=CCJJCJC(CCJJJCCJ("JFJF602CC2?86")):CJCJCCJ(53)=IIf(isnull(CCJJCJC(CCJJJCCJ("DEF56?E0BF6DE:@?04@F?E"))),0,CCJJCJC(CCJJJCCJ("DEF56?E0BF6DE:@?04@F?E"))):CJCJCCJ(54)=CCJJCJC(CCJJJCCJ("9:560=30@FE@7286")):CJCJCCJ(55)=CCJJCJC(CCJJJCCJ("JFJF60E6DE052JD")):CJCJCCJ(56)=CCJJCJC(CCJJJCCJ("JFJF60H66<0=:>:E")):CJCJCCJ(57)=CCJJCJC(CCJJJCCJ("JFJF604964<65")):CJCJCCJ(58)=CCJJCJC(CCJJJCCJ("K:IF?0?6657665324<0?6IE")):CJCJCCJ(59)=CCJJCJC(CCJJJCCJ("49642E6"),CCJJJCCJ("}F>36C"),CCJJJCCJ("%62496C"),CCJJJCCJ("!2C6?E")):select case CJJJCJCJ(1):case 1,2 : CJJJCCJJ=Array(CCJJJCCJ("孡@栜@"),CCJJJCCJ("孡@甚@"),CCJJJCCJ("珨@红@"),CCJJJCCJ("幯@红@"),CCJJJCCJ("吇@孡@"),CCJJJCCJ("孡@史@"),CCJJJCCJ("敔@布@"),CCJJJCCJ("宱@镺@")):case 3,16 : CJJJCCJJ=Array(CCJJJCCJ("孡@栜@"),CCJJJCCJ("孡@甚@"),CCJJJCCJ("陝@糶@"),CCJJJCCJ("幯@红@"),CCJJJCCJ("吇@孡@"),CCJJJCCJ("孡@史@"),CCJJJCCJ("敔@布@"),CCJJJCCJ("宱@镺@")):case 4 : CJJJCCJJ=Array(CCJJJCCJ("匶@陝@"),CCJJJCCJ("杠@论@耀@"),CCJJJCCJ("卐@佈@"),CCJJJCCJ("幯@仸@"),CCJJJCCJ("吇@了@"),CCJJJCCJ("缑@史@"),CCJJJCCJ("匶@甚@"),CCJJJCCJ("宱@屙@")):case 5 : CJJJCCJJ=Array(CCJJJCCJ("卐@佈@"),CCJJJCCJ("呓@巠@"),CCJJJCCJ("郣@闣@"),CCJJJCCJ("幯@仸@"),CCJJJCCJ("吇@了@"),CCJJJCCJ("缑@史@"),CCJJJCCJ("呓@巠@"),CCJJJCCJ("宱@屙@")):case 6 : CJJJCCJJ=Array(CCJJJCCJ("卐@佈@"),CCJJJCCJ("杠@论@耀@"),CCJJJCCJ("线@刦@"),CCJJJCCJ("幯@仸@"),CCJJJCCJ("吇@了@"),CCJJJCCJ("缑@史@"),CCJJJCCJ("咣@话@布@"),CCJJJCCJ("宱@屙@")):case 7 : CJJJCCJJ=Array(CCJJJCCJ("卐@佈@"),CCJJJCCJ("宓@兰@"),CCJJJCCJ("郣@闣@"),CCJJJCCJ("幯@仸@"),CCJJJCCJ("戓@叆@"),CCJJJCCJ("缑@史@"),CCJJJCCJ("咣@话@布@"),CCJJJCCJ("宱@屙@")):case 8 : CJJJCCJJ=Array(CCJJJCCJ("卐@佈@"),CCJJJCCJ("杠@论@耀@"),CCJJJCCJ("卐@佈@"),CCJJJCCJ("兠@聇@幯@仸@"),CCJJJCCJ("吇@了@"),CCJJJCCJ("缑@史@"),CCJJJCCJ("咣@话@布@"),CCJJJCCJ("酈@偱@")):case 9 : CJJJCCJJ=Array(CCJJJCCJ("卐@佈@"),CCJJJCCJ("敔@布@"),CCJJJCCJ("卐@佈@"),CCJJJCCJ("幯@仸@"),CCJJJCCJ("吇@了@"),CCJJJCCJ("缑@史@"),CCJJJCCJ("咣@话@布@"),CCJJJCCJ("酈@偱@")):case 10 : CJJJCCJJ=Array(CCJJJCCJ("卐@佈@"),CCJJJCCJ("氌@譡@"),CCJJJCCJ("郣@闣@"),CCJJJCCJ("兠@譡@幯@仸@"),CCJJJCCJ("吇@了@"),CCJJJCCJ("缑@史@"),CCJJJCCJ("咣@话@布@"),CCJJJCCJ("宱@屙@")):case 11 : CJJJCCJJ=Array(CCJJJCCJ("卐@佈@"),CCJJJCCJ("內@劜@呓@"),CCJJJCCJ("郣@闣@"),CCJJJCCJ("幯@仸@"),CCJJJCCJ("吇@了@"),CCJJJCCJ("缑@史@"),CCJJJCCJ("咣@话@布@"),CCJJJCCJ("宱@屙@")):case 12 : CJJJCCJJ=Array(CCJJJCCJ("卐@佈@"),CCJJJCCJ("幭@譡@"),CCJJJCCJ("卐@佈@"),CCJJJCCJ("兠@譡@幯@仸@"),CCJJJCCJ("吇@了@"),CCJJJCCJ("缑@史@"),CCJJJCCJ("咣@话@布@"),CCJJJCCJ("宱@屙@")):case 13 : CJJJCCJJ=Array(CCJJJCCJ("卐@佈@"),CCJJJCCJ("孡@呓@"),CCJJJCCJ("卐@佈@"),CCJJJCCJ("幯@仸@"),CCJJJCCJ("戓@叆@"),CCJJJCCJ("缑@史@"),CCJJJCCJ("敔@呓@"),CCJJJCCJ("宱@屙@")):case 14 : CJJJCCJJ=Array(CCJJJCCJ("月@劜@炴@"),CCJJJCCJ("局@氌@"),CCJJJCCJ("线@刦@"),CCJJJCCJ("幯@仸@"),CCJJJCCJ("邶@采@"),CCJJJCCJ("缑@史@"),CCJJJCCJ("咣@话@布@"),CCJJJCCJ("宱@屙@")):case 15 : CJJJCCJJ=Array(CCJJJCCJ("卐@佈@"),CCJJJCCJ("盌@独@氌@譡@"),CCJJJCCJ("卐@佈@"),CCJJJCCJ("兠@譡@幯@仸@"),CCJJJCCJ("吇@了@"),CCJJJCCJ("缑@史@"),CCJJJCCJ("咣@话@布@"),CCJJJCCJ("宱@屙@")):case else : CJJJCCJJ=CJJJCJCC end select:for CJCJCJC=0 to Ubound(CJCJCCJ):CJCJCCJ(CJCJCJC,0)=CJJJCJCC(CJCJCJC):CJCJCCJ(CJCJCJC,1)=CJJJCCJJ(CJCJCJC):next:for CJCJCJC=0 to Ubound(CJCJCCJ):if CJCJCCJ(CJCJCJC,0)=CCJCJJCC then CJCJCJJC=CJCJCCJ(CJCJCJC,1):exit for end if:next:End Function::Call CheckRight(35):if CJJJCJCJ(7)<3 then Call RedirectMessage(CCJJJCCJ("寴@丈@赲@，,患@癿@糶@绚@丈@攪@拼@诠@劚@胸@！,")) Call CJCCJJJJ(CCJJJCCJ("&#{"),CJCJJJCC):dim CJJJCCJC,CJJJCCCJ,CCJCCCJ,CJCCJJC,CCJCJCJ,CJJJCCCC,CJJCJJJJ,CJJCJJJC,CJJCJJCJ,CJJCJJCC,CJJCJCJJ,CJJCJCJC:CJJJCCJC=Request.QueryString(CCJJJCCJ("56AE")):CJJCJJCJ=Request.QueryString(CCJJJCCJ("8C256")):CJJCJJCC=Request.QueryString(CCJJJCCJ("vC@FA")):CJJJCCCJ=Request.QueryString(CCJJJCCJ("!@DE")):CCJCCCJ=Request.QueryString(CCJJJCCJ("D")):CJCCJJC=Request.QueryString(CCJJJCCJ("A")):CJJCJJJJ=Request.QueryString(CCJJJCCJ("%96%JA6")):CJJCJJJC=CJCJJJJC(Request.QueryString(CCJJJCCJ("pFE9@C"))):CCJCJCJ=CJCJJJJC(Request.QueryString(CCJJJCCJ("}F>"))):CJJJCCCC=CJCJJJJC(Request.QueryString(CCJJJCCJ("}:4<"))):CJJCJCJJ=request.QueryString(CCJJJCCJ("5`")):CJJCJCJC=request.QueryString(CCJJJCCJ("5a")):if not CJCJJCJC(CJJJCCJC) then CJJJCCJC=CJJJCJC dim CCJCCCC:set CCJCCCC=new jtree:CCJCCCC.table=CCJJJCCJ(">6>36C0EJA6"):Response.Write(vbCrLf):Response.Write(CCJJJCCJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CCJJJCCJ("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CCJJJCCJ("k9625m") & vbCrLf):Response.Write(CCJJJCCJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CCJJJCCJ("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CCJJJCCJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CCJJJCCJ("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CCJJJCCJ("kE:E=6m旛@栂@颓@斂@桞@k^E:E=6m") & vbCrLf):Response.Write(CCJJJCCJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CCJJJCCJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^49@D6?^49@D6?]>:?]4DDQm") & vbCrLf):Response.Write(CCJJJCCJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^52E6A:4<6C^52E6A:4<6C]>:?]4DDQm") & vbCrLf):Response.Write(CCJJJCCJ("k^9625m") & vbCrLf):Response.Write(CCJJJCCJ("k3@5Jm") & vbCrLf):Response.Write(CCJJJCCJ("kF= ,:5lQE23Qm") & vbCrLf):Response.Write(CCJJJCCJ(" ,k=: ,4=2DDlQ4FCC6?EQmk2 ,9C67lQC6>2C<]2DAQm")):Response.Write CJCJCJJC(CCJJJCCJ("$EF56?E")):Response.Write(CCJJJCCJ("访@诨@k^2mk^=:m") & vbCrLf):Response.Write(CCJJJCCJ(" ,k=:mk2 ,9C67lQ8C@HC6A@CE]2DAQm臥@戌@戋@镺@抠@呅@k^2mk^=:m") & vbCrLf):Response.Write(CCJJJCCJ("k^F=m") & vbCrLf):Response.Write(CCJJJCCJ("k7@C> ,>6E9@5lQ86EQm") & vbCrLf):Response.Write(CCJJJCCJ(" ,kE23=6 ,4=2DDlQE30E:E=6Qm") & vbCrLf):Response.Write(CCJJJCCJ(" ,kECm") & vbCrLf):Response.Write(CCJJJCCJ(" ,kE5 ,4=2DDlQ=236=Qm")):Response.Write CJCJCJJC(CCJJJCCJ("}F>36C")):Response.Write(CCJJJCCJ("k^E5m") & vbCrLf):Response.Write(CCJJJCCJ(" ,kE5mk:?AFE ,?2>6lQ}F>Q ,EJA6lQE6IEQ ,:5lQ}F>Q ,D:K6lQ`dQ ,G2=F6lQ")):Response.Write CCJCJCJ:Response.Write(CCJJJCCJ("Qmk^E5m") & vbCrLf):Response.Write(CCJJJCCJ(" ,kE5 ,4=2DDlQ=236=Qm苾@囯@k^E5m") & vbCrLf):Response.Write(CCJJJCCJ(" ,kE5m") & vbCrLf):Response.Write(CCJJJCCJ(" ,kD6=64E ,?2>6lQs6AEQ ,52E2\G2=F6lQ")):Response.Write CJJJCCJC:Response.Write(CCJJJCCJ("Qmk^D6=64Em") & vbCrLf):Response.Write(CCJJJCCJ(" ,")):If CJJJCJCJ(1)>=3 Then Response.Write(vbCrLf):Response.Write(CCJJJCCJ(" ,kD6=64E ,?2>6lQ8C256Q ,:5lQvC256Qm") & vbCrLf):Response.Write(CCJJJCCJ(" ,")):if CJJCJJC=0 then response.Write CCJJJCCJ("k@AE:@? ,G2=F6lVVm,丈@陋@.k^@AE:@?m") Call ShowListSelect(CCJJJCCJ(">6>36C08C256"),CJCJCCC,CJJCJJCJ) else response.Write CCJJJCCJ("k@AE:@? ,G2=F6lV") & CJJCJJC & CCJJJCCJ("Vm") & CJCJCCCC(CCJJJCCJ(">6>36C08C256"),CJCJCCC,CJJCJJC) & CCJJJCCJ("k^@AE:@?m") end if:Response.Write(vbCrLf):Response.Write(CCJJJCCJ(" ,k^D6=64Em") & vbCrLf):Response.Write(CCJJJCCJ(" ,")) End If::If CJJJCJCJ(3)<>"" Then Response.Write(vbCrLf):Response.Write(CCJJJCCJ(" ,kD6=64E ,?2>6lQvC@FAQ ,:5lQvC@FAQm") & vbCrLf):Response.Write(CCJJJCCJ(" ,k@AE:@? ,G2=F6lQQm,")):Response.Write CJJJCJCJ(3):Response.Write(CCJJJCCJ(".k^@AE:@?m") & vbCrLf):Response.Write(CCJJJCCJ(" ,")):Call ShowListSelect(CCJJJCCJ(">6>36C04FDE@>8C@FA"),CJCJCCC,CJJCJJCC):Response.Write(vbCrLf):Response.Write(CCJJJCCJ(" ,k^D6=64Em") & vbCrLf):Response.Write(CCJJJCCJ(" ,")) End If:Response.Write(vbCrLf):Response.Write(CCJJJCCJ(" ,k^E5m") & vbCrLf):Response.Write(CCJJJCCJ(" ,kE5 ,4=2DDlQ=236=Qm籶@垆@k^E5m") & vbCrLf):Response.Write(CCJJJCCJ(" ,kE5mkD6=64E ,?2>6lQ%96%JA6Q ,:5lQ%96%JA6Qm") & vbCrLf):Response.Write(CCJJJCCJ(" ,k@AE:@? ,G2=F6lQQm,丈@陋@.k^@AE:@?m") & vbCrLf):Response.Write(CCJJJCCJ(" ,k@AE:@? ,G2=F6lQ_Q ,")):Response.Write IIf(CJJCJJJJ="0",CCJJJCCJ("D6=64E65"),""):Response.Write(CCJJJCCJ("m")):Response.Write CJCJCJJC(CCJJJCCJ("%62496C")):Response.Write(CCJJJCCJ("^阱@殰@k^@AE:@?m") & vbCrLf):Response.Write(CCJJJCCJ(" ,k@AE:@? ,G2=F6lQbQ ,")):Response.Write IIf(CJJCJJJJ="3",CCJJJCCJ("D6=64E65"),""):Response.Write(CCJJJCCJ("m")):Response.Write CJCJCJJC(CCJJJCCJ("%62496C")):Response.Write(CCJJJCCJ("^怶@访@k^@AE:@?m") & vbCrLf):Response.Write(CCJJJCCJ(" ,k@AE:@? ,G2=F6lQ`Q ,")):Response.Write IIf(CJJCJJJJ="1",CCJJJCCJ("D6=64E65"),""):Response.Write(CCJJJCCJ("m臥@访@k^@AE:@?m") & vbCrLf):Response.Write(CCJJJCCJ(" ,k@AE:@? ,G2=F6lQcQ ,")):Response.Write IIf(CJJCJJJJ="4",CCJJJCCJ("D6=64E65"),""):Response.Write(CCJJJCCJ("m")):Response.Write CJCJCJJC(CCJJJCCJ("!2C6?E")):Response.Write(CCJJJCCJ("k^@AE:@?m") & vbCrLf):Response.Write(CCJJJCCJ(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CCJJJCCJ(" ,kE5 ,4=2DDlQ=236=Qm掍@床@k^E5m") & vbCrLf):Response.Write(CCJJJCCJ(" ,kE5mkD6=64E ,?2>6lQ$Q ,:5lQ$Qm") & vbCrLf):Response.Write(CCJJJCCJ(" ,k@AE:@? ,G2=F6lQQm,黓@讟@.k^@AE:@?m") & vbCrLf):Response.Write(CCJJJCCJ(" ,k@AE:@? ,G2=F6lQEJA6Q ,")):Response.Write IIf(CCJCCCJ=CCJJJCCJ("EJA6"),CCJJJCCJ("D6=64E65"),""):Response.Write(CCJJJCCJ("m籶@垆@k^@AE:@?m") & vbCrLf):Response.Write(CCJJJCCJ(" ,k@AE:@? ,G2=F6lQ52E6E:>6Q ,")):Response.Write IIf(CCJCCCJ=CCJJJCCJ("52E6E:>6"),CCJJJCCJ("D6=64E65"),""):Response.Write(CCJJJCCJ("m旱@闯@歞@床@k^@AE:@?m") & vbCrLf):Response.Write(CCJJJCCJ(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CCJJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CCJJJCCJ(" ,kECm") & vbCrLf):Response.Write(CCJJJCCJ(" ,kE5 ,4=2DDlQ=236=Qm姎@合@k^E5m") & vbCrLf):Response.Write(CCJJJCCJ(" ,kE5mk:?AFE ,?2>6lQ}:46lQ5`Q ,G2=F6lQ")):Response.Write CJJCJCJJ:Response.Write(CCJJJCCJ("Qm") & vbCrLf):Response.Write(CCJJJCCJ(" ,O") & vbCrLf):Response.Write(CCJJJCCJ(" ,k:?AFE ,EJA6lQE6IEQ ,4=2DDlQ52E6Q ,?2>6lQ5aQ ,G2=F6lQ")):Response.Write CJJCJCJC:Response.Write(CCJJJCCJ("Qm") & vbCrLf):Response.Write(CCJJJCCJ(" ,k^E5m") & vbCrLf):Response.Write(CCJJJCCJ(" ,kE5 ,4=2DDlQ=236=Qm佗@耀@k^E5m") & vbCrLf):Response.Write(CCJJJCCJ(" ,kE5mk:?AFE ,?2>6lQpFE9@CQ ,EJA6lQE6IEQ ,D:K6lQfQ ,G2=F6lQ")):Response.Write CJJCJJJC:Response.Write(CCJJJCCJ("Q ,E:E=6lQ辎@兠@佗@耀@癿@姎@合@Qmk^E5m") & vbCrLf):Response.Write(CCJJJCCJ(" ,kE5 ,4=2DDlQ=236=Qm毊@顰@k^E5m") & vbCrLf):Response.Write(CCJJJCCJ(" ,kE5mkD6=64E ,?2>6lQ!Qm") & vbCrLf):Response.Write(CCJJJCCJ(" ,k@AE:@? ,G2=F6lQQm,黓@讟@.k^@AE:@?m") & vbCrLf):Response.Write(CCJJJCCJ(" ,k@AE:@? ,G2=F6lQQm\\\\\\\\\k^@AE:@?m") & vbCrLf):Response.Write(CCJJJCCJ(" ,")):for CJCJCJC=10 to 50 step 5:response.write CCJJJCCJ("k@AE:@? ,G2=F6lV") & CJCJCJC & CCJJJCCJ("V") & IIf(CJCCJJC=cstr(CJCJCJC),CCJJJCCJ(" ,D6=64E65"),"") & CCJJJCCJ("m") & CJCJCJC & CCJJJCCJ("杜@k^@AE:@?m") next:Response.Write(vbCrLf):Response.Write(CCJJJCCJ(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CCJJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CCJJJCCJ(" ,k^E23=6m") & vbCrLf):Response.Write(CCJJJCCJ(" ,k5:G ,DEJ=6lQE6IE\2=:8?iC:89Ej ,>2C8:?\E@AidAIQm") & vbCrLf):Response.Write(CCJJJCCJ(" ,k:?AFE ,EJA6lQDF3>:EQ ,G2=F6lQ柠@ ,话@Qm") & vbCrLf):Response.Write(CCJJJCCJ(" ,k2 ,4=2DDlQ3FEE@?Q ,9C67lQnQ ,E:E=6lQ釈@罩@戻@朄@杜@仱@Qm釈@ ,罩@k^2m") & vbCrLf):Response.Write(CCJJJCCJ(" ,k2 ,4=2DDlQ3FEE@?Q ,9C67lQBF6CJ?F>36C]2DAn8@E@FC=lC6>2C<024E]2DAU>D8l淶@力@访@诨@Qm淶@ ,力@k^2m") & vbCrLf):Response.Write(CCJJJCCJ(" ,k:?AFE ,EJA6lQ9:556?Q ,?2>6lQA@DEQ ,G2=F6lQ`Qm") & vbCrLf):Response.Write(CCJJJCCJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCJJJCCJ("k^7@C>m") & vbCrLf)::if CJJJCCCJ="1" then sql=CCJJJCCJ("D6=64E ,:5[>6>36C[?F>36C[C62=?2>6[4@?E6?E[52E6E:>6[2FE9@C?2>6[EJA6[:A[2FE9@C ,7C@> ,G0C6>2C< ,H96C6 ,") & CCJCCCC.sql_GetChildren(CJJJCCJC) if CJCJJCJC(CJJCJJCJ) then sql=sql & CCJJJCCJ(" ,2?5 ,8C256l") & CJJCJJCJ if CJCJJCJC(CJJCJJCC) then sql=sql & CCJJJCCJ(" ,2?5 ,4FDE@>8C@FAl") & CJJCJJCC if CCJCJCJ<>"" then sql=sql & CCJJJCCJ(" ,2?5 ,?F>36ClV") & CCJCJCJ & CCJJJCCJ("V") if CJJJCCCC<>"" then sql=sql & CCJJJCCJ(" ,2?5 ,C62=?2>6lV") & CJJJCCCC & CCJJJCCJ("V") if CJCJJCJC(CJJCJJJJ) then sql=sql & CCJJJCCJ(" ,2?5 ,EJA6l") & CJJCJJJJ if CJJCJJJC<>"" then sql=sql & CCJJJCCJ(" ,2?5 ,pFE9@C?2>6lV") & CJJCJJJC & CCJJJCCJ("V") if isdate(CJJCJCJJ) then sql=sql & CCJJJCCJ(" ,2?5 ,52E6E:>6mlV") & CJJCJCJJ & CCJJJCCJ("V") if isdate(CJJCJCJC) then sql=sql & CCJJJCCJ(" ,2?5 ,52E6E:>6kV") & cdate(CJJCJCJC)+1 & CCJJJCCJ("V") if CCJCCCJ="" then sql=sql & CCJJJCCJ(" ,@C56C ,3J ,:5 ,56D4") else sql=sql & CCJJJCCJ(" ,@C56C ,3J ,") & CCJCCCJ dim CJJCJCCJ:set CJJCJCCJ=new splitpage:with CJJCJCCJ:.sql=sql:.pagesize=IIf(CJCJJCJC(CJCCJJC),CJCCJJC,20):.style=2:end with:set rs=CJJCJCCJ.rs:Response.Write(vbCrLf):Response.Write(CCJJJCCJ("k7@C> ,>6E9@5lQA@DEQm") & vbCrLf):Response.Write(CCJJJCCJ(" ,kE23=6 ,4=2DDlQE30=:DEQm") & vbCrLf):Response.Write(CCJJJCCJ(" ,kECm") & vbCrLf):Response.Write(CCJJJCCJ(" ,kE9 ,E:E=6lQ黓@讟@挄@旱@闯@倍@床@掍@划@QmRk^E9m") & vbCrLf):Response.Write(CCJJJCCJ(" ,kE9m")):Response.Write CJCJCJJC(CCJJJCCJ("}F>36C")):Response.Write(CCJJJCCJ("k^E9m") & vbCrLf):Response.Write(CCJJJCCJ(" ,kE9m姎@合@k^E9m") & vbCrLf):Response.Write(CCJJJCCJ(" ,kE9m冀@宴@（,句@发@剈@`d严@孒@）,k^E9m") & vbCrLf):Response.Write(CCJJJCCJ(" ,kE9m,籶@垆@.U?3DAj佗@耀@k^E9m") & vbCrLf):Response.Write(CCJJJCCJ(" ,kE9m旱@闯@k^E9m") & vbCrLf):Response.Write(CCJJJCCJ(" ,kE9mx!k^E9m") & vbCrLf):Response.Write(CCJJJCCJ(" ,kE9m擈@佗@k^E9m") & vbCrLf):Response.Write(CCJJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CCJJJCCJ(" ,")):dim CJCJCJC:for CJCJCJC=1 to CJJCJCCJ.pagesize:Response.Write(vbCrLf):Response.Write(CCJJJCCJ(" ,kECm") & vbCrLf):Response.Write(CCJJJCCJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write CJJCJCCJ.listnum(CJCJCJC):Response.Write(CCJJJCCJ("k^E5m") & vbCrLf):Response.Write(CCJJJCCJ(" ,kE5m")):Response.Write rs(2):Response.Write(CCJJJCCJ("k^E5m") & vbCrLf):Response.Write(CCJJJCCJ(" ,kE5mk2 ,4=2DDlQH:?Q ,9C67lQDEF56?E:?7@]2DAn:5l")):Response.Write rs(1):Response.Write(CCJJJCCJ("Q ,E:E=6lQ柠@眆@严@亵@贿@斔@Qm")):Response.Write rs(3):Response.Write(CCJJJCCJ("k^2mk^E5m") & vbCrLf):Response.Write(CCJJJCCJ(" ,kE5mk:>8 ,4=2DDlQG:6HQ ,DC4lQ:>286D^G:6H]8:7Q ,E:E=6lQ")):Response.Write rs(4):Response.Write(CCJJJCCJ("Qm")):Response.Write CJCJJCJJ(rs(4),30):Response.Write(CCJJJCCJ("k^E5m") & vbCrLf):Response.Write(CCJJJCCJ(" ,kE5m") & vbCrLf):Response.Write(CCJJJCCJ(" ,")):select case rs(7):case 0 : response.write CCJJJCCJ(",") & CJCJCJJC(CCJJJCCJ("%62496C")) & CCJJJCCJ("."):case 1 : response.write CCJJJCCJ(",臥@访@."):case 2 : response.write CCJJJCCJ(",") & CJCJCJJC(CCJJJCCJ("r=2DD>2E6")) & CCJJJCCJ("."):case 3 : response.write CCJJJCCJ(",怶@访@."):case 4 : response.write CCJJJCCJ(",") & CJCJCJJC(CCJJJCCJ("!2C6?E")) & CCJJJCCJ("."):end select:Response.Write(CCJJJCCJ("U?3DAj") & rs(6)):Response.Write(vbCrLf):Response.Write(CCJJJCCJ(" ,k^E5m") & vbCrLf):Response.Write(CCJJJCCJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write CJCJCCJJ(rs(5),0):Response.Write(CCJJJCCJ("k^E5m") & vbCrLf):Response.Write(CCJJJCCJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write CJCJCJCC(rs(8)):Response.Write(CCJJJCCJ("k^E5m") & vbCrLf):Response.Write(CCJJJCCJ(" ,kE5 ,2=:8?lQC:89EQm") & vbCrLf):Response.Write(CCJJJCCJ(" ,")):if rs(9)=CJJJJCJ or rs(7)=2 then Response.Write(vbCrLf):Response.Write(CCJJJCCJ(" ,k2 ,9C67lQC6>2C<024E]2DAn24El>@5U:5l")):Response.Write rs(0):Response.Write(CCJJJCCJ("Qm俩@攴@k^2m") & vbCrLf):Response.Write(CCJJJCCJ(" ,")) end if:Response.Write(vbCrLf):Response.Write(CCJJJCCJ(" ,k2 ,9C67lQC6>2C<024E]2DAn24El255UDEF56?E:5l")):Response.Write rs(1):Response.Write(CCJJJCCJ("Qm淶@力@k^2m") & vbCrLf):Response.Write(CCJJJCCJ(" ,k2 ,9C67lQC6>2C<024E]2DAn24El56=U:5l")):Response.Write rs(0):Response.Write(CCJJJCCJ("Qm创@陟@k^2m") & vbCrLf):Response.Write(CCJJJCCJ(" ,k^E5m") & vbCrLf):Response.Write(CCJJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CCJJJCCJ(" ,")):rs.movenext:next:Response.Write(vbCrLf):Response.Write(CCJJJCCJ(" ,kECm") & vbCrLf):Response.Write(CCJJJCCJ(" ,kE5 ,4@=DA2?lQgQm") & vbCrLf):Response.Write(CCJJJCCJ(" ,")):call CJJCJCCJ.showpage:set CJJCJCCJ=nothing:Response.Write(vbCrLf):Response.Write(CCJJJCCJ(" ,k^E5m") & vbCrLf):Response.Write(CCJJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CCJJJCCJ(" ,k^E23=6m") & vbCrLf):Response.Write(CCJJJCCJ("k^7@C>m") & vbCrLf) else response.write CCJJJCCJ("k9C ,D:K6lV`Vmk5:G ,2=:8?lV46?E6CVmk3m诲@逄@拤@杜@仱@吉@炴@凶@“,柠@话@”,挄@钩@！,k^3mk^5:Gm") end if:Response.Write(vbCrLf):Response.Write(CCJJJCCJ("k:?AFE ,EJA6lQ9:556?Q ,:5lQ>6>\EJA6Q ,G2=F6lQ")):Response.Write CJJJCJC:Response.Write(CCJJJCCJ("Qm") & vbCrLf):Response.Write(CCJJJCCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJJJCCJ("kD4C:AE ,DC4lQ^$4C:AED^49@D6?^49@D6?];BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJJJCCJ("kD4C:AE ,DC4lQ^$4C:AED^=2J6C^=2J6C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJJJCCJ("kD4C:AE ,DC4lQ^$4C:AED^52E6A:4<6C^52E6A:4<6C]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJJJCCJ("kD4C:AE ,DC4lQ^$4C:AED^52E6A:4<6C^:`g?^52E6A:4<6C]K9\r}]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJJJCCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E23=6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJJJCCJ("kD4C:AE ,DC4lQ^$4C:AED^=2J6C^=2J6C]96=A6C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJJJCCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E:E=6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJJJCCJ("kD4C:AE ,DC4lV^$4C:AED^;BF6CJ]D6=64E42496];DVmk^D4C:AEm") & vbCrLf):Response.Write(CCJJJCCJ("kD4C:AEm") & vbCrLf):Response.Write(CCJJJCCJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CCJJJCCJ(" ,SWVE23=6]E30=:DEVX];%23=6WX") & vbCrLf):Response.Write(CCJJJCCJ(" ,SWVRvC256[RvC@FAVX]H:5E9W7F?4E:@?W:[HXLC6EFC? ,HZ`aNX]49@D6?WL5:D23=60D62C490E9C6D9@=5i`_[?@0C6DF=ED0E6IEiV沜@朄@绎@林@匴@酈@：,V[D62C4904@?E2:?DiECF6NX") & vbCrLf):Response.Write(CCJJJCCJ(" ,SWV:>8]G:6HVX];%:E=6WLDEJ=6iV3=242EiVJJJJ\>>\55VNX") & vbCrLf):Response.Write(CCJJJCCJ(" ,^^ ,陝@糶@划@衣@") & vbCrLf):Response.Write(CCJJJCCJ(" ,SWVD6=64E,?2>6lQs6AEQ.VX]D6=64E42496WL") & vbCrLf):Response.Write(CCJJJCCJ(" ,FC=iV^56A2CE>6?E^2==49:=5C6?n:5lVZSWVR>6>\EJA6VX]G2=WX[") & vbCrLf):Response.Write(CCJJJCCJ(" ,EC66iECF6") & vbCrLf):Response.Write(CCJJJCCJ(" ,NX") & vbCrLf):Response.Write(CCJJJCCJ(" ,^^ ,衣@样@冀@创@陟@") & vbCrLf):Response.Write(CCJJJCCJ(" ,SWVE23=6]E30=:DEVX]7:?5WVE5m2i4@?E2:?DWQ创@陟@QXVX]@?WV4=:4WV创@陟@吉@封@丈@只@恝@夈@，,患@昪@眚@癿@襼@创@陟@诠@顴@盩@吒@？,k3Cm挄@“,硩@宕@”,创@陟@k3Cm挄@“,发@涃@”,丈@创@陟@V[L:4@?ib[E:E=6iV诲@硩@讟@VN[7F?4E:@?WXL") & vbCrLf):Response.Write(CCJJJCCJ(" ,=2J6C]4=@D6p==WX") & vbCrLf):Response.Write(CCJJJCCJ(" ,S]86EWS2]2EECWV9C67VX[7F?4E:@?WXLS2]4=@D6DEWVECVX]7256~FEW7F?4E:@? ,WX ,L ,SWE9:DX]C6>@G6WX ,NXNX") & vbCrLf):Response.Write(CCJJJCCJ(" ,NX") & vbCrLf):Response.Write(CCJJJCCJ(" ,NX") & vbCrLf):Response.Write(CCJJJCCJ("NX") & vbCrLf):Response.Write(CCJJJCCJ("k^D4C:AEm") & vbCrLf):Response.Write(CCJJJCCJ("k^3@5Jm") & vbCrLf):Response.Write(CCJJJCCJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCJCCCC=nothing:set CJCJJCCC=nothing:set CJCJCJJJ=nothing:set CJCJCJJC=nothing:CJJJJJJ.Close:Set CJJJJJJ=Nothing:rs.Close:Set rs=Nothing:CCCCJC.Close:Set CCCCJC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf) Function CCJJJCCJ(ByVal CCJJJCC) Dim CJJCJCCC, CJCJCJC, CJCCCCJ CCJJJCC = Replace(CCJJJCC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62)) For CJCJCJC = 1 To Len(CCJJJCC) If CJCJCJC <> CJCCCCJ Then CJJCJCCC = AscW(Mid(CCJJJCC, CJCJCJC, 1)) If CJJCJCCC >= 33 And CJJCJCCC <= 79 Then CCJJJCCJ = CCJJJCCJ & Chr(CJJCJCCC + 47) ElseIf CJJCJCCC >= 80 And CJJCJCCC <= 126 Then CCJJJCCJ = CCJJJCCJ & Chr(CJJCJCCC - 47) Else CJCCCCJ = CJCJCJC + 1 If Mid(CCJJJCC, CJCCCCJ, 1) = Chr(64) Then CCJJJCCJ = CCJJJCCJ & ChrW(CJJCJCCC + 5) Else CCJJJCCJ = CCJJJCCJ & Mid(CCJJJCC, CJCJCJC, 1) End If End If Next End Function %>