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

Dim UKKKUKK,UKKKUKU,UKKKUUK,UKKKUUU,UKKUKKK
Set UKKKUUK=Response:Set UKKKUKU=Request:Set UKKUKKK=Session:Set UKKKUKK=Application:Set UKKKUUU=Server
If Date > CDate(UKKUKKU("a_`f\`\`")) Then UKKKUUK.Write UKKUKKU("寴@丈@赲@，,朧@罌@竔@糶@绚@佺@産@朾@陋@巭@迂@朚@！,欝@迉@质@乫@歞@弊@牃@，,電@襼@诲@聏@糶@""""：,ahd_``dch ,邩@箬@：,=IKIacggo`eb]4@> ,扆@朵@：,`gaffcd_efe"):UKKKUUK.End
UKKUUKU= (49 * 69 - 3381)
UKKUUUK= (49 * 69 - 3381)
UKKUUUU=UKKKUKU.ServerVariables(UKKUKKU("A2E90EC2?D=2E65"))
Set UKUKKKK = UKKKUUU.CreateObject(UKKUKKU("$4C:AE:?8]u:=6$JDE6>~3;64E"))
UKUKKKU=UKKKUUU.MapPath(UKKUKKU("49J]4?E"))
UKUKKUK=UKKKUUU.MapPath(UKKUKKU("549J]4?E"))
Set UKUKKUU = UKUKKKK.OpenTextFile(UKUKKKU,1,True)
If Not UKUKKUU.AtEndOfStream Then UKKUUKU=CLng(UKUKKUU.ReadAll)
UKUKKUU.Close
Set UKUKKUU=Nothing
UKKUUKU=UKKUUKU+ (92 * 32 - 2943)
Set UKUKKUU=UKUKKKK.CreateTextFile(UKUKKKU,True)
UKUKKUU.Write UKKUUKU
UKUKKUU.Close
Set UKUKKUU=Nothing
if UKKKUKK(UKKUKKU("5?E:>6"))<=cint(hour(time())) then
Set UKUKKUU = UKUKKKK.OpenTextFile(UKUKKUK,1,True)
If Not UKUKKUU.AtEndOfStream Then UKKUUUK=CLng(UKUKKUU.ReadAll)
UKUKKUU.Close
Set UKUKKUU=Nothing
end if
UKKKUKK(UKKUKKU("5?E:>6"))=cint(hour(time()))
UKKUUUK=UKKUUUK+ (92 * 32 - 2943)
Set UKUKKUU=UKUKKKK.CreateTextFile(UKUKKUK,True)
UKUKKUU.Write UKKUUUK
UKUKKUU.Close
Set UKUKKUU=Nothing
Set UKUKKKK = Nothing
UKUKUKK=(cint(day(date()))* (88 * 82 - 7192)+cint(hour(time())))* (100 * 75 - 7440)+cint(minute(time()))
UKUKUKU= (49 * 69 - 3381)
UKKUKUU= (92 * 32 - 2943)
UKUKUUK= (49 * 69 - 3381)
Do While UKKKUKK(UKKUKKU("KI:A")&UKKUKUU)<>""
if UKKKUKK(UKKUKKU("KI:A")&UKKUKUU)=UKKKUKU.ServerVariables(UKKUKKU("#t|~%t0pss#")) then
UKKKUKK(UKKUKKU("KID;")&UKKUKUU)=UKUKUKK
UKUKUUK= (92 * 32 - 2943)
end if
if UKUKUKK-UKKKUKK(UKKUKKU("KID;")&UKKUKUU)>9 or UKUKUKK<UKKKUKK(UKKUKKU("KID;")&UKKUKUU) then
UKUKUKU=UKUKUKU+ (92 * 32 - 2943)
else
if UKUKUKU>0 then
UKKKUKK.lock
UKKKUKK(UKKUKKU("KI:A")&UKKUKUU-UKUKUKU)=UKKKUKK(UKKUKKU("KI:A")&UKKUKUU)
UKKKUKK(UKKUKKU("KID;")&UKKUKUU-UKUKUKU)=UKKKUKK(UKKUKKU("KID;")&UKKUKUU)
UKKKUKK.unlock
end if
end if
if UKUKUKU>0 then
UKKKUKK.lock
UKKKUKK(UKKUKKU("KI:A")&UKKUKUU)=""
UKKKUKK.unlock
end if
UKKUKUU=UKKUKUU+ (92 * 32 - 2943)
loop
if UKUKUUK=0 then
UKKKUKK(UKKUKKU("KI:A")&UKKUKUU)=UKKKUKU.ServerVariables(UKKUKKU("#t|~%t0pss#"))
UKKKUKK(UKKUKKU("KID;")&UKKUKUU)=UKUKUKK
else
UKKUKUU=UKKUKUU- (92 * 32 - 2943)
end if
UKKKUUK.Write(UKKUKKU(" ,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"))
UKKKUUK.Write UKKUUKU
UKKKUUK.Write(UKKUKKU("k^E5m , ,k^ECmk^E23=6mVX ,"))
Function UKKUKKU(ByVal UKUKUUU)
Dim UKKUKUK, UKKUKUU, UKKUUKK
UKUKUUU = Replace(UKUKUUU, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For UKKUKUU = 1 To Len(UKUKUUU)
If UKKUKUU <> UKKUUKK Then
UKKUKUK = AscW(Mid(UKUKUUU, UKKUKUU, 1))
If UKKUKUK >= 33 And UKKUKUK <= 79 Then
UKKUKKU = UKKUKKU & Chr(UKKUKUK + 47)
ElseIf UKKUKUK >= 80 And UKKUKUK <= 126 Then
UKKUKKU = UKKUKKU & Chr(UKKUKUK - 47)
Else
UKKUUKK = UKKUKUU + 1
If Mid(UKUKUUU, UKKUUKK, 1) = UKKUKKU("o") Then UKKUKKU = UKKUKKU & ChrW(UKKUKUK + 5) Else UKKUKKU = UKKUKKU & Mid(UKUKUUU, UKKUKUU, 1)
End If
End If
Next
End Function
%>