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

Dim MDMMD,MDMMM,MMDDD,MMDDM,MMDMD
Set MMDDD=Response:Set MDMMM=Request:Set MMDMD=Session:Set MDMMD=Application:Set MMDDM=Server
If Date > CDate(MMDMM("a_`f\`\`")) Then MMDDD.Write MMDMM("寴@丈@赲@，,朧@罌@竔@糶@绚@佺@産@朾@陋@巭@迂@朚@！,欝@迉@质@乫@歞@弊@牃@，,電@襼@诲@聏@糶@""""：,ahd_``dch ,邩@箬@：,=IKIacggo`eb]4@> ,扆@朵@：,`gaffcd_efe"):MMDDD.End
MMDDD.Expires = (32 * 108 - 3456)
if MMDMD(MMDMM("25>:?"))="" then
MMDDD.redirect MMDMM("=@8:?]2DA")
end if
if MMDMD(MMDMM("D96?76?"))="1" then
MMDMD(MMDMM("DJDE6>"))="1"
MMDMD(MMDMM("4=2DD"))="1"
MMDMD(MMDMM("<6D9:"))="1"
MMDMD(MMDMM("FD6C"))="1"
MMDMD(MMDMM("FD6C0492?86"))="1"
MMDMD(MMDMM("FD6C0A="))="1"
MMDMD(MMDMM("IF6<60A="))="1"
MMDMD(MMDMM("32?;:0A="))="1"
MMDMD(MMDMM("JF5:?8"))="1"
end if
if MMDMD(MMDMM("D96?76?"))="2" then
MMDMD(MMDMM("FD6C"))="1"
MMDMD(MMDMM("JF5:?8"))="1"
end if
if MMDMD(MMDMM("D96?76?"))<>"1" then
MMDDD.redirect MMDMM("6CC]2DAn6CCl`")
end if
dim MMMDD
MMMDD=MMDMM("52E232D6^;<89C8ERgh5]>53")
dim MMMDM
dim MMMMD
on error resume next
MMMMD=MMDMM("sq""l")+MMDDM.mappath(MMMDD)+MMDMM("js672F=Es:Cljs#x't#lL|:4C@D@7E ,p446DD ,sC:G6C ,WY]>53XNj")
set MMMDM=MMDDM.createobject(MMDMM("ps~sq]r~}}tr%x~}"))
if err then
err.clear
else
MMMDM.open MMMMD
if err then
err.clear
end if
end if
set MDDDMD=MMDDM.createobject(MMDMM("25@53]C64@C5D6E"))
MDDDMM=MMDMM("D6=64E ,Y ,7C@> ,32?;: ,H96C6 ,:5l") & MDMMM.form(MMDMM(":5"))
MDDDMD.open MDDDMM,MMMDM,3,3
MDDDMD(MMDMM("32?;:"))=MDMMM.form(MMDMM("32?;:?2>6`"))
MDDDMD.update
MDDDMD.close
MMMDM.close
MMDDD.redirect MMDMM("32?;:]2DA")
If isObject(MMMDM) Then Set MMMDM = Nothing
Function MMDMM(ByVal MDDMDD)
Dim MMMMM, MDDDDD, MDDDDM
MDDMDD = Replace(MDDMDD, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For MDDDDD = 1 To Len(MDDMDD)
If MDDDDD <> MDDDDM Then
MMMMM = AscW(Mid(MDDMDD, MDDDDD, 1))
If MMMMM >= 33 And MMMMM <= 79 Then
MMDMM = MMDMM & Chr(MMMMM + 47)
ElseIf MMMMM >= 80 And MMMMM <= 126 Then
MMDMM = MMDMM & Chr(MMMMM - 47)
Else
MDDDDM = MDDDDD + 1
If Mid(MDDMDD, MDDDDM, 1) = MMDMM("o") Then MMDMM = MMDMM & ChrW(MMMMM + 5) Else MMDMM = MMDMM & Mid(MDDMDD, MDDDDD, 1)
End If
End If
Next
End Function
%>