Edit D:\xinhaisoft\crisis_new\school\admin\student_import_dept

Edit D:\xinhaisoft\crisis_new\school\admin\student_import_dept_grade.asp

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCJJJJ, CCJJJC,CCJJCJ, CCJJCC, CCJCJJ:Set CCJJJJ = server.CreateObject(CJCCJCJJ("ps~sq]r@??64E:@?")):CCJJJJ.open Application(CJCCJCJJ("r@??64E:@?$EC:?8")):Set CCJJJC=CCJJJJ::Dim CCJCJC,CCJCCJ,CCJCCC,CCCJJJ,CCCJJC,CCCJCJ,CCCJCC,CCCCJJ,CCCCJC:Dim CCCCCJ,CCCCCC,CJJJJJJ,CJJJJJC,CJJJJCJ,CJJJJCC:Dim CJJJCJJ,CJJJCJC,CJJJCCJ:Dim CJJJCCC:CJJJCCC=Trim(Request.Cookies(CJCCJCJJ("!$*|t|qt#"))):if CJJJCCC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CCJCJC>0 then
CCJCJJ=CJCCJCJJ("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") & CCJCCJ & CJCCJCJJ("V ,2?5 ,:5l") & CCJCJC
set CCJJCJ=CCJJJJ.execute(CCJCJJ):If CCJJCJ.EOF Then
Call ClearMemberCookie
Else
CCJCCC=CCJJCJ(2) & "":CCCJJJ=CCJJCJ(3):CCCJJC=CCJJCJ(5):CCCJCJ=CCJJCJ(6):CCCJCC=CCJJCJ(9):CCCCJJ=CCJJCJ(15):CCCCCJ=CCJJCJ(0):CJJJCJC=CCJJCJ(1):CJJJCJJ=CCJJCJ(11) & "":CCCCCC=CCJJCJ(10) & "":CCCCJC=CCJJCJ(12):CJJJJJJ=CCJJCJ(14):CJJJJJC=CCJJCJ(13):CJJJJCJ=CCJJCJ(7) & "":CJJJJCC=CCJJCJ(4):CJJJCCJ=CCJJCJ(8):if isnull(CCCCJJ) then CCCCJJ=0
if isnull(CCCJCC) or CCCJCC=0 then CCCJCC=CCCJJJ
if isnull(CJJJJCC) then CJJJJCC=0
if isnull(CCCJJC) then CCCJJC=0
if instr(CJCCJCJJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CCJCCJ)>0 then Call RedirectMessage(CJCCJCJJ("????????,????????????????????????????????,"))
Call SetMemberCookie(CCJCJC,CCJCCJ)
End IF
end if:Sub CheckRight(CJCJCCC):dim CJJCJJJ,CJJCJJC:if CCJCJC=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJCCJCJJ("??????????????,????????????,"))
elseIf not CJJCCJCC(CJCJCCC) then
Call RedirectMessage(CJCCJCJJ("????W") & CJCJCCC & CJCCJCJJ("X????????,????????????????????,"))
end if:End Sub:Function CJJCCJCC(CJCJCCC):dim CJJCJJJ,CJJCJJC:CJJCJJC=split(CJCJCCC,CJCCJCJJ("[")):CJJCCJCC=False:for CJJCJJJ=0 to ubound(CJJCJJC):If Mid(CCJCCC,CJJCJJC(CJJCJJJ),1)="1" then
CJJCCJCC=True:exit function
end if:next:End Function:Sub CheckLogined():if CCJCJC=0 then
Call ClearMemberCookie:Call ConnClose:dim CJJCJCJ:CJJCJCJ=trim(request.QueryString(CJCCJCJJ("D49@@="))):if isnumeric(CJJCJCJ) then
response.Redirect CJCCJCJJ("^>^G2?E^R^D49@@=^") & CJJCJCJ & CJCCJCJJ("^DEF56?E^=@8:?nC65:C64El") & url
else
Call RedirectMessage(CJCCJCJJ("??????????????,????????????,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CJCCJCJJ("!$*|t|qt#"))="":CCJCJC=0:CCCJCJ=0:CCJCCJ=Empty:CCCJJC=0:CCCCJJ=0:CCCJCC=0:CCCJJJ=0:CCCCCJ=False:CJJJCJC=False:CJJJCCJ=Empty:End Sub:Sub CheckMemberCookie():dim CJJCJCC,CJJCCJJ,CJJCJJJ,CJJCCJC,CJJCCCJ:CJJCJCC=split(CJJJCCC,CJCCJCJJ("]")):if ubound(CJJCJCC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJJCJCC(0)) or len(CJJCJCC(1))<>32 or len(CJJCJCC(2))<>32 then
Call ClearMemberCookie
else
CJJCCJJ=CJJCJCC(1):for CJJCJJJ=1 to len(CJJCCJJ):CJJCCJC=mid(CJJCCJJ,CJJCJJJ,1):if isnumeric(CJJCCJC) then CJJCCCJ=CJJCCCJ & CJJCCJC
if len(CJJCCCJ)=7 then exit for
next:CJJCCJJ=CJJCJCC(2):if CJJCCCJ<>mid(CJJCCJJ,6,7) then
Call ClearMemberCookie
else
CJJCCJC=mid(CJJCCJJ,18,10)/2:if CJJCCJC<DateDiff(CJCCJCJJ("D"), CJCCJCJJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CCJCJC=Clng(CJJCJCC(0)):CCJCCJ=CJJCJCC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCCCCCC,CJJJJJJJ):dim CJJCJJJ,CJJCCJC,CJJCCCJ:for CJJCJJJ=1 to len(CJJJJJJJ):CJJCCJC=mid(CJJJJJJJ,CJJCJJJ,1):if isnumeric(CJJCCJC) then CJJCCCJ=CJJCCCJ & CJJCCJC
if len(CJJCCCJ)=7 then exit for
next:CJJCCCJ=CCCCCCC & CJCCJCJJ("]") & CJJJJJJJ & CJCCJCJJ("]") & Fix(10000*(Rnd+1)) & CJJCCCJ & Fix(10000*(Rnd+1)) & DateDiff(CJCCJCJJ("D"), CJCCJCJJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJCCJCJJ("!$*|t|qt#"))=CJJCCCJ:End Sub::Function CJJCCCJJ(CJCCJCJC):Dim str,CJCJJJJ:str = Trim(CJCCJCJC):If IsNull(str) Or str = "" Then
CJJCCCJJ = ""
else
str=Replace(str, CJCCJCJJ("V"), "")
str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CJCCJCJJ("k:7C2>6"), CJCCJCJJ("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CJCCJCJJ("kD4C:AE"), CJCCJCJJ("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CJCJJJJ=new RegExp:CJCJJJJ.Pattern=CJCCJCJJ("@?W,2\K.ZXl"):CJCJJJJ.IgnoreCase = True:CJCJJJJ.Global=True:str=CJCJJJJ.Replace(str,CJCCJCJJ("@?S`U6BF2=Dj")):set CJCJJJJ=nothing:CJJCCCJJ=str
End If:End Function:Function IIf(CJCCJCCJ, CJCCJCCC, CJCCCJJJ):if isnull(CJCCJCCJ) or isempty(CJCCJCCJ) then
IIf = CJCCCJJJ
elseif CJCCJCCJ Then
IIf = CJCCJCCC
Else
IIf = CJCCCJJJ
end if:End Function:Const CJJJJCJJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":Function CJJCCCCJ(str):if isnull(str) or str="" then
CJJCCCCJ=False:exit function
end if:Dim CJCJJJJ:Set CJCJJJJ = New RegExp:CJCJJJJ.Pattern = CJCCJCJJ("/`Wb,_\h.Mc,dfh.Md,_`abdefgh.Me,aef.Mf,_`abdefg.Mg,_\h.Mh,`dgh.X-5LgNS"):CJCJJJJ.IgnoreCase = True:CJJCCCCJ = CJCJJJJ.test(str):set CJCJJJJ=nothing:End Function::Sub Debug(str):response.Charset=CJCCJCJJ("FE7\g"):dim CJJCJJJ,CJJCCJC,CJCJJJC:if isarray(str) then
on error resume next:CJJCJJJ=ubound(str,2):CJCJJJC=err.number:err.clear:on error goto 0:if CJCJJJC<>0 then
for CJJCJJJ=0 to ubound(str):if CJJCJJJ>0 then response.Write CJCCJCJJ("k3C ,^m")
response.Write CJJCJJJ & CJCCJCJJ("i ,") & str(CJJCJJJ):next
else
response.Write CJCCJCJJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CJJCJJJ=0 to ubound(str,2):response.Write CJCCJCJJ("kE9 ,2=:8?lV=67EVm") & CJJCJJJ & CJCCJCJJ("k^E9m")
next:response.Write CJCCJCJJ("k^ECm"):for CJJCJJJ=0 to ubound(str):response.Write CJCCJCJJ("kECmkE9m") & CJJCJJJ & CJCCJCJJ("k^E9m"):for CJJCCJC=0 to ubound(str,2):response.Write CJCCJCJJ("kE5m") & str(CJJCJJJ,CJJCCJC) & CJCCJCJJ("k^E5m"):next:response.Write CJCCJCJJ("k^ECm"):next:response.Write CJCCJCJJ("k^E23=6m")
end if
elseif isnull(str) then
response.Write CJCCJCJJ(",}F==.")
else
Response.Write replace(str,vbcrlf,CJCCJCJJ("k3Cm"))
end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CJCCCJJC,CJCCCJCJ):dim CJJCJCC:CJJCJCC=CJCCCJJC & CJCCJCJJ("l") & CJCCCJCJ & CJCCJCJJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJCCJCJJ("$6E\r@@<:6"),CJJCJCC):End Sub:::::::Function CJJCCCCC(CJCJJJC):if isnull(CJCJJJC) or trim(CJCJJJC)="" or not isnumeric(CJCJJJC) then
CJJCCCCC=false
else
Dim CJCJJJJ:Set CJCJJJJ = New RegExp:CJCJJJJ.Pattern = CJCCJCJJ("/-5ZS"):CJCJJJJ.IgnoreCase = True:CJJCCCCC = CJCJJJJ.test(CJCJJJC):set CJCJJJJ=nothing
end if:End Function:::::Sub ConnClose():On Error Resume Next:set CJCJJJJJ=nothing:set CJCJJJJC=nothing:set CJCJJJCJ=nothing:set CJCJJJCC=nothing:CJCJCCJ.close : set CJCJCCJ=nothing:CCJJCC.Close : Set CCJJCC=Nothing:CCJJCJ.Close : Set CCJJCJ=Nothing:CJCJJCJJ.Close : Set CJCJJCJJ = Nothing:CCJJJJ.Close : Set CCJJJJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJCCCJCC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJCCJCJJ("!$*0|6DD286"),server.URLEncode(CJCCCJCC)):Response.Redirect CJCCJCJJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::Function CJCJJCJC(ByVal CJCJJCCJ,style):if not isdate(CJCJJCCJ) then
CJCJJCJC=CJCJJCCJ:exit function
end if:dim CJCJJCJ,CJCJJCC,CJCJCJJ,CJCJCJC:CJCJJCCJ=cdate(CJCJJCCJ):CJCJJCJ=Year(CJCJJCCJ):CJCJJCC=Month(CJCJJCCJ):CJCJCJJ=Day(CJCJJCCJ):select case style:case 0:CJCJJCJC=CJCJJCJ & CJCCJCJJ("\") & right(0 & CJCJJCC,2) & CJCCJCJJ("\") & right(0 & CJCJCJJ,2):case 1:CJCJJCJC=CJCJJCJ & right(0 & CJCJJCC,2) & right(0 & CJCJCJJ,2):case 2:CJCJJCJC=right(CJCJJCJ,2) & CJCCJCJJ("\") & right(0 & CJCJJCC,2) & CJCCJCJJ("\") & right(0 & CJCJCJJ,2):case 3:CJCJJCJC=CJCJJCJ & CJCCJCJJ("\") & right(0 & CJCJJCC,2):case 4:CJCJJCJC=right(0 & CJCJJCC,2) & CJCCJCJJ("\") & right(0 & CJCJCJJ,2):case 5:CJCJJCJC=right(0 & CJCJCJJ,2):case 6:CJCJJCJC=CJCJJCJ & CJCCJCJJ("??") & right(0 & CJCJJCC,2) & CJCCJCJJ("??") & right(0 & CJCJCJJ,2) & CJCCJCJJ("??"):case else
CJCJJCJC=CJCJJCCJ:end select:End Function:Function CJCJJCCC(CJCCCCJJ):Dim CJCJCCJ, CJCJCCC, str(), CJJCJJJ,CJJCCJC,CJCCJJJ:CJCCJJJ=UCase(CJCCCCJJ):If Not IsArray(Application(CJCCJCJJ("!$*0") & CJCCJJJ)) Then
CCJCJJ=CJCCJCJJ("D6=64E ,:5[?2>6[>6>36CEJA6 ,7C@> ,,") & CJCCCCJJ & CJCCJCJJ(". ,@C56C ,3J ,D@CE[:5"):set CJCJCCJ=server.createobject(CJCCJCJJ("25@53]C64@C5D6E")):CJCJCCJ.open CCJCJJ,CCJJJJ,1:CJCJCCC = CJCJCCJ.RecordCount:ReDim str(CJCJCCC, 2):If CJCJCCC > 0 Then
For CJJCJJJ = 1 To CJCJCCC:for CJJCCJC=0 to 2:str(CJJCJJJ, CJJCCJC) = CJCJCCJ(CJJCCJC):next:CJCJCCJ.MoveNext:Next
End If:CJCJCCJ.Close: Set CJCJCCJ = Nothing:Application(CJCCJCJJ("!$*0") & CJCCJJJ) = str
End If:CJCJJCCC = Application(CJCCJCJJ("!$*0") & CJCCJJJ):End Function:Sub ShowListSelect(CJCCCCJC,CJCCCCCJ,CJCCCCCC):Dim str, CJJCJJJ, CJCCJJC:CJCCJJC = CJCJJCCC(CJCCCCJC):For CJJCJJJ = 1 To UBound(CJCCJJC):if Cstr(CJCCJJC(CJJCJJJ,2))=Cstr(CJCCCCCJ) then
str = str & CJCCJCJJ("k@AE:@? ,G2=F6lV") & CJCCJJC(CJJCJJJ, 0) & CJCCJCJJ("V")
If CStr(CJCCJJC(CJJCJJJ, 0)) = CJCCCCCC & "" Then str = str & CJCCJCJJ(" ,D6=64E65lVD6=64E65V")
str = str & CJCCJCJJ("m") & CJCCJJC(CJJCJJJ, 1) & CJCCJCJJ("k^@AE:@?m")
end if:Next:Response.Write str:End Sub:Function CJCJCJJJ(CJCCCCJC,CJCCCCCJ,CCCCCCC):Dim str, CJJCJJJ, CJCCJJC:CJCCJJC = CJCJJCCC(CJCCCCJC):For CJJCJJJ = 1 To UBound(CJCCJJC):if Cstr(CJCCJJC(CJJCJJJ,2))=Cstr(CJCCCCCJ) and CStr(CJCCJJC(CJJCJJJ, 0)) = CCCCCCC & "" then
str=CJCCJJC(CJJCJJJ,1):exit for
end if:Next:if str="" then str=CJCCJCJJ(",????.")
CJCJCJJJ=str:End Function:::::::::::::::::::Private Const CJJJJCJC =8:Private Const CJJJJCCJ =4:Private Const CJJJJCCC =32:Private CJCCJCJ(30):Private CJCCJCC(30):Private Function CJCJCJJC(CCJJJJJJ, CCJJJJJC):If CCJJJJJC = 0 Then
CJCJCJJC = CCJJJJJJ:Exit Function
ElseIf CCJJJJJC = 31 Then
If CCJJJJJJ And 1 Then
CJCJCJJC = &H80000000
Else
CJCJCJJC = 0
End If:Exit Function
ElseIf CCJJJJJC < 0 Or CCJJJJJC > 31 Then
Err.Raise 6
End If:If (CCJJJJJJ And CJCCJCC(31 - CCJJJJJC)) Then
CJCJCJJC = ((CCJJJJJJ And CJCCJCJ(31 - (CCJJJJJC + 1))) * CJCCJCC(CCJJJJJC)) Or &H80000000
Else
CJCJCJJC = ((CCJJJJJJ And CJCCJCJ(31 - CCJJJJJC)) * CJCCJCC(CCJJJJJC))
End If:End Function:Private Function CJCJCJCJ(CCJJJJJJ, CCJJJJJC):If CCJJJJJC = 0 Then
CJCJCJCJ = CCJJJJJJ:Exit Function
ElseIf CCJJJJJC = 31 Then
If CCJJJJJJ And &H80000000 Then
CJCJCJCJ = 1
Else
CJCJCJCJ = 0
End If:Exit Function
ElseIf CCJJJJJC < 0 Or CCJJJJJC > 31 Then
Err.Raise 6
End If:CJCJCJCJ = (CCJJJJJJ And &H7FFFFFFE) \ CJCCJCC(CCJJJJJC):If (CCJJJJJJ And &H80000000) Then
CJCJCJCJ = (CJCJCJCJ Or (&H40000000 \ CJCCJCC(CCJJJJJC - 1)))
End If:End Function:Private Function CJCJCJCC(CCJJJJJJ, CCJJJJJC):CJCJCJCC = CJCJCJJC(CCJJJJJJ, CCJJJJJC) Or CJCJCJCJ(CCJJJJJJ, (32 - CCJJJJJC)):End Function:Private Function CJCJCCJJ(CCJJJJCJ, CCJJJJCC):Dim CJCCCJJ:Dim CJCCCJC:Dim CJCCCCJ:Dim CJCCCCC:Dim CCJJJJJ:CJCCCCJ = CCJJJJCJ And &H80000000:CJCCCCC = CCJJJJCC And &H80000000:CJCCCJJ = CCJJJJCJ And &H40000000:CJCCCJC = CCJJJJCC And &H40000000:CCJJJJJ = (CCJJJJCJ And &H3FFFFFFF) + (CCJJJJCC And &H3FFFFFFF):If CJCCCJJ And CJCCCJC Then
CCJJJJJ = CCJJJJJ Xor &H80000000 Xor CJCCCCJ Xor CJCCCCC
ElseIf CJCCCJJ Or CJCCCJC Then
If CCJJJJJ And &H40000000 Then
CCJJJJJ = CCJJJJJ Xor &HC0000000 Xor CJCCCCJ Xor CJCCCCC
Else
CCJJJJJ = CCJJJJJ Xor &H40000000 Xor CJCCCCJ Xor CJCCCCC
End If
Else
CCJJJJJ = CCJJJJJ Xor CJCCCCJ Xor CJCCCCC
End If:CJCJCCJJ = CCJJJJJ:End Function:Private Function CJCJCCJC(CCJCJJC, CJCJJCJ, CCJJJCJJ):CJCJCCJC = (CCJCJJC And CJCJJCJ) Or ((Not CCJCJJC) And CCJJJCJJ):End Function:Private Function CJCJCCCJ(CCJCJJC, CJCJJCJ, CCJJJCJJ):CJCJCCCJ = (CCJCJJC And CCJJJCJJ) Or (CJCJJCJ And (Not CCJJJCJJ)):End Function:Private Function CJCJCCCC(CCJCJJC, CJCJJCJ, CCJJJCJJ):CJCJCCCC = (CCJCJJC Xor CJCJJCJ Xor CCJJJCJJ):End Function:Private Function CJCCJJJJ(CCJCJJC, CJCJJCJ, CCJJJCJJ):CJCCJJJJ = (CJCJJCJ Xor (CCJCJJC Or (Not CCJJJCJJ))):End Function:Private Sub md5_FF(CCJCCCJ, CCJCCCC, CCCJJJJ, CJCJCJJ, CCJCJJC, CCJJJCJC, CCJJJCCJ):CCJCCCJ = CJCJCCJJ(CCJCCCJ, CJCJCCJJ(CJCJCCJJ(CJCJCCJC(CCJCCCC, CCCJJJJ, CJCJCJJ), CCJCJJC), CCJJJCCJ)):CCJCCCJ = CJCJCJCC(CCJCCCJ, CCJJJCJC):CCJCCCJ = CJCJCCJJ(CCJCCCJ, CCJCCCC):End Sub:Private Sub md5_GG(CCJCCCJ, CCJCCCC, CCCJJJJ, CJCJCJJ, CCJCJJC, CCJJJCJC, CCJJJCCJ):CCJCCCJ = CJCJCCJJ(CCJCCCJ, CJCJCCJJ(CJCJCCJJ(CJCJCCCJ(CCJCCCC, CCCJJJJ, CJCJCJJ), CCJCJJC), CCJJJCCJ)):CCJCCCJ = CJCJCJCC(CCJCCCJ, CCJJJCJC):CCJCCCJ = CJCJCCJJ(CCJCCCJ, CCJCCCC):End Sub:Private Sub md5_HH(CCJCCCJ, CCJCCCC, CCCJJJJ, CJCJCJJ, CCJCJJC, CCJJJCJC, CCJJJCCJ):CCJCCCJ = CJCJCCJJ(CCJCCCJ, CJCJCCJJ(CJCJCCJJ(CJCJCCCC(CCJCCCC, CCCJJJJ, CJCJCJJ), CCJCJJC), CCJJJCCJ)):CCJCCCJ = CJCJCJCC(CCJCCCJ, CCJJJCJC):CCJCCCJ = CJCJCCJJ(CCJCCCJ, CCJCCCC):End Sub:Private Sub md5_II(CCJCCCJ, CCJCCCC, CCCJJJJ, CJCJCJJ, CCJCJJC, CCJJJCJC, CCJJJCCJ):CCJCCCJ = CJCJCCJJ(CCJCCCJ, CJCJCCJJ(CJCJCCJJ(CJCCJJJJ(CCJCCCC, CCCJJJJ, CJCJCJJ), CCJCJJC), CCJJJCCJ)):CCJCCCJ = CJCJCJCC(CCJCCCJ, CCJJJCJC):CCJCCCJ = CJCJCCJJ(CCJCCCJ, CCJCCCC):End Sub:Private Function CJCCJJJC(CCJJJCCC):Dim CCJJJJC:Dim CCJJJCJ:Dim CCJJJCC():Dim CCJJCJJ:Dim CCJJCJC:Dim CCJJCCJ:Const CJJJCJJJ =512:Const CJJJCJJC =448:CCJJJJC = Len(CCJJJCCC):CCJJJCJ = (((CCJJJJC + ((CJJJCJJJ - CJJJCJJC) \ CJJJJCJC)) \ (CJJJCJJJ \ CJJJJCJC)) + 1) * (CJJJCJJJ \ CJJJJCCC):ReDim CCJJJCC(CCJJJCJ - 1):CCJJCJJ = 0:CCJJCJC = 0:Do Until CCJJCJC >= CCJJJJC:CCJJCCJ = CCJJCJC \ CJJJJCCJ:CCJJCJJ = (CCJJCJC Mod CJJJJCCJ) * CJJJJCJC:CCJJJCC(CCJJCCJ) = CCJJJCC(CCJJCCJ) Or CJCJCJJC(Asc(Mid(CCJJJCCC, CCJJCJC + 1, 1)), CCJJCJJ):CCJJCJC = CCJJCJC + 1:Loop:CCJJCCJ = CCJJCJC \ CJJJJCCJ:CCJJCJJ = (CCJJCJC Mod CJJJJCCJ) * CJJJJCJC:CCJJJCC(CCJJCCJ) = CCJJJCC(CCJJCCJ) Or CJCJCJJC(&H80, CCJJCJJ):CCJJJCC(CCJJJCJ - 2) = CJCJCJJC(CCJJJJC, 3):CCJJJCC(CCJJJCJ - 1) = CJCJCJCJ(CCJJJJC, 29):CJCCJJJC = CCJJJCC:End Function:Private Function CJCCJJCJ(CCJJJJJJ):Dim CCJJCCC:Dim CCJCJJJ:For CCJCJJJ = 0 To 3:CCJJCCC = CJCJCJCJ(CCJJJJJJ, CCJCJJJ * CJJJJCJC) And CJCCJCJ(CJJJJCJC - 1):CJCCJJCJ = CJCCJJCJ & Right("0" & Hex(CCJJCCC), 2):Next:End Function:Public Function CJCCJJCC(CCJJJCCC):CJCCJCJ(0) = CLng(1):CJCCJCJ(1) = CLng(3):CJCCJCJ(2) = CLng(7):CJCCJCJ(3) = CLng(15):CJCCJCJ(4) = CLng(31):CJCCJCJ(5) = CLng(63):CJCCJCJ(6) = CLng(127):CJCCJCJ(7) = CLng(255):CJCCJCJ(8) = CLng(511):CJCCJCJ(9) = CLng(1023):CJCCJCJ(10) = CLng(2047):CJCCJCJ(11) = CLng(4095):CJCCJCJ(12) = CLng(8191):CJCCJCJ(13) = CLng(16383):CJCCJCJ(14) = CLng(32767):CJCCJCJ(15) = CLng(65535):CJCCJCJ(16) = CLng(131071):CJCCJCJ(17) = CLng(262143):CJCCJCJ(18) = CLng(524287):CJCCJCJ(19) = CLng(1048575):CJCCJCJ(20) = CLng(2097151):CJCCJCJ(21) = CLng(4194303):CJCCJCJ(22) = CLng(8388607):CJCCJCJ(23) = CLng(16777215):CJCCJCJ(24) = CLng(33554431):CJCCJCJ(25) = CLng(67108863):CJCCJCJ(26) = CLng(134217727):CJCCJCJ(27) = CLng(268435455):CJCCJCJ(28) = CLng(536870911):CJCCJCJ(29) = CLng(1073741823):CJCCJCJ(30) = CLng(2147483647):CJCCJCC(0) = CLng(1):CJCCJCC(1) = CLng(2):CJCCJCC(2) = CLng(4):CJCCJCC(3) = CLng(8):CJCCJCC(4) = CLng(16):CJCCJCC(5) = CLng(32):CJCCJCC(6) = CLng(64):CJCCJCC(7) = CLng(128):CJCCJCC(8) = CLng(256):CJCCJCC(9) = CLng(512):CJCCJCC(10) = CLng(1024):CJCCJCC(11) = CLng(2048):CJCCJCC(12) = CLng(4096):CJCCJCC(13) = CLng(8192):CJCCJCC(14) = CLng(16384):CJCCJCC(15) = CLng(32768):CJCCJCC(16) = CLng(65536):CJCCJCC(17) = CLng(131072):CJCCJCC(18) = CLng(262144):CJCCJCC(19) = CLng(524288):CJCCJCC(20) = CLng(1048576):CJCCJCC(21) = CLng(2097152):CJCCJCC(22) = CLng(4194304):CJCCJCC(23) = CLng(8388608):CJCCJCC(24) = CLng(16777216):CJCCJCC(25) = CLng(33554432):CJCCJCC(26) = CLng(67108864):CJCCJCC(27) = CLng(134217728):CJCCJCC(28) = CLng(268435456):CJCCJCC(29) = CLng(536870912):CJCCJCC(30) = CLng(1073741824):Dim CCJCJJC:Dim CJJCCCJ:Dim CCJCJCJ:Dim CCJCJCC:Dim CCJCCJJ:Dim CCJCCJC:Dim CCJCCCJ:Dim CCJCCCC:Dim CCCJJJJ:Dim CJCJCJJ:Const CJJJCJCJ =7:Const CJJJCJCC =12:Const CJJJCCJJ =17:Const CJJJCCJC =22:Const CJJJCCCJ =5:Const CJJJCCCC =9:Const CJJCJJJJ =14:Const CJJCJJJC =20:Const CJJCJJCJ =4:Const CJJCJJCC =11:Const CJJCJCJJ =16:Const CJJCJCJC =23:Const CJJCJCCJ =6:Const CJJCJCCC =10:Const CJJCCJJJ =15:Const CJJCCJJC =21:CCJCJJC = CJCCJJJC(CCJJJCCC):CCJCCCJ = &H67452301:CCJCCCC = &HEFCDAB89:CCCJJJJ = &H98BADCFE:CJCJCJJ = &H10325476:For CJJCCCJ = 0 To UBound(CCJCJJC) Step 16:CCJCJCJ = CCJCCCJ:CCJCJCC = CCJCCCC:CCJCCJJ = CCCJJJJ:CCJCCJC = CJCJCJJ:md5_FF CCJCCCJ, CCJCCCC, CCCJJJJ, CJCJCJJ, CCJCJJC(CJJCCCJ + 0), CJJJCJCJ, &HD76AA478:md5_FF CJCJCJJ, CCJCCCJ, CCJCCCC, CCCJJJJ, CCJCJJC(CJJCCCJ + 1), CJJJCJCC, &HE8C7B756:md5_FF CCCJJJJ, CJCJCJJ, CCJCCCJ, CCJCCCC, CCJCJJC(CJJCCCJ + 2), CJJJCCJJ, &H242070DB:md5_FF CCJCCCC, CCCJJJJ, CJCJCJJ, CCJCCCJ, CCJCJJC(CJJCCCJ + 3), CJJJCCJC, &HC1BDCEEE:md5_FF CCJCCCJ, CCJCCCC, CCCJJJJ, CJCJCJJ, CCJCJJC(CJJCCCJ + 4), CJJJCJCJ, &HF57C0FAF:md5_FF CJCJCJJ, CCJCCCJ, CCJCCCC, CCCJJJJ, CCJCJJC(CJJCCCJ + 5), CJJJCJCC, &H4787C62A:md5_FF CCCJJJJ, CJCJCJJ, CCJCCCJ, CCJCCCC, CCJCJJC(CJJCCCJ + 6), CJJJCCJJ, &HA8304613:md5_FF CCJCCCC, CCCJJJJ, CJCJCJJ, CCJCCCJ, CCJCJJC(CJJCCCJ + 7), CJJJCCJC, &HFD469501:md5_FF CCJCCCJ, CCJCCCC, CCCJJJJ, CJCJCJJ, CCJCJJC(CJJCCCJ + 8), CJJJCJCJ, &H698098D8:md5_FF CJCJCJJ, CCJCCCJ, CCJCCCC, CCCJJJJ, CCJCJJC(CJJCCCJ + 9), CJJJCJCC, &H8B44F7AF:md5_FF CCCJJJJ, CJCJCJJ, CCJCCCJ, CCJCCCC, CCJCJJC(CJJCCCJ + 10), CJJJCCJJ, &HFFFF5BB1:md5_FF CCJCCCC, CCCJJJJ, CJCJCJJ, CCJCCCJ, CCJCJJC(CJJCCCJ + 11), CJJJCCJC, &H895CD7BE:md5_FF CCJCCCJ, CCJCCCC, CCCJJJJ, CJCJCJJ, CCJCJJC(CJJCCCJ + 12), CJJJCJCJ, &H6B901122:md5_FF CJCJCJJ, CCJCCCJ, CCJCCCC, CCCJJJJ, CCJCJJC(CJJCCCJ + 13), CJJJCJCC, &HFD987193:md5_FF CCCJJJJ, CJCJCJJ, CCJCCCJ, CCJCCCC, CCJCJJC(CJJCCCJ + 14), CJJJCCJJ, &HA679438E:md5_FF CCJCCCC, CCCJJJJ, CJCJCJJ, CCJCCCJ, CCJCJJC(CJJCCCJ + 15), CJJJCCJC, &H49B40821:md5_GG CCJCCCJ, CCJCCCC, CCCJJJJ, CJCJCJJ, CCJCJJC(CJJCCCJ + 1), CJJJCCCJ, &HF61E2562:md5_GG CJCJCJJ, CCJCCCJ, CCJCCCC, CCCJJJJ, CCJCJJC(CJJCCCJ + 6), CJJJCCCC, &HC040B340:md5_GG CCCJJJJ, CJCJCJJ, CCJCCCJ, CCJCCCC, CCJCJJC(CJJCCCJ + 11), CJJCJJJJ, &H265E5A51:md5_GG CCJCCCC, CCCJJJJ, CJCJCJJ, CCJCCCJ, CCJCJJC(CJJCCCJ + 0), CJJCJJJC, &HE9B6C7AA:md5_GG CCJCCCJ, CCJCCCC, CCCJJJJ, CJCJCJJ, CCJCJJC(CJJCCCJ + 5), CJJJCCCJ, &HD62F105D:md5_GG CJCJCJJ, CCJCCCJ, CCJCCCC, CCCJJJJ, CCJCJJC(CJJCCCJ + 10), CJJJCCCC, &H2441453:md5_GG CCCJJJJ, CJCJCJJ, CCJCCCJ, CCJCCCC, CCJCJJC(CJJCCCJ + 15), CJJCJJJJ, &HD8A1E681:md5_GG CCJCCCC, CCCJJJJ, CJCJCJJ, CCJCCCJ, CCJCJJC(CJJCCCJ + 4), CJJCJJJC, &HE7D3FBC8:md5_GG CCJCCCJ, CCJCCCC, CCCJJJJ, CJCJCJJ, CCJCJJC(CJJCCCJ + 9), CJJJCCCJ, &H21E1CDE6:md5_GG CJCJCJJ, CCJCCCJ, CCJCCCC, CCCJJJJ, CCJCJJC(CJJCCCJ + 14), CJJJCCCC, &HC33707D6:md5_GG CCCJJJJ, CJCJCJJ, CCJCCCJ, CCJCCCC, CCJCJJC(CJJCCCJ + 3), CJJCJJJJ, &HF4D50D87:md5_GG CCJCCCC, CCCJJJJ, CJCJCJJ, CCJCCCJ, CCJCJJC(CJJCCCJ + 8), CJJCJJJC, &H455A14ED:md5_GG CCJCCCJ, CCJCCCC, CCCJJJJ, CJCJCJJ, CCJCJJC(CJJCCCJ + 13), CJJJCCCJ, &HA9E3E905:md5_GG CJCJCJJ, CCJCCCJ, CCJCCCC, CCCJJJJ, CCJCJJC(CJJCCCJ + 2), CJJJCCCC, &HFCEFA3F8:md5_GG CCCJJJJ, CJCJCJJ, CCJCCCJ, CCJCCCC, CCJCJJC(CJJCCCJ + 7), CJJCJJJJ, &H676F02D9:md5_GG CCJCCCC, CCCJJJJ, CJCJCJJ, CCJCCCJ, CCJCJJC(CJJCCCJ + 12), CJJCJJJC, &H8D2A4C8A:md5_HH CCJCCCJ, CCJCCCC, CCCJJJJ, CJCJCJJ, CCJCJJC(CJJCCCJ + 5), CJJCJJCJ, &HFFFA3942:md5_HH CJCJCJJ, CCJCCCJ, CCJCCCC, CCCJJJJ, CCJCJJC(CJJCCCJ + 8), CJJCJJCC, &H8771F681:md5_HH CCCJJJJ, CJCJCJJ, CCJCCCJ, CCJCCCC, CCJCJJC(CJJCCCJ + 11), CJJCJCJJ, &H6D9D6122:md5_HH CCJCCCC, CCCJJJJ, CJCJCJJ, CCJCCCJ, CCJCJJC(CJJCCCJ + 14), CJJCJCJC, &HFDE5380C:md5_HH CCJCCCJ, CCJCCCC, CCCJJJJ, CJCJCJJ, CCJCJJC(CJJCCCJ + 1), CJJCJJCJ, &HA4BEEA44:md5_HH CJCJCJJ, CCJCCCJ, CCJCCCC, CCCJJJJ, CCJCJJC(CJJCCCJ + 4), CJJCJJCC, &H4BDECFA9:md5_HH CCCJJJJ, CJCJCJJ, CCJCCCJ, CCJCCCC, CCJCJJC(CJJCCCJ + 7), CJJCJCJJ, &HF6BB4B60:md5_HH CCJCCCC, CCCJJJJ, CJCJCJJ, CCJCCCJ, CCJCJJC(CJJCCCJ + 10), CJJCJCJC, &HBEBFBC70:md5_HH CCJCCCJ, CCJCCCC, CCCJJJJ, CJCJCJJ, CCJCJJC(CJJCCCJ + 13), CJJCJJCJ, &H289B7EC6:md5_HH CJCJCJJ, CCJCCCJ, CCJCCCC, CCCJJJJ, CCJCJJC(CJJCCCJ + 0), CJJCJJCC, &HEAA127FA:md5_HH CCCJJJJ, CJCJCJJ, CCJCCCJ, CCJCCCC, CCJCJJC(CJJCCCJ + 3), CJJCJCJJ, &HD4EF3085:md5_HH CCJCCCC, CCCJJJJ, CJCJCJJ, CCJCCCJ, CCJCJJC(CJJCCCJ + 6), CJJCJCJC, &H4881D05:md5_HH CCJCCCJ, CCJCCCC, CCCJJJJ, CJCJCJJ, CCJCJJC(CJJCCCJ + 9), CJJCJJCJ, &HD9D4D039:md5_HH CJCJCJJ, CCJCCCJ, CCJCCCC, CCCJJJJ, CCJCJJC(CJJCCCJ + 12), CJJCJJCC, &HE6DB99E5:md5_HH CCCJJJJ, CJCJCJJ, CCJCCCJ, CCJCCCC, CCJCJJC(CJJCCCJ + 15), CJJCJCJJ, &H1FA27CF8:md5_HH CCJCCCC, CCCJJJJ, CJCJCJJ, CCJCCCJ, CCJCJJC(CJJCCCJ + 2), CJJCJCJC, &HC4AC5665:md5_II CCJCCCJ, CCJCCCC, CCCJJJJ, CJCJCJJ, CCJCJJC(CJJCCCJ + 0), CJJCJCCJ, &HF4292244:md5_II CJCJCJJ, CCJCCCJ, CCJCCCC, CCCJJJJ, CCJCJJC(CJJCCCJ + 7), CJJCJCCC, &H432AFF97:md5_II CCCJJJJ, CJCJCJJ, CCJCCCJ, CCJCCCC, CCJCJJC(CJJCCCJ + 14), CJJCCJJJ, &HAB9423A7:md5_II CCJCCCC, CCCJJJJ, CJCJCJJ, CCJCCCJ, CCJCJJC(CJJCCCJ + 5), CJJCCJJC, &HFC93A039:md5_II CCJCCCJ, CCJCCCC, CCCJJJJ, CJCJCJJ, CCJCJJC(CJJCCCJ + 12), CJJCJCCJ, &H655B59C3:md5_II CJCJCJJ, CCJCCCJ, CCJCCCC, CCCJJJJ, CCJCJJC(CJJCCCJ + 3), CJJCJCCC, &H8F0CCC92:md5_II CCCJJJJ, CJCJCJJ, CCJCCCJ, CCJCCCC, CCJCJJC(CJJCCCJ + 10), CJJCCJJJ, &HFFEFF47D:md5_II CCJCCCC, CCCJJJJ, CJCJCJJ, CCJCCCJ, CCJCJJC(CJJCCCJ + 1), CJJCCJJC, &H85845DD1:md5_II CCJCCCJ, CCJCCCC, CCCJJJJ, CJCJCJJ, CCJCJJC(CJJCCCJ + 8), CJJCJCCJ, &H6FA87E4F:md5_II CJCJCJJ, CCJCCCJ, CCJCCCC, CCCJJJJ, CCJCJJC(CJJCCCJ + 15), CJJCJCCC, &HFE2CE6E0:md5_II CCCJJJJ, CJCJCJJ, CCJCCCJ, CCJCCCC, CCJCJJC(CJJCCCJ + 6), CJJCCJJJ, &HA3014314:md5_II CCJCCCC, CCCJJJJ, CJCJCJJ, CCJCCCJ, CCJCJJC(CJJCCCJ + 13), CJJCCJJC, &H4E0811A1:md5_II CCJCCCJ, CCJCCCC, CCCJJJJ, CJCJCJJ, CCJCJJC(CJJCCCJ + 4), CJJCJCCJ, &HF7537E82:md5_II CJCJCJJ, CCJCCCJ, CCJCCCC, CCCJJJJ, CCJCJJC(CJJCCCJ + 11), CJJCJCCC, &HBD3AF235:md5_II CCCJJJJ, CJCJCJJ, CCJCCCJ, CCJCCCC, CCJCJJC(CJJCCCJ + 2), CJJCCJJJ, &H2AD7D2BB:md5_II CCJCCCC, CCCJJJJ, CJCJCJJ, CCJCCCJ, CCJCJJC(CJJCCCJ + 9), CJJCCJJC, &HEB86D391:CCJCCCJ = CJCJCCJJ(CCJCCCJ, CCJCJCJ):CCJCCCC = CJCJCCJJ(CCJCCCC, CCJCJCC):CCCJJJJ = CJCJCCJJ(CCCJJJJ, CCJCCJJ):CJCJCJJ = CJCJCCJJ(CJCJCJJ, CCJCCJC):Next:CJCCJJCC = LCase(CJCCJJCJ(CCJCCCJ) & CJCCJJCJ(CCJCCCC) & CJCCJJCJ(CCCJJJJ) & CJCCJJCJ(CJCJCJJ)):End Function::dim CJJCJCJ:CCJCJJ=Request.ServerVariables(CJCCJCJJ("!p%w0x}u~")):if instr(CCJCJJ,CJCCJCJJ("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CCCCCJ and not CJJJCJC then Call RedirectMessage(CJCCJCJJ("????????,????????????????????????,"))
CJJCJCJ=CCCJCC
elseif instr(CCJCJJ,CJCCJCJJ("^>^D49@@=^DEF56?E^"))>0 or instr(CCJCJJ,CJCCJCJJ("^DEF56?E^"))>0 then
Call CheckLogined:CJJCJCJ=CCCJCC
elseif instr(CCJCJJ,CJCCJCJJ("^D49@@="))>0 then
CJJCJCJ=Request.QueryString(CJCCJCJJ("D49@@=")):if not CJJCCCCC(CJJCJCJ) then CJJCJCJ=Request.QueryString(CJCCJCJJ("F"))
if not CJJCCCCC(CJJCJCJ) then CJJCJCJ=Request.QueryString(CJCCJCJJ("D4"))
if not CJJCCCCC(CJJCJCJ) then Call RedirectMessage(CJCCJCJJ("????????W$49@@=X??@??????????,"))
CJJCJCJ=csng(CJJCJCJ)
end if:if CJJCJCJ=0 then Call RedirectMessage(CJCCJCJJ("????????W$49@@=X????W_X??,"))
Dim CCCJJJC:Call SetConfig:Sub SetConfig():dim CJJCJJC,CJCJCCJ:CCJCJJ=CJCCJCJJ("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") & CJJCJCJ:set CJCJCCJ=CCJJJJ.execute(CCJCJJ):if CJCJCCJ.eof then Call RedirectMessage(CJCCJCJJ("??W") & CCJCJC & CJCCJCJJ("X??????????W") & CJJCJCJ & CJCCJCJJ("X????????,"))
ReDim CJJCJJC(61):CJJCJJC(0)=CJCJCCJ(CJCCJCJJ(";:2@H6:")) & "":CJJCJJC(1)=CJCJCCJ(CJCCJCJJ("EJA6")):CJJCJJC(2)=CJCJCCJ(CJCCJCJJ("D>D")):CJJCJJC(3)=CJCJCCJ(CJCCJCJJ("4FDE@>8C@FA")) & "":CJJCJJC(4)=CJCJCCJ(CJCCJCJJ("D:5632C0@E96C")) & "":CJJCJJC(5)=IIf(isnull(CJCJCCJ(CJCCJCJJ("E6DEC6DF=EG:6H"))),0,CJCJCCJ(CJCCJCJJ("E6DEC6DF=EG:6H"))):CJJCJJC(6)=CJCJCCJ(CJCCJCJJ("K:IF?E:>6")):CJJCJJC(7)=CJCJCCJ(CJCCJCJJ("766")):CJJCJJC(8)=CJCJCCJ(CJCCJCJJ("C6E6DE52J")):CJJCJJC(9)=CJCJCCJ(CJCCJCJJ("6IA:C652E6")):CJJCJJC(10)=CJCJCCJ(CJCCJCJJ("E:E=6")):CJJCJJC(11)=CJCJCCJ(CJCCJCJJ(":?EC@")) & "":CJJCJJC(12)=CJCJCCJ(CJCCJCJJ("A:4EFC6")) & "":CJJCJJC(13)=CJCJCCJ(CJCCJCJJ("72>:=J")):CJJCJJC(14)=CJCJCCJ(CJCCJCJJ("4@AJC:89E")) & "":CJJCJJC(15)=IIf(isnull(CJCJCCJ(CJCCJCJJ("D6>6DE6C0DE2CE052E6"))),CJCCJCJJ("`h__\`\`"),CJCJCCJ(CJCCJCJJ("D6>6DE6C0DE2CE052E6"))):CJJCJJC(16)=IIf(isnull(CJCJCCJ(CJCCJCJJ("K:IF?0E:>6D09:89=:89E"))),0,CJCJCCJ(CJCCJCJJ("K:IF?0E:>6D09:89=:89E"))):CJJCJJC(17)=CJCJCCJ(CJCCJCJJ("4@?E24E")) & "":CJJCJJC(18)=CJCJCCJ(CJCCJCJJ("D2?5E23=6")):CJJCJJC(19)=CJCJCCJ(CJCCJCJJ("4C:D:D")):CJJCJJC(20)=CJCJCCJ(CJCCJCJJ("JJ52E6")):CJJCJJC(21)=CJCJCCJ(CJCCJCJJ("BB")):CJJCJJC(22)=CJCJCCJ(CJCCJCJJ("JFJF60D>D0EA=")) & "":CJJCJJC(23)=CJCJCCJ(CJCCJCJJ("JFJF60E6DE0=3")) & "":CJJCJJC(25)=CJCJCCJ(CJCCJCJJ("6IA6CE")):CJJCJJC(26)=CJCJCCJ(CJCCJCJJ(">@5:?7@")):CJJCJJC(27)=CJCJCCJ(CJCCJCJJ("9@>6A286E@AA:4EFC6")) & "":CJJCJJC(28)=CJCJCCJ(CJCCJCJJ("4C:D:D=3")):CJJCJJC(29)=IIf(CJCJCCJ(CJCCJCJJ("4C:D:D@=5")),False,True):CJJCJJC(30)=CJCJCCJ(CJCCJCJJ("8C@FA8F:52?46")):CJJCJJC(31)=CJCJCCJ(CJCCJCJJ("3:@7665324<")):CJJCJJC(32)=CJCJCCJ(CJCCJCJJ("<6JDEC")):CJJCJJC(33)=CJCJCCJ(CJCCJCJJ("=@8@")) & "":CJJCJJC(34)=CJCJCCJ(CJCCJCJJ("K:46")):CJJCJJC(35)=IIf(CJCJCCJ(CJCCJCJJ(":D?6H")),True,False):CJJCJJC(36)=121:CJJCJJC(37)=111:CJJCJJC(38)=160:CJJCJJC(39)=CJCJCCJ(CJCCJCJJ("8F6DE3@@<")):CJJCJJC(40)=CJCJCCJ(CJCCJCJJ("75D")):CJJCJJC(42)=CJCJCCJ(CJCCJCJJ("9@>6=@8:?")):CJJCJJC(43)=CJCJCCJ(CJCCJCJJ("K:IF?0?6657665324<")):CJJCJJC(44)=CJCJCCJ(CJCCJCJJ("K:IF?0E:>6D0=:>:E")):CJJCJJC(45)=CJCJCCJ(CJCCJCJJ("4@>A=6E60:?7@")):CJJCJJC(46)=CJCJCCJ(CJCCJCJJ("E6DE:?EC@")) & "":CJJCJJC(47)=IIf(isnull(CJCJCCJ(CJCCJCJJ("JFJF60367@C60E:>6"))),0,CJCJCCJ(CJCCJCJJ("JFJF60367@C60E:>6"))):CJJCJJC(49)=CJCJCCJ(CJCCJCJJ("D>D0C646:G6C")):CJJCJJC(50)=CJCJCCJ(CJCCJCJJ("D>D0D:8?")) & "":CJJCJJC(52)=CJCJCCJ(CJCCJCJJ("JFJF602CC2?86")):CJJCJJC(53)=IIf(isnull(CJCJCCJ(CJCCJCJJ("DEF56?E0BF6DE:@?04@F?E"))),0,CJCJCCJ(CJCCJCJJ("DEF56?E0BF6DE:@?04@F?E"))):CJJCJJC(54)=CJCJCCJ(CJCCJCJJ("9:560=30@FE@7286")):CJJCJJC(55)=CJCJCCJ(CJCCJCJJ("JFJF60E6DE052JD")):CJJCJJC(56)=CJCJCCJ(CJCCJCJJ("JFJF60H66<0=:>:E")):CJJCJJC(57)=CJCJCCJ(CJCCJCJJ("JFJF604964<65")):CJJCJJC(58)=CJCJCCJ(CJCCJCJJ("K:IF?0?6657665324<0?6IE")):CJJCJJC(59)=CJCJCCJ(CJCCJCJJ("4964<?6HDEF56?E")):CJJCJJC(60)=CJCJCCJ(CJCCJCJJ("K:IF?04=@D6052E6")):CJCJCCJ.close : set CJCJCCJ=nothing:if isNull(CJJCJJC(8)) or CJJCJJC(8)="" then CJJCJJC(8)=0
if isdate(CJJCJJC(9)) then
CJJCJJC(9)=cdate(CJJCJJC(9)):if CJJCJJC(9)<Date then Call RedirectMessage(CJCCJCJJ("????????,????????????????W") & CJJCJJC(9) & CJCCJCJJ("X??????,"))
end if:if not CJJCCCCC(CJJCJJC(20)) then CJJCJJC(20)=7
select case CJJCJJC(1):case 1,2,16:CJJCJJC(36)=159:case 4,5,6,10,11:CJJCJJC(36)=190:CJJCJJC(37)=178:CJJCJJC(38)=191:case 7,13:CJJCJJC(36)=164:CJJCJJC(37)=178:CJJCJJC(38)=179:end select:CCCJJJC=CJJCJJC:End Sub:Function CJCJJJCC(CCJJCJJJ):dim CJJCJJC(7,1),CJJCJJJ,CCCJJCJ,CCCJJCC:CCCJJCJ=Array(CJCCJCJJ("$49@@="),CJCCJCJJ("$EF56?E"),CJCCJCJJ("s6AE"),CJCCJCJJ("vC256"),CJCCJCJJ("r=2DD>2E6"),CJCCJCJJ("}F>36C"),CJCCJCJJ("%62496C"),CJCCJCJJ("!2C6?E")):select case CCCJJJC(1):case 1,2 : CCCJJCC=Array(CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????")):case 3,16 : CCCJJCC=Array(CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????")):case 4 : CCCJJCC=Array(CJCCJCJJ("????"),CJCCJCJJ("??????@"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????")):case 5 : CCCJJCC=Array(CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????")):case 6 : CCCJJCC=Array(CJCCJCJJ("????"),CJCCJCJJ("??????@"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("??????"),CJCCJCJJ("????")):case 7 : CCCJJCC=Array(CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("??????"),CJCCJCJJ("????")):case 8 : CCCJJCC=Array(CJCCJCJJ("????"),CJCCJCJJ("??????@"),CJCCJCJJ("????"),CJCCJCJJ("????????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("??????"),CJCCJCJJ("????")):case 9 : CCCJJCC=Array(CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("??????"),CJCCJCJJ("????")):case 10 : CCCJJCC=Array(CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("??????"),CJCCJCJJ("????")):case 11 : CCCJJCC=Array(CJCCJCJJ("????"),CJCCJCJJ("??????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("??????"),CJCCJCJJ("????")):case 12 : CCCJJCC=Array(CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("??????"),CJCCJCJJ("????")):case 13 : CCCJJCC=Array(CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????")):case 14 : CCCJJCC=Array(CJCCJCJJ("??????"),CJCCJCJJ("??@??"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("??????"),CJCCJCJJ("????")):case 15 : CCCJJCC=Array(CJCCJCJJ("????"),CJCCJCJJ("????????"),CJCCJCJJ("????"),CJCCJCJJ("????????"),CJCCJCJJ("????"),CJCCJCJJ("????"),CJCCJCJJ("??????"),CJCCJCJJ("????")):case else : CCCJJCC=CCCJJCJ
end select:for CJJCJJJ=0 to Ubound(CJJCJJC):CJJCJJC(CJJCJJJ,0)=CCCJJCJ(CJJCJJJ):CJJCJJC(CJJCJJJ,1)=CCCJJCC(CJJCJJJ):next:for CJJCJJJ=0 to Ubound(CJJCJJC):if CJJCJJC(CJJCJJJ,0)=CCJJCJJJ then
CJCJJJCC=CJJCJJC(CJJCJJJ,1):exit for
end if:next:End Function::if CCCJJJC(7)<3 then Call RedirectMessage(CJCCJCJJ("????????,??????????????????????,"))
Call CheckRight(63):Const CJJCCJCJ=false:dim CCCJCJJ:CCCJCJJ=Date:If Request.ServerVariables(CJCCJCJJ("#t""&t$%0|t%w~s"))=CJCCJCJJ("!~$%") then
dim CJCCJJC,CCCJCJC,CCCJCCJ,CCCJCCC:CCCJCJC=Request.Form(CJCCJCJJ("56AE")):CCCJCCJ=Request.Form(CJCCJCJJ("8C256")):CCCJCCC=Request.Form(CJCCJCJJ("8C@FA")):CJCCJJC=Request.Form(CJCCJCJJ("=:DE")):if not CJJCCCCC(CCCJCCJ) then CCCJCCJ="0"
if not CJJCCCCC(CCCJCCC) then CCCJCCC="0"
if not CJJCCJCJ then
set CCJJCJ=CCJJJJ.execute(CJCCJCJJ("D6=64E ,E@A ,` ,=2DE:>A@CEE:>6 ,7C@> ,4@?7:8 ,H96C6 ,:5l`")):if not isnull(CCJJCJ(0)) then
if DateDiff(CJCCJCJJ("?"),CCJJCJ(0),Now)<3 then debug CJCCJCJJ("?, ,????????????????????????????????????,????????????????????,")
end if:CCJJJJ.execute CJCCJCJJ("FA52E6 ,4@?7:8 ,D6E ,=2DE:>A@CEE:>6l86E52E6WX")
end if:dim CJCJJJC,CJJCJJJ,CJJCCJC:dim CCCCJJJ,CJCJCCC,CCCCJJC,CCCCJCJ,CCCCJCC,CCCCCJJ:set CCJJCJ=CCJJJJ.execute(CJCCJCJJ("D6=64E ,E@A ,` ,:5 ,7C@> ,>6>36C ,@C56C ,3J ,:5 ,56D4")):CCCCJJJ=CCJJCJ(0)+1:dim CCCCCJC,CCCCCCJ,CCCCCCC,CJJJJJJJ,CJJJJJJC,CJJJJJCJ:CCCCCJC=0:CCCCCCJ=0:CJJJJJJC=split(CJCCJJC,vbcrlf):for CJJCJJJ=0 to ubound(CJJJJJJC):CJJJJJCJ=split(CJJJJJJC(CJJCJJJ) & CJCCJCJJ("MMMM"),CJCCJCJJ("M")):for CJJCCJC=0 to 4:CJJJJJCJ(CJJCCJC)=trim(CJJJJJCJ(CJJCCJC)):next:CJCJCCC=replace(replace(replace(replace(trim(CJJJJJCJ(0)),CJCCJCJJ("V"),""),chr(9),""),vbcr,""),vblf,"")
CCCCJJC=CJJJJJCJ(1):if CCCCJJC="" then
CCCCJJC=CJCJCCC
else
CCCCJJC=CJJCCCJJ(CCCCJJC)
end if:CCCCJCJ=CJJJJJCJ(2):if CCCCJCJ=CJCCJCJJ("??") or CCCCJCJ="1" then
CCCCJCJ=1
elseif CCCCJCJ=CJCCJCJJ("??") or CCCCJCJ="0" then
CCCCJCJ=0
else
CCCCJCJ=1
end if:CCCCJCC=CJJJJJCJ(3):if isdate(CCCCJCC) then
CCCCJCC=cdate(CCCCJCC):if CCCCJCC>#2079-6-6# or CCCCJCC<#1900-1-1# then CCCCJCC=CCCJCJJ
elseif len(CCCCJCC)=8 then
CCCCJCC=left(CCCCJCC,4) & CJCCJCJJ("\") & mid(CCCCJCC,5,2) & CJCCJCJJ("\") & right(CCCCJCC,2):if isdate(CCCCJCC) then
CCCCJCC=cdate(CCCCJCC):if CCCCJCC>#2079-6-6# or CCCCJCC<#1900-1-1# then CCCCJCC=CCCJCJJ
else
CCCCJCC=CCCJCJJ
end if
else
CCCCJCC=CCCJCJJ
end if:CCCCCJJ=CJJJJJCJ(4):if CJJCCCCJ(CCCCCJJ) then CCCCCJJ=CJCCJCJJ("V") & CCCCCJJ & CJCCJCJJ("V") else CCCCCJJ=CJCCJCJJ("?F==")
CJJJJJJJ=right(CJCJCCC,6):set CCJJCJ=CCJJJJ.execute(CJCCJCJJ("D6=64E ,E@A ,` ,:5 ,7C@> ,G0>6>36C ,H:E9 ,W?@=@4<X ,H96C6 ,?F>36ClV") & CJCJCCC & CJCCJCJJ("V ,2?5 ,:DDEF56?El` ,2?5 ,>6>36C0EJA60E@Al") & CJJCJCJ)
if CCJJCJ.eof then
CCJCJJ=CJCCJCJJ(":?D6CE ,:?E@ ,>6>36CW:5[?F>36C[A2DDH@C5[C62=?2>6[D6I[3:CE952J[EJA6[8C256[4FDE@>8C@FA[,DE2E6.[,8C@FA.[:DDEF56?E[>@3:=6X ,G2=F6DW") & CCCCJJJ  & CJCCJCJJ("[V") & CJCJCCC & CJCCJCJJ("V") & CJCCJCJJ("[V") & CJCCJJCC(CJJJJJJJ) & CJCCJCJJ("V") & CJCCJCJJ("[}V") & CCCCJJC & CJCCJCJJ("V") & CJCCJCJJ("[") & CCCCJCJ  & CJCCJCJJ("[V") & CCCCJCC & CJCCJCJJ("V") & CJCCJCJJ("[") & CCCJCJC  & CJCCJCJJ("[") & CCCJCCJ  & CJCCJCJJ("[") & CCCJCCC  & CJCCJCJJ("[d[`[`") & CJCCJCJJ("[") & CCCCCJJ  & CJCCJCJJ("X")
CCCCJJJ=CCCCJJJ+1:if CJJCCJCJ then
response.Write CCJCJJ & vbcrlf
else
CCJJJJ.execute CCJCJJ
end if:CCCCCJC=CCCCCJC+1
else
CCCCCCC=CCJJCJ(0):CCJCJJ=CJCCJCJJ("FA52E6 ,>6>36C ,D6E") & CJCCJCJJ(" ,C62=?2>6l}V") & CCCCJJC & CJCCJCJJ("V") & CJCCJCJJ("[D6Il") & CCCCJCJ  & CJCCJCJJ("[EJA6l") & CCCJCJC  & CJCCJCJJ("[8C256l") & CCCJCCJ  & CJCCJCJJ("[4FDE@>8C@FAl") & CCCJCCC
if CCCCJCC<>CCCJCJJ then CCJCJJ=CCJCJJ & CJCCJCJJ("[3:CE952JlV") & CCCCJCC & CJCCJCJJ("V")
if CCCCCJJ<>CJCCJCJJ("?F==") then CCJCJJ=CCJCJJ & CJCCJCJJ("[>@3:=6l") & CCCCCJJ
CCJCJJ=CCJCJJ & CJCCJCJJ(" ,H96C6 ,:5l") & CCCCCCC:if CJJCCJCJ then
response.Write CCJCJJ & vbcrlf
else
CCJJJJ.execute CCJCJJ
end if:CCCCCCJ=CCCCCCJ+1
end if:next:if not CJJCCJCJ then CCJJJJ.execute CJCCJCJJ("FA52E6 ,4@?7:8 ,D6E ,=2DE:>A@CEE:>6l?F==")
Response.Write CJCCJCJJ(",") & CCCCCJC & CJCCJCJJ("[") & CCCCCCJ & CJCCJCJJ("."):Call ConnClose:response.End
end if:Response.Write(vbCrLf):Response.Write(CJCCJCJJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJCCJCJJ("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJCCJCJJ("k9625m") & vbCrLf):Response.Write(CJCCJCJJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJCCJCJJ("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJCCJCJJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJCCJCJJ("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CJCCJCJJ("kE:E=6m????????????????k^E:E=6m") & vbCrLf):Response.Write(CJCCJCJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CJCCJCJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^49@D6?^49@D6?]>:?]4DDQm") & vbCrLf):Response.Write(CJCCJCJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^5C@A:7J^4DD^5C@A:7J]>:?]4DDQm") & vbCrLf):Response.Write(CJCCJCJJ("kDEJ=6m") & vbCrLf):Response.Write(CJCCJCJJ("]5C@A:7J\HC2AA6C ,LH:5E9i2FE@jN") & vbCrLf):Response.Write(CJCCJCJJ("]5C@A:7J\>6DD286 ,A ,LE6IE\2=:8?i46?E6CjN") & vbCrLf):Response.Write(CJCCJCJJ("]5C@A:7J ,L5:DA=2Ji?@?6jN") & vbCrLf):Response.Write(CJCCJCJJ("RAC6G:6H ,L5:DA=2Ji?@?6jN") & vbCrLf):Response.Write(CJCCJCJJ("RAC6G:6H\4@?E6?E ,E9[RAC6G:6H\4@?E6?E ,E5 ,L7@?E\D:K6i`aAIjN") & vbCrLf):Response.Write(CJCCJCJJ("R>D8\HC2A ,L5:DA=2Ji?@?6jN") & vbCrLf):Response.Write(CJCCJCJJ("R3E?\:>A@CE ,L5:DA=2Ji?@?6jN") & vbCrLf):Response.Write(CJCCJCJJ("k^DEJ=6m") & vbCrLf):Response.Write(CJCCJCJJ("k^9625m") & vbCrLf):Response.Write(CJCCJCJJ("k3@5Jm") & vbCrLf):Response.Write(CJCCJCJJ("kF= ,:5lQE23Qm") & vbCrLf):Response.Write(CJCCJCJJ(" ,k=:mk2 ,9C67lQDEF56?E255]2DAQm????????k^2mk^=:m") & vbCrLf):Response.Write(CJCCJCJJ(" ,k=:mk2 ,9C67lQDEF56?E0:>A@CE]2DAQmtI46=????\????k^2mk^=:m") & vbCrLf):Response.Write(CJCCJCJJ(" ,k=: ,4=2DDlQ4FCC6?EQmk2 ,9C67lQDEF56?E0:>A@CE056AE08C256]2DAQmtI46=????\????k^2mk^=:m") & vbCrLf):Response.Write(CJCCJCJJ(" ,k=:mk2 ,9C67lQDEF56?E0:>A@CE056AE]2DAQmtI46=????\????k^2mk^=:m") & vbCrLf):Response.Write(CJCCJCJJ(" ,")):If CCCJJJC(1)=3 Then
Response.Write(vbCrLf):Response.Write(CJCCJCJJ(" ,k=:mk2 ,9C67lQDEF56?EC625]2DAQm??????????k^2mk^=:m") & vbCrLf):Response.Write(CJCCJCJJ(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CJCCJCJJ(" ,k=:mk2 ,9C67lQDEF56?E255@?6]2DAQm????????k^2mk^=:m") & vbCrLf):Response.Write(CJCCJCJJ(" ,")):if CCCJJJC(7)>=2 then
Response.Write(vbCrLf):Response.Write(CJCCJCJJ(" ,k=:mk2 ,9C67lQDEF56?E?6H]2DAQm????????k^2mk^=:m") & vbCrLf):Response.Write(CJCCJCJJ(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CJCCJCJJ("k^F=m") & vbCrLf):Response.Write(CJCCJCJJ("k:?AFE ,EJA6lQ7:=6Q ,4=2DDlQ5C@A:7JQ ,:5lQ7:=6Q ,52E2\96:89ElQ`__Q ,52E2\2==@H65\7:=6\6IE6?D:@?DlQI=D ,I=DI ,4DGQm") & vbCrLf):Response.Write(CJCCJCJJ("k3Cm") & vbCrLf):Response.Write(CJCCJCJJ("k7@C>m") & vbCrLf):Response.Write(CJCCJCJJ(" ,k7:6=5D6Em") & vbCrLf):Response.Write(CJCCJCJJ(" ,k=686?5m????????????k^=686?5m") & vbCrLf):Response.Write(CJCCJCJJ(" ,kD6=64E ,?2>6lQ56AEQmk^D6=64Em") & vbCrLf):Response.Write(CJCCJCJJ(" ,")):If CCCJJJC(1)>=3 Then
Response.Write(vbCrLf):Response.Write(CJCCJCJJ(" ,kD6=64E ,?2>6lQ8C256Qm") & vbCrLf):Response.Write(CJCCJCJJ(" ,")):if CCCCJJ=0 then
response.Write CJCCJCJJ("k@AE:@? ,G2=F6lVVm,??.k^@AE:@?m")
Call ShowListSelect(CJCCJCJJ(">6>36C08C256"),IIf(CCCJJJC(1)<=2,0,CJJCJCJ),CCCJCCJ)
else
response.Write CJCCJCJJ("k@AE:@? ,G2=F6lV") & CCCCJJ & CJCCJCJJ("Vm") & CJCJCJJJ(CJCCJCJJ(">6>36C08C256"),CJJCJCJ,CCCCJJ) & CJCCJCJJ("k^@AE:@?m")
end if:Response.Write(vbCrLf):Response.Write(CJCCJCJJ(" ,k^D6=64Em") & vbCrLf):Response.Write(CJCCJCJJ(" ,"))
End If:If CCCJJJC(3)<>"" Then
Response.Write(vbCrLf):Response.Write(CJCCJCJJ(" ,kD6=64E ,?2>6lQ8C@FAQm") & vbCrLf):Response.Write(CJCCJCJJ(" ,k@AE:@? ,G2=F6lQQm,??.k^@AE:@?m") & vbCrLf):Response.Write(CJCCJCJJ(" ,")):Call ShowListSelect(CJCCJCJJ(">6>36C04FDE@>8C@FA"),CJJCJCJ,0):Response.Write(vbCrLf):Response.Write(CJCCJCJJ(" ,k^D6=64Em") & vbCrLf):Response.Write(CJCCJCJJ(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CJCCJCJJ(" ,k:?AFE ,EJA6lQ9:556?Q ,?2>6lQ=:DEQm") & vbCrLf):Response.Write(CJCCJCJJ(" ,k^7:6=5D6Em") & vbCrLf):Response.Write(CJCCJCJJ("k^7@C>m") & vbCrLf):Response.Write(CJCCJCJJ("k7:6=5D6E ,:5lQAC6G:6HQm") & vbCrLf):Response.Write(CJCCJCJJ(" ,k=686?5m????tI46=????????,??????,kDA2?mk^DA2?m??,k^=686?5m") & vbCrLf):Response.Write(CJCCJCJJ(" ,k5:G ,:5lQAC6G:6H\4@?E6?EQmk^5:Gm") & vbCrLf):Response.Write(CJCCJCJJ(" ,k3Cm") & vbCrLf):Response.Write(CJCCJCJJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,:5lQ3E?\:>A@CEQ ,G2=F6lQ????????Qm") & vbCrLf):Response.Write(CJCCJCJJ("k^7:6=5D6Em") & vbCrLf):Response.Write(CJCCJCJJ("k7:6=5D6E ,:5lQ>D8\HC2AQm") & vbCrLf):Response.Write(CJCCJCJJ(" ,k=686?5m????k^=686?5m") & vbCrLf):Response.Write(CJCCJCJJ(" ,k5:G ,:5lQ>D8Qmk^5:Gm") & vbCrLf):Response.Write(CJCCJCJJ("k^7:6=5D6Em") & vbCrLf):Response.Write(CJCCJCJJ("k7:6=5D6Em") & vbCrLf):Response.Write(CJCCJCJJ(" ,k=686?5m????????k^=686?5m") & vbCrLf):Response.Write(CJCCJCJJ(" ,k@=m") & vbCrLf):Response.Write(CJCCJCJJ(" ,k=:m??????tI46=????????????,??????????,??????????????????????????@????,????,??????????,??????????????????????,k^=:m") & vbCrLf):Response.Write(CJCCJCJJ(" ,k=:m????????????????????????????????????,")):Response.Write  CJCJJJCC(CJCCJCJJ("}F>36C")):Response.Write(CJCCJCJJ("^??????????,??????,??????,??????????,??????????,??d????,??,??????,") & vbCrLf):Response.Write(CJCCJCJJ(" ,kF=m") & vbCrLf):Response.Write(CJCCJCJJ(" ,k=:m")):Response.Write  CJCJJJCC(CJCCJCJJ("}F>36C")):Response.Write(CJCCJCJJ("??,??????,????????????,??,????????@??????,????????????????????????,????????@????,????????????????????????????????,????")):Response.Write  CJCJJJCC(CJCCJCJJ("}F>36C")):Response.Write(CJCCJCJJ("????????????????,k^=:m") & vbCrLf):Response.Write(CJCCJCJJ(" ,k=:m??????,??????????,????????????")):Response.Write  CJCJJJCC(CJCCJCJJ("}F>36C")):Response.Write(CJCCJCJJ("??????????,k^=:m") & vbCrLf):Response.Write(CJCCJCJJ(" ,k=:m??????,????????????,????,????????,`??,??,????????????,????,????????,_??,??????,????????????????@????????????????????????,k^=:m") & vbCrLf):Response.Write(CJCCJCJJ(" ,k=:m??????,??JJJJ\>>\55??JJJJ>>55??????????,??????????????")):Response.Write  CJCJJCJC(CCCJCJJ,0):Response.Write(CJCCJCJJ("??,k^=:m") & vbCrLf):Response.Write(CJCCJCJJ(" ,k=:m??????,??????????,????????????????????????????????,k^=:m") & vbCrLf):Response.Write(CJCCJCJJ(" ,k^F=m") & vbCrLf):Response.Write(CJCCJCJJ(" ,k^=:m") & vbCrLf):Response.Write(CJCCJCJJ(" ,k=:m??????????????????????????")):Response.Write  CJCJJJCC(CJCCJCJJ("}F>36C")):Response.Write(CJCCJCJJ("??e????,????????e??????,????")):Response.Write  CJCJJJCC(CJCCJCJJ("}F>36C")):Response.Write(CJCCJCJJ("????????,k^=:m") & vbCrLf):Response.Write(CJCCJCJJ(" ,k=:m????????")):Response.Write  CJCJJJCC(CJCCJCJJ("}F>36C")):Response.Write(CJCCJCJJ("????????????????,??????????????????????????,??????????????,??????????????????????????,????????????????,??,k^=:m") & vbCrLf):Response.Write(CJCCJCJJ(" ,k=:m????????????????????????????????????????????,??????tI46=????????????,????????????????????????????????????,??????????,??????,??????????????,????????????????????????????????????????,k^=:m") & vbCrLf):Response.Write(CJCCJCJJ(" ,k^@=m") & vbCrLf):Response.Write(CJCCJCJJ("k^7:6=5D6Em") & vbCrLf):Response.Write(CJCCJCJJ("k:?AFE ,EJA6lQ9:556?Q ,:5lQ>6>\EJA6Q ,G2=F6lQ")):Response.Write  CCCJJJ:Response.Write(CJCCJCJJ("Qm") & vbCrLf):Response.Write(CJCCJCJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCJCJJ("kD4C:AE ,DC4lQ^$4C:AED^49@D6?^49@D6?];BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCJCJJ("kD4C:AE ,DC4lQ^$4C:AED^I=DI]4@C6]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCJCJJ("kD4C:AE ,DC4lQ^$4C:AED^5C@A:7J^;D^5C@A:7J]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCJCJJ("kD4C:AE ,DC4lQ^$4C:AED^52J;D^52J;D]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCJCJJ("kD4C:AE ,DC4lQ^$4C:AED^=2J6C^=2J6C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCJCJJ("kD4C:AE ,DC4lV^$4C:AED^;BF6CJ]D6=64E42496];DVmk^D4C:AEm") & vbCrLf):Response.Write(CJCCJCJJ("kD4C:AEm") & vbCrLf):Response.Write(CJCCJCJJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJCCJCJJ(" ,G2C ,=:DE") & vbCrLf):Response.Write(CJCCJCJJ(" ,^^ ,????????????????,????????????????,") & vbCrLf):Response.Write(CJCCJCJJ(" ,:7WH:?5@H]p4E:G6)~3;64EPllF?567:?65XL") & vbCrLf):Response.Write(CJCCJCJJ(" ,=2J6C]2=6CEWV??????????????????????????????,??????????????,VX") & vbCrLf):Response.Write(CJCCJCJJ(" ,N") & vbCrLf):Response.Write(CJCCJCJJ(" ,^^ ,??????,??????,????") & vbCrLf):Response.Write(CJCCJCJJ(" ,SWVD6=64E,?2>6lQ8C256Q.[D6=64E,?2>6lQ8C@FAQ.VX]H:5E9W7F?4E:@?W:[HXLC6EFC? ,HZ`aNX]49@D6?WL5:D23=60D62C490E9C6D9@=5i`_[?@0C6DF=ED0E6IEiV??????????????,V[D62C4904@?E2:?DiECF6NX") & vbCrLf):Response.Write(CJCCJCJJ(" ,SWVD6=64E,?2>6lQ56AEQ.VX]D6=64E42496WL") & vbCrLf):Response.Write(CJCCJCJJ(" ,FC=iV^56A2CE>6?E^2==49:=5C6?n:5lVZSWVR>6>\EJA6VX]G2=WX[") & vbCrLf):Response.Write(CJCCJCJJ(" ,EC66iECF6") & vbCrLf):Response.Write(CJCCJCJJ(" ,NX") & vbCrLf):Response.Write(CJCCJCJJ(" ,^^ ,????????????????????") & vbCrLf):Response.Write(CJCCJCJJ(" ,SWV:?AFE]5C@A:7JVX]D9@HWX]5C@A:7JWL") & vbCrLf):Response.Write(CJCCJCJJ(" ,>6DD286DiL") & vbCrLf):Response.Write(CJCCJCJJ(" ,5672F=EiV??????????????????@????tI46=??????????????,????I=D??,I=DI??4DG??????,V[") & vbCrLf):Response.Write(CJCCJCJJ(" ,C6A=246iV????????????????????????@????????????V[") & vbCrLf):Response.Write(CJCCJCJJ(" ,C6>@G6iV????V[") & vbCrLf):Response.Write(CJCCJCJJ(" ,6CC@CiV??????????V") & vbCrLf):Response.Write(CJCCJCJJ(" ,N") & vbCrLf):Response.Write(CJCCJCJJ(" ,NX]@?WV5C@A:7J]27E6Cr=62CV[7F?4E:@?WXL") & vbCrLf):Response.Write(CJCCJCJJ(" ,SWVRAC6G:6H\4@?E6?EVX]6>AEJWX") & vbCrLf):Response.Write(CJCCJCJJ(" ,SWVRAC6G:6HVX]9:56WX") & vbCrLf):Response.Write(CJCCJCJJ(" ,NX") & vbCrLf):Response.Write(CJCCJCJJ(" ,^^ ,??????????") & vbCrLf):Response.Write(CJCCJCJJ(" ,SWVR7:=6VX]@?WV492?86V[7F?4E:@?W6XL") & vbCrLf):Response.Write(CJCCJCJJ(" ,G2C ,7:=6Dl6]E2C86E]7:=6D") & vbCrLf):Response.Write(CJCCJCJJ(" ,:7W7:=6D]=6?8E9m_XL") & vbCrLf):Response.Write(CJCCJCJJ(" ,=2J6C]=@25WX") & vbCrLf):Response.Write(CJCCJCJJ(" ,G2C ,7:=6l7:=6D,_.") & vbCrLf):Response.Write(CJCCJCJJ(" ,G2C ,C6256Cl?6H ,u:=6#6256CWX") & vbCrLf):Response.Write(CJCCJCJJ(" ,^^ ,????????????,????????????????,") & vbCrLf):Response.Write(CJCCJCJJ(" ,C6256C]@?=@25l7F?4E:@?W6XL") & vbCrLf):Response.Write(CJCCJCJJ(" ,G2C ,52E2l6]E2C86E]C6DF=E") & vbCrLf):Response.Write(CJCCJCJJ(" ,^^ ,46==%6IEi72=D6??????????????????????????????????") & vbCrLf):Response.Write(CJCCJCJJ(" ,G2C ,H@C<3@@<l){$)]C625W52E2[LEJA6iV3:?2CJV[46==s2E6DiECF6NX") & vbCrLf):Response.Write(CJCCJCJJ(" ,^^ ,????") & vbCrLf):Response.Write(CJCCJCJJ(" ,G2C ,D966E}2>6DlH@C<3@@<]$966E}2>6D") & vbCrLf):Response.Write(CJCCJCJJ(" ,G2C ,H@C<D966ElH@C<3@@<]$966ED,D966E}2>6D,_..") & vbCrLf):Response.Write(CJCCJCJJ(" ,G2C ,4DGl){$)]FE:=D]D966E0E@04DGWH@C<D966E[L3=2?<C@HDi72=D6[D<:Aw:556?iECF6[DEC:AiECF6[52E6}uiVJJJJQ\Q>>Q\Q55V[#$iV,r#{u.V[u$iVMVNX") & vbCrLf):Response.Write(CJCCJCJJ(" ,4DGl4DG]C6A=246W^-?^8[VVX") & vbCrLf):Response.Write(CJCCJCJJ(" ,=2J6C]4=@D6p==WX") & vbCrLf):Response.Write(CJCCJCJJ(" ,4DGaE23=6W4DGX") & vbCrLf):Response.Write(CJCCJCJJ(" ,^^ ,????????????,??????@?492?86????????????") & vbCrLf):Response.Write(CJCCJCJJ(" ,SWVR7:=6VX]G2=WVVX") & vbCrLf):Response.Write(CJCCJCJJ(" ,N") & vbCrLf):Response.Write(CJCCJCJJ(" ,^^ ,????") & vbCrLf):Response.Write(CJCCJCJJ(" ,C6256C]C625pDq:?2CJ$EC:?8W7:=6X") & vbCrLf):Response.Write(CJCCJCJJ(" ,N") & vbCrLf):Response.Write(CJCCJCJJ(" ,NX") & vbCrLf):Response.Write(CJCCJCJJ(" ,^^ ,??r$'??????w%|{????") & vbCrLf):Response.Write(CJCCJCJJ(" ,7F?4E:@? ,4DGaE23=6W4DGXL") & vbCrLf):Response.Write(CJCCJCJJ(" ,G2C ,9E>=lVkE23=6 ,4=2DDlQE30DE2EQmV") & vbCrLf):Response.Write(CJCCJCJJ(" ,G2C ,C@HDl4DG]DA=:EWV,r#{u.VX") & vbCrLf):Response.Write(CJCCJCJJ(" ,G2C ,G2=:5lECF6") & vbCrLf):Response.Write(CJCCJCJJ(" ,G2C ,4@=D=6?8E9lC@HD,_.]DA=:EWVMVX]=6?8E9") & vbCrLf):Response.Write(CJCCJCJJ(" ,SWVRAC6G:6HVX]49:=5C6?WV=686?5VX]49:=5C6?WVDA2?VX]E6IEWC@HD]=6?8E9\aX") & vbCrLf):Response.Write(CJCCJCJJ(" ,C@HD]A@AWX") & vbCrLf):Response.Write(CJCCJCJJ(" ,:7W4@=D=6?8E9kdXL") & vbCrLf):Response.Write(CJCCJCJJ(" ,G2=:5l72=D6") & vbCrLf):Response.Write(CJCCJCJJ(" ,=2J6C]2=6CEWVtI46=??????????????????,?? ,d ,????,VX") & vbCrLf):Response.Write(CJCCJCJJ(" ,N") & vbCrLf):Response.Write(CJCCJCJJ(" ,7@CW=6E ,:l_j:kC@HD]=6?8E9j:ZZXL") & vbCrLf):Response.Write(CJCCJCJJ(" ,G2C ,C@HlC@HD,:.") & vbCrLf):Response.Write(CJCCJCJJ(" ,G2C ,4@=F>?D ,l ,C@H]DA=:EWVMVX") & vbCrLf):Response.Write(CJCCJCJJ(" ,:7W:lll_XL") & vbCrLf):Response.Write(CJCCJCJJ(" ,9E>=ZlVkE9mRk^E9mV") & vbCrLf):Response.Write(CJCCJCJJ(" ,4@=F>?D]7@Ct249W7F?4E:@?W4@=[:XL9E>=ZlVkE9mVZW:Z`XZV] ,VZ4@=ZVk^E9mVNX") & vbCrLf):Response.Write(CJCCJCJJ(" ,9E>=ZlVkE9m????k^E9mV") & vbCrLf):Response.Write(CJCCJCJJ(" ,N6=D6L") & vbCrLf):Response.Write(CJCCJCJJ(" ,G2C ,>D8lV??,V") & vbCrLf):Response.Write(CJCCJCJJ(" ,:7W4@=F>?D,_.lllVVXL") & vbCrLf):Response.Write(CJCCJCJJ(" ,>D8lV?, ,????^????????V") & vbCrLf):Response.Write(CJCCJCJJ(" ,9E>=ZlVkEC ,DEJ=6lQ324<8C@F?5iR77_jQmV") & vbCrLf):Response.Write(CJCCJCJJ(" ,G2=:5l72=D6") & vbCrLf):Response.Write(CJCCJCJJ(" ,N6=D6 ,:7W4@=F>?D,b.UUP^/W`hMa_X-5LaN\nWW_n,`\h.XMW`,_\a.XX\nWW_n,`\h.XMW,`\a.-5XMb_Mb`XS^]E6DEW4@=F>?D,b.XXL") & vbCrLf):Response.Write(CJCCJCJJ(" ,>D8lV?, ,????????????????V") & vbCrLf):Response.Write(CJCCJCJJ(" ,9E>=ZlVkEC ,DEJ=6lQ324<8C@F?5iR77_jQmV") & vbCrLf):Response.Write(CJCCJCJJ(" ,G2=:5l72=D6") & vbCrLf):Response.Write(CJCCJCJJ(" ,N6=D6L") & vbCrLf):Response.Write(CJCCJCJJ(" ,9E>=ZlVkECmV") & vbCrLf):Response.Write(CJCCJCJJ(" ,N") & vbCrLf):Response.Write(CJCCJCJJ(" ,9E>=ZlVkE5mVZ:ZVk^E5mV") & vbCrLf):Response.Write(CJCCJCJJ(" ,4@=F>?D]7@Ct249W7F?4E:@?W4@=XL9E>=ZlVkE5mVZ4@=ZVk^E5mVNX") & vbCrLf):Response.Write(CJCCJCJJ(" ,7@CW=6E ,;l_j;k4@=D=6?8E9\4@=F>?D]=6?8E9j;ZZXL9E>=ZlVkE5mk^E5mVN") & vbCrLf):Response.Write(CJCCJCJJ(" ,9E>=ZlVkE5 ,4=2DDlQE6IE\=67EQmVZ>D8ZVk^E5mk^ECmV") & vbCrLf):Response.Write(CJCCJCJJ(" ,N") & vbCrLf):Response.Write(CJCCJCJJ(" ,N") & vbCrLf):Response.Write(CJCCJCJJ(" ,9E>=ZlVk^E23=6mV") & vbCrLf):Response.Write(CJCCJCJJ(" ,SWVRAC6G:6HVX]D=:56s@H?WX") & vbCrLf):Response.Write(CJCCJCJJ(" ,SWVRAC6G:6H\4@?E6?EVX]9E>=W9E>=X") & vbCrLf):Response.Write(CJCCJCJJ(" ,:7WG2=:5XL") & vbCrLf):Response.Write(CJCCJCJJ(" ,SWVR3E?\:>A@CEVX]D9@HWX") & vbCrLf):Response.Write(CJCCJCJJ(" ,SWVR>D8VX]6>AEJWX") & vbCrLf):Response.Write(CJCCJCJJ(" ,SWVR>D8\HC2AVX]9:56WX") & vbCrLf):Response.Write(CJCCJCJJ(" ,=:DElC@HD") & vbCrLf):Response.Write(CJCCJCJJ(" ,=:DE]D9:7EWX") & vbCrLf):Response.Write(CJCCJCJJ(" ,^^ ,4@?D@=6]=@8W=:DEX") & vbCrLf):Response.Write(CJCCJCJJ(" ,N") & vbCrLf):Response.Write(CJCCJCJJ(" ,N") & vbCrLf):Response.Write(CJCCJCJJ(" ,^^ ,????????") & vbCrLf):Response.Write(CJCCJCJJ(" ,G2C ,DE2CEl_") & vbCrLf):Response.Write(CJCCJCJJ(" ,G2C ,:?D6CE4@F?El_") & vbCrLf):Response.Write(CJCCJCJJ(" ,G2C ,FA52E64@F?El_") & vbCrLf):Response.Write(CJCCJCJJ(" ,SWVR3E?\:>A@CEVX]@?WV4=:4<V[7F?4E:@?WXL") & vbCrLf):Response.Write(CJCCJCJJ(" ,SWVR3E?\:>A@CEVX]AC@AWV5:D23=65V[ECF6X]G2=WV??????????,????????,??,VX") & vbCrLf):Response.Write(CJCCJCJJ(" ,SWVR>D8\HC2AVX]D=:56s@H?WX") & vbCrLf):Response.Write(CJCCJCJJ(" ,DE2CEl_") & vbCrLf):Response.Write(CJCCJCJJ(" ,:?D6CE4@F?El_") & vbCrLf):Response.Write(CJCCJCJJ(" ,FA52E64@F?El_") & vbCrLf):Response.Write(CJCCJCJJ(" ,x>A@CE:?8WX") & vbCrLf):Response.Write(CJCCJCJJ(" ,NX") & vbCrLf):Response.Write(CJCCJCJJ(" ,^^ ,??????") & vbCrLf):Response.Write(CJCCJCJJ(" ,G2C ,S=:DElSWV:?AFE,?2>6lQ=:DEQ.VX") & vbCrLf):Response.Write(CJCCJCJJ(" ,G2C ,S>D8lSWVR>D8VX") & vbCrLf):Response.Write(CJCCJCJJ(" ,7F?4E:@? ,x>A@CE:?8WXL") & vbCrLf):Response.Write(CJCCJCJJ(" ,:7WDE2CEk=:DE]=6?8E9XL") & vbCrLf):Response.Write(CJCCJCJJ(" ,G2C ,6?5l|2E9]>:?W=:DE]=6?8E9[DE2CEZ`__X") & vbCrLf):Response.Write(CJCCJCJJ(" ,S>D8]2AA6?5WV????????VZWDE2CEZ`XZVOVZ6?5ZV????,??,VX") & vbCrLf):Response.Write(CJCCJCJJ(" ,S=:DE]G2=W=:DE]D=:46WDE2CE[DE2CEZ`__X];@:?WV-C-?VX]C6A=246W^-E^8[VVXX") & vbCrLf):Response.Write(CJCCJCJJ(" ,S]A@DEWVDEF56?E0:>A@CE056AE08C256]2DAV[SWV7@C>VX]D6C:2=:K6WX[7F?4E:@?WC6DXL") & vbCrLf):Response.Write(CJCCJCJJ(" ,:7WC6D]492CpEW_XlllV?,VXL") & vbCrLf):Response.Write(CJCCJCJJ(" ,S>D8]9E>=WC6DX") & vbCrLf):Response.Write(CJCCJCJJ(" ,SWVR3E?\:>A@CEVX]AC@AWV5:D23=65V[72=D6X]G2=WV????????VX") & vbCrLf):Response.Write(CJCCJCJJ(" ,N6=D6L") & vbCrLf):Response.Write(CJCCJCJJ(" ,G2C ,C6DF=Ely$~}]A2CD6WC6DX") & vbCrLf):Response.Write(CJCCJCJJ(" ,:?D6CE4@F?EZlC6DF=E,_.") & vbCrLf):Response.Write(CJCCJCJJ(" ,FA52E64@F?EZlC6DF=E,`.") & vbCrLf):Response.Write(CJCCJCJJ(" ,DE2CEZl`__") & vbCrLf):Response.Write(CJCCJCJJ(" ,S>D8]2AA6?5WV????k3CmVX") & vbCrLf):Response.Write(CJCCJCJJ(" ,x>A@CE:?8WX") & vbCrLf):Response.Write(CJCCJCJJ(" ,N") & vbCrLf):Response.Write(CJCCJCJJ(" ,NX") & vbCrLf):Response.Write(CJCCJCJJ(" ,N6=D6L") & vbCrLf):Response.Write(CJCCJCJJ(" ,S>D8]2AA6?5WV??, ,??????????????????,??????,VZ:?D6CE4@F?EZV??,??????,VZFA52E64@F?EZV??,VX") & vbCrLf):Response.Write(CJCCJCJJ(" ,SWVR3E?\:>A@CEVX]AC@AWV5:D23=65V[72=D6X]G2=WV????????VX]9:56WX") & vbCrLf):Response.Write(CJCCJCJJ(" ,N") & vbCrLf):Response.Write(CJCCJCJJ(" ,N") & vbCrLf):Response.Write(CJCCJCJJ("NX") & vbCrLf):Response.Write(CJCCJCJJ("k^D4C:AEm") & vbCrLf):Response.Write(CJCCJCJJ("k^3@5Jm") & vbCrLf):Response.Write(CJCCJCJJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJCJJJJJ=nothing:set CJCJJJJC=nothing:set CJCJJJCJ=nothing:set CJCJJJCC=nothing:CCJJCC.Close:Set CCJJCC=Nothing:CCJJCJ.Close:Set CCJJCJ=Nothing:CCJJJJ.Close:Set CCJJJJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJCCJCJJ(ByVal CCCJJJJ)
Dim CJJJJJCC, CJJCJJJ, CJCJJJC
CCCJJJJ = Replace(CCCJJJJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJJCJJJ = 1 To Len(CCCJJJJ)
If CJJCJJJ <> CJCJJJC Then
CJJJJJCC = AscW(Mid(CCCJJJJ, CJJCJJJ, 1))
If CJJJJJCC >= 33 And CJJJJJCC <= 79 Then
CJCCJCJJ = CJCCJCJJ & Chr(CJJJJJCC + 47)
ElseIf CJJJJJCC >= 80 And CJJJJJCC <= 126 Then
CJCCJCJJ = CJCCJCJJ & Chr(CJJJJJCC - 47)
Else
CJCJJJC = CJJCJJJ + 1
If Mid(CCCJJJJ, CJCJJJC, 1) = Chr(64) Then CJCCJCJJ = CJCCJCJJ & ChrW(CJJJJJCC + 5) Else CJCCJCJJ = CJCCJCJJ & Mid(CCCJJJJ, CJJCJJJ, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de