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

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