<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCCCJ, CCCCC,CJJJJJ, CJJJJC, CJJJCJ:Set CCCCJ = server.CreateObject(CJJJJCCJ("ps~sq]r@??64E:@?")):CCCCJ.open Application(CJJJJCCJ("r@??64E:@?$EC:?8")):Set CCCCC=CCCCJ::Dim CJJJCC,CJJCJJ,CJJCJC,CJJCCJ,CJJCCC,CJCJJJ,CJCJJC,CJCJCJ,CJCJCC:Dim CJCCJJ,CJCCJC,CJCCCJ,CJCCCC,CCJJJJ,CCJJJC:Dim CCJJCJ,CCJJCC,CCJCJJ:Dim CCJCJC:CCJCJC=Trim(Request.Cookies(CJJJJCCJ("!$*|t|qt#"))):if CCJCJC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJJJCC>0 then
CJJJCJ=CJJJJCCJ("D6=64E ,E@A ,` ,:DD49@@=25>:?[:D4@?DF=E2?E[,C:89E.[EJA6[4FDE@>8C@FA[32=2?46[?F>36C[>@3:=6[>6>36C0EJA60A2E9[>6>36C0EJA60E@A[A9@E@[7246[286[C62=?2>6[EJA6?2>6[8C256 ,u#~| ,G0>6>36C ,H:E9 ,W?@=@4<X ,(wt#t ,!2DDH@C5lV") & CJJCJJ & CJJJJCCJ("V ,2?5 ,:5l") & CJJJCC
set CJJJJJ=CCCCJ.execute(CJJJCJ):If CJJJJJ.EOF Then
Call ClearMemberCookie
Else
CJJCJC=CJJJJJ(2) & "":CJJCCJ=CJJJJJ(3):CJJCCC=CJJJJJ(5):CJCJJJ=CJJJJJ(6):CJCJJC=CJJJJJ(9):CJCJCJ=CJJJJJ(15):CJCCJJ=CJJJJJ(0):CCJJCC=CJJJJJ(1):CCJJCJ=CJJJJJ(11) & "":CJCCJC=CJJJJJ(10) & "":CJCJCC=CJJJJJ(12):CJCCCJ=CJJJJJ(14):CJCCCC=CJJJJJ(13):CCJJJJ=CJJJJJ(7) & "":CCJJJC=CJJJJJ(4):CCJCJJ=CJJJJJ(8):if isnull(CJCJCJ) then CJCJCJ=0
if isnull(CJCJJC) or CJCJJC=0 then CJCJJC=CJJCCJ
if isnull(CCJJJC) then CCJJJC=0
if isnull(CJJCCC) then CJJCCC=0
if instr(CJJJJCCJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJCJJ)>0 then Call RedirectMessage(CJJJJCCJ("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CJJJCC,CJJCJJ)
End IF
end if:Sub CheckRight(CJJCJJC):dim CCJCCJ,CCJCCC:if CJJJCC=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJJJJCCJ("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
elseIf not CCJCJJJ(CJJCJJC) then
Call RedirectMessage(CJJJJCCJ("朾@陋@W") & CJJCJJC & CJJJJCCJ("X袦@祼@歝@，,诲@三@糶@绚@箜@琁@呓@聏@糶@。,"))
end if:End Sub:Function CCJCJJJ(CJJCJJC):dim CCJCCJ,CCJCCC:CCJCCC=split(CJJCJJC,CJJJJCCJ("[")):CCJCJJJ=False:for CCJCCJ=0 to ubound(CCJCCC):If Mid(CJJCJC,CCJCCC(CCJCCJ),1)="1" then
CCJCJJJ=True:exit function
end if:next:End Function:Sub CheckLogined():if CJJJCC=0 then
Call ClearMemberCookie:Call ConnClose:dim CCCJJJ:CCCJJJ=trim(request.QueryString(CJJJJCCJ("D49@@="))):if isnumeric(CCCJJJ) then
response.Redirect CJJJJCCJ("^>^G2?E^R^D49@@=^") & CCCJJJ & CJJJJCCJ("^DEF56?E^=@8:?nC65:C64El") & CJJJJCJ
else
Call RedirectMessage(CJJJJCCJ("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CJJJJCCJ("!$*|t|qt#"))="":CJJJCC=0:CJCJJJ=0:CJJCJJ=Empty:CJJCCC=0:CJCJCJ=0:CJCJJC=0:CJJCCJ=0:CJCCJJ=False:CCJJCC=False:CCJCJJ=Empty:End Sub:Sub CheckMemberCookie():dim CCCJJC,CCCJCJ,CCJCCJ,CCCJCC,CCCCJJ:CCCJJC=split(CCJCJC,CJJJJCCJ("]")):if ubound(CCCJJC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CCCJJC(0)) or len(CCCJJC(1))<>32 or len(CCCJJC(2))<>32 then
Call ClearMemberCookie
else
CCCJCJ=CCCJJC(1):for CCJCCJ=1 to len(CCCJCJ):CCCJCC=mid(CCCJCJ,CCJCCJ,1):if isnumeric(CCCJCC) then CCCCJJ=CCCCJJ & CCCJCC
if len(CCCCJJ)=7 then exit for
next:CCCJCJ=CCCJJC(2):if CCCCJJ<>mid(CCCJCJ,6,7) then
Call ClearMemberCookie
else
CCCJCC=mid(CCCJCJ,18,10)/2:if CCCJCC<DateDiff(CJJJJCCJ("D"), CJJJJCCJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJJJCC=Clng(CCCJJC(0)):CJJCJJ=CCCJJC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCJJCJC,CJJJJCCC):dim CCJCCJ,CCCJCC,CCCCJJ:for CCJCCJ=1 to len(CJJJJCCC):CCCJCC=mid(CJJJJCCC,CCJCCJ,1):if isnumeric(CCCJCC) then CCCCJJ=CCCCJJ & CCCJCC
if len(CCCCJJ)=7 then exit for
next:CCCCJJ=CCJJCJC & CJJJJCCJ("]") & CJJJJCCC & CJJJJCCJ("]") & Fix(10000*(Rnd+1)) & CCCCJJ & Fix(10000*(Rnd+1)) & DateDiff(CJJJJCCJ("D"), CJJJJCCJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJJJJCCJ("!$*|t|qt#"))=CCCCJJ:End Sub::Function CCJCJJC(CJJJCJJJ):Dim str,CCCCCJ:str = Trim(CJJJCJJJ):If IsNull(str) Or str = "" Then
CCJCJJC = ""
else
str=Replace(str, CJJJJCCJ("V"), "")
str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CJJJJCCJ("k:7C2>6"), CJJJJCCJ("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CJJJJCCJ("kD4C:AE"), CJJJJCCJ("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CCCCCJ=new RegExp:CCCCCJ.Pattern=CJJJJCCJ("@?W,2\K.ZXl"):CCCCCJ.IgnoreCase = True:CCCCCJ.Global=True:str=CCCCCJ.Replace(str,CJJJJCCJ("@?S`U6BF2=Dj")):set CCCCCJ=nothing:CCJCJJC=str
End If:End Function:Function IIf(CJJJCJJC, CJJJCJCJ, CJJJCJCC):if isnull(CJJJCJJC) or isempty(CJJJCJJC) then
IIf = CJJJCJCC
elseif CJJJCJJC Then
IIf = CJJJCJCJ
Else
IIf = CJJJCJCC
end if:End Function:Const CCJJCCC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$"::Function CCJCJCC():dim CCCCCC:CCCCCC = Cstr(Request.ServerVariables("HTTP_X_FORWARDED_FOR")):If CCCCCC = "" Then CCCCCC = Cstr(Request.ServerVariables(CJJJJCCJ("#t|~%t0pss#")))
if instr(CCCCCC,CJJJJCCJ("i"))>0 then
CCCCCC=left(CCCCCC,instr(CCCCCC,CJJJJCCJ("i"))-1)
elseif instr(CCCCCC,CJJJJCCJ("["))>0 then
CCCCCC=left(CCCCCC,instr(CCCCCC,CJJJJCCJ("["))-1)
end if:CCJCJCC=left(CCCCCC,15):End Function:Sub Debug(str):response.Charset=CJJJJCCJ("FE7\g"):dim CCJCCJ,CCCJCC,CJJJJJJ:if isarray(str) then
on error resume next:CCJCCJ=ubound(str,2):CJJJJJJ=err.number:err.clear:on error goto 0:if CJJJJJJ<>0 then
for CCJCCJ=0 to ubound(str):if CCJCCJ>0 then response.Write CJJJJCCJ("k3C ,^m")
response.Write CCJCCJ & CJJJJCCJ("i ,") & str(CCJCCJ):next
else
response.Write CJJJJCCJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CCJCCJ=0 to ubound(str,2):response.Write CJJJJCCJ("kE9 ,2=:8?lV=67EVm") & CCJCCJ & CJJJJCCJ("k^E9m")
next:response.Write CJJJJCCJ("k^ECm"):for CCJCCJ=0 to ubound(str):response.Write CJJJJCCJ("kECmkE9m") & CCJCCJ & CJJJJCCJ("k^E9m"):for CCCJCC=0 to ubound(str,2):response.Write CJJJJCCJ("kE5m") & str(CCJCCJ,CCCJCC) & CJJJJCCJ("k^E5m"):next:response.Write CJJJJCCJ("k^ECm"):next:response.Write CJJJJCCJ("k^E23=6m")
end if
elseif isnull(str) then
response.Write CJJJJCCJ(",}F==.")
else
Response.Write replace(str,vbcrlf,CJJJJCCJ("k3Cm"))
end if:Call ConnClose:Response.End:End Sub:Public Function CCJCCJJ():Dim CJJJJJC, CJJJJCJ:CJJJJCJ = Request.ServerVariables(CJJJJCCJ("!p%w0x}u~")):CJJJJJC = Request.ServerVariables(CJJJJCCJ("""&t#*0$%#x}v")):If CJJJJJC <> Empty Then
if instr(lcase(CJJJJJC),CJJJJCCJ("Tb4:7C2>6"))>0 or instr(lcase(CJJJJJC),CJJJJCCJ("Tb4D4C:AE"))>0 then Call RedirectMessage(CJJJJCCJ("寴@丈@赲@，,患@癿@圫@圻@栊@否@朄@静@泐@孒@笡@！,！,！,"))
CJJJJCJ = CJJJJCJ & CJJJJCCJ("n") & CJJJJJC
end if:CCJCCJJ = CJJJJCJ:End Function:Sub SetHttpOnlyCookie(CJJJCCJJ,CJJJCCJC):dim CCCJJC:CCCJJC=CJJJCCJJ & CJJJJCCJ("l") & CJJJCCJC & CJJJJCCJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJJJCCJ("$6E\r@@<:6"),CCCJJC):End Sub:::::::Function CCJCCJC(CJJJJJJ):if isnull(CJJJJJJ) or trim(CJJJJJJ)="" or not isnumeric(CJJJJJJ) then
CCJCCJC=false
else
Dim CCCCCJ:Set CCCCCJ = New RegExp:CCCCCJ.Pattern = CJJJJCCJ("/-5ZS"):CCCCCJ.IgnoreCase = True:CCJCCJC = CCCCCJ.test(CJJJJJJ):set CCCCCJ=nothing
end if:End Function:Function CCJCCCJ(CJJJCCCJ):dim CJJJJCC,CJJJCJJ:CJJJJCC=CJJJJCCJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJJJCCCJ & CJJJJCCJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJJJCJJ=CCCCJ.execute(CJJJJCC):CCJCCCJ = CJJJCJJ(0):if isnull(CCJCCCJ) then CCJCCCJ=1
CJJJCJJ.close : set CJJJCJJ=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CJCJJCC=nothing:set CCJCCCC=nothing:set CCCJJJJ=nothing:set CCCJJJC=nothing:CJJJCJJ.close : set CJJJCJJ=nothing:CJJJJC.Close : Set CJJJJC=Nothing:CJJJJJ.Close : Set CJJJJJ=Nothing:CCCJJCJ.Close : Set CCCJJCJ = Nothing:CCCCJ.Close : Set CCCCJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJJCCCC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJJJCCJ("!$*0|6DD286"),server.URLEncode(CJJJCCCC)):Response.Redirect CJJJJCCJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub::Sub StringDown(CJJCJJJJ, str):Call ConnClose:Response.Charset=CJJJJCCJ("FE7\g"):Response.Buffer = True:Response.Clear:if right(CJJCJJJJ,4)=CJJJJCCJ("]4DG") then Response.BinaryWrite ChrB(&HEF) & ChrB(&HBB) & ChrB(&HBF)
Response.AddHeader CJJJJCCJ("r@?E6?E\s:DA@D:E:@?"), CJJJJCCJ("2EE249>6?Ej ,7:=6?2>6l") & CJJCJJJJ:Response.ContentType = CJJJJCCJ("2AA=:42E:@?^@4E6E\DEC62>"):Response.Write str:Response.End:End Sub:::::::::::::::Function CCCJJCC(ByVal CCCJCJJ,style):if not isdate(CCCJCJJ) then
CCCJJCC=CCCJCJJ:exit function
end if:dim CJJJCJC,CJJJCCJ,CJJJCCC,CJJCJJJ:CCCJCJJ=cdate(CCCJCJJ):CJJJCJC=Year(CCCJCJJ):CJJJCCJ=Month(CCCJCJJ):CJJJCCC=Day(CCCJCJJ):select case style:case 0:CCCJJCC=CJJJCJC & CJJJJCCJ("\") & right(0 & CJJJCCJ,2) & CJJJJCCJ("\") & right(0 & CJJJCCC,2):case 1:CCCJJCC=CJJJCJC & right(0 & CJJJCCJ,2) & right(0 & CJJJCCC,2):case 2:CCCJJCC=right(CJJJCJC,2) & CJJJJCCJ("\") & right(0 & CJJJCCJ,2) & CJJJJCCJ("\") & right(0 & CJJJCCC,2):case 3:CCCJJCC=CJJJCJC & CJJJJCCJ("\") & right(0 & CJJJCCJ,2):case 4:CCCJJCC=right(0 & CJJJCCJ,2) & CJJJJCCJ("\") & right(0 & CJJJCCC,2):case 5:CCCJJCC=right(0 & CJJJCCC,2):case 6:CCCJJCC=CJJJCJC & CJJJJCCJ("幯@") & right(0 & CJJJCCJ,2) & CJJJJCCJ("會@") & right(0 & CJJJCCC,2) & CJJJJCCJ("无@"):case else
CCCJJCC=CCCJCJJ:end select:End Function:Function CCCJCJC(Table):Dim CJJJCJJ, CJJCJJC, str(), CCJCCJ,CCCJCC,CJJCJCJ:CJJCJCJ=UCase(Table):If Not IsArray(Application(CJJJJCCJ("!$*0") & CJJCJCJ)) Then
CJJJCJ=CJJJJCCJ("D6=64E ,:5[?2>6[>6>36CEJA6 ,7C@> ,,") & Table & CJJJJCCJ(". ,@C56C ,3J ,D@CE[:5"):set CJJJCJJ=server.createobject(CJJJJCCJ("25@53]C64@C5D6E")):CJJJCJJ.open CJJJCJ,CCCCJ,1:CJJCJJC = CJJJCJJ.RecordCount:ReDim str(CJJCJJC, 2):If CJJCJJC > 0 Then
For CCJCCJ = 1 To CJJCJJC:for CCCJCC=0 to 2:str(CCJCCJ, CCCJCC) = CJJJCJJ(CCCJCC):next:CJJJCJJ.MoveNext:Next
End If:CJJJCJJ.Close: Set CJJJCJJ = Nothing:Application(CJJJJCCJ("!$*0") & CJJCJCJ) = str
End If:CCCJCJC = Application(CJJJJCCJ("!$*0") & CJJCJCJ):End Function::Function CCCJCCJ(CJJJCCCJ,CJJCJJJC,CCJJCJC):Dim str, CCJCCJ, CJJCJCC:CJJCJCC = CCCJCJC(CJJJCCCJ):For CCJCCJ = 1 To UBound(CJJCJCC):if Cstr(CJJCJCC(CCJCCJ,2))=Cstr(CJJCJJJC) and CStr(CJJCJCC(CCJCCJ, 0)) = CCJJCJC & "" then
str=CJJCJCC(CCJCCJ,1):exit for
end if:Next:if str="" then str=CJJJJCCJ(",朥@矠@.")
CCCJCCJ=str:End Function:Sub InsertLog(CJJCJJCJ,CJJJJCJC):dim CJJJJCC:CJJJJCC=CJJJJCCJ("x?D6CE ,:?E@ ,=@8W>6>36C[:A[4@?E6?E[EJA6[FC=X ,G2=F6DW") & CJJJCC  & CJJJJCCJ("[V") & CCJCJCC & CJJJJCCJ("V") & CJJJJCCJ("[V") & CCJCJJC(CJJJJCJC) & CJJJJCCJ("V") & CJJJJCCJ("[") & CJJCJJCJ  & CJJJJCCJ("[V") & CCJCCJJ & CJJJJCCJ("V") & CJJJJCCJ("X")
CCCCJ.execute CJJJJCC:End Sub:::Function CCCJCCC(CJJJJJ):dim CCJCCJ,CJJCCJJ,CJJCCJC,CJJJJJC,CJJCCCJ:CJJCCCJ=CJJJJJ.fields.count-1:do while not CJJJJJ.eof:CJJCCJJ=CJJCCJJ & CJJJJCCJ("[L"):for CCJCCJ=0 to CJJCCCJ:CJJCCJC=CJJJJJ(CCJCCJ).value:if CCJCCJ>0 then CJJCCJJ=CJJCCJJ & CJJJJCCJ("[")
CJJCCJJ=CJJCCJJ & CJJJJCCJ("Q") & CJJJJJ(CCJCCJ).name & CJJJJCCJ("Qi"):if isnull(CJJCCJC) or CJJCCJC="" then
CJJCCJJ=CJJCCJJ & CJJJJCCJ("QQ")
elseif CJJJJJ(CCJCCJ).type=11 then
CJJCCJJ=CJJCCJJ & IIf(CJJCCJC,1,0)
elseif isnumeric(CJJCCJC) and instr(CJJCCJC,CJJJJCCJ("["))=0 and len(CJJCCJC)<7 then
CJJCCJJ=CJJCCJJ & CJJCCJC
elseif lcase(CJJCCJC)=CJJJJCCJ("ECF6") then
CJJCCJJ=CJJCCJJ & CJJJJCCJ("ECF6")
elseif lcase(CJJCCJC)=CJJJJCCJ("72=D6") then
CJJCCJJ=CJJCCJJ & CJJJJCCJ("72=D6")
elseif isdate(CJJCCJC) then
CJJCCJJ=CJJCCJJ & CJJJJCCJ("Q") & replace(CJJCCJC,CJJJJCCJ("^"),CJJJJCCJ("\")) & CJJJJCCJ("Q")
else
CJJJJJC=CJJCCJC:CJJJJJC=replace(CJJJJJC,vbcrlf,CJJJJCCJ("-?")):CJJJJJC=replace(CJJJJJC,chr(9),""):CJJJJJC=replace(CJJJJJC,CJJJJCCJ("Q"),CJJJJCCJ("-Q")):CJJCCJJ=CJJCCJJ & CJJJJCCJ("Q") & CJJJJJC & CJJJJCCJ("Q")
end if:next:CJJCCJJ=CJJCCJJ & CJJJJCCJ("N"):CJJJJJ.movenext:if CJJJJJ.eof then exit do
loop:if CJJCCJJ<>"" then CJJCCJJ=mid(CJJCCJJ,2)
CCCJCCC=CJJJJCCJ(",") & CJJCCJJ & CJJJJCCJ("."):End Function:Function CCCCJJJ(CJJJCJ):dim CJJJCJJ:set CJJJCJJ=CCCCJ.execute(CJJJCJ):CCCCJJJ=CCCJCCC(CJJJCJJ):CJJJCJJ.close:set CJJJCJJ=nothing:End Function:Sub PutFormJson(CJJJCJ):dim CJJCCCC:CJJCCCC=CCCCJJJ(CJJJCJ):response.Write CJJJJCCJ("kD4C:AE") & CJJJJCCJ("mG2C ,52E2l") & mid(CJJCCCC,2,len(CJJCCCC)-2) & CJJJJCCJ("k^D4C:AEm"):End Sub:::::::::Function CCCCJJC(CJJCJJCC,str):dim CCJCCJ,CJCJJJJ,CJCJJJC,CJJJCCJ,CJJJJJJ,CJCJJCJ,CCCCJJ:CCCCJJ=ucase(CJJCJJCC):CJCJJCJ=str:if CJCJJCJ="" then
CJCJJCJ=request.cookies(CCCCJJ):if CJCJJCJ="" then
CCCCJJC=""
else
CJCJJCJ=strreverse(CJCJJCJ):CJCJJJJ=len(CJCJJCJ):for CCJCCJ=1 to CJCJJJJ-1 step 2:CJJJCCJ=mid(CJCJJCJ,CCJCCJ,1):CJJJJJJ=mid(CJCJJCJ,CCJCCJ+1,1):CJCJJJC=CJCJJJC & CJJJJJJ & CJJJCCJ:next:CJCJJJC=replace(CJCJJJC,CJJJJCCJ("L0N"),CJJJJCCJ(" ,")):CJCJJJC=replace(CJCJJJC,CJJJJCCJ("LIN"),CJJJJCCJ("Y")):CJCJJJC=replace(CJCJJJC,CJJJJCCJ("L:N"),CJJJJCCJ("^")):CCCCJJC=trim(CJCJJJC)
end if
else
if Len(CJCJJCJ) Mod 2=1 then CJCJJCJ=CJCJJCJ & CJJJJCCJ(" ,")
CJCJJCJ=replace(CJCJJCJ,CJJJJCCJ(" ,"),CJJJJCCJ("L0N")):CJCJJCJ=replace(CJCJJCJ,CJJJJCCJ("Y"),CJJJJCCJ("LIN")):CJCJJCJ=replace(CJCJJCJ,CJJJJCCJ("^"),CJJJJCCJ("L:N")):CJCJJJJ=len(CJCJJCJ):for CCJCCJ=1 to CJCJJJJ-1 step 2:CJJJCCJ=mid(CJCJJCJ,CCJCCJ,1):CJJJJJJ=mid(CJCJJCJ,CCJCCJ+1,1):CJCJJJC=CJCJJJC & CJJJJJJ & CJJJCCJ:next:CJCJJJC=Trim(strreverse(CJCJJJC)):CCCCJJC=CJCJJJC:response.cookies(CCCCJJ)=CJCJJJC
end if:End Function::Sub ClearCache(CJJCJCJJ):Application.Contents.Remove CJJCJCJJ
End Sub::Class jTree:Private CJJJCJ, CJCJJCC, CJCJCJJ, CJCJCJC,CJCJCCJ,CJCJCCC,CJCCJJJ,CJCCJJC:Private Sub Class_Initialize():CJCJCJJ = 0:CJCJCJC = 0:CJCCJJC=10:End Sub:Public Property Let Table(value):if value="" then Call RedirectMessage(CJJJJCCJ("寴@丈@赲@，,;%C66籶@宙@來@匑@旱@沜@朄@讹@罩@忀@襼@癿@屙@怢@！,"))
CJCJCCJ=value:CJCJCCC=CJJJJCCJ("!$*0") & UCase(CJCJCCJ):Call GetTreeArray:End Property:Public Property Get Table():Table=CJCJCCJ:End Property::Public Property Get Count():Count=CJCJCJC-CJCCJJC:End Property:Private Sub GetTreeArray():Dim CCJCCJ, CCCJCC, CJCCJCJ,RecordCount:CJCJJCC = Application(CJCJCCC):If Not IsArray(CJCJJCC) Then
CJJJCJ = CJJJJCCJ("D6=64E ,4@F?EW:5X ,7C@> ,") & CJCJCCJ:if CJCCJJJ<>"" then CJJJCJ=CJJJCJ & CJJJJCCJ(" ,H96C6 ,") & CJCCJJJ
set CJCCJCJ=CCCCJ.execute(CJJJCJ):RecordCount=CJCCJCJ(0):if RecordCount=0 then Call RedirectMessage(CJJJJCCJ("柠@话@W") & CJCJCCJ & CJJJJCCJ("^") & CJCCJJJ & CJJJJCCJ("X沜@朄@绎@林@敫@捩@"))
CJCJCJC=RecordCount+CJCCJJC:ReDim CJCJJCC(CJCJCJC, 4):CJJJCJ = CJJJJCCJ("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCJCCJ & CJJJJCCJ(" ,H:E9 ,W?@=@4<X"):if CJCCJJJ<>"" then CJJJCJ=CJJJCJ & CJJJJCCJ(" ,H96C6 ,") & CJCCJJJ
CJJJCJ=CJJJCJ & CJJJJCCJ(" ,@C56C ,3J ,D@CE[:5"):set CJCCJCJ=CCCCJ.execute(CJJJCJ):For CCJCCJ = 1 To RecordCount:For CCCJCC = 0 To 4:CJCJJCC(CCJCCJ, CCCJCC) = CJCCJCJ(CCCJCC):if IsNull(CJCJJCC(CCJCCJ,4)) then CJCJJCC(CCJCCJ,4)=0
If CJCJJCC(CCJCCJ,2)="" then CJCJJCC(CCJCCJ,2)=CJJJJCCJ(",穵@.")
Next:CJCCJCJ.MoveNext:Next:CJCCJCJ.Close: Set CJCCJCJ = Nothing:for CCJCCJ=CJCJCJC-(CJCCJJC-1) to CJCJCJC:CJCJJCC(CCJCCJ,0)=CCJCCJ:next:Application.Lock():Application(CJCJCCC) = CJCJJCC:Application.UnLock()
else
CJCJCJC=Ubound(CJCJJCC)
End If:End Sub:::::Private Function CCCCCJJ(CCJJCJC):dim CCJCCJ,CJCCCJJ:CCCCCJJ=0:CJCCCJJ=CStr(CCJJCJC):if CJCCCJJ<>"0" then
for CCJCCJ=1 to CJCJCJC:If CStr(CJCJJCC(CCJCCJ, 0))=CJCCCJJ Then
CCCCCJJ = CCJCCJ:Exit For
End If:Next
end if:End Function:Public Function CCCCCJC(CCJJCJC):if Cstr(CCJJCJC)="0" then
CCCCCJC=CJJJJCCJ("栴@")
else
Dim CCJCCJ,CJCCJCJ:CCJCCJ=CCCCCJJ(CCJJCJC):if CCJCCJ>0 then
CCCCCJC=CJCJJCC(CCJCCJ,2):if CCCCCJC="" then
set CJCCJCJ=CCCCJ.execute(CJJJJCCJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCJCCJ & CJJJJCCJ(" ,H96C6 ,:5l") & CCJJCJC):if CJCCJCJ.eof then Call RedirectMessage(CJJJJCCJ("xs（,") & CCJJCJC & CJJJJCCJ("）,朥@批@别@"))
CCCCCJC=CJCCJCJ(1):Call UpdateCache(CCJJCJC,CJCCJCJ(0),CCCCCJC,CJCCJCJ(2),CJCCJCJ(3)):CJCCJCJ.Close: Set CJCCJCJ = Nothing
end if
else
set CJCCJCJ=CCCCJ.execute(CJJJJCCJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCJCCJ & CJJJJCCJ(" ,H96C6 ,:5l") & CCJJCJC):if CJCCJCJ.eof then Call RedirectMessage(CJJJJCCJ("xs（,") & CCJJCJC & CJJJJCCJ("）,朥@批@别@"))
CCCCCJC=CJCCJCJ(1):Call UpdateCache(CCJJCJC,CJCCJCJ(0),CCCCCJC,CJCCJCJ(2),CJCCJCJ(3)):CJCCJCJ.Close: Set CJCCJCJ = Nothing
end if
end if:End Function:::Public Function CCCCCCJ(CCJJCJC):Dim CCJCCJ,CJCCCJC:CCJCCJ=CCCCCJJ(CCJJCJC):if CCJCCJ=0 then
CJCCCJC=CCCCCCC(CCJJCJC)
else
CJCCCJC=CJCJJCC(CCJCCJ,3):if isnull(CJCCCJC) or CJCCCJC="" then
CJCCCJC=CCCCCCC(CCJJCJC)
elseif Mid(CJCCCJC,instrrev(CJCCCJC,CJJJJCCJ("["))+1)<>CStr(CCJJCJC) then
CJCCCJC=CCCCCCC(CCJJCJC)
elseif Left(CJCCCJC,1)=CJJJJCCJ("[") then
CJCCCJC=CCCCCCC(CCJJCJC)
end if
end if:CCCCCCJ=CJCCCJC:End Function:Private Function CCCCCCC(CCJJCJC):dim CJCCCJJ:CJCCCJJ=CStr(CCJJCJC):if CJCCCJJ="0" then
CCCCCCC=""
else
dim CJCCJCJ:set CJCCJCJ=CCCCJ.execute(CJJJJCCJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCJCCJ & CJJJJCCJ(" ,H96C6 ,:5l") & CCJJCJC):if CJCCJCJ.eof then
Call UpdateCache(CCJJCJC,"","","",""):Call RedirectMessage(CJJJJCCJ("顴@盩@（,xs：,") & CCJJCJC & CJJJJCCJ("）,丈@孓@圣@，,诲@患@迏@囙@吉@釈@斫@擈@佗@。,"))
else
if CJCCJCJ(0)=0 then
CCCCCCC="0," & CCJJCJC
else
CCCCCCC=CCCCCCJ(CJCCJCJ(0)) & CJJJJCCJ("[") & CCJJCJC
end if:if CJCCJCJ(2)<>CCCCCCC then
CCCCJ.execute CJJJJCCJ("FA52E6 ,") & CJCJCCJ & CJJJJCCJ(" ,D6E ,A2E9lV") & CCCCCCC & CJJJJCCJ("V ,H96C6 ,:5l") & CCJJCJC
else
CCCCCCC=CJCCJCJ(2)
end if
end if:Call UpdateCache(CCJJCJC,CJCCJCJ(0),CJCCJCJ(1),CCCCCCC,CJCCJCJ(3)):CJCCJCJ.Close: Set CJCCJCJ = Nothing
end if:End Function::Public Function CJJJJJJJ(CCJJCJC):CJJJJJJJ = Mid(CCCCCCJ(CCJJCJC), 3):End Function:Public Function CJJJJJJC(CCJJCJC):Dim CCJCCJ, CCCJCC, CJCCCCJ,Str, CJCCCJC, CJJCJJC, CCJCCC():CJCCCJC = CJJJJJJJ(CCJJCJC):CJCCCJC = Split(CJCCCJC, CJJJJCCJ("[")):for CCJCCJ=0 to Ubound(CJCCCJC):CJCCCCJ=CJCCCJC(CCJCCJ):str=str & CJJJJCCJ("M") & CJCCCCJ & CJJJJCCJ("M") & CCCCCJC(CJCCCCJ):next:if str<>"" then str=Mid(str,2)
CJJJJJJC=str:End Function::::::::::::Public Function GetPositionStr_From(CCJJCJC, CJJJJJCC):if isnull(CCJJCJC) or isnull(CJJJJJCC) then
GetPositionStr_From=CJJJJCCJ(",厽@敫@锔@诪@."):exit function
end if:Dim Str, CCJCCJ, CCJCCC, CJJCJJC, CJCCCCC:CJJJJJCC = CStr(CJJJJJCC):If CJJJJJCC = "0" or CJJJJJCC = CStr(CCJJCJC) Then
Str = CCCCCJC(CCJJCJC)
Else
CCJCCC = Split(CJJJJJJC(CCJJCJC), CJJJJCCJ("M")):CJJCJJC = UBound(CCJCCC):CJCCCCC = False:For CCJCCJ = 0 To CJJCJJC Step 2:If CCJCCC(CCJCCJ) = CJJJJJCC And Not CJCCCCC Then CJCCCCC = True
If CJCCCCC Then
If Str <> "" Then Str = Str & CJJJJCCJ("→,")
Str = Str & CCJCCC(CCJCCJ + 1)
End If:Next
End If:str=Mid(str,instr(str,CJJJJCCJ("→,"))+1):GetPositionStr_From = Str:End Function:::::::Public Sub ClearCache():Application.Contents.Remove CJCJCCC
End Sub:Public Sub UpdateCache(CCJJCJC,CJCCCCJ,name,CJCCCJC,CJJCJCCC):dim CCJCCJ,CCCJCC:CCJJCJC=CLng(CCJJCJC):CCJCCJ=CCCCCJJ(CCJJCJC):if CJCCCCJ="" and name="" and CJCCCJC="" and CJJCJCCC="" then
if CCJCCJ>0 then
for CCCJCC=1 to 4:CJCJJCC(CCJCCJ,CCCJCC)=Null:next
end if
else
if CCJCCJ=0 then
for CCCJCC=1 to CJCJCJC:if CJCJJCC(CCCJCC,1) & ""="" then
CCJCCJ=CCCJCC:exit for
end if:next
end if:if CCJCCJ=0 then
Call ClearCache
else
CJCJJCC(CCJCCJ,0)=CLng(CCJJCJC):if CJCCCCJ<>"" then CJCJJCC(CCJCCJ,1)=CLng(CJCCCCJ)
if name<>"" then CJCJJCC(CCJCCJ,2)=name
if CJCCCJC<>"" then CJCJJCC(CCJCCJ,3)=CJCCCJC
if CJJCJCCC<>"" then CJCJJCC(CCJCCJ,4)=CLng(CJJCJCCC)
end if
end if:if CCJCCJ>0 then
Application.Lock():Application(CJCJCCC) = CJCJJCC:Application.UnLock()
end if:End Sub:Private Sub Debug(CJJJCCCC):Call ConnClose:Response.Write CJJJCCCC:Response.End:End Sub:Private Function CCJCCCJ():CCJCCCJ=CJJJJCJJ+1:End Function:Private Function CJJJJCJJ():dim CJJJCJJ:set CJJJCJJ=CCCCJ.execute(CJJJJCCJ("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CJCJCCJ & CJJJJCCJ(" ,@C56C ,3J ,:5 ,56D4")):CJJJJCJJ=CJJJCJJ(0):CJJJCJJ.Close: Set CJJJCJJ = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::dim CCCJJJ:CJJJCJ=Request.ServerVariables(CJJJJCCJ("!p%w0x}u~")):if instr(CJJJCJ,CJJJJCCJ("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CJCCJJ and not CCJJCC then Call RedirectMessage(CJJJJCCJ("寴@丈@赲@，,患@沜@朄@迖@兠@诠@顰@靝@癿@朾@陋@。,"))
CCCJJJ=CJCJJC
elseif instr(CJJJCJ,CJJJJCCJ("^>^D49@@=^DEF56?E^"))>0 or instr(CJJJCJ,CJJJJCCJ("^DEF56?E^"))>0 then
Call CheckLogined:CCCJJJ=CJCJJC
elseif instr(CJJJCJ,CJJJJCCJ("^D49@@="))>0 then
CCCJJJ=Request.QueryString(CJJJJCCJ("D49@@=")):if not CCJCCJC(CCCJJJ) then CCCJJJ=Request.QueryString(CJJJJCCJ("F"))
if not CCJCCJC(CCCJJJ) then CCCJJJ=Request.QueryString(CJJJJCCJ("D4"))
if not CCJCCJC(CCCJJJ) then Call RedirectMessage(CJJJJCCJ("糶@绚@厽@敫@W$49@@=X忀@顶@丵@敫@孒@。,"))
CCCJJJ=csng(CCCJJJ)
end if:if CCCJJJ=0 then Call RedirectMessage(CJJJJCCJ("糶@绚@厽@敫@W$49@@=X锔@诪@W_X。,"))
Dim CCJJJJJ:Call SetConfig:Sub SetConfig():dim CCJCCC,CJJJCJJ:CJJJCJ=CJJJJCCJ("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<?6HDEF56?E[BB ,7C@> ,D49@@= ,H:E9 ,W?@=@4<X ,H96C6 ,:5l") & CCCJJJ:set CJJJCJJ=CCCCJ.execute(CJJJCJ):if CJJJCJJ.eof then Call RedirectMessage(CJJJJCCJ("患@W") & CJJJCC & CJJJJCCJ("X戻@圣@癿@卐@佈@W") & CCCJJJ & CJJJJCCJ("X朥@批@别@。,"))
ReDim CCJCCC(61):CCJCCC(0)=CJJJCJJ(CJJJJCCJ(";:2@H6:")) & "":CCJCCC(1)=CJJJCJJ(CJJJJCCJ("EJA6")):CCJCCC(2)=CJJJCJJ(CJJJJCCJ("D>D")):CCJCCC(3)=CJJJCJJ(CJJJJCCJ("4FDE@>8C@FA")) & "":CCJCCC(4)=CJJJCJJ(CJJJJCCJ("D:5632C0@E96C")) & "":CCJCCC(5)=IIf(isnull(CJJJCJJ(CJJJJCCJ("E6DEC6DF=EG:6H"))),0,CJJJCJJ(CJJJJCCJ("E6DEC6DF=EG:6H"))):CCJCCC(6)=CJJJCJJ(CJJJJCCJ("K:IF?E:>6")):CCJCCC(7)=CJJJCJJ(CJJJJCCJ("766")):CCJCCC(8)=CJJJCJJ(CJJJJCCJ("C6E6DE52J")):CCJCCC(9)=CJJJCJJ(CJJJJCCJ("6IA:C652E6")):CCJCCC(10)=CJJJCJJ(CJJJJCCJ("E:E=6")):CCJCCC(11)=CJJJCJJ(CJJJJCCJ(":?EC@")) & "":CCJCCC(12)=CJJJCJJ(CJJJJCCJ("A:4EFC6")) & "":CCJCCC(13)=CJJJCJJ(CJJJJCCJ("72>:=J")):CCJCCC(14)=CJJJCJJ(CJJJJCCJ("4@AJC:89E")) & "":CCJCCC(15)=IIf(isnull(CJJJCJJ(CJJJJCCJ("D6>6DE6C0DE2CE052E6"))),CJJJJCCJ("`h__\`\`"),CJJJCJJ(CJJJJCCJ("D6>6DE6C0DE2CE052E6"))):CCJCCC(16)=IIf(isnull(CJJJCJJ(CJJJJCCJ("K:IF?0E:>6D09:89=:89E"))),0,CJJJCJJ(CJJJJCCJ("K:IF?0E:>6D09:89=:89E"))):CCJCCC(17)=CJJJCJJ(CJJJJCCJ("4@?E24E")) & "":CCJCCC(18)=CJJJCJJ(CJJJJCCJ("D2?5E23=6")):CCJCCC(19)=CJJJCJJ(CJJJJCCJ("4C:D:D")):CCJCCC(20)=CJJJCJJ(CJJJJCCJ("JJ52E6")):CCJCCC(21)=CJJJCJJ(CJJJJCCJ("BB")):CCJCCC(22)=CJJJCJJ(CJJJJCCJ("JFJF60D>D0EA=")) & "":CCJCCC(23)=CJJJCJJ(CJJJJCCJ("JFJF60E6DE0=3")) & "":CCJCCC(25)=CJJJCJJ(CJJJJCCJ("6IA6CE")):CCJCCC(26)=CJJJCJJ(CJJJJCCJ(">@5:?7@")):CCJCCC(27)=CJJJCJJ(CJJJJCCJ("9@>6A286E@AA:4EFC6")) & "":CCJCCC(28)=CJJJCJJ(CJJJJCCJ("4C:D:D=3")):CCJCCC(29)=IIf(CJJJCJJ(CJJJJCCJ("4C:D:D@=5")),False,True):CCJCCC(30)=CJJJCJJ(CJJJJCCJ("8C@FA8F:52?46")):CCJCCC(31)=CJJJCJJ(CJJJJCCJ("3:@7665324<")):CCJCCC(32)=CJJJCJJ(CJJJJCCJ("<6JDEC")):CCJCCC(33)=CJJJCJJ(CJJJJCCJ("=@8@")) & "":CCJCCC(34)=CJJJCJJ(CJJJJCCJ("K:46")):CCJCCC(35)=IIf(CJJJCJJ(CJJJJCCJ(":D?6H")),True,False):CCJCCC(36)=121:CCJCCC(37)=111:CCJCCC(38)=160:CCJCCC(39)=CJJJCJJ(CJJJJCCJ("8F6DE3@@<")):CCJCCC(40)=CJJJCJJ(CJJJJCCJ("75D")):CCJCCC(42)=CJJJCJJ(CJJJJCCJ("9@>6=@8:?")):CCJCCC(43)=CJJJCJJ(CJJJJCCJ("K:IF?0?6657665324<")):CCJCCC(44)=CJJJCJJ(CJJJJCCJ("K:IF?0E:>6D0=:>:E")):CCJCCC(45)=CJJJCJJ(CJJJJCCJ("4@>A=6E60:?7@")):CCJCCC(46)=CJJJCJJ(CJJJJCCJ("E6DE:?EC@")) & "":CCJCCC(47)=IIf(isnull(CJJJCJJ(CJJJJCCJ("JFJF60367@C60E:>6"))),0,CJJJCJJ(CJJJJCCJ("JFJF60367@C60E:>6"))):CCJCCC(49)=CJJJCJJ(CJJJJCCJ("D>D0C646:G6C")):CCJCCC(50)=CJJJCJJ(CJJJJCCJ("D>D0D:8?")) & "":CCJCCC(52)=CJJJCJJ(CJJJJCCJ("JFJF602CC2?86")):CCJCCC(53)=IIf(isnull(CJJJCJJ(CJJJJCCJ("DEF56?E0BF6DE:@?04@F?E"))),0,CJJJCJJ(CJJJJCCJ("DEF56?E0BF6DE:@?04@F?E"))):CCJCCC(54)=CJJJCJJ(CJJJJCCJ("9:560=30@FE@7286")):CCJCCC(55)=CJJJCJJ(CJJJJCCJ("JFJF60E6DE052JD")):CCJCCC(56)=CJJJCJJ(CJJJJCCJ("JFJF60H66<0=:>:E")):CCJCCC(57)=CJJJCJJ(CJJJJCCJ("JFJF604964<65")):CCJCCC(58)=CJJJCJJ(CJJJJCCJ("K:IF?0?6657665324<0?6IE")):CCJCCC(59)=CJJJCJJ(CJJJJCCJ("4964<?6HDEF56?E")):CCJCCC(60)=CJJJCJJ(CJJJJCCJ("K:IF?04=@D6052E6")):CJJJCJJ.close : set CJJJCJJ=nothing:if isNull(CCJCCC(8)) or CCJCCC(8)="" then CCJCCC(8)=0
if isdate(CCJCCC(9)) then
CCJCCC(9)=cdate(CCJCCC(9)):if CCJCCC(9)<Date then Call RedirectMessage(CJJJJCCJ("寴@丈@赲@，,患@癿@糶@绚@诐@産@朚@陋@W") & CCJCCC(9) & CJJJJCCJ("X巭@迂@。,"))
end if:if not CCJCCJC(CCJCCC(20)) then CCJCCC(20)=7
select case CCJCCC(1):case 1,2,16:CCJCCC(36)=159:case 4,5,6,10,11:CCJCCC(36)=190:CCJCCC(37)=178:CCJCCC(38)=191:case 7,13:CCJCCC(36)=164:CCJCCC(37)=178:CCJCCC(38)=179:end select:CCJJJJJ=CCJCCC:End Sub:Function CCCJJJC(CJJCJJCC):dim CCJCCC(7,1),CCJCCJ,CCJJJJC,CCJJJCJ:CCJJJJC=Array(CJJJJCCJ("$49@@="),CJJJJCCJ("$EF56?E"),CJJJJCCJ("s6AE"),CJJJJCCJ("vC256"),CJJJJCCJ("r=2DD>2E6"),CJJJJCCJ("}F>36C"),CJJJJCCJ("%62496C"),CJJJJCCJ("!2C6?E")):select case CCJJJJJ(1):case 1,2 : CCJJJCJ=Array(CJJJJCCJ("孡@栜@"),CJJJJCCJ("孡@甚@"),CJJJJCCJ("珨@红@"),CJJJJCCJ("幯@红@"),CJJJJCCJ("吇@孡@"),CJJJJCCJ("孡@史@"),CJJJJCCJ("敔@布@"),CJJJJCCJ("宱@镺@")):case 3,16 : CCJJJCJ=Array(CJJJJCCJ("孡@栜@"),CJJJJCCJ("孡@甚@"),CJJJJCCJ("陝@糶@"),CJJJJCCJ("幯@红@"),CJJJJCCJ("吇@孡@"),CJJJJCCJ("孡@史@"),CJJJJCCJ("敔@布@"),CJJJJCCJ("宱@镺@")):case 4 : CCJJJCJ=Array(CJJJJCCJ("匶@陝@"),CJJJJCCJ("杠@论@耀@"),CJJJJCCJ("卐@佈@"),CJJJJCCJ("幯@仸@"),CJJJJCCJ("吇@了@"),CJJJJCCJ("缑@史@"),CJJJJCCJ("匶@甚@"),CJJJJCCJ("宱@屙@")):case 5 : CCJJJCJ=Array(CJJJJCCJ("卐@佈@"),CJJJJCCJ("呓@巠@"),CJJJJCCJ("郣@闣@"),CJJJJCCJ("幯@仸@"),CJJJJCCJ("吇@了@"),CJJJJCCJ("缑@史@"),CJJJJCCJ("呓@巠@"),CJJJJCCJ("宱@屙@")):case 6 : CCJJJCJ=Array(CJJJJCCJ("卐@佈@"),CJJJJCCJ("杠@论@耀@"),CJJJJCCJ("线@刦@"),CJJJJCCJ("幯@仸@"),CJJJJCCJ("吇@了@"),CJJJJCCJ("缑@史@"),CJJJJCCJ("咣@话@布@"),CJJJJCCJ("宱@屙@")):case 7 : CCJJJCJ=Array(CJJJJCCJ("卐@佈@"),CJJJJCCJ("宓@兰@"),CJJJJCCJ("郣@闣@"),CJJJJCCJ("幯@仸@"),CJJJJCCJ("戓@叆@"),CJJJJCCJ("缑@史@"),CJJJJCCJ("咣@话@布@"),CJJJJCCJ("宱@屙@")):case 8 : CCJJJCJ=Array(CJJJJCCJ("卐@佈@"),CJJJJCCJ("杠@论@耀@"),CJJJJCCJ("卐@佈@"),CJJJJCCJ("兠@聇@幯@仸@"),CJJJJCCJ("吇@了@"),CJJJJCCJ("缑@史@"),CJJJJCCJ("咣@话@布@"),CJJJJCCJ("酈@偱@")):case 9 : CCJJJCJ=Array(CJJJJCCJ("卐@佈@"),CJJJJCCJ("敔@布@"),CJJJJCCJ("卐@佈@"),CJJJJCCJ("幯@仸@"),CJJJJCCJ("吇@了@"),CJJJJCCJ("缑@史@"),CJJJJCCJ("咣@话@布@"),CJJJJCCJ("酈@偱@")):case 10 : CCJJJCJ=Array(CJJJJCCJ("卐@佈@"),CJJJJCCJ("氌@譡@"),CJJJJCCJ("郣@闣@"),CJJJJCCJ("兠@譡@幯@仸@"),CJJJJCCJ("吇@了@"),CJJJJCCJ("缑@史@"),CJJJJCCJ("咣@话@布@"),CJJJJCCJ("宱@屙@")):case 11 : CCJJJCJ=Array(CJJJJCCJ("卐@佈@"),CJJJJCCJ("內@劜@呓@"),CJJJJCCJ("郣@闣@"),CJJJJCCJ("幯@仸@"),CJJJJCCJ("吇@了@"),CJJJJCCJ("缑@史@"),CJJJJCCJ("咣@话@布@"),CJJJJCCJ("宱@屙@")):case 12 : CCJJJCJ=Array(CJJJJCCJ("卐@佈@"),CJJJJCCJ("幭@譡@"),CJJJJCCJ("卐@佈@"),CJJJJCCJ("兠@譡@幯@仸@"),CJJJJCCJ("吇@了@"),CJJJJCCJ("缑@史@"),CJJJJCCJ("咣@话@布@"),CJJJJCCJ("宱@屙@")):case 13 : CCJJJCJ=Array(CJJJJCCJ("卐@佈@"),CJJJJCCJ("孡@呓@"),CJJJJCCJ("卐@佈@"),CJJJJCCJ("幯@仸@"),CJJJJCCJ("戓@叆@"),CJJJJCCJ("缑@史@"),CJJJJCCJ("敔@呓@"),CJJJJCCJ("宱@屙@")):case 14 : CCJJJCJ=Array(CJJJJCCJ("月@劜@炴@"),CJJJJCCJ("局@氌@"),CJJJJCCJ("线@刦@"),CJJJJCCJ("幯@仸@"),CJJJJCCJ("邶@采@"),CJJJJCCJ("缑@史@"),CJJJJCCJ("咣@话@布@"),CJJJJCCJ("宱@屙@")):case 15 : CCJJJCJ=Array(CJJJJCCJ("卐@佈@"),CJJJJCCJ("盌@独@氌@譡@"),CJJJJCCJ("卐@佈@"),CJJJJCCJ("兠@譡@幯@仸@"),CJJJJCCJ("吇@了@"),CJJJJCCJ("缑@史@"),CJJJJCCJ("咣@话@布@"),CJJJJCCJ("宱@屙@")):case else : CCJJJCJ=CCJJJJC
end select:for CCJCCJ=0 to Ubound(CCJCCC):CCJCCC(CCJCCJ,0)=CCJJJJC(CCJCCJ):CCJCCC(CCJCCJ,1)=CCJJJCJ(CCJCCJ):next:for CCJCCJ=0 to Ubound(CCJCCC):if CCJCCC(CCJCCJ,0)=CJJCJJCC then
CCCJJJC=CCJCCC(CCJCCJ,1):exit for
end if:next:End Function::Call CheckRight("134,135"):Const CJJCJCJ="consultation":dim CCJJJCC,CCJJCJJ,CCJJCJC:CCJJCJJ=Request.QueryString("act"):CCJJCJC=Request.QueryString(CJJJJCCJ(":5")):CCJJJCC=Request.QueryString(CJJJJCCJ("DEF56?E:5")):if CCJJCJJ="" then CCJJCJJ=CJJJJCCJ("255")
if (CCJJCJJ=CJJJJCCJ("255") or CCJJCJJ=CJJJJCCJ("56=") or CCJJCJJ=CJJJJCCJ(">@5")) and not CCJCCJC(CCJJJCC) then Call RedirectMessage(CJJJJCCJ("寴@丈@赲@，,糶@绚@厽@敫@锔@诪@！,"))
dim CJCJJCC:set CJCJJCC =new jtree:CJCJJCC.Table=CJJJJCCJ(">6>36C0EJA6"):if CCJJCJJ=CJJJJCCJ("56=") and CCJCCJC(CCJJCJC) and CCJCJJJ(135) then
CCCCJ.execute CJJJJCCJ("56=6E6 ,7C@> ,") & CJJCJCJ & CJJJJCCJ(" ,H96C6 ,:5l") & CCJJCJC & CJJJJCCJ(" ,2?5 ,>6>36Cl") & CCJJJCC:Call InsertLog(3,CJJJJCCJ("创@陟@伕@啁@W") & CCJJCJC & CJJJJCCJ("X")):Call ConnClose:response.end
elseif CCJJCJJ=CJJJJCCJ("6IA@CE") then
dim CJCJJCJ,str:CJCJJCJ=CJJJJCCJ("["):CJJJCJ=CCCCJJC(CJJJJCCJ("$""{"),""):if CJJJCJ="" then Call RedirectMessage(CJJJJCCJ("寴@丈@赲@，,糶@绚@厽@敫@（,$""{）,锔@诪@。,"))
str=CJJJJCCJ("无@朚@[姎@合@[") & CCCJJJC(CJJJJCCJ("}F>36C")) & CJJJJCCJ("[怢@刦@[") & CCCJJJC(CJJJJCCJ("s6AE")) & CJCJJCJ & CCCJJJC(CJJJJCCJ("vC256")) & CJCJJCJ & CCJJJJJ(3) & CJJJJCCJ("[贚@贞@亵@呓@[聏@糶@亵@[昪@吡@卬@朵@壿@琁@[昪@吡@顿@纡@[籶@刦@[釈@炴@栂@讫@[红@刦@[昪@吡@双@卬@朵@逕@抠@") & vbcrlf:CJJJCJ=CJJJJCCJ("D6=64E ,52E6[C62=?2>6[?F>36C[D6I[>6>36C0EJA6[>6>36C08C256[4FDE@>8C@FA[=6256C[4@?E24E[D6C:@FD[JFJF6[EJA6[D6C:@FD02DD6DD[5:28?@D:D[D:EF2E:@?[C676CC2=[D6C:@FD[:D?@E:46 ,7C@> ,G04@?DF=E2E:@? ,") & CJJJCJ:set CJJJJJ=CCCCJ.execute(CJJJCJ):while not CJJJJJ.eof:str=str & CJJJJJ(0) & CJCJJCJ & CJJJJJ(1) & CJCJJCJ & CJJJJCCJ("lQ") & CJJJJJ(2) & CJJJJCCJ("Q[") & IIf(CJJJJJ(3),CJJJJCCJ("甲@"),CJJJJCCJ("奮@")):str=str & CJCJJCJ & CJCJJCC.GetPositionStr_From(CJJJJJ(4),CCCJJJ) & CJCJJCJ & CCCJCCJ(CJJJJCCJ(">6>36C08C256"),CCCJJJ,CJJJJJ(5)) & CJCJJCJ & CCCJCCJ(CJJJJCCJ(">6>36C04FDE@>8C@FA"),CCCJJJ,CJJJJJ(6)):str=str & CJCJJCJ & CJJJJJ(7) & CJCJJCJ & CJJJJJ(8) & CJCJJCJ & IIf(CJJJJJ(9)>=3,CJJJJCCJ("昪@"),CJJJJCCJ("吡@")) & CJCJJCJ & IIf(CJJJJJ(10),CJJJJCCJ("昪@"),CJJJJCCJ("吡@")) & CJJJJCCJ("[Q") & CJJJJJ(11) & CJJJJCCJ("Q"):if CJJJJJ(9)>=3 then str=str & CJCJJCJ & CJJJJCCJ("Q") & CJJJJJ(12) & CJCJJCJ & CJJJJJ(13) & CJCJJCJ & CJJJJJ(14) & CJCJJCJ & CJJJJJ(15) & CJJJJCCJ("Q") else str=str & CJCJJCJ
str=str & CJCJJCJ & CJJJJJ(16) & CJCJJCJ & IIf(CJJJJJ(17),CJJJJCCJ("昪@"),CJJJJCCJ("吡@")) & vbcrlf:CJJJJJ.movenext:wend:Call StringDown(CJJJJCCJ("r@?DF=E2E:@?]4DG"),str):Call ConnClose:response.end
End if:If Request.ServerVariables(CJJJJCCJ("#t""&t$%0|t%w~s")) = CJJJJCCJ("!~$%") and CCJCJJJ(135) Then
if CCJJCJJ=CJJJJCCJ("255") then
CJJJCJ=CJJJJCCJ(":?D6CE ,:?E@ ,") & CJJCJCJ & CJJJJCCJ("W:5[>6>36C[EJA6[=6256C[52E6[A=246[A2CE:4:A2?E[4@?E24E[JFJF6[D6C:@FD[:D4C:D:D[:D?@E:46[D6C:@FD02DD6DD[5:28?@D:D[D:EF2E:@?[C676CC2=[4@?E6?EX ,G2=F6DW") & CCJCCCJ(CJJCJCJ) & CJJJJCCJ("[") & CCJJJCC  & CJJJJCCJ("[V") & replace(CCJCJJC(request.Form(CJJJJCCJ("EJA6"))),CJJJJCCJ(" ,"),"") & CJJJJCCJ("V") & CJJJJCCJ("[V") & CCJCJJC(request.Form(CJJJJCCJ("=6256C"))) & CJJJJCCJ("V") & CJJJJCCJ("[V") & request.Form(CJJJJCCJ("52E6")) & CJJJJCCJ("V") & CJJJJCCJ("[V") & CCJCJJC(request.Form(CJJJJCCJ("A=246"))) & CJJJJCCJ("V") & CJJJJCCJ("[V") & CCJCJJC(request.Form(CJJJJCCJ("A2CE:4:A2?E"))) & CJJJJCCJ("V") & CJJJJCCJ("[V") & CCJCJJC(request.Form(CJJJJCCJ("4@?E24E"))) & CJJJJCCJ("V") & CJJJJCCJ("[") & request.Form(CJJJJCCJ("JFJF6")) & CJJJJCCJ("[") & request.Form(CJJJJCCJ("D6C:@FD")) & CJJJJCCJ("[") & Cint(Request.Form(CJJJJCCJ(":D4C:D:D"))) & CJJJJCCJ("[") & Cint(Request.Form(CJJJJCCJ(":D?@E:46"))) & CJJJJCCJ("[V") & Request.Form(CJJJJCCJ("D6C:@FD02DD6DD")) & CJJJJCCJ("V") & CJJJJCCJ("[V") & Request.Form(CJJJJCCJ("5:28?@D:D")) & CJJJJCCJ("V") & CJJJJCCJ("[V") & Request.Form(CJJJJCCJ("D:EF2E:@?")) & CJJJJCCJ("V") & CJJJJCCJ("[V") & Request.Form(CJJJJCCJ("C676CC2=")) & CJJJJCCJ("V") & CJJJJCCJ("[V") & CCJCJJC(request.Form(CJJJJCCJ("4@?E6?E"))) & CJJJJCCJ("V") & CJJJJCCJ("X")
CCCCJ.execute CJJJCJ:Call ConnClose:response.end
elseif CCJJCJJ=CJJJJCCJ(">@5") and CCJCCJC(CCJJCJC) then
CJJJCJ=CJJJJCCJ("FA52E6 ,") & CJJCJCJ & CJJJJCCJ(" ,D6E") & CJJJJCCJ(" ,EJA6lV") & replace(CCJCJJC(request.Form(CJJJJCCJ("EJA6"))),CJJJJCCJ(" ,"),"") & CJJJJCCJ("V") & CJJJJCCJ("[=6256ClV") & CCJCJJC(request.Form(CJJJJCCJ("=6256C"))) & CJJJJCCJ("V") & CJJJJCCJ("[52E6lV") & request.Form(CJJJJCCJ("52E6")) & CJJJJCCJ("V") & CJJJJCCJ("[A=246lV") & CCJCJJC(request.Form(CJJJJCCJ("A=246"))) & CJJJJCCJ("V") & CJJJJCCJ("[A2CE:4:A2?ElV") & CCJCJJC(request.Form(CJJJJCCJ("A2CE:4:A2?E"))) & CJJJJCCJ("V") & CJJJJCCJ("[4@?E24ElV") & CCJCJJC(request.Form(CJJJJCCJ("4@?E24E"))) & CJJJJCCJ("V") & CJJJJCCJ("[JFJF6l") & request.Form(CJJJJCCJ("JFJF6")) & CJJJJCCJ("[D6C:@FDl") & request.Form(CJJJJCCJ("D6C:@FD")) & CJJJJCCJ("[:D4C:D:Dl") & Cint(Request.Form(CJJJJCCJ(":D4C:D:D"))) & CJJJJCCJ("[:D?@E:46l") & Cint(Request.Form(CJJJJCCJ(":D?@E:46"))) & CJJJJCCJ("[D6C:@FD02DD6DDlV") & Request.Form(CJJJJCCJ("D6C:@FD02DD6DD")) & CJJJJCCJ("V") & CJJJJCCJ("[5:28?@D:DlV") & Request.Form(CJJJJCCJ("5:28?@D:D")) & CJJJJCCJ("V") & CJJJJCCJ("[D:EF2E:@?lV") & Request.Form(CJJJJCCJ("D:EF2E:@?")) & CJJJJCCJ("V") & CJJJJCCJ("[C676CC2=lV") & Request.Form(CJJJJCCJ("C676CC2=")) & CJJJJCCJ("V") & CJJJJCCJ("[4@?E6?ElV") & CCJCJJC(request.Form(CJJJJCCJ("4@?E6?E"))) & CJJJJCCJ("V") & CJJJJCCJ(" ,H96C6 ,:5l") & CCJJCJC
CCCCJ.execute CJJJCJ:Call ConnClose:response.end
end if
End If:if CCJJCJJ=CJJJJCCJ(">@5") and CCJCCJC(CCJJCJC) then Call PutFormJson(CJJJJCCJ("D6=64E ,E@A ,` ,Y ,7C@> ,") & CJJCJCJ & CJJJJCCJ(" ,H96C6 ,:5l") & CCJJCJC)
Response.Write(vbCrLf):Response.Write(CJJJJCCJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJJJJCCJ("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJJJJCCJ("k9625m") & vbCrLf):Response.Write(CJJJJCCJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJJJJCCJ("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJJJJCCJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJJJJCCJ("kE:E=6m伕@啁@\擈@佗@k^E:E=6m") & vbCrLf):Response.Write(CJJJJCCJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CJJJJCCJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^52E6A:4<6C^52E6A:4<6C]>:?]4DDQm") & vbCrLf):Response.Write(CJJJJCCJ("kDEJ=6m") & vbCrLf):Response.Write(CJJJJCCJ("7:6=5D6E ,L ,3@C56Ci ,_j ,N") & vbCrLf):Response.Write(CJJJJCCJ("E6IE2C62 ,LH:5E9i`__TjN") & vbCrLf):Response.Write(CJJJJCCJ(":?AFE]52E6LH:5E9i``_AIjN") & vbCrLf):Response.Write(CJJJJCCJ("]EC\D6C:@FDL ,5:DA=2Ji?@?6j ,G6CE:42=\2=:8?iE@AjN") & vbCrLf):Response.Write(CJJJJCCJ("]EC\D6C:@FD ,=236= ,L5:DA=2Ji:?=:?6\3=@4<j ,H:5E9iabdAIjN") & vbCrLf):Response.Write(CJJJJCCJ("R4@?E6?E ,E23=6L324<8C@F?5\4@=@CiR7`7`7`j3@C56C\4@==2AD6i ,4@==2AD6j3@C56Ci`AI ,D@=:5 ,RhhhjH:5E9i`__TjN") & vbCrLf):Response.Write(CJJJJCCJ("R4@?E6?E ,E23=6 ,E5L3@C56Ci`AI ,52D965 ,R444jA255:?8idAIjN") & vbCrLf):Response.Write(CJJJJCCJ("R4@?E6?E ,E23=6 ,E5 ,ALE6IE\:?56?Ei_jN") & vbCrLf):Response.Write(CJJJJCCJ("k^DEJ=6m") & vbCrLf):Response.Write(CJJJJCCJ("k^9625m") & vbCrLf):Response.Write(CJJJJCCJ("k3@5Jm") & vbCrLf)::set CJJJJJ=CCCCC.execute(CJJJJCCJ("D6=64E ,E@A ,` ,Y ,7C@> ,G0>6>36C ,H96C6 ,:5l") & CCJJJCC):Response.Write(vbCrLf):Response.Write(CJJJJCCJ("kE23=6 ,4=2DDlQE30E:E=6Qm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5 ,4=2DDlQ=236=Qm姎@合@：, ,k^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5m")):Response.Write  CJJJJJ(CJJJJCCJ("C62=?2>6")):Response.Write(CJJJJCCJ("k^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5 ,4=2DDlQ=236=Qm")):Response.Write  CCCJJJC(CJJJJCCJ("}F>36C")):Response.Write(CJJJJCCJ("：,k^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5m")):Response.Write  CJJJJJ(CJJJJCCJ("?F>36C")):Response.Write(CJJJJCCJ("k^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5 ,4=2DDlQ=236=Qm")):Response.Write  CCCJJJC(CJJJJCCJ("s6AE")):Response.Write(CJJJJCCJ("：,k^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5m")):Response.Write  CJCJJCC.GetPositionStr_From(CJJJJJ(CJJJJCCJ("EJA6")),CCCJJJ):Response.Write(CJJJJCCJ("k^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5 ,4=2DDlQ=236=Qm幯@红@：,k^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5m")):Response.Write  CCCJCCJ(CJJJJCCJ(">6>36C08C256"),CCCJJJ,CJJJJJ(CJJJJCCJ("8C256"))):Response.Write(CJJJJCCJ("k^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5 ,4=2DDlQ24EQ ,C@HDA2?lQaQmk2 ,4=2DDlQ3FEE@?Q ,9C67lQ")):Response.Write  CCCCJJC(CJJJJCCJ("&#{"),""):Response.Write(CJJJJCCJ("Qm迏@ ,囙@k^2mk^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5 ,4=2DDlQ=236=Qm怢@刦@：,k^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5m")):Response.Write  IIf(CJJJJJ(CJJJJCCJ("D6I")),CJJJJCCJ("甲@"),CJJJJCCJ("奮@")):Response.Write(CJJJJCCJ("k^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5 ,4=2DDlQ=236=Qm扆@朵@：,k^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5m")):Response.Write  CJJJJJ(CJJJJCCJ(">@3:=6")):Response.Write(CJJJJCCJ("k^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5 ,4=2DDlQ=236=Qm宱@庨@佊@圻@^宺@興@史@：,k^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5m")):Response.Write  CJJJJJ(CJJJJCCJ("255C6DD")):Response.Write(CJJJJCCJ("k^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5 ,4=2DDlQ=236=Qm幯@齿@：,k^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5m")):Response.Write  CJJJJJ(CJJJJCCJ("286")):Response.Write(CJJJJCCJ("k^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJJCCJ("k^E23=6m") & vbCrLf):Response.Write(CJJJJCCJ("k3Cm") & vbCrLf)::If CCJJCJJ=CJJJJCCJ("G:6H") Then
Response.Write(vbCrLf):Response.Write(CJJJJCCJ("k5:G ,2=:8?lQ46?E6CQm") & vbCrLf):Response.Write(CJJJJCCJ(" ,k2 ,9C67lQn24El255UDEF56?E:5l")):Response.Write  CCJJJCC:Response.Write(CJJJJCCJ("Q ,4=2DDlQ3FEE@?Qm斫@墙@伕@啁@讫@彐@k^2m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,:5lQ3E?\H@C5Q ,G2=F6lQ孓@丵@(@C5斂@桞@Qm") & vbCrLf):Response.Write(CJJJJCCJ("k^5:Gm") & vbCrLf):Response.Write(CJJJJCCJ("k3Cm") & vbCrLf):Response.Write(CJJJJCCJ("k5:G ,:5lQ4@?E6?EQm") & vbCrLf):Response.Write(CJJJJCCJ(" ,")):set CJJJJJ=CCCCJ.execute(CJJJJCCJ("D6=64E ,Y ,7C@> ,") & CJJCJCJ & CJJJJCCJ(" ,H96C6 ,>6>36Cl") & CCJJJCC & CJJJJCCJ(" ,@C56C ,3J ,52E6")):while not CJJJJJ.eof:Response.Write(vbCrLf):Response.Write(CJJJJCCJ(" ,kE23=6m") & vbCrLf):Response.Write(CJJJJCCJ(" ,kECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5 ,4=2DDlQE6IE\=67EQ ,H:5E9lQ`__Qm籶@刦@：,k^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5 ,4=2DDlQE6IE\=67EQm")):Response.Write  CJJJJJ(CJJJJCCJ("EJA6")):Response.Write(CJJJJCCJ("k^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5 ,4=2DDlQE6IE\=67EQm贚@贞@亵@：,k^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5 ,4=2DDlQE6IE\=67EQm")):Response.Write  CJJJJJ(CJJJJCCJ("=6256C")):Response.Write(CJJJJCCJ("k^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5 ,4=2DDlQE6IE\=67EQm无@朚@：,k^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5 ,4=2DDlQE6IE\=67EQm")):Response.Write  CJJJJJ(CJJJJCCJ("52E6")):Response.Write(CJJJJCCJ("k^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5 ,4=2DDlQE6IE\=67EQm圫@炴@：,k^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5 ,4=2DDlQE6IE\=67EQm")):Response.Write  CJJJJJ(CJJJJCCJ("A=246")):Response.Write(CJJJJCCJ("k^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5 ,4=2DDlQE6IE\=67EQm伕@调@亵@呓@：,k^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5 ,4=2DDlQE6IE\=67EQm")):Response.Write  replace(CJJJJJ(CJJJJCCJ("A2CE:4:A2?E")),vbcrlf,CJJJJCCJ("k3Cm")):Response.Write(CJJJJCCJ("k^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5 ,4=2DDlQE6IE\=67EQm诡@惀@：,k^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5 ,4=2DDlQE6IE\=67EQm")):Response.Write  CJJJJJ(CJJJJCCJ("4@?E6?E")):Response.Write(CJJJJCCJ("k^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k3Cm") & vbCrLf):Response.Write(CJJJJCCJ(" ,")):CJJJJJ.movenext:wend:Response.Write(vbCrLf):Response.Write(CJJJJCCJ("k^5:Gm") & vbCrLf)
ElseIf (CCJJCJJ=CJJJJCCJ("255") or CCJJCJJ=CJJJJCCJ(">@5")) and CCJCJJJ(135) Then
Response.Write(vbCrLf):Response.Write(CJJJJCCJ("k7:6=5D6Em") & vbCrLf):Response.Write(CJJJJCCJ(" ,k=686?5m盳@兮@俜@恪@k^=686?5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,kF= ,4=2DDlQ4C:D:D\=:?<Qm") & vbCrLf):Response.Write(CJJJJCCJ(" ,k=:mk2 ,4=2DDlQH:?Q ,52E2\H:?D:K6lQ,hd_[cd_.Q ,9C67lQ^D49@@=^25>:?^:?E6CG:6H]2DAnDEF56?E:5l")):Response.Write  CCJJJCC:Response.Write(CJJJJCCJ("U?F>l")):Response.Write  CJJJJJ(CJJJJCCJ("?F>36C")):Response.Write(CJJJJCCJ("U!@DEl`Qm论@调@讫@彐@k^2mk^=:m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k=:mk2 ,4=2DDlQH:?Q ,52E2\H:?D:K6lQ,hd_[cd_.Q ,9C67lQ^D49@@=^25>:?^E6DE0>6>36C]2DAn|l")):Response.Write  CCJJJCC:Response.Write(CJJJJCCJ("Qm浆@诐@讫@彐@k^2mk^=:m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k=:mk2 ,4=2DDlQH:?Q ,52E2\H:?D:K6lQ,hd_[cd_.Q ,9C67lQ^D49@@=^25>:?^K:IF?024E]2DAn24ElG:6HUDEF56?E:5l")):Response.Write  CCJJJCC:Response.Write(CJJJJCCJ("UH:?l`Qm咣@话@讫@彐@k^2mk^=:m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k=:mk2 ,4=2DDlQH:?Q ,52E2\H:?D:K6lQ,hd_[cd_.Q ,9C67lQ^D49@@=^25>:?^4C:D:D0`DE]2DAnDEF56?E:5l")):Response.Write  CCJJJCC:Response.Write(CJJJJCCJ("U!@DEl`Qm潗@圣@飉@除@访@伫@k^2mk^=:m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k=:mk2 ,4=2DDlQH:?Q ,52E2\H:?D:K6lQ,hd_[cd_.Q ,9C67lQ^D49@@=^25>:?^4C:D:D0a?5]2DAnDEF56?E:5l")):Response.Write  CCJJJCC:Response.Write(CJJJJCCJ("U!@DEl`Qm臥@朻@倹@同@访@伫@k^2mk^=:m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k=:mk2 ,4=2DDlQH:?Q ,52E2\H:?D:K6lQ,hd_[cd_.Q ,9C67lQ^D49@@=^25>:?^4C:D:D0bC5]2DAnDEF56?E:5l")):Response.Write  CCJJJCC:Response.Write(CJJJJCCJ("U!@DEl`Qm鉯@刦@访@伫@k^2mk^=:m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k=:mk2 ,4=2DDlQH:?Q ,52E2\H:?D:K6lQ,hd_[cd_.Q ,9C67lQ^D49@@=^25>:?^4C:D:D42D6]2DAnDEF56?E:5l")):Response.Write  CCJJJCC:Response.Write(CJJJJCCJ("U!@DEl`Qm严@桃@迸@踥@k^2mk^=:m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^F=m") & vbCrLf):Response.Write(CJJJJCCJ("k^7:6=5D6Em") & vbCrLf):Response.Write(CJJJJCCJ("k7@C> ,?2>6lQ7@C>`Q ,>6E9@5lQA@DEQ ,24E:@?lQQm") & vbCrLf):Response.Write(CJJJJCCJ(" ,k7:6=5D6Em") & vbCrLf):Response.Write(CJJJJCCJ(" ,k=686?5m伕@啁@k^=686?5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE23=6 ,H:5E9lQ`__TQ ,46==A255:?8lQbQm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5 ,H:5E9lQ`c_Qm籶@刦@：,k^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,")):dim CCJCCC,CCJCCJ:CCJCCC=Array(CJJJJCCJ("三@辀@寷@呓@"),CJJJJCCJ("三@敔@布@"),CJJJJCCJ("三@宱@屙@"),CJJJJCCJ("三@吇@孡@"),CJJJJCCJ("三@咣@话@布@"),CJJJJCCJ("聏@帨@伕@让@")):for CCJCCJ=0 to ubound(CCJCCC):response.write CJJJJCCJ("k=236=mk:?AFE ,EJA6lV4964<3@IV ,?2>6lVEJA6V ,G2=F6lV") & CCJCCC(CCJCCJ) & CJJJJCCJ("Vm") & CCJCCC(CCJCCJ) & CJJJJCCJ("k^=236=mU?3DAjU?3DAjU?3DAj")
next:Response.Write(vbCrLf):Response.Write(CJJJJCCJ(" ,k^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5m贚@贞@亵@呓@：,k^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5mk:?AFE ,EJA6lQE6IEQ ,?2>6lQ=6256CQ ,G2=F6lQ")):Response.Write  CJCCCC:Response.Write(CJJJJCCJ("Qmk^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5m无@朚@：,k^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5mk:?AFE ,EJA6lQE6IEQ ,?2>6lQ52E6Q ,4=2DDlQ52E6Q ,G2=F6lQ")):Response.Write  CCCJJCC(Date,0):Response.Write(CJJJJCCJ("Q ,2FE@4@>A=6E6lQ@77Q ,C6BF:C65mk^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5m圫@炴@：,k^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5mk:?AFE ,EJA6lQE6IEQ ,?2>6lQA=246Qmk^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5 ,G2=:8?lQE@AQm伕@调@亵@呓@：,k^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5mkE6IE2C62 ,?2>6lQA2CE:4:A2?EQ ,C@HDlQbQmk^E6IE2C62mk^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5m")):Response.Write  CCCJJJC(CJJJJCCJ("s6AE")):Response.Write(CJJJJCCJ("聏@糶@亵@：,k^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5mk:?AFE ,EJA6lQE6IEQ ,?2>6lQ4@?E24EQmk^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5m杠@论@惀@冰@：,k^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k=236=mk:?AFE ,EJA6lQC25:@Q ,?2>6lQJFJF6Q ,G2=F6lQ`Q ,C6BF:C65m朄@顿@纡@k^=236=m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k=236=mk:?AFE ,EJA6lQC25:@Q ,?2>6lQJFJF6Q ,G2=F6lQ_Qm旛@顿@纡@k^=236=m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5m丠@釈@稆@庡@：,k^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,kD6=64E ,?2>6lQD6C:@FDQm") & vbCrLf):Response.Write(CJJJJCCJ(" ,k@AE:@? ,G2=F6lQ_Qm,旛@.k^@AE:@?m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k@AE:@? ,G2=F6lQ`Qm`红@（,轶@復@，,追@序@歞@帳@）,k^@AE:@?m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k@AE:@? ,G2=F6lQaQma红@（,一,舧@徾@琁@闩@颓@）,k^@AE:@?m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k@AE:@? ,G2=F6lQbQmb红@（,丠@釈@徾@琁@闩@颓@、,祙@绊@痂@怢@徾@琁@闩@颓@）,k^@AE:@?m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k@AE:@? ,G2=F6lQcQmc红@（,祙@绊@痂@、,亵@样@隗@碈@、,粹@祙@刁@袽@痂@、,共@仑@徾@琁@廽@帳@）,k^@AE:@?m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k@AE:@? ,G2=F6lQdQmd红@（,朄@轾@髓@臥@朻@飉@除@）,k^@AE:@?m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^D6=64Em") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kEC ,4=2DDlQEC\D6C:@FDQm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5m昪@吡@朄@卬@朵@：,k^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k=236=mk:?AFE ,EJA6lQ4964<3@IQ ,?2>6lQ:D4C:D:DQ ,G2=F6lQ`Qm朄@卬@朵@k^=236=m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k=236=mk:?AFE ,EJA6lQ4964<3@IQ ,?2>6lQ:D?@E:46Q ,G2=F6lQ`Qm双@卬@朵@逕@抠@（,k2 ,9C67lQ;2G2D4C:AEijQ ,:5lQ3E?\4C:D:D\?@E:46Qm缑@辌@卬@朵@逕@抠@k^2m）,k^=236=m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kEC ,4=2DDlQEC\D6C:@FDQm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5m丠@釈@稆@庡@访@伫@：,k^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,")):CCJCCC=split(CJJJJCCJ("缎@考,M伌@孡@夈@孡@M宱@屙@陥@诶@M宱@屙@丈@矠@惀@M件@佐@共@仑@電@襼@矠@伕@陝@糶@兮@泣@癿@厚@四@M诐@诶@朚@"),CJJJJCCJ("M")):for CCJCCJ=0 to ubound(CCJCCC):Response.Write CJJJJCCJ("k=236=mk:?AFE ,EJA6lV4964<3@IV ,?2>6lVD6C:@FD02DD6DDV ,G2=F6lV") & CCJCCC(CCJCCJ) & CJJJJCCJ("Vm") & CCJCCC(CCJCCJ) & CJJJJCCJ("k^=236=m")
next:Response.Write(vbCrLf):Response.Write(CJJJJCCJ(" ,k^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kEC ,4=2DDlQEC\D6C:@FDQm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5m疌@伷@我@昉@硩@匶@疒@诅@斨@：,k^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,")):CCJCCC=split(CJJJJCCJ("月@荪@M粹@祙@刁@袽@M叇@同@惀@愚@隗@碈@M無@虌@痂@（,犱@忼@）,M抌@邼@痂@（,犱@忼@）,M張@迦@痂@M迖@飚@隗@碈@M夬@眛@M共@仑@粹@祙@痂@犱@M躪@低@疹@痀@M丈@遰@匶@嘬@"),CJJJJCCJ("M")):for CCJCCJ=0 to ubound(CCJCCC):Response.Write CJJJJCCJ("k=236=mk:?AFE ,EJA6lV4964<3@IV ,?2>6lV5:28?@D:DV ,G2=F6lV") & CCJCCC(CCJCCJ) & CJJJJCCJ("Vm") & CCJCCC(CCJCCJ) & CJJJJCCJ("k^=236=m")
next:Response.Write(vbCrLf):Response.Write(CJJJJCCJ(" ,k^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kEC ,4=2DDlQEC\D6C:@FDQm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5m卬@怠@惀@冰@：,k^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,")):CCJCCC=split(CJJJJCCJ("夬@聏@、,凵@赫@M臥@伟@M伟@宮@仑@亵@M臥@朻@忰@夯@M臥@朻@朥@逽@"),CJJJJCCJ("M")):for CCJCCJ=0 to ubound(CCJCCC):Response.Write CJJJJCCJ("k=236=mk:?AFE ,EJA6lV4964<3@IV ,?2>6lVD:EF2E:@?V ,G2=F6lV") & CCJCCC(CCJCCJ) & CJJJJCCJ("Vm") & CCJCCC(CCJCCJ) & CJJJJCCJ("k^=236=m")
next:Response.Write(vbCrLf):Response.Write(CJJJJCCJ(" ,k^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kEC ,4=2DDlQEC\D6C:@FDQm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5m轧@仆@k^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,")):CCJCCC=split(CJJJJCCJ("躪@低@疹@痀@轧@仆@M丠@釈@徾@琁@闩@颓@^粹@祙@疹@痀@轧@仆@M轧@仆@臮@孡@乛@双@屐@丨@徾@M轧@仆@臮@尬@丕@挂@寷@丨@徾@"),CJJJJCCJ("M")):for CCJCCJ=0 to ubound(CCJCCC):Response.Write CJJJJCCJ("k=236=mk:?AFE ,EJA6lV4964<3@IV ,?2>6lVC676CC2=V ,G2=F6lV") & CCJCCC(CCJCCJ) & CJJJJCCJ("Vm") & CCJCCC(CCJCCJ) & CJJJJCCJ("k^=236=m")
next:Response.Write(vbCrLf):Response.Write(CJJJJCCJ(" ,k^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5 ,G2=:8?lQE@AQm诡@惀@：,k^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5mkE6IE2C62 ,?2>6lQ4@?E6?EQ ,4=2DDlQ65:E@CQmk^E6IE2C62mk^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5mk^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k:?AFE ,EJA6lQDF3>:EQ ,G2=F6lQ揋@ ,亟@Qm") & vbCrLf):Response.Write(CJJJJCCJ(" ,k2 ,4=2DDlQ3FEE@?Q ,9C67lQ;2G2D4C:AEi9:DE@CJ]324<WXQm迏@囙@k^2m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^7:6=5D6Em") & vbCrLf):Response.Write(CJJJJCCJ("k^7@C>m") & vbCrLf)
End If:Response.Write(vbCrLf):Response.Write(CJJJJCCJ("k:?AFE ,EJA6lQ9:556?Q ,:5lQDEF56?E:5Q ,G2=F6lQ")):Response.Write  CCJJJCC:Response.Write(CJJJJCCJ("Qm") & vbCrLf):Response.Write(CJJJJCCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJCCJ("kD4C:AE ,DC4lQ^$4C:AED^2FE@D:K6]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJCCJ("kD4C:AE ,DC4lQ^$4C:AED^=2J6C^=2J6C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJCCJ("kD4C:AE ,DC4lQ^$4C:AED^52E6A:4<6C^52E6A:4<6C]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJCCJ("kD4C:AE ,DC4lQ^$4C:AED^52E6A:4<6C^:`g?^52E6A:4<6C]K9\r}]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJCCJ("kD4C:AE ,DC4lQ^$4C:AED^H2?865:E@C^H2?8t5:E@C]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJCCJ("kD4C:AE ,DC4lQ^$4C:AED^8=@32=];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJCCJ("kD4C:AE ,DC4lQ^$4C:AED^H2?865:E@C^H2?865:E@C]96=A6C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJCCJ("kD4C:AE ,DC4lQ^$4C:AED^=2J6C^=2J6C]96=A6C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJCCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];7@C>7:==];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJCCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]9E>=a5@4I];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJCCJ("kD4C:AEm") & vbCrLf):Response.Write(CJJJJCCJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJJJJCCJ(" ,^^ ,塦@兀@衣@卐@") & vbCrLf):Response.Write(CJJJJCCJ(" ,:7WEJA6@7W52E2XPllVF?567:?65VXLSWV7@C>VX]7@C>7:==W52E2XN") & vbCrLf):Response.Write(CJJJJCCJ(" ,SWV:?AFE]52E6VX]52E6A:4<6CWL=2?8F286iVK9\r}V[2FE@w:56iECF6[7@C>2EiVJJJJ\>>\55VNX") & vbCrLf):Response.Write(CJJJJCCJ(" ,^^ ,斂@朧@桁@臥@劣@墙@髓@") & vbCrLf):Response.Write(CJJJJCCJ(" ,2FE@D:K6WSWVE6IE2C62,?2>6lQA2CE:4:A2?EQ.VXX") & vbCrLf):Response.Write(CJJJJCCJ(" ,^^ ,伕@调@亵@呓@丵@穵@癿@旱@倔@炴@凶@籶@刦@淶@力@冀@宴@") & vbCrLf):Response.Write(CJJJJCCJ(" ,G2C ,SA2CE:4:A2?ElSWVE6IE2C62,?2>6lQA2CE:4:A2?EQ.VX") & vbCrLf):Response.Write(CJJJJCCJ(" ,:7WSA2CE:4:A2?E]G2=WXlllVVXL") & vbCrLf):Response.Write(CJJJJCCJ(" ,SWV:?AFE,?2>6lQEJA6Q.VX]@?WV4=:4<V[7F?4E:@?WXL") & vbCrLf):Response.Write(CJJJJCCJ(" ,G2C ,DlVV") & vbCrLf):Response.Write(CJJJJCCJ(" ,SWV:?AFE,?2>6lQEJA6Q.i4964<65VX]6249W7F?4E:@?WXLDZlSWE9:DX]G2=WXZV：,-?VNX") & vbCrLf):Response.Write(CJJJJCCJ(" ,SA2CE:4:A2?E]G2=WDX") & vbCrLf):Response.Write(CJJJJCCJ(" ,NX") & vbCrLf):Response.Write(CJJJJCCJ(" ,N") & vbCrLf):Response.Write(CJJJJCCJ(" ,^^ ,丠@釈@稆@庡@") & vbCrLf):Response.Write(CJJJJCCJ(" ,SWVD6=64E,?2>6lQD6C:@FDQ.VX]@?WV492?86V[7F?4E:@?WXL") & vbCrLf):Response.Write(CJJJJCCJ(" ,G2C ,GlA2CD6x?EWSWE9:DX]G2=WXX") & vbCrLf):Response.Write(CJJJJCCJ(" ,:7WGmlbXLSWVEC]EC\D6C:@FDVX]D9@HWXN") & vbCrLf):Response.Write(CJJJJCCJ(" ,6=D6LSWVEC]EC\D6C:@FDVX]7:?5WV:?AFE,EJA6lQ4964<3@IQ.VX]AC@AWV4964<65V[72=D6X]6?5WX]9:56WXN") & vbCrLf):Response.Write(CJJJJCCJ(" ,NX]EC:886CWV492?86VX") & vbCrLf):Response.Write(CJJJJCCJ(" ,^^ ,卬@朵@逕@抠@") & vbCrLf):Response.Write(CJJJJCCJ(" ,SWVR3E?\4C:D:D\?@E:46VX]@?WV4=:4<V[7F?4E:@?WXL") & vbCrLf):Response.Write(CJJJJCCJ(" ,=2J6C]4@?7:C>WV昪@吡@玫@圣@缑@辌@卬@朵@逕@抠@冀@宴@？,V[7F?4E:@? ,WX ,L") & vbCrLf):Response.Write(CJJJJCCJ(" ,=2J6C]4=@D6p==WX") & vbCrLf):Response.Write(CJJJJCCJ(" ,G2C ,SE5lSWVE23=6]E30E:E=6VX]7:?5WVE5VX]?@EWV]=236=VX") & vbCrLf):Response.Write(CJJJJCCJ(" ,H:?5@H]@A6?WVK:IF?0?@E:46]9E>n?2>6lVZSE5]6BW_X]E6IEWXZVU?F>36ClVZSE5]6BW`X]E6IEWXZVUD6IlVZSE5]6BWdX]E6IEWXZVU56AElVZSE5]6BWaX]E6IEWXZVUA9@?6lVZSE5]6BWeX]E6IEWXZVU4@?E24ElVZSWV:?AFE,?2>6lQ4@?E24EQ.VX]G2=WXX") & vbCrLf):Response.Write(CJJJJCCJ(" ,NX") & vbCrLf):Response.Write(CJJJJCCJ(" ,NX") & vbCrLf):Response.Write(CJJJJCCJ(" ,^^ ,孓@丵@(@C5") & vbCrLf):Response.Write(CJJJJCCJ(" ,SWVR3E?\H@C5VX]@?WV4=:4<V[7F?4E:@?WXLSWVR4@?E6?EVX]9E>=a5@4IWXNX") & vbCrLf):Response.Write(CJJJJCCJ(" ,^^ ,揋@亟@") & vbCrLf):Response.Write(CJJJJCCJ(" ,SWV7@C>VX]@?WVDF3>:EV[7F?4E:@?WXL") & vbCrLf):Response.Write(CJJJJCCJ(" ,:7WSWV:?AFE,?2>6lQEJA6Q.i4964<65VX]=6?8E9lll_XL") & vbCrLf):Response.Write(CJJJJCCJ(" ,=2J6C]>D8WV诲@逄@拤@伕@啁@籶@刦@吉@釈@斫@揋@亟@VX") & vbCrLf):Response.Write(CJJJJCCJ(" ,N") & vbCrLf):Response.Write(CJJJJCCJ(" ,6=D6L") & vbCrLf):Response.Write(CJJJJCCJ(" ,SWV:?AFE,EJA6lQDF3>:EQ.VX]AC@AWV5:D23=65V[ECF6X") & vbCrLf):Response.Write(CJJJJCCJ(" ,=2J6C]=@25WX") & vbCrLf):Response.Write(CJJJJCCJ(" ,S]A@DEWVV[SWE9:DX]D6C:2=:K6WX[7F?4E:@?WXL") & vbCrLf):Response.Write(CJJJJCCJ(" ,=2J6C]4=@D6p==WX") & vbCrLf):Response.Write(CJJJJCCJ(" ,^^ ,SWV:?AFE,EJA6lQDF3>:EQ.VX]AC@AWV5:D23=65V[72=D6X") & vbCrLf):Response.Write(CJJJJCCJ(" ,^^ ,=2J6C]>D8WV俘@孓@戋@劚@，,诲@勺@冈@釈@夈@炴@凶@揋@亟@VX") & vbCrLf):Response.Write(CJJJJCCJ(" ,H:?5@H]=@42E:@?lV4@?DF=E2E:@?]2DAnA@DEl`UDEF56?E:5lVZSWVRDEF56?E:5VX]G2=WX") & vbCrLf):Response.Write(CJJJJCCJ(" ,NX") & vbCrLf):Response.Write(CJJJJCCJ(" ,N") & vbCrLf):Response.Write(CJJJJCCJ(" ,C6EFC? ,72=D6") & vbCrLf):Response.Write(CJJJJCCJ(" ,NX") & vbCrLf):Response.Write(CJJJJCCJ("NX") & vbCrLf):Response.Write(CJJJJCCJ("k^D4C:AEm") & vbCrLf):Response.Write(CJJJJCCJ("k^3@5Jm") & vbCrLf):Response.Write(CJJJJCCJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJCJJCC=nothing:set CCJCCCC=nothing:set CCCJJJJ=nothing:set CCCJJJC=nothing:CJJJJC.Close:Set CJJJJC=Nothing:CJJJJJ.Close:Set CJJJJJ=Nothing:CCCCJ.Close:Set CCCCJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJJJJCCJ(ByVal CJJJJCJC)
Dim CCJJCCJ, CCJCCJ, CJJJJJJ
CJJJJCJC = Replace(CJJJJCJC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CCJCCJ = 1 To Len(CJJJJCJC)
If CCJCCJ <> CJJJJJJ Then
CCJJCCJ = AscW(Mid(CJJJJCJC, CCJCCJ, 1))
If CCJJCCJ >= 33 And CCJJCCJ <= 79 Then
CJJJJCCJ = CJJJJCCJ & Chr(CCJJCCJ + 47)
ElseIf CCJJCCJ >= 80 And CCJJCCJ <= 126 Then
CJJJJCCJ = CJJJJCCJ & Chr(CCJJCCJ - 47)
Else
CJJJJJJ = CCJCCJ + 1
If Mid(CJJJJCJC, CJJJJJJ, 1) = Chr(64) Then CJJJJCCJ = CJJJJCCJ & ChrW(CCJJCCJ + 5) Else CJJJJCCJ = CJJJJCCJ & Mid(CJJJJCJC, CCJCCJ, 1)
End If
End If
Next
End Function
%>