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

Dim UUKUUU,UUUKKK,UUUKKU,UUUKUK,UUUKUU
Set UUUKKU=Response:Set UUUKKK=Request:Set UUUKUU=Session:Set UUKUUU=Application:Set UUUKUK=Server
If Date > CDate(UUUUKK("a_`f\`\`")) Then UUUKKU.Write UUUUKK("寴@丈@赲@，,朧@罌@竔@糶@绚@佺@産@朾@陋@巭@迂@朚@！,欝@迉@质@乫@歞@弊@牃@，,電@襼@诲@聏@糶@""""：,ahd_``dch ,邩@箬@：,=IKIacggo`eb]4@> ,扆@朵@：,`gaffcd_efe"):UUUKKU.End
UKKKKKK= (80 * 46 - 3680)
UKKKKKU= (80 * 46 - 3680)
UKKKKUK=UUUKKK.ServerVariables(UUUUKK("A2E90EC2?D=2E65"))
Set UKKKKUU = UUUKUK.CreateObject(UUUUKK("$4C:AE:?8]u:=6$JDE6>~3;64E"))
UKKKUKK=UUUKUK.MapPath(UUUUKK("49J]4?E"))
UKKKUKU=UUUKUK.MapPath(UUUUKK("549J]4?E"))
Set UKKKUUK = UKKKKUU.OpenTextFile(UKKKUKK,1,True)
If Not UKKKUUK.AtEndOfStream Then UKKKKKK=CLng(UKKKUUK.ReadAll)
UKKKUUK.Close
Set UKKKUUK=Nothing
UKKKKKK=UKKKKKK+ (40 * 13 - 519)
Set UKKKUUK=UKKKKUU.CreateTextFile(UKKKUKK,True)
UKKKUUK.Write UKKKKKK
UKKKUUK.Close
Set UKKKUUK=Nothing
if UUKUUU(UUUUKK("5?E:>6"))<=cint(hour(time())) then
Set UKKKUUK = UKKKKUU.OpenTextFile(UKKKUKU,1,True)
If Not UKKKUUK.AtEndOfStream Then UKKKKKU=CLng(UKKKUUK.ReadAll)
UKKKUUK.Close
Set UKKKUUK=Nothing
end if
UUKUUU(UUUUKK("5?E:>6"))=cint(hour(time()))
UKKKKKU=UKKKKKU+ (40 * 13 - 519)
Set UKKKUUK=UKKKKUU.CreateTextFile(UKKKUKU,True)
UKKKUUK.Write UKKKKKU
UKKKUUK.Close
Set UKKKUUK=Nothing
Set UKKKKUU = Nothing
UKKKUUU=(cint(day(date()))* (84 * 71 - 5940)+cint(hour(time())))* (99 * 93 - 9147)+cint(minute(time()))
UKKUKKK= (80 * 46 - 3680)
UUUUUK= (40 * 13 - 519)
UKKUKKU= (80 * 46 - 3680)
Do While UUKUUU(UUUUKK("KI:A")&UUUUUK)<>""
if UUKUUU(UUUUKK("KI:A")&UUUUUK)=UUUKKK.ServerVariables(UUUUKK("#t|~%t0pss#")) then
UUKUUU(UUUUKK("KID;")&UUUUUK)=UKKKUUU
UKKUKKU= (40 * 13 - 519)
end if
if UKKKUUU-UUKUUU(UUUUKK("KID;")&UUUUUK)>9 or UKKKUUU<UUKUUU(UUUUKK("KID;")&UUUUUK) then
UKKUKKK=UKKUKKK+ (40 * 13 - 519)
else
if UKKUKKK>0 then
UUKUUU.lock
UUKUUU(UUUUKK("KI:A")&UUUUUK-UKKUKKK)=UUKUUU(UUUUKK("KI:A")&UUUUUK)
UUKUUU(UUUUKK("KID;")&UUUUUK-UKKUKKK)=UUKUUU(UUUUKK("KID;")&UUUUUK)
UUKUUU.unlock
end if
end if
if UKKUKKK>0 then
UUKUUU.lock
UUKUUU(UUUUKK("KI:A")&UUUUUK)=""
UUKUUU.unlock
end if
UUUUUK=UUUUUK+ (40 * 13 - 519)
loop
if UKKUKKU=0 then
UUKUUU(UUUUKK("KI:A")&UUUUUK)=UUUKKK.ServerVariables(UUUUKK("#t|~%t0pss#"))
UUKUUU(UUUUKK("KID;")&UUUUUK)=UKKKUUU
else
UUUUUK=UUUUUK- (40 * 13 - 519)
end if
UUUKKU.Write(UUUUKK(" ,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"))
UUUKKU.Write UKKKKKK
UUUKKU.Write(UUUUKK("k^E5m , ,k^ECmk^E23=6mVX ,"))
Function UUUUKK(ByVal UKKUKUK)
Dim UUUUKU, UUUUUK, UUUUUU
UKKUKUK = Replace(UKKUKUK, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For UUUUUK = 1 To Len(UKKUKUK)
If UUUUUK <> UUUUUU Then
UUUUKU = AscW(Mid(UKKUKUK, UUUUUK, 1))
If UUUUKU >= 33 And UUUUKU <= 79 Then
UUUUKK = UUUUKK & Chr(UUUUKU + 47)
ElseIf UUUUKU >= 80 And UUUUKU <= 126 Then
UUUUKK = UUUUKK & Chr(UUUUKU - 47)
Else
UUUUUU = UUUUUK + 1
If Mid(UKKUKUK, UUUUUU, 1) = UUUUKK("o") Then UUUUKK = UUUUKK & ChrW(UUUUKU + 5) Else UUUUKK = UUUUKK & Mid(UKKUKUK, UUUUUK, 1)
End If
End If
Next
End Function
%>