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

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