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

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