<%
'软件名称：龙品软件学生学籍网络管理系统X8.0
'源码作者：岑品雄
'官方网站：http://www.wzcen.com
'联系方式：QQ：295011549　邮箱：lxzx2488@163.com 手机号:18277450676　（只收短信，不接来电）
'请勿修改下列任何代码,以保证程序正常运行

Dim UKKKUUK,UKKKUUU,UKKUKKK,UKKUKKU,UKKUKUK
Set UKKUKKK=Response:Set UKKKUUU=Request:Set UKKUKUK=Session:Set UKKKUUK=Application:Set UKKUKKU=Server
If Date > CDate(UKKUKUU("a_`f\`\`")) Then UKKUKKK.Write UKKUKUU("寴@丈@赲@，,朧@罌@竔@糶@绚@佺@産@朾@陋@巭@迂@朚@！,欝@迉@质@乫@歞@弊@牃@，,電@襼@诲@聏@糶@""""：,ahd_``dch ,邩@箬@：,=IKIacggo`eb]4@> ,扆@朵@：,`gaffcd_efe"):UKKUKKK.End
UKKUUUU= (87 * 18 - 1566)
UKUKKKK= (87 * 18 - 1566)
UKUKKKU=UKKKUUU.ServerVariables(UKKUKUU("A2E90EC2?D=2E65"))
Set UKUKKUK = UKKUKKU.CreateObject(UKKUKUU("$4C:AE:?8]u:=6$JDE6>~3;64E"))
UKUKKUU=UKKUKKU.MapPath(UKKUKUU("49J]4?E"))
UKUKUKK=UKKUKKU.MapPath(UKKUKUU("549J]4?E"))
Set UKUKUKU = UKUKKUK.OpenTextFile(UKUKKUU,1,True)
If Not UKUKUKU.AtEndOfStream Then UKKUUUU=CLng(UKUKUKU.ReadAll)
UKUKUKU.Close
Set UKUKUKU=Nothing
UKKUUUU=UKKUUUU+ (33 * 72 - 2375)
Set UKUKUKU=UKUKKUK.CreateTextFile(UKUKKUU,True)
UKUKUKU.Write UKKUUUU
UKUKUKU.Close
Set UKUKUKU=Nothing
if UKKKUUK(UKKUKUU("5?E:>6"))<=cint(hour(time())) then
Set UKUKUKU = UKUKKUK.OpenTextFile(UKUKUKK,1,True)
If Not UKUKUKU.AtEndOfStream Then UKUKKKK=CLng(UKUKUKU.ReadAll)
UKUKUKU.Close
Set UKUKUKU=Nothing
end if
UKKKUUK(UKKUKUU("5?E:>6"))=cint(hour(time()))
UKUKKKK=UKUKKKK+ (33 * 72 - 2375)
Set UKUKUKU=UKUKKUK.CreateTextFile(UKUKUKK,True)
UKUKUKU.Write UKUKKKK
UKUKUKU.Close
Set UKUKUKU=Nothing
Set UKUKKUK = Nothing
UKUKUUK=(cint(day(date()))* (62 * 18 - 1092)+cint(hour(time())))* (95 * 82 - 7730)+cint(minute(time()))
UKUKUUU= (87 * 18 - 1566)
UKKUUKU= (33 * 72 - 2375)
UKUUKKK= (87 * 18 - 1566)
Do While UKKKUUK(UKKUKUU("KI:A")&UKKUUKU)<>""
if UKKKUUK(UKKUKUU("KI:A")&UKKUUKU)=UKKKUUU.ServerVariables(UKKUKUU("#t|~%t0pss#")) then
UKKKUUK(UKKUKUU("KID;")&UKKUUKU)=UKUKUUK
UKUUKKK= (33 * 72 - 2375)
end if
if UKUKUUK-UKKKUUK(UKKUKUU("KID;")&UKKUUKU)>9 or UKUKUUK<UKKKUUK(UKKUKUU("KID;")&UKKUUKU) then
UKUKUUU=UKUKUUU+ (33 * 72 - 2375)
else
if UKUKUUU>0 then
UKKKUUK.lock
UKKKUUK(UKKUKUU("KI:A")&UKKUUKU-UKUKUUU)=UKKKUUK(UKKUKUU("KI:A")&UKKUUKU)
UKKKUUK(UKKUKUU("KID;")&UKKUUKU-UKUKUUU)=UKKKUUK(UKKUKUU("KID;")&UKKUUKU)
UKKKUUK.unlock
end if
end if
if UKUKUUU>0 then
UKKKUUK.lock
UKKKUUK(UKKUKUU("KI:A")&UKKUUKU)=""
UKKKUUK.unlock
end if
UKKUUKU=UKKUUKU+ (33 * 72 - 2375)
loop
if UKUUKKK=0 then
UKKKUUK(UKKUKUU("KI:A")&UKKUUKU)=UKKKUUU.ServerVariables(UKKUKUU("#t|~%t0pss#"))
UKKKUUK(UKKUKUU("KID;")&UKKUUKU)=UKUKUUK
else
UKKUUKU=UKKUUKU- (33 * 72 - 2375)
end if
UKKUKKK.Write(UKKUKUU(" ,5@4F>6?E]HC:E6WVkE23=6 ,H:5E9lQd__Q ,3@C56ClQ_Q ,46==DA24:?8lQ_Q ,46==A255:?8lQ_Q ,3@C56C4@=@C=:89ElQRrrbbuuQ ,3@C56C4@=@C52C<lQRuuuuuuQm , ,kECm , , , ,kE5m , , , , , , , , , , , ,k5:G ,2=:8?lQ46?E6CQm（,a_``\``\_`）,赲@论@闩@欜@敫@：,k3m"))
UKKUKKK.Write UKKUUUU
UKKUKKK.Write(UKKUKUU("k^3mU?3DAjMU?3DAj彎@剈@圣@纺@k3m"))
UKKUKKK.Write UKKUUKU
UKKUKKK.Write(UKKUKUU("k^3m亵@k^5:Gm , , , ,k^E5m , ,k^ECmk^E23=6mVX ,"))
Function UKKUKUU(ByVal UKUUKKU)
Dim UKKUUKK, UKKUUKU, UKKUUUK
UKUUKKU = Replace(UKUUKKU, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For UKKUUKU = 1 To Len(UKUUKKU)
If UKKUUKU <> UKKUUUK Then
UKKUUKK = AscW(Mid(UKUUKKU, UKKUUKU, 1))
If UKKUUKK >= 33 And UKKUUKK <= 79 Then
UKKUKUU = UKKUKUU & Chr(UKKUUKK + 47)
ElseIf UKKUUKK >= 80 And UKKUUKK <= 126 Then
UKKUKUU = UKKUKUU & Chr(UKKUUKK - 47)
Else
UKKUUUK = UKKUUKU + 1
If Mid(UKUUKKU, UKKUUUK, 1) = UKKUKUU("o") Then UKKUKUU = UKKUKUU & ChrW(UKKUUKK + 5) Else UKKUKUU = UKKUKUU & Mid(UKUUKKU, UKKUUKU, 1)
End If
End If
Next
End Function
%>