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

Dim MMMMMM,MDDDDDD,MDDDDDM,MDDDDMD,MDDDDMM
Set MDDDDDM=Response:Set MDDDDDD=Request:Set MDDDDMM=Session:Set MMMMMM=Application:Set MDDDDMD=Server
If Date > CDate(MDDDMDD("a_`f\`\`")) Then MDDDDDM.Write MDDDMDD("寴@丈@赲@，,朧@罌@竔@糶@绚@佺@産@朾@陋@巭@迂@朚@！,欝@迉@质@乫@歞@弊@牃@，,電@襼@诲@聏@糶@""""：,ahd_``dch ,邩@箬@：,=IKIacggo`eb]4@> ,扆@朵@：,`gaffcd_efe"):MDDDDDM.End
if MDDDDMM(MDDDMDD("25>:?"))="" then
MDDDDDM.redirect MDDDMDD("=@8:?]2DA")
end if
if MDDDDMM(MDDDMDD("D96?76?"))="1" then
MDDDDMM(MDDDMDD("DJDE6>"))="1"
MDDDDMM(MDDDMDD("4=2DD"))="1"
MDDDDMM(MDDDMDD("<6D9:"))="1"
MDDDDMM(MDDDMDD("FD6C"))="1"
MDDDDMM(MDDDMDD("FD6C0492?86"))="1"
MDDDDMM(MDDDMDD("FD6C0A="))="1"
MDDDDMM(MDDDMDD("IF6<60A="))="1"
MDDDDMM(MDDDMDD("32?;:0A="))="1"
MDDDDMM(MDDDMDD("JF5:?8"))="1"
end if
if MDDDDMM(MDDDMDD("D96?76?"))="2" then
MDDDDMM(MDDDMDD("FD6C"))="1"
MDDDDMM(MDDDMDD("JF5:?8"))="1"
end if
if MDDDDMM(MDDDMDD("FD6C"))<>"1" then
MDDDDDM.redirect MDDDMDD("6CC]2DAn6CCl`")
end if
dim MDDDMDM
MDDDMDM=MDDDMDD("52E232D6^;<89C8ERgh5]>53")
dim MDDDMMD
dim MDDDMMM
on error resume next
MDDDMMM=MDDDMDD("sq""l")+MDDDDMD.mappath(MDDDMDM)+MDDDMDD("js672F=Es:Cljs#x't#lL|:4C@D@7E ,p446DD ,sC:G6C ,WY]>53XNj")
set MDDDMMD=MDDDDMD.createobject(MDDDMDD("ps~sq]r~}}tr%x~}"))
if err then
err.clear
else
MDDDMMD.open MDDDMMM
if err then
err.clear
end if
end if
dim MDDMDDD, MDDMDDM, MDDMDMD
MDDMDMD=MDDDDDD(MDDDMDD("xs"))
set MDDMDDM=MDDDDMD.createobject(MDDDMDD("25@53]C64@C5D6E"))
MDDMMMD=MDDDMDD("56=6E6 ,7C@> ,88EJ ,H96C6 ,:5l")& MDDMDMD
MDDMDDM.open MDDMMMD,MDDDMMD,3,3
set MDDMDDM=nothing
MDDDDDM.redirect MDDDMDD("DJDE6>0E;]2DA")
If isObject(MDDDMMD) Then Set MDDDMMD = Nothing
Function MDDDMDD(ByVal MDDMMMM)
Dim MDDMDMM, MDDMMDD, MDDMMDM
MDDMMMM = Replace(MDDMMMM, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For MDDMMDD = 1 To Len(MDDMMMM)
If MDDMMDD <> MDDMMDM Then
MDDMDMM = AscW(Mid(MDDMMMM, MDDMMDD, 1))
If MDDMDMM >= 33 And MDDMDMM <= 79 Then
MDDDMDD = MDDDMDD & Chr(MDDMDMM + 47)
ElseIf MDDMDMM >= 80 And MDDMDMM <= 126 Then
MDDDMDD = MDDDMDD & Chr(MDDMDMM - 47)
Else
MDDMMDM = MDDMMDD + 1
If Mid(MDDMMMM, MDDMMDM, 1) = MDDDMDD("o") Then MDDDMDD = MDDDMDD & ChrW(MDDMDMM + 5) Else MDDDMDD = MDDDMDD & Mid(MDDMMMM, MDDMMDD, 1)
End If
End If
Next
End Function
%>