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

Dim UUKKK,UUKKU,UUKUK,UUKUU,UUUKK
Set UUKUK=Response:Set UUKKU=Request:Set UUUKK=Session:Set UUKKK=Application:Set UUKUU=Server
If Date > CDate(UUUKU("a_`f\`\`")) Then UUKUK.Write UUUKU("寴@丈@赲@，,朧@罌@竔@糶@绚@佺@産@朾@陋@巭@迂@朚@！,欝@迉@质@乫@歞@弊@牃@，,電@襼@诲@聏@糶@""""：,ahd_``dch ,邩@箬@：,=IKIacggo`eb]4@> ,扆@朵@：,`gaffcd_efe"):UUKUK.End
dim UKKKKK
UKKKKK=UUUKU("52E232D6^;<89C8ERgh5]>53")
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
dim UUKUKU
UKKKKU=UUUKU("sq""l")+UUKUU.MapPath(UKKKKK)+UUUKU("js672F=Es:Cljs#x't#lL|:4C@D@7E ,p446DD ,sC:G6C ,WY]>53XN")
set UUUKKU=UUKUU.CreateObject(UUUKU("ps~sq]r@??64E:@?"))
UUUKKU.open UKKKKU
UKKKUK=UUUKU("D6=64E ,Y ,7C@> ,DJDE6>")
on error resume next
set UKKKUU=UUKUU.CreateObject(UUUKU("p5@53]C64@C5D6E"))
UKKKUU.open UKKKUK,UUUKKU,1,1
UKKUKK=UKKKUU(UUUKU("4H=IKI"))
UKKUKU=UKKKUU(UUUKU("D49@@="))
UKKUUK=UKKKUU(UUUKU("H63D:E6"))
UKKUUU=UKKKUU(UUUKU("=@8@"))
UKUKKK=UKKKUU(UUUKU("?2>6"))
UKUKKU=UKKKUU(UUUKU("6>2:="))
UKUKUK=UKKKUU(UUUKU("25C6DD"))
UKUKUU=UKKKUU(UUUKU("E6="))
UKUUKK=UKKKUU(UUUKU("3@EE@>"))
UKUUKU=UKKKUU(UUUKU("FD6CE;"))
UKUUUK=UKKKUU(UUUKU("E@AC:8E"))
UKUUUU=UKKKUU(UUUKU("D9JIKAE"))
UUKKKK=UKKKUU(UUUKU("BB"))
UUKKKU=UKKKUU(UUUKU("46="))
UUKKUK=UKKKUU(UUUKU("A@H6C"))
UUKKUU=UKKKUU(UUUKU("?@E:462"))
UUKUKK=UKKKUU(UUUKU("?@E:463"))
UUKUKU=UKKKUU(UUUKU("?@E:46"))
UKKKUU.close
set UKKKUU=nothing
Sub UUUUK()
UUUKUK.close()
set UUUKUK=nothing
End Sub
Sub UUUUU()
UUUKKU.close()
set UUUKKU=nothing
End Sub
if UUUKK(UUUKU("25>:?"))="" then
UUKUK.redirect UUUKU("=@8:?]2DA")
end if
if UUUKK(UUUKU("D96?76?"))="1" then
UUUKK(UUUKU("DJDE6>"))="1"
UUUKK(UUUKU("4=2DD"))="1"
UUUKK(UUUKU("<6D9:"))="1"
UUUKK(UUUKU("FD6C"))="1"
UUUKK(UUUKU("FD6C0492?86"))="1"
UUUKK(UUUKU("FD6C0A="))="1"
UUUKK(UUUKU("IF6<60A="))="1"
UUUKK(UUUKU("32?;:0A="))="1"
UUUKK(UUUKU("JF5:?8"))="1"
end if
if UUUKK(UUUKU("D96?76?"))="2" then
UUUKK(UUUKU("FD6C"))="1"
UUUKK(UUUKU("JF5:?8"))="1"
end if
UUKUK.Write(vbCrLf)
UUKUK.Write(UUUKU("k9E>=m") & vbCrLf)
UUKUK.Write(UUUKU("k9625m") & vbCrLf)
UUKUK.Write(UUUKU("k>6E2 ,?2>6lQvt}t#p%~#Q ,4@?E6?ElQ|:4C@D@7E ,uC@?E!286 ,d]_Qm") & vbCrLf)
UUKUK.Write(UUUKU("k>6E2 ,?2>6lQ!C@8x5Q ,4@?E6?ElQuC@?E!286]t5:E@C]s@4F>6?EQm") & vbCrLf)
UUKUK.Write(UUUKU("k>6E2 ,w%%!\t""&x'lQr@?E6?E\%JA6Q ,r~}%t}%lQE6IE^9E>=j ,492CD6El83ab`aQm") & vbCrLf)
UUKUK.Write(UUUKU("kE:E=6m"))
UUKUK.Write UKKUKU
UUKUK.Write(UUUKU(" ,mm ,孡@甚@孡@籈@罌@绗@箜@琁@糶@绚@)g]_ ,mm ,吉@叫@箜@琁@k^E:E=6m") & vbCrLf)
UUKUK.Write(UUUKU("k^9625m") & vbCrLf)
UUKUK.Write(UUUKU("k7C2>6D6E ,7C2>6 ,C@HDlQh_[Y[ahQ ,4@=DlQYQ ,7C2>63@C56ClQ*6DQ ,3@C56ClQ_Qm") & vbCrLf)
UUKUK.Write(UUUKU(" , ,k7C2>6 ,?2>6lQsC62>9@>60$JD0%@AQ ,D4C@==:?8lQ?@Q ,?@C6D:K6 ,E2C86ElQ4@?E6?EDQ ,DC4lQ$JDx?7@]2DAnsC62>9@>6$JD$9@HlsC62>9@>6$JD0%@AQm") & vbCrLf)
UUKUK.Write(UUUKU(" , ,k7C2>6D6E ,:5lsC62>9@>6$JD%6> ,4@=DlQ`hf[YQ ,7C2>6DA24:?8lQ_Q ,7C2>63@C56ClQ?@Q ,3@C56ClQ_Q ,3@C56C4@=@ClQR__edhrQm") & vbCrLf)
UUKUK.Write(UUUKU(" , , , ,k7C2>6 ,?2>6lQsC62>9@>6$JD0{67EQ ,E2C86ElQ>2:?Q ,DC4lQ{67E]2DAQ ,D4C@==:?8lQ2FE@Q ,>2C8:?H:5E9lQ_Q ,>2C8:?96:89ElQ_Qm") & vbCrLf)
UUKUK.Write(UUUKU(" , , , ,k7C2>6 ,?2>6lQsC62>9@>6$JD0|2:?Q ,D4C@==:?8lQ2FE@Q ,?@C6D:K6 ,DC4lQ$6>6DE6C8=^DEF56?E25>:?]2DAQm") & vbCrLf)
UUKUK.Write(UUUKU(" , ,k^7C2>6D6Em") & vbCrLf)
UUKUK.Write(UUUKU(" , ,k7C2>6 ,?2>6lQsC62>9@>6$JD0q@EE@>Q ,D4C@==:?8lQ?@Q ,?@C6D:K6 ,E2C86ElQ4@?E6?EDQ ,DC4lQ$JDx?7@]2DAnsC62>9@>6$JD$9@HlsC62>9@>6$JD0q@EE@>Qm") & vbCrLf)
UUKUK.Write(UUUKU(" , ,k?@7C2>6Dm") & vbCrLf)
UUKUK.Write(UUUKU(" , ,k3@5Jm") & vbCrLf)
UUKUK.Write(UUUKU(" , ,kAm歟@罌@顰@佺@産@亁@桁@枱@，,佁@患@癿@浊@觃@噣@丈@攪@拼@桁@枱@]k^Am") & vbCrLf)
UUKUK.Write(UUUKU(" , ,k^3@5Jm") & vbCrLf)
UUKUK.Write(UUUKU(" , ,k^?@7C2>6Dm") & vbCrLf)
UUKUK.Write(UUUKU("k^7C2>6D6Em") & vbCrLf)
UUKUK.Write(UUUKU("k^9E>=m") & vbCrLf)
Function UUUKU(ByVal UUUKUU)
Dim UUKUUK, UUKUUU, UUUKKK
UUUKUU = Replace(UUUKUU, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For UUKUUU = 1 To Len(UUUKUU)
If UUKUUU <> UUUKKK Then
UUKUUK = AscW(Mid(UUUKUU, UUKUUU, 1))
If UUKUUK >= 33 And UUKUUK <= 79 Then
UUUKU = UUUKU & Chr(UUKUUK + 47)
ElseIf UUKUUK >= 80 And UUKUUK <= 126 Then
UUUKU = UUUKU & Chr(UUKUUK - 47)
Else
UUUKKK = UUKUUU + 1
If Mid(UUUKUU, UUUKKK, 1) = UUUKU("o") Then UUUKU = UUUKU & ChrW(UUKUUK + 5) Else UUUKU = UUUKU & Mid(UUUKUU, UUKUUU, 1)
End If
End If
Next
End Function
%>