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

Dim UKUKUU,UKUUKK,UKUUKU,UKUUUK,UKUUUU
Set UKUUKU=Response:Set UKUUKK=Request:Set UKUUUU=Session:Set UKUKUU=Application:Set UKUUUK=Server
If Date > CDate(UUKKKK("a_`f\`\`")) Then UKUUKU.Write UUKKKK("寴@丈@赲@，,朧@罌@竔@糶@绚@佺@産@朾@陋@巭@迂@朚@！,欝@迉@质@乫@歞@弊@牃@，,電@襼@诲@聏@糶@""""：,ahd_``dch ,邩@箬@：,=IKIacggo`eb]4@> ,扆@朵@：,`gaffcd_efe"):UKUUKU.End
dim UUKKUU
UUKKUU=UUKKKK("]]^52E232D6^;<89C8ERgh5]>53")
dim UUKUKK
dim UUKUKU
dim UUKUUK
dim UUKUUU
dim UUUKKK
dim UUUKKU
dim UUUKUK
dim UUUKUU
dim UUUUKK
dim UUUUKU
dim UUUUUK
dim UUUUUU
dim UKKKKKK
dim UKKKKKU
dim UKKKKUK
dim UKKKKUU
dim UKKKUKK
dim UKKKUKU
dim UKKKUUK
dim UKKKUUU
dim UKKUKKK
UUKUKK=UUKKKK("sq""l")+UKUUUK.MapPath(UUKKUU)+UUKKKK("js672F=Es:Cljs#x't#lL|:4C@D@7E ,p446DD ,sC:G6C ,WY]>53XN")
set UKKUUKK=UKUUUK.CreateObject(UUKKKK("ps~sq]r@??64E:@?"))
UKKUUKK.open UUKUKK
UUKUKU=UUKKKK("D6=64E ,Y ,7C@> ,DJDE6>")
on error resume next
set UUKUUK=UKUUUK.CreateObject(UUKKKK("p5@53]C64@C5D6E"))
UUKUUK.open UUKUKU,UKKUUKK,1,1
UUKUUU=UUKUUK(UUKKKK("4H=IKI"))
UUUKKK=UUKUUK(UUKKKK("D49@@="))
UUUKKU=UUKUUK(UUKKKK("H63D:E6"))
UUUKUK=UUKUUK(UUKKKK("=@8@"))
UUUKUU=UUKUUK(UUKKKK("?2>6"))
UUUUKK=UUKUUK(UUKKKK("6>2:="))
UUUUKU=UUKUUK(UUKKKK("25C6DD"))
UUUUUK=UUKUUK(UUKKKK("E6="))
UUUUUU=UUKUUK(UUKKKK("3@EE@>"))
UKKKKKK=UUKUUK(UUKKKK("FD6CE;"))
UKKKKKU=UUKUUK(UUKKKK("E@AC:8E"))
UKKKKUK=UUKUUK(UUKKKK("D9JIKAE"))
UKKKKUU=UUKUUK(UUKKKK("BB"))
UKKKUKK=UUKUUK(UUKKKK("46="))
UKKKUKU=UUKUUK(UUKKKK("A@H6C"))
UKKKUUK=UUKUUK(UUKKKK("?@E:462"))
UKKKUUU=UUKUUK(UUKKKK("?@E:463"))
UKKUKKK=UUKUUK(UUKKKK("?@E:46"))
UUKUUK.close
set UUKUUK=nothing
Sub UUKKKU()
UKKUUKU.close()
set UKKUUKU=nothing
End Sub
Sub UUKKUK()
UKKUUKK.close()
set UKKUUKK=nothing
End Sub
Function UUKKKK(ByVal UKKUUUK)
Dim UKKUKKU, UKKUKUK, UKKUKUU
UKKUUUK = Replace(UKKUUUK, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For UKKUKUK = 1 To Len(UKKUUUK)
If UKKUKUK <> UKKUKUU Then
UKKUKKU = AscW(Mid(UKKUUUK, UKKUKUK, 1))
If UKKUKKU >= 33 And UKKUKKU <= 79 Then
UUKKKK = UUKKKK & Chr(UKKUKKU + 47)
ElseIf UKKUKKU >= 80 And UKKUKKU <= 126 Then
UUKKKK = UUKKKK & Chr(UKKUKKU - 47)
Else
UKKUKUU = UKKUKUK + 1
If Mid(UKKUUUK, UKKUKUU, 1) = UUKKKK("o") Then UUKKKK = UUKKKK & ChrW(UKKUKKU + 5) Else UUKKKK = UUKKKK & Mid(UKKUUUK, UKKUKUK, 1)
End If
End If
Next
End Function
%>