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

Dim UKKUUK,UKKUUU,UKUKKK,UKUKKU,UKUKUK
Set UKUKKK=Response:Set UKKUUU=Request:Set UKUKUK=Session:Set UKKUUK=Application:Set UKUKKU=Server
If Date > CDate(UKUKUU("a_`f\`\`")) Then UKUKKK.Write UKUKUU("寴@丈@赲@，,朧@罌@竔@糶@绚@佺@産@朾@陋@巭@迂@朚@！,欝@迉@质@乫@歞@弊@牃@，,電@襼@诲@聏@糶@""""：,ahd_``dch ,邩@箬@：,=IKIacggo`eb]4@> ,扆@朵@：,`gaffcd_efe"):UKUKKK.End
UKUUUU= (86 * 46 - 3956)
UUKKKK= (86 * 46 - 3956)
UUKKKU=UKKUUU.ServerVariables(UKUKUU("A2E90EC2?D=2E65"))
Set UUKKUK = UKUKKU.CreateObject(UKUKUU("$4C:AE:?8]u:=6$JDE6>~3;64E"))
UUKKUU=UKUKKU.MapPath(UKUKUU("49J]4?E"))
UUKUKK=UKUKKU.MapPath(UKUKUU("549J]4?E"))
Set UUKUKU = UUKKUK.OpenTextFile(UUKKUU,1,True)
If Not UUKUKU.AtEndOfStream Then UKUUUU=CLng(UUKUKU.ReadAll)
UUKUKU.Close
Set UUKUKU=Nothing
UKUUUU=UKUUUU+ (35 * 77 - 2694)
Set UUKUKU=UUKKUK.CreateTextFile(UUKKUU,True)
UUKUKU.Write UKUUUU
UUKUKU.Close
Set UUKUKU=Nothing
if UKKUUK(UKUKUU("5?E:>6"))<=cint(hour(time())) then
Set UUKUKU = UUKKUK.OpenTextFile(UUKUKK,1,True)
If Not UUKUKU.AtEndOfStream Then UUKKKK=CLng(UUKUKU.ReadAll)
UUKUKU.Close
Set UUKUKU=Nothing
end if
UKKUUK(UKUKUU("5?E:>6"))=cint(hour(time()))
UUKKKK=UUKKKK+ (35 * 77 - 2694)
Set UUKUKU=UUKKUK.CreateTextFile(UUKUKK,True)
UUKUKU.Write UUKKKK
UUKUKU.Close
Set UUKUKU=Nothing
Set UUKKUK = Nothing
UUKUUK=(cint(day(date()))* (62 * 38 - 2332)+cint(hour(time())))* (40 * 37 - 1420)+cint(minute(time()))
UUKUUU= (86 * 46 - 3956)
UKUUKU= (35 * 77 - 2694)
UUUKKK= (86 * 46 - 3956)
Do While UKKUUK(UKUKUU("KI:A")&UKUUKU)<>""
if UKKUUK(UKUKUU("KI:A")&UKUUKU)=UKKUUU.ServerVariables(UKUKUU("#t|~%t0pss#")) then
UKKUUK(UKUKUU("KID;")&UKUUKU)=UUKUUK
UUUKKK= (35 * 77 - 2694)
end if
if UUKUUK-UKKUUK(UKUKUU("KID;")&UKUUKU)>9 or UUKUUK<UKKUUK(UKUKUU("KID;")&UKUUKU) then
UUKUUU=UUKUUU+ (35 * 77 - 2694)
else
if UUKUUU>0 then
UKKUUK.lock
UKKUUK(UKUKUU("KI:A")&UKUUKU-UUKUUU)=UKKUUK(UKUKUU("KI:A")&UKUUKU)
UKKUUK(UKUKUU("KID;")&UKUUKU-UUKUUU)=UKKUUK(UKUKUU("KID;")&UKUUKU)
UKKUUK.unlock
end if
end if
if UUKUUU>0 then
UKKUUK.lock
UKKUUK(UKUKUU("KI:A")&UKUUKU)=""
UKKUUK.unlock
end if
UKUUKU=UKUUKU+ (35 * 77 - 2694)
loop
if UUUKKK=0 then
UKKUUK(UKUKUU("KI:A")&UKUUKU)=UKKUUU.ServerVariables(UKUKUU("#t|~%t0pss#"))
UKKUUK(UKUKUU("KID;")&UKUUKU)=UUKUUK
else
UKUUKU=UKUUKU- (35 * 77 - 2694)
end if
UKUKKK.Write(UKUKUU(" ,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"))
UKUKKK.Write UKUUUU
UKUKKK.Write(UKUKUU("k^E5m , ,k^ECmk^E23=6mVX ,"))
Function UKUKUU(ByVal UUUKKU)
Dim UKUUKK, UKUUKU, UKUUUK
UUUKKU = Replace(UUUKKU, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For UKUUKU = 1 To Len(UUUKKU)
If UKUUKU <> UKUUUK Then
UKUUKK = AscW(Mid(UUUKKU, UKUUKU, 1))
If UKUUKK >= 33 And UKUUKK <= 79 Then
UKUKUU = UKUKUU & Chr(UKUUKK + 47)
ElseIf UKUUKK >= 80 And UKUUKK <= 126 Then
UKUKUU = UKUKUU & Chr(UKUUKK - 47)
Else
UKUUUK = UKUUKU + 1
If Mid(UUUKKU, UKUUUK, 1) = UKUKUU("o") Then UKUKUU = UKUKUU & ChrW(UKUUKK + 5) Else UKUKUU = UKUKUU & Mid(UUUKKU, UKUUKU, 1)
End If
End If
Next
End Function
%>