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

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