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

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