Edit D:\xinhaisoft\crisis_new\jiaowei\admin\link.asp
??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim CJCCC, CCJJJ,CCJJC, CCJCJ, CCJCC:Set CJCCC = server.CreateObject(CJJCJCC("ps~sq]r@??64E:@?")):CJCCC.open Application(CJJCJCC("r@??64E:@?$EC:?8")):Set CCJJJ=CJCCC::Function CJJJJJJ(CJJCCJJ):Dim str,CCCJC:str = Trim(CJJCCJJ):If IsNull(str) Or str = "" Then CJJJJJJ = "" else str=Replace(str, CJJCJCC("V"), "") str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CJJCJCC("k:7C2>6"), CJJCJCC("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CJJCJCC("kD4C:AE"), CJJCJCC("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CCCJC=new RegExp:CCCJC.Pattern=CJJCJCC("@?W,2\K.ZXl"):CCCJC.IgnoreCase = True:CCCJC.Global=True:str=CCCJC.Replace(str,CJJCJCC("@?S`U6BF2=Dj")):set CCCJC=nothing:CJJJJJJ=str End If:End Function:Function IIf(CJJCCJC, CJJCCCJ, CJJCCCC):if isnull(CJJCCJC) or isempty(CJJCCJC) then IIf = CJJCCCC elseif CJJCCJC Then IIf = CJJCCCJ Else IIf = CJJCCCC end if:End Function:Const CCCCJC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CJCJJJJ,CJCJJJC):dim CCCCJ:CCCCJ=CJCJJJJ & "=" & CJCJJJC & CJJCJCC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJCJCC("$6E\r@@<:6"),CCCCJ):End Sub:::::::Function CJJJJCJ(CCCCJJ):if isnull(CCCCJJ) or trim(CCCCJJ)="" or not isnumeric(CCCCJJ) then CJJJJCJ=false else Dim CCCJC:Set CCCJC = New RegExp:CCCJC.Pattern = CJJCJCC("/-5ZS"):CCCJC.IgnoreCase = True:CJJJJCJ = CCCJC.test(CCCCJJ):set CCCJC=nothing end if:End Function:Function CJJJJCC(CJCJJCJ):dim CCCCC,CJJJJJ:CCCCC=CJJCJCC("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJCJJCJ & CJJCJCC("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJJJJJ=CJCCC.execute(CCCCC):CJJJJCC = CJJJJJ(0):if isnull(CJJJJCC) then CJJJJCC=1 CJJJJJ.close : set CJJJJJ=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CJJJCJJ=nothing:set CJJJCJC=nothing:set CJJJCCJ=nothing:set CJJJCCC=nothing:CJJJJJ.close : set CJJJJJ=nothing:CCJCJ.Close : Set CCJCJ=Nothing:CCJJC.Close : Set CCJJC=Nothing:CJJCJJJ.Close : Set CJJCJJJ = Nothing:CJCCC.Close : Set CJCCC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJCJJCC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJCJCC("!$*0|6DD286"),server.URLEncode(CJCJJCC)):Response.Redirect CJJCJCC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::::::::::::::Dim CJJJJC,CJJJCJ,CJJJCC,CJJCJJ,CJJCJC,CJJCCJ,CJJCCC,CJCJJJ,CJCJJC:Dim CJCJCJ,CJCJCC,CJCCJJ,CJCCJC,CJCCCJ,CJCCCC:Dim CCJJJJ,CCJJJC,CCJJCJ:Dim CCJJCC:CCJJCC=Trim(Request.Cookies(CJJCJCC("!$*|t|qt#"))):if CCJJCC="" then Call ClearMemberCookie else Call CheckMemberCookie end if:if CJJJJC>0 then CCJCC=CJJCJCC("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") & CJJJCJ & CJJCJCC("V ,2?5 ,:5l") & CJJJJC set CCJJC=CJCCC.execute(CCJCC):If CCJJC.EOF Then Call ClearMemberCookie Else CJJJCC=CCJJC(2) & "":CJJCJJ=CCJJC(3):CJJCJC=CCJJC(5):CJJCCJ=CCJJC(6):CJJCCC=CCJJC(9):CJCJJJ=CCJJC(15):CJCJCJ=CCJJC(0):CCJJJC=CCJJC(1):CCJJJJ=CCJJC(11) & "":CJCJCC=CCJJC(10) & "":CJCJJC=CCJJC(12):CJCCJJ=CCJJC(14):CJCCJC=CCJJC(13):CJCCCJ=CCJJC(7) & "":CJCCCC=CCJJC(4):CCJJCJ=CCJJC(8):if isnull(CJCJJJ) then CJCJJJ=0 if isnull(CJJCCC) or CJJCCC=0 then CJJCCC=CJJCJJ if isnull(CJCCCC) then CJCCCC=0 if isnull(CJJCJC) then CJJCJC=0 if instr(CJJCJCC("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJJCJ)>0 then Call RedirectMessage(CJJCJCC("????????,????????????????????????????????,")) Call SetMemberCookie(CJJJJC,CJJJCJ) End IF end if:Sub CheckRight(CJCJCJJ):dim CCJCJJ,CCJCJC:if CJJJJC=0 then Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJJCJCC("??????????????,????????????,")) elseIf not CJJCJJC(CJCJCJJ) then Call RedirectMessage(CJJCJCC("????W") & CJCJCJJ & CJJCJCC("X????????,????????????????????,")) end if:End Sub:Function CJJCJJC(CJCJCJJ):dim CCJCJJ,CCJCJC:CCJCJC=split(CJCJCJJ,CJJCJCC("[")):CJJCJJC=False:for CCJCJJ=0 to ubound(CCJCJC):If Mid(CJJJCC,CCJCJC(CCJCJJ),1)="1" then CJJCJJC=True:exit function end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CJJCJCC("!$*|t|qt#"))="":CJJJJC=0:CJJCCJ=0:CJJJCJ=Empty:CJJCJC=0:CJCJJJ=0:CJJCCC=0:CJJCJJ=0:CJCJCJ=False:CCJJJC=False:CCJJCJ=Empty:End Sub:Sub CheckMemberCookie():dim CCCCJ,CCJCCJ,CCJCJJ,CCJCCC,CCCJJJ:CCCCJ=split(CCJJCC,CJJCJCC("]")):if ubound(CCCCJ)<>2 then Call ClearMemberCookie elseif not isnumeric(CCCCJ(0)) or len(CCCCJ(1))<>32 or len(CCCCJ(2))<>32 then Call ClearMemberCookie else CCJCCJ=CCCCJ(1):for CCJCJJ=1 to len(CCJCCJ):CCJCCC=mid(CCJCCJ,CCJCJJ,1):if isnumeric(CCJCCC) then CCCJJJ=CCCJJJ & CCJCCC if len(CCCJJJ)=7 then exit for next:CCJCCJ=CCCCJ(2):if CCCJJJ<>mid(CCJCCJ,6,7) then Call ClearMemberCookie else CCJCCC=mid(CCJCCJ,18,10)/2:if CCJCCC<DateDiff(CJJCJCC("D"), CJJCJCC("`hf_\`\` ,gi__i__"), Now)-28800 then Call ClearMemberCookie else CJJJJC=Clng(CCCCJ(0)):CJJJCJ=CCCCJ(1) end if end if end if:End Sub:Sub SetMemberCookie(CCCJCJ,CJCJCJC):dim CCJCJJ,CCJCCC,CCCJJJ:for CCJCJJ=1 to len(CJCJCJC):CCJCCC=mid(CJCJCJC,CCJCJJ,1):if isnumeric(CCJCCC) then CCCJJJ=CCCJJJ & CCJCCC if len(CCCJJJ)=7 then exit for next:CCCJJJ=CCCJCJ & CJJCJCC("]") & CJCJCJC & CJJCJCC("]") & Fix(10000*(Rnd+1)) & CCCJJJ & Fix(10000*(Rnd+1)) & DateDiff(CJJCJCC("D"), CJJCJCC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJJCJCC("!$*|t|qt#"))=CCCJJJ:End Sub::Call CheckRight(54):Const CCCCCJ="link":Const CCCCCC="<span style='color:#070;'>??</span>" dim CCCJJC,CCCJCJ:CCCJJC=Request.QueryString(CJJCJCC("24E")):CCCJCJ=Request.QueryString(CJJCJCC(":5")):if CCCJJC=CJJCJCC("56=") and CJJJJCJ(CCCJCJ) then CJCCC.execute CJJCJCC("56=6E6 ,7C@> ,") & CCCCCJ & CJJCJCC(" ,H96C6 ,:5l") & CCCJCJ & CJJCJCC(" ,2?5 ,>6>36CEJA6l") & CJJCJJ end if:if Request.ServerVariables(CJJCJCC("#t""&t$%0|t%w~s"))=CJJCJCC("!~$%") then if CCCJJC=CJJCJCC("255") then CCJCC=CJJCJCC(":?D6CE ,:?E@ ,") & CCCCCJ & CJJCJCC("W:5[?2>6[E:E=6[FC=[D@CE[>6>36CEJA6[:DE@AX ,G2=F6DW") & CJJJJCC(CCCCCJ) & CJJCJCC("[V") & CJJJJJJ(Request.Form(CJJCJCC("?2>6"))) & CJJCJCC("V") & CJJCJCC("[V") & CJJJJJJ(Request.Form(CJJCJCC("E:E=6"))) & CJJCJCC("V") & CJJCJCC("[V") & CJJJJJJ(Request.Form(CJJCJCC("FC="))) & CJJCJCC("V") & CJJCJCC("[") & CJJJJJJ(Request.Form(CJJCJCC("D@CE"))) & CJJCJCC("[") & CJJCJJ & CJJCJCC("[") & Cint(Request.Form(CJJCJCC(":DE@A"))) & CJJCJCC("X") CJCCC.execute CCJCC elseif CCCJJC=CJJCJCC(">@5") and CJJJJCJ(CCCJCJ) then CCJCC=CJJCJCC("FA52E6 ,") & CCCCCJ & CJJCJCC(" ,D6E") & CJJCJCC(" ,?2>6lV") & CJJJJJJ(Request.Form(CJJCJCC("?2>6"))) & CJJCJCC("V") & CJJCJCC("[E:E=6lV") & CJJJJJJ(Request.Form(CJJCJCC("E:E=6"))) & CJJCJCC("V") & CJJCJCC("[FC=lV") & CJJJJJJ(Request.Form(CJJCJCC("FC="))) & CJJCJCC("V") & CJJCJCC("[D@CElV") & CJJJJJJ(Request.Form(CJJCJCC("D@CE"))) & CJJCJCC("V") & CJJCJCC("[:DE@Al") & Cint(Request.Form(CJJCJCC(":DE@A"))) & CJJCJCC(" ,H96C6 ,:5l") & CCCJCJ CJCCC.execute CCJCC end if:CCCJJC="" end if:Response.Write(vbCrLf):Response.Write(CJJCJCC("k9E>=m") & vbCrLf):Response.Write(CJJCJCC("k9625m") & vbCrLf):Response.Write(CJJCJCC("k>6E2 ,9EEA\6BF:GlQr@?E6?E\%JA6Q ,4@?E6?ElQE6IE^9E>=j ,492CD6ElFE7\gQm") & vbCrLf):Response.Write(CJJCJCC("kE:E=6m??????????k^E:E=6m") & vbCrLf):Response.Write(CJJCJCC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CJJCJCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E23=6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJCC("kD4C:AEm") & vbCrLf):Response.Write(CJJCJCC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJJCJCC(" ,SWQE23=6]E30=:DEQX];%23=6WXj") & vbCrLf):Response.Write(CJJCJCC("NXj") & vbCrLf):Response.Write(CJJCJCC("k^D4C:AEm") & vbCrLf):Response.Write(CJJCJCC("k^9625m") & vbCrLf):Response.Write(CJJCJCC("k3@5Jm") & vbCrLf):Response.Write(CJJCJCC("k7@C> ,?2>6lQ7@C>`Q ,>6E9@5lQA@DEQ ,24E:@?lQQm") & vbCrLf):Response.Write(CJJCJCC(" ,k7:6=5D6Em") & vbCrLf):Response.Write(CJJCJCC(" ,k=686?5m????????????k^=686?5m") & vbCrLf):Response.Write(CJJCJCC(" ,??????,????????????????????????????????,??????????????????@????????????????????????????,") & vbCrLf):Response.Write(CJJCJCC(" ,kE23=6 ,4=2DDlQE30=:DEQm") & vbCrLf):Response.Write(CJJCJCC(" ,kECm") & vbCrLf):Response.Write(CJJCJCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJCJCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJCJCC(" ,kE9m????????k^E9m") & vbCrLf):Response.Write(CJJCJCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJCJCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJCJCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJCJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJCC(" ,")):dim CCJCJJ:CCJCJJ=1:set CCJJC=CJCCC.execute(CJJCJCC("D6=64E ,:5[?2>6[E:E=6[FC=[D@CE[:DE@A ,7C@> ,") & CCCCCJ & CJJCJCC(" ,H96C6 ,>6>36CEJA6l") & CJJCJJ & CJJCJCC(" ,@C56C ,3J ,D@CE")):if CCJJC.eof then Response.Write(vbCrLf):Response.Write(CJJCJCC(" ,kECm") & vbCrLf):Response.Write(CJJCJCC(" ,kE5 ,4@=DA2?lQeQm????????????@????,k^E5m") & vbCrLf):Response.Write(CJJCJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJCC(" ,")) else while not CCJJC.eof:if CCCJJC=CJJCJCC(">@5") and CCCJCJ=cstr(CCJJC(0)) then Response.Write(vbCrLf):Response.Write(CJJCJCC(" ,kECm") & vbCrLf):Response.Write(CJJCJCC(" ,kE5 ,2=:8?lQ46?E6CQmk:?AFE ,EJA6lQ4964<3@IQ ,?2>6lQ:DE@AQ ,:5lQ4964<3@IQ ,G2=F6lQ`Q ,")):Response.Write IIf(CCJJC(5),CJJCJCC("4964<65"),""):Response.Write(CJJCJCC("mk^E5m") & vbCrLf):Response.Write(CJJCJCC(" ,kE5mk:?AFE ,?2>6lQ?2>6Q ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,G2=F6lQ")):Response.Write CCJJC(1):Response.Write(CJJCJCC("Q ,D:K6lQ`dQmk^E5m") & vbCrLf):Response.Write(CJJCJCC(" ,kE5mk:?AFE ,?2>6lQE:E=6Q ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,G2=F6lQ")):Response.Write CCJJC(2):Response.Write(CJJCJCC("Q ,D:K6lQb_Qmk^E5m") & vbCrLf):Response.Write(CJJCJCC(" ,kE5mk:?AFE ,?2>6lQFC=Q ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,:5lQE6IE7:6=5Q ,G2=F6lQ")):Response.Write CCJJC(3):Response.Write(CJJCJCC("Q ,D:K6lQc_Qmk^E5m") & vbCrLf):Response.Write(CJJCJCC(" ,kE5 ,2=:8?lQ46?E6CQmk:?AFE ,?2>6lQD@CEQ ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,G2=F6lQ")):Response.Write CCJJC(4):Response.Write(CJJCJCC("Q ,D:K6lQbQmk^E5m") & vbCrLf):Response.Write(CJJCJCC(" ,kE5 ,2=:8?lQC:89EQmk2 ,9C67lQ;2G2D4C:AEi5@4F>6?E]7@C>`]DF3>:EWXjQm????k^2m\k2 ,9C67lQnQm????k^2mk^E5m") & vbCrLf):Response.Write(CJJCJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJCC(" ,")) Else Response.Write(vbCrLf):Response.Write(CJJCJCC(" ,kECm") & vbCrLf):Response.Write(CJJCJCC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write IIf(CCJJC(5),CCCCCC,CJJCJCC("U?3DAj")):Response.Write(CJJCJCC("k^E5m") & vbCrLf):Response.Write(CJJCJCC(" ,kE5mk2 ,9C67lQ")):Response.Write CCJJC(3):Response.Write(CJJCJCC("Q ,E2C86ElQ03=2?<Q ,E:E=6lQ??????????????????Qm")):Response.Write CCJJC(1):Response.Write(CJJCJCC("k^2mk^E5m") & vbCrLf):Response.Write(CJJCJCC(" ,kE5m")):Response.Write CCJJC(2):Response.Write(CJJCJCC("k^E5m") & vbCrLf):Response.Write(CJJCJCC(" ,kE5m")):Response.Write CCJJC(3):Response.Write(CJJCJCC("k^E5m") & vbCrLf):Response.Write(CJJCJCC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write CCJJC(4):Response.Write(CJJCJCC("k^E5m") & vbCrLf):Response.Write(CJJCJCC(" ,kE5 ,2=:8?lQC:89EQmk2 ,9C67lQn24El>@5U:5l")):Response.Write CCJJC(0):Response.Write(CJJCJCC("Qm????k^2m\k2 ,9C67lQn24El56=U:5l")):Response.Write CCJJC(0):Response.Write(CJJCJCC("Q ,@?r=:4<lQ;2G2D4C:AEiC6EFC? ,4@?7:C>WV????????????????????????,VXQm????k^2mk^E5m") & vbCrLf):Response.Write(CJJCJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJCC(" ,")) end if:CCJJC.movenext:CCJCJJ=CCJCJJ+1:wend end if:if CCCJJC=CJJCJCC("255") then Response.Write(vbCrLf):Response.Write(CJJCJCC(" ,kECm") & vbCrLf):Response.Write(CJJCJCC(" ,kE5 ,2=:8?lQ46?E6CQmk:?AFE ,EJA6lQ4964<3@IQ ,?2>6lQ:DE@AQ ,:5lQ4964<3@IaQ ,G2=F6lQ`Qmk^E5m") & vbCrLf):Response.Write(CJJCJCC(" ,kE5mk:?AFE ,?2>6lQ?2>6Q ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,D:K6lQ`dQmk^E5m") & vbCrLf):Response.Write(CJJCJCC(" ,kE5mk:?AFE ,?2>6lQE:E=6Q ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,D:K6lQb_Qmk^E5m") & vbCrLf):Response.Write(CJJCJCC(" ,kE5mk:?AFE ,?2>6lQFC=Q ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,:5lQE6IE7:6=5aQ ,D:K6lQc_Qmk^E5m") & vbCrLf):Response.Write(CJJCJCC(" ,kE5 ,2=:8?lQ46?E6CQmk:?AFE ,?2>6lQD@CEQ ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,G2=F6lQ")):Response.Write CCJCJJ:Response.Write(CJJCJCC("Q ,D:K6lQbQmk^E5m") & vbCrLf):Response.Write(CJJCJCC(" ,kE5 ,2=:8?lQC:89EQmk2 ,9C67lQ;2G2D4C:AEi5@4F>6?E]7@C>`]DF3>:EWXjQm????k^2m\k2 ,9C67lQnQm????k^2mk^E5m") & vbCrLf):Response.Write(CJJCJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJCC(" ,")) Else Response.Write(vbCrLf):Response.Write(CJJCJCC(" ,kECm") & vbCrLf):Response.Write(CJJCJCC(" ,kE5 ,4@=DA2?lQeQ ,2=:8?lQC:89EQmk2 ,9C67lQn24El255Qm????k^2mk^E5m") & vbCrLf):Response.Write(CJJCJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJCC(" ,")) End If:Response.Write(vbCrLf):Response.Write(CJJCJCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCJCC(" ,k^7:6=5D6Em") & vbCrLf):Response.Write(CJJCJCC("k^7@C>m") & vbCrLf):Response.Write(CJJCJCC("k^3@5Jm") & vbCrLf):Response.Write(CJJCJCC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJJJCJJ=nothing:set CJJJCJC=nothing:set CJJJCCJ=nothing:set CJJJCCC=nothing:CCJCJ.Close:Set CCJCJ=Nothing:CCJJC.Close:Set CCJJC=Nothing:CJCCC.Close:Set CJCCC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf) Function CJJCJCC(ByVal CJJCJCJ) Dim CCCJCC, CCJCJJ, CCCCJJ CJJCJCJ = Replace(CJJCJCJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62)) For CCJCJJ = 1 To Len(CJJCJCJ) If CCJCJJ <> CCCCJJ Then CCCJCC = AscW(Mid(CJJCJCJ, CCJCJJ, 1)) If CCCJCC >= 33 And CCCJCC <= 79 Then CJJCJCC = CJJCJCC & Chr(CCCJCC + 47) ElseIf CCCJCC >= 80 And CCCJCC <= 126 Then CJJCJCC = CJJCJCC & Chr(CCCJCC - 47) Else CCCCJJ = CCJCJJ + 1 If Mid(CJJCJCJ, CCCCJJ, 1) = Chr(64) Then CJJCJCC = CJJCJCC & ChrW(CCCJCC + 5) Else CJJCJCC = CJJCJCC & Mid(CJJCJCJ, CCJCJJ, 1) End If End If Next End Function %>
Ms-Dos/Windows
Unix
Write backup
jsp File Browser version 1.2 by
www.vonloesch.de