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

Dim UUUKU,UUUUK,UUUUU,UKKKKK,UKKKKU
Set UUUUU=Response:Set UUUUK=Request:Set UKKKKU=Session:Set UUUKU=Application:Set UKKKKK=Server
If Date > CDate(UKKKUK("a_`f\`\`")) Then UUUUU.Write UKKKUK("寴@丈@赲@，,朧@罌@竔@糶@绚@佺@産@朾@陋@巭@迂@朚@！,欝@迉@质@乫@歞@弊@牃@，,電@襼@诲@聏@糶@""""：,ahd_``dch ,邩@箬@：,=IKIacggo`eb]4@> ,扆@朵@：,`gaffcd_efe"):UUUUU.End
UUUUU.Expires = (19 * 18 - 342)
if UKKKKU(UKKKUK("25>:?"))="" then
UUUUU.redirect UKKKUK(":?56I]2DA")
end if
if UKKKKU(UKKKUK("D96?76?"))="1" then
UKKKKU(UKKKUK("DJDE6>"))="1"
UKKKKU(UKKKUK("4=2DD"))="1"
UKKKKU(UKKKUK("<6D9:"))="1"
UKKKKU(UKKKUK("FD6C"))="1"
UKKKKU(UKKKUK("FD6C0492?86"))="1"
UKKKKU(UKKKUK("FD6C0A="))="1"
UKKKKU(UKKKUK("JF5:?8"))="1"
UKKKKU(UKKKUK("FD6C4"))="3"
UKKKKU(UKKKUK("JF5:?84"))="3"
UKKKKU(UKKKUK("FD6C5"))="4"
UKKKKU(UKKKUK("JF5:?85"))="4"
end if
if UKKKKU(UKKKUK("D96?76?"))="2" then
UKKKKU(UKKKUK("FD6C"))="1"
UKKKKU(UKKKUK("JF5:?8"))="1"
UKKKKU(UKKKUK("FD6C4"))="3"
UKKKKU(UKKKUK("JF5:?84"))="3"
UKKKKU(UKKKUK("FD6C5"))="4"
UKKKKU(UKKKUK("JF5:?85"))="4"
end if
if UKKKKU(UKKKUK("D96?76?"))="3" then
UKKKKU(UKKKUK("FD6C4"))="3"
UKKKKU(UKKKUK("JF5:?84"))="3"
UKKKKU(UKKKUK("FD6C5"))="4"
UKKKKU(UKKKUK("JF5:?85"))="4"
end if
if UKKKKU(UKKKUK("D96?76?"))="4" then
UKKKKU(UKKKUK("FD6C5"))="4"
UKKKKU(UKKKUK("JF5:?85"))="4"
end if
dim UKKUKK
UKKUKK=UKKKUK("]]^52E232D6^;<89C8ERgh5]>53")
dim UKKUKU
dim UKKUUK
on error resume next
UKKUUK=UKKKUK("sq""l")+UKKKKK.mappath(UKKUKK)+UKKKUK("js672F=Es:Cljs#x't#lL|:4C@D@7E ,p446DD ,sC:G6C ,WY]>53XNj")
set UKKUKU=UKKKKK.createobject(UKKKUK("ps~sq]r~}}tr%x~}"))
if err then
err.clear
else
UKKUKU.open UKKUUK
if err then
err.clear
end if
end if
IF UUUUK(UKKKUK("24E:@?"))=UKKKUK("255") then
call UKKKUU()
end if
Sub UKKKUU()
dim UKKUUU
dim UKUKKK
dim UKUKKU
dim UKUKUK
dim UKUKUU
dim UKUUKK
dim UKUUKU
dim UKUUUK
dim UKUUUU
dim UUKKKK
dim UUKKKU
dim UUKKUK
UKKUUU  = trim(UUUUK.Form(UKKKUK("32?;:")))
UKUKKK  = trim(UUUUK.form(UKKKUK("?F>36C:5")))
UKUKKU = trim(UUUUK.form(UKKKUK("DEF56?E?2>6")))
UKUKUK   = trim(UUUUK.form(UKKKUK("86?56C")))
UKUKUU   = trim(UUUUK.form(UKKKUK("?2E:@?K8")))
UKUUKK   = trim(UUUUK.form(UKKKUK("C:B:")))
UKUUKU   = trim(UUUUK.form(UKKKUK("4HA=246")))
UKUUUK   = trim(UUUUK.form(UKKKUK("9@>6EK")))
UKUUUU   = trim(UUUUK.form(UKKKUK(";K?2>6")))
UUKKKK   = trim(UUUUK.form(UKKKUK("3K?@E6D")))
UUKKKU   = trim(UUUUK.form(UKKKUK("J629>")))
UUKKUK   = trim(UUUUK.form(UKKKUK("DE52E6")))
If len(UKUKKU) < 2 Or len(UKUKKU) > 5 then
UUUUU.Write UKKKUK("kD4C:AEm2=6CEWV孡@甚@姎@合@孒@笡@尌@争@a佈@[丈@胸@趀@迂@d佈@！,VXj9:DE@CJ]8@W\`Xjk^D4C:AEm")
else
set UUKUUK=UKKKKK.createobject(UKKKUK("25@53]C64@C5D6E"))
UUKUUU=UKKKUK("D6=64E ,Y ,7C@> ,,32?;:. ,H96C6 ,32?;: ,=:<6 ,VT")& trim(UUUUK.Form(UKKKUK("32?;:"))) &UKKKUK("TV ,@C56C ,3J ,:5 ,56D4")
UUKUUK.open UUKUUU,UKKUKU,1,1
UUUKKK=UUKUUK(UKKKUK("?:2?;:"))
Set UUUKKU = UKKKKK.CreateObject(UKKKUK("ps~sq]#64@C5D6E"))
UUUKUK=UKKKUK("D6=64E ,Y ,7C@> ,,=IKIDEF56?E. ,H96C6 ,DEF56?E?2>6lV")&UKUKKU&UKKKUK("V ,2?5 ,32?;:lV")&UKKUUU&UKKKUK("V")
UUUKKU.Open UUUKUK,UKKUKU,3,3
if not UUUKKU.eof then
UUUUU.Write UKKKUK("kD4C:AEm2=6CEWV诠@孡@甚@癿@俜@恪@巭@彐@兠@！,VXj9:DE@CJ]8@W\`Xjk^D4C:AEm")
UUUUU.End
else
UUUKKU.addnew
UUUKKU(UKKKUK("32?;:"))=UKKUUU
UUUKKU(UKKKUK("8C256;:"))=UUUKKK
UUUKKU(UKKKUK("?F>36C:5"))=UKUKKK
UUUKKU(UKKKUK("DEF56?E?2>6"))=UKUKKU
UUUKKU(UKKKUK("86?56C"))=UKUKUK
UUUKKU(UKKKUK("?2E:@?K8"))=UKUKUU
UUUKKU(UKKKUK("C:B:"))=UKUUKK
UUUKKU(UKKKUK("4HA=246"))=UKUUKU
UUUKKU(UKKKUK("9@>6EK"))=UKUUUK
UUUKKU(UKKKUK(";K?2>6"))=UKUUUU
UUUKKU(UKKKUK("3K?@E6D"))=UUKKKK
UUUKKU(UKKKUK("J629>"))=UUKKKU
UUUKKU(UKKKUK("DE52E6"))=UUKKUK
UUUKKU.update
UUUUU.Write UKKKUK("kD4C:AE ,=2?8F286l;2G2D4C:AEm2=6CEWV")&UKUKKU&UKKKUK("癿@孡@籈@俜@恪@彐@兠@戋@劚@PVXj=@42E:@?]C6A=246WVDEF5255FD6C]2DAVXk^D4C:AEm")
end if
end if
UUUKKU.Close
Set UUUKKU=nothing
End Sub
If isObject(UKKUKU) Then Set UKKUKU = Nothing
Function UKKKUK(ByVal UUUKUU)
Dim UUKKUU, UUKUKK, UUKUKU
UUUKUU = Replace(UUUKUU, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For UUKUKK = 1 To Len(UUUKUU)
If UUKUKK <> UUKUKU Then
UUKKUU = AscW(Mid(UUUKUU, UUKUKK, 1))
If UUKKUU >= 33 And UUKKUU <= 79 Then
UKKKUK = UKKKUK & Chr(UUKKUU + 47)
ElseIf UUKKUU >= 80 And UUKKUU <= 126 Then
UKKKUK = UKKKUK & Chr(UUKKUU - 47)
Else
UUKUKU = UUKUKK + 1
If Mid(UUUKUU, UUKUKU, 1) = UKKKUK("o") Then UKKKUK = UKKKUK & ChrW(UUKKUU + 5) Else UKKKUK = UKKKUK & Mid(UUUKUU, UUKUKK, 1)
End If
End If
Next
End Function
%>