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

Dim UKKKUUK,UKKKUUU,UKKUKKK,UKKUKKU,UKKUKUK
Set UKKUKKK=Response:Set UKKKUUU=Request:Set UKKUKUK=Session:Set UKKKUUK=Application:Set UKKUKKU=Server
If Date > CDate(UKKUKUU("a_`f\`\`")) Then UKKUKKK.Write UKKUKUU("寴@丈@赲@，,朧@罌@竔@糶@绚@佺@産@朾@陋@巭@迂@朚@！,欝@迉@质@乫@歞@弊@牃@，,電@襼@诲@聏@糶@""""：,ahd_``dch ,邩@箬@：,=IKIacggo`eb]4@> ,扆@朵@：,`gaffcd_efe"):UKKUKKK.End
dim UKKUUUK
UKKUUUK=UKKUKUU("]]^52E232D6^;<89C8ERgh5]>53")
dim UKKUUUU
dim UKUKKKK
dim UKUKKKU
dim UKUKKUK
dim UKUKKUU
dim UKUKUKK
dim UKUKUKU
dim UKUKUUK
dim UKUKUUU
dim UKUUKKK
dim UKUUKKU
dim UKUUKUK
dim UKUUKUU
dim UKUUUKK
dim UKUUUKU
dim UKUUUUK
dim UKUUUUU
dim UUKKKKK
dim UUKKKKU
dim UUKKKUK
dim UUKKKUU
UKKUUUU=UKKUKUU("sq""l")+UKKUKKU.MapPath(UKKUUUK)+UKKUKUU("js672F=Es:Cljs#x't#lL|:4C@D@7E ,p446DD ,sC:G6C ,WY]>53XN")
set UUKKUUU=UKKUKKU.CreateObject(UKKUKUU("ps~sq]r@??64E:@?"))
UUKKUUU.open UKKUUUU
UKUKKKK=UKKUKUU("D6=64E ,Y ,7C@> ,DJDE6>")
on error resume next
set UKUKKKU=UKKUKKU.CreateObject(UKKUKUU("p5@53]C64@C5D6E"))
UKUKKKU.open UKUKKKK,UUKKUUU,1,1
UKUKKUK=UKUKKKU(UKKUKUU("4H=IKI"))
UKUKKUU=UKUKKKU(UKKUKUU("D49@@="))
UKUKUKK=UKUKKKU(UKKUKUU("H63D:E6"))
UKUKUKU=UKUKKKU(UKKUKUU("=@8@"))
UKUKUUK=UKUKKKU(UKKUKUU("?2>6"))
UKUKUUU=UKUKKKU(UKKUKUU("6>2:="))
UKUUKKK=UKUKKKU(UKKUKUU("25C6DD"))
UKUUKKU=UKUKKKU(UKKUKUU("E6="))
UKUUKUK=UKUKKKU(UKKUKUU("3@EE@>"))
UKUUKUU=UKUKKKU(UKKUKUU("FD6CE;"))
UKUUUKK=UKUKKKU(UKKUKUU("E@AC:8E"))
UKUUUKU=UKUKKKU(UKKUKUU("D9JIKAE"))
UKUUUUK=UKUKKKU(UKKUKUU("BB"))
UKUUUUU=UKUKKKU(UKKUKUU("46="))
UUKKKKK=UKUKKKU(UKKUKUU("A@H6C"))
UUKKKKU=UKUKKKU(UKKUKUU("?@E:462"))
UUKKKUK=UKUKKKU(UKKUKUU("?@E:463"))
UUKKKUU=UKUKKKU(UKKUKUU("?@E:46"))
UKUKKKU.close
set UKUKKKU=nothing
Sub UKKUUKK()
UUKUKKK.close()
set UUKUKKK=nothing
End Sub
Sub UKKUUKU()
UUKKUUU.close()
set UUKKUUU=nothing
End Sub
Function UKKUKUU(ByVal UUKUKKU)
Dim UUKKUKK, UUKKUKU, UUKKUUK
UUKUKKU = Replace(UUKUKKU, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For UUKKUKU = 1 To Len(UUKUKKU)
If UUKKUKU <> UUKKUUK Then
UUKKUKK = AscW(Mid(UUKUKKU, UUKKUKU, 1))
If UUKKUKK >= 33 And UUKKUKK <= 79 Then
UKKUKUU = UKKUKUU & Chr(UUKKUKK + 47)
ElseIf UUKKUKK >= 80 And UUKKUKK <= 126 Then
UKKUKUU = UKKUKUU & Chr(UUKKUKK - 47)
Else
UUKKUUK = UUKKUKU + 1
If Mid(UUKUKKU, UUKKUUK, 1) = UKKUKUU("o") Then UKKUKUU = UKKUKUU & ChrW(UUKKUKK + 5) Else UKKUKUU = UKKUKUU & Mid(UUKUKKU, UUKKUKU, 1)
End If
End If
Next
End Function
%>