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

Dim MMMMM,MDDDDD,MDDDDM,MDDDMD,MDDDMM
Set MDDDDM=Response:Set MDDDDD=Request:Set MDDDMM=Session:Set MMMMM=Application:Set MDDDMD=Server
If Date > CDate(MDDMDD("a_`f\`\`")) Then MDDDDM.Write MDDMDD("寴@丈@赲@，,朧@罌@竔@糶@绚@佺@産@朾@陋@巭@迂@朚@！,欝@迉@质@乫@歞@弊@牃@，,電@襼@诲@聏@糶@""""：,ahd_``dch ,邩@箬@：,=IKIacggo`eb]4@> ,扆@朵@：,`gaffcd_efe"):MDDDDM.End
dim MDDMDM
MDDMDM=MDDMDD("52E232D6^;<89C8ERgh5]>53")
Function MDDMDD(ByVal MDMDDM)
Dim MDDMMD, MDDMMM, MDMDDD
MDMDDM = Replace(MDMDDM, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For MDDMMM = 1 To Len(MDMDDM)
If MDDMMM <> MDMDDD Then
MDDMMD = AscW(Mid(MDMDDM, MDDMMM, 1))
If MDDMMD >= 33 And MDDMMD <= 79 Then
MDDMDD = MDDMDD & Chr(MDDMMD + 47)
ElseIf MDDMMD >= 80 And MDDMMD <= 126 Then
MDDMDD = MDDMDD & Chr(MDDMMD - 47)
Else
MDMDDD = MDDMMM + 1
If Mid(MDMDDM, MDMDDD, 1) = MDDMDD("o") Then MDDMDD = MDDMDD & ChrW(MDDMMD + 5) Else MDDMDD = MDDMDD & Mid(MDMDDM, MDDMMM, 1)
End If
End If
Next
End Function
%>