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

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