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

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