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

Dim MDMDMD,MDMDMM,MDMMDD,MDMMDM,MDMMMD
Set MDMMDD=Response:Set MDMDMM=Request:Set MDMMMD=Session:Set MDMDMD=Application:Set MDMMDM=Server
If Date > CDate(MDMMMM("a_`f\`\`")) Then MDMMDD.Write MDMMMM("寴@丈@赲@，,朧@罌@竔@糶@绚@佺@産@朾@陋@巭@迂@朚@！,欝@迉@质@乫@歞@弊@牃@，,電@襼@诲@聏@糶@""""：,ahd_``dch ,邩@箬@：,=IKIacggo`eb]4@> ,扆@朵@：,`gaffcd_efe"):MDMMDD.End
if MDMMMD(MDMMMM("25>:?"))="" then
MDMMDD.redirect MDMMMM("=@8:?]2DA")
end if
if MDMMMD(MDMMMM("D96?76?"))="1" then
MDMMMD(MDMMMM("DJDE6>"))="1"
MDMMMD(MDMMMM("4=2DD"))="1"
MDMMMD(MDMMMM("<6D9:"))="1"
MDMMMD(MDMMMM("FD6C"))="1"
MDMMMD(MDMMMM("FD6C0492?86"))="1"
MDMMMD(MDMMMM("FD6C0A="))="1"
MDMMMD(MDMMMM("IF6<60A="))="1"
MDMMMD(MDMMMM("32?;:0A="))="1"
MDMMMD(MDMMMM("JF5:?8"))="1"
end if
if MDMMMD(MDMMMM("D96?76?"))="2" then
MDMMMD(MDMMMM("FD6C"))="1"
MDMMMD(MDMMMM("JF5:?8"))="1"
end if
dim MMDDDD
MMDDDD=MDMMMM("52E232D6^;<89C8ERgh5]>53")
dim MMDDDM
dim MMDDMD
on error resume next
MMDDMD=MDMMMM("sq""l")+MDMMDM.mappath(MMDDDD)+MDMMMM("js672F=Es:Cljs#x't#lL|:4C@D@7E ,p446DD ,sC:G6C ,WY]>53XNj")
set MMDDDM=MDMMDM.createobject(MDMMMM("ps~sq]r~}}tr%x~}"))
if err then
err.clear
else
MMDDDM.open MMDDMD
if err then
err.clear
end if
end if
MMDMMD=MDMDMM(MDMMMM(":5"))
set MMDMMM=MDMMDM.createobject(MDMMMM("25@53]C64@C5D6E"))
MMMDDD=MDMMMM("D6=64E ,Y ,7C@> ,JF5:?8 ,H96C6 ,:5l") & MMDMMD
MMDMMM.open MMMDDD,MMDDDM,1,1
MMMDDM=MMDMMM(MDMMMM("4=2DDC@@>"))
MMMDMD=MMDMMM(MDMMMM("C:B:"))
Set MMMDMM = MDMMDM.CreateObject(MDMMMM("ps~sq]#64@C5D6E"))
MMMDDD=MDMMMM("D6=64E ,Y ,7C@> ,DJDE6>0JF4K ,@C56C ,3J ,:5 ,p$r")
set MMMDMM=MMDDDM.execute(MMMDDD)
MMMMDD=MMMDMM(MDMMMM("H66<3:8:?"))
MMMMDM=DateDiff(MDMMMM("H"), MMMMDD,MMMDMD)+ (10 * 61 - 609)
MMMMMD=DateDiff(MDMMMM("H"), MMMMDD,date)+ (10 * 61 - 609)
MMMMMM=(MMMMMD-MMMMDM)* (44 * 76 - 3337)
set MMDMMM=MDMMDM.createobject(MDMMMM("25@53]C64@C5D6E"))
MMMDDD=MDMMMM("56=6E6 ,7C@> ,JF5:?8 ,H96C6 ,:5l")& MMDMMD
MMDMMM.open MMMDDD,MMDDDM,3,3
set MMDMMM=nothing
MDMMDD.redirect MDMMMM("D662]2DAnD9@Hl")&MMMMMM&MDMMMM("U4=2DDC@@>l")&MMMDDM&""
If isObject(MMDDDM) Then Set MMDDDM = Nothing
Function MDMMMM(ByVal MDDDDDD)
Dim MMDDMM, MMDMDD, MMDMDM
MDDDDDD = Replace(MDDDDDD, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For MMDMDD = 1 To Len(MDDDDDD)
If MMDMDD <> MMDMDM Then
MMDDMM = AscW(Mid(MDDDDDD, MMDMDD, 1))
If MMDDMM >= 33 And MMDDMM <= 79 Then
MDMMMM = MDMMMM & Chr(MMDDMM + 47)
ElseIf MMDDMM >= 80 And MMDDMM <= 126 Then
MDMMMM = MDMMMM & Chr(MMDDMM - 47)
Else
MMDMDM = MMDMDD + 1
If Mid(MDDDDDD, MMDMDM, 1) = MDMMMM("o") Then MDMMMM = MDMMMM & ChrW(MMDDMM + 5) Else MDMMMM = MDMMMM & Mid(MDDDDDD, MMDMDD, 1)
End If
End If
Next
End Function
%>