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

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