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

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