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

Dim MMMMM,MDDDDD,MDDDDM,MDDDMD,MDDDMM
Set MDDDDM=Response:Set MDDDDD=Request:Set MDDDMM=Session:Set MMMMM=Application:Set MDDDMD=Server
If Date > CDate(MDDMDD("a_`f\`\`")) Then MDDDDM.Write MDDMDD("寴@丈@赲@，,朧@罌@竔@糶@绚@佺@産@朾@陋@巭@迂@朚@！,欝@迉@质@乫@歞@弊@牃@，,電@襼@诲@聏@糶@""""：,ahd_``dch ,邩@箬@：,=IKIacggo`eb]4@> ,扆@朵@：,`gaffcd_efe"):MDDDDM.End
if MDDDMM(MDDMDD("25>:?"))="" then
MDDDDM.redirect MDDMDD("=@8:?]2DA")
end if
if MDDDMM(MDDMDD("D96?76?"))="1" then
MDDDMM(MDDMDD("DJDE6>"))="1"
MDDDMM(MDDMDD("4=2DD"))="1"
MDDDMM(MDDMDD("<6D9:"))="1"
MDDDMM(MDDMDD("FD6C"))="1"
MDDDMM(MDDMDD("FD6C0492?86"))="1"
MDDDMM(MDDMDD("FD6C0A="))="1"
MDDDMM(MDDMDD("IF6<60A="))="1"
MDDDMM(MDDMDD("32?;:0A="))="1"
MDDDMM(MDDMDD("JF5:?8"))="1"
end if
if MDDDMM(MDDMDD("D96?76?"))="2" then
MDDDMM(MDDMDD("FD6C"))="1"
MDDDMM(MDDMDD("JF5:?8"))="1"
end if
dim MDDMDM
MDDMDM=MDDMDD("52E232D6^;<89C8ERgh5]>53")
dim MDDMMD
dim MDDMMM
on error resume next
MDDMMM=MDDMDD("sq""l")+MDDDMD.mappath(MDDMDM)+MDDMDD("js672F=Es:Cljs#x't#lL|:4C@D@7E ,p446DD ,sC:G6C ,WY]>53XNj")
set MDDMMD=MDDDMD.createobject(MDDMDD("ps~sq]r~}}tr%x~}"))
if err then
err.clear
else
MDDMMD.open MDDMMM
if err then
err.clear
end if
end if
if MDDDMM(MDDMDD("D96?76?"))<>"1" then
MDDDDM.redirect MDDMDD("6CC]2DAn6CCl`")
end if
MDDDDM.Write(vbCrLf)
MDDDDM.Write(MDDMDD("k9E>=m") & vbCrLf)
MDDDDM.Write(MDDMDD("k9625m") & vbCrLf)
MDDDDM.Write(MDDMDD("kE:E=6m臥@宕@释@淶@力@産@戲@k^E:E=6m") & vbCrLf)
MDDDDM.Write(MDDMDD("k>6E2 ,9EEA\6BF:GlQr@?E6?E\%JA6Q ,4@?E6?ElQE6IE^9E>=j ,492CD6El83ab`aQm") & vbCrLf)
MDDDDM.Write(MDDMDD("k$%*{t ,EJA6lE6IE^4DDm") & vbCrLf)
MDDDDM.Write(MDDMDD("]>2:? ,L") & vbCrLf)
MDDDDM.Write(MDDMDD("	,u~}%\$x+ti ,`aAI") & vbCrLf)
MDDDDM.Write(MDDMDD("N") & vbCrLf)
MDDDDM.Write(MDDMDD("]>2:?` ,L") & vbCrLf)
MDDDDM.Write(MDDMDD("	,u~}%\$x+ti ,`cAI") & vbCrLf)
MDDDDM.Write(MDDMDD("N") & vbCrLf)
MDDDDM.Write(MDDMDD("]>2:?a ,L") & vbCrLf)
MDDDDM.Write(MDDMDD("	,u~}%\$x+ti ,`eAI") & vbCrLf)
MDDDDM.Write(MDDMDD("N") & vbCrLf)
MDDDDM.Write(MDDMDD("]>2:?b ,L") & vbCrLf)
MDDDDM.Write(MDDMDD("	,u~}%\$x+ti ,fAI") & vbCrLf)
MDDDDM.Write(MDDMDD("N") & vbCrLf)
MDDDDM.Write(MDDMDD("]>2:?c ,L") & vbCrLf)
MDDDDM.Write(MDDMDD("	,u~}%\$x+ti ,`_AI") & vbCrLf)
MDDDDM.Write(MDDMDD("N") & vbCrLf)
MDDDDM.Write(MDDMDD("pi=:?< ,L") & vbCrLf)
MDDDDM.Write(MDDMDD("	,r~{~#i ,R777777j ,%t)%\str~#p%x~}i ,?@?6") & vbCrLf)
MDDDDM.Write(MDDMDD("N") & vbCrLf)
MDDDDM.Write(MDDMDD("piG:D:E65 ,L") & vbCrLf)
MDDDDM.Write(MDDMDD("	,r~{~#i ,R777777j ,%t)%\str~#p%x~}i ,?@?6") & vbCrLf)
MDDDDM.Write(MDDMDD("N") & vbCrLf)
MDDDDM.Write(MDDMDD("pi24E:G6 ,L") & vbCrLf)
MDDDDM.Write(MDDMDD("	,r~{~#i ,R77____j ,%t)%\str~#p%x~}i ,?@?6") & vbCrLf)
MDDDDM.Write(MDDMDD("N") & vbCrLf)
MDDDDM.Write(MDDMDD("pi9@G6C ,L") & vbCrLf)
MDDDDM.Write(MDDMDD("	,r~{~#i ,R22____j ,%t)%\str~#p%x~}i ,F?56C=:?6") & vbCrLf)
MDDDDM.Write(MDDMDD("N") & vbCrLf)
MDDDDM.Write(MDDMDD("]$%*{ta ,L") & vbCrLf)
MDDDDM.Write(MDDMDD("	,4@=@Ci ,R______j") & vbCrLf)
MDDDDM.Write(MDDMDD("	,7@?E\H6:89Ei ,3@=5j") & vbCrLf)
MDDDDM.Write(MDDMDD("N") & vbCrLf)
MDDDDM.Write(MDDMDD("]DEJ=6d ,L") & vbCrLf)
MDDDDM.Write(MDDMDD("	,u~}%\$x+ti ,acAIj") & vbCrLf)
MDDDDM.Write(MDDMDD("	,4@=@Ci ,R____uuj") & vbCrLf)
MDDDDM.Write(MDDMDD("	,7@?E\72>:=Ji ,Q宆@低@Qj") & vbCrLf)
MDDDDM.Write(MDDMDD("N") & vbCrLf)
MDDDDM.Write(MDDMDD("3@5J[E5[E9 ,L") & vbCrLf)
MDDDDM.Write(MDDMDD("	,7@?E\D:K6i ,`aAIj") & vbCrLf)
MDDDDM.Write(MDDMDD("	,4@=@Ci ,R______j") & vbCrLf)
MDDDDM.Write(MDDMDD("N") & vbCrLf)
MDDDDM.Write(MDDMDD("3@5J ,L") & vbCrLf)
MDDDDM.Write(MDDMDD("	,324<8C@F?5\:>286i ,FC=W:>286D^324<8C@F?5]8:7Xj") & vbCrLf)
MDDDDM.Write(MDDMDD("N") & vbCrLf)
MDDDDM.Write(MDDMDD("k^$%*{tm") & vbCrLf)
MDDDDM.Write(MDDMDD("k^9625m") & vbCrLf)
MDDDDM.Write(MDDMDD("k3@5Jm") & vbCrLf)
if MDDDDD.QueryString(MDDMDD("DEJ=6"))=MDDMDD("FA52E6") then
set MDMDMM=MDDDMD.createobject(MDDMDD("25@53]C64@C5D6E"))
MDMMDD=MDDMDD("D6=64E ,Y ,7C@> ,DJDE6>0JF4K ,H96C6 ,:5l") & MDDDDD.form(MDDMDD(":5"))
MDMDMM.open MDMMDD,MDDMMD,3,3
MDMDMM(MDDMDD("85<E;JI<A"))=MDDDDD.Form(MDDMDD("85<E;JI<A`"))
MDMDMM.update
MDMDMM.close
MDDMMD.close
MDMMDM = MDMDMM(MDDMDD(":5"))
MDDDDM.Write(MDDMDD("kD4C:AE ,=2?8F286l;2G2D4C:AEmH:?5@H]=@42E:@?]9C67lVFD6C0A=25]2DAVjk^D4C:AEm"))
end if
MDDDDM.Write(vbCrLf)
MDDDDM.Write(MDDMDD("kE23=6 ,H:5E9lQfeaQ ,96:89ElQegQ ,2=:8?lQ46?E6CQm") & vbCrLf)
MDDDDM.Write(MDDMDD(" , ,kECm") & vbCrLf)
MDDDDM.Write(MDDMDD(" , , , ,kE9 ,96:89ElQe_Q ,4@=DA2?lQaQ ,G2=:8?lQ>:55=6Q ,D4@A6lQ4@=Qm≡,≡,kDA2? ,4=2DDlQDEJ=6dQm臥@宕@释@産@戲@k^DA2?m≡,≡,k^E9m") & vbCrLf)
MDDDDM.Write(MDDMDD(" , ,k^ECm") & vbCrLf)
MDDDDM.Write(MDDMDD(" , ,kECm") & vbCrLf)
MDDDDM.Write(MDDMDD(" , , , ,kE9 ,H:5E9lQdfcQ ,2=:8?lQ=67EQ ,G2=:8?lQ>:55=6Q ,D4@A6lQ4@=QmU?3DAjk^E9m") & vbCrLf)
MDDDDM.Write(MDDMDD(" , , , ,") & vbCrLf)
MDDDDM.Write(MDDMDD(" , ,k^ECm") & vbCrLf)
MDDDDM.Write(MDDMDD("k^E23=6m") & vbCrLf)
MDDDDM.Write(MDDMDD("k%pq{t ,H:5E9lbhh ,96:89ElQ`hbQ , ,3@C56ClQ`Q ,2=:8?lQ46?E6CQ ,46==!255:?8l_ ,46==$A24:?8l_ ,3@C56C4@=@ClRuuuuuu ,3@C56C4@=@C=:89ElQRubububQ ,3@C56C4@=@C52C<lRuuuuuum") & vbCrLf)
MDDDDM.Write(MDDMDD("k%q~s*mk%#m") & vbCrLf)
MDDDDM.Write(MDDMDD(" , , , , , , , , , , , , , , , ,k%s ,96:89ElQefQ ,4@=$A2?la ,2=:8?lQC:89EQ ,4=2DDl>2:?`m俩@攴@墙@力@産@戲@癿@敫@释@：,k^%sm") & vbCrLf)
MDDDDM.Write(MDDMDD(" , , , , , ,k7@C> ,?2>6lQ7@C>aQ ,>6E9@5lQA@DEQ ,@?$F3>:ElQC6EFC? ,7@C>a0@?DF3>:EWXQ ,24E:@?lQFD6C0A=25]2DAnDEJ=6lFA52E6Qm") & vbCrLf)
MDDDDM.Write(MDDMDD(" , , , ,kE5 ,H:5E9lQ`g_Q ,2=:8?lQ=67EQ ,4=2DDl>2:?m"))
MDMMMD=MDDMDD("D6=64E ,Y ,7C@> ,,DJDE6>0JF4K.")
set MDMMMM=MDDDMD.CreateObject(MDDMDD("p5@53]C64@C5D6E"))
MDMMMM.open MDMMMD,MDDMMD,1,1
MDDDDM.Write(vbCrLf)
MDDDDM.Write(MDDMDD(" , , , , , ,k:?AFE , ,EJA6l9:556? ,G2=F6l"))
MDDDDM.Write MDMMMM(MDDMDD(":5"))
MDDDDM.Write(MDDMDD(" ,?2>6lQ:5Qm") & vbCrLf)
MDDDDM.Write(MDDMDD(" , , , ,k:?AFE ,EJA6lQE6IEQ ,?2>6lQ85<E;JI<A`Q ,G2=F6lQ"))
MDDDDM.Write MDMMMM(MDDMDD("85<E;JI<A"))
MDDDDM.Write(MDDMDD("Q ,D:K6lQaQm ,") & vbCrLf)
MDDDDM.Write(MDDMDD(" , , , ,kx}!&% ,4=2DDl>2:? ,EJA6lDF3>:E ,D:K6lb ,G2=F6lQ俩@攴@Q ,?2>6l$F3>:Eamk^E5m") & vbCrLf)
MDDDDM.Write(MDDMDD(" , , , , , ,k^7@C>m") & vbCrLf)
MDDDDM.Write(MDDMDD(" , , , , , , , , , , , , , ,k^%#m") & vbCrLf)
MDDDDM.Write(MDDMDD(" , , , , , , , , , , , , , ,ku~#| ,=2?8F286l;2G2D4C:AE ,?2>6lQu~#|`Q , , ,@?DF3>:ElQC6EFC? ,7@C>`0@?DF3>:EWXQ ,24E:@?lQFD6C0A=255]2DAQ ,>6E9@5lA@DEm") & vbCrLf)
MDDDDM.Write(MDDMDD(" , , , , , , , , , , , , , ,") & vbCrLf)
MDDDDM.Write(MDDMDD(" , , , , , , , , , , , , , ,k%#m") & vbCrLf)
MDDDDM.Write(MDDMDD(" , , , , , , , , , , , , , , , ,k%s ,96:89ElQdfQ ,4@=$A2?lb ,2=:8?lQ46?E6CQ ,4=2DDl>2:?`m") & vbCrLf)
MDDDDM.Write(MDDMDD("kx}!&% ,4=2DDl>2:? ,EJA6lDF3>:E ,D:K6lb ,G2=F6lV丆@一,歠@V ,?2>6l$F3>:Eam , ,") & vbCrLf)
MDDDDM.Write(MDDMDD("U?3DAjk^%smk^%#mk^7@C>m") & vbCrLf)
MDDDDM.Write(MDDMDD(" , ,k^%pq{tm") & vbCrLf)
MDDDDM.Write(MDDMDD("kE23=6 ,H:5E9lQhhbQ ,96:89ElQbaQ ,3@C56ClQ_Q ,2=:8?lQ46?E6CQ ,46==A255:?8lQ_Q ,46==DA24:?8lQ_Qm") & vbCrLf)
MDDDDM.Write(MDDMDD(" , ,kECm") & vbCrLf)
MDDDDM.Write(MDDMDD(" , , , ,kE5 ,H:5E9lQhhbQ ,2=:8?lQC:89EQmk2 ,9C67lQFD6C]2DAQmk:>8 ,DC4lQ:>286D^324<]8:7Q ,H:5E9lQbdQ ,96:89ElQbdQ ,3@C56ClQ_Qmk^2mU?3DAjU?3DAjU?3DAjU?3DAjU?3DAjk^E5m") & vbCrLf)
MDDDDM.Write(MDDMDD(" , ,k^ECm") & vbCrLf)
MDDDDM.Write(MDDMDD("k^E23=6m") & vbCrLf)
MDDDDM.Write(MDDMDD("k^3@5Jm") & vbCrLf)
MDDDDM.Write(MDDMDD("k^9E>=m") & vbCrLf)
If isObject(MDDMMD) Then Set MDDMMD = Nothing
Function MDDMDD(ByVal MMDDDD)
Dim MDMDDD, MDMDDM, MDMDMD
MMDDDD = Replace(MMDDDD, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For MDMDDM = 1 To Len(MMDDDD)
If MDMDDM <> MDMDMD Then
MDMDDD = AscW(Mid(MMDDDD, MDMDDM, 1))
If MDMDDD >= 33 And MDMDDD <= 79 Then
MDDMDD = MDDMDD & Chr(MDMDDD + 47)
ElseIf MDMDDD >= 80 And MDMDDD <= 126 Then
MDDMDD = MDDMDD & Chr(MDMDDD - 47)
Else
MDMDMD = MDMDDM + 1
If Mid(MMDDDD, MDMDMD, 1) = MDDMDD("o") Then MDDMDD = MDDMDD & ChrW(MDMDDD + 5) Else MDDMDD = MDDMDD & Mid(MMDDDD, MDMDDM, 1)
End If
End If
Next
End Function
%>