<% dim CCJCJ,CCJCC:If lcase(right(Request.ServerVariables(CJJJJCC("!p%w0x}u~")),11))=CJJJJCC("^C68:DE]2DA") then if Request.ServerVariables(CJJJJCC("#t""&t$%0|t%w~s")) = CJJJJCC("!~$%") then Call Regist() else Call ShowForm() end if else Call CheckRegist() End If:Function CCJCCC(str):Dim CCCJJ, CCCJC, CCCCJ, CCCCC, CJJJJJ, CJJJJC:CCCCC = Len(str):For CCCJC = 1 To CCCCC:CCCCJ = CInt(Mid(str, CCCJC, 1)):If CCCCJ < 5 Then CCCCJ = CCCCJ + 5 Else CCCCJ = CCCCJ - 5 CCCJJ = CCCJJ & CCCCJ:Next:For CCCJC = 1 To CCCCC - 1 Step 2:CJJJJJ = Mid(CCCJJ, CCCJC, 1):CJJJJC = Mid(CCCJJ, CCCJC + 1, 1):CCJCCC = CCJCCC & CJJJJC & CJJJJJ:Next:CCJCCC = StrReverse(CCJCCC):End Function:Function CCCJJJ(CJJJCJJ):Dim CCCCC, CCCJC, CJJJJC, CCCJJ:CCCCC = Len(CJJJCJJ):CJJJJC = 0:For CCCJC = 1 To CCCCC:CCCJJ = CInt(Mid(CJJJCJJ, CCCJC, 1)):If CCCJC Mod 2 = 0 Then CJJJJC = CJJJJC + CCCJJ * 3 Else CJJJJC = CJJJJC + CCCJJ Next:CJJJJC = CJJJJC Mod 100:CJJJJC = 100 - CJJJJC:CCCJJJ = Right("0" & CJJJJC, 2):End Function:Function CCCJJC(str):Dim CJJJCJ:Set CJJJCJ = New RegExp:CJJJCJ.Pattern = CJJJJCC("/W-5LcN\XLfN-5LcNS"):CJJJCJ.IgnoreCase = True:CCCJJC = CJJJCJ.test(str):set CJJJCJ=nothing:End Function:Function CCCJCJ(str):Dim CJJJCJ:Set CJJJCJ = New RegExp:CJJJCJ.Pattern = CJJJJCC("/,p\+.LbN-5L`NW\-5LcNXLaNS"):CJJJCJ.IgnoreCase = True:CCCJCJ = CJJJCJ.test(str):set CJJJCJ=nothing:End Function:Sub ShowForm():dim CCCJJ:CCCJJ=CJJJJCC("kPs~r%*!t ,9E>=m") & CJJJJCC("k9E>= ,=2?8lQK9\r}Qm") & CJJJJCC("k9625mk>6E2 ,492CD6ElVFE7\gVm") & CJJJJCC("kE:E=6m徾@浲@轪@仱@·,圣@纺@泣@冇@k^E:E=6m") & CJJJJCC("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") & CJJJJCC("k") & CJJJJCC("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=:46?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") & CJJJJCC("k^9625m") & CJJJJCC("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_(CJJJJJJ=CJJJJCC("!|$b\bbbb\bbbb"),"",CJJJJJJ) & CJJJJCC("Vm ,k:?AFE ,?2>6lV?F>V ,EJA6lVE6IEV ,4=2DDlVE6IEV ,D:K6lVa_V ,G2=F6lV") & CCCCCJ & CJJJJCC("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=:46lVC68V ,EJA6lVDF3>:EV ,4=2DDlV3FEE@?V ,G2=F6lV泣@ ,冇@Vm ,k:?AFE ,EJA6lV3FEE@?V ,4=2DDlV3FEE@?V ,@?4=:4mkD4C:AE ,:5lV;D086EADHVmk^D4C:AEmk^3@5Jm") & CJJJJCC("k^9E>=m") Response.Clear():Response.Charset=CJJJJCC("FE7\g"):Response.Write CCCJJ:Response.End():End Sub:Function CCCJCC():If Application(CJJJJCC("r@??64E:@?$EC:?8"))="" then CCCJCC=False Else On Error Resume Next:set CCJCJ=Server.CreateObject(CJJJJCC("ps~sq]r@??64E:@?")):CCJCJ.open Application(CJJJJCC("r@??64E:@?$EC:?8")):if Err then Call ShowMsg_(CJJJJCC("敫@捩@庎@这@掠@锔@诪@：,") & err.description) CCCJCC=True End if:End Function:Function CCCCJJ():On Error Resume Next:dim CJJJCC:set CJJJCC=server.createobject(CJJJJCC("$4C:AE:?8]u:=6$JDE6>~3;64E")):if err.number=-2147221005 then Call ShowMsg_(CJJJJCC("患@癿@月@劜@噣@丈@攪@拼@u$~线@仱@，,朧@轪@仱@旛@泐@歞@帳@迋@衇@！,")) if CJJJCC.FileExists(server.MapPath(CJJJJCC(":?4^C68:DE]2DA"))) then CCCCJJ="" elseif CJJJCC.FileExists(server.MapPath(CJJJJCC("]]^:?4^C68:DE]2DA"))) then CCCCJJ=CJJJJCC("]]^") else CCCCJJ=CJJJJCC("]]^]]^") end if:set CJJJCC=nothing:End Function:Function CCCCJC(CJJJCJC,CJCJCC,CCJCCC):On Error Resume Next:dim CJJJCC,CJJCJJ,CJJCJC,str:set CJJJCC=server.createobject(CJJJJCC("$4C:AE:?8]u:=6$JDE6>~3;64E")):if err.number=-2147221005 then Call ShowMsg_(CJJJJCC("患@癿@月@劜@噣@丈@攪@拼@u$~线@仱@，,朧@轪@仱@旛@泐@歞@帳@迋@衇@！,")) CJJCJC=server.mappath(CCCCJJ & CJJJJCC("<6J]:?:")):if not CJJJCC.FileExists(CJJCJC) then set CJJCJJ=CJJJCC.CreateTextFile(CJJCJC,true):if err then Call ShowMsg_(CJJJJCC("斂@仱@头@W") & left(CJJCJC,len(CJJCJC)-7) & CJJJJCC("X癿@朾@陋@丈@多@，,诲@力@兠@“,x?E6C?6E杠@容@贡@戲@Wx&$#0朵@噣@合@X”,癿@“,俩@攴@”,朾@陋@。,")) CJJCJJ.WriteLine CJCJCC & CJJJJCC("M") & CCJCCC:if err then Call ShowMsg_(CJJJJCC("斂@仱@头@W") & left(CJJCJC,len(CJJCJC)-7) & CJJJJCC("X癿@朾@陋@丈@多@，,诲@力@兠@“,x?E6C?6E杠@容@贡@戲@Wx&$#0朵@噣@合@X”,癿@“,俩@攴@”,朾@陋@。,")) set CJJCJJ=nothing end if:if CJJJCJC=CJJJJCC("HC:E6") then set CJJCJJ=CJJJCC.OpenTextFile(CJJCJC,2):CJJCJJ.WriteLine CJCJCC & CJJJJCC("M") & CCJCCC:set CJJCJJ=nothing elseif CJJJCJC=CJJJJCC("C625") then set CJJCJJ=CJJJCC.opentextfile(CJJCJC):str=CJJCJJ.ReadLine:if instr(str,CJJJJCC("M"))=0 then Call ShowMsg_(CJJJJCC("寴@丈@赲@，,糶@绚@泣@冇@俜@恪@斂@仱@丨@癿@泣@冇@俜@恪@丈@歞@硩@，,诲@丈@襼@扆@劣@俩@攴@：,") & CJJCJC & CJJJJCC("！,")) CCCCJC=split(str,CJJJJCC("M")):set CJJCJJ=nothing else Call ShowMsg_(CJJJJCC("寴@丈@赲@，,凵@玫@糶@绚@锔@诪@！,")) end if:set CJJJCC=nothing:err.clear:End Function:Function CCCCCJ():On Error Resume Next:dim CJJJCC,CJJCCC,CJCJJJ:Set CJJJCC = CreateObject(CJJJJCC("$4C:AE:?8]u:=6$JDE6>~3;64E")):if err.number=-2147221005 then Call ShowMsg_(CJJJJCC("患@癿@月@劜@噣@丈@攪@拼@u$~线@仱@，,朧@轪@仱@旛@泐@歞@帳@迋@衇@！,")) Set CJJCCC = CJJJCC.GetDrive(left(server.MapPath(CJJJJCC("]")),1)):CCCCCJ=CJJCCC.SerialNumber:if CCCCCJ=0 then Set CJJCCC=CJJJCC.GetDrive(CJJJJCC("r")):CCCCCJ=CJJCCC.SerialNumber:if CCCCCJ=0 then CJCJJJ=Request.ServerVariables(CJJJJCC("{~rp{0pss#")):CJCJJJ=right(replace(CCJCCC("19" & replace(replace(CJCJJJ,CJJJJCC("i"),""),CJJJJCC("]"),"") & "74"),"0",""),8):CCCCCJ=CJCJJJ end if end if:set CJJCCC=nothing:set CCCCCC=nothing:err.clear:End Function:Function CJJJJJJ():CJJJJJJ=Application(CJJJJCC(")x}wpx0#680$}")):if CJJJJJJ="" then if CCCJCC then CCJJJJ=CJJJJCC("D6=64E ,E@A ,` ,D? ,7C@> ,4@?7:8 ,H96C6 ,:5l`"):On Error Resume Next:set CCJCC=CCJCJ.execute(CCJJJJ):if err then Call ShowMsg_(CJJJJCC("敫@捩@庎@论@闩@凵@锔@：,") & err.description) CJJJJJJ=CCJCC(0) else CJJJJJJ=CCCCJC(CJJJJCC("C625"),"","")(0) end if:Application(CJJJJCC(")x}wpx0#680$}"))=CJJJJJJ end if:err.clear:End Function:Sub Regist():dim CJCJJC,CJCJCJ,CJCJCC,CJCCJJ,CJCCJC,CJCCCJ,CJCCCC,CCJJJJ:CJCJJC=CJJJJJC(Request.Form(CJJJJCC("@H?6C"))):CJCJCJ=CJJJJJC(Request.Form(CJJJJCC("56AE"))):CJCJCC=CJJJJJC(Request.Form(CJJJJCC("D?"))):CJCCJJ=CJJJJJC(Request.Form(CJJJJCC("A2DDH@C5"))):CJCJCC=Ucase(CJCJCC):if not CCCJCJ(CJCJCC) then Call ShowMsg_(CJJJJCC("患@辎@兠@癿@轪@仱@床@划@史@样@弊@丈@寴@，,诲@栳@寴@吉@釈@斫@辎@兠@！,")) if not CCCJJC(CJCCJJ) then Call ShowMsg_(CJJJJCC("患@辎@兠@癿@泣@冇@寁@矼@样@弊@丈@寴@，,诲@仏@绁@栳@寴@吉@釈@斫@辎@兠@！,")) CJCCJC = Replace(CJCCJJ, CJJJJCC("\"), ""):CJCCCJ = Left(CJCCJC, 30):CJCCCC = CCJCCC(CJCCCJ):If Right(CJCCJC, 2) <> CCCJJJ(CJCCCJ) Then Call ShowMsg_(CJJJJCC("患@辎@兠@癿@泣@冇@寁@矼@丈@歞@硩@，,诲@仏@绁@栳@寴@吉@釈@斫@辎@兠@！,")) If Mid(CJCCCC, 5, 9) <> Replace(Mid(CJCJCC, 4), CJJJJCC("\"), "") Then Call ShowMsg_(CJJJJCC("轪@仱@床@划@史@我@耀@泣@冇@寁@矼@丈@歞@硩@，,诲@栳@寴@吉@釈@斫@辎@兠@！,")) On Error Resume Next:if CCCJCC then CCJJJJ=CJJJJCC("FA52E6 ,4@?7:8 ,D6E ,@H?6ClV") & CJCJJC & CJJJJCC("V[56A2CE>6?ElV") & CJCJCJ & CJJJJCC("V[D?lV") & CJCJCC & CJJJJCC("V[C68ADHlV") & CJCCJJ & CJJJJCC("V ,H96C6 ,:5l`") CCJCJ.Execute CCJJJJ:If Err.Number = -2147467259 Then Call ShowMsg_(CJJJJCC("泣@冇@俜@恪@冔@兠@夬@贠@！,诲@厽@煢@“,宄@裀@误@昉@”,讹@罩@盳@序@斂@仱@头@癿@}%u$朾@陋@。,")) ElseIf err then Call ShowMsg_(Err.Description) End If else Call CCCCJC(CJJJJCC("HC:E6"),CJCJCC,CJCCJJ) end if:err.clear:Application(CJJJJCC(")x}wpx0#680$}")) = CJCJCC:Application(CJJJJCC(")x}wpx0#680!2DDH@C5")) = CJCCJJ:Call ShowMsg_(CJJJJCC("泣@冇@俜@恪@冔@兠@戋@劚@，,愚@谝@患@癿@攪@拼@，,炴@凶@歟@壿@k2 ,9C67lV") & CCCCJJ & CJJJJCC("Vm迏@囙@馑@顰@k^2m。,")) End Sub:Sub CheckRegist():Dim CJCJCC,CJCCJJ,CCJJJC,CCJJCJ,CCJJCC,Number,CJCCJC,CCJCJC,CCJJJJ:CJCJCC = Application(CJJJJCC(")x}wpx0#680$}")):Number = Application(CJJJJCC(")x}wpx0#680}F>36C")):CJCCJJ = Application(CJJJJCC(")x}wpx0#680!2DDH@C5")):If CJCJCC = "" Or CJCCJJ = "" Then if CCCJCC then CCJJJJ=CJJJJCC("D6=64E ,E@A ,` ,D?[C68ADH ,7C@> ,4@?7:8 ,H96C6 ,:5l`"):Set CCJCC = CCJCJ.Execute(CCJJJJ):if CCJCC.eof then Call ShowMsg_(CJJJJCC("梻@浆@泣@冇@俜@恪@凵@玫@锔@诪@，,诲@梻@柠@,4@?7:8.衣@昪@吡@朄@讫@彐@。,")) CJCJCC = CCJCC(0) & "":CJCCJJ = CCJCC(1) & "" else CCJCJC=CCCCJC(CJJJJCC("C625"),"",""):CJCJCC=CCJCJC(0):CJCCJJ=CCJCJC(1) End If End If:If Number = "" Then Number = CCCCCJ If Not CCCJJC(CJCCJJ) or Not CCCJCJ(CJCJCC) Then Call ShowMsg_(CJJJJCC("轪@仱@床@划@史@我@泣@冇@寁@矼@丈@歞@硩@，,炴@凶@返@采@迖@衇@k2 ,9C67lV") & CCCCJJ & CJJJJCC(":?4^#68:DE]2DAVm圣@纺@泣@冇@k^2m，,谝@谝@吃@佗@！,")) CJCCJC = Replace(CJCCJJ, CJJJJCC("\"), ""):CCJJJC = CCJCCC(Left(CJCCJC, 30)):CCJJCC = Mid(CCJJJC, 23, 8):CCJJCC = Left(CCJJCC, 4) & CJJJJCC("\") & Mid(CCJJCC, 5, 2) & CJJJJCC("\") & Right(CCJJCC, 2):If Not IsDate(CCJJCC) Then CCJJCJ = False ElseIf CDate(CCJJCC) < Date Then CCJJCJ = True Else CCJJCJ = False End If:If Right(CJCCJC, 2) <> CCCJJJ(Left(CJCCJC, 30)) Or Mid(Replace(CJCJCC, CJJJJCC("\"), ""), 4) <> Mid(CCJJJC, 5, 9) Or Right("00000" & Number, 5) <> Mid(CCJJJC, 16, 5) Then Call ShowMsg_(CJJJJCC("朧@糶@绚@襼@氽@泣@冇@吉@斴@胸@歞@帳@佺@産@，,炴@凶@返@采@迖@衇@k2 ,9C67lV") & CCCCJJ & CJJJJCC(":?4^#68:DE]2DAVm圣@纺@泣@冇@k^2m，,谝@谝@吃@佗@！,")) ElseIf CCJJCJ Then Call ShowMsg_(CJJJJCC("患@癿@厚@泣@冇@俜@恪@巭@绊@迂@朚@，,炴@凶@返@采@迖@衇@k2 ,9C67lV") & CCCCJJ & CJJJJCC(":?4^#68:DE]2DAVm圣@纺@泣@冇@k^2m，,谝@谝@吃@佗@！,")) Else Application(CJJJJCC(")x}wpx0#680$}")) = CJCJCC:Application(CJJJJCC(")x}wpx0#680}F>36C")) = Number:Application(CJJJJCC(")x}wpx0#680!2DDH@C5")) = CJCCJJ End If:End Sub:Sub ShowMsg_(str):dim CCCJJ:CCCJJ=CJJJJCC("kPs~r%*!t ,9E>=m") & CJJJJCC("k9E>= ,=2?8lQK9\r}Qm") & CJJJJCC("k9625mk>6E2 ,492CD6ElQFE7\gQm") & CJJJJCC("kE:E=6m徾@浲@轪@仱@·,揋@礵@俜@恪@k^E:E=6m") & CJJJJCC("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") & CJJJJCC("kD") & CJJJJCC("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") & CJJJJCC("k^9625m") & CJJJJCC("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 & CJJJJCC("k^5:Gmk5:G ,4=2DDlV24EVmk2 ,9C67lV;2G2D4C:AEi9:DE@CJ]324=m") Err.Clear:Response.Clear():Response.Charset=CJJJJCC("FE7\g"):Response.Write CCCJJ:Response.End():End Sub:Function CJJJJJC(CJJJCCC):Dim str:str = Trim(CJJJCCC):If IsNull(str) Or str = "" Then CJJJJJC = "" Else str=Replace(str, CJJJJCC("V"), CJJJJCC("VV")) str=Replace(str,CJJJJCC("k:7C2>6"), CJJJJCC("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CJJJJCC("kD4C:AE"), CJJJJCC("U=EjD4C:AE"),1,-1,1):CJJJJJC=str End If:End Function:Function IIf_(CJJCJJJ, CJJCJJC, CJJCJCJ):If CJJCJJJ Then IIf_ = CJJCJJC Else IIf_ = CJJCJCJ End Function:On Error Resume Next:CCJCC.Close : Set CCJCC = Nothing:RegistRegistCon.Close : Set CCJCJ = Nothing:On Error Goto 0:Response.Write(vbCrLf) Function CJJJJCC(ByVal CJJJJCJ) Dim CCJCCJ, CCCJC, CJJJJC CJJJJCJ = Replace(CJJJJCJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62)) For CCCJC = 1 To Len(CJJJJCJ) If CCCJC <> CJJJJC Then CCJCCJ = AscW(Mid(CJJJJCJ, CCCJC, 1)) If CCJCCJ >= 33 And CCJCCJ <= 79 Then CJJJJCC = CJJJJCC & Chr(CCJCCJ + 47) ElseIf CCJCCJ >= 80 And CCJCCJ <= 126 Then CJJJJCC = CJJJJCC & Chr(CCJCCJ - 47) Else CJJJJC = CCCJC + 1 If Mid(CJJJJCJ, CJJJJC, 1) = Chr(64) Then CJJJJCC = CJJJJCC & ChrW(CCJCCJ + 5) Else CJJJJCC = CJJJJCC & Mid(CJJJJCJ, CCCJC, 1) End If End If Next End Function %>