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

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