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

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