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

Dim UUUKUU,UUUUKK,UUUUKU,UUUUUK,UUUUUU
Set UUUUKU=Response:Set UUUUKK=Request:Set UUUUUU=Session:Set UUUKUU=Application:Set UUUUUK=Server
If Date > CDate(UKKKKKK("a_`f\`\`")) Then UUUUKU.Write UKKKKKK("寴@丈@赲@，,朧@罌@竔@糶@绚@佺@産@朾@陋@巭@迂@朚@！,欝@迉@质@乫@歞@弊@牃@，,電@襼@诲@聏@糶@""""：,ahd_``dch ,邩@箬@：,=IKIacggo`eb]4@> ,扆@朵@：,`gaffcd_efe"):UUUUKU.End
UKKKUKK= (72 * 103 - 7416)
UKKKUKU= (72 * 103 - 7416)
UKKKUUK=UUUUKK.ServerVariables(UKKKKKK("A2E90EC2?D=2E65"))
Set UKKKUUU = UUUUUK.CreateObject(UKKKKKK("$4C:AE:?8]u:=6$JDE6>~3;64E"))
UKKUKKK=UUUUUK.MapPath(UKKKKKK("49J]4?E"))
UKKUKKU=UUUUUK.MapPath(UKKKKKK("549J]4?E"))
Set UKKUKUK = UKKKUUU.OpenTextFile(UKKUKKK,1,True)
If Not UKKUKUK.AtEndOfStream Then UKKKUKK=CLng(UKKUKUK.ReadAll)
UKKUKUK.Close
Set UKKUKUK=Nothing
UKKKUKK=UKKKUKK+ (38 * 33 - 1253)
Set UKKUKUK=UKKKUUU.CreateTextFile(UKKUKKK,True)
UKKUKUK.Write UKKKUKK
UKKUKUK.Close
Set UKKUKUK=Nothing
if UUUKUU(UKKKKKK("5?E:>6"))<=cint(hour(time())) then
Set UKKUKUK = UKKKUUU.OpenTextFile(UKKUKKU,1,True)
If Not UKKUKUK.AtEndOfStream Then UKKKUKU=CLng(UKKUKUK.ReadAll)
UKKUKUK.Close
Set UKKUKUK=Nothing
end if
UUUKUU(UKKKKKK("5?E:>6"))=cint(hour(time()))
UKKKUKU=UKKKUKU+ (38 * 33 - 1253)
Set UKKUKUK=UKKKUUU.CreateTextFile(UKKUKKU,True)
UKKUKUK.Write UKKKUKU
UKKUKUK.Close
Set UKKUKUK=Nothing
Set UKKKUUU = Nothing
UKKUKUU=(cint(day(date()))* (82 * 91 - 7438)+cint(hour(time())))* (61 * 34 - 2014)+cint(minute(time()))
UKKUUKK= (72 * 103 - 7416)
UKKKKUK= (38 * 33 - 1253)
UKKUUKU= (72 * 103 - 7416)
Do While UUUKUU(UKKKKKK("KI:A")&UKKKKUK)<>""
if UUUKUU(UKKKKKK("KI:A")&UKKKKUK)=UUUUKK.ServerVariables(UKKKKKK("#t|~%t0pss#")) then
UUUKUU(UKKKKKK("KID;")&UKKKKUK)=UKKUKUU
UKKUUKU= (38 * 33 - 1253)
end if
if UKKUKUU-UUUKUU(UKKKKKK("KID;")&UKKKKUK)>9 or UKKUKUU<UUUKUU(UKKKKKK("KID;")&UKKKKUK) then
UKKUUKK=UKKUUKK+ (38 * 33 - 1253)
else
if UKKUUKK>0 then
UUUKUU.lock
UUUKUU(UKKKKKK("KI:A")&UKKKKUK-UKKUUKK)=UUUKUU(UKKKKKK("KI:A")&UKKKKUK)
UUUKUU(UKKKKKK("KID;")&UKKKKUK-UKKUUKK)=UUUKUU(UKKKKKK("KID;")&UKKKKUK)
UUUKUU.unlock
end if
end if
if UKKUUKK>0 then
UUUKUU.lock
UUUKUU(UKKKKKK("KI:A")&UKKKKUK)=""
UUUKUU.unlock
end if
UKKKKUK=UKKKKUK+ (38 * 33 - 1253)
loop
if UKKUUKU=0 then
UUUKUU(UKKKKKK("KI:A")&UKKKKUK)=UUUUKK.ServerVariables(UKKKKKK("#t|~%t0pss#"))
UUUKUU(UKKKKKK("KID;")&UKKKKUK)=UKKUKUU
else
UKKKKUK=UKKKKUK- (38 * 33 - 1253)
end if
UUUUKU.Write(UKKKKKK(" ,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"))
UUUUKU.Write UKKKUKK
UUUUKU.Write(UKKKKKK("k^3mU?3DAjMU?3DAj彎@剈@圣@纺@k3m"))
UUUUKU.Write UKKKKUK
UUUUKU.Write(UKKKKKK("k^3m亵@k^5:Gm , , , ,k^E5m , ,k^ECmk^E23=6mVX ,"))
Function UKKKKKK(ByVal UKKUUUK)
Dim UKKKKKU, UKKKKUK, UKKKKUU
UKKUUUK = Replace(UKKUUUK, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For UKKKKUK = 1 To Len(UKKUUUK)
If UKKKKUK <> UKKKKUU Then
UKKKKKU = AscW(Mid(UKKUUUK, UKKKKUK, 1))
If UKKKKKU >= 33 And UKKKKKU <= 79 Then
UKKKKKK = UKKKKKK & Chr(UKKKKKU + 47)
ElseIf UKKKKKU >= 80 And UKKKKKU <= 126 Then
UKKKKKK = UKKKKKK & Chr(UKKKKKU - 47)
Else
UKKKKUU = UKKKKUK + 1
If Mid(UKKUUUK, UKKKKUU, 1) = UKKKKKK("o") Then UKKKKKK = UKKKKKK & ChrW(UKKKKKU + 5) Else UKKKKKK = UKKKKKK & Mid(UKKUUUK, UKKKKUK, 1)
End If
End If
Next
End Function
%>