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

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