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

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