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

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