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

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