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

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