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

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