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

Dim UUKKKK,UUKKKU,UUKKUK,UUKKUU,UUKUKK
Set UUKKUK=Response:Set UUKKKU=Request:Set UUKUKK=Session:Set UUKKKK=Application:Set UUKKUU=Server
If Date > CDate(UUKUKU("a_`f\`\`")) Then UUKKUK.Write UUKUKU("寴@丈@赲@，,朧@罌@竔@糶@绚@佺@産@朾@陋@巭@迂@朚@！,欝@迉@质@乫@歞@弊@牃@，,電@襼@诲@聏@糶@""""：,ahd_``dch ,邩@箬@：,=IKIacggo`eb]4@> ,扆@朵@：,`gaffcd_efe"):UUKKUK.End
if UUKUKK(UUKUKU("25>:?"))="" then
UUKKUK.redirect UUKUKU(":?56I]2DA")
end if
if UUKUKK(UUKUKU("D96?76?"))="1" then
UUKUKK(UUKUKU("DJDE6>"))="1"
UUKUKK(UUKUKU("4=2DD"))="1"
UUKUKK(UUKUKU("<6D9:"))="1"
UUKUKK(UUKUKU("FD6C"))="1"
UUKUKK(UUKUKU("FD6C0492?86"))="1"
UUKUKK(UUKUKU("FD6C0A="))="1"
UUKUKK(UUKUKU("JF5:?8"))="1"
UUKUKK(UUKUKU("FD6C4"))="3"
UUKUKK(UUKUKU("JF5:?84"))="3"
UUKUKK(UUKUKU("FD6C5"))="4"
UUKUKK(UUKUKU("JF5:?85"))="4"
end if
if UUKUKK(UUKUKU("D96?76?"))="2" then
UUKUKK(UUKUKU("FD6C"))="1"
UUKUKK(UUKUKU("JF5:?8"))="1"
UUKUKK(UUKUKU("FD6C4"))="3"
UUKUKK(UUKUKU("JF5:?84"))="3"
UUKUKK(UUKUKU("FD6C5"))="4"
UUKUKK(UUKUKU("JF5:?85"))="4"
end if
if UUKUKK(UUKUKU("D96?76?"))="3" then
UUKUKK(UUKUKU("FD6C4"))="3"
UUKUKK(UUKUKU("JF5:?84"))="3"
UUKUKK(UUKUKU("FD6C5"))="4"
UUKUKK(UUKUKU("JF5:?85"))="4"
end if
if UUKUKK(UUKUKU("D96?76?"))="4" then
UUKUKK(UUKUKU("FD6C5"))="4"
UUKUKK(UUKUKU("JF5:?85"))="4"
end if
Function UUKUKU(ByVal UUUKKU)
Dim UUKUUK, UUKUUU, UUUKKK
UUUKKU = Replace(UUUKKU, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For UUKUUU = 1 To Len(UUUKKU)
If UUKUUU <> UUUKKK Then
UUKUUK = AscW(Mid(UUUKKU, UUKUUU, 1))
If UUKUUK >= 33 And UUKUUK <= 79 Then
UUKUKU = UUKUKU & Chr(UUKUUK + 47)
ElseIf UUKUUK >= 80 And UUKUUK <= 126 Then
UUKUKU = UUKUKU & Chr(UUKUUK - 47)
Else
UUUKKK = UUKUUU + 1
If Mid(UUUKKU, UUUKKK, 1) = UUKUKU("o") Then UUKUKU = UUKUKU & ChrW(UUKUUK + 5) Else UUKUKU = UUKUKU & Mid(UUUKKU, UUKUUU, 1)
End If
End If
Next
End Function
%>