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

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