Edit D:\xinhaisoft\crisis_new\school\admin\consultation

Edit D:\xinhaisoft\crisis_new\school\admin\consultation_act.asp

??<%@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
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de