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

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