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

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