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

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