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

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