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

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