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

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