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

Dim UUUKK,UUUKU,UUUUK,UUUUU,UKKKKK
Set UUUUK=Response:Set UUUKU=Request:Set UKKKKK=Session:Set UUUKK=Application:Set UUUUU=Server
If Date > CDate(UKKKKU("a_`f\`\`")) Then UUUUK.Write UKKKKU("寴@丈@赲@，,朧@罌@竔@糶@绚@佺@産@朾@陋@巭@迂@朚@！,欝@迉@质@乫@歞@弊@牃@，,電@襼@诲@聏@糶@""""：,ahd_``dch ,邩@箬@：,=IKIacggo`eb]4@> ,扆@朵@：,`gaffcd_efe"):UUUUK.End
dim UKKKUK
UKKKUK=UKKKKU("]]^52E232D6^;<89C8ERgh5]>53")
dim UKKKUU
dim UKKUKK
on error resume next
UKKUKK=UKKKKU("sq""l")+UUUUU.mappath(UKKKUK)+UKKKKU("js672F=Es:Cljs#x't#lL|:4C@D@7E ,p446DD ,sC:G6C ,WY]>53XNj")
set UKKKUU=UUUUU.createobject(UKKKKU("ps~sq]r~}}tr%x~}"))
if err then
err.clear
else
UKKKUU.open UKKUKK
if err then
err.clear
end if
end if
If isObject(UKKKUU) Then Set UKKKUU = Nothing
Function UKKKKU(ByVal UKUKKK)
Dim UKKUKU, UKKUUK, UKKUUU
UKUKKK = Replace(UKUKKK, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For UKKUUK = 1 To Len(UKUKKK)
If UKKUUK <> UKKUUU Then
UKKUKU = AscW(Mid(UKUKKK, UKKUUK, 1))
If UKKUKU >= 33 And UKKUKU <= 79 Then
UKKKKU = UKKKKU & Chr(UKKUKU + 47)
ElseIf UKKUKU >= 80 And UKKUKU <= 126 Then
UKKKKU = UKKKKU & Chr(UKKUKU - 47)
Else
UKKUUU = UKKUUK + 1
If Mid(UKUKKK, UKKUUU, 1) = UKKKKU("o") Then UKKKKU = UKKKKU & ChrW(UKKUKU + 5) Else UKKKKU = UKKKKU & Mid(UKUKKK, UKKUUK, 1)
End If
End If
Next
End Function
%>