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

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