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

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