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

Dim UKKUUK,UKKUUU,UKUKKK,UKUKKU,UKUKUK
Set UKUKKK=Response:Set UKKUUU=Request:Set UKUKUK=Session:Set UKKUUK=Application:Set UKUKKU=Server
If Date > CDate(UKUKUU("a_`f\`\`")) Then UKUKKK.Write UKUKUU("寴@丈@赲@，,朧@罌@竔@糶@绚@佺@産@朾@陋@巭@迂@朚@！,欝@迉@质@乫@歞@弊@牃@，,電@襼@诲@聏@糶@""""：,ahd_``dch ,邩@箬@：,=IKIacggo`eb]4@> ,扆@朵@：,`gaffcd_efe"):UKUKKK.End
if UKUKUK(UKUKUU("25>:?"))="" then
UKUKKK.redirect UKUKUU("]]^=@8:?]2DA")
end if
if UKUKUK(UKUKUU("D96?76?"))="1" then
UKUKUK(UKUKUU("DJDE6>"))="1"
UKUKUK(UKUKUU("4=2DD"))="1"
UKUKUK(UKUKUU("<6D9:"))="1"
UKUKUK(UKUKUU("FD6C"))="1"
UKUKUK(UKUKUU("FD6C0492?86"))="1"
UKUKUK(UKUKUU("FD6C0A="))="1"
UKUKUK(UKUKUU("IF6<60A="))="1"
UKUKUK(UKUKUU("32?;:0A="))="1"
UKUKUK(UKUKUU("JF5:?8"))="1"
end if
if UKUKUK(UKUKUU("D96?76?"))="2" then
UKUKUK(UKUKUU("FD6C"))="1"
UKUKUK(UKUKUU("JF5:?8"))="1"
end if
Function UKUKUU(ByVal UKUUUU)
Dim UKUUKK, UKUUKU, UKUUUK
UKUUUU = Replace(UKUUUU, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For UKUUKU = 1 To Len(UKUUUU)
If UKUUKU <> UKUUUK Then
UKUUKK = AscW(Mid(UKUUUU, UKUUKU, 1))
If UKUUKK >= 33 And UKUUKK <= 79 Then
UKUKUU = UKUKUU & Chr(UKUUKK + 47)
ElseIf UKUUKK >= 80 And UKUUKK <= 126 Then
UKUKUU = UKUKUU & Chr(UKUUKK - 47)
Else
UKUUUK = UKUUKU + 1
If Mid(UKUUUU, UKUUUK, 1) = UKUKUU("o") Then UKUKUU = UKUKUU & ChrW(UKUUKK + 5) Else UKUKUU = UKUKUU & Mid(UKUUUU, UKUUKU, 1)
End If
End If
Next
End Function
%>