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

Dim UUUKKU,UUUKUK,UUUKUU,UUUUKK,UUUUKU
Set UUUKUU=Response:Set UUUKUK=Request:Set UUUUKU=Session:Set UUUKKU=Application:Set UUUUKK=Server
If Date > CDate(UUUUUK("a_`f\`\`")) Then UUUKUU.Write UUUUUK("寴@丈@赲@，,朧@罌@竔@糶@绚@佺@産@朾@陋@巭@迂@朚@！,欝@迉@质@乫@歞@弊@牃@，,電@襼@诲@聏@糶@""""：,ahd_``dch ,邩@箬@：,=IKIacggo`eb]4@> ,扆@朵@：,`gaffcd_efe"):UUUKUU.End
Sub UUUUUU(UKKUUUU)
UUUKUU.Write UUUUUK("kD4C:AE ,=2?8F286l;2G2D4C:AEm2=6CEWV")&UKKUUUU&UUUUUK("VXjH:?5@H]9:DE@CJ]324<WXjk^D4C:AEm")
UUUKUU.End
End Sub
Sub UKKKKKK(UKKUUUU, UKUKKKK)
UUUKUU.Write UUUUUK("kD4C:AE ,=2?8F286l;2G2D4C:AEm2=6CEWV")&UKKUUUU&UUUUUK("VXjH:?5@H]=@42E:@?]9C67lV")&UKUKKKK&UUUUUK("Vk^D4C:AEm")
UUUKUU.End
End Sub
Sub UKKKKKU
If UUUKUK.QueryString(UUUUUK(":5")) = "" Or Not IsNumeric(UUUKUK.QueryString(UUUUUK(":5"))) Then
Call UUUUUU(UUUUUK("静@泐@擈@佗@！,"))
End If
End sub
Sub UKKKKUK
UKKUKKK.Close
Set UKKUKKK = Nothing
End Sub
Sub UKKKKUU
UKKUKKU.Close
Set UKKUKKU = Nothing
End Sub
Sub UKKKUKK
UKKUKUK = UUUUUK("9EEAi^^") & UUUKUK.servervariables(UUUUUK("9EEA09@DE")) & UUUKUK.servervariables(UUUUUK("D4C:AE0?2>6"))
UKKUKUU = Split(UUUKUK.servervariables(UUUUUK("BF6CJ0DEC:?8")), UUUUUK("U"))
For Each x in UKKUKUU
UKKUUKK = Split(x, UUUUUK("l"))
If StrComp(UKKUUKK(0), UUUUUK("A286"), vbTextCompare) <> 0 Then
UKKUUKU = UKKUUKU & UKKUUKK(0) & UUUUUK("l") & UKKUUKK(1) & UUUUUK("U")
End If
Next
UUUKUU.Write(UUUUUK("kE23=6 ,2=:8?lV46?E6CVmk7@C> ,>6E9@5lV86EV ,@?DF3>:ElQ5@4F>6?E]=@42E:@? ,l ,V")&UKKUKUK&UUUUUK("n")&UKKUUKU&UUUUUK("A286lVZ ,E9:D]A286]G2=F6jC6EFC? ,72=D6jQmkECmkE5 ,2=:8?lV46?E6CVm"))
If page<= 1 Then
UUUKUU.Write (UUUUUK("k7@?E ,4@=@ClVR______Vm馑@顰@ ,丅@一,顰@ ,k^7@?Em"))
Else
UUUKUU.Write(UUUUUK("k2 ,9C67lV")&UKKUKUK&UUUUUK("n")&UKKUUKU&UUUUUK("A286l`Vmk7@?E ,4@=@ClVRuu____Vm馑@顰@k^7@?Emk^2m ,k2 ,9C67lV")&UKKUKUK&UUUUUK("n")&UKKUUKU&UUUUUK("A286l")&(page -1)&UUUUUK("Vmk7@?E ,4@=@ClVRuu____Vm丅@一,顰@k^7@?Emk^2m ,"))
End If
If page>= maxpage Then
UUUKUU.Write (UUUUUK("k7@?E ,4@=@ClVR______Vm丆@一,顰@ ,尹@顰@ ,k^7@?Em"))
Else
UUUKUU.Write(UUUUUK("k2 ,9C67lV")&UKKUKUK&UUUUUK("n")&UKKUUKU&UUUUUK("A286l")&(page+1)&UUUUUK("Vmk7@?E ,4@=@ClVRuu____Vm丆@一,顰@k^7@?Emk^2m ,k2 ,9C67lV")&UKKUKUK&UUUUUK("n")&UKKUUKU&UUUUUK("A286l")&maxpage&UUUUUK("Vmk7@?E ,4@=@ClVRuu____Vm尹@顰@k^7@?Emk^2m ,"))
End If
UUUKUU.Write(UUUUUK(",")&page&UUUUUK("^")&maxpage&UUUUUK("顰@. ,,公@")&allpage&UUUUUK("杜@讫@彐@. ,轧@别@笧@ ,k:?AFE ,EJA6lVE6IEV ,?2>6lVA286V ,D:K6lVbV ,G2=F6lV")&page&UUUUUK("Vm ,顰@ ,k:?AFE ,EJA6lVDF3>:EV ,G2=F6lV跮@轧@V^mk^E5mk^ECmk^7@C>mk^E23=6m"))
End Sub
Function UUUUUK(ByVal UKKUUUK)
Dim UKKKUKU, UKKKUUK, UKKKUUU
UKKUUUK = Replace(UKKUUUK, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For UKKKUUK = 1 To Len(UKKUUUK)
If UKKKUUK <> UKKKUUU Then
UKKKUKU = AscW(Mid(UKKUUUK, UKKKUUK, 1))
If UKKKUKU >= 33 And UKKKUKU <= 79 Then
UUUUUK = UUUUUK & Chr(UKKKUKU + 47)
ElseIf UKKKUKU >= 80 And UKKKUKU <= 126 Then
UUUUUK = UUUUUK & Chr(UKKKUKU - 47)
Else
UKKKUUU = UKKKUUK + 1
If Mid(UKKUUUK, UKKKUUU, 1) = UUUUUK("o") Then UUUUUK = UUUUUK & ChrW(UKKKUKU + 5) Else UUUUUK = UUUUUK & Mid(UKKUUUK, UKKKUUK, 1)
End If
End If
Next
End Function
%>