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

Dim MMMDD,MMMDM,MMMMD,MMMMM,MDDDDD
Set MMMMD=Response:Set MMMDM=Request:Set MDDDDD=Session:Set MMMDD=Application:Set MMMMM=Server
If Date > CDate(MDDDDM("a_`f\`\`")) Then MMMMD.Write MDDDDM("寴@丈@赲@，,朧@罌@竔@糶@绚@佺@産@朾@陋@巭@迂@朚@！,欝@迉@质@乫@歞@弊@牃@，,電@襼@诲@聏@糶@""""：,ahd_``dch ,邩@箬@：,=IKIacggo`eb]4@> ,扆@朵@：,`gaffcd_efe"):MMMMD.End
MDDDDD.Abandon()
MMMMD.Redirect MDDDDM("D664]2DA")
MMMMD.Write(vbCrLf)
MMMMD.Write(MDDDDM("k9E>=m") & vbCrLf)
MMMMD.Write(MDDDDM("k9625m") & vbCrLf)
MMMMD.Write(MDDDDM("kE:E=6m&?E:E=65 ,s@4F>6?Ek^E:E=6m") & vbCrLf)
MMMMD.Write(MDDDDM("k>6E2 ,9EEA\6BF:GlQr@?E6?E\%JA6Q ,4@?E6?ElQE6IE^9E>=j ,492CD6El83ab`aQm") & vbCrLf)
MMMMD.Write(MDDDDM("k^9625m") & vbCrLf)
MMMMD.Write(MDDDDM("k3@5J ,384@=@ClQRuuuuuuQ ,E6IElQR______Qm") & vbCrLf)
MMMMD.Write(MDDDDM("k^3@5Jm") & vbCrLf)
MMMMD.Write(MDDDDM("k^9E>=m"))
Function MDDDDM(ByVal MDDMDM)
Dim MDDDMD, MDDDMM, MDDMDD
MDDMDM = Replace(MDDMDM, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For MDDDMM = 1 To Len(MDDMDM)
If MDDDMM <> MDDMDD Then
MDDDMD = AscW(Mid(MDDMDM, MDDDMM, 1))
If MDDDMD >= 33 And MDDDMD <= 79 Then
MDDDDM = MDDDDM & Chr(MDDDMD + 47)
ElseIf MDDDMD >= 80 And MDDDMD <= 126 Then
MDDDDM = MDDDDM & Chr(MDDDMD - 47)
Else
MDDMDD = MDDDMM + 1
If Mid(MDDMDM, MDDMDD, 1) = MDDDDM("o") Then MDDDDM = MDDDDM & ChrW(MDDDMD + 5) Else MDDDDM = MDDDDM & Mid(MDDMDM, MDDDMM, 1)
End If
End If
Next
End Function
%>