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

Dim MDMDMM,MDMMDD,MDMMDM,MDMMMD,MDMMMM
Set MDMMDM=Response:Set MDMMDD=Request:Set MDMMMM=Session:Set MDMDMM=Application:Set MDMMMD=Server
If Date > CDate(MMDDDD("a_`f\`\`")) Then MDMMDM.Write MMDDDD("寴@丈@赲@，,朧@罌@竔@糶@绚@佺@産@朾@陋@巭@迂@朚@！,欝@迉@质@乫@歞@弊@牃@，,電@襼@诲@聏@糶@""""：,ahd_``dch ,邩@箬@：,=IKIacggo`eb]4@> ,扆@朵@：,`gaffcd_efe"):MDMMDM.End
if MDMMMM(MMDDDD("25>:?"))="" then
MDMMDM.redirect MMDDDD("=@8:?]2DA")
end if
if MDMMMM(MMDDDD("D96?76?"))="1" then
MDMMMM(MMDDDD("DJDE6>"))="1"
MDMMMM(MMDDDD("4=2DD"))="1"
MDMMMM(MMDDDD("<6D9:"))="1"
MDMMMM(MMDDDD("FD6C"))="1"
MDMMMM(MMDDDD("FD6C0492?86"))="1"
MDMMMM(MMDDDD("FD6C0A="))="1"
MDMMMM(MMDDDD("IF6<60A="))="1"
MDMMMM(MMDDDD("32?;:0A="))="1"
MDMMMM(MMDDDD("JF5:?8"))="1"
end if
if MDMMMM(MMDDDD("D96?76?"))="2" then
MDMMMM(MMDDDD("FD6C"))="1"
MDMMMM(MMDDDD("JF5:?8"))="1"
end if
if MDMMMM(MMDDDD("4=2DD"))<>"1" then
MDMMDM.redirect MMDDDD("6CC]2DAn6CCl`")
end if
dim MMDDDM
MMDDDM=MMDDDD("52E232D6^;<89C8ERgh5]>53")
dim MMDDMD
dim MMDDMM
on error resume next
MMDDMM=MMDDDD("sq""l")+MDMMMD.mappath(MMDDDM)+MMDDDD("js672F=Es:Cljs#x't#lL|:4C@D@7E ,p446DD ,sC:G6C ,WY]>53XNj")
set MMDDMD=MDMMMD.createobject(MMDDDD("ps~sq]r~}}tr%x~}"))
if err then
err.clear
else
MMDDMD.open MMDDMM
if err then
err.clear
end if
end if
dim MMDMDD, MMDMDM, MMDMMD,MMDMMM
MMDMMM = MDMMDD(MMDDDD("!286"))
MMDMMD=MDMMDD(MMDDDD("xs"))
set MMDMDM=MDMMMD.createobject(MMDDDD("25@53]C64@C5D6E"))
MMMDMM=MMDDDD("56=6E6 ,7C@> ,7:=6D ,H96C6 ,:5l")& MMDMMD
MMDMDM.open MMMDMM,MMDDMD,3,3
set MMDMDM=nothing
MDMMDM.write MMDDDD("kD4C:AE ,=2?8F286ly2G2$4C:AEm") & chr(13) & MMDDDD("2=6CEWV创@陟@戋@劚@PVXj") & MMDDDD("9:DE@CJ]324<WXj ,") & MMDDDD("k^D4C:AEm")
If isObject(MMDDMD) Then Set MMDDMD = Nothing
Function MMDDDD(ByVal MMMMDD)
Dim MMMDDD, MMMDDM, MMMDMD
MMMMDD = Replace(MMMMDD, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For MMMDDM = 1 To Len(MMMMDD)
If MMMDDM <> MMMDMD Then
MMMDDD = AscW(Mid(MMMMDD, MMMDDM, 1))
If MMMDDD >= 33 And MMMDDD <= 79 Then
MMDDDD = MMDDDD & Chr(MMMDDD + 47)
ElseIf MMMDDD >= 80 And MMMDDD <= 126 Then
MMDDDD = MMDDDD & Chr(MMMDDD - 47)
Else
MMMDMD = MMMDDM + 1
If Mid(MMMMDD, MMMDMD, 1) = MMDDDD("o") Then MMDDDD = MMDDDD & ChrW(MMMDDD + 5) Else MMDDDD = MMDDDD & Mid(MMMMDD, MMMDDM, 1)
End If
End If
Next
End Function
%>