Edit D:\xinhaisoft\crisis_new\inc\Regist.asp

??<%
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=: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") & 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=: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") & 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<WXjV ,:5lV324<Vm?? ,??k^2mU?3DAjk2 ,9C67lV;2G2D4C:AEiD6=7]4=@D6WXjV ,:5lV4=@D6Vm????????k^2mk^5:Gmk^5:Gmk^3@5Jm") & CJJJJCC("k^9E>=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
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de