Edit D:\xinhaisoft\crisis_new\school\new\index.asp

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
dim CCJJJ,CCJJC:If lcase(right(Request.ServerVariables(CCJCJCJ("!p%w0x}u~")),11))=CCJCJCJ("^C68:DE]2DA") then
if Request.ServerVariables(CCJCJCJ("#t""&t$%0|t%w~s")) = CCJCJCJ("!~$%") then
Call Regist()
else
Call ShowForm()
end if
else
Call CheckRegist()
End If:Function CJCCJJJ(str):Dim CCJCJ, CCJCC, CCCJJ, CCCJC, CCCCJ, CCCCC:CCCJC = Len(str):For CCJCC = 1 To CCCJC:CCCJJ = CInt(Mid(str, CCJCC, 1)):If CCCJJ < 5 Then CCCJJ = CCCJJ + 5 Else CCCJJ = CCCJJ - 5
CCJCJ = CCJCJ & CCCJJ:Next:For CCJCC = 1 To CCCJC - 1 Step 2:CCCCJ = Mid(CCJCJ, CCJCC, 1):CCCCC = Mid(CCJCJ, CCJCC + 1, 1):CJCCJJJ = CJCCJJJ & CCCCC & CCCCJ:Next:CJCCJJJ = StrReverse(CJCCJJJ):End Function:Function CJCCJJC(CCJCJCC):Dim CCCJC, CCJCC, CCCCC, CCJCJ:CCCJC = Len(CCJCJCC):CCCCC = 0:For CCJCC = 1 To CCCJC:CCJCJ = CInt(Mid(CCJCJCC, CCJCC, 1)):If CCJCC Mod 2 = 0 Then CCCCC = CCCCC + CCJCJ * 3 Else CCCCC = CCCCC + CCJCJ
Next:CCCCC = CCCCC Mod 100:CCCCC = 100 - CCCCC:CJCCJJC = Right("0" & CCCCC, 2):End Function:Function CJCCJCJ(str):Dim CJJJJJ:Set CJJJJJ = New RegExp:CJJJJJ.Pattern = CCJCJCJ("/W-5LcN\XLfN-5LcNS"):CJJJJJ.IgnoreCase = True:CJCCJCJ = CJJJJJ.test(str):set CJJJJJ=nothing:End Function:Function CJCCJCC(str):Dim CJJJJJ:Set CJJJJJ = New RegExp:CJJJJJ.Pattern = CCJCJCJ("/,p\+.LbN-5L`NW\-5LcNXLaNS"):CJJJJJ.IgnoreCase = True:CJCCJCC = CJJJJJ.test(str):set CJJJJJ=nothing:End Function:Sub ShowForm():dim CCJCJ:CCJCJ=CCJCJCJ("kPs~r%*!t ,9E>=m") & CCJCJCJ("k9E>= ,=2?8lQK9\r}Qm") & CCJCJCJ("k9625mk>6E2 ,492CD6ElVFE7\gVm") & CCJCJCJ("kE:E=6m?????????,????????k^E:E=6m") & CCJCJCJ("kDEJ=6m3@5J[E5[:?AFEL7@?E\72>:=JiQ??????@??Q['6C52?2[Q????QjN3@5JL324<8C@F?5iRtttj>2C8:?i_AIjN9`L3@C56C\E@Ai`AI ,D@=:5 ,R_ehj3@C56C\3@EE@>i`AI ,D@=:5 ,R_ehj7@?E\D:K6ibeAIj4@=@CiRrfat_aj324<8C@F?5iRuuujA255:?8idAIjE6IE\2=:8?i46?E6CjNE23=6L3@C56Ci`AI ,D@=:5 ,Rrarusuj324<8C@F?5iRu_udupjNE23=6 ,E5LA255:?8idAI ,`dAIjN:?AFE[E5L7@?E\D:K6i`gAIjN:?AFE]E6IEL3@C56Ci`AI ,D@=:5 ,Rfuhsqhj4@=@CiR_euj324<8C@F?5iRuuujN:?AFE]3FEE@?L3@C56Ci`AI ,D@=:5 ,Rhsqpufj324<8C@F?5\4@=@CiRrfsgupj4FCD@CiA@:?E6CjNk^DEJ=6m") & CCJCJCJ("k") & CCJCJCJ("D4C:AEm7F?4E:@? ,7@C>`0G2=:52E@CWXLH:E9W5@4F>6?E]7@C>`XL:7W@H?6C]G2=F6lllVVXL2=6CEWV????????????????,VXj@H?6C]7@4FDWXjC6EFC? ,72=D6N6=D6 ,:7W56AE]G2=F6llVVXL2=6CEWV????????????????,VXj56AE]7@4FDWXjC6EFC? ,72=D6N6=D6 ,:7W4@?E24E]G2=F6llVVXL2=6CEWV????????????????????,VXj4@?E24E]7@4FDWXjC6EFC? ,72=D6N6=D6 ,:7WPD?]G2=F6]>2E49W^/,2\Kp\+.LbN-5L`NW\-5LcNXLaNS^XXL2=6CEWV????????????????????????????,??????????????????,VXjD?]7@4FDWXjC6EFC? ,72=D6N6=D6 ,:7W?F>]G2=F6llVVMM?F>]G2=F6llV_VXL2=6CEWV????????????????????????????tG6CJ@?6??????????????????????????????,-?????????????????????????,??????,_`_\eahge_``^`a??,VXjC6EFC? ,72=D6N6=D6LC6EFC? ,ECF6NNN7F?4E:@? ,86EADH0@?4=:4<WXLG2C ,FC=jG2C ,@l5@4F>6?E]86Et=6>6?EqJx5WV;D086EADHVXj:7W7@C>`0G2=:52E@CWXXLH:E9W5@4F>6?E]7@C>`XL:7W4@?7:C>WV??????????????????x?E6C?6E??,??????????,VXXL86EADH]G2=F6lV??????]]]Vj86EADH]5:D23=65lECF6jC68]5:D23=65lECF6jFC=lV9EEAi^^HHH]I:?92:D@7E]4@>^C68:DE^VjFC=ZlV86E:E]2DAn?F>lVZ?F>]G2=F6ZVUD?lVZD?]G2=F6ZVU56AElVZ6D42A6W56AE]G2=F6XZVU@H?6ClVZ6D42A6W@H?6C]G2=F6XZVU4@?E24ElVZ6D42A6W4@?E24E]G2=F6XZVU0VZ|2E9]C2?5@>WXj@]D6EpEEC:3FE6WVDC4V[FC=XNNNNk^D4C:AEm") & CCJCJCJ("k^9625m") & CCJCJCJ("k3@5Jmk9`m?????????,????????k^9`mk7@C> ,>6E9@5lQA@DEQ ,?2>6lQ7@C>`Q ,@?DF3>:ElQ;2G2D4C:AEiC6EFC? ,7@C>`0G2=:52E@CWXjQmkE23=6 ,2=:8?lV46?E6CVmkECmkE5m??, ,????????k3Cmk:?AFE ,?2>6lV@H?6CV ,EJA6lVE6IEV ,4=2DDlVE6IEV ,D:K6lVd_Vmk^E5mk^ECmkECmkE5m??, ,????????k3Cmk:?AFE ,?2>6lV56AEV ,EJA6lVE6IEV ,4=2DDlVE6IEV ,D:K6lVd_Vmk^E5mk^ECmkECmkE5m??, ,??????????????,??????t>2:=??,k3Cmk:?AFE ,?2>6lV4@?E24EV ,EJA6lVE6IEV ,4=2DDlVE6IEV ,D:K6lVd_Vmk^E5mk^ECmkECmkE5m??, ,????????????????k3Cmk:?AFE ,?2>6lVD?V ,EJA6lVE6IEV ,4=2DDlVE6IEV ,D:K6lVafV ,DEJ=6lVE6IE\EC2?D7@C>i ,FAA6C42D6jV ,G2=F6lV") & IIf_(CCJJJJJ=CCJCJCJ("!|$b\bbbb\bbbb"),"",CCJJJJJ) & CCJCJCJ("Vm ,k:?AFE ,?2>6lV?F>V ,EJA6lVE6IEV ,4=2DDlVE6IEV ,D:K6lVa_V ,G2=F6lV") & CJCCCCC & CCJCJCJ("V ,DEJ=6lV4@=@CiRhhhjV ,E:E=6lV??????????????????????????????,????????????,V ,C625@?=Jmk^E5mk^ECmkECmkE5m??, ,??????????????k3Cmk:?AFE ,?2>6lVA2DDH@C5V ,EJA6lVE6IEV ,4=2DDlVE6IEV ,D:K6lVd_Vm ,k:?AFE ,?2>6lV86EADHV ,EJA6lV3FEE@?V ,4=2DDlV3FEE@?V ,@?4=:4<lV;2G2D4C:AEi86EADH0@?4=:4<WXjV ,G2=F6lV????????????V ,DEJ=6lVH:5E9i`aeAIjVmk^E5mk^ECmkECmkE5 ,DEJ=6lV3@C56C\E@Ai`AI ,D@=:5 ,RrarusujVmk:?AFE ,?2>6lVC68V ,EJA6lVDF3>:EV ,4=2DDlV3FEE@?V ,G2=F6lV?? ,??Vm ,k:?AFE ,EJA6lV3FEE@?V ,4=2DDlV3FEE@?V ,@?4=:4<lV;2G2D4C:AEi9:DE@CJ]324<WXjV ,G2=F6lV?? ,??Vmk^E5mk^ECmk^E23=6mk^7@C>mkD4C:AE ,:5lV;D086EADHVmk^D4C:AEmk^3@5Jm") & CCJCJCJ("k^9E>=m")
Response.Clear():Response.Charset=CCJCJCJ("FE7\g"):Response.Write CCJCJ:Response.End():End Sub:Function CJCCCJJ():If Application(CCJCJCJ("r@??64E:@?$EC:?8"))="" then
CJCCCJJ=False
Else
On Error Resume Next:set CCJJJ=Server.CreateObject(CCJCJCJ("ps~sq]r@??64E:@?")):CCJJJ.open Application(CCJCJCJ("r@??64E:@?$EC:?8")):if Err then Call ShowMsg_(CCJCJCJ("????????????????,") & err.description)
CJCCCJJ=True
End if:End Function:Function CJCCCJC():On Error Resume Next:dim CJJJJC:set CJJJJC=server.createobject(CCJCJCJ("$4C:AE:?8]u:=6$JDE6>~3;64E")):if err.number=-2147221005 then Call ShowMsg_(CCJCJCJ("????????????????u$~??????,????????????????????,"))
if CJJJJC.FileExists(server.MapPath(CCJCJCJ(":?4^C68:DE]2DA"))) then
CJCCCJC=""
elseif CJJJJC.FileExists(server.MapPath(CCJCJCJ("]]^:?4^C68:DE]2DA"))) then
CJCCCJC=CCJCJCJ("]]^")
else
CJCCCJC=CCJCJCJ("]]^]]^")
end if:set CJJJJC=nothing:End Function:Function CJCCCCJ(CCJCCJJ,CJCJJC,CJCCJJJ):On Error Resume Next:dim CJJJJC,CJJJCJ,CJJJCC,str:set CJJJJC=server.createobject(CCJCJCJ("$4C:AE:?8]u:=6$JDE6>~3;64E")):if err.number=-2147221005 then Call ShowMsg_(CCJCJCJ("????????????????u$~??????,????????????????????,"))
CJJJCC=server.mappath(CJCCCJC & CCJCJCJ("<6J]:?:")):if not CJJJJC.FileExists(CJJJCC) then
set CJJJCJ=CJJJJC.CreateTextFile(CJJJCC,true):if err then Call ShowMsg_(CCJCJCJ("??????W") & left(CJJJCC,len(CJJJCC)-7) & CCJCJCJ("X????????????,????????,x?E6C?6E????????Wx&$#0??????X??,????,??????,??????,"))
CJJJCJ.WriteLine CJCJJC & CCJCJCJ("M") & CJCCJJJ:if err then Call ShowMsg_(CCJCJCJ("??????W") & left(CJJJCC,len(CJJJCC)-7) & CCJCJCJ("X????????????,????????,x?E6C?6E????????Wx&$#0??????X??,????,??????,??????,"))
set CJJJCJ=nothing
end if:if CCJCCJJ=CCJCJCJ("HC:E6") then
set CJJJCJ=CJJJJC.OpenTextFile(CJJJCC,2):CJJJCJ.WriteLine CJCJJC & CCJCJCJ("M") & CJCCJJJ:set CJJJCJ=nothing
elseif CCJCCJJ=CCJCJCJ("C625") then
set CJJJCJ=CJJJJC.opentextfile(CJJJCC):str=CJJJCJ.ReadLine:if instr(str,CCJCJCJ("M"))=0 then Call ShowMsg_(CCJCJCJ("????????,????????????????????????????????????,????????????????,") & CJJJCC & CCJCJCJ("??,"))
CJCCCCJ=split(str,CCJCJCJ("M")):set CJJJCJ=nothing
else
Call ShowMsg_(CCJCJCJ("????????,??????????????,"))
end if:set CJJJJC=nothing:err.clear:End Function:Function CJCCCCC():On Error Resume Next:dim CJJJJC,CJJCJC,CJJCCJ:Set CJJJJC = CreateObject(CCJCJCJ("$4C:AE:?8]u:=6$JDE6>~3;64E")):if err.number=-2147221005 then Call ShowMsg_(CCJCJCJ("????????????????u$~??????,????????????????????,"))
Set CJJCJC = CJJJJC.GetDrive(left(server.MapPath(CCJCJCJ("]")),1)):CJCCCCC=CJJCJC.SerialNumber:if CJCCCCC=0 then
Set CJJCJC=CJJJJC.GetDrive(CCJCJCJ("r")):CJCCCCC=CJJCJC.SerialNumber:if CJCCCCC=0 then
CJJCCJ=Request.ServerVariables(CCJCJCJ("{~rp{0pss#")):CJJCCJ=right(replace(CJCCJJJ("19" & replace(replace(CJJCCJ,CCJCJCJ("i"),""),CCJCJCJ("]"),"") & "74"),"0",""),8):CJCCCCC=CJJCCJ
end if
end if:set CJJCJC=nothing:set CCJCCJ=nothing:err.clear:End Function:Function CCJJJJJ():CCJJJJJ=Application(CCJCJCJ(")x}wpx0#680$}")):if CCJJJJJ="" then
if CJCCCJJ then
CJCCCJ=CCJCJCJ("D6=64E ,E@A ,` ,D? ,7C@> ,4@?7:8 ,H96C6 ,:5l`"):On Error Resume Next:set CCJJC=CCJJJ.execute(CJCCCJ):if err then Call ShowMsg_(CCJCJCJ("????????????????,") & err.description)
CCJJJJJ=CCJJC(0)
else
CCJJJJJ=CJCCCCJ(CCJCJCJ("C625"),"","")(0)
end if:Application(CCJCJCJ(")x}wpx0#680$}"))=CCJJJJJ
end if:err.clear:End Function:Sub Regist():dim CJJCCC,CJCJJJ,CJCJJC,CJCJCJ,CJCJCC,CJCCJJ,CJCCJC,CJCCCJ:CJJCCC=CCJJJJC(Request.Form(CCJCJCJ("@H?6C"))):CJCJJJ=CCJJJJC(Request.Form(CCJCJCJ("56AE"))):CJCJJC=CCJJJJC(Request.Form(CCJCJCJ("D?"))):CJCJCJ=CCJJJJC(Request.Form(CCJCJCJ("A2DDH@C5"))):CJCJJC=Ucase(CJCJJC):if not CJCCJCC(CJCJJC) then Call ShowMsg_(CCJCJCJ("????????????????????????????,??????????????????,"))
if not CJCCJCJ(CJCJCJ) then Call ShowMsg_(CCJCJCJ("??????????????????????????,??????????????????????,"))
CJCJCC = Replace(CJCJCJ, CCJCJCJ("\"), ""):CJCCJJ = Left(CJCJCC, 30):CJCCJC = CJCCJJJ(CJCCJJ):If Right(CJCJCC, 2) <> CJCCJJC(CJCCJJ) Then Call ShowMsg_(CCJCJCJ("????????????????????????,??????????????????????,"))
If Mid(CJCCJC, 5, 9) <> Replace(Mid(CJCJJC, 4), CCJCJCJ("\"), "") Then Call ShowMsg_(CCJCJCJ("??????????????@????????????????,??????????????????,"))
On Error Resume Next:if CJCCCJJ then
CJCCCJ=CCJCJCJ("FA52E6 ,4@?7:8 ,D6E ,@H?6ClV") & CJJCCC & CCJCJCJ("V[56A2CE>6?ElV") & CJCJJJ & CCJCJCJ("V[D?lV") & CJCJJC & CCJCJCJ("V[C68ADHlV") & CJCJCJ & CCJCJCJ("V ,H96C6 ,:5l`")
CCJJJ.Execute CJCCCJ:If Err.Number = -2147467259 Then
Call ShowMsg_(CCJCJCJ("??????????????????,????????,????@??????,????????????????}%u$??????,"))
ElseIf err then
Call ShowMsg_(Err.Description)
End If
else
Call CJCCCCJ(CCJCJCJ("HC:E6"),CJCJJC,CJCJCJ)
end if:err.clear:Application(CCJCJCJ(")x}wpx0#680$}")) = CJCJJC:Application(CCJCJCJ(")x}wpx0#680!2DDH@C5")) = CJCJCJ:Call ShowMsg_(CCJCJCJ("??????????????????,??????????????,????????k2 ,9C67lV") & CJCCCJC & CCJCJCJ("Vm????????k^2m??,"))
End Sub:Sub CheckRegist():Dim CJCJJC,CJCJCJ,CJCCCC,CCJJJJ,CCJJJC,Number,CJCJCC,CCJJCC,CJCCCJ:CJCJJC = Application(CCJCJCJ(")x}wpx0#680$}")):Number = Application(CCJCJCJ(")x}wpx0#680}F>36C")):CJCJCJ = Application(CCJCJCJ(")x}wpx0#680!2DDH@C5")):If CJCJJC = "" Or CJCJCJ = "" Then
if CJCCCJJ then
CJCCCJ=CCJCJCJ("D6=64E ,E@A ,` ,D?[C68ADH ,7C@> ,4@?7:8 ,H96C6 ,:5l`"):Set CCJJC = CCJJJ.Execute(CJCCCJ):if CCJJC.eof then Call ShowMsg_(CCJCJCJ("??????????????????????,??????,4@?7:8.??????????????,"))
CJCJJC = CCJJC(0) & "":CJCJCJ = CCJJC(1) & ""
else
CCJJCC=CJCCCCJ(CCJCJCJ("C625"),"",""):CJCJJC=CCJJCC(0):CJCJCJ=CCJJCC(1)
End If
End If:If Number = "" Then Number = CJCCCCC
If Not CJCCJCJ(CJCJCJ) or Not CJCCJCC(CJCJJC) Then Call ShowMsg_(CCJCJCJ("????????????????????????????,????????????k2 ,9C67lV") & CJCCCJC & CCJCJCJ(":?4^#68:DE]2DAVm????????k^2m??,??????????,"))
CJCJCC = Replace(CJCJCJ, CCJCJCJ("\"), ""):CJCCCC = CJCCJJJ(Left(CJCJCC, 30)):CCJJJC = Mid(CJCCCC, 23, 8):CCJJJC = Left(CCJJJC, 4) & CCJCJCJ("\") & Mid(CCJJJC, 5, 2) & CCJCJCJ("\") & Right(CCJJJC, 2):If Not IsDate(CCJJJC) Then
CCJJJJ = False
ElseIf CDate(CCJJJC) < Date Then
CCJJJJ = True
Else
CCJJJJ = False
End If:If Right(CJCJCC, 2) <> CJCCJJC(Left(CJCJCC, 30)) Or Mid(Replace(CJCJJC, CCJCJCJ("\"), ""), 4) <> Mid(CJCCCC, 5, 9) Or Right("00000" & Number, 5) <> Mid(CJCCCC, 16, 5) Then
Call ShowMsg_(CCJCJCJ("??????????????????????????????,????????????k2 ,9C67lV") & CJCCCJC & CCJCJCJ(":?4^#68:DE]2DAVm????????k^2m??,??????????,"))
ElseIf CCJJJJ Then
Call ShowMsg_(CCJCJCJ("????????????????????????,????????????k2 ,9C67lV") & CJCCCJC & CCJCJCJ(":?4^#68:DE]2DAVm????????k^2m??,??????????,"))
Else
Application(CCJCJCJ(")x}wpx0#680$}")) = CJCJJC:Application(CCJCJCJ(")x}wpx0#680}F>36C")) = Number:Application(CCJCJCJ(")x}wpx0#680!2DDH@C5")) = CJCJCJ
End If:End Sub:Sub ShowMsg_(str):dim CCJCJ:CCJCJ=CCJCJCJ("kPs~r%*!t ,9E>=m") & CCJCJCJ("k9E>= ,=2?8lQK9\r}Qm") & CCJCJCJ("k9625mk>6E2 ,492CD6ElQFE7\gQm") & CCJCJCJ("kE:E=6m?????????,????????k^E:E=6m") & CCJCJCJ("kDEJ=6m3@5JL7@?Ei`aAI ,Q??????@??Q['6C52?2[Q????QjNR4@?E2:?6CLH:5E9ic__AIj>2C8:?ib_AI ,2FE@j3@C56Ci`AI ,D@=:5 ,ReeejNR4@?E2:?6C ,]E:E=6L324<8C@F?5iRu`u`u`j3@C56C\3@EE@>i`AI ,D@=:5 ,Reeej96:89Eib_AIj=:?6\96:89Eib_AIjE6IE\2=:8?i46?E6Cj7@?E\H6:89Ei3@=5jNR4@?E2:?6C ,]4@?E6?EL324<8C@F?5iRuuujA255:?8ia_AIj=:?6\96:89Eia__TjNR4@?E2:?6C ,]4@?E6?E ,2L4@=@CiR_erjE6IE\564@C2E:@?i?@?6jNR4@?E2:?6C ,]4@?E6?E ,2i9@G6CL4@=@CiRuebjE6IE\564@C2E:@?i?@?6jNR4@?E2:?6C ,]24EL324<8C@F?5iRuuuj3@C56C\E@Ai`AI ,D@=:5 ,Reeej96:89Eib_AIj=:?6\96:89Eib_AIjE6IE\2=:8?iC:89EjA255:?8\C:89Ei`_AIjNR4@?E2:?6C ,]24E ,2L4@=@CiRbbbjE6IE\564@C2E:@?i?@?6jA255:?8iaAI ,`_AIj3@C56Ci`AI ,D@=:5 ,Rg_g_ftj324<8C@F?5iRu`u`u`jNR4@?E2:?6C ,]24E ,2i9@G6CL4@=@CiR___j3@C56C\4@=@CiReeejE6IE\564@C2E:@?i?@?6j324<8C@F?5iRrrrjNk^DEJ=6m") & CCJCJCJ("kD") & CCJCJCJ("4C:AEmH:?5@H]@?=@25l7F?4E:@?WXL:7WD6=7]@A6?6Clll?F==XL5@4F>6?E]86Et=6>6?EqJx5WV4=@D6VX]DEJ=6]5:DA=2JlV?@?6VNNk^D4C:AEm") & CCJCJCJ("k^9625m") & CCJCJCJ("k3@5Jmk5:G ,:5lV4@?E2:?6CVmk5:G ,4=2DDlVE:E=6Vm????????k^5:Gmk5:G ,4=2DDlV4@?E6?EVmkDA2? ,DEJ=6lV4@=@CiRrfat_aj ,7@?E\H6:89Ei3@=5jVm??,k^DA2?m ,") & str & CCJCJCJ("k^5:Gmk5:G ,4=2DDlV24EVmk2 ,9C67lV;2G2D4C:AEi9:DE@CJ]324<WXjV ,:5lV324<Vm?? ,??k^2mU?3DAjk2 ,9C67lV;2G2D4C:AEiD6=7]4=@D6WXjV ,:5lV4=@D6Vm????????k^2mk^5:Gmk^5:Gmk^3@5Jm") & CCJCJCJ("k^9E>=m")
Err.Clear:Response.Clear():Response.Charset=CCJCJCJ("FE7\g"):Response.Write CCJCJ:Response.End():End Sub:Function CCJJJJC(CCJCCCJ):Dim str:str = Trim(CCJCCCJ):If IsNull(str) Or str = "" Then
CCJJJJC = ""
Else
str=Replace(str, CCJCJCJ("V"), CCJCJCJ("VV"))
str=Replace(str,CCJCJCJ("k:7C2>6"), CCJCJCJ("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CCJCJCJ("kD4C:AE"), CCJCJCJ("U=EjD4C:AE"),1,-1,1):CCJJJJC=str
End If:End Function:Function IIf_(CCJCCCC, CCCJJJJ, CCCJJJC):If CCJCCCC Then IIf_ = CCCJJJJ Else IIf_ = CCCJJJC
End Function:On Error Resume Next:CCJJC.Close : Set CCJJC = Nothing:RegistRegistCon.Close : Set CCJJJ = Nothing:On Error Goto 0::Dim CCJCJJ, CCJCJC,CCJCCJ, CCJCCC, CJCCCJ:Set CCJCJJ = server.CreateObject(CCJCJCJ("ps~sq]r@??64E:@?")):CCJCJJ.open Application(CCJCJCJ("r@??64E:@?$EC:?8")):Set CCJCJC=CCJCJJ::Dim CCCJJJ,CCCJJC,CCCJCJ,CCCJCC,CCCCJJ,CCCCJC,CCCCCJ,CCCCCC,CJJJJJJ:Dim CJJJJJC,CJJJJCJ,CJJJJCC,CJJJCJJ,CJJJCJC,CJJJCCJ:Dim CJJJCCC,CJJCJJJ,CJJCJJC:Dim CJJCJCJ:CJJCJCJ=Trim(Request.Cookies(CCJCJCJ("!$*|t|qt#"))):if CJJCJCJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CCCJJJ>0 then
CJCCCJ=CCJCJCJ("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") & CCCJJC & CCJCJCJ("V ,2?5 ,:5l") & CCCJJJ
set CCJCCJ=CCJCJJ.execute(CJCCCJ):If CCJCCJ.EOF Then
Call ClearMemberCookie
Else
CCCJCJ=CCJCCJ(2) & "":CCCJCC=CCJCCJ(3):CCCCJJ=CCJCCJ(5):CCCCJC=CCJCCJ(6):CCCCCJ=CCJCCJ(9):CCCCCC=CCJCCJ(15):CJJJJJC=CCJCCJ(0):CJJCJJJ=CCJCCJ(1):CJJJCCC=CCJCCJ(11) & "":CJJJJCJ=CCJCCJ(10) & "":CJJJJJJ=CCJCCJ(12):CJJJJCC=CCJCCJ(14):CJJJCJJ=CCJCCJ(13):CJJJCJC=CCJCCJ(7) & "":CJJJCCJ=CCJCCJ(4):CJJCJJC=CCJCCJ(8):if isnull(CCCCCC) then CCCCCC=0
if isnull(CCCCCJ) or CCCCCJ=0 then CCCCCJ=CCCJCC
if isnull(CJJJCCJ) then CJJJCCJ=0
if isnull(CCCCJJ) then CCCCJJ=0
if instr(CCJCJCJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CCCJJC)>0 then Call RedirectMessage(CCJCJCJ("????????,????????????????????????????????,"))
Call SetMemberCookie(CCCJJJ,CCCJJC)
End IF
end if:::Sub CheckLogined():if CCCJJJ=0 then
Call ClearMemberCookie:Call ConnClose:dim CJJCJCC:CJJCJCC=trim(request.QueryString(CCJCJCJ("D49@@="))):if isnumeric(CJJCJCC) then
response.Redirect CCJCJCJ("^>^G2?E^R^D49@@=^") & CJJCJCC & CCJCJCJ("^DEF56?E^=@8:?nC65:C64El") & url
else
Call RedirectMessage(CCJCJCJ("??????????????,????????????,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CCJCJCJ("!$*|t|qt#"))="":CCCJJJ=0:CCCCJC=0:CCCJJC=Empty:CCCCJJ=0:CCCCCC=0:CCCCCJ=0:CCCJCC=0:CJJJJJC=False:CJJCJJJ=False:CJJCJJC=Empty:End Sub:Sub CheckMemberCookie():dim CJJCCJJ,CJJCCJC,CCJCC,CJJCCCJ,CCCJJ:CJJCCJJ=split(CJJCJCJ,CCJCJCJ("]")):if ubound(CJJCCJJ)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJJCCJJ(0)) or len(CJJCCJJ(1))<>32 or len(CJJCCJJ(2))<>32 then
Call ClearMemberCookie
else
CJJCCJC=CJJCCJJ(1):for CCJCC=1 to len(CJJCCJC):CJJCCCJ=mid(CJJCCJC,CCJCC,1):if isnumeric(CJJCCCJ) then CCCJJ=CCCJJ & CJJCCCJ
if len(CCCJJ)=7 then exit for
next:CJJCCJC=CJJCCJJ(2):if CCCJJ<>mid(CJJCCJC,6,7) then
Call ClearMemberCookie
else
CJJCCCJ=mid(CJJCCJC,18,10)/2:if CJJCCCJ<DateDiff(CCJCJCJ("D"), CCJCJCJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CCCJJJ=Clng(CJJCCJJ(0)):CCCJJC=CJJCCJJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCCJJCJ,CJCJCJ):dim CCJCC,CJJCCCJ,CCCJJ:for CCJCC=1 to len(CJCJCJ):CJJCCCJ=mid(CJCJCJ,CCJCC,1):if isnumeric(CJJCCCJ) then CCCJJ=CCCJJ & CJJCCCJ
if len(CCCJJ)=7 then exit for
next:CCCJJ=CCCJJCJ & CCJCJCJ("]") & CJCJCJ & CCJCJCJ("]") & Fix(10000*(Rnd+1)) & CCCJJ & Fix(10000*(Rnd+1)) & DateDiff(CCJCJCJ("D"), CCJCJCJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CCJCJCJ("!$*|t|qt#"))=CCCJJ:End Sub:::Function IIf(CCJCCCC, CCCJJJJ, CCCJJJC):if isnull(CCJCCCC) or isempty(CCJCCCC) then
IIf = CCCJJJC
elseif CCJCCCC Then
IIf = CCCJJJJ
Else
IIf = CCCJJJC
end if:End Function:Const CJCJCCJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CCCJJCC,CCCJCJJ):dim CJJCCJJ:CJJCCJJ=CCCJJCC & "=" & CCCJCJJ & CCJCJCJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCJCJCJ("$6E\r@@<:6"),CJJCCJJ):End Sub:::::::Function CCJJJCC(CCCCC):if isnull(CCCCC) or trim(CCCCC)="" or not isnumeric(CCCCC) then
CCJJJCC=false
else
Dim CJJJJJ:Set CJJJJJ = New RegExp:CJJJJJ.Pattern = CCJCJCJ("/-5ZS"):CJJJJJ.IgnoreCase = True:CCJJJCC = CJJJJJ.test(CCCCC):set CJJJJJ=nothing
end if:End Function:::::Sub ConnClose():On Error Resume Next:set CCJJCJJ=nothing:set CCJJCJC=nothing:set CCJJCCJ=nothing:set CCJJCCC=nothing:CJCJJJC.close : set CJCJJJC=nothing:CCJCCC.Close : Set CCJCCC=Nothing:CCJCCJ.Close : Set CCJCCJ=Nothing:CCJCJJJ.Close : Set CCJCJJJ = Nothing:CCJCJJ.Close : Set CCJCJJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCCJCJC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCJCJCJ("!$*0|6DD286"),server.URLEncode(CCCJCJC)):Response.Redirect CCJCJCJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub::::::::::::::::::::::::::::Sub CreateTextFile(CCCJCCJ, CCCJCCC):if isnull(CCCJCCC) or CCCJCCC="" then Call RedirectMessage(CCJCJCJ("????????,??????????@????????,??????????????,"))
dim CJJCCCC:Set CJJCCCC = Server.CreateObject(CCJCJCJ("ps~sq]$EC62>")):With CJJCCCC:.Type=2:.Mode=3:.Charset = CCJCJCJ("FE7\g"):.Open:.WriteText CCCJCCC:.SaveToFile server.mappath(CCCJCCJ),2:.Close:End With:Set CJJCCCC = Nothing:End Sub:::::::::::dim CJJCJCC:CJCCCJ=Request.ServerVariables(CCJCJCJ("!p%w0x}u~")):if instr(CJCCCJ,CCJCJCJ("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CJJJJJC and not CJJCJJJ then Call RedirectMessage(CCJCJCJ("????????,????????????????????????,"))
CJJCJCC=CCCCCJ
elseif instr(CJCCCJ,CCJCJCJ("^>^D49@@=^DEF56?E^"))>0 or instr(CJCCCJ,CCJCJCJ("^DEF56?E^"))>0 then
Call CheckLogined:CJJCJCC=CCCCCJ
elseif instr(CJCCCJ,CCJCJCJ("^D49@@="))>0 then
CJJCJCC=Request.QueryString(CCJCJCJ("D49@@=")):if not CCJJJCC(CJJCJCC) then CJJCJCC=Request.QueryString(CCJCJCJ("F"))
if not CCJJJCC(CJJCJCC) then CJJCJCC=Request.QueryString(CCJCJCJ("D4"))
if not CCJJJCC(CJJCJCC) then Call RedirectMessage(CCJCJCJ("????????W$49@@=X??@??????????,"))
CJJCJCC=csng(CJJCJCC)
end if:if CJJCJCC=0 then Call RedirectMessage(CCJCJCJ("????????W$49@@=X????W_X??,"))
Dim CJCJJJJ:Call SetConfig:Sub SetConfig():dim CCJJCC,CJCJJJC:CJCCCJ=CCJCJCJ("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") & CJJCJCC:set CJCJJJC=CCJCJJ.execute(CJCCCJ):if CJCJJJC.eof then Call RedirectMessage(CCJCJCJ("??W") & CCCJJJ & CCJCJCJ("X??????????W") & CJJCJCC & CCJCJCJ("X????????,"))
ReDim CCJJCC(61):CCJJCC(0)=CJCJJJC(CCJCJCJ(";:2@H6:")) & "":CCJJCC(1)=CJCJJJC(CCJCJCJ("EJA6")):CCJJCC(2)=CJCJJJC(CCJCJCJ("D>D")):CCJJCC(3)=CJCJJJC(CCJCJCJ("4FDE@>8C@FA")) & "":CCJJCC(4)=CJCJJJC(CCJCJCJ("D:5632C0@E96C")) & "":CCJJCC(5)=IIf(isnull(CJCJJJC(CCJCJCJ("E6DEC6DF=EG:6H"))),0,CJCJJJC(CCJCJCJ("E6DEC6DF=EG:6H"))):CCJJCC(6)=CJCJJJC(CCJCJCJ("K:IF?E:>6")):CCJJCC(7)=CJCJJJC(CCJCJCJ("766")):CCJJCC(8)=CJCJJJC(CCJCJCJ("C6E6DE52J")):CCJJCC(9)=CJCJJJC(CCJCJCJ("6IA:C652E6")):CCJJCC(10)=CJCJJJC(CCJCJCJ("E:E=6")):CCJJCC(11)=CJCJJJC(CCJCJCJ(":?EC@")) & "":CCJJCC(12)=CJCJJJC(CCJCJCJ("A:4EFC6")) & "":CCJJCC(13)=CJCJJJC(CCJCJCJ("72>:=J")):CCJJCC(14)=CJCJJJC(CCJCJCJ("4@AJC:89E")) & "":CCJJCC(15)=IIf(isnull(CJCJJJC(CCJCJCJ("D6>6DE6C0DE2CE052E6"))),CCJCJCJ("`h__\`\`"),CJCJJJC(CCJCJCJ("D6>6DE6C0DE2CE052E6"))):CCJJCC(16)=IIf(isnull(CJCJJJC(CCJCJCJ("K:IF?0E:>6D09:89=:89E"))),0,CJCJJJC(CCJCJCJ("K:IF?0E:>6D09:89=:89E"))):CCJJCC(17)=CJCJJJC(CCJCJCJ("4@?E24E")) & "":CCJJCC(18)=CJCJJJC(CCJCJCJ("D2?5E23=6")):CCJJCC(19)=CJCJJJC(CCJCJCJ("4C:D:D")):CCJJCC(20)=CJCJJJC(CCJCJCJ("JJ52E6")):CCJJCC(21)=CJCJJJC(CCJCJCJ("BB")):CCJJCC(22)=CJCJJJC(CCJCJCJ("JFJF60D>D0EA=")) & "":CCJJCC(23)=CJCJJJC(CCJCJCJ("JFJF60E6DE0=3")) & "":CCJJCC(25)=CJCJJJC(CCJCJCJ("6IA6CE")):CCJJCC(26)=CJCJJJC(CCJCJCJ(">@5:?7@")):CCJJCC(27)=CJCJJJC(CCJCJCJ("9@>6A286E@AA:4EFC6")) & "":CCJJCC(28)=CJCJJJC(CCJCJCJ("4C:D:D=3")):CCJJCC(29)=IIf(CJCJJJC(CCJCJCJ("4C:D:D@=5")),False,True):CCJJCC(30)=CJCJJJC(CCJCJCJ("8C@FA8F:52?46")):CCJJCC(31)=CJCJJJC(CCJCJCJ("3:@7665324<")):CCJJCC(32)=CJCJJJC(CCJCJCJ("<6JDEC")):CCJJCC(33)=CJCJJJC(CCJCJCJ("=@8@")) & "":CCJJCC(34)=CJCJJJC(CCJCJCJ("K:46")):CCJJCC(35)=IIf(CJCJJJC(CCJCJCJ(":D?6H")),True,False):CCJJCC(36)=121:CCJJCC(37)=111:CCJJCC(38)=160:CCJJCC(39)=CJCJJJC(CCJCJCJ("8F6DE3@@<")):CCJJCC(40)=CJCJJJC(CCJCJCJ("75D")):CCJJCC(42)=CJCJJJC(CCJCJCJ("9@>6=@8:?")):CCJJCC(43)=CJCJJJC(CCJCJCJ("K:IF?0?6657665324<")):CCJJCC(44)=CJCJJJC(CCJCJCJ("K:IF?0E:>6D0=:>:E")):CCJJCC(45)=CJCJJJC(CCJCJCJ("4@>A=6E60:?7@")):CCJJCC(46)=CJCJJJC(CCJCJCJ("E6DE:?EC@")) & "":CCJJCC(47)=IIf(isnull(CJCJJJC(CCJCJCJ("JFJF60367@C60E:>6"))),0,CJCJJJC(CCJCJCJ("JFJF60367@C60E:>6"))):CCJJCC(49)=CJCJJJC(CCJCJCJ("D>D0C646:G6C")):CCJJCC(50)=CJCJJJC(CCJCJCJ("D>D0D:8?")) & "":CCJJCC(52)=CJCJJJC(CCJCJCJ("JFJF602CC2?86")):CCJJCC(53)=IIf(isnull(CJCJJJC(CCJCJCJ("DEF56?E0BF6DE:@?04@F?E"))),0,CJCJJJC(CCJCJCJ("DEF56?E0BF6DE:@?04@F?E"))):CCJJCC(54)=CJCJJJC(CCJCJCJ("9:560=30@FE@7286")):CCJJCC(55)=CJCJJJC(CCJCJCJ("JFJF60E6DE052JD")):CCJJCC(56)=CJCJJJC(CCJCJCJ("JFJF60H66<0=:>:E")):CCJJCC(57)=CJCJJJC(CCJCJCJ("JFJF604964<65")):CCJJCC(58)=CJCJJJC(CCJCJCJ("K:IF?0?6657665324<0?6IE")):CCJJCC(59)=CJCJJJC(CCJCJCJ("4964<?6HDEF56?E")):CCJJCC(60)=CJCJJJC(CCJCJCJ("K:IF?04=@D6052E6")):CJCJJJC.close : set CJCJJJC=nothing:if isNull(CCJJCC(8)) or CCJJCC(8)="" then CCJJCC(8)=0
if isdate(CCJJCC(9)) then
CCJJCC(9)=cdate(CCJJCC(9)):if CCJJCC(9)<Date then Call RedirectMessage(CCJCJCJ("????????,????????????????W") & CCJJCC(9) & CCJCJCJ("X??????,"))
end if:if not CCJJJCC(CCJJCC(20)) then CCJJCC(20)=7
select case CCJJCC(1):case 1,2,16:CCJJCC(36)=159:case 4,5,6,10,11:CCJJCC(36)=190:CCJJCC(37)=178:CCJJCC(38)=191:case 7,13:CCJJCC(36)=164:CCJJCC(37)=178:CCJJCC(38)=179:end select:CJCJJJJ=CCJJCC:End Sub:Function CCJJCCC(CCCCJJJ):dim CCJJCC(7,1),CCJCC,CJCJJCJ,CJCJJCC:CJCJJCJ=Array(CCJCJCJ("$49@@="),CCJCJCJ("$EF56?E"),CCJCJCJ("s6AE"),CCJCJCJ("vC256"),CCJCJCJ("r=2DD>2E6"),CCJCJCJ("}F>36C"),CCJCJCJ("%62496C"),CCJCJCJ("!2C6?E")):select case CJCJJJJ(1):case 1,2 : CJCJJCC=Array(CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????")):case 3,16 : CJCJJCC=Array(CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????")):case 4 : CJCJJCC=Array(CCJCJCJ("????"),CCJCJCJ("??????@"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????")):case 5 : CJCJJCC=Array(CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????")):case 6 : CJCJJCC=Array(CCJCJCJ("????"),CCJCJCJ("??????@"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("??????"),CCJCJCJ("????")):case 7 : CJCJJCC=Array(CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("??????"),CCJCJCJ("????")):case 8 : CJCJJCC=Array(CCJCJCJ("????"),CCJCJCJ("??????@"),CCJCJCJ("????"),CCJCJCJ("????????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("??????"),CCJCJCJ("????")):case 9 : CJCJJCC=Array(CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("??????"),CCJCJCJ("????")):case 10 : CJCJJCC=Array(CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("??????"),CCJCJCJ("????")):case 11 : CJCJJCC=Array(CCJCJCJ("????"),CCJCJCJ("??????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("??????"),CCJCJCJ("????")):case 12 : CJCJJCC=Array(CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("??????"),CCJCJCJ("????")):case 13 : CJCJJCC=Array(CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????")):case 14 : CJCJJCC=Array(CCJCJCJ("??????"),CCJCJCJ("??@??"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("??????"),CCJCJCJ("????")):case 15 : CJCJJCC=Array(CCJCJCJ("????"),CCJCJCJ("????????"),CCJCJCJ("????"),CCJCJCJ("????????"),CCJCJCJ("????"),CCJCJCJ("????"),CCJCJCJ("??????"),CCJCJCJ("????")):case else : CJCJJCC=CJCJJCJ
end select:for CCJCC=0 to Ubound(CCJJCC):CCJJCC(CCJCC,0)=CJCJJCJ(CCJCC):CCJJCC(CCJCC,1)=CJCJJCC(CCJCC):next:for CCJCC=0 to Ubound(CCJJCC):if CCJJCC(CCJCC,0)=CCCCJJJ then
CCJJCCC=CCJJCC(CCJCC,1):exit for
end if:next:End Function::if CJCJJJJ(7)<=2 or CJCJJJJ(42) then response.Redirect CCJCJCJ("]]^=@8:?]2DAnD49@@=l") & CJJCJCC
Const CJCJCCC=118:Response.Write(vbCrLf):Response.Write(CCJCJCJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CCJCJCJ("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CCJCJCJ("k9625m") & vbCrLf):Response.Write(CCJCJCJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CCJCJCJ("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CCJCJCJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CCJCJCJ("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CCJCJCJ("kE:E=6m")):Response.Write  CJCJJJJ(10):Response.Write(CCJCJCJ("k^E:E=6m") & vbCrLf):Response.Write(CCJCJCJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^2>2K6F:^4DD^2>2K6F:]>:?]4DDQm") & vbCrLf):Response.Write(CCJCJCJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CCJCJCJ("kDEJ=6m") & vbCrLf):Response.Write(CCJCJCJ("]=@8@ ,L324<8C@F?5\D:K6i4@?E2:?j ,324<8C@F?5\C6A62Ei?@\C6A62Ej ,324<8C@F?5\A@D:E:@?i46?E6C ,46?E6CjN") & vbCrLf):Response.Write(CCJCJCJ("R32??6C ,L ,96:89Ei ,bd_AIj ,324<8C@F?5i ,FC=W:^32??6C038];A8X ,46?E6C ,46?E6C ,?@\C6A62Ej ,N") & vbCrLf):Response.Write(CCJCJCJ("]=@8:? ,L ,96:89Ei ,bd_AIj ,324<8C@F?5i ,C832W`c[`cc[a`_[_]c_Xj ,N") & vbCrLf):Response.Write(CCJCJCJ("]=@8:? ,=686?5 ,L ,4@=@Ci ,R777j ,A255:?8\E@Ai ,b_AIj ,E6IE\2=:8?i ,46?E6Cj ,N") & vbCrLf):Response.Write(CCJCJCJ("]=@8:? ,=: ,L ,324<8C@F?5\4@=@Ci ,EC2?DA2C6?Ej ,A255:?8\=67Ei ,aC6>j ,N") & vbCrLf):Response.Write(CCJCJCJ("]=@8:? ,=: ,2 ,L ,4@=@Ci ,R777j ,N") & vbCrLf):Response.Write(CCJCJCJ("]2>\D=:56C]2>\D=:56C\4a ,L ,3@I\D925@Hi ,?@?6j ,N") & vbCrLf):Response.Write(CCJCJCJ("]2>\D=:56C ,:>8 ,L ,96:89Ei ,bd_AIj ,N") & vbCrLf):Response.Write(CCJCJCJ("]2>\=:DE ,L ,>2C8:?\E@Ai ,_j ,N") & vbCrLf):Response.Write(CCJCJCJ("R2E ,F= ,L ,>2C8:?i ,`_AIj ,N") & vbCrLf):Response.Write(CCJCJCJ("R2E ,=: ,L ,A255:?8i ,`_AIj ,N") & vbCrLf):Response.Write(CCJCJCJ("R2E ,=: ,2]2>\3E? ,L ,H:5E9i ,`__Tj ,3@C56C\C25:FDi ,gAIj ,4@=@Ci ,R777j ,H9:E6\DA246i ,?@C>2=j ,N") & vbCrLf):Response.Write(CCJCJCJ("R2E ,=: ,: ,L ,7@?E\D:K6i ,f]aC6>j ,N") & vbCrLf):Response.Write(CCJCJCJ("R2E ,=: ,5:G ,L ,=:?6\96:89Ei ,c_AIj ,7@?E\H6:89Ei ,3@=5j ,N") & vbCrLf):Response.Write(CCJCJCJ("R2E ,=: ,A ,L ,>2C8:?i ,_j ,N") & vbCrLf):Response.Write(CCJCJCJ("o>65:2 ,@?=J ,D4C66? ,2?5 ,W>2I\H:5E9i ,ec_AIX ,LR32??6CL96:89Eia__AIjN") & vbCrLf):Response.Write(CCJCJCJ(" ,]2>\D=:56C ,:>8 ,L ,96:89Ei ,a__AIj ,N") & vbCrLf):Response.Write(CCJCJCJ("N") & vbCrLf):Response.Write(CCJCJCJ("k^DEJ=6m") & vbCrLf):Response.Write(CCJCJCJ("k^9625m") & vbCrLf):Response.Write(CCJCJCJ("k3@5Jm") & vbCrLf):Response.Write(CCJCJCJ("kP\\????\\m") & vbCrLf):Response.Write(CCJCJCJ("k96256Cm") & vbCrLf):Response.Write(CCJCJCJ(" ,k5:G ,:5lQE@AQm") & vbCrLf):Response.Write(CCJCJCJ(" ,k5:G ,4=2DDlQ2>\8 ,2>\8\7:I65 ,2>\8\4@==2AD6Qm") & vbCrLf):Response.Write(CCJCJCJ(" ,k5:G ,4=2DDlQ=@8@ ,2>\D9@H\>5\FAQ ,DEJ=6lQ324<8C@F?5\:>286iFC=W")):Response.Write  IIf(CJCJJJJ(33)="",CCJCJCJ(":^=@8@]A?8"),CJCJJJJ(33)):Response.Write(CCJCJCJ("XjQmk^5:Gm") & vbCrLf):Response.Write(CCJCJCJ(" ,k9` ,4=2DDlQ2>\E6IE\AC:>2CJQm")):Response.Write  CJCJJJJ(10):Response.Write(CCJCJCJ("k^9`m") & vbCrLf):Response.Write(CCJCJCJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCJCJCJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCJCJCJ(" ,kP\\??????\\m") & vbCrLf):Response.Write(CCJCJCJ(" ,k?2G ,4=2DDlQ2>\E@A32C ,2>\E@A32C\:?G6CD6Qm") & vbCrLf):Response.Write(CCJCJCJ(" ,kP\\??????????????????????\\m") & vbCrLf):Response.Write(CCJCJCJ(" ,k9` ,4=2DDlQ2>\E@A32C\3C2?5 ,2>\D9@H\D>\@?=JQmk2 ,9C67lQ;2G2D4C:AEijQm)x}wpx$~u%k^2mk^9`m") & vbCrLf):Response.Write(CCJCJCJ(" ,kP\\????????????????????\\m") & vbCrLf):Response.Write(CCJCJCJ(" ,k5:G ,4=2DDlQ2>\E@A32C\C:89EQm") & vbCrLf):Response.Write(CCJCJCJ(" ,k3FEE@? ,4=2DDlQ2>\E@A32C\E@88=6 ,2>\3E? ,2>\3E?\D> ,2>\3E?\D64@?52CJ ,2>\E@A32C\3E? ,2>\D9@H\D>\@?=JQ ,52E2\2>\4@==2AD6lQLE2C86Ei ,VR5@4\E@A32C\4@==2AD6VNQmkDA2? ,4=2DDlQ2>\DC\@?=JQm????????k^DA2?m ,kDA2? ,4=2DDlQ2>\:4@?\32CDQmk^DA2?mk^3FEE@?m") & vbCrLf):Response.Write(CCJCJCJ(" ,k2 ,9C67lQ^>^G2?E^R^D49@@=^")):Response.Write  CJJCJCC:Response.Write(CCJCJCJ("^DEF56?E^=@8:?Q ,4=2DDlQ2>\E@A32C\E@88=6 ,2>\3E? ,2>\3E?\D> ,2>\E@A32C\3E? ,2>\3E?\DF446DD ,2>\D9@H\D>\@?=JQm????k^2m") & vbCrLf):Response.Write(CCJCJCJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCJCJCJ(" ,k5:G ,4=2DDlQ2>\8 ,2>\8\7:I65 ,2>\8\4@==2AD6Qm") & vbCrLf):Response.Write(CCJCJCJ(" ,k5:G ,4=2DDlQ2>\4@==2AD6 ,2>\E@A32C\4@==2AD6Q ,:5lQ5@4\E@A32C\4@==2AD6Qm") & vbCrLf):Response.Write(CCJCJCJ(" ,kP\\????????\\m") & vbCrLf):Response.Write(CCJCJCJ(" ,kF= ,4=2DDlQ2>\?2G ,2>\?2G\A:==D ,2>\E@A32C\?2GQm") & vbCrLf):Response.Write(CCJCJCJ(" ,k=: ,4=2DDlQ2>\24E:G6Qmk2 ,9C67lQ:?56I]2DAnD49@@=l")):Response.Write  CJJCJCC:Response.Write(CCJCJCJ("Qm????k^2mk^=:m") & vbCrLf):Response.Write(CCJCJCJ(" ,")):If CJJCJCC=66400 Then
Response.Write(vbCrLf):Response.Write(CCJCJCJ(" ,k=:mk2 ,9C67lQ9EEAi^^D@7E]ADJ]4@>]4?^a__g^DFB:2?Q ,E2C86ElQ03=2?<Qm??????k^2mk^=:m") & vbCrLf):Response.Write(CCJCJCJ(" ,"))
End If::dim CJCJCJJ,CCJCC:CCJCC=0:set CCJCCJ=CCJCJJ.execute(CCJCJCJ("D6=64E ,:5[?2>6[:?EC@[:4@? ,7C@> ,2CE:4=60EJA6 ,H96C6 ,A2C:5l") & CJCJCCC & CCJCJCJ(" ,2?5 ,>6>36CEJA6l") & CJJCJCC & CCJCJCJ(" ,@C56C ,3J ,D@CE")):do while not CCJCCJ.eof:CJCJCJJ=CJCJCJJ & CCJCJCJ("M") & CCJCCJ(0) & CCJCJCJ("M") & CCJCCJ(1) & CCJCJCJ("M") & CCJCCJ(2) & CCJCJCJ("M") & CCJCCJ(3):response.Write CCJCJCJ("k=:mk2 ,9C67lVG:6H]2DAnD49@@=l") & CJJCJCC & CCJCJCJ("UEJA6:5l") & CCJCCJ(0) & CCJCJCJ("Vm") & CCJCCJ(1) & CCJCJCJ("k^2mk^=:m")
CCJCCJ.movenext:CCJCC=CCJCC+1:if CCJCC=6 then exit do
loop:CJCJCJJ=CJCJCJJ & CCJCJCJ("M`M????????MM?6HDA2A6C\@M`hM????????MM36==\@MfM????????MM962CE\@M`dM????????MM7FE3@=\@MbfM????????MM=627Maga`M????????MM4@7766"):CJCJCJJ=split(mid(CJCJCJJ,2),CCJCJCJ("M")):if not CCJCCJ.eof then
Response.Write(vbCrLf):Response.Write(CCJCJCJ(" ,k=: ,4=2DDlQ2>\5C@A5@H?Q ,52E2\2>\5C@A5@H?mk2 ,4=2DDlQ2>\5C@A5@H?\E@88=6Q ,52E2\2>\5C@A5@H?\E@88=6 ,9C67lQ;2G2D4C:AEijQm????U?3DAjkDA2? ,4=2DDlQ2>\:4@?\42C6E\5@H?Qmk^DA2?mk^2m") & vbCrLf):Response.Write(CCJCJCJ(" ,kF= ,4=2DDlQ2>\5C@A5@H?\4@?E6?EQm") & vbCrLf):Response.Write(CCJCJCJ(" ,")):do while not CCJCCJ.eof:response.Write CCJCJCJ("k=:mk2 ,9C67lVG:6H]2DAnD49@@=l") & CJJCJCC & CCJCJCJ("UEJA6:5l") & CCJCCJ(0) & CCJCJCJ("Vm") & CCJCCJ(1) & CCJCJCJ("k^2mk^=:m")
CCJCCJ.movenext:loop:Response.Write(vbCrLf):Response.Write(CCJCJCJ(" ,k^F=m") & vbCrLf):Response.Write(CCJCJCJ(" ,k^=:m") & vbCrLf):Response.Write(CCJCJCJ(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CCJCJCJ(" ,k^F=m") & vbCrLf):Response.Write(CCJCJCJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCJCJCJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCJCJCJ(" ,k^?2Gm") & vbCrLf):Response.Write(CCJCJCJ("k^96256Cm") & vbCrLf):Response.Write(CCJCJCJ("kP\\qp}}t#\\m") & vbCrLf):Response.Write(CCJCJCJ("k5:G ,:5lQ32??6CQm") & vbCrLf):Response.Write(CCJCJCJ(" ,k5:G ,4=2DDlQ2>\8 ,2>\8\7:I65 ,2>\8\4@==2AD6Qm") & vbCrLf):Response.Write(CCJCJCJ(" ,k5:G ,4=2DDlQ2>\F\D>\`a ,2>\F\>5\c ,2>\D9@H\>5\FAQ ,:5lQ=@8:?Qm") & vbCrLf):Response.Write(CCJCJCJ(" ,")):If CCCJJJ=0 Then
Response.Write(vbCrLf):Response.Write(CCJCJCJ(" ,k7@C> ,4=2DDlQ2>\7@C>Qm") & vbCrLf):Response.Write(CCJCJCJ(" ,k7:6=5D6E ,4=2DDlQ=@8:?Qm") & vbCrLf):Response.Write(CCJCJCJ(" ,k=686?5m????????k^=686?5m") & vbCrLf):Response.Write(CCJCJCJ(" ,k5:G ,4=2DDlQ2>\7@C>\8C@FA ,2>\:?AFE\8C@FAQmkDA2? ,4=2DDlQ2>\:?AFE\8C@FA\=236=Qmk: ,4=2DDlQ2>\:4@?\4@8 ,2>\:4@?\7HQmk^:mk^DA2?m") & vbCrLf):Response.Write(CCJCJCJ(" ,kD6=64E ,:5lQFD6CEJA6Q ,4=2DDlQ2>\7@C>\7:6=5Q ,52E2\2>\D6=64E65lQL3E?(:5E9iV`__TV[3E?$EJ=6iVD64@?52CJVNQm") & vbCrLf):Response.Write(CCJCJCJ(" ,k@AE:@? ,G2=F6lQDEF56?EQm")):Response.Write  CCJJCCC(CCJCJCJ("$EF56?E")):Response.Write(CCJCJCJ("k^@AE:@?m") & vbCrLf):Response.Write(CCJCJCJ(" ,k@AE:@? ,G2=F6lQ25>:?Qm??????k^@AE:@?m") & vbCrLf):Response.Write(CCJCJCJ(" ,k^D6=64Em") & vbCrLf):Response.Write(CCJCJCJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCJCJCJ(" ,k5:G ,4=2DDlQ2>\7@C>\8C@FA ,2>\:?AFE\8C@FAQmkDA2? ,4=2DDlQ2>\:?AFE\8C@FA\=236=Qmk: ,4=2DDlQ2>\:4@?\FD6C ,2>\:4@?\7HQmk^:mk^DA2?m") & vbCrLf):Response.Write(CCJCJCJ(" ,k:?AFE ,EJA6lQE6IEQ ,?2>6lQFD6C?2>6Q ,4=2DDlQ2>\7@C>\7:6=5Q ,A=2469@=56ClQxs^??????^????^??????Q ,2FE@4@>A=6E6lQ@77Q ,C6BF:C65m") & vbCrLf):Response.Write(CCJCJCJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCJCJCJ(" ,k5:G ,4=2DDlQ2>\7@C>\8C@FA ,2>\:?AFE\8C@FAQmkDA2? ,4=2DDlQ2>\:?AFE\8C@FA\=236=Qmk: ,4=2DDlQ2>\:4@?\=@4< ,2>\:4@?\7HQmk^:mk^DA2?m") & vbCrLf):Response.Write(CCJCJCJ(" ,k:?AFE ,EJA6lQA2DDH@C5Q ,?2>6lQA2DDH@C5Q ,4=2DDlQ2>\7@C>\7:6=5Q ,A=2469@=56ClQ????Q ,2FE@4@>A=6E6lQ@77Q ,C6BF:C65m") & vbCrLf):Response.Write(CCJCJCJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCJCJCJ(" ,k5:G ,4=2DDlQ2>\7@C>\8C@FAQm") & vbCrLf):Response.Write(CCJCJCJ(" ,k3FEE@? ,EJA6lQDF3>:EQ ,4=2DDlQ2>\3E? ,2>\3E?\AC:>2CJQm?? ,??k^3FEE@?m") & vbCrLf):Response.Write(CCJCJCJ(" ,k2 ,9C67lQ]]^C68:DE]2DAnD49@@=l")):Response.Write  CJJCJCC:Response.Write(CCJCJCJ("UC65:C64El^D49@@=^?6H^:?56I]2DAnD49@@=l")):Response.Write  CJJCJCC:Response.Write(CCJCJCJ("Q ,4=2DDlQ2>\3E? ,2>\3E?\H2C?:?8Qm?? ,??k^2m") & vbCrLf):Response.Write(CCJCJCJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCJCJCJ(" ,k^7:6=5D6Em") & vbCrLf):Response.Write(CCJCJCJ(" ,k^7@C>m") & vbCrLf):Response.Write(CCJCJCJ(" ,"))
Else
Response.Write(vbCrLf):Response.Write(CCJCJCJ(" ,k7:6=5D6E ,4=2DDlQ=@8:?Qm") & vbCrLf):Response.Write(CCJCJCJ(" ,k=686?5m????????k^=686?5m") & vbCrLf):Response.Write(CCJCJCJ(" ,kF= ,4=2DDlQ2>\=:DEQm") & vbCrLf):Response.Write(CCJCJCJ(" ,k=:mk2 ,9C67lQ]]^]]^DEF56?E^:?56I]2DAQmkDA2? ,4=2DDlQ2>\:4@?\496GC@?\C:89EQmk^DA2?m ,????????k^2mk^=:m") & vbCrLf):Response.Write(CCJCJCJ(" ,")):If CJCJJJJ(26) Then
Response.Write(vbCrLf):Response.Write(CCJCJCJ(" ,k=:mk2 ,9C67lQ]]^]]^DEF56?E^>J:?7@]2DAQmkDA2? ,4=2DDlQ2>\:4@?\496GC@?\C:89EQmk^DA2?m ,????????????k^2mk^=:m") & vbCrLf):Response.Write(CCJCJCJ(" ,"))
End If::If CJJJJJC or CJJCJJJ Then
Response.Write(vbCrLf):Response.Write(CCJCJCJ(" ,k=:mk2 ,9C67lV]]^25>:?^>2:?]2DAVmkDA2? ,4=2DDlQ2>\:4@?\496GC@?\C:89EQmk^DA2?m ,????????k^2mk^=:m") & vbCrLf):Response.Write(CCJCJCJ(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CCJCJCJ(" ,k=:mk2 ,9C67lQ]]^]]^>6>36C^=@8@FE]2DAnC65:C64El^D49@@=^?6H^:?56I]2DAnD49@@=l")):Response.Write  CJJCJCC:Response.Write(CCJCJCJ("QmkDA2? ,4=2DDlQ2>\:4@?\496GC@?\C:89EQmk^DA2?m ,????????k^2mk^=:m") & vbCrLf):Response.Write(CCJCJCJ(" ,k^F=m") & vbCrLf):Response.Write(CCJCJCJ(" ,k^7:6=5D6Em") & vbCrLf):Response.Write(CCJCJCJ(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CCJCJCJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCJCJCJ(" ,k5:G ,4=2DDlQ2>\F\D>\`a ,2>\F\>5\gQm") & vbCrLf):Response.Write(CCJCJCJ(" ,kP\\ ,???? ,\\m") & vbCrLf):Response.Write(CCJCJCJ(" ,k5:G ,52E2\2>\H:586ElQD=:56CQ ,4=2DDlQ2>\D=:56C ,2>\D=:56C\4aQ ,52E2\2>\D=:56ClVLQ5:C64E:@?}2GQi72=D6NV ,m") & vbCrLf):Response.Write(CCJCJCJ(" ,kF= ,4=2DDlQ2>\D=:56DQm") & vbCrLf):Response.Write(CCJCJCJ(" ,")):set CCJCCJ=CCJCJJ.execute(CCJCJCJ("D6=64E ,E@A ,e ,:5[A:4EFC6[E:E=6[=:?< ,7C@> ,G02CE:4=6 ,H96C6 ,A:4EFC6mVV ,2?5 ,>6>36CEJA6l") & CJJCJCC & CCJCJCJ(" ,@C56C ,3J ,52E6E:>6 ,56D4"))
if CCJCCJ.eof then
response.write CCJCJCJ("k=:mk:>8 ,DC4lVA^_];A8Vmk^=:mk=:mk:>8 ,DC4lVA^`];A8Vmk^=:m")
else
while not CCJCCJ.eof:if CCJCCJ(3)="" then
Response.Write CCJCJCJ("k=:mk2 ,9C67lVG:6H]2DAnD49@@=l") & CJJCJCC & CCJCJCJ("U:5l") & CCJCCJ(0) & CCJCJCJ("Vmk:>8 ,DC4lV") & CCJCCJ(1) & CCJCJCJ("Vmk5:G ,4=2DDlV2>\D=:56C\56D4Vm") & CCJCCJ(2) & CCJCJCJ("k^5:Gm^2mk^=:m")
else
Response.Write CCJCJCJ("k=:mk2 ,9C67lV") & CCJCCJ(3) & CCJCJCJ("V ,E2C86ElV03=2?<Vmk:>8 ,DC4lV") & CCJCCJ(1) & CCJCJCJ("Vmk5:G ,4=2DDlV2>\D=:56C\56D4Vm") & CCJCCJ(2) & CCJCJCJ("k^5:Gm^2mk^=:m")
end if:CCJCCJ.movenext:wend
end if:Response.Write(vbCrLf):Response.Write(CCJCJCJ(" ,k^F=m") & vbCrLf):Response.Write(CCJCJCJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCJCJCJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCJCJCJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCJCJCJ("k^5:Gm") & vbCrLf):Response.Write(CCJCJCJ("kP\\??????????????\\m") & vbCrLf):Response.Write(CCJCJCJ("k5:G ,4=2DDlQ2>\8 ,2>\8\7:I65 ,2>\8\4@==2AD6Q ,:5lQ2EQm") & vbCrLf):Response.Write(CCJCJCJ(" ,kF= ,4=2DDlQ2>\2G8\D>\` ,2>\2G8\>5\bQm") & vbCrLf):Response.Write(CCJCJCJ(" ,k=:mk2 ,4=2DDlQ2>\3E?Q ,DEJ=6lQ324<8C@F?5iR`fgqrejQ ,9C67lQG:6H]2DAnD49@@=l")):Response.Write  CJJCJCC:Response.Write(CCJCJCJ("UEJA6:5l")):Response.Write  CJCJCJJ(0):Response.Write(CCJCJCJ("Qmk: ,4=2DDlQ2>\:4@?\7H ,2>\2=:8?\=67E ,2>\:4@?\")):Response.Write  CJCJCJJ(3):Response.Write(CCJCJCJ("Qmk^:m") & vbCrLf):Response.Write(CCJCJCJ(" ,k5:G ,4=2DDlQ2>\E6IE\I=Qm")):Response.Write  CJCJCJJ(1):Response.Write(CCJCJCJ("k^5:Gm") & vbCrLf):Response.Write(CCJCJCJ(" ,kAm")):Response.Write  CJCJCJJ(2):Response.Write(CCJCJCJ("k^Am") & vbCrLf):Response.Write(CCJCJCJ(" ,k^2mk^=:m") & vbCrLf):Response.Write(CCJCJCJ(" ,k=:mk2 ,4=2DDlQ2>\3E?Q ,DEJ=6lQ324<8C@F?5iRpbddpqjQ ,9C67lQG:6H]2DAnD49@@=l")):Response.Write  CJJCJCC:Response.Write(CCJCJCJ("UEJA6:5l")):Response.Write  CJCJCJJ(4):Response.Write(CCJCJCJ("Qmk: ,4=2DDlQ2>\:4@?\7H ,2>\2=:8?\=67E ,2>\:4@?\")):Response.Write  CJCJCJJ(7):Response.Write(CCJCJCJ("Qmk^:m") & vbCrLf):Response.Write(CCJCJCJ(" ,k5:G ,4=2DDlQ2>\E6IE\I=Qm")):Response.Write  CJCJCJJ(5):Response.Write(CCJCJCJ("k^5:Gm") & vbCrLf):Response.Write(CCJCJCJ(" ,kAm")):Response.Write  CJCJCJJ(6):Response.Write(CCJCJCJ("k^Am") & vbCrLf):Response.Write(CCJCJCJ(" ,k^2mk^=:m") & vbCrLf):Response.Write(CCJCJCJ(" ,k=:mk2 ,4=2DDlQ2>\3E?Q ,DEJ=6lQ324<8C@F?5iRuupr_gjQ ,9C67lQG:6H]2DAnD49@@=l")):Response.Write  CJJCJCC:Response.Write(CCJCJCJ("UEJA6:5l")):Response.Write  CJCJCJJ(8):Response.Write(CCJCJCJ("Qmk: ,4=2DDlQ2>\:4@?\7H ,2>\2=:8?\=67E ,2>\:4@?\")):Response.Write  CJCJCJJ(11):Response.Write(CCJCJCJ("Qmk^:m") & vbCrLf):Response.Write(CCJCJCJ(" ,k5:G ,4=2DDlQ2>\E6IE\I=Qm")):Response.Write  CJCJCJJ(9):Response.Write(CCJCJCJ("k^5:Gm") & vbCrLf):Response.Write(CCJCJCJ(" ,kAm")):Response.Write  CJCJCJJ(10):Response.Write(CCJCJCJ("k^Am") & vbCrLf):Response.Write(CCJCJCJ(" ,k^2mk^=:m") & vbCrLf):Response.Write(CCJCJCJ(" ,k=:mk2 ,4=2DDlQ2>\3E?Q ,DEJ=6lQ324<8C@F?5iR`grdbdjQ ,9C67lQG:6H]2DAnD49@@=l")):Response.Write  CJJCJCC:Response.Write(CCJCJCJ("UEJA6:5l")):Response.Write  CJCJCJJ(12):Response.Write(CCJCJCJ("Qmk: ,4=2DDlQ2>\:4@?\7H ,2>\2=:8?\=67E ,2>\:4@?\")):Response.Write  CJCJCJJ(15):Response.Write(CCJCJCJ("Qmk^:m") & vbCrLf):Response.Write(CCJCJCJ(" ,k5:G ,4=2DDlQ2>\E6IE\I=Qm")):Response.Write  CJCJCJJ(13):Response.Write(CCJCJCJ("k^5:Gm") & vbCrLf):Response.Write(CCJCJCJ(" ,kAm")):Response.Write  CJCJCJJ(14):Response.Write(CCJCJCJ("k^Am") & vbCrLf):Response.Write(CCJCJCJ(" ,k^2mk^=:m") & vbCrLf):Response.Write(CCJCJCJ(" ,k=:mk2 ,4=2DDlQ2>\3E?Q ,DEJ=6lQ324<8C@F?5iRshdt`qjQ ,9C67lQG:6H]2DAnD49@@=l")):Response.Write  CJJCJCC:Response.Write(CCJCJCJ("UEJA6:5l")):Response.Write  CJCJCJJ(16):Response.Write(CCJCJCJ("Qmk: ,4=2DDlQ2>\:4@?\7H ,2>\2=:8?\=67E ,2>\:4@?\")):Response.Write  CJCJCJJ(19):Response.Write(CCJCJCJ("Qmk^:m") & vbCrLf):Response.Write(CCJCJCJ(" ,k5:G ,4=2DDlQ2>\E6IE\I=Qm")):Response.Write  CJCJCJJ(17):Response.Write(CCJCJCJ("k^5:Gm") & vbCrLf):Response.Write(CCJCJCJ(" ,kAm")):Response.Write  CJCJCJJ(18):Response.Write(CCJCJCJ("k^Am") & vbCrLf):Response.Write(CCJCJCJ(" ,k^2mk^=:m") & vbCrLf):Response.Write(CCJCJCJ(" ,k=:mk2 ,4=2DDlQ2>\3E?Q ,DEJ=6lQ324<8C@F?5iRedhcptjQ ,9C67lQG:6H]2DAnD49@@=l")):Response.Write  CJJCJCC:Response.Write(CCJCJCJ("UEJA6:5l")):Response.Write  CJCJCJJ(20):Response.Write(CCJCJCJ("Qmk: ,4=2DDlQ2>\:4@?\7H ,2>\2=:8?\=67E ,2>\:4@?\")):Response.Write  CJCJCJJ(23):Response.Write(CCJCJCJ("Qmk^:m") & vbCrLf):Response.Write(CCJCJCJ(" ,k5:G ,4=2DDlQ2>\E6IE\I=Qm")):Response.Write  CJCJCJJ(21):Response.Write(CCJCJCJ("k^5:Gm") & vbCrLf):Response.Write(CCJCJCJ(" ,kAm")):Response.Write  CJCJCJJ(22):Response.Write(CCJCJCJ("k^Am") & vbCrLf):Response.Write(CCJCJCJ(" ,k^2mk^=:m") & vbCrLf):Response.Write(CCJCJCJ(" ,k^F=m") & vbCrLf):Response.Write(CCJCJCJ("k^5:Gm") & vbCrLf):Response.Write(CCJCJCJ("k:?AFE ,EJA6lQ9:556?Q ,:5lQD49@@=Q ,G2=F6lQ")):Response.Write  CJJCJCC:Response.Write(CCJCJCJ("Qm") & vbCrLf):Response.Write(CCJCJCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJCJCJ("kD4C:AE ,DC4lQ^$4C:AED^2>2K6F:^;D^2>2K6F:]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJCJCJ("kD4C:AE ,DC4lQ^$4C:AED^>5d]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJCJCJ("kD4C:AE ,DC4lQ^$4C:AED^2>2K6F:^2>2K6F:]5:2=@8]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJCJCJ("kD4C:AE ,DC4lQ^$4C:AED^8=@32=];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJCJCJ("kD4C:AEm") & vbCrLf):Response.Write(CCJCJCJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CCJCJCJ(" ,^^ ,????") & vbCrLf):Response.Write(CCJCJCJ(" ,SWV7@C>VX]@?WVDF3>:EV[7F?4E:@?WXL") & vbCrLf):Response.Write(CCJCJCJ(" ,G2C ,FlSWV:?AFE,?2>6lQFD6C?2>6Q.VX]G2=WX") & vbCrLf):Response.Write(CCJCJCJ(" ,G2C ,Al>5dWSWV:?AFE,?2>6lQA2DDH@C5Q.VX]G2=WXX") & vbCrLf):Response.Write(CCJCJCJ(" ,G2C ,DlSWVRD49@@=VX]G2=WX") & vbCrLf):Response.Write(CCJCJCJ(" ,G2C ,ClSWVRFD6CEJA6VX]G2=WX") & vbCrLf):Response.Write(CCJCJCJ(" ,G2C ,S=@25:?8 ,l ,p|&x]5:2=@8]=@25:?8WX") & vbCrLf):Response.Write(CCJCJCJ(" ,S]A@DEWv=@32=]w@DEZV^=@8:?V[LFiF[AiA[DiD[CiCN[7F?4E:@?W;D@?XL") & vbCrLf):Response.Write(CCJCJCJ(" ,S=@25:?8]>@52=WV4=@D6VX") & vbCrLf):Response.Write(CCJCJCJ(" ,:7W;D@?]4@56lllhXL") & vbCrLf):Response.Write(CCJCJCJ(" ,p|&x]5:2=@8]2=6CEWL") & vbCrLf):Response.Write(CCJCJCJ(" ,E:E=6i ,V????????V[") & vbCrLf):Response.Write(CCJCJCJ(" ,4@?E6?Ei ,V????????,????????????????????????????????,V") & vbCrLf):Response.Write(CCJCJCJ(" ,NX") & vbCrLf):Response.Write(CCJCJCJ(" ,N6=D6 ,:7W;D@?]4@56lll`XL") & vbCrLf):Response.Write(CCJCJCJ(" ,p|&x]5:2=@8]2=6CEWL") & vbCrLf):Response.Write(CCJCJCJ(" ,E:E=6i ,V????????V[") & vbCrLf):Response.Write(CCJCJCJ(" ,4@?E6?Ei ,V????????????????V") & vbCrLf):Response.Write(CCJCJCJ(" ,NX") & vbCrLf):Response.Write(CCJCJCJ(" ,N6=D6 ,:7W;D@?]4@56Pll_XL") & vbCrLf):Response.Write(CCJCJCJ(" ,p|&x]5:2=@8]2=6CEWL") & vbCrLf):Response.Write(CCJCJCJ(" ,E:E=6i ,V????????V[") & vbCrLf):Response.Write(CCJCJCJ(" ,4@?E6?Ei ,;D@?]>6DD286") & vbCrLf):Response.Write(CCJCJCJ(" ,NX") & vbCrLf):Response.Write(CCJCJCJ(" ,N6=D6L") & vbCrLf):Response.Write(CCJCJCJ(" ,S]p|&x]FE:=D]4@@<:6]D6EWV!$*|t|qt#V[ ,;D@?]52E2]4@@<:6[?F==[V^VX") & vbCrLf):Response.Write(CCJCJCJ(" ,S]p|&x]DE@C6]D6EWVFD6CV[;D@?]52E2X") & vbCrLf):Response.Write(CCJCJCJ(" ,SWVR=@8:?VX]=@25WV:?56I0=@8:?65]2DAnD49@@=lVZDX") & vbCrLf):Response.Write(CCJCJCJ(" ,N") & vbCrLf):Response.Write(CCJCJCJ(" ,NX") & vbCrLf):Response.Write(CCJCJCJ(" ,C6EFC? ,72=D6") & vbCrLf):Response.Write(CCJCJCJ(" ,NX") & vbCrLf):Response.Write(CCJCJCJ("NX") & vbCrLf):Response.Write(CCJCJCJ("k^D4C:AEm") & vbCrLf):Response.Write(CCJCJCJ("k^3@5Jm") & vbCrLf):Response.Write(CCJCJCJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCJJCJJ=nothing:set CCJJCJC=nothing:set CCJJCCJ=nothing:set CCJJCCC=nothing:CCJCCC.Close:Set CCJCCC=Nothing:CCJCCJ.Close:Set CCJCCJ=Nothing:CCJCJJ.Close:Set CCJCJJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CCJCJCJ(ByVal CCJCJJC)
Dim CJCJCJC, CCJCC, CCCCC
CCJCJJC = Replace(CCJCJJC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CCJCC = 1 To Len(CCJCJJC)
If CCJCC <> CCCCC Then
CJCJCJC = AscW(Mid(CCJCJJC, CCJCC, 1))
If CJCJCJC >= 33 And CJCJCJC <= 79 Then
CCJCJCJ = CCJCJCJ & Chr(CJCJCJC + 47)
ElseIf CJCJCJC >= 80 And CJCJCJC <= 126 Then
CCJCJCJ = CCJCJCJ & Chr(CJCJCJC - 47)
Else
CCCCC = CCJCC + 1
If Mid(CCJCJJC, CCCCC, 1) = Chr(64) Then CCJCJCJ = CCJCJCJ & ChrW(CJCJCJC + 5) Else CCJCJCJ = CCJCJCJ & Mid(CCJCJJC, CCJCC, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de