<%
Dim CPPPPP,CPPPPC,CPPPCP,CPPPCC,CPPCPP
Set CPPPCP=Response:Set CPPPPC=Request:Set CPPCPP=Session:Set CPPPPP=Application:Set CPPPCC=Server
set CPPCCPP=conn
set CPPCCPC=rs
CPPCCCP=ishtml
function CPPCPC(CCPPCCC, CCPCPPP, CPCPPPC, CPPCCCP)
CPPCPC=outputurl(CCPPCCC, CCPCPPP, CPCPPPC, CPPCCCP)
end function
function CPPCCP(CPCPPPP, CCPCPPC)
CPPCCP=lefts(CPCPPPP, CCPCPPC)
end function
function CPPCCC(CCPCPCP, CCPCPCC, CCPCCPP, CCPCCPC, CCPCCCP)
CPPCCC=getfieldvalue(CCPCPCP, CCPCPCC, CCPCCPP, CCPCCPC, CCPCCCP)
end function
function tr_indextopwc810518(CCPCCCC, CCCPPPP, CCPCPPC)
call  CCCPPP(CCPCCCC, CCCPPPP, CCPCPPC)
end function
'function CPCPPC(byval CCPCCCC,byval CCPPCPP)
'CPCPPC=   CPCPPC(CCPCCCC,CCPPCPP)
'end function
function trwc_imgtext810518(CCPCCCC, CCCPPPP, CCPCPPC, CCCPPPC)
call   CCCPCP(CCPCCCC, CCCPPPP, CCPCPPC, CCCPPPC)
end function
'Function CPCPCC(ByVal CCCPPCP)
'CPCPCC=   CPCPCC(CCCPPCP)
'end function
'Function CPCCPP(CPCPPCP)
'CPCCPP=   CPCCPP(CPCPPCP)
'end function
'Function CPCCPC(CCCPPCC, CCCPCPP)
'CPCCPC=   CPCCPC(CCCPPCC, CCCPCPP)
'end function
'Function CPCCCP()
'CPCCCP=   CPCCCP()
'end function
function trwcsyimglist810518(CCPCCCC,CCCPPPP,CCCPCPC, CCCPCCP,CCCPCCC,CCCCPPP)
call   CCCPPC(CCPCCCC,CCCPPPP,CCCPCPC, CCCPCCP,CCCPCCC,CCCCPPP)
end function
function trwc_imgtext810518(CCCPPPP,CCPCCCC, CCPCPPC, CCCPPPC,CCCCPPC,CCCCPCP,CCCCPCC,CCCCCPP)
call   CCCPCP(CCCPPPP,CCPCCCC, CCPCPPC, CCCPPPC,CCCCPPC,CCCCPCP,CCCCPCC,CCCCCPP)
end function
function trwc_imgtextindextop810518(CCCPPPP,CCPCCCC, CCPCPPC, CCCPPPC,CCCCPPC,CCCCPCP,CCCCPCC,CCCCCPP)
call   CCCPCC(CCCPPPP,CCPCCCC, CCPCPPC, CCCPPPC,CCCCPPC,CCCCPCP,CCCCPCC,CCCCCPP)
end function
function trwc_imgtextlist810518(CCPCCCC, CCPCPPC, CCCPPPC,CCCCCPC,CCCCCCP,CCCCPPC,CCCCPCP,CCCCPCC,CCCCCPP)
call   CCCCPP(CCPCCCC, CCPCPPC, CCCPPPC,CCCCCPC,CCCCCCP,CCCCPPC,CCCCPCP,CCCCPCC,CCCCCPP)
end function
function trwc_imgtextsc810518(CCCCCCC, CCPCPPC, CCCPPPC,CCCCCPC,CCCCCCP,CCCCPPC,CCCCPCP,CCCCPCC,CCCCCPP)
call   CCCCPC(CCCCCCC, CCPCPPC, CCCPPPC,CCCCCPC,CCCCCCP,CCCCPPC,CCCCPCP,CCCCPCC,CCCCCPP)
end function
'function CPCPPC(byval CCPCCCC,byval CCPPCPP)
'CPCPPC=   CPCPPC(CCPCCCC,CCPPCPP)
'end function
'function CCPPCC(str)
'CCPPCC=   CCPPCC(str)
'end function
function trwc_imgtextlisttop810518(CCPCCCC,CCCPPPP, CCPCPPC, CCCPPPC,CCCCPPC,CCCCPCP,CCCCPCC,CCCCCPP)
call   CCCCCP(CCPCCCC,CCCPPPP, CCPCPPC, CCCPPPC,CCCCPPC,CCCCPCP,CCCCPCC,CCCCCPP)
end function
function trwccrfastsqlstr810518(byval CCPCCCC,byval CCPPCPP)
trwccrfastsqlstr810518=   CCPCPC(CCPCCCC,CCPPCPP)
end function
function trwc_imglist810518(CCPCCCC, CCPCPPC,CCCCCPC,CCCCCCP,CCCCPPP)
call   CCCCCC(CCPCCCC, CCPCPPC,CCCCCPC,CCCCCCP,CCCCPPP)
end function
private sub CCCPPP(CCPCCCC, CCCPPPP, CCPCPPC)
CPPCCCC = CCPCCC("D6=64E ,E@A ,")&CCCPPPP&CCPCCC(" ,:5[E:E=6[;F>AFC=[E:E=64@=@C ,7C@> ,EC02CE:4=6 ,H96C6 ,:D:?56IE@Al` ,2?5 ,:DA2DDl` ,2?5 ,:D56=l_ ,2?5 ,:D23@FEl_ ,")
CPPCCCC=CCPCPC(CCPCCCC,CPPCCCC)
If CCPCCCC<>"" Then CPPCCCC = CPPCCCC & CCPCCC(" ,2?5 ,BF6F6:5 ,=:<6 ,VT[") & CCPCCCC & CCPCCC("[TV")
CPPCCCC = CPPCCCC & CCPCCC(" ,@C56C ,3J ,:5 ,56D4")
CPPCCPC.Open CPPCCCC, CPPCCPP, 0, 1
If Not CPPCCPC.EOF Then
CPPPCP.write CCPCCC("k5:G ,4=2DDlQECE@A?6HDH4Qm") & vbCrLf
Do While Not CPPCCPC.EOF
If CPPCCPC(CCPCCC("E:E=64@=@C"))<>"" Then
CPCPPPP = CCPCCC("k7@?E ,4@=@ClQ")&CPPCCPC(CCPCCC("E:E=64@=@C"))&CCPCCC("Qm")&CPPCCP(CPPCCPC(CCPCCC("E:E=6")), CCPCPPC)&CCPCCC("k^7@?Em")
Else
CPCPPPP = CPPCCP(CPPCCPC(CCPCCC("E:E=6")), CCPCPPC)
End If
CPCPPPC = CPPCPC("", CPPCCPC(CCPCCC(":5")), CPPCCPC(CCPCCC(";F>AFC=")), CPPCCCP)
CPPPCP.Write CCPCCC(" , , , , , ,k9bmk2 ,9C67lQ")&CPCPPPC&CCPCCC("Q ,E:E=6lQ")&CPPCCPC(CCPCCC("E:E=6"))&CCPCCC("Qm")&CPCPPPP&CCPCCC("k^2mk^9bm") & vbCrLf
CPPCCPC.movenext
Loop
CPPPCP.Write CCPCCC("k^5:Gm") & vbCrLf
End If
CPPCCPC.Close
End Sub
Function CPCPCC(ByVal CCCPPCP)
CPCPCC=""
Dim CPPPPPP,CPPPPPC
Set CPPPPPP=New RegExp
CPPPPPP.Ignorecase=True
CPPPPPP.Global=True
CPPPPPP.Pattern=CCPCCC("k:>8,/m.ZDC4lQW,/Qm.ZXQ,/m.Ym")
Set CPPPPPC=CPPPPPP.Execute(CCCPPCP)
IF CPPPPPP.test(CCCPPCP) Then
CPCPCC=CPPPPPC(0).SubMatches(0)
End IF
Set CPPPPPC=Nothing
Set CPPPPPP=Nothing
End Function
Function CPCCPP(CPCPPCP)
If CPCPPCP<>"" Then
If InStr(CPCPPCP, CCPCCC("9EEAi^^"))<1 and InStr(CPCPPCP, CCPCCC("9EEADi^^"))<1 And isweburl(CPCPPCP) Then
CPCPPCP = CCPCCC("9EEAi^^")&CPCPPCP
End If
End If
If InStr(CPCPPCP, CCPCCC("9EEAi^^"))<1 and InStr(CPCPPCP, CCPCCC("9EEADi^^"))<1 Then
CPCPPCP = funpath&CPCPPCP
End If
CPCCPP = CPCPPCP
End Function
Public Function CPCCPC(CCCPPCC, CCCPCPP)
On Error Resume Next
Dim CPPPPCP, CPPPPCC, CPPPCPP, CPPPCPC, CPPPCCP, CPPPCCC, CPPCPPP
CPCCPC = CCCPPCC
If Not IsNumeric(CCCPCPP) Then Exit Function
If Not IsDate(CCCPPCC) Then Exit Function
CPPPPCP = CStr(Year(CCCPPCC))
CPPPPCC = CStr(Month(CCCPPCC))
If Len(CPPPPCC) = 1 Then CPPPPCC = "0" & CPPPPCC
CPPPCPP = CStr(Day(CCCPPCC))
If Len(CPPPCPP) = 1 Then CPPPCPP = "0" & CPPPCPP
CPPPCPC = CStr(Hour(CCCPPCC))
If Len(CPPPCPC) = 1 Then CPPPCPC = "0" & CPPPCPC
CPPPCCP = CStr(Minute(CCCPPCC))
If Len(CPPPCCP) = 1 Then CPPPCCP = "0" & CPPPCCP
CPPPCCC = CStr(Second(CCCPPCC))
If Len(CPPPCCC) = 1 Then CPPPCCC = "0" & CPPPCCC
Select Case CCCPCPP
Case "1"
CPPCPPP = CPPPPCP & CCPCCC("\") & CPPPPCC & CCPCCC("\") & CPPPCPP & CCPCCC(" ,") & CPPPCPC & CCPCCC("i") & CPPPCCP & CCPCCC("i") & CPPPCCC
Case "2"
CPPCPPP = CPPPPCP & CCPCCC("\") & CPPPPCC & CCPCCC("\") & CPPPCPP
Case "3"
CPPCPPP = CPPPPCP & CCPCCC("^") & CPPPPCC & CCPCCC("^") & CPPPCPP
Case "4"
CPPCPPP = CPPPPCP & CCPCCC("幯@") & CPPPPCC & CCPCCC("會@") & CPPPCPP & CCPCCC("无@")
Case "5"
CPPCPPP = CPPPPCC & CCPCCC("\") & CPPPCPP & CCPCCC(" ,") & CPPPCPC & CCPCCC("i") & CPPPCCP
Case "6"
CPPCPPP = CPPPPCC & CCPCCC("^") & CPPPCPP
Case "7"
CPPCPPP = CPPPPCC & CCPCCC("會@") & CPPPCPP & CCPCCC("无@")
Case "8"
CPPCPPP = CPPPPCP & CCPCCC("幯@") & CPPPPCC & CCPCCC("會@")
Case "9"
CPPCPPP = CPPPPCP & CCPCCC("\") & CPPPPCC
Case "10"
CPPCPPP = CPPPPCP & CCPCCC("^") & CPPPPCC
Case "11"
CPPCPPP = Right(CPPPPCP, 2) & CCPCCC("\") &CPPPPCC & CCPCCC("\") & CPPPCPP & CCPCCC(" ,") & CPPPCPC & CCPCCC("i") & CPPPCCP
Case "12"
CPPCPPP = Right(CPPPPCP, 2) & CCPCCC("\") &CPPPPCC & CCPCCC("\") & CPPPCPP
Case "13"
CPPCPPP = CPPPPCC & CCPCCC("\") & CPPPCPP
Case "14"
CPPCPPP = CPPPPCP & CPPPPCC & CPPPCPP & CPPPCPC & CPPPCCP & CPPPCCC
Case Else
CPPCPPP = CCCPPCC
End Select
CPCCPC = CPPCPPP
End Function
Function CPCCCP()
CPCPPCC = CPPPPC.ServerVariables(CCPCCC("$t#'t")&CCPCCC("#0}p|t"))
CPCPCPP = CPPPPC.ServerVariables(CCPCCC("$t#'t")&CCPCCC("#0!~#%"))
CPCPCPC = CPPPPC.ServerVariables(CCPCCC("!p%")&CCPCCC("w0x}u~"))
if CPCPCPP="443" then
CPCPCCP=CCPCCC("9EEADi^^")
else
CPCPCCP=CCPCCC("9EEAi^^")
end if
if CPCPCPP="80" or CPCPCPP="443" then
CPCPCCC=""
else
CPCPCCC=CPCPCPP
end if
CPCCPPP = CPCPCCP&CPCPPCC&CCPCCC("i")&CPCPCCC&CPCPCPC
CPCCPPC = Split(CPCCPPP, CCPCCC("^"))
CPCCPCP = UBound(CPCCPPC)
CPCCCP = Replace(CPCCPPP, CCPCCC("^")&CPCCPPC(CPCCPCP), "")&CCPCCC("^")
End Function
private sub CCCPPC(CCPCCCC,CCCPPPP,CCCPCPC, CCCPCCP,CCCPCCC,CCCCPPP)
CPPCCCC = CCPCCC("D6=64E ,E@A ,")&CCCPPPP&CCPCCC(" ,:5[E:E=6[;F>AFC=[E:E=64@=@C[255E:>6[4=:4<D[4@=F>?:5[A:47:=6D[4@?E6?E ,7C@> ,EC02CE:4=6 ,H96C6 ,")&andsql&CCPCCC(" ,:DA2DDl` ,2?5 ,:D56=l_ ,2?5 ,:D23@FEl_ ,")
CPPCCCC=CCPCPC(CCPCCCC,CPPCCCC)
Select Case CCCPCCP
Case CCPCCC("?6H")
CPPCCCC = CPPCCCC&CCPCCC(" ,@C56C ,3J ,:5 ,56D4 ,")
Case CCPCCC("9@E")
CPPCCCC = CPPCCCC&CCPCCC(" ,@C56C ,3J ,4=:4<D ,56D4 ,[ ,:5 ,56D4 ,")
Case CCPCCC("C?5")
if CCCPCCC=CCPCCC("2446DD") then
Randomize
CPPCCCC = CPPCCCC&CCPCCC(" ,@C56C ,3J ,#?5W\W:5Z")&CInt(Int((30 + 1) * Rnd) )&CCPCCC("XX ,[ ,:5 ,56D4 ,")
elseif CCCPCCC=CCPCCC(">DDB=") then
CPPCCCC = CPPCCCC&CCPCCC(" ,@C56C ,3J ,?6H:5WX ,")
end if
End Select
CPPCCPC.open CPPCCCC,CPPCCPP,0,1
If Not CPPCCPC.EOF Then
Do While Not CPPCCPC.EOF
CPCPPPC = CPPCPC("", CPPCCPC(CCPCCC(":5")), CPPCCPC(CCPCCC(";F>AFC=")), CPPCCCP)
If CPPCCPC(CCPCCC("E:E=64@=@C"))<>"" Then
CPCPPPP = CCPCCC("k7@?E ,4@=@ClQ")&CPPCCPC(CCPCCC("E:E=64@=@C"))&CCPCCC("Qm")&CPPCCP(CPPCCPC(CCPCCC("E:E=6")), CCCPCPC)&CCPCCC("k^7@?Em")
Else
CPCPPPP = CPPCCP(CPPCCPC(CCPCCC("E:E=6")), CCCPCPC)
End If
If Len(CPPCCPC(CCPCCC("A:47:=6D")))>8 Then
CPCCPCC=formaturl(CPPCCPC(CCPCCC("A:47:=6D")))
else
if instr(CPPCCPC(CCPCCC("4@?E6?E")),CCPCCC("k:>8"))>0 then
CPCCPCC=formaturl(CPCPCC(CPPCCPC(CCPCCC("4@?E6?E"))))
else
CPCCPCC=""
end if
end if
CPPPCP.write CCPCCC("k=: ,4=2DDlQ4@=\=8\c ,4@=\>5\b ,4@=\D>\c ,4@=\ID\e ,")&CCCCPPP&CCPCCC("Qmk2 ,9C67lQ")&CPCPPPC&CCPCCC("Q ,E:E=6lQ")&CPPCCPC(CCPCCC("E:E=6"))&CCPCCC("Q ,mk:>8 ,DC4lQ") & CPCCPCC & CCPCCC("Q ,2=ElQ")&CPPCCPC(CCPCCC("E:E=6"))&CCPCCC("Q^mkDA2?m")&CPCPPPP&CCPCCC("k^DA2?mk^2mk^=:m") & vbCrLf
CPPCCPC.movenext
loop
end if
CPPCCPC.close
end sub
private sub CCCPCP(CCCPPPP,CCPCCCC, CCPCPPC, CCCPPPC,CCCCPPC,CCCCPCP,CCCCPCC,CCCCCPP)
CPPCCCC = CCPCCC("D6=64E ,E@A ,")&CCCPPPP&CCPCCC(" ,:5[E:E=6[;F>AFC=[E:E=64@=@C[A:47:=6D[56D4C:AE:@?D[4@?E6?E[255E:>6[4@=F>?:5[2FE9@C ,7C@> ,EC02CE:4=6 ,H96C6 ,:DA2DDl` ,2?5 ,:D56=l_ ,2?5 ,:D23@FEl_ ,")
CPPCCCC=CCPCPC(CCPCCCC,CPPCCCC)
CPPCCCC = CPPCCCC & CCPCCC(" ,@C56C ,3J ,:5 ,56D4")
CPPCCPC.Open CPPCCCC, CPPCCPP, 0, 1
If Not CPPCCPC.EOF Then
CPPPCP.write CCPCCC("	,kP\\ ,35D92C6 ,DE2CE ,\\m") & vbCrLf
CPPPCP.write CCPCCC("	,kD4C:AE ,EJA6lQE6IE^;2G2D4C:AEQ ,:5lQ35D92C60;DQ ,52E2lQEJA6lE@@=DU2>AjF:5lcgbadbQ ,mk^D4C:AEm") & vbCrLf
CPPPCP.write CCPCCC("	,kD4C:AE ,EJA6lQE6IE^;2G2D4C:AEQ ,:5lQ35D96==0;DQmk^D4C:AEm") & vbCrLf
CPPPCP.write CCPCCC("	,kD4C:AE ,EJA6lQE6IE^;2G2D4C:AEQm") & vbCrLf
CPPPCP.write CCPCCC("	,W7F?4E:@?W6IA@CEDXL") & vbCrLf
CPPPCP.write CCPCCC("	, , ,6IA@CED]35D04@?7:8 ,l ,L") & vbCrLf
CPPPCP.write CCPCCC("	, , , , , , ,QD?Dz6JQi ,L") & vbCrLf
CPPPCP.write CCPCCC("	, , , , , , , , , , ,VED:?2Vi ,V72=D6V[") & vbCrLf
CPPPCP.write CCPCCC("	, , , , , , , , , , ,VEBBVi ,VV[") & vbCrLf
CPPPCP.write CCPCCC("	, , , , , , , , , , ,VE`ebVi ,VV[") & vbCrLf
CPPPCP.write CCPCCC("	, , , , , , , , , , ,VED@9FVi ,VV") & vbCrLf
CPPPCP.write CCPCCC("	, , , , , , ,N[") & vbCrLf
CPPPCP.write CCPCCC("	, , ,Nj") & vbCrLf
CPPPCP.write CCPCCC("	, , ,5@4F>6?E]86Et=6>6?EqJx5WQ35D96==0;DQX]DC4 ,l ,Q9EEAi^^35:>8]D92C6]32:5F]4@>^DE2E:4^;D^D96==0Ga];Dn45?G6CD:@?lQ ,Z ,|2E9]46:=W?6H ,s2E6WX^be_____Xj") & vbCrLf
CPPPCP.write CCPCCC("	,NXWH:?5@HXj") & vbCrLf
CPPPCP.write CCPCCC("	,k^D4C:AEm") & vbCrLf
CPPPCP.write CCPCCC("	,kDEJ=6 ,EJA6lQE6IE^4DDQm") & vbCrLf
CPPPCP.write CCPCCC("	,R35D92C6L7=@2Ei?@?6 ,P:>A@CE2?Ej7@?E\D:K6i`bAI ,P:>A@CE2?EjA255:?8\3@EE@>i_ ,P:>A@CE2?EjN") & vbCrLf
CPPPCP.write CCPCCC("	,R35D92C6 ,DA2?]35D0>@C6L5:DA=2Ji:?=:?6 ,P:>A@CE2?EjA255:?8i_ ,P:>A@CE2?Ej7=@2Ei?@?6 ,P:>A@CE2?Ej7@?E\72>:=JiQ|:4C@D@7E ,*2w6:Q[Q復@轪@雀@黌@Q ,P:>A@CE2?Ej324<8C@F?5\:>286i?@?6 ,P:>A@CE2?EjN") & vbCrLf
CPPPCP.write CCPCCC("	,k^DEJ=6m") & vbCrLf
CPPPCP.write CCPCCC("	,kP\\ ,35D92C6 ,6?5 ,\\m") & vbCrLf
Do While Not CPPCCPC.EOF
CPCCCPP=""
CPCPPPC = CPPCPC("", CPPCCPC(CCPCCC(":5")), CPPCCPC(CCPCCC(";F>AFC=")), CPPCCCP)
if CPPCCPC(CCPCCC("56D4C:AE:@?D"))<>"" and not isnull(CPPCCPC(CCPCCC("56D4C:AE:@?D"))) then CPCCCPP = CPPCCP((CPPCCPC(CCPCCC("56D4C:AE:@?D"))), CCCPPPC)
if CPCCCPP="" and CPPCCPC(CCPCCC("4@?E6?E"))<>"" and not isnull(CPPCCPC(CCPCCC("4@?E6?E"))) then
CPCCCPP = CPPCCP(CCPPCC(left(CPPCCPC(CCPCCC("4@?E6?E")),1500)), CCCPPPC)
if instr(CPCCCPP,CCPCCC("k"))>0 then CPCCCPP=left(CPCCCPP,InStrRev (CPCCCPP,CCPCCC("k")))
if len(CPCCCPP)<CCCPPPC/2 and len(CPPCCPC(CCPCCC("4@?E6?E")))>CCCPPPC then CPCCCPP = CPPCCP(CCPPCC(CPPCCPC(CCPCCC("4@?E6?E"))), CCCPPPC)
if instr(CPCCCPP,CCPCCC("k"))>0 then CPCCCPP=replace(CPCCCPP,CCPCCC("k"),"")
End If
If CPPCCPC(CCPCCC("E:E=64@=@C"))<>"" Then
CPCPPPP = CCPCCC("k7@?E ,4@=@ClQ")&CPPCCPC(CCPCCC("E:E=64@=@C"))&CCPCCC("Qm")&CPPCCP(CPPCCPC(CCPCCC("E:E=6")), CCPCPPC)&CCPCCC("k^7@?Em")
Else
CPCPPPP = CPPCCP(CPPCCPC(CCPCCC("E:E=6")), CCPCPPC)
End If
CPCCCPC = CPPCCPC(CCPCCC("255E:>6"))
CPCCCCP = CPPCCPC(CCPCCC("2FE9@C"))
If Len(CPPCCPC(CCPCCC("A:47:=6D")))>8 Then
CPCCPCC=CPCCPP(CPPCCPC(CCPCCC("A:47:=6D")))
else
if instr(CPPCCPC(CCPCCC("4@?E6?E")),CCPCCC("k:>8"))>0 then
CPCCPCC=CPCPCC(CPPCCPC(CCPCCC("4@?E6?E")))
CPCCPCC=CPCCPP(CPCCPCC)
else
CPCCPCC=""
end if
end if
if CCCCPCC then
if instr(CPCPPPC,CCPCCC("9EEA"))=1 then
CPCCCCC=CPCPPPC
else
CPCCCCC= CPCCCP&CPCPPPC
end if
end if
if len(CPCCPCC)>8 then
CPPPCP.write CCPCCC("k5:G ,4=2DDlQECH4:>8DEC ,4=62C7:IQm") & vbCrLf
CPPPCP.write CCPCCC("k:>8 ,DC4lQ")&CPCCPCC&CCPCCC("Q^m") & vbCrLf
CPPPCP.write CCPCCC("k5:G ,4=2DDlQECH4:>8DECCQm") & vbCrLf
CPPPCP.write CCPCCC("k9bmk2 ,9C67lQ")&CPCPPPC&CCPCCC("Q ,E:E=6lQ")&CPPCCPC(CCPCCC("E:E=6"))&CCPCCC("Qm")&CPCPPPP&CCPCCC("k^2mk^9bm") & vbCrLf
CPPPCP.write CCPCCC("k5:G ,4=2DDlQECH4:>8DEC56DQmk2 ,9C67lQ")&CPCPPPC&CCPCCC("Qm")&CPCCCPP&CCPCCC("k^2mk^5:Gm") & vbCrLf
CPPPCP.write CCPCCC("k5:G ,4=2DDlQECH4:>8DEC4Qm") & vbCrLf
if CCCCPPC then
if datediff(CCPCCC("5"),now(),CPCCCPC)>=0 then
CCPPPPP = CCPCCC("kDA2? ,4=2DDlQEC?6HE:>6`fggggQm")&CPCCPC(CPCCCPC, CCCCCPP)&CCPCCC("k^DA2?m")
else
CCPPPPP = ""&CPCCPC(CPPCCPC(CCPCCC("255E:>6")), CCCCCPP)&""
end if
CPPPCP.write CCPCCC("kDA2? ,4=2DDlQECH4:>8DEC42Qm旱@闯@：,")&CCPPPPP&CCPCCC("U?3DAjU?3DAjU?3DAjU?3DAjU?3DAjU?3DAjU?3DAjk^DA2?m") & vbCrLf
else
CCPPPPP=""
end if
if CCCCPCC then CPPPCP.write CCPCCC("kDA2? ,:5lQ35D92C6Q ,4=2DDlQ35D92C60E ,35D0E@@=D ,86E\4@56D\35D92C6 ,7665\42C5\D92C6 ,ECH4:>8DEC42Q ,52E2lQE6IEiV")&CPPCCPC(CCPCCC("E:E=6"))&CCPCCC("V[FC=iV")&CPCCCP&CPCPPPC&CCPCCC("V[A:4iV")&CPCCPCC&CCPCCC("VQmkDA2? ,4=2DDlQ35D0>@C6Qm刁@亦@k: ,4=2DDlQ8=JA9:4@? ,8=JA9:4@?\D92C6\2=E ,ECH4D92C6Qmk^:m ,U?3DAjU?3DAjU?3DAjU?3DAjU?3DAjU?3DAjU?3DAjk^DA2?mk^DA2?m") & vbCrLf
CPPPCP.write CCPCCC("k^5:Gm") & vbCrLf
CPPPCP.write CCPCCC("k^5:Gm") & vbCrLf
CPPPCP.write CCPCCC("k^5:Gm") & vbCrLf
else
CPPPCP.write CCPCCC("k5:G ,4=2DDlQECH4:>8DEC ,4=62C7:IQm") & vbCrLf
CPPPCP.write CCPCCC("k5:G ,4=2DDlQECH4:>8DECCQm") & vbCrLf
CPPPCP.write CCPCCC("k9bmk2 ,9C67lQ")&CPCPPPC&CCPCCC("Q ,E:E=6lQ")&CPPCCPC(CCPCCC("E:E=6"))&CCPCCC("Qm")&CPCPPPP&CCPCCC("k^2mk^9bm") & vbCrLf
CPPPCP.write CCPCCC("k5:G ,4=2DDlQECH4:>8DEC56DQmk2 ,9C67lQ")&CPCPPPC&CCPCCC("Qm")&CPCCCPP&CCPCCC("k^2mk^5:Gm") & vbCrLf
CPPPCP.write CCPCCC("k5:G ,4=2DDlQECH4:>8DEC4Qm") & vbCrLf
if CCCCPPC then
if datediff(CCPCCC("5"),now(),CPCCCPC)>=0 then
CCPPPPP = CCPCCC("kDA2? ,4=2DDlQEC?6HE:>6`fggggQm")&CPCCPC(CPCCCPC, CCCCCPP)&CCPCCC("k^DA2?m")
else
CCPPPPP = ""&CPCCPC(CPPCCPC(CCPCCC("255E:>6")), CCCCCPP)&""
end if
CPPPCP.write CCPCCC("kDA2? ,4=2DDlQECH4:>8DEC42Qm旱@闯@：,")&CCPPPPP&CCPCCC("U?3DAjU?3DAjU?3DAjU?3DAjU?3DAjU?3DAjU?3DAjk^DA2?m") & vbCrLf
else
CCPPPPP=""
end if
if CCCCPCC then CPPPCP.write CCPCCC("kDA2? ,:5lQ35D92C6Q ,4=2DDlQ35D92C60E ,35D0E@@=D ,86E\4@56D\35D92C6 ,7665\42C5\D92C6 ,ECH4:>8DEC42Q ,52E2lQE6IEiV")&CPPCCPC(CCPCCC("E:E=6"))&CCPCCC("V[FC=iV")&CPCCCP&CPCPPPC&CCPCCC("V[A:4iV")&CPCCPCC&CCPCCC("VQmkDA2? ,4=2DDlQ35D0>@C6Qm刁@亦@k: ,4=2DDlQ8=JA9:4@? ,8=JA9:4@?\D92C6\2=E ,ECH4D92C6Qmk^:m ,U?3DAjU?3DAjU?3DAjU?3DAjU?3DAjU?3DAjU?3DAjk^DA2?mk^DA2?m") & vbCrLf
CPPPCP.write CCPCCC("k^5:Gm") & vbCrLf
CPPPCP.write CCPCCC("k^5:Gm") & vbCrLf
CPPPCP.write CCPCCC("k^5:Gm") & vbCrLf
end if
CPPCCPC.movenext
Loop
End If
CPPCCPC.Close
End Sub
private sub CCCPCC(CCCPPPP,CCPCCCC, CCPCPPC, CCCPPPC,CCCCPPC,CCCCPCP,CCCCPCC,CCCCCPP)
CPPCCCC = CCPCCC("D6=64E ,E@A ,")&CCCPPPP&CCPCCC(" ,:5[E:E=6[;F>AFC=[E:E=64@=@C[A:47:=6D[56D4C:AE:@?D[4@?E6?E[255E:>6[4@=F>?:5[2FE9@C ,7C@> ,EC02CE:4=6 ,H96C6 ,:DA2DDl` ,2?5 ,:D56=l_ ,2?5 ,:D23@FEl_ ,2?5 ,:D:?56IE@Al` ,")
CPPCCCC=CCPCPC(CCPCCCC,CPPCCCC)
CPPCCCC = CPPCCCC & CCPCCC(" ,@C56C ,3J ,:5 ,56D4")
CPPCCPC.Open CPPCCCC, CPPCCPP, 0, 1
If Not CPPCCPC.EOF Then
CPPPCP.write CCPCCC("	,kP\\ ,35D92C6 ,DE2CE ,\\m") & vbCrLf
CPPPCP.write CCPCCC("	,kD4C:AE ,EJA6lQE6IE^;2G2D4C:AEQ ,:5lQ35D92C60;DQ ,52E2lQEJA6lE@@=DU2>AjF:5lcgbadbQ ,mk^D4C:AEm") & vbCrLf
CPPPCP.write CCPCCC("	,kD4C:AE ,EJA6lQE6IE^;2G2D4C:AEQ ,:5lQ35D96==0;DQmk^D4C:AEm") & vbCrLf
CPPPCP.write CCPCCC("	,kD4C:AE ,EJA6lQE6IE^;2G2D4C:AEQm") & vbCrLf
CPPPCP.write CCPCCC("	,W7F?4E:@?W6IA@CEDXL") & vbCrLf
CPPPCP.write CCPCCC("	, , ,6IA@CED]35D04@?7:8 ,l ,L") & vbCrLf
CPPPCP.write CCPCCC("	, , , , , , ,^^ ,2AA<6J") & vbCrLf
CPPPCP.write CCPCCC("	, , , , , , ,QD?Dz6JQi ,L") & vbCrLf
CPPPCP.write CCPCCC("	, , , , , , , , , , ,VED:?2Vi ,V72=D6V[") & vbCrLf
CPPPCP.write CCPCCC("	, , , , , , , , , , ,VEBBVi ,VV[") & vbCrLf
CPPPCP.write CCPCCC("	, , , , , , , , , , ,VE`ebVi ,VV[") & vbCrLf
CPPPCP.write CCPCCC("	, , , , , , , , , , ,VED@9FVi ,VV") & vbCrLf
CPPPCP.write CCPCCC("	, , , , , , ,N[") & vbCrLf
CPPPCP.write CCPCCC("	, , ,Nj") & vbCrLf
CPPPCP.write CCPCCC("	, , ,5@4F>6?E]86Et=6>6?EqJx5WQ35D96==0;DQX]DC4 ,l ,Q9EEAi^^35:>8]D92C6]32:5F]4@>^DE2E:4^;D^D96==0Ga];Dn45?G6CD:@?lQ ,Z ,|2E9]46:=W?6H ,s2E6WX^be_____Xj") & vbCrLf
CPPPCP.write CCPCCC("	,NXWH:?5@HXj") & vbCrLf
CPPPCP.write CCPCCC("	,k^D4C:AEm") & vbCrLf
CPPPCP.write CCPCCC("	,kDEJ=6 ,EJA6lQE6IE^4DDQm") & vbCrLf
CPPPCP.write CCPCCC("	,R35D92C6L7=@2Ei?@?6 ,P:>A@CE2?Ej7@?E\D:K6i`bAI ,P:>A@CE2?EjA255:?8\3@EE@>i_ ,P:>A@CE2?EjN") & vbCrLf
CPPPCP.write CCPCCC("	,R35D92C6 ,DA2?]35D0>@C6L5:DA=2Ji:?=:?6 ,P:>A@CE2?EjA255:?8i_ ,P:>A@CE2?Ej7=@2Ei?@?6 ,P:>A@CE2?Ej7@?E\72>:=JiQ|:4C@D@7E ,*2w6:Q[Q復@轪@雀@黌@Q ,P:>A@CE2?Ej324<8C@F?5\:>286i?@?6 ,P:>A@CE2?EjN") & vbCrLf
CPPPCP.write CCPCCC("	,k^DEJ=6m") & vbCrLf
CPPPCP.write CCPCCC("	,kP\\ ,35D92C6 ,6?5 ,\\m") & vbCrLf
Do While Not CPPCCPC.EOF
CPCCCPP=""
CPCPPPC = CPPCPC("", CPPCCPC(CCPCCC(":5")), CPPCCPC(CCPCCC(";F>AFC=")), CPPCCCP)
CPCCCPP=""
if CPPCCPC(CCPCCC("56D4C:AE:@?D"))<>"" and not isnull(CPPCCPC(CCPCCC("56D4C:AE:@?D"))) then CPCCCPP = CPPCCP((CPPCCPC(CCPCCC("56D4C:AE:@?D"))), CCCPPPC)
if CPCCCPP="" and CPPCCPC(CCPCCC("4@?E6?E"))<>"" and not isnull(CPPCCPC(CCPCCC("4@?E6?E"))) then
CPCCCPP = CPPCCP(CCPPCC(left(CPPCCPC(CCPCCC("4@?E6?E")),1500)), CCCPPPC)
if instr(CPCCCPP,CCPCCC("k"))>0 then CPCCCPP=left(CPCCCPP,InStrRev (CPCCCPP,CCPCCC("k")))
if len(CPCCCPP)<CCCPPPC/2 and len(CPPCCPC(CCPCCC("4@?E6?E")))>CCCPPPC then CPCCCPP = CPPCCP(CCPPCC(CPPCCPC(CCPCCC("4@?E6?E"))), CCCPPPC)
if instr(CPCCCPP,CCPCCC("k"))>0 then CPCCCPP=replace(CPCCCPP,CCPCCC("k"),"")
End If
If CPPCCPC(CCPCCC("E:E=64@=@C"))<>"" Then
CPCPPPP = CCPCCC("k7@?E ,4@=@ClQ")&CPPCCPC(CCPCCC("E:E=64@=@C"))&CCPCCC("Qm")&CPPCCP(CPPCCPC(CCPCCC("E:E=6")), CCPCPPC)&CCPCCC("k^7@?Em")
Else
CPCPPPP = CPPCCP(CPPCCPC(CCPCCC("E:E=6")), CCPCPPC)
End If
CPCCCPC = CPPCCPC(CCPCCC("255E:>6"))
CPCCCCP = CPPCCPC(CCPCCC("2FE9@C"))
If Len(CPPCCPC(CCPCCC("A:47:=6D")))>8 Then
CPCCPCC=CPCCPP(CPPCCPC(CCPCCC("A:47:=6D")))
else
if instr(CPPCCPC(CCPCCC("4@?E6?E")),CCPCCC("k:>8"))>0 then
CPCCPCC=CPCPCC(CPPCCPC(CCPCCC("4@?E6?E")))
CPCCPCC=CPCCPP(CPCCPCC)
else
CPCCPCC=""
end if
end if
if CCCCPCC then
if instr(CPCPPPC,CCPCCC("9EEA"))=1 then
CPCCCCC=CPCPPPC
else
CPCCCCC= CPCCCP&CPCPPPC
end if
end if
if len(CPCCPCC)>8 then
CPPPCP.write CCPCCC("k5:G ,4=2DDlQECH4:>8DEC ,4=62C7:IQm") & vbCrLf
CPPPCP.write CCPCCC("k:>8 ,DC4lQ")&CPCCPCC&CCPCCC("Q^m") & vbCrLf
CPPPCP.write CCPCCC("k5:G ,4=2DDlQECH4:>8DECCQm") & vbCrLf
CPPPCP.write CCPCCC("k9bmkDA2? ,4=2DDlQECH4E@A:4@Qm罩@顱@k^DA2?mk2 ,9C67lQ")&CPCPPPC&CCPCCC("Q ,E:E=6lQ")&CPPCCPC(CCPCCC("E:E=6"))&CCPCCC("Qm")&CPCPPPP&CCPCCC("k^2mk^9bm") & vbCrLf
CPPPCP.write CCPCCC("k5:G ,4=2DDlQECH4:>8DEC56DQmk2 ,9C67lQ")&CPCPPPC&CCPCCC("Qm")&CPCCCPP&CCPCCC("k^2mk^5:Gm") & vbCrLf
CPPPCP.write CCPCCC("k5:G ,4=2DDlQECH4:>8DEC4Qm") & vbCrLf
if CCCCPPC then
if datediff(CCPCCC("5"),now(),CPCCCPC)>=0 then
CCPPPPP = CCPCCC("kDA2? ,4=2DDlQEC?6HE:>6`fggggQm")&CPCCPC(CPCCCPC, CCCCCPP)&CCPCCC("k^DA2?m")
else
CCPPPPP = ""&CPCCPC(CPPCCPC(CCPCCC("255E:>6")), CCCCCPP)&""
end if
CPPPCP.write CCPCCC("kDA2? ,4=2DDlQECH4:>8DEC42Qm旱@闯@：,")&CCPPPPP&CCPCCC("U?3DAjU?3DAjU?3DAjU?3DAjU?3DAjU?3DAjU?3DAjk^DA2?m") & vbCrLf
else
CCPPPPP=""
end if
if CCCCPCC then CPPPCP.write CCPCCC("kDA2? ,:5lQ35D92C6Q ,4=2DDlQ35D92C60E ,35D0E@@=D ,86E\4@56D\35D92C6 ,7665\42C5\D92C6 ,ECH4:>8DEC42Q ,52E2lQE6IEiV")&CPPCCPC(CCPCCC("E:E=6"))&CCPCCC("V[FC=iV")&CPCCCP&CPCPPPC&CCPCCC("V[A:4iV")&CPCCPCC&CCPCCC("VQmkDA2? ,4=2DDlQ35D0>@C6Qm刁@亦@k: ,4=2DDlQ8=JA9:4@? ,8=JA9:4@?\D92C6\2=E ,ECH4D92C6Qmk^:m ,U?3DAjU?3DAjU?3DAjU?3DAjU?3DAjU?3DAjU?3DAjk^DA2?mk^DA2?m") & vbCrLf
CPPPCP.write CCPCCC("k^5:Gm") & vbCrLf
CPPPCP.write CCPCCC("k^5:Gm") & vbCrLf
CPPPCP.write CCPCCC("k^5:Gm") & vbCrLf
else

CPPPCP.write CCPCCC("k5:G ,4=2DDlQECH4:>8DEC ,4=62C7:IQm") & vbCrLf
CPPPCP.write CCPCCC("k5:G ,4=2DDlQECH4:>8DECCQm") & vbCrLf
CPPPCP.write CCPCCC("k9bmkDA2? ,4=2DDlQECH4E@A:4@Qm罩@顱@k^DA2?mk2 ,9C67lQ")&CPCPPPC&CCPCCC("Q ,E:E=6lQ")&CPPCCPC(CCPCCC("E:E=6"))&CCPCCC("Qm")&CPCPPPP&CCPCCC("k^2mk^9bm") & vbCrLf
CPPPCP.write CCPCCC("k5:G ,4=2DDlQECH4:>8DEC56DQmk2 ,9C67lQ")&CPCPPPC&CCPCCC("Qm")&CPCCCPP&CCPCCC("k^2mk^5:Gm") & vbCrLf
CPPPCP.write CCPCCC("k5:G ,4=2DDlQECH4:>8DEC4Qm") & vbCrLf
if CCCCPPC then
if datediff(CCPCCC("5"),now(),CPCCCPC)>=0 then
CCPPPPP = CCPCCC("kDA2? ,4=2DDlQEC?6HE:>6`fggggQm")&CPCCPC(CPCCCPC, CCCCCPP)&CCPCCC("k^DA2?m")
else
CCPPPPP = ""&CPCCPC(CPPCCPC(CCPCCC("255E:>6")), CCCCCPP)&""
end if
CPPPCP.write CCPCCC("kDA2? ,4=2DDlQECH4:>8DEC42Qm旱@闯@：,")&CCPPPPP&CCPCCC("U?3DAjU?3DAjU?3DAjU?3DAjU?3DAjU?3DAjU?3DAjk^DA2?m") & vbCrLf
else
CCPPPPP=""
end if
if CCCCPCC then CPPPCP.write CCPCCC("kDA2? ,:5lQ35D92C6Q ,4=2DDlQ35D92C60E ,35D0E@@=D ,86E\4@56D\35D92C6 ,7665\42C5\D92C6 ,ECH4:>8DEC42Q ,52E2lQE6IEiV")&CPPCCPC(CCPCCC("E:E=6"))&CCPCCC("V[FC=iV")&CPCCCP&CPCPPPC&CCPCCC("V[A:4iV")&CPCCPCC&CCPCCC("VQmkDA2? ,4=2DDlQ35D0>@C6Qm刁@亦@k: ,4=2DDlQ8=JA9:4@? ,8=JA9:4@?\D92C6\2=E ,ECH4D92C6Qmk^:m ,U?3DAjU?3DAjU?3DAjU?3DAjU?3DAjU?3DAjU?3DAjk^DA2?mk^DA2?m") & vbCrLf
CPPPCP.write CCPCCC("k^5:Gm") & vbCrLf
CPPPCP.write CCPCCC("k^5:Gm") & vbCrLf
CPPPCP.write CCPCCC("k^5:Gm") & vbCrLf
end if
CPPCCPC.movenext
Loop
End If
CPPCCPC.Close
End Sub
private sub CCCCPP(CCPCCCC, CCPCPPC, CCCPPPC,CCCCCPC,CCCCCCP,CCCCPPC,CCCCPCP,CCCCPCC,CCCCCPP)
CCPPPPC = (92*87-8004)
CPPCPCC = (CCCCCCP -1) * CCCCCPC
CPPCCCC = CCPCCC("D6=64E ,:5[E:E=6[;F>AFC=[E:E=64@=@C[A:47:=6D[56D4C:AE:@?D[4@?E6?E[255E:>6[4@=F>?:5[2FE9@C ,7C@> ,EC02CE:4=6 ,H96C6 ,:DA2DDl` ,2?5 ,:D56=l_ ,2?5 ,:D23@FEl_ ,")
CPPCCCC=CCPCPC(CCPCCCC,CPPCCCC)
CPPCCCC = CPPCCCC & CCPCCC(" ,@C56C ,3J ,:5 ,56D4")
Call ctr_page.create_rs(CPPCCCC, CPPCCPC, CPPCCPP, CCCCCPC, CCCCCCP)
If Not CPPCCPC.EOF Then
CPPPCP.write CCPCCC("	,kP\\ ,35D92C6 ,DE2CE ,\\m") & vbCrLf
CPPPCP.write CCPCCC("	,kD4C:AE ,EJA6lQE6IE^;2G2D4C:AEQ ,:5lQ35D92C60;DQ ,52E2lQEJA6lE@@=DU2>AjF:5lcgbadbQ ,mk^D4C:AEm") & vbCrLf
CPPPCP.write CCPCCC("	,kD4C:AE ,EJA6lQE6IE^;2G2D4C:AEQ ,:5lQ35D96==0;DQmk^D4C:AEm") & vbCrLf
CPPPCP.write CCPCCC("	,kD4C:AE ,EJA6lQE6IE^;2G2D4C:AEQm") & vbCrLf
CPPPCP.write CCPCCC("	,W7F?4E:@?W6IA@CEDXL") & vbCrLf
CPPPCP.write CCPCCC("	, , ,6IA@CED]35D04@?7:8 ,l ,L") & vbCrLf
CPPPCP.write CCPCCC("	, , , , , , ,^^ ,2AA<6J") & vbCrLf
CPPPCP.write CCPCCC("	, , , , , , ,QD?Dz6JQi ,L") & vbCrLf
CPPPCP.write CCPCCC("	, , , , , , , , , , ,VED:?2Vi ,V72=D6V[") & vbCrLf
CPPPCP.write CCPCCC("	, , , , , , , , , , ,VEBBVi ,VV[") & vbCrLf
CPPPCP.write CCPCCC("	, , , , , , , , , , ,VE`ebVi ,VV[") & vbCrLf
CPPPCP.write CCPCCC("	, , , , , , , , , , ,VED@9FVi ,VV") & vbCrLf
CPPPCP.write CCPCCC("	, , , , , , ,N[") & vbCrLf
CPPPCP.write CCPCCC("	, , ,Nj") & vbCrLf
CPPPCP.write CCPCCC("	, , ,5@4F>6?E]86Et=6>6?EqJx5WQ35D96==0;DQX]DC4 ,l ,Q9EEAi^^35:>8]D92C6]32:5F]4@>^DE2E:4^;D^D96==0Ga];Dn45?G6CD:@?lQ ,Z ,|2E9]46:=W?6H ,s2E6WX^be_____Xj") & vbCrLf
CPPPCP.write CCPCCC("	,NXWH:?5@HXj") & vbCrLf
CPPPCP.write CCPCCC("	,k^D4C:AEm") & vbCrLf
CPPPCP.write CCPCCC("	,kDEJ=6 ,EJA6lQE6IE^4DDQm") & vbCrLf
CPPPCP.write CCPCCC("	,R35D92C6L7=@2Ei?@?6 ,P:>A@CE2?Ej7@?E\D:K6i`bAI ,P:>A@CE2?EjA255:?8\3@EE@>i_ ,P:>A@CE2?EjN") & vbCrLf
CPPPCP.write CCPCCC("	,R35D92C6 ,DA2?]35D0>@C6L5:DA=2Ji:?=:?6 ,P:>A@CE2?EjA255:?8i_ ,P:>A@CE2?Ej7=@2Ei?@?6 ,P:>A@CE2?Ej7@?E\72>:=JiQ|:4C@D@7E ,*2w6:Q[Q復@轪@雀@黌@Q ,P:>A@CE2?Ej324<8C@F?5\:>286i?@?6 ,P:>A@CE2?EjN") & vbCrLf
CPPPCP.write CCPCCC("	,k^DEJ=6m") & vbCrLf
CPPPCP.write CCPCCC("	,kP\\ ,35D92C6 ,6?5 ,\\m") & vbCrLf
Do While Not CPPCCPC.EOF
If CCPPPPC>= CCCCCPC Then Exit Do
CCPPPPC = CCPPPPC + (54*32-1727)
CPCCCPP=""
CPCPPPC = CPPCPC("", CPPCCPC(CCPCCC(":5")), CPPCCPC(CCPCCC(";F>AFC=")), CPPCCCP)
if CPPCCPC(CCPCCC("56D4C:AE:@?D"))<>"" and not isnull(CPPCCPC(CCPCCC("56D4C:AE:@?D"))) then CPCCCPP = CPPCCP((CPPCCPC(CCPCCC("56D4C:AE:@?D"))), CCCPPPC)
if CPCCCPP="" and CPPCCPC(CCPCCC("4@?E6?E"))<>"" and not isnull(CPPCCPC(CCPCCC("4@?E6?E"))) then
CPCCCPP = CPPCCP(CCPPCC(left(CPPCCPC(CCPCCC("4@?E6?E")),1500)), CCCPPPC)
if instr(CPCCCPP,CCPCCC("k"))>0 then CPCCCPP=left(CPCCCPP,InStrRev (CPCCCPP,CCPCCC("k")))
if len(CPCCCPP)<CCCPPPC/2 and len(CPPCCPC(CCPCCC("4@?E6?E")))>CCCPPPC then CPCCCPP = CPPCCP(CCPPCC(CPPCCPC(CCPCCC("4@?E6?E"))), CCCPPPC)
if instr(CPCCCPP,CCPCCC("k"))>0 then CPCCCPP=replace(CPCCCPP,CCPCCC("k"),"")
End If
If CPPCCPC(CCPCCC("E:E=64@=@C"))<>"" Then
CPCPPPP = CCPCCC("k7@?E ,4@=@ClQ")&CPPCCPC(CCPCCC("E:E=64@=@C"))&CCPCCC("Qm")&CPPCCP(CPPCCPC(CCPCCC("E:E=6")), CCPCPPC)&CCPCCC("k^7@?Em")
Else
CPCPPPP = CPPCCP(CPPCCPC(CCPCCC("E:E=6")), CCPCPPC)
End If
CPCCCPC = CPPCCPC(CCPCCC("255E:>6"))
CPCCCCP = CPPCCPC(CCPCCC("2FE9@C"))
If Len(CPPCCPC(CCPCCC("A:47:=6D")))>8 Then
CPCCPCC=CPCCPP(CPPCCPC(CCPCCC("A:47:=6D")))
else
if instr(CPPCCPC(CCPCCC("4@?E6?E")),CCPCCC("k:>8"))>0 then
CPCCPCC=CPCPCC(CPPCCPC(CCPCCC("4@?E6?E")))
CPCCPCC=CPCCPP(CPCCPCC)
else
CPCCPCC=""
end if
end if
if CCCCPCC then
if instr(CPCPPPC,CCPCCC("9EEA"))=1 then
CPCCCCC=CPCPPPC
else
CPCCCCC= CPCCCP&CPCPPPC
end if
end if
if len(CPCCPCC)>8 then
CPPPCP.write CCPCCC("k5:G ,4=2DDlQECH4:>8DEC ,4=62C7:IQm") & vbCrLf
CPPPCP.write CCPCCC("k:>8 ,DC4lQ")&CPCCPCC&CCPCCC("Q^m") & vbCrLf
CPPPCP.write CCPCCC("k5:G ,4=2DDlQECH4:>8DECCQm") & vbCrLf
CPPPCP.write CCPCCC("k9bmk2 ,9C67lQ")&CPCPPPC&CCPCCC("Q ,E:E=6lQ")&CPPCCPC(CCPCCC("E:E=6"))&CCPCCC("Qm")&CPCPPPP&CCPCCC("k^2mk^9bm") & vbCrLf
CPPPCP.write CCPCCC("k5:G ,4=2DDlQECH4:>8DEC56DQmk2 ,9C67lQ")&CPCPPPC&CCPCCC("Qm")&CPCCCPP&CCPCCC("k^2mk^5:Gm") & vbCrLf
CPPPCP.write CCPCCC("k5:G ,4=2DDlQECH4:>8DEC4Qm") & vbCrLf
if CCCCPPC then
if datediff(CCPCCC("5"),now(),CPCCCPC)>=0 then
CCPPPPP = CCPCCC("kDA2? ,4=2DDlQEC?6HE:>6`fggggQm")&CPCCPC(CPCCCPC, CCCCCPP)&CCPCCC("k^DA2?m")
else
CCPPPPP = ""&CPCCPC(CPPCCPC(CCPCCC("255E:>6")), CCCCCPP)&""
end if
CPPPCP.write CCPCCC("kDA2? ,4=2DDlQECH4:>8DEC42Qm旱@闯@：,")&CCPPPPP&CCPCCC("U?3DAjU?3DAjU?3DAjU?3DAjU?3DAjU?3DAjU?3DAjk^DA2?m") & vbCrLf
else
CCPPPPP=""
end if
if CCCCPCC then CPPPCP.write CCPCCC("kDA2? ,:5lQ35D92C6Q ,4=2DDlQ35D92C60E ,35D0E@@=D ,86E\4@56D\35D92C6 ,7665\42C5\D92C6 ,ECH4:>8DEC42Q ,52E2lQE6IEiV")&CPPCCPC(CCPCCC("E:E=6"))&CCPCCC("V[FC=iV")&CPCCCP&CPCPPPC&CCPCCC("V[A:4iV")&CPCCPCC&CCPCCC("VQmkDA2? ,4=2DDlQ35D0>@C6Qm刁@亦@k: ,4=2DDlQ8=JA9:4@? ,8=JA9:4@?\D92C6\2=E ,ECH4D92C6Qmk^:m ,U?3DAjU?3DAjU?3DAjU?3DAjU?3DAjU?3DAjU?3DAjk^DA2?mk^DA2?m") & vbCrLf
CPPPCP.write CCPCCC("k^5:Gm") & vbCrLf
CPPPCP.write CCPCCC("k^5:Gm") & vbCrLf
CPPPCP.write CCPCCC("k^5:Gm") & vbCrLf
else
CPPPCP.write CCPCCC("k5:G ,4=2DDlQECH4:>8DEC ,4=62C7:IQm") & vbCrLf
CPPPCP.write CCPCCC("k5:G ,4=2DDlQECH4:>8DECCQm") & vbCrLf
CPPPCP.write CCPCCC("k9bmk2 ,9C67lQ")&CPCPPPC&CCPCCC("Q ,E:E=6lQ")&CPPCCPC(CCPCCC("E:E=6"))&CCPCCC("Qm")&CPCPPPP&CCPCCC("k^2mk^9bm") & vbCrLf
CPPPCP.write CCPCCC("k5:G ,4=2DDlQECH4:>8DEC56DQmk2 ,9C67lQ")&CPCPPPC&CCPCCC("Qm")&CPCCCPP&CCPCCC("k^2mk^5:Gm") & vbCrLf
CPPPCP.write CCPCCC("k5:G ,4=2DDlQECH4:>8DEC4Qm") & vbCrLf
if CCCCPPC then
if datediff(CCPCCC("5"),now(),CPCCCPC)>=0 then
CCPPPPP = CCPCCC("kDA2? ,4=2DDlQEC?6HE:>6`fggggQm")&CPCCPC(CPCCCPC, CCCCCPP)&CCPCCC("k^DA2?m")
else
CCPPPPP = ""&CPCCPC(CPPCCPC(CCPCCC("255E:>6")), CCCCCPP)&""
end if
CPPPCP.write CCPCCC("kDA2? ,4=2DDlQECH4:>8DEC42Qm旱@闯@：,")&CCPPPPP&CCPCCC("U?3DAjU?3DAjU?3DAjU?3DAjU?3DAjU?3DAjU?3DAjk^DA2?m") & vbCrLf
else
CCPPPPP=""
end if
if CCCCPCC then CPPPCP.write CCPCCC("kDA2? ,:5lQ35D92C6Q ,4=2DDlQ35D92C60E ,35D0E@@=D ,86E\4@56D\35D92C6 ,7665\42C5\D92C6 ,ECH4:>8DEC42Q ,52E2lQE6IEiV")&CPPCCPC(CCPCCC("E:E=6"))&CCPCCC("V[FC=iV")&CPCCCP&CPCPPPC&CCPCCC("V[A:4iV")&CPCCPCC&CCPCCC("VQmkDA2? ,4=2DDlQ35D0>@C6Qm刁@亦@k: ,4=2DDlQ8=JA9:4@? ,8=JA9:4@?\D92C6\2=E ,ECH4D92C6Qmk^:m ,U?3DAjU?3DAjU?3DAjU?3DAjU?3DAjU?3DAjU?3DAjk^DA2?mk^DA2?m") & vbCrLf
CPPPCP.write CCPCCC("k^5:Gm") & vbCrLf
CPPPCP.write CCPCCC("k^5:Gm") & vbCrLf
CPPPCP.write CCPCCC("k^5:Gm") & vbCrLf
end if
CPPCCPC.movenext
Loop
End If
CPPCCPC.Close
if CPPCCCP=1 then
CPPPCP.Write ctr_page.create_page("", ctr_page.page_count, CCCCCCP, CCPCCC("ECA286"))
else
CPPPCP.Write ctr_page.html_page("", ctr_page.page_count, CCCCCCP, CCPCCC("ECA286"))
end if
End Sub
private sub CCCCPC(CCCCCCC, CCPCPPC, CCCPPPC,CCCCCPC,CCCCCCP,CCCCPPC,CCCCPCP,CCCCPCC,CCCCCPP)
CCPPPPC = (92*87-8004)
CPPCPCC = (CCCCCCP -1) * CCCCCPC
CPPCCCC = CCPCCC("D6=64E ,:5[E:E=6[;F>AFC=[E:E=64@=@C[A:47:=6D[56D4C:AE:@?D[4@?E6?E[255E:>6[4@=F>?:5[2FE9@C ,7C@> ,EC02CE:4=6 ,H96C6 ,:DA2DDl` ,2?5 ,:D56=l_ ,2?5 ,:D23@FEl_ ,")
CPPCCCC = CPPCCCC & CCPCCC(" ,2?5 ,E:E=6 ,=:<6 ,VT") & CCCCCCC & CCPCCC("TV")
CPPCCCC = CPPCCCC & CCPCCC(" ,@C56C ,3J ,:5 ,56D4")
Call ctr_page.create_rs(CPPCCCC, CPPCCPC, CPPCCPP, CCCCCPC, CCCCCCP)
If Not CPPCCPC.EOF Then
CPPPCP.write CCPCCC("	,kP\\ ,35D92C6 ,DE2CE ,\\m") & vbCrLf
CPPPCP.write CCPCCC("	,kD4C:AE ,EJA6lQE6IE^;2G2D4C:AEQ ,:5lQ35D92C60;DQ ,52E2lQEJA6lE@@=DU2>AjF:5lcgbadbQ ,mk^D4C:AEm") & vbCrLf
CPPPCP.write CCPCCC("	,kD4C:AE ,EJA6lQE6IE^;2G2D4C:AEQ ,:5lQ35D96==0;DQmk^D4C:AEm") & vbCrLf
CPPPCP.write CCPCCC("	,kD4C:AE ,EJA6lQE6IE^;2G2D4C:AEQm") & vbCrLf
CPPPCP.write CCPCCC("	,W7F?4E:@?W6IA@CEDXL") & vbCrLf
CPPPCP.write CCPCCC("	, , ,6IA@CED]35D04@?7:8 ,l ,L") & vbCrLf
CPPPCP.write CCPCCC("	, , , , , , ,^^ ,2AA<6J") & vbCrLf
CPPPCP.write CCPCCC("	, , , , , , ,QD?Dz6JQi ,L") & vbCrLf
CPPPCP.write CCPCCC("	, , , , , , , , , , ,VED:?2Vi ,V72=D6V[") & vbCrLf
CPPPCP.write CCPCCC("	, , , , , , , , , , ,VEBBVi ,VV[") & vbCrLf
CPPPCP.write CCPCCC("	, , , , , , , , , , ,VE`ebVi ,VV[") & vbCrLf
CPPPCP.write CCPCCC("	, , , , , , , , , , ,VED@9FVi ,VV") & vbCrLf
CPPPCP.write CCPCCC("	, , , , , , ,N[") & vbCrLf
CPPPCP.write CCPCCC("	, , ,Nj") & vbCrLf
CPPPCP.write CCPCCC("	, , ,5@4F>6?E]86Et=6>6?EqJx5WQ35D96==0;DQX]DC4 ,l ,Q9EEAi^^35:>8]D92C6]32:5F]4@>^DE2E:4^;D^D96==0Ga];Dn45?G6CD:@?lQ ,Z ,|2E9]46:=W?6H ,s2E6WX^be_____Xj") & vbCrLf
CPPPCP.write CCPCCC("	,NXWH:?5@HXj") & vbCrLf
CPPPCP.write CCPCCC("	,k^D4C:AEm") & vbCrLf
CPPPCP.write CCPCCC("	,kDEJ=6 ,EJA6lQE6IE^4DDQm") & vbCrLf
CPPPCP.write CCPCCC("	,R35D92C6L7=@2Ei?@?6 ,P:>A@CE2?Ej7@?E\D:K6i`bAI ,P:>A@CE2?EjA255:?8\3@EE@>i_ ,P:>A@CE2?EjN") & vbCrLf
CPPPCP.write CCPCCC("	,R35D92C6 ,DA2?]35D0>@C6L5:DA=2Ji:?=:?6 ,P:>A@CE2?EjA255:?8i_ ,P:>A@CE2?Ej7=@2Ei?@?6 ,P:>A@CE2?Ej7@?E\72>:=JiQ|:4C@D@7E ,*2w6:Q[Q復@轪@雀@黌@Q ,P:>A@CE2?Ej324<8C@F?5\:>286i?@?6 ,P:>A@CE2?EjN") & vbCrLf
CPPPCP.write CCPCCC("	,k^DEJ=6m") & vbCrLf
CPPPCP.write CCPCCC("	,kP\\ ,35D92C6 ,6?5 ,\\m") & vbCrLf
Do While Not CPPCCPC.EOF
If CCPPPPC>= CCCCCPC Then Exit Do
CCPPPPC = CCPPPPC + (54*32-1727)
CPCCCPP=""
CPCPPPC = CPPCPC("", CPPCCPC(CCPCCC(":5")), CPPCCPC(CCPCCC(";F>AFC=")), CPPCCCP)
if CPPCCPC(CCPCCC("56D4C:AE:@?D"))<>"" and not isnull(CPPCCPC(CCPCCC("56D4C:AE:@?D"))) then CPCCCPP = CPPCCP((CPPCCPC(CCPCCC("56D4C:AE:@?D"))), CCCPPPC)
if CPCCCPP="" and CPPCCPC(CCPCCC("4@?E6?E"))<>"" and not isnull(CPPCCPC(CCPCCC("4@?E6?E"))) then
CPCCCPP = CPPCCP(CCPPCC(left(CPPCCPC(CCPCCC("4@?E6?E")),1500)), CCCPPPC)
if instr(CPCCCPP,CCPCCC("k"))>0 then CPCCCPP=left(CPCCCPP,InStrRev (CPCCCPP,CCPCCC("k")))
if len(CPCCCPP)<CCCPPPC/2 and len(CPPCCPC(CCPCCC("4@?E6?E")))>CCCPPPC then CPCCCPP = CPPCCP(CCPPCC(CPPCCPC(CCPCCC("4@?E6?E"))), CCCPPPC)
if instr(CPCCCPP,CCPCCC("k"))>0 then CPCCCPP=replace(CPCCCPP,CCPCCC("k"),"")
End If
If CPPCCPC(CCPCCC("E:E=64@=@C"))<>"" Then
CPCPPPP = CCPCCC("k7@?E ,4@=@ClQ")&CPPCCPC(CCPCCC("E:E=64@=@C"))&CCPCCC("Qm")&CPPCCP(CPPCCPC(CCPCCC("E:E=6")), CCPCPPC)&CCPCCC("k^7@?Em")
Else
CPCPPPP = CPPCCP(CPPCCPC(CCPCCC("E:E=6")), CCPCPPC)
End If
CPCCCPC = CPPCCPC(CCPCCC("255E:>6"))
CPCCCCP = CPPCCPC(CCPCCC("2FE9@C"))
If Len(CPPCCPC(CCPCCC("A:47:=6D")))>8 Then
CPCCPCC=CPCCPP(CPPCCPC(CCPCCC("A:47:=6D")))
else
if instr(CPPCCPC(CCPCCC("4@?E6?E")),CCPCCC("k:>8"))>0 then
CPCCPCC=CPCPCC(CPPCCPC(CCPCCC("4@?E6?E")))
CPCCPCC=CPCCPP(CPCCPCC)
else
CPCCPCC=""
end if
end if
if CCCCPCC then
if instr(CPCPPPC,CCPCCC("9EEA"))=1 then
CPCCCCC=CPCPPPC
else
CPCCCCC= CPCCCP&CPCPPPC
end if
end if
if len(CPCCPCC)>8 then
CPPPCP.write CCPCCC("k5:G ,4=2DDlQECH4:>8DEC ,4=62C7:IQm") & vbCrLf
CPPPCP.write CCPCCC("k:>8 ,DC4lQ")&CPCCPCC&CCPCCC("Q^m") & vbCrLf
CPPPCP.write CCPCCC("k5:G ,4=2DDlQECH4:>8DECCQm") & vbCrLf
CPPPCP.write CCPCCC("k9bmk2 ,9C67lQ")&CPCPPPC&CCPCCC("Q ,E:E=6lQ")&CPPCCPC(CCPCCC("E:E=6"))&CCPCCC("Qm")&CPCPPPP&CCPCCC("k^2mk^9bm") & vbCrLf
CPPPCP.write CCPCCC("k5:G ,4=2DDlQECH4:>8DEC56DQmk2 ,9C67lQ")&CPCPPPC&CCPCCC("Qm")&CPCCCPP&CCPCCC("k^2mk^5:Gm") & vbCrLf
CPPPCP.write CCPCCC("k5:G ,4=2DDlQECH4:>8DEC4Qm") & vbCrLf
if CCCCPPC then
if datediff(CCPCCC("5"),now(),CPCCCPC)>=0 then
CCPPPPP = CCPCCC("kDA2? ,4=2DDlQEC?6HE:>6`fggggQm")&CPCCPC(CPCCCPC, CCCCCPP)&CCPCCC("k^DA2?m")
else
CCPPPPP = ""&CPCCPC(CPPCCPC(CCPCCC("255E:>6")), CCCCCPP)&""
end if
CPPPCP.write CCPCCC("kDA2? ,4=2DDlQECH4:>8DEC42Qm旱@闯@：,")&CCPPPPP&CCPCCC("U?3DAjU?3DAjU?3DAjU?3DAjU?3DAjU?3DAjU?3DAjk^DA2?m") & vbCrLf
else
CCPPPPP=""
end if
if CCCCPCC then CPPPCP.write CCPCCC("kDA2? ,:5lQ35D92C6Q ,4=2DDlQ35D92C60E ,35D0E@@=D ,86E\4@56D\35D92C6 ,7665\42C5\D92C6 ,ECH4:>8DEC42Q ,52E2lQE6IEiV")&CPPCCPC(CCPCCC("E:E=6"))&CCPCCC("V[FC=iV")&CPCCCP&CPCPPPC&CCPCCC("V[A:4iV")&CPCCPCC&CCPCCC("VQmkDA2? ,4=2DDlQ35D0>@C6Qm刁@亦@k: ,4=2DDlQ8=JA9:4@? ,8=JA9:4@?\D92C6\2=E ,ECH4D92C6Qmk^:m ,U?3DAjU?3DAjU?3DAjU?3DAjU?3DAjU?3DAjU?3DAjk^DA2?mk^DA2?m") & vbCrLf
CPPPCP.write CCPCCC("k^5:Gm") & vbCrLf
CPPPCP.write CCPCCC("k^5:Gm") & vbCrLf
CPPPCP.write CCPCCC("k^5:Gm") & vbCrLf
else
CPPPCP.write CCPCCC("k5:G ,4=2DDlQECH4:>8DEC ,4=62C7:IQm") & vbCrLf
CPPPCP.write CCPCCC("k5:G ,4=2DDlQECH4:>8DECCQm") & vbCrLf
CPPPCP.write CCPCCC("k9bmk2 ,9C67lQ")&CPCPPPC&CCPCCC("Q ,E:E=6lQ")&CPPCCPC(CCPCCC("E:E=6"))&CCPCCC("Qm")&CPCPPPP&CCPCCC("k^2mk^9bm") & vbCrLf
CPPPCP.write CCPCCC("k5:G ,4=2DDlQECH4:>8DEC56DQmk2 ,9C67lQ")&CPCPPPC&CCPCCC("Qm")&CPCCCPP&CCPCCC("k^2mk^5:Gm") & vbCrLf
CPPPCP.write CCPCCC("k5:G ,4=2DDlQECH4:>8DEC4Qm") & vbCrLf
if CCCCPPC then
if datediff(CCPCCC("5"),now(),CPCCCPC)>=0 then
CCPPPPP = CCPCCC("kDA2? ,4=2DDlQEC?6HE:>6`fggggQm")&CPCCPC(CPCCCPC, CCCCCPP)&CCPCCC("k^DA2?m")
else
CCPPPPP = ""&CPCCPC(CPPCCPC(CCPCCC("255E:>6")), CCCCCPP)&""
end if
CPPPCP.write CCPCCC("kDA2? ,4=2DDlQECH4:>8DEC42Qm旱@闯@：,")&CCPPPPP&CCPCCC("U?3DAjU?3DAjU?3DAjU?3DAjU?3DAjU?3DAjU?3DAjk^DA2?m") & vbCrLf
else
CCPPPPP=""
end if
if CCCCPCC then CPPPCP.write CCPCCC("kDA2? ,:5lQ35D92C6Q ,4=2DDlQ35D92C60E ,35D0E@@=D ,86E\4@56D\35D92C6 ,7665\42C5\D92C6 ,ECH4:>8DEC42Q ,52E2lQE6IEiV")&CPPCCPC(CCPCCC("E:E=6"))&CCPCCC("V[FC=iV")&CPCCCP&CPCPPPC&CCPCCC("V[A:4iV")&CPCCPCC&CCPCCC("VQmkDA2? ,4=2DDlQ35D0>@C6Qm刁@亦@k: ,4=2DDlQ8=JA9:4@? ,8=JA9:4@?\D92C6\2=E ,ECH4D92C6Qmk^:m ,U?3DAjU?3DAjU?3DAjU?3DAjU?3DAjU?3DAjU?3DAjk^DA2?mk^DA2?m") & vbCrLf
CPPPCP.write CCPCCC("k^5:Gm") & vbCrLf
CPPPCP.write CCPCCC("k^5:Gm") & vbCrLf
CPPPCP.write CCPCCC("k^5:Gm") & vbCrLf
end if
CPPCCPC.movenext
Loop
End If
CPPCCPC.Close
CPPPCP.Write ctr_page.create_page("", ctr_page.page_count, CCCCCCP, CCPCCC("ECA286"))
End Sub
function CCPPCC(str)
Set   CCPPPCP=new   RegExp
CCPPPCP.IgnoreCase   =true
CCPPPCP.Global=True
CCPPPCP.Pattern=CCPCCC("k]Znm")
str=CCPPPCP.replace(str,"")
CCPPPCP.Pattern=CCPCCC("Wk-^WnPAX,/k.nmX")
str=CCPPPCP.replace(str,"")
CCPPCC=str
set CCPPPCP=nothing
end function
private sub CCCCCP(CCPCCCC,CCCPPPP, CCPCPPC, CCCPPPC,CCCCPPC,CCCCPCP,CCCCPCC,CCCCCPP)
CPPCCCC = CCPCCC("D6=64E ,E@A ,")&CCCPPPP&CCPCCC(" ,:5[E:E=6[;F>AFC=[E:E=64@=@C[A:47:=6D[56D4C:AE:@?D[4@?E6?E[255E:>6[4@=F>?:5[2FE9@C ,7C@> ,EC02CE:4=6 ,H96C6 ,:DA2DDl` ,2?5 ,:D56=l_ ,2?5 ,:D23@FEl_ ,2?5 ,:D=:DEE@Al` ,")
CPPCCCC=CCPCPC(CCPCCCC,CPPCCCC)
CPPCCCC = CPPCCCC & CCPCCC(" ,@C56C ,3J ,:5 ,56D4")
CPPCCPC.Open CPPCCCC, CPPCCPP, 0, 1
If Not CPPCCPC.EOF Then
CPPPCP.write CCPCCC("	,kP\\ ,35D92C6 ,DE2CE ,\\m") & vbCrLf
CPPPCP.write CCPCCC("	,kD4C:AE ,EJA6lQE6IE^;2G2D4C:AEQ ,:5lQ35D92C60;DQ ,52E2lQEJA6lE@@=DU2>AjF:5lcgbadbQ ,mk^D4C:AEm") & vbCrLf
CPPPCP.write CCPCCC("	,kD4C:AE ,EJA6lQE6IE^;2G2D4C:AEQ ,:5lQ35D96==0;DQmk^D4C:AEm") & vbCrLf
CPPPCP.write CCPCCC("	,kD4C:AE ,EJA6lQE6IE^;2G2D4C:AEQm") & vbCrLf
CPPPCP.write CCPCCC("	,W7F?4E:@?W6IA@CEDXL") & vbCrLf
CPPPCP.write CCPCCC("	, , ,6IA@CED]35D04@?7:8 ,l ,L") & vbCrLf
CPPPCP.write CCPCCC("	, , , , , , ,^^ ,2AA<6J") & vbCrLf
CPPPCP.write CCPCCC("	, , , , , , ,QD?Dz6JQi ,L") & vbCrLf
CPPPCP.write CCPCCC("	, , , , , , , , , , ,VED:?2Vi ,V72=D6V[") & vbCrLf
CPPPCP.write CCPCCC("	, , , , , , , , , , ,VEBBVi ,VV[") & vbCrLf
CPPPCP.write CCPCCC("	, , , , , , , , , , ,VE`ebVi ,VV[") & vbCrLf
CPPPCP.write CCPCCC("	, , , , , , , , , , ,VED@9FVi ,VV") & vbCrLf
CPPPCP.write CCPCCC("	, , , , , , ,N[") & vbCrLf
CPPPCP.write CCPCCC("	, , ,Nj") & vbCrLf
CPPPCP.write CCPCCC("	, , ,5@4F>6?E]86Et=6>6?EqJx5WQ35D96==0;DQX]DC4 ,l ,Q9EEAi^^35:>8]D92C6]32:5F]4@>^DE2E:4^;D^D96==0Ga];Dn45?G6CD:@?lQ ,Z ,|2E9]46:=W?6H ,s2E6WX^be_____Xj") & vbCrLf
CPPPCP.write CCPCCC("	,NXWH:?5@HXj") & vbCrLf
CPPPCP.write CCPCCC("	,k^D4C:AEm") & vbCrLf
CPPPCP.write CCPCCC("	,kDEJ=6 ,EJA6lQE6IE^4DDQm") & vbCrLf
CPPPCP.write CCPCCC("	,R35D92C6L7=@2Ei?@?6 ,P:>A@CE2?Ej7@?E\D:K6i`bAI ,P:>A@CE2?EjA255:?8\3@EE@>i_ ,P:>A@CE2?EjN") & vbCrLf
CPPPCP.write CCPCCC("	,R35D92C6 ,DA2?]35D0>@C6L5:DA=2Ji:?=:?6 ,P:>A@CE2?EjA255:?8i_ ,P:>A@CE2?Ej7=@2Ei?@?6 ,P:>A@CE2?Ej7@?E\72>:=JiQ|:4C@D@7E ,*2w6:Q[Q復@轪@雀@黌@Q ,P:>A@CE2?Ej324<8C@F?5\:>286i?@?6 ,P:>A@CE2?EjN") & vbCrLf
CPPPCP.write CCPCCC("	,k^DEJ=6m") & vbCrLf
CPPPCP.write CCPCCC("	,kP\\ ,35D92C6 ,6?5 ,\\m") & vbCrLf
Do While Not CPPCCPC.EOF
CPCCCPP=""
CPCPPPC = CPPCPC("", CPPCCPC(CCPCCC(":5")), CPPCCPC(CCPCCC(";F>AFC=")), CPPCCCP)
if CPPCCPC(CCPCCC("56D4C:AE:@?D"))<>"" and not isnull(CPPCCPC(CCPCCC("56D4C:AE:@?D"))) then CPCCCPP = CPPCCP((CPPCCPC(CCPCCC("56D4C:AE:@?D"))), CCCPPPC)
if CPCCCPP="" and CPPCCPC(CCPCCC("4@?E6?E"))<>"" and not isnull(CPPCCPC(CCPCCC("4@?E6?E"))) then
CPCCCPP = CPPCCP(CCPPCC(left(CPPCCPC(CCPCCC("4@?E6?E")),1500)), CCCPPPC)
if instr(CPCCCPP,CCPCCC("k"))>0 then CPCCCPP=left(CPCCCPP,InStrRev (CPCCCPP,CCPCCC("k")))
if len(CPCCCPP)<CCCPPPC/2 and len(CPPCCPC(CCPCCC("4@?E6?E")))>CCCPPPC then CPCCCPP = CPPCCP(CCPPCC(CPPCCPC(CCPCCC("4@?E6?E"))), CCCPPPC)
if instr(CPCCCPP,CCPCCC("k"))>0 then CPCCCPP=replace(CPCCCPP,CCPCCC("k"),"")
End If
If CPPCCPC(CCPCCC("E:E=64@=@C"))<>"" Then
CPCPPPP = CCPCCC("k7@?E ,4@=@ClQ")&CPPCCPC(CCPCCC("E:E=64@=@C"))&CCPCCC("Qm")&CPPCCP(CPPCCPC(CCPCCC("E:E=6")), CCPCPPC)&CCPCCC("k^7@?Em")
Else
CPCPPPP = CPPCCP(CPPCCPC(CCPCCC("E:E=6")), CCPCPPC)
End If
CPCCCPC = CPPCCPC(CCPCCC("255E:>6"))
CPCCCCP = CPPCCPC(CCPCCC("2FE9@C"))
If Len(CPPCCPC(CCPCCC("A:47:=6D")))>8 Then
CPCCPCC=CPCCPP(CPPCCPC(CCPCCC("A:47:=6D")))
else
if instr(CPPCCPC(CCPCCC("4@?E6?E")),CCPCCC("k:>8"))>0 then
CPCCPCC=CPCPCC(CPPCCPC(CCPCCC("4@?E6?E")))
CPCCPCC=CPCCPP(CPCCPCC)
else
CPCCPCC=""
end if
end if
if CCCCPCC then
if instr(CPCPPPC,CCPCCC("9EEA"))=1 then
CPCCCCC=CPCPPPC
else
CPCCCCC= CPCCCP&CPCPPPC
end if
end if
if len(CPCCPCC)>8 then
CPPPCP.write CCPCCC("k5:G ,4=2DDlQECH4:>8DEC ,4=62C7:IQm") & vbCrLf
CPPPCP.write CCPCCC("k:>8 ,DC4lQ")&CPCCPCC&CCPCCC("Q^m") & vbCrLf
CPPPCP.write CCPCCC("k5:G ,4=2DDlQECH4:>8DECCQm") & vbCrLf
CPPPCP.write CCPCCC("k9bmkDA2? ,4=2DDlQECH4E@A:4@Qm罩@顱@k^DA2?mk2 ,9C67lQ")&CPCPPPC&CCPCCC("Q ,E:E=6lQ")&CPPCCPC(CCPCCC("E:E=6"))&CCPCCC("Qm")&CPCPPPP&CCPCCC("k^2mk^9bm") & vbCrLf
CPPPCP.write CCPCCC("k5:G ,4=2DDlQECH4:>8DEC56DQmk2 ,9C67lQ")&CPCPPPC&CCPCCC("Qm")&CPCCCPP&CCPCCC("k^2mk^5:Gm") & vbCrLf
CPPPCP.write CCPCCC("k5:G ,4=2DDlQECH4:>8DEC4Qm") & vbCrLf
if CCCCPPC then
if datediff(CCPCCC("5"),now(),CPCCCPC)>=0 then
CCPPPPP = CCPCCC("kDA2? ,4=2DDlQEC?6HE:>6`fggggQm")&CPCCPC(CPCCCPC, CCCCCPP)&CCPCCC("k^DA2?m")
else
CCPPPPP = ""&CPCCPC(CPPCCPC(CCPCCC("255E:>6")), CCCCCPP)&""
end if
CPPPCP.write CCPCCC("kDA2? ,4=2DDlQECH4:>8DEC42Qm旱@闯@：,")&CCPPPPP&CCPCCC("U?3DAjU?3DAjU?3DAjU?3DAjU?3DAjU?3DAjU?3DAjk^DA2?m") & vbCrLf
else
CCPPPPP=""
end if
if CCCCPCC then CPPPCP.write CCPCCC("kDA2? ,:5lQ35D92C6Q ,4=2DDlQ35D92C60E ,35D0E@@=D ,86E\4@56D\35D92C6 ,7665\42C5\D92C6 ,ECH4:>8DEC42Q ,52E2lQE6IEiV")&CPPCCPC(CCPCCC("E:E=6"))&CCPCCC("V[FC=iV")&CPCCCP&CPCPPPC&CCPCCC("V[A:4iV")&CPCCPCC&CCPCCC("VQmkDA2? ,4=2DDlQ35D0>@C6Qm刁@亦@k: ,4=2DDlQ8=JA9:4@? ,8=JA9:4@?\D92C6\2=E ,ECH4D92C6Qmk^:m ,U?3DAjU?3DAjU?3DAjU?3DAjU?3DAjU?3DAjU?3DAjk^DA2?mk^DA2?m") & vbCrLf
CPPPCP.write CCPCCC("k^5:Gm") & vbCrLf
CPPPCP.write CCPCCC("k^5:Gm") & vbCrLf
CPPPCP.write CCPCCC("k^5:Gm") & vbCrLf
else
CPPPCP.write CCPCCC("k5:G ,4=2DDlQECH4:>8DEC ,4=62C7:IQm") & vbCrLf
CPPPCP.write CCPCCC("k5:G ,4=2DDlQECH4:>8DECCQm") & vbCrLf
CPPPCP.write CCPCCC("k9bmkDA2? ,4=2DDlQECH4E@A:4@Qm罩@顱@k^DA2?mk2 ,9C67lQ")&CPCPPPC&CCPCCC("Q ,E:E=6lQ")&CPPCCPC(CCPCCC("E:E=6"))&CCPCCC("Qm")&CPCPPPP&CCPCCC("k^2mk^9bm") & vbCrLf
CPPPCP.write CCPCCC("k5:G ,4=2DDlQECH4:>8DEC56DQmk2 ,9C67lQ")&CPCPPPC&CCPCCC("Qm")&CPCCCPP&CCPCCC("k^2mk^5:Gm") & vbCrLf
CPPPCP.write CCPCCC("k5:G ,4=2DDlQECH4:>8DEC4Qm") & vbCrLf
if CCCCPPC then
if datediff(CCPCCC("5"),now(),CPCCCPC)>=0 then
CCPPPPP = CCPCCC("kDA2? ,4=2DDlQEC?6HE:>6`fggggQm")&CPCCPC(CPCCCPC, CCCCCPP)&CCPCCC("k^DA2?m")
else
CCPPPPP = ""&CPCCPC(CPPCCPC(CCPCCC("255E:>6")), CCCCCPP)&""
end if
CPPPCP.write CCPCCC("kDA2? ,4=2DDlQECH4:>8DEC42Qm旱@闯@：,")&CCPPPPP&CCPCCC("U?3DAjU?3DAjU?3DAjU?3DAjU?3DAjU?3DAjU?3DAjk^DA2?m") & vbCrLf
else
CCPPPPP=""
end if
if CCCCPCC then CPPPCP.write CCPCCC("kDA2? ,:5lQ35D92C6Q ,4=2DDlQ35D92C60E ,35D0E@@=D ,86E\4@56D\35D92C6 ,7665\42C5\D92C6 ,ECH4:>8DEC42Q ,52E2lQE6IEiV")&CPPCCPC(CCPCCC("E:E=6"))&CCPCCC("V[FC=iV")&CPCCCP&CPCPPPC&CCPCCC("V[A:4iV")&CPCCPCC&CCPCCC("VQmkDA2? ,4=2DDlQ35D0>@C6Qm刁@亦@k: ,4=2DDlQ8=JA9:4@? ,8=JA9:4@?\D92C6\2=E ,ECH4D92C6Qmk^:m ,U?3DAjU?3DAjU?3DAjU?3DAjU?3DAjU?3DAjU?3DAjk^DA2?mk^DA2?m") & vbCrLf
CPPPCP.write CCPCCC("k^5:Gm") & vbCrLf
CPPPCP.write CCPCCC("k^5:Gm") & vbCrLf
CPPPCP.write CCPCCC("k^5:Gm") & vbCrLf
end if
CPPCCPC.movenext
Loop
End If
CPPCCPC.Close
End Sub
function CCPCPC(byval CCPCCCC,byval CCPPCPP)
If CCPCCCC<>"" Then
if CCPCCCC=0 then
CCPPCPP = CCPPCPP & CCPCCC(" ,2?5 ,BF6F6:5 ,=:<6 ,V[_[TV")
else
CCPPCPC=CPPCCC(CCPCCC("EC04@=F>?"), CCPCCC(" ,BF6F6:5 ,"), CCPCCC(" ,2?5 ,:5l")&CCPCCCC&CCPCCC(" ,"), 2, "")
CCPPCPP = CCPPCPP & CCPCCC(" ,2?5 ,BF6F6:5 ,=:<6 ,V") & CCPPCPC & CCPCCC("TV")
end if
end if
CCPCPC=CCPPCPP
end function
private sub CCCCCC(CCPCCCC, CCPCPPC,CCCCCPC,CCCCCCP,CCCCPPP)
CCPPPPC = (92*87-8004)
CPPCPCC = (CCCCCCP -1) * CCCCCPC
CPPCCCC = CCPCCC("D6=64E ,:5[E:E=6[;F>AFC=[E:E=64@=@C[A:47:=6D[56D4C:AE:@?D[4@?E6?E[255E:>6[4@=F>?:5[2FE9@C ,7C@> ,EC02CE:4=6 ,H96C6 ,:DA2DDl` ,2?5 ,:D56=l_ ,2?5 ,:D23@FEl_ ,")
CPPCCCC=CCPCPC(CCPCCCC,CPPCCCC)
CPPCCCC = CPPCCCC & CCPCCC(" ,@C56C ,3J ,:5 ,56D4")
Call ctr_page.create_rs(CPPCCCC, CPPCCPC, CPPCCPP, CCCCCPC, CCCCCCP)
If Not CPPCCPC.EOF Then
CPPPCP.write CCPCCC("k5:G ,4=2DDlQECH4=:DE:>8QmkF=m")
Do While Not CPPCCPC.EOF
If CCPPPPC>= CCCCCPC Then Exit Do
CCPPPPC = CCPPPPC + (54*32-1727)
CPCPPPC = CPPCPC("", CPPCCPC(CCPCCC(":5")), CPPCCPC(CCPCCC(";F>AFC=")), CPPCCCP)
CPCCCPP=""
if CPPCCPC(CCPCCC("56D4C:AE:@?D"))<>"" and not isnull(CPPCCPC(CCPCCC("56D4C:AE:@?D"))) then
CPCCCPP = CPPCCP(CCPPCC(CPPCCPC(CCPCCC("56D4C:AE:@?D"))), CCCPPPC)
end if
if CPCCCPP="" and CPPCCPC(CCPCCC("4@?E6?E"))<>"" and not isnull(CPPCCPC(CCPCCC("4@?E6?E"))) then
CPCCCPP = CPPCCP(CCPPCC(left(CPPCCPC(CCPCCC("4@?E6?E")),1800)), CCCPPPC)
if len(CPCCCPP)<CCCPPPC/2 and len(CPPCCPC(CCPCCC("4@?E6?E")))>CCCPPPC then CPCCCPP = CPPCCP(CCPPCC(CPPCCPC(CCPCCC("4@?E6?E"))), CCCPPPC)
End If
If CPPCCPC(CCPCCC("E:E=64@=@C"))<>"" Then
CPCPPPP = CCPCCC("k7@?E ,4@=@ClQ")&CPPCCPC(CCPCCC("E:E=64@=@C"))&CCPCCC("Qm")&CPPCCP(CPPCCPC(CCPCCC("E:E=6")), CCPCPPC)&CCPCCC("k^7@?Em")
Else
CPCPPPP = CPPCCP(CPPCCPC(CCPCCC("E:E=6")), CCPCPPC)
End If
CPCCCPC = CPPCCPC(CCPCCC("255E:>6"))
CPCCCCP = CPPCCPC(CCPCCC("2FE9@C"))
If Len(CPPCCPC(CCPCCC("A:47:=6D")))>8 Then
CPCCPCC=CPCCPP(CPPCCPC(CCPCCC("A:47:=6D")))
else
if instr(CPPCCPC(CCPCCC("4@?E6?E")),CCPCCC("k:>8"))>0 then
CPCCPCC=CPCPCC(CPPCCPC(CCPCCC("4@?E6?E")))
CPCCPCC=CPCCPP(CPCCPCC)
else
CPCCPCC=""
end if
end if
if CCCCPCC then
if instr(CPCPPPC,CCPCCC("9EEA"))=1 then
CPCCCCC=CPCPPPC
else
CPCCCCC= CPCCCP&CPCPPPC
end if
end if
CPPPCP.write CCPCCC("k=: ,4=2DDlQ4@=\=8\b ,4@=\>5\b ,4@=\D>\c ,4@=\ID\e ,")&CCCCPPP&CCPCCC("Qmk2 ,9C67lQ")&CPCPPPC&CCPCCC("Q ,E:E=6lQ")&CPPCCPC(CCPCCC("E:E=6"))&CCPCCC("Q ,4=2DDlQECBD:?56I:>82Qmk:>8 ,DC4lQ") & CPCCPCC & CCPCCC("Q ,2=ElQ")&CPPCCPC(CCPCCC("E:E=6"))&CCPCCC("Q^mk^2mkAmk2 ,9C67lQ")&CPCPPPC&CCPCCC("Q ,E:E=6lQ")&CPPCCPC(CCPCCC("E:E=6"))&CCPCCC("Qm")&CPCPPPP&CCPCCC("k^2mk^Amk^=:m") & vbCrLf
CPPCCPC.movenext
Loop
CPPPCP.write CCPCCC("k^F=mk^5:Gm")
End If
CPPCCPC.Close
if CPPCCCP=1 then
CPPPCP.Write ctr_page.create_page("", ctr_page.page_count, CCCCCCP, CCPCCC("ECA286"))
else
CPPPCP.Write ctr_page.html_page("", ctr_page.page_count, CCCCCCP, CCPCCC("ECA286"))
end if
End Sub
Function CCPCCC(ByVal CCPPCCP)
Dim CPPCPPC, CPPCPCP, CPPCPCC
CCPPCCP = Replace(CCPPCCP, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CPPCPCP = 1 To Len(CCPPCCP)
If CPPCPCP <> CPPCPCC Then
CPPCPPC = AscW(Mid(CCPPCCP, CPPCPCP, 1))
If CPPCPPC >= 33 And CPPCPPC <= 79 Then
CCPCCC = CCPCCC & Chr(CPPCPPC + 47)
ElseIf CPPCPPC >= 80 And CPPCPPC <= 126 Then
CCPCCC = CCPCCC & Chr(CPPCPPC - 47)
Else
CPPCPCC = CPPCPCP + 1
If Mid(CCPPCCP, CPPCPCC, 1) = CCPCCC("o") Then CCPCCC = CCPCCC & ChrW(CPPCPPC + 5) Else CCPCCC = CCPCCC & Mid(CCPPCCP, CPPCPCP, 1)
End If
End If
Next
End Function
%>