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

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