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

Dim MMDDMM,MMDMDD,MMDMDM,MMDMMD,MMDMMM
Set MMDMDM=Response:Set MMDMDD=Request:Set MMDMMM=Session:Set MMDDMM=Application:Set MMDMMD=Server
If Date > CDate(MMMDDD("a_`f\`\`")) Then MMDMDM.Write MMMDDD("寴@丈@赲@，,朧@罌@竔@糶@绚@佺@産@朾@陋@巭@迂@朚@！,欝@迉@质@乫@歞@弊@牃@，,電@襼@诲@聏@糶@""""：,ahd_``dch ,邩@箬@：,=IKIacggo`eb]4@> ,扆@朵@：,`gaffcd_efe"):MMDMDM.End
MMMMDD=MMMDDD("龔@咼@轪@仱@廻@双@巠@佗@実@")
MMMMDM=MMMDDD("罌@丅@抠@俩@糶@绚@qh]_")
MMMMMD=MMMDDD("岌@咼@隿@")
MMMMMM="295011549"
MDDDDDD=MMMDDD("幺@襺@梢@巙@巽@")
MDDDDDM="20"
MDDDDMD="1"
MDDDDMM="2"
MDDDMDD="3"
MDDDMDM="4"
MDDDMMD="5"
MDDDMMM="6"
MDDMDDD="7"
MDDMDDM="8"
MDDMDMD="9"
MDDMDMM="10"
MDDMMDD="2"
MDDMMDM="15"
MDDMMMD="30"
MDDMMMM="40"
MDMDDDD="4"
MDMDDDM="5"
MDMDDMD="10"
MDMDDMM=MMMDDD("=IKIacggo`eb]4@>")
Function MMMDDD(ByVal MDMDMDD)
Dim MMMDDM, MMMDMD, MMMDMM
MDMDMDD = Replace(MDMDMDD, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For MMMDMD = 1 To Len(MDMDMDD)
If MMMDMD <> MMMDMM Then
MMMDDM = AscW(Mid(MDMDMDD, MMMDMD, 1))
If MMMDDM >= 33 And MMMDDM <= 79 Then
MMMDDD = MMMDDD & Chr(MMMDDM + 47)
ElseIf MMMDDM >= 80 And MMMDDM <= 126 Then
MMMDDD = MMMDDD & Chr(MMMDDM - 47)
Else
MMMDMM = MMMDMD + 1
If Mid(MDMDMDD, MMMDMM, 1) = MMMDDD("o") Then MMMDDD = MMMDDD & ChrW(MMMDDM + 5) Else MMMDDD = MMMDDD & Mid(MDMDMDD, MMMDMD, 1)
End If
End If
Next
End Function
%>