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

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