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

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