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

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