<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim CJJJJJC, CJJJJCJ,rs, CJJJCJJ, sql:Set CJJJJJC = server.CreateObject(CCJJCJCJ("ps~sq]r@??64E:@?")):CJJJJJC.open Application(CCJJCJCJ("r@??64E:@?$EC:?8")):Set CJJJJCJ=CJJJJJC::Dim CJJJCCJ,CJJJCCC,CJJCJJJ,CJJCJJC,CJJCJCJ,CJJCJCC,CJJCCJJ,CJJCCJC,CJJCCCJ:Dim CJJCCCC,CJCJJJJ,CJCJJJC,CJCJJCJ,CJCJJCC,CJCJCJJ:Dim CJCJCJC,CJCJCCJ,CJCJCCC:Dim CJCCJJJ:CJCCJJJ=Trim(Request.Cookies(CCJJCJCJ("!$*|t|qt#"))):if CJCCJJJ="" then Call ClearMemberCookie else Call CheckMemberCookie end if:if CJJJCCJ>0 then sql=CCJJCJCJ("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(CCJJCJCJ("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,")) Call SetMemberCookie(CJJJCCJ,CJJJCCC) End IF end if:Sub CheckRight(CCJCJCC):dim CJCCJJC,CJCCJCJ:if CJJJCCJ=0 then Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CCJJCJCJ("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,")) elseIf not CJCJJCJC(CCJCJCC) then Call RedirectMessage(CCJJCJCJ("朾@陋@W") & CCJCJCC & CCJJCJCJ("X袦@祼@歝@，,诲@三@糶@绚@箜@琁@呓@聏@糶@。,")) end if:End Sub:Function CJCJJCJC(CCJCJCC):dim CJCCJJC,CJCCJCJ:CJCCJCJ=split(CCJCJCC,CCJJCJCJ("[")):CJCJJCJC=False:for CJCCJJC=0 to ubound(CJCCJCJ):If Mid(CJJCJJJ,CJCCJCJ(CJCCJJC),1)="1" then CJCJJCJC=True:exit function end if:next:End Function:Sub CheckLogined():if CJJJCCJ=0 then Call ClearMemberCookie:Call ConnClose:dim CJCCJCC:CJCCJCC=trim(request.QueryString(CCJJCJCJ("D49@@="))):if isnumeric(CJCCJCC) then response.Redirect CCJJCJCJ("^>^G2?E^R^D49@@=^") & CJCCJCC & CCJJCJCJ("^DEF56?E^=@8:?nC65:C64El") & CCJJCJJ else Call RedirectMessage(CCJJCJCJ("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,")) end if end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CCJJCJCJ("!$*|t|qt#"))="":CJJJCCJ=0:CJJCJCC=0:CJJJCCC=Empty:CJJCJCJ=0:CJJCCJC=0:CJJCCJJ=0:CJJCJJC=0:CJJCCCC=False:CJCJCCJ=False:CJCJCCC=Empty:End Sub:Sub CheckMemberCookie():dim CJCCCJJ,CJCCCJC,CJCCJJC,CJCCCCJ,CJCCCCC:CJCCCJJ=split(CJCCJJJ,CCJJCJCJ("]")):if ubound(CJCCCJJ)<>2 then Call ClearMemberCookie elseif not isnumeric(CJCCCJJ(0)) or len(CJCCCJJ(1))<>32 or len(CJCCCJJ(2))<>32 then Call ClearMemberCookie else CJCCCJC=CJCCCJJ(1):for CJCCJJC=1 to len(CJCCCJC):CJCCCCJ=mid(CJCCCJC,CJCCJJC,1):if isnumeric(CJCCCCJ) then CJCCCCC=CJCCCCC & CJCCCCJ if len(CJCCCCC)=7 then exit for next:CJCCCJC=CJCCCJJ(2):if CJCCCCC<>mid(CJCCCJC,6,7) then Call ClearMemberCookie else CJCCCCJ=mid(CJCCCJC,18,10)/2:if CJCCCCJ6"), CCJJCJCJ("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CCJJCJCJ("kD4C:AE"), CCJJCJCJ("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CCJJJJC=new RegExp:CCJJJJC.Pattern=CCJJCJCJ("@?W,2\K.ZXl"):CCJJJJC.IgnoreCase = True:CCJJJJC.Global=True:str=CCJJJJC.Replace(str,CCJJCJCJ("@?S`U6BF2=Dj")):set CCJJJJC=nothing:CJCJJCCJ=str End If:End Function:Function IIf(CCJJCCJC, CCJJCCCJ, CCJJCCCC):if isnull(CCJJCCJC) or isempty(CCJJCCJC) then IIf = CCJJCCCC elseif CCJJCCJC Then IIf = CCJJCCCJ Else IIf = CCJJCCCC 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="utf-8":dim CJCCJJC,CJCCCCJ,CCJJJCJ:if isarray(str) then on error resume next:CJCCJJC=ubound(str,2):CCJJJCJ=err.number:err.clear:on error goto 0:if CCJJJCJ<>0 then for CJCCJJC=0 to ubound(str):if CJCCJJC>0 then response.Write CCJJCJCJ("k3C ,^m") response.Write CJCCJJC & CCJJCJCJ("i ,") & str(CJCCJJC):next else response.Write CCJJCJCJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m") for CJCCJJC=0 to ubound(str,2):response.Write CCJJCJCJ("kE9 ,2=:8?lV=67EVm") & CJCCJJC & CCJJCJCJ("k^E9m") next:response.Write CCJJCJCJ("k^ECm"):for CJCCJJC=0 to ubound(str):response.Write CCJJCJCJ("kECmkE9m") & CJCCJJC & CCJJCJCJ("k^E9m"):for CJCCCCJ=0 to ubound(str,2):response.Write CCJJCJCJ("kE5m") & str(CJCCJJC,CJCCCCJ) & CCJJCJCJ("k^E5m"):next:response.Write CCJJCJCJ("k^ECm"):next:response.Write CCJJCJCJ("k^E23=6m") end if elseif isnull(str) then response.Write CCJJCJCJ(",}F==.") else Response.Write replace(str,vbcrlf,CCJJCJCJ("k3Cm")) end if:Call ConnClose:Response.End:End Sub:Public Function CJCJCJJJ():Dim CCJJJCC, CCJJCJJ:CCJJCJJ = Request.ServerVariables(CCJJCJCJ("!p%w0x}u~")):CCJJJCC = Request.ServerVariables(CCJJCJCJ("""&t#*0$%#x}v")):If CCJJJCC <> Empty Then if instr(lcase(CCJJJCC),CCJJCJCJ("Tb4:7C2>6"))>0 or instr(lcase(CCJJJCC),CCJJCJCJ("Tb4D4C:AE"))>0 then Call RedirectMessage(CCJJCJCJ("寴@丈@赲@，,患@癿@圫@圻@栊@否@朄@静@泐@孒@笡@！,！,！,")) CCJJCJJ = CCJJCJJ & CCJJCJCJ("n") & CCJJJCC end if:CJCJCJJJ = CCJJCJJ:End Function:Sub SetHttpOnlyCookie(CCJCJJJJ,CCJCJJJC):dim CJCCCJJ:CJCCCJJ=CCJCJJJJ & CCJJCJCJ("l") & CCJCJJJC & CCJJCJCJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCJJCJCJ("$6E\r@@<:6"),CJCCCJJ):End Sub:::::::Function CJCJCJJC(CCJJJCJ):if isnull(CCJJJCJ) or trim(CCJJJCJ)="" or not isnumeric(CCJJJCJ) then CJCJCJJC=false else Dim CCJJJJC:Set CCJJJJC = New RegExp:CCJJJJC.Pattern = CCJJCJCJ("/-5ZS"):CCJJJJC.IgnoreCase = True:CJCJCJJC = CCJJJJC.test(CCJJJCJ):set CCJJJJC=nothing end if:End Function:Function CJCJCJCJ(CCJCJJCJ):dim CCJJCJC,CCJJCCJ:CCJJCJC=CCJJCJCJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CCJCJJCJ & CCJJCJCJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CCJJCCJ=CJJJJJC.execute(CCJJCJC):CJCJCJCJ = CCJJCCJ(0):if isnull(CJCJCJCJ) then CJCJCJCJ=1 CCJJCCJ.close : set CCJJCCJ=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CCCJJJC=nothing:set CJCJCJCC=nothing:set CJCJCCJJ=nothing:set CJCJCCJC=nothing:CCJJCCJ.close : set CCJJCCJ=nothing:CJJJCJJ.Close : Set CJJJCJJ=Nothing:rs.Close : Set rs=Nothing:CJCJCCCJ.Close : Set CJCJCCCJ = Nothing:CJJJJJC.Close : Set CJJJJJC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCJCJJCC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCJJCJCJ("!$*0|6DD286"),server.URLEncode(CCJCJJCC)):Response.Redirect CCJJCJCJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::Function CJCJCCCC(ByVal CJCCJJJJ,style):if not isdate(CJCCJJJJ) then CJCJCCCC=CJCCJJJJ:exit function end if:dim CCJJCCC,CCJCJJJ,CCJCJJC,CCJCJCJ:CJCCJJJJ=cdate(CJCCJJJJ):CCJJCCC=Year(CJCCJJJJ):CCJCJJJ=Month(CJCCJJJJ):CCJCJJC=Day(CJCCJJJJ):select case style:case 0:CJCJCCCC=CCJJCCC & CCJJCJCJ("\") & right(0 & CCJCJJJ,2) & CCJJCJCJ("\") & right(0 & CCJCJJC,2):case 1:CJCJCCCC=CCJJCCC & right(0 & CCJCJJJ,2) & right(0 & CCJCJJC,2):case 2:CJCJCCCC=right(CCJJCCC,2) & CCJJCJCJ("\") & right(0 & CCJCJJJ,2) & CCJJCJCJ("\") & right(0 & CCJCJJC,2):case 3:CJCJCCCC=CCJJCCC & CCJJCJCJ("\") & right(0 & CCJCJJJ,2):case 4:CJCJCCCC=right(0 & CCJCJJJ,2) & CCJJCJCJ("\") & right(0 & CCJCJJC,2):case 5:CJCJCCCC=right(0 & CCJCJJC,2):case 6:CJCJCCCC=CCJJCCC & CCJJCJCJ("幯@") & right(0 & CCJCJJJ,2) & CCJJCJCJ("會@") & right(0 & CCJCJJC,2) & CCJJCJCJ("无@"):case else CJCJCCCC=CJCCJJJJ:end select:End Function:Function CJCCJJJC(Table):Dim CCJJCCJ, CCJCJCC, str(), CJCCJJC,CJCCCCJ,CCJCCJJ:CCJCCJJ=UCase(Table):If Not IsArray(Application(CCJJCJCJ("!$*0") & CCJCCJJ)) Then Sql=CCJJCJCJ("D6=64E ,:5[?2>6[>6>36CEJA6 ,7C@> ,,") & Table & CCJJCJCJ(". ,@C56C ,3J ,D@CE[:5"):set CCJJCCJ=server.createobject(CCJJCJCJ("25@53]C64@C5D6E")):CCJJCCJ.open sql,CJJJJJC,1:CCJCJCC = CCJJCCJ.RecordCount:ReDim str(CCJCJCC, 2):If CCJCJCC > 0 Then For CJCCJJC = 1 To CCJCJCC:for CJCCCCJ=0 to 2:str(CJCCJJC, CJCCCCJ) = CCJJCCJ(CJCCCCJ):next:CCJJCCJ.MoveNext:Next End If:CCJJCCJ.Close: Set CCJJCCJ = Nothing:Application(CCJJCJCJ("!$*0") & CCJCCJJ) = str End If:CJCCJJJC = Application(CCJJCJCJ("!$*0") & CCJCCJJ):End Function:Sub ShowListSelect(CCJCJJCJ,CCJCJCJJ,CCJCJCJC):Dim str, CJCCJJC, CCJCCJC:CCJCCJC = CJCCJJJC(CCJCJJCJ):For CJCCJJC = 1 To UBound(CCJCCJC):if Cstr(CCJCCJC(CJCCJJC,2))=Cstr(CCJCJCJJ) then str = str & CCJJCJCJ("k@AE:@? ,G2=F6lV") & CCJCCJC(CJCCJJC, 0) & CCJJCJCJ("V") If CStr(CCJCCJC(CJCCJJC, 0)) = CCJCJCJC & "" Then str = str & CCJJCJCJ(" ,D6=64E65lVD6=64E65V") str = str & CCJJCJCJ("m") & CCJCCJC(CJCCJJC, 1) & CCJJCJCJ("k^@AE:@?m") end if:Next:Response.Write str:End Sub:Function CJCCJJCJ(CCJCJJCJ,CCJCJCJJ,CJCCCJJC):Dim str, CJCCJJC, CCJCCJC:CCJCCJC = CJCCJJJC(CCJCJJCJ):For CJCCJJC = 1 To UBound(CCJCCJC):if Cstr(CCJCCJC(CJCCJJC,2))=Cstr(CCJCJCJJ) and CStr(CCJCCJC(CJCCJJC, 0)) = CJCCCJJC & "" then str=CCJCCJC(CJCCJJC,1):exit for end if:Next:if str="" then str=CCJJCJCJ(",朥@矠@.") CJCCJJCJ=str:End Function:::::::::::::::Function CJCCJJCC(CCJCJCCJ,str):dim CJCCJJC,CCJCCCJ,CCJCCCC,CCJCJJJ,CCJJJCJ,CCCJJJJ,CJCCCCC:CJCCCCC=ucase(CCJCJCCJ):CCCJJJJ=str:if CCCJJJJ="" then CCCJJJJ=request.cookies(CJCCCCC):if CCCJJJJ="" then CJCCJJCC="" else CCCJJJJ=strreverse(CCCJJJJ):CCJCCCJ=len(CCCJJJJ):for CJCCJJC=1 to CCJCCCJ-1 step 2:CCJCJJJ=mid(CCCJJJJ,CJCCJJC,1):CCJJJCJ=mid(CCCJJJJ,CJCCJJC+1,1):CCJCCCC=CCJCCCC & CCJJJCJ & CCJCJJJ:next:CCJCCCC=replace(CCJCCCC,CCJJCJCJ("L0N"),CCJJCJCJ(" ,")):CCJCCCC=replace(CCJCCCC,CCJJCJCJ("LIN"),CCJJCJCJ("Y")):CCJCCCC=replace(CCJCCCC,CCJJCJCJ("L:N"),CCJJCJCJ("^")):CJCCJJCC=trim(CCJCCCC) end if else if Len(CCCJJJJ) Mod 2=1 then CCCJJJJ=CCCJJJJ & CCJJCJCJ(" ,") CCCJJJJ=replace(CCCJJJJ,CCJJCJCJ(" ,"),CCJJCJCJ("L0N")):CCCJJJJ=replace(CCCJJJJ,CCJJCJCJ("Y"),CCJJCJCJ("LIN")):CCCJJJJ=replace(CCCJJJJ,CCJJCJCJ("^"),CCJJCJCJ("L:N")):CCJCCCJ=len(CCCJJJJ):for CJCCJJC=1 to CCJCCCJ-1 step 2:CCJCJJJ=mid(CCCJJJJ,CJCCJJC,1):CCJJJCJ=mid(CCCJJJJ,CJCCJJC+1,1):CCJCCCC=CCJCCCC & CCJJJCJ & CCJCJJJ:next:CCJCCCC=Trim(strreverse(CCJCCCC)):CJCCJJCC=CCJCCCC:response.cookies(CJCCCCC)=CCJCCCC end if:End Function::Sub ClearCache(CCJCJCCC):Application.Contents.Remove CCJCJCCC End Sub::Class jTree:Private Sql, CCCJJJC, CCCJJCJ, CCCJJCC,CCCJCJJ,CCCJCJC,CCCJCCJ,CCCJCCC:Private Sub Class_Initialize():CCCJJCJ = 0:CCCJJCC = 0:CCCJCCC=10:End Sub:Public Property Let Table(CCJCCJJJ):if CCJCCJJJ="" then Call RedirectMessage(CCJJCJCJ("寴@丈@赲@，,;%C66籶@宙@來@匑@旱@沜@朄@讹@罩@忀@襼@癿@屙@怢@！,")) CCCJCJJ=CCJCCJJJ:CCCJCJC=CCJJCJCJ("!$*0") & UCase(CCCJCJJ):Call GetTreeArray:End Property:Public Property Get Table():Table=CCCJCJJ:End Property:::Private Sub GetTreeArray():Dim CJCCJJC, CJCCCCJ, CCCCJJJ,RecordCount:CCCJJJC = Application(CCCJCJC):If Not IsArray(CCCJJJC) Then Sql = CCJJCJCJ("D6=64E ,4@F?EW:5X ,7C@> ,") & CCCJCJJ:if CCCJCCJ<>"" then Sql=Sql & CCJJCJCJ(" ,H96C6 ,") & CCCJCCJ set CCCCJJJ=CJJJJJC.execute(sql):RecordCount=CCCCJJJ(0):if RecordCount=0 then Call RedirectMessage(CCJJCJCJ("柠@话@W") & CCCJCJJ & CCJJCJCJ("^") & CCCJCCJ & CCJJCJCJ("X沜@朄@绎@林@敫@捩@")) CCCJJCC=RecordCount+CCCJCCC:ReDim CCCJJJC(CCCJJCC, 4):Sql = CCJJCJCJ("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCCJCJJ & CCJJCJCJ(" ,H:E9 ,W?@=@4"" then Sql=Sql & CCJJCJCJ(" ,H96C6 ,") & CCCJCCJ Sql=Sql & CCJJCJCJ(" ,@C56C ,3J ,D@CE[:5"):set CCCCJJJ=CJJJJJC.execute(sql):For CJCCJJC = 1 To RecordCount:For CJCCCCJ = 0 To 4:CCCJJJC(CJCCJJC, CJCCCCJ) = CCCCJJJ(CJCCCCJ):if IsNull(CCCJJJC(CJCCJJC,4)) then CCCJJJC(CJCCJJC,4)=0 If CCCJJJC(CJCCJJC,2)="" then CCCJJJC(CJCCJJC,2)=CCJJCJCJ(",穵@.") Next:CCCCJJJ.MoveNext:Next:CCCCJJJ.Close: Set CCCCJJJ = Nothing:for CJCCJJC=CCCJJCC-(CCCJCCC-1) to CCCJJCC:CCCJJJC(CJCCJJC,0)=CJCCJJC:next:Application.Lock():Application(CCCJCJC) = CCCJJJC:Application.UnLock() else CCCJJCC=Ubound(CCCJJJC) End If:End Sub:::::Private Function CJCCJCJC(CJCCCJJC):dim CJCCJJC,CCCCJCJ:CJCCJCJC=0:CCCCJCJ=CStr(CJCCCJJC):if CCCCJCJ<>"0" then for CJCCJJC=1 to CCCJJCC:If CStr(CCCJJJC(CJCCJJC, 0))=CCCCJCJ Then CJCCJCJC = CJCCJJC:Exit For End If:Next end if:End Function::::Public Function CJCCJCCJ(CJCCCJJC):Dim CJCCJJC,CCCCJCC:CJCCJJC=CJCCJCJC(CJCCCJJC):if CJCCJJC=0 then CCCCJCC=CJCCJCCC(CJCCCJJC) else CCCCJCC=CCCJJJC(CJCCJJC,3):if isnull(CCCCJCC) or CCCCJCC="" then CCCCJCC=CJCCJCCC(CJCCCJJC) elseif Mid(CCCCJCC,instrrev(CCCCJCC,CCJJCJCJ("["))+1)<>CStr(CJCCCJJC) then CCCCJCC=CJCCJCCC(CJCCCJJC) elseif Left(CCCCJCC,1)=CCJJCJCJ("[") then CCCCJCC=CJCCJCCC(CJCCCJJC) end if end if:CJCCJCCJ=CCCCJCC:End Function:Private Function CJCCJCCC(CJCCCJJC):dim CCCCJCJ:CCCCJCJ=CStr(CJCCCJJC):if CCCCJCJ="0" then CJCCJCCC="" else dim CCCCJJJ:set CCCCJJJ=CJJJJJC.execute(CCJJCJCJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCCJCJJ & CCJJCJCJ(" ,H96C6 ,:5l") & CJCCCJJC):if CCCCJJJ.eof then Call UpdateCache(CJCCCJJC,"","","",""):Call RedirectMessage(CCJJCJCJ("顴@盩@（,xs：,") & CJCCCJJC & CCJJCJCJ("）,丈@孓@圣@，,诲@患@迏@囙@吉@釈@斫@擈@佗@。,")) else if CCCCJJJ(0)=0 then CJCCJCCC="0," & CJCCCJJC else CJCCJCCC=CJCCJCCJ(CCCCJJJ(0)) & CCJJCJCJ("[") & CJCCCJJC end if:if CCCCJJJ(2)<>CJCCJCCC then CJJJJJC.execute CCJJCJCJ("FA52E6 ,") & CCCJCJJ & CCJJCJCJ(" ,D6E ,A2E9lV") & CJCCJCCC & CCJJCJCJ("V ,H96C6 ,:5l") & CJCCCJJC else CJCCJCCC=CCCCJJJ(2) end if end if:Call UpdateCache(CJCCCJJC,CCCCJJJ(0),CCCCJJJ(1),CJCCJCCC,CCCCJJJ(3)):CCCCJJJ.Close: Set CCCCJJJ = Nothing end if:End Function::::::::::::Public Function Sql_GetChildren(CJCCCJJC):dim CCCCJCC:CCCCJCC=CJCCJCCJ(CJCCCJJC):Sql_GetChildren = CCCJCJJ & CCJJCJCJ("0A2E9ZV[V ,=:<6 ,V") & CCCCJCC & CCJJCJCJ("[TV") End Function::::::::::Public Sub ClearCache():Application.Contents.Remove CCCJCJC End Sub:Public Sub UpdateCache(CJCCCJJC,CCJCCJJC,CCJCCJCJ,CCCCJCC,CCJCCJCC):dim CJCCJJC,CJCCCCJ:CJCCCJJC=CLng(CJCCCJJC):CJCCJJC=CJCCJCJC(CJCCCJJC):if CCJCCJJC="" and CCJCCJCJ="" and CCCCJCC="" and CCJCCJCC="" then if CJCCJJC>0 then for CJCCCCJ=1 to 4:CCCJJJC(CJCCJJC,CJCCCCJ)=Null:next end if else if CJCCJJC=0 then for CJCCCCJ=1 to CCCJJCC:if CCCJJJC(CJCCCCJ,1) & ""="" then CJCCJJC=CJCCCCJ:exit for end if:next end if:if CJCCJJC=0 then Call ClearCache else CCCJJJC(CJCCJJC,0)=CLng(CJCCCJJC):if CCJCCJJC<>"" then CCCJJJC(CJCCJJC,1)=CLng(CCJCCJJC) if CCJCCJCJ<>"" then CCCJJJC(CJCCJJC,2)=CCJCCJCJ if CCCCJCC<>"" then CCCJJJC(CJCCJJC,3)=CCCCJCC if CCJCCJCC<>"" then CCCJJJC(CJCCJJC,4)=CLng(CCJCCJCC) end if end if:if CJCCJJC>0 then Application.Lock():Application(CCCJCJC) = CCCJJJC:Application.UnLock() end if:End Sub:Private Sub Debug(CCJCJJCC):Call ConnClose:Response.Write CCJCJJCC:Response.End:End Sub:Private Function CJCJCJCJ():CJCJCJCJ=CJCCCJCJ+1:End Function:Private Function CJCCCJCJ():dim CCJJCCJ:set CCJJCCJ=CJJJJJC.execute(CCJJCJCJ("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CCCJCJJ & CCJJCJCJ(" ,@C56C ,3J ,:5 ,56D4")):CJCCCJCJ=CCJJCCJ(0):CCJJCCJ.Close: Set CCJJCCJ = 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, CCCCCJC, CCCCCCJ, CCCCCCC, CJJJJJJJ, CJJJJJJC, CCJJCJJ, CJJJJJCJ, CJJJJJCC, CJJJJCJJ, CJJJJCJC:Private Function CJCCCJCC():Dim CJJJJCCJ:CJJJJCCJ = "共" & CJJJJJJC & CCJJCJCJ("k^3mk^DA2?m杜@讫@彐@ ,毊@顰@kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & CJJJJCJJ & CCJJCJCJ("k^3mk^DA2?m杜@ ,返@昪@笧@kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & CJJJJJJJ & CCJJCJCJ("k^3mk^DA2?m^kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & PageCount & CCJJCJCJ("k^3mk^DA2?m顰@") CJCCCJCC = CJJJJCCJ:End Function:Private Function CJCCCCJJ():CJCCCCJJ = CCJJCJCJ(" ,k:?AFE ,:5lVA286V ,EJA6lVE6IEV ,G2=F6lV") & CJJJJJJJ & CCJJCJCJ("V ,DEJ=6lV") & CJCJJCJJ & CCJJCJCJ("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") & CCJJCJJ & CCJJCJCJ("VZE9:D]G2=F6Qm") End Function:Private Function CJCCCCJC():CJCCCCJC = CCJJCJCJ(" ,k:?AFE ,EJA6lV3FEE@?V ,DEJ=6lV") & CJCJJCJJ & CCJJCJCJ("V ,G2=F6lVv@V ,@?4=:46?E]86Et=6>6?EqJx5WVA286VXX ,=@42E:@?lV") & CCJJCJJ & CCJJCJCJ("VZ5@4F>6?E]86Et=6>6?EqJx5WVA286VX]G2=F6Qm") End Function:Private Function CJCCCCCJ():Dim CJJJJCCJ, CJCCJJC:CJJJJCCJ = CCJJCJCJ(" ,轧@别@笧@kD6=64E ,:5lVA286V ,@?492?86lQ;2G2D4C:AEi=@42E:@?lV") & CCJJCJJ & CCJJCJCJ("VZE9:D]@AE:@?D,E9:D]D6=64E65x?56I.]G2=F6Q ,DEJ=6lV7@?E\D:K6i`_AIj ,7@?E\72>:=Ji'6C52?2Vm") For CJCCJJC = 1 To PageCount:CJJJJCCJ = CJJJJCCJ & CCJJCJCJ("k@AE:@? ,G2=F6lV") & CJCCJJC & CCJJCJCJ("V") If CJCCJJC = CJJJJJJJ Then CJJJJCCJ = CJJJJCCJ & CCJJCJCJ(" ,D6=64E65") CJJJJCCJ = CJJJJCCJ & CCJJCJCJ("m") & CJCCJJC & CCJJCJCJ("k^@AE:@?m"):Next:CJJJJCCJ = CJJJJCCJ & CCJJCJCJ("k^D6=64Em顰@"):CJCCCCCJ = CJJJJCCJ:End Function:Public Sub ShowPage():Dim CJCCJJC, CJJJJCCC,CJJJCJJJ,CJJJCJJC:if CJJJJJJC>0 then CJJJJCCC = CCJJCJCJ("k5:G ,4=2DDlVDA=:EA286V ,DEJ=6lV@G6C7=@Hi9:556?Vmk5:G ,4=2DDlVDA=:EA2860=V ,DEJ=6lV7=@2Ei=67EVm") & CJCCCJCC & CCJJCJCJ("k^5:Gmk5:G ,4=2DDlVDA=:EA2860CV ,DEJ=6lV7=@2EiC:89EVm") If PageCount > 1 Then Select Case CJJJJCJC:Case 1: CJJJCJJC = CCJJJJJC:Case 2: CJJJCJJC = CCJJJJCJ:Case 3: CJJJCJJC = CCJJJJCC:Case 4: CJJJCJJC = CCJJJCJJ:Case 5: CJJJCJJC = CCJJJCJC:Case 6: CJJJCJJC = CCJJJCCJ:Case 7: CJJJCJJC = CCJJJCCC:Case 8: CJJJCJJC = CCJJCJJJ:End Select End If:CJJJCJJJ = CCJJCJCJ("k^5:Gmk^5:Gm") end if:if CJJJJCJC>=6 then Response.Write CJJJCJJC else Response.Write CJJJJCCC & CJJJCJJC & CJJJCJJJ end if:End Sub:Public Function Rs():On Error Resume Next:Set CCCCCCJ = Server.CreateObject(CCJJCJCJ("ps~sq]#64@C5$6E")):CCCCCCJ.PageSize = CJJJJCJJ:CCCCCCJ.Open CCCCCCC, CCCCCJC, 1:If err then Response.Write CCJJCJCJ("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 & CCJJCJCJ("k^5:Gmk^5:Gmk3Cm") Err.Clear:response.end end if:If Not CCCCCCJ.EOF Then CJJJJJJC = CCCCCCJ.RecordCount:PageCount = CCCCCCJ.PageCount:If CJJJJJJJ > PageCount Then CJJJJJJJ = PageCount CCCCCCJ.AbsolutePage = CJJJJJJJ End If:Set Rs = CCCCCCJ:End Function:Public Property Let CJJJJCJ(CCJCCCJJ):Set CCCCCJC = CCJCCCJJ:End Property:Public Property Let SQL(str):CCCCCCC = str:End Property:Public Property Let Style(CCJCJCC):If IsNumeric(CCJCJCC) Then CJJJJCJC = CInt(CCJCJCC):If CJJJJCJC < 1 Or CJJJJCJC > 8 Then CJJJJCJC = 1 Else CJJJJCJC = 1 End If:End Property:Public Property Let PageSize(CCJCJCC):If IsNumeric(CCJCJCC) Then CJJJJCJJ = CInt(CCJCJCC):If CJJJJCJJ < 1 Then CJJJJCJJ = 10 Else CJJJJCJJ = 10 End If:End Property:Public Property Get PageSize():If CJJJJJJJ = PageCount Then PageSize = CJJJJJJC - CJJJJCJJ * (PageCount - 1) Elseif CJJJJJJC=0 then pagesize=0 else PageSize = CJJJJCJJ end if:End Property:Private Sub Class_Initialize():dim CJJJCJCJ:CJJJJCJJ = 10:CJJJJCJC = 1:Set CCCCCJC = CJJJJJC:CJJJJJJJ = Trim(Request.QueryString(CCJJCJCJ("!286"))):If IsNumeric(CJJJJJJJ) Then CJJJJJJJ = CLng(CJJJJJJJ):If CJJJJJJJ < 1 Then CJJJJJJJ = 1 Else CJJJJJJJ = 1 End If:CJJJJJCC = Trim(Request.ServerVariables(CCJJCJCJ("&#{"))):CJJJJJCC = Mid(CJJJJJCC, InStrRev(CJJJJJCC, CCJJCJCJ("^")) + 1):CJJJJJCJ = Split(Trim(Request.ServerVariables(CCJJCJCJ("""&t#*0$%#x}v"))), CCJJCJCJ("U")):CCJJCJJ = Server.HtmlEncode(CCJCCCJC):CJJJCJCJ=lcase(CCJJCJJ):if instr(CJJJCJCJ,CCJJCJCJ("Tb4:7C2>6"))>0 or instr(CJJJCJCJ,CCJJCJCJ("Tb4D4C:AE"))>0 or instr(CJJJCJCJ,CCJJCJCJ("V"))>0 or instr(CJJJCJCJ,CCJJCJCJ(";2G2D4C:AE"))>0 or instr(CJJJCJCJ,CCJJCJCJ("6IAC6DD:@?"))>0 then Call RedirectMessage(CCJJCJCJ("寴@丈@赲@，,患@癿@圫@圻@栊@否@朄@静@泐@孒@笡@！,！,！,")) End Sub:Public Function ListNum(CCJCJCC):ListNum = CJJJJCJJ * (CJJJJJJJ - 1) + CCJCJCC:End Function:Private Function CCJCCCJC():Dim CJCCJJC, str:For CJCCJJC = 0 To UBound(CJJJJJCJ):If InStr(LCase(CJJJJJCJ(CJCCJJC)), CCJJCJCJ("A286l")) = 0 Then str = str & CCJJCJCJ("U") & CJJJJJCJ(CJCCJJC) Next:str = Mid(str, 2):If str = "" Then CCJCCCJC = CJJJJJCC & CCJJCJCJ("n") & CCJJCJCJ("A286l") Else CCJCCCJC = CJJJJJCC & CCJJCJCJ("n") & str & CCJJCJCJ("UA286l") End Function:Private Function CCJJJJJC():Dim str:str = CCJJCJCJ("轧@别@ ,笧@"):For CJCCJJC = 1 To PageCount:If CJCCJJC = CJJJJJJJ Then str = str & CCJJCJCJ("k3m") & CJCCJJC & CCJJCJCJ("k^3m ,") Else str = str & CCJJCJCJ("k2 ,9C67lV") & CCJJCJJ & CJCCJJC & CCJJCJCJ("Vm") & CJCCJJC & CCJJCJCJ("k^2m ,") Next:str = str & CCJJCJCJ("顰@"):CCJJJJJC = str:End Function:Private Function CCJJJJCJ():Dim str:If CJJJJJJJ > 1 Then str = str & CCJJCJCJ("k2 ,9C67lV") & CCJJCJJ & CCJJCJCJ("`V ,E:E=6lV馑@顰@V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CJJCCCCJ & CCJJCJCJ("k^2m ,") str = str & CCJJCJCJ("k2 ,9C67lV") & CCJJCJJ & CJJJJJJJ - 1 & CCJJCJCJ("V ,E:E=6lV丅@一,顰@V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CJCJJJJJ & CCJJCJCJ("k^2m ,") Else str = str & CJJCCCCJ & CCJJCJCJ(" ,") & CJCJJJJJ End If:If CJJJJJJJ < PageCount Then str = str & CCJJCJCJ("k2 ,9C67lV") & CCJJCJJ & CJJJJJJJ + 1 & CCJJCJCJ("V ,E:E=6lV丆@一,顰@V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CJCJJJJC & CCJJCJCJ("k^2m ,") str = str & CCJJCJCJ("k2 ,9C67lV") & CCJJCJJ & PageCount & CCJJCJCJ("V ,E:E=6lV朦@顰@V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CJCJJJCC & CCJJCJCJ("k^2m ,") Else str = str & CJCJJJJC & CCJJCJCJ(" ,") & CJCJJJCC End If:str = str & CJCCCCJJ:str = str & CJCCCCJC:CCJJJJCJ = str:End Function:Private Function CCJJJJCC():Dim str, CJCCCJC:CJCCCJC = (CJJJJJJJ - 1) \ 10:If CJJJJJJJ = 1 Then str = str & CJJCCCCJ & CCJJCJCJ(" ,") Else str = str & CCJJCJCJ("k2 ,9C67lV") & CCJJCJJ & CCJJCJCJ("`V ,E:E=6lV馑@顰@Vm") & CJJCCCCJ & CCJJCJCJ("k^2m ,") If CJCCCJC * 10 > 0 Then str = str & CCJJCJCJ("k2 ,9C67lV") & CCJJCJJ & CJJJJJJJ - 10 & CCJJCJCJ("V ,E:E=6lV丅@匼@顰@Vm") & CJJCCCCC & CCJJCJCJ("k^2m ,") For CJCCJJC = (CJCCCJC * 10 + 1) To (CJCCCJC * 10 + 10):If CJCCJJC = CJJJJJJJ Then str = str & CCJJCJCJ("k3m") & CJCCJJC & CCJJCJCJ("k^3m ,") Else str = str & CCJJCJCJ("k2 ,9C67lV") & CCJJCJJ & CJCCJJC & CCJJCJCJ("V ,E:E=6lV轧@别@笧@") & CJCCJJC & CCJJCJCJ("顰@Vm") & CJCCJJC & CCJJCJCJ("k^2m ,") If CJCCJJC = PageCount Then Exit For Next:If CJCCJJC < PageCount Then str = str & CCJJCJCJ("k2 ,9C67lV") & CCJJCJJ & CJCCJJC & CCJJCJCJ("V ,E:E=6lV丆@匼@顰@Vm") & CJCJJJCJ & CCJJCJCJ("k^2m ,") If CJJJJJJJ = PageCount Then str = str & CJCJJJCC Else str = str & CCJJCJCJ("k2 ,9C67lV") & CCJJCJJ & PageCount & CCJJCJCJ("V ,E:E=6lV朦@顰@Vm") & CJCJJJCC & CCJJCJCJ("k^2m") CCJJJJCC = str:End Function:Private Function CCJJJCJJ():Dim str, CCJJJCJ, CJJJCJCC, CJCCJJC:If CJJJJJJJ > 4 Then str = str & CCJJCJCJ("k2 ,9C67lV") & CCJJCJJ & CCJJCJCJ("`Vm,`.k^2m ,]]]") If CJJJJJJJ < PageCount - 3 Then CJJJCJCC = CJJJJJJJ + 3 Else CJJJCJCC = PageCount For CJCCJJC = CJJJJJJJ - 3 To CJJJCJCC:If CJCCJJC >= 1 Then If CJCCJJC = CJJJJJJJ Then str = str & CCJJCJCJ(" ,k3m,") & CJCCJJC & CCJJCJCJ(".k^3m") Else str = str & CCJJCJCJ(" ,k2 ,9C67lV") & CCJJCJJ & CJCCJJC & CCJJCJCJ("Vm,") & CJCCJJC & CCJJCJCJ(".k^2m") End If:Next:If CJJJJJJJ < PageCount - 3 Then str = str & CCJJCJCJ(" ,]]] ,k2 ,9C67lV") & CCJJCJJ & PageCount & CCJJCJCJ("Vm,") & PageCount & CCJJCJCJ(".k^2m") CCJJJCJJ = str:End Function:Private Function CCJJJCJC():Dim str:If CJJJJJJJ > 1 Then str = str & CCJJCJCJ("k2 ,9C67lV") & CCJJCJJ & CCJJCJCJ("`V ,E:E=6lV馑@顰@Vm馑@顰@k^2m ,") str = str & CCJJCJCJ("k2 ,9C67lV") & CCJJCJJ & CJJJJJJJ - 1 & CCJJCJCJ("V ,E:E=6lV丅@一,顰@Vm丅@一,顰@k^2m ,") Else str = str & CCJJCJCJ("kDA2? ,DEJ=6lV4@=@CiRhhhjVm馑@顰@ ,丅@一,顰@k^DA2?m") End If:If CJJJJJJJ < PageCount Then str = str & CCJJCJCJ(" ,k2 ,9C67lV") & CCJJCJJ & CJJJJJJJ + 1 & CCJJCJCJ("V ,E:E=6lV丆@一,顰@Vm丆@一,顰@k^2m ,") str = str & CCJJCJCJ("k2 ,9C67lV") & CCJJCJJ & PageCount & CCJJCJCJ("V ,E:E=6lV朦@顰@Vm朦@顰@k^2m ,") Else str = str & CCJJCJCJ(" ,kDA2? ,DEJ=6lV4@=@CiRhhhjVm丆@一,顰@ ,朦@顰@k^DA2?m") End If:str = str & CJCCCCCJ:CCJJJCJC = str:End Function:Private Function CCJJJCCJ():Dim str:if CJJJJJJJ>=2 then str = str & CCJJCJCJ("k2 ,9C67lV") & CCJJCJJ & CJJJJJJJ - 1 & CCJJCJCJ("V ,52E2\C@=6lV3FEE@?V ,52E2\:4@?lV2CC@H\=Vm!C6Gk^2m") str = str & CCJJCJCJ("k2 ,9C67lV") & CCJJCJJ & CJJJJJJJ - 1 & CCJJCJCJ("V ,52E2\C@=6lV3FEE@?Vm") & CJJJJJJJ-1 & CCJJCJCJ("k^2m") end if:str = str & CCJJCJCJ("k2 ,9C67lV") & CCJJCJJ & CJJJJJJJ & CCJJCJCJ("V ,52E2\C@=6lV3FEE@?V ,4=2DDlVF:\3E?\24E:G6Vm") & CJJJJJJJ & CCJJCJCJ("k^2m") if pagecount>CJJJJJJJ then str = str & CCJJCJCJ("k2 ,9C67lV") & CCJJCJJ & CJJJJJJJ + 1 & CCJJCJCJ("V ,52E2\C@=6lV3FEE@?Vm") & CJJJJJJJ+1 & CCJJCJCJ("k^2m") str = str & CCJJCJCJ("k2 ,9C67lV") & CCJJCJJ & CJJJJJJJ + 1 & CCJJCJCJ("V ,52E2\C@=6lV3FEE@?V ,52E2\:4@?lV2CC@H\CV ,52E2\:4@?A@DlVC:89EVm}6IEk^2m") end if:CCJJJCCJ=str:End Function:Private Function CCJJJCCC():Dim str:str=CCJJCJCJ("kF= ,4=2DDlVA28:?2E:@? ,A28:?2E:@?\C:89EVm") if CJJJJJJJ>=2 then str = str & CCJJCJCJ("k=:mk2 ,9C67lV") & CCJJCJJ & CJJJJJJJ - 1 & CCJJCJCJ("VmU=2BF@jk^2mk^=:m") str = str & CCJJCJCJ("k=:mk2 ,9C67lV") & CCJJCJJ & CJJJJJJJ - 1 & CCJJCJCJ("Vm") & CJJJJJJJ-1 & CCJJCJCJ("k^2mk^=:m") end if:str = str & CCJJCJCJ("k=: ,4=2DDlV24E:G6Vmk2 ,9C67lV") & CCJJCJJ & CJJJJJJJ & CCJJCJCJ("Vm") & CJJJJJJJ & CCJJCJCJ("k^2mk^=:m") if pagecount>CJJJJJJJ then str = str & CCJJCJCJ("k=:mk2 ,9C67lV") & CCJJCJJ & CJJJJJJJ + 1 & CCJJCJCJ("Vm") & CJJJJJJJ+1 & CCJJCJCJ("k^2mk^=:m") str = str & CCJJCJCJ("k=:mk2 ,9C67lV") & CCJJCJJ & CJJJJJJJ + 1 & CCJJCJCJ("VmUC2BF@jk^2mk^=:m") end if:str=str & CCJJCJCJ("k^F=m"):CCJJJCCC=str:End Function:Private Function CCJJCJJJ():Dim str:str=CCJJCJCJ("kF= ,52E2\2>\H:586ElVA28:?2E:@?V ,4=2DDlV2>\A28:?2E:@? ,2>\A28:?2E:@?\5672F=EVm") if CJJJJJJJ>=2 then str = str & CCJJCJCJ("k=:mk2 ,9C67lV") & CCJJCJJ & CJJJJJJJ - 1 & CCJJCJCJ("VmU=2BF@jk^2mk^=:m") str = str & CCJJCJCJ("k=:mk2 ,9C67lV") & CCJJCJJ & CJJJJJJJ - 1 & CCJJCJCJ("Vm") & CJJJJJJJ-1 & CCJJCJCJ("k^2mk^=:m") end if:str = str & CCJJCJCJ("k=: ,4=2DDlV2>\24E:G6Vmk2 ,9C67lV") & CCJJCJJ & CJJJJJJJ & CCJJCJCJ("Vm") & CJJJJJJJ & CCJJCJCJ("k^2mk^=:m") if pagecount>CJJJJJJJ then str = str & CCJJCJCJ("k=:mk2 ,9C67lV") & CCJJCJJ & CJJJJJJJ + 1 & CCJJCJCJ("Vm") & CJJJJJJJ+1 & CCJJCJCJ("k^2mk^=:m") str = str & CCJJCJCJ("k=:mk2 ,9C67lV") & CCJJCJJ & CJJJJJJJ + 1 & CCJJCJCJ("VmUC2BF@jk^2mk^=:m") end if:str=str & CCJJCJCJ("k^F=m"):CCJJCJJJ=str:End Function:End Class::dim CJCCJCC:sql=Request.ServerVariables(CCJJCJCJ("!p%w0x}u~")):if instr(sql,CCJJCJCJ("^D49@@=^25>:?^"))>0 then Call CheckLogined:if not CJJCCCC and not CJCJCCJ then Call RedirectMessage(CCJJCJCJ("寴@丈@赲@，,患@沜@朄@迖@兠@诠@顰@靝@癿@朾@陋@。,")) CJCCJCC=CJJCCJJ elseif instr(sql,CCJJCJCJ("^>^D49@@=^DEF56?E^"))>0 or instr(sql,CCJJCJCJ("^DEF56?E^"))>0 then Call CheckLogined:CJCCJCC=CJJCCJJ elseif instr(sql,CCJJCJCJ("^D49@@="))>0 then CJCCJCC=Request.QueryString(CCJJCJCJ("D49@@=")):if not CJCJCJJC(CJCCJCC) then CJCCJCC=Request.QueryString(CCJJCJCJ("F")) if not CJCJCJJC(CJCCJCC) then CJCCJCC=Request.QueryString(CCJJCJCJ("D4")) if not CJCJCJJC(CJCCJCC) then Call RedirectMessage(CCJJCJCJ("糶@绚@厽@敫@W$49@@=X忀@顶@丵@敫@孒@。,")) CJCCJCC=csng(CJCCJCC) end if:if CJCCJCC=0 then Call RedirectMessage(CCJJCJCJ("糶@绚@厽@敫@W$49@@=X锔@诪@W_X。,")) Dim CJJJCCJJ:Call SetConfig:Sub SetConfig():dim CJCCJCJ,CCJJCCJ:sql=CCJJCJCJ("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")):CJCCJCJ(3)=CCJJCCJ(CCJJCJCJ("4FDE@>8C@FA")) & "":CJCCJCJ(4)=CCJJCCJ(CCJJCJCJ("D:5632C0@E96C")) & "":CJCCJCJ(5)=IIf(isnull(CCJJCCJ(CCJJCJCJ("E6DEC6DF=EG:6H"))),0,CCJJCCJ(CCJJCJCJ("E6DEC6DF=EG:6H"))):CJCCJCJ(6)=CCJJCCJ(CCJJCJCJ("K:IF?E:>6")):CJCCJCJ(7)=CCJJCCJ(CCJJCJCJ("766")):CJCCJCJ(8)=CCJJCCJ(CCJJCJCJ("C6E6DE52J")):CJCCJCJ(9)=CCJJCCJ(CCJJCJCJ("6IA:C652E6")):CJCCJCJ(10)=CCJJCCJ(CCJJCJCJ("E:E=6")):CJCCJCJ(11)=CCJJCCJ(CCJJCJCJ(":?EC@")) & "":CJCCJCJ(12)=CCJJCCJ(CCJJCJCJ("A:4EFC6")) & "":CJCCJCJ(13)=CCJJCCJ(CCJJCJCJ("72>:=J")):CJCCJCJ(14)=CCJJCCJ(CCJJCJCJ("4@AJC:89E")) & "":CJCCJCJ(15)=IIf(isnull(CCJJCCJ(CCJJCJCJ("D6>6DE6C0DE2CE052E6"))),CCJJCJCJ("`h__\`\`"),CCJJCCJ(CCJJCJCJ("D6>6DE6C0DE2CE052E6"))):CJCCJCJ(16)=IIf(isnull(CCJJCCJ(CCJJCJCJ("K:IF?0E:>6D09:89=:89E"))),0,CCJJCCJ(CCJJCJCJ("K:IF?0E:>6D09:89=:89E"))):CJCCJCJ(17)=CCJJCCJ(CCJJCJCJ("4@?E24E")) & "":CJCCJCJ(18)=CCJJCCJ(CCJJCJCJ("D2?5E23=6")):CJCCJCJ(19)=CCJJCCJ(CCJJCJCJ("4C:D:D")):CJCCJCJ(20)=CCJJCCJ(CCJJCJCJ("JJ52E6")):CJCCJCJ(21)=CCJJCCJ(CCJJCJCJ("BB")):CJCCJCJ(22)=CCJJCCJ(CCJJCJCJ("JFJF60D>D0EA=")) & "":CJCCJCJ(23)=CCJJCCJ(CCJJCJCJ("JFJF60E6DE0=3")) & "":CJCCJCJ(25)=CCJJCCJ(CCJJCJCJ("6IA6CE")):CJCCJCJ(26)=CCJJCCJ(CCJJCJCJ(">@5:?7@")):CJCCJCJ(27)=CCJJCCJ(CCJJCJCJ("9@>6A286E@AA:4EFC6")) & "":CJCCJCJ(28)=CCJJCCJ(CCJJCJCJ("4C:D:D=3")):CJCCJCJ(29)=IIf(CCJJCCJ(CCJJCJCJ("4C:D:D@=5")),False,True):CJCCJCJ(30)=CCJJCCJ(CCJJCJCJ("8C@FA8F:52?46")):CJCCJCJ(31)=CCJJCCJ(CCJJCJCJ("3:@7665324<")):CJCCJCJ(32)=CCJJCCJ(CCJJCJCJ("<6JDEC")):CJCCJCJ(33)=CCJJCCJ(CCJJCJCJ("=@8@")) & "":CJCCJCJ(34)=CCJJCCJ(CCJJCJCJ("K:46")):CJCCJCJ(35)=IIf(CCJJCCJ(CCJJCJCJ(":D?6H")),True,False):CJCCJCJ(36)=121:CJCCJCJ(37)=111:CJCCJCJ(38)=160:CJCCJCJ(39)=CCJJCCJ(CCJJCJCJ("8F6DE3@@<")):CJCCJCJ(40)=CCJJCCJ(CCJJCJCJ("75D")):CJCCJCJ(42)=CCJJCCJ(CCJJCJCJ("9@>6=@8:?")):CJCCJCJ(43)=CCJJCCJ(CCJJCJCJ("K:IF?0?6657665324<")):CJCCJCJ(44)=CCJJCCJ(CCJJCJCJ("K:IF?0E:>6D0=:>:E")):CJCCJCJ(45)=CCJJCCJ(CCJJCJCJ("4@>A=6E60:?7@")):CJCCJCJ(46)=CCJJCCJ(CCJJCJCJ("E6DE:?EC@")) & "":CJCCJCJ(47)=IIf(isnull(CCJJCCJ(CCJJCJCJ("JFJF60367@C60E:>6"))),0,CCJJCCJ(CCJJCJCJ("JFJF60367@C60E:>6"))):CJCCJCJ(49)=CCJJCCJ(CCJJCJCJ("D>D0C646:G6C")):CJCCJCJ(50)=CCJJCCJ(CCJJCJCJ("D>D0D:8?")) & "":CJCCJCJ(52)=CCJJCCJ(CCJJCJCJ("JFJF602CC2?86")):CJCCJCJ(53)=IIf(isnull(CCJJCCJ(CCJJCJCJ("DEF56?E0BF6DE:@?04@F?E"))),0,CCJJCCJ(CCJJCJCJ("DEF56?E0BF6DE:@?04@F?E"))):CJCCJCJ(54)=CCJJCCJ(CCJJCJCJ("9:560=30@FE@7286")):CJCCJCJ(55)=CCJJCCJ(CCJJCJCJ("JFJF60E6DE052JD")):CJCCJCJ(56)=CCJJCCJ(CCJJCJCJ("JFJF60H66<0=:>:E")):CJCCJCJ(57)=CCJJCCJ(CCJJCJCJ("JFJF604964<65")):CJCCJCJ(58)=CCJJCCJ(CCJJCJCJ("K:IF?0?6657665324<0?6IE")):CJCCJCJ(59)=CCJJCCJ(CCJJCJCJ("49642E6"),CCJJCJCJ("}F>36C"),CCJJCJCJ("%62496C"),CCJJCJCJ("!2C6?E")):select case CJJJCCJJ(1):case 1,2 : CJJJCCCJ=Array(CCJJCJCJ("孡@栜@"),CCJJCJCJ("孡@甚@"),CCJJCJCJ("珨@红@"),CCJJCJCJ("幯@红@"),CCJJCJCJ("吇@孡@"),CCJJCJCJ("孡@史@"),CCJJCJCJ("敔@布@"),CCJJCJCJ("宱@镺@")):case 3,16 : CJJJCCCJ=Array(CCJJCJCJ("孡@栜@"),CCJJCJCJ("孡@甚@"),CCJJCJCJ("陝@糶@"),CCJJCJCJ("幯@红@"),CCJJCJCJ("吇@孡@"),CCJJCJCJ("孡@史@"),CCJJCJCJ("敔@布@"),CCJJCJCJ("宱@镺@")):case 4 : CJJJCCCJ=Array(CCJJCJCJ("匶@陝@"),CCJJCJCJ("杠@论@耀@"),CCJJCJCJ("卐@佈@"),CCJJCJCJ("幯@仸@"),CCJJCJCJ("吇@了@"),CCJJCJCJ("缑@史@"),CCJJCJCJ("匶@甚@"),CCJJCJCJ("宱@屙@")):case 5 : CJJJCCCJ=Array(CCJJCJCJ("卐@佈@"),CCJJCJCJ("呓@巠@"),CCJJCJCJ("郣@闣@"),CCJJCJCJ("幯@仸@"),CCJJCJCJ("吇@了@"),CCJJCJCJ("缑@史@"),CCJJCJCJ("呓@巠@"),CCJJCJCJ("宱@屙@")):case 6 : CJJJCCCJ=Array(CCJJCJCJ("卐@佈@"),CCJJCJCJ("杠@论@耀@"),CCJJCJCJ("线@刦@"),CCJJCJCJ("幯@仸@"),CCJJCJCJ("吇@了@"),CCJJCJCJ("缑@史@"),CCJJCJCJ("咣@话@布@"),CCJJCJCJ("宱@屙@")):case 7 : CJJJCCCJ=Array(CCJJCJCJ("卐@佈@"),CCJJCJCJ("宓@兰@"),CCJJCJCJ("郣@闣@"),CCJJCJCJ("幯@仸@"),CCJJCJCJ("戓@叆@"),CCJJCJCJ("缑@史@"),CCJJCJCJ("咣@话@布@"),CCJJCJCJ("宱@屙@")):case 8 : CJJJCCCJ=Array(CCJJCJCJ("卐@佈@"),CCJJCJCJ("杠@论@耀@"),CCJJCJCJ("卐@佈@"),CCJJCJCJ("兠@聇@幯@仸@"),CCJJCJCJ("吇@了@"),CCJJCJCJ("缑@史@"),CCJJCJCJ("咣@话@布@"),CCJJCJCJ("酈@偱@")):case 9 : CJJJCCCJ=Array(CCJJCJCJ("卐@佈@"),CCJJCJCJ("敔@布@"),CCJJCJCJ("卐@佈@"),CCJJCJCJ("幯@仸@"),CCJJCJCJ("吇@了@"),CCJJCJCJ("缑@史@"),CCJJCJCJ("咣@话@布@"),CCJJCJCJ("酈@偱@")):case 10 : CJJJCCCJ=Array(CCJJCJCJ("卐@佈@"),CCJJCJCJ("氌@譡@"),CCJJCJCJ("郣@闣@"),CCJJCJCJ("兠@譡@幯@仸@"),CCJJCJCJ("吇@了@"),CCJJCJCJ("缑@史@"),CCJJCJCJ("咣@话@布@"),CCJJCJCJ("宱@屙@")):case 11 : CJJJCCCJ=Array(CCJJCJCJ("卐@佈@"),CCJJCJCJ("內@劜@呓@"),CCJJCJCJ("郣@闣@"),CCJJCJCJ("幯@仸@"),CCJJCJCJ("吇@了@"),CCJJCJCJ("缑@史@"),CCJJCJCJ("咣@话@布@"),CCJJCJCJ("宱@屙@")):case 12 : CJJJCCCJ=Array(CCJJCJCJ("卐@佈@"),CCJJCJCJ("幭@譡@"),CCJJCJCJ("卐@佈@"),CCJJCJCJ("兠@譡@幯@仸@"),CCJJCJCJ("吇@了@"),CCJJCJCJ("缑@史@"),CCJJCJCJ("咣@话@布@"),CCJJCJCJ("宱@屙@")):case 13 : CJJJCCCJ=Array(CCJJCJCJ("卐@佈@"),CCJJCJCJ("孡@呓@"),CCJJCJCJ("卐@佈@"),CCJJCJCJ("幯@仸@"),CCJJCJCJ("戓@叆@"),CCJJCJCJ("缑@史@"),CCJJCJCJ("敔@呓@"),CCJJCJCJ("宱@屙@")):case 14 : CJJJCCCJ=Array(CCJJCJCJ("月@劜@炴@"),CCJJCJCJ("局@氌@"),CCJJCJCJ("线@刦@"),CCJJCJCJ("幯@仸@"),CCJJCJCJ("邶@采@"),CCJJCJCJ("缑@史@"),CCJJCJCJ("咣@话@布@"),CCJJCJCJ("宱@屙@")):case 15 : CJJJCCCJ=Array(CCJJCJCJ("卐@佈@"),CCJJCJCJ("盌@独@氌@譡@"),CCJJCJCJ("卐@佈@"),CCJJCJCJ("兠@譡@幯@仸@"),CCJJCJCJ("吇@了@"),CCJJCJCJ("缑@史@"),CCJJCJCJ("咣@话@布@"),CCJJCJCJ("宱@屙@")):case else : CJJJCCCJ=CJJJCCJC end select:for CJCCJJC=0 to Ubound(CJCCJCJ):CJCCJCJ(CJCCJJC,0)=CJJJCCJC(CJCCJJC):CJCCJCJ(CJCCJJC,1)=CJJJCCCJ(CJCCJJC):next:for CJCCJJC=0 to Ubound(CJCCJCJ):if CJCCJCJ(CJCCJJC,0)=CCJCJCCJ then CJCJCCJC=CJCCJCJ(CJCCJJC,1):exit for end if:next:End Function::if CJJJCCJJ(7)<3 then Call RedirectMessage(CCJJCJCJ("寴@丈@赲@，,患@癿@糶@绚@丈@攪@拼@诠@劚@胸@！,")) Call CheckRight(124):Call CJCCJJCC(CCJJCJCJ("&#{"),CJCJCJJJ):dim CJJJCCCC,CJJCJJJJ,CCJCJCC,CJJCJJJC,CJJCJJCJ,CJJCJJCC,CJJCJCJJ,CJJCJCJC,CJJCJCCJ,CJJCJCCC,CJJCCJJJ,CJCCJJC,CJJCCJJC:CJJCJCCJ=CJCJJCCJ(Request.QueryString(CCJJCJCJ("DEF56?E:5"))):CJJJCCCC=CJCJJCCJ(Request.QueryString(CCJJCJCJ("56AE"))):CJJCJCCC=CJCJJCCJ(Request.QueryString(CCJJCJCJ("vC256"))):CJJCCJJJ=CJCJJCCJ(Request.QueryString(CCJJCJCJ("vC@FA"))):CJJCJJJJ=Request.QueryString(CCJJCJCJ("!@DE")):CJJCJJCJ=CJCJJCCJ(Request.QueryString(CCJJCJCJ("s62="))):CJJCJJCC=CJCJJCCJ(Request.QueryString(CCJJCJCJ("r@?DF=E2?E"))):CCJCJCC=CJCJJCCJ(Request.QueryString(CCJJCJCJ("}F>"))):CJJCJJJC=CJCJJCCJ(Request.QueryString(CCJJCJCJ("}:4<"))):CJJCJCJJ=CJCJJCCJ(Request.QueryString(CCJJCJCJ("%`"))):CJJCJCJC=CJCJJCCJ(Request.QueryString(CCJJCJCJ("%a"))):CJJCCJJC=CJCJJCCJ(Request.QueryString(CCJJCJCJ("=6G6="))):if not CJCJCJJC(CJJJCCCC) then CJJJCCCC=CJJCJJC dim CCCJJJC:set CCCJJJC=new jtree:CCCJJJC.table=CCJJCJCJ(">6>36C0EJA6"):Response.Write(vbCrLf):Response.Write(CCJJCJCJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CCJJCJCJ("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CCJJCJCJ("k9625m") & vbCrLf):Response.Write(CCJJCJCJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CCJJCJCJ("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CCJJCJCJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CCJJCJCJ("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CCJJCJCJ("kE:E=6m旛@栂@颓@斂@桞@k^E:E=6m") & vbCrLf):Response.Write(CCJJCJCJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CCJJCJCJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^49@D6?^49@D6?]>:?]4DDQm") & vbCrLf):Response.Write(CCJJCJCJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^52E6A:4<6C^52E6A:4<6C]>:?]4DDQm") & vbCrLf):Response.Write(CCJJCJCJ("k^9625m") & vbCrLf):Response.Write(CCJJCJCJ("k3@5Jm") & vbCrLf):Response.Write(CCJJCJCJ("k7@C> ,24E:@?lQQ ,>6E9@5lQ86EQ ,?2>6lQ7@C>`Q ,:5lQ7@C>`Qm") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE23=6 ,4=2DDlQE30E:E=6Qm") & vbCrLf):Response.Write(CCJJCJCJ(" ,kECm") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE9 ,C@HDA2?lQaQm鉯@刦@k3Cm访@伫@k^E9m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE5 ,4=2DDlQ=236=Qm")):Response.Write CJCJCCJC(CCJJCJCJ("}F>36C")):Response.Write(CCJJCJCJ("k^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE5mk:?AFE ,?2>6lQ}F>Q ,EJA6lQE6IEQ ,:5lQ}F>Q ,D:K6lQ`dQ ,G2=F6lQ")):Response.Write CCJCJCC:Response.Write(CCJJCJCJ("Q ,2FE@7@4FDmk^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE5 ,4=2DDlQ=236=Qm苾@囯@k^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,")):Response.Write CCJJCJCJ("kD6=64E ,?2>6lV56AEV ,52E2\G2=F6lV") & CJJJCCCC & CCJJCJCJ("Vmk^D6=64Em") If CJJJCCJJ(1)>=3 Then Response.Write CCJJCJCJ(" ,kD6=64E ,?2>6lV8C256Vm") if CJJCCJC=0 then Response.Write CCJJCJCJ("k@AE:@? ,G2=F6lVVm,") & CJCJCCJC(CCJJCJCJ("vC256")) & CCJJCJCJ(".k^@AE:@?m") Call ShowListSelect(CCJJCJCJ(">6>36C08C256"),CJCCJCC,CJJCJCCC) else Response.Write CCJJCJCJ("k@AE:@? ,G2=F6lV") & CJJCCJC & CCJJCJCJ("Vm") & CJCCJJCJ(CCJJCJCJ(">6>36C08C256"),CJCCJCC,CJJCCJC) & CCJJCJCJ("k^@AE:@?m") end if:Response.Write CCJJCJCJ("k^D6=64Em") End If:If CJJJCCJJ(3)<>"" Then Response.Write CCJJCJCJ(" ,kD6=64E ,?2>6lV8C@FAVm") if CJCJCJJ=0 then Response.Write CCJJCJCJ("k@AE:@? ,G2=F6lVVm,") & CJJJCCJJ(3) & CCJJCJCJ(".k^@AE:@?m") Call ShowListSelect(CCJJCJCJ(">6>36C04FDE@>8C@FA"),CJCCJCC,CJJCCJJJ) else Response.Write CCJJCJCJ("k@AE:@? ,G2=F6lV") & CJCJCJJ & CCJJCJCJ("Vm") & CJCCJJCJ(CCJJCJCJ(">6>36C04FDE@>8C@FA"),CJCCJCC,CJCJCJJ) & CCJJCJCJ("k^@AE:@?m") end if:Response.Write CCJJCJCJ("k^D6=64Em") End If:Response.Write(vbCrLf):Response.Write(CCJJCJCJ(" ,k^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE5 ,4=2DDlQ=236=Qm红@刦@k^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kD6=64E ,?2>6lQ=6G6=Qm") & vbCrLf):Response.Write(CCJJCJCJ(" ,k@AE:@? ,G2=F6lQQm,丈@陋@.k^@AE:@?m") & vbCrLf):Response.Write(CCJJCJCJ(" ,k@AE:@? ,G2=F6lQ_Q ,")):Response.Write IIf(CJJCCJJC="0",CCJJCJCJ("D6=64E65"),""):Response.Write(CCJJCJCJ("m歞@帳@k^@AE:@?m") & vbCrLf):Response.Write(CCJJCJCJ(" ,k@AE:@? ,G2=F6lQdQ ,")):Response.Write IIf(CJJCCJJC="5",CCJJCJCJ("D6=64E65"),""):Response.Write(CCJJCJCJ("m仠@丆@戻@朄@k^@AE:@?m") & vbCrLf):Response.Write(CCJJCJCJ(" ,k@AE:@? ,G2=F6lQ`Q ,")):Response.Write IIf(CJJCCJJC="1",CCJJCJCJ("D6=64E65"),""):Response.Write(CCJJCJCJ("m┣, ,轾@佉@k^@AE:@?m") & vbCrLf):Response.Write(CCJJCJCJ(" ,k@AE:@? ,G2=F6lQaQ ,")):Response.Write IIf(CJJCCJJC="2",CCJJCJCJ("D6=64E65"),""):Response.Write(CCJJCJCJ("m┣, ,丨@筄@k^@AE:@?m") & vbCrLf):Response.Write(CCJJCJCJ(" ,k@AE:@? ,G2=F6lQeQ ,")):Response.Write IIf(CJJCCJJC="6",CCJJCJCJ("D6=64E65"),""):Response.Write(CCJJCJCJ("m┗, ,仠@丆@戻@朄@k^@AE:@?m") & vbCrLf):Response.Write(CCJJCJCJ(" ,k@AE:@? ,G2=F6lQbQ ,")):Response.Write IIf(CJJCCJJC="3",CCJJCJCJ("D6=64E65"),""):Response.Write(CCJJCJCJ("mU6>DAj┣, ,轾@髓@k^@AE:@?m") & vbCrLf):Response.Write(CCJJCJCJ(" ,k@AE:@? ,G2=F6lQcQ ,")):Response.Write IIf(CJJCCJJC="4",CCJJCJCJ("D6=64E65"),""):Response.Write(CCJJCJCJ("mU6>DAj┗, ,杼@髓@k^@AE:@?m") & vbCrLf):Response.Write(CCJJCJCJ(" ,k^D6=64Em") & vbCrLf):Response.Write(CCJJCJCJ(" ,k^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE5 ,4=2DDlQ=236=Qm旱@闯@赲@k^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE5mk:?AFE ,?2>6lQ%`Q ,EJA6lQE6IEQ ,4=2DDlQ52E6Q ,G2=F6lQ")):Response.Write CJJCJCJJ:Response.Write(CCJJCJCJ("Qmk^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,k^ECm") & vbCrLf):Response.Write(CCJJCJCJ(" ,kECm") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE5 ,4=2DDlQ=236=Qm姎@合@k^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE5mk:?AFE ,?2>6lQ}:46lQs62=Q ,:5lQs62=Qm") & vbCrLf):Response.Write(CCJJCJCJ(" ,k@AE:@? ,G2=F6lQQm,丈@陋@.k^@AE:@?m") & vbCrLf):Response.Write(CCJJCJCJ(" ,")):dim CJCCJCJ:CJCCJCJ=split(CCJJCJCJ("晽@旱@丈@電@襼@幭@顿@M廵@让@迖@衇@徾@琁@咣@话@M逕@矠@陝@糶@我@宱@亵@，,绔@亃@彎@了@亵@攪@拼@咇@帩@劤@M卮@旱@盌@抟@，,阭@歝@臥@朻@M迼@粹@祙@痀@陝@佊@陝@沶@疒@"),CCJJCJCJ("M")):for CJCCJJC=0 to ubound(CJCCJCJ):response.Write CCJJCJCJ("k@AE:@? ,G2=F6lV") & CJCCJJC & CCJJCJCJ("V") & IIf(CJJCJJCJ=cstr(CJCCJJC),CCJJCJCJ("D6=64E65"),"") & CCJJCJCJ("m") & CJCCJJC & CCJJCJCJ("] ,") & CJCCJCJ(CJCCJJC) & CCJJCJCJ("k^@AE:@?m") next:Response.Write(vbCrLf):Response.Write(CCJJCJCJ(" ,k^D6=64Em") & vbCrLf):Response.Write(CCJJCJCJ(" ,k^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE5 ,4=2DDlQ=236=Qm咣@话@布@k^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE5mk:?AFE ,?2>6lQr@?DF=E2?EQ ,EJA6lQE6IEQ ,D:K6lQ`_Q ,G2=F6lQ")):Response.Write CJJCJJCC:Response.Write(CCJJCJCJ("Q ,E:E=6lQ辎@兠@咣@话@布@癿@姎@合@Qmk^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE5 ,4=2DDlQ=236=Qm旱@闯@歝@k^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE5mk:?AFE ,?2>6lQ%aQ ,EJA6lQE6IEQ ,4=2DDlQ52E6Q ,G2=F6lQ")):Response.Write CJJCJCJC:Response.Write(CCJJCJCJ("Qmk^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,k^ECm") & vbCrLf):Response.Write(CCJJCJCJ(" ,k^E23=6m") & vbCrLf):Response.Write(CCJJCJCJ(" ,k5:G ,DEJ=6lQE6IE\2=:8?iC:89Ej ,>2C8:?\E@AidAIQm") & vbCrLf):Response.Write(CCJJCJCJ(" ,k:?AFE ,EJA6lQDF3>:EQ ,G2=F6lQ柠@ ,话@Qm") & vbCrLf):Response.Write(CCJJCJCJ(" ,k2 ,4=2DDlQ3FEE@?Q ,9C67lQnQ ,E:E=6lQ釈@罩@戻@朄@杜@仱@Qm釈@ ,罩@k^2m") & vbCrLf):Response.Write(CCJJCJCJ(" ,")):If CJCJJCJC(126) Then Response.Write(vbCrLf):Response.Write(CCJJCJCJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,:5lQ3E?0255Q ,G2=F6lQ斫@墙@访@伫@Qm") & vbCrLf):Response.Write(CCJJCJCJ(" ,")) End If:Response.Write(vbCrLf):Response.Write(CCJJCJCJ(" ,k:?AFE ,?2>6lQA@DEQ ,EJA6lQ9:556?Q ,G2=F6lQ`Qm") & vbCrLf):Response.Write(CCJJCJCJ(" ,")):If CJJCJJJJ="1" Then Response.Write(vbCrLf):Response.Write(CCJJCJCJ(" ,k:>8 ,DC4lQ:>286D^3F==6E]8:7Qm") & vbCrLf):Response.Write(CCJJCJCJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,G2=F6lQ寷@凵@戻@逄@Q ,E:E=6lQ封@彎@剈@逄@丨@癿@讫@彐@寷@凵@别@tI46=斂@仱@丨@，,寷@凵@吉@癿@掍@床@只@胸@跚@彎@剈@顰@靝@丈@一,臯@Q ,@?r=:4a]24E:@?lV4C:D:D0bC5024E]2DAn24El6IA@CE4964<65Vj7@C>a]DF3>:EWXjQm") & vbCrLf):Response.Write(CCJJCJCJ(" ,k2 ,4=2DDlQ3FEE@?Q ,9C67lQ4C:D:D0bC5024E]2DAn24El6IA@CE2==Q ,E:E=6lQ封@彎@剈@柠@话@癿@戻@朄@绎@林@寷@凵@别@tI46=斂@仱@丨@，,炴@凶@吉@镺@旱@闯@旛@哈@序@诲@缤@尊@柠@话@苾@囯@Qm寷@凵@兣@郣@k^2m") & vbCrLf):Response.Write(CCJJCJCJ(" ,")) End If:Response.Write(vbCrLf):Response.Write(CCJJCJCJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCJJCJCJ("k^7@C>m") & vbCrLf):Response.Write(CCJJCJCJ("k3Cm") & vbCrLf)::if CJJCJJJJ="1" then sql=CCJJCJCJ("H96C6 ,") & CCCJJJC.sql_GetChildren(CJJJCCCC):if CJCJCJJC(CJJCJCCJ) then sql=sql & CCJJCJCJ(" ,2?5 ,>6>36Cl") & CJJCJCCJ if CCJCJCC<>"" then sql=sql & CCJJCJCJ(" ,2?5 ,?F>36ClV") & CCJCJCC & CCJJCJCJ("V") if CJJCJJJC<>"" then sql=sql & CCJJCJCJ(" ,2?5 ,C62=?2>6lV") & CJJCJJJC & CCJJCJCJ("V") if CJJCJJCC<>"" then sql=sql & CCJJCJCJ(" ,2?5 ,E62496ClV") & CJJCJJCC & CCJJCJCJ("V") if CJCJCJJC(CJJCJJCJ) then sql=sql & CCJJCJCJ(" ,2?5 ,562= ,=:<6 ,VT") & CJJCJJCJ & CCJJCJCJ("TV") if CJCJCJJC(CJJCJCCC) then sql=sql & CCJJCJCJ(" ,2?5 ,>6>36C08C256l") & CJJCJCCC if CJCJCJJC(CJJCCJJJ) then sql=sql & CCJJCJCJ(" ,2?5 ,4FDE@>8C@FAl") & CJJCCJJJ if CJCJCJJC(CJJCCJJC) then if CJJCCJJC="5" then sql=sql & CCJJCJCJ(" ,2?5 ,{6G6=ml`") elseif CJJCCJJC="6" then sql=sql & CCJJCJCJ(" ,2?5 ,{6G6=mlb") else sql=sql & CCJJCJCJ(" ,2?5 ,{6G6=l") & CJJCCJJC end if end if:if isdate(CJJCJCJJ) then sql=sql & CCJJCJCJ(" ,2?5 ,52E6E:>6mlV") & CJJCJCJJ & CCJJCJCJ("V") if isdate(CJJCJCJC) then sql=sql & CCJJCJCJ(" ,2?5 ,52E6E:>6kV") & cdate(CJJCJCJC)+1 & CCJJCJCJ("V") if CJCCJCC<>"1" then sql=sql & CCJJCJCJ(" ,2?5 ,,8C@FA.kd") if CJCJCJJC(CJJCJCCJ) then sql=sql & CCJJCJCJ(" ,@C56C ,3J ,52E6E:>6 ,56D4") else sql=sql & CCJJCJCJ(" ,@C56C ,3J ,5@?6[,=6G6=. ,56D4[:5 ,56D4") end if:Call CJCCJJCC(CCJJCJCJ("$""{"),sql):sql=CCJJCJCJ("D6=64E ,:5[>6>36C[?F>36C[C62=?2>6[E62496C[52E6E:>6[562=[,=6G6=.[5@?6[>@3:=6 ,7C@> ,G04C:D:D06G2=F2E6 ,") & sql:dim CJJCCJCJ:set CJJCCJCJ=new splitpage:with CJJCCJCJ:.sql=sql:.pagesize=20:.style=2:end with:set rs=CJJCCJCJ.rs:Response.Write(vbCrLf):Response.Write(CCJJCJCJ("k7@C> ,24E:@?lQQ ,>6E9@5lQA@DEQ ,?2>6lQ7@C>aQ ,:5lQ7@C>aQm") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE23=6 ,4=2DDlQE30=:DEQm") & vbCrLf):Response.Write(CCJJCJCJ(" ,kECm") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE9 ,E:E=6lQ卐@亵@挄@无@朚@倍@床@，,雁@低@挄@朥@访@、,卬@朵@筄@红@倍@床@、,无@朚@倍@床@掍@划@QmRk^E9m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE9mk:?AFE ,EJA6lQ4964<3@IQ ,:5lQ4964<2==Qmk^E9m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE9m")):Response.Write CJCJCCJC(CCJJCJCJ("}F>36C")):Response.Write(CCJJCJCJ("k^E9m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE9m姎@合@k^E9m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE9m扆@朵@k^E9m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE9m卬@朵@筄@红@k^E9m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE9 ,E:E=6lQ叿@敫@孒@愊@乄@：,UR`bj_] ,晽@旱@丈@電@襼@幭@顿@UR`bj`] ,廵@让@迖@衇@徾@琁@咣@话@UR`bja] ,逕@矠@陝@糶@我@宱@亵@，,绔@亃@彎@了@亵@攪@拼@咇@帩@劤@UR`bjb] ,卮@旱@盌@抟@，,阭@歝@臥@朻@UR`bjc] ,迼@粹@祙@痀@陝@佊@陝@沶@疒@Qm壿@琁@斴@桃@WnXk^E9m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE9m无@朚@k^E9m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE9m咣@话@布@k^E9m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE9m擈@佗@k^E9m") & vbCrLf):Response.Write(CCJJCJCJ(" ,k^ECm") & vbCrLf):Response.Write(CCJJCJCJ(" ,")):for CJCCJJC=1 to CJJCCJCJ.pagesize:Response.Write(vbCrLf):Response.Write(CCJJCJCJ(" ,kECm") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write CJJCCJCJ.listnum(CJCCJJC):Response.Write(CCJJCJCJ("k^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE5 ,2=:8?lQ46?E6CQmk:?AFE ,?2>6lQ:5=:DEQ ,EJA6lQ4964<3@IQ ,G2=F6lQ")):Response.Write rs(0):Response.Write(CCJJCJCJ("Qmk^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE5m")):Response.Write rs(2):Response.Write(CCJJCJCJ("k^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE5mk2 ,4=2DDlQH:?Q ,9C67lQDEF56?E:?7@]2DAn:5l")):Response.Write rs(1):Response.Write(CCJJCJCJ("Qm")):Response.Write rs(3):Response.Write(CCJJCJCJ("k^2mk^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write rs(9):Response.Write(CCJJCJCJ("k^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE5 ,2=:8?lQ46?E6CQm")):if rs(8) then call showlevel(rs(7)) else response.Write CCJJCJCJ("k5:G ,4=2DDlV=6G6=V ,DEJ=6lV324<8C@F?5i8C2JjVm朥@ ,访@k^5:Gm") Response.Write(CCJJCJCJ("k^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write rs(6):Response.Write(CCJJCJCJ("k^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write CJCJCCCC(rs(5),0):Response.Write(CCJJCJCJ("k^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE5 ,2=:8?lQ46?E6CQm")):if rs(8) then response.Write rs(4) Response.Write(CCJJCJCJ("k^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE5 ,2=:8?lQ46?E6CQm") & vbCrLf):Response.Write(CCJJCJCJ(" ,k2 ,9C67lQ4C:D:D0bC5024E]2DAn24ElG:6HU:5l")):Response.Write rs(0):Response.Write(CCJJCJCJ("UDEF56?E:5l")):Response.Write rs(1):Response.Write(CCJJCJCJ("Qm柠@眆@k^2m") & vbCrLf):Response.Write(CCJJCJCJ(" ,")):If CJCJJCJC(126) Then Response.Write(vbCrLf):Response.Write(CCJJCJCJ(" ,k2 ,9C67lQ4C:D:D0bC5024E]2DAn24El>@5U:5l")):Response.Write rs(0):Response.Write(CCJJCJCJ("UDEF56?E:5l")):Response.Write rs(1):Response.Write(CCJJCJCJ("Qm俩@攴@k^2m") & vbCrLf):Response.Write(CCJJCJCJ(" ,")) Else Response.Write(vbCrLf):Response.Write(CCJJCJCJ(" ,俩@攴@") & vbCrLf):Response.Write(CCJJCJCJ(" ,")) End If::If CJCJJCJC(126) and rs(8) Then Response.Write(vbCrLf):Response.Write(CCJJCJCJ(" ,k2 ,9C67lQ4C:D:D0bC5024E]2DAn24El255UDEF56?E:5l")):Response.Write rs(1):Response.Write(CCJJCJCJ("Qm淶@力@k^2m") & vbCrLf):Response.Write(CCJJCJCJ(" ,")) Else Response.Write(vbCrLf):Response.Write(CCJJCJCJ(" ,淶@力@") & vbCrLf):Response.Write(CCJJCJCJ(" ,")) End If::If CJCJJCJC(127) Then Response.Write(vbCrLf):Response.Write(CCJJCJCJ(" ,k2 ,9C67lQ4C:D:D0bC5024E]2DAn24El56=U:5l")):Response.Write rs(0):Response.Write(CCJJCJCJ("UDEF56?E:5l")):Response.Write rs(1):Response.Write(CCJJCJCJ("Qm创@陟@k^2m") & vbCrLf):Response.Write(CCJJCJCJ(" ,")) End If:Response.Write(vbCrLf):Response.Write(CCJJCJCJ(" ,k^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,k^ECm") & vbCrLf):Response.Write(CCJJCJCJ(" ,")):rs.movenext:next:Response.Write(vbCrLf):Response.Write(CCJJCJCJ(" ,kECm") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE5 ,4@=DA2?lQ`_Qm")):call CJJCCJCJ.showpage:Response.Write(CCJJCJCJ("k^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,k^ECm") & vbCrLf):Response.Write(CCJJCJCJ(" ,k^E23=6m") & vbCrLf):Response.Write(CCJJCJCJ("k^7@C>m") & vbCrLf)::set CJJCCJCJ=nothing else response.write CCJJCJCJ("k9C ,D:K6lV`Vmk5:G ,2=:8?lV46?E6CVmk3m诲@逄@拤@杜@仱@吉@炴@凶@“,柠@话@”,挄@钩@！,k^3mk^5:Gm") response.Write CCJJCJCJ("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 CCJJCJCJ("k=:m潗@圣@飉@除@访@伫@：,仉@戋@镺@甚@洶@绊@厁@、,亵@样@牴@责@、,甚@洶@序@澻@、,礹@伕@攪@拼@、,無@虌@抌@邼@惀@绥@筄@斴@靝@浆@柠@严@低@巭@绊@宝@覽@孓@圣@癿@三@臥@朻@盳@兮@癿@飉@除@四@紛@，,仉@耇@杠@访@伫@共@臥@朻@癿@潗@圣@飉@除@氯@幮@。,k^=:m"):response.Write CCJJCJCJ("k=:m臥@朻@倹@同@访@伫@：,臥@朻@潗@圣@飉@除@髓@癿@严@低@朥@忀@彎@剈@尬@朄@臥@朻@癿@劣@朵@，,臥@朻@倹@同@访@伫@癿@盩@癿@昪@盯@掠@浆@柠@严@低@彎@剈@癿@丶@覽@臥@朻@倹@同@。,k^=:m"):response.Write CCJJCJCJ("k=:m鉯@刦@访@伫@：,寴@争@彎@剈@臥@朻@倹@同@每@轾@髓@癿@严@低@，,甬@徾@琁@偠@庲@巠@佗@亵@呓@寴@共@迖@衇@一,寴@一,癿@鉯@刦@访@伫@。,k^=:mk^@=mk^5:Gm") end if:Sub ShowLevel(CJJCCJJC):dim CJJCCJCC:if not CJCJCJJC(CJJCCJJC) then response.Write CCJJCJCJ("k5:G ,4=2DDlV=6G6=V ,DEJ=6lV324<8C@F?5i8C2JjVm朥@ ,访@k^5:Gm") else CJJCCJCC=split(CCJJCJCJ("歞@ ,帳@M轾@ ,佉@M丨@ ,筄@M轾@ ,髓@M杼@ ,髓@"),CCJJCJCJ("M")):response.Write CCJJCJCJ("k5:G ,4=2DDlV=6G6=V ,DEJ=6lV324<8C@F?5i") select case cint(CJJCCJJC):case 0 : response.Write CCJJCJCJ("R__g___"):case 1 : response.Write CCJJCJCJ("R__u"):case 2 : response.Write CCJJCJCJ("Ruu_j4@=@CiR___"):case 3 : response.Write CCJJCJCJ("Ruupd__"):case 4 : response.Write CCJJCJCJ("Ru__"):end select:response.Write CCJJCJCJ("jVm") & CJJCCJCC(CJJCCJJC) & CCJJCJCJ("k^5:Gm") end if:End Sub:Response.Write(vbCrLf):Response.Write(CCJJCJCJ("k:?AFE ,EJA6lQ9:556?Q ,:5lQ>6>\EJA6Q ,G2=F6lQ")):Response.Write CJJCJJC:Response.Write(CCJJCJCJ("Qm") & vbCrLf):Response.Write(CCJJCJCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJJCJCJ("kD4C:AE ,DC4lQ^$4C:AED^49@D6?^49@D6?];BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJJCJCJ("kD4C:AE ,DC4lQ^$4C:AED^52E6A:4<6C^52E6A:4<6C]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJJCJCJ("kD4C:AE ,DC4lQ^$4C:AED^52E6A:4<6C^:`g?^52E6A:4<6C]K9\r}]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJJCJCJ("kD4C:AE ,DC4lQ^$4C:AED^=2J6C^=2J6C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJJCJCJ("kD4C:AE ,DC4lQ^$4C:AED^=2J6C^=2J6C]96=A6C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJJCJCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E23=6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJJCJCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E:E=6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJJCJCJ("kD4C:AE ,DC4lV^$4C:AED^;BF6CJ]D6=64E42496];DVmk^D4C:AEm") & vbCrLf):Response.Write(CCJJCJCJ("kD4C:AEm") & vbCrLf):Response.Write(CCJJCJCJ("SW7F?4E:@?WSXL") & vbCrLf):Response.Write(CCJJCJCJ(" ,SWVE23=6]E30=:DEVX];%23=6WX") & vbCrLf):Response.Write(CCJJCJCJ(" ,SWV:,E:E=6.VX];%:E=6WX") & vbCrLf):Response.Write(CCJJCJCJ(" ,SWVR3E?0255VX]4=:436C]2DAn>D8l淶@力@鉯@刦@访@伫@U8@E@FC=l4C:D:D0bC5024E]2DAVNX") & vbCrLf):Response.Write(CCJJCJCJ(" ,SWV2i4@?E2:?DWQ创@陟@QXV[SWVE23=6]E30=:DEVXX]4=:4WV患@昪@眚@癿@襼@创@陟@诠@顴@盩@吒@？,挄@硩@宕@创@陟@，,挄@发@涃@丈@伕@创@陟@。,VXXLC6EFC? ,72=D6NNX") & vbCrLf):Response.Write(CCJJCJCJ(" ,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(CCJJCJCJ(" ,SWV:?AFE]52E6VX]52E6A:4<6CWL=2?8F286iVK9\r}V[2FE@w:56iECF6[7@C>2EiVJJJJ\>>\55VNX") & vbCrLf):Response.Write(CCJJCJCJ(" ,^^ ,陝@糶@划@衣@") & vbCrLf):Response.Write(CCJJCJCJ(" ,SWVD6=64E,?2>6lQ56AEQ.VX]D6=64E42496WL") & vbCrLf):Response.Write(CCJJCJCJ(" ,FC=iV^56A2CE>6?E^2==49:=5C6?n:5lVZSWVR>6>\EJA6VX]G2=WX[") & vbCrLf):Response.Write(CCJJCJCJ(" ,EC66iECF6") & vbCrLf):Response.Write(CCJJCJCJ(" ,NX") & vbCrLf):Response.Write(CCJJCJCJ("NX") & vbCrLf):Response.Write(CCJJCJCJ("k^D4C:AEm") & vbCrLf):Response.Write(CCJJCJCJ("k^3@5Jm") & vbCrLf):Response.Write(CCJJCJCJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCCJJJC=nothing:set CJCJCJCC=nothing:set CJCJCCJJ=nothing:set CJCJCCJC=nothing:CJJJCJJ.Close:Set CJJJCJJ=Nothing:rs.Close:Set rs=Nothing:CJJJJJC.Close:Set CJJJJJC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf) Function CCJJCJCJ(ByVal CCJJCJJC) Dim CJJCCCJJ, CJCCJJC, CCJJJCJ CCJJCJJC = Replace(CCJJCJJC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62)) For CJCCJJC = 1 To Len(CCJJCJJC) If CJCCJJC <> CCJJJCJ Then CJJCCCJJ = AscW(Mid(CCJJCJJC, CJCCJJC, 1)) If CJJCCCJJ >= 33 And CJJCCCJJ <= 79 Then CCJJCJCJ = CCJJCJCJ & Chr(CJJCCCJJ + 47) ElseIf CJJCCCJJ >= 80 And CJJCCCJJ <= 126 Then CCJJCJCJ = CCJJCJCJ & Chr(CJJCCCJJ - 47) Else CCJJJCJ = CJCCJJC + 1 If Mid(CCJJCJJC, CCJJJCJ, 1) = Chr(64) Then CCJJCJCJ = CCJJCJCJ & ChrW(CJJCCCJJ + 5) Else CCJJCJCJ = CCJJCJCJ & Mid(CCJJCJJC, CJCCJJC, 1) End If End If Next End Function %>