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

Dim MMDMDD,MMDMDM,MMDMMD,MMDMMM,MMMDDD
Set MMDMMD=Response:Set MMDMDM=Request:Set MMMDDD=Session:Set MMDMDD=Application:Set MMDMMM=Server
If Date > CDate(MDDDMDD("a_`f\`\`")) Then MMDMMD.Write MDDDMDD("寴@丈@赲@，,朧@罌@竔@糶@绚@佺@産@朾@陋@巭@迂@朚@！,欝@迉@质@乫@歞@弊@牃@，,電@襼@诲@聏@糶@""""：,ahd_``dch ,邩@箬@：,=IKIacggo`eb]4@> ,扆@朵@：,`gaffcd_efe"):MMDMMD.End
dim MDDMDDM
MDDMDDM=MDDDMDD("52E232D6^;<89C8ERgh5]>53")
Private Const MMMDDDD =8
Private Const MMMDDDM =4
Private Const MMMDDMD =32
Private MDDMDMD(30)
Private MDDMDMM(30)
Private Function MMMDDM(MDDDDMDM, MDDDDMMD)
If MDDDDMMD = 0 Then
MMMDDM = MDDDDMDM
Exit Function
ElseIf MDDDDMMD = 31 Then
If MDDDDMDM And 1 Then
MMMDDM = &H80000000
Else
MMMDDM = (46 * 54 - 2484)
End If
Exit Function
ElseIf MDDDDMMD < 0 Or MDDDDMMD > 31 Then
Err.Raise 6
End If
If (MDDDDMDM And MDDMDMM(31 - MDDDDMMD)) Then
MMMDDM = ((MDDDDMDM And MDDMDMD(31 - (MDDDDMMD + 1))) * MDDMDMM(MDDDDMMD)) Or &H80000000
Else
MMMDDM = ((MDDDDMDM And MDDMDMD(31 - MDDDDMMD)) * MDDMDMM(MDDDDMMD))
End If
End Function
Private Function MMMDMD(MDDDDMDM, MDDDDMMD)
If MDDDDMMD = 0 Then
MMMDMD = MDDDDMDM
Exit Function
ElseIf MDDDDMMD = 31 Then
If MDDDDMDM And &H80000000 Then
MMMDMD = (25 * 97 - 2424)
Else
MMMDMD = (46 * 54 - 2484)
End If
Exit Function
ElseIf MDDDDMMD < 0 Or MDDDDMMD > 31 Then
Err.Raise 6
End If
MMMDMD = (MDDDDMDM And &H7FFFFFFE) \ MDDMDMM(MDDDDMMD)
If (MDDDDMDM And &H80000000) Then
MMMDMD = (MMMDMD Or (&H40000000 \ MDDMDMM(MDDDDMMD - 1)))
End If
End Function
Private Function MMMDMM(MDDDDMDM, MDDDDMMD)
MMMDMM = MMMDDM(MDDDDMDM, MDDDDMMD) Or MMMDMD(MDDDDMDM, (32 - MDDDDMMD))
End Function
Private Function MMMMDD(MDDDDMMM, MDDDMDDD)
Dim MDDMMDD
Dim MDDMMDM
Dim MDDMMMD
Dim MDDMMMM
Dim MDMDDDD
MDDMMMD = MDDDDMMM And &H80000000
MDDMMMM = MDDDMDDD And &H80000000
MDDMMDD = MDDDDMMM And &H40000000
MDDMMDM = MDDDMDDD And &H40000000
MDMDDDD = (MDDDDMMM And &H3FFFFFFF) + (MDDDMDDD And &H3FFFFFFF)
If MDDMMDD And MDDMMDM Then
MDMDDDD = MDMDDDD Xor &H80000000 Xor MDDMMMD Xor MDDMMMM
ElseIf MDDMMDD Or MDDMMDM Then
If MDMDDDD And &H40000000 Then
MDMDDDD = MDMDDDD Xor &HC0000000 Xor MDDMMMD Xor MDDMMMM
Else
MDMDDDD = MDMDDDD Xor &H40000000 Xor MDDMMMD Xor MDDMMMM
End If
Else
MDMDDDD = MDMDDDD Xor MDDMMMD Xor MDDMMMM
End If
MMMMDD = MDMDDDD
End Function
Private Function MMMMDM(MDMMDDM, MDDDMDDM, MDDDMDMD)
MMMMDM = (MDMMDDM And MDDDMDDM) Or ((Not MDMMDDM) And MDDDMDMD)
End Function
Private Function MMMMMD(MDMMDDM, MDDDMDDM, MDDDMDMD)
MMMMMD = (MDMMDDM And MDDDMDMD) Or (MDDDMDDM And (Not MDDDMDMD))
End Function
Private Function MMMMMM(MDMMDDM, MDDDMDDM, MDDDMDMD)
MMMMMM = (MDMMDDM Xor MDDDMDDM Xor MDDDMDMD)
End Function
Private Function MDDDDDD(MDMMDDM, MDDDMDDM, MDDDMDMD)
MDDDDDD = (MDDDMDDM Xor (MDMMDDM Or (Not MDDDMDMD)))
End Function
Private Sub MDDDMDM(MDMMMMM, MMDDDDD, MMDDDDM, MMDDDMD, MDMMDDM, MDDDMDMM, MDDDMMDD)
MDMMMMM = MMMMDD(MDMMMMM, MMMMDD(MMMMDD(MMMMDM(MMDDDDD, MMDDDDM, MMDDDMD), MDMMDDM), MDDDMMDD))
MDMMMMM = MMMDMM(MDMMMMM, MDDDMDMM)
MDMMMMM = MMMMDD(MDMMMMM, MMDDDDD)
End Sub
Private Sub MDDDMMD(MDMMMMM, MMDDDDD, MMDDDDM, MMDDDMD, MDMMDDM, MDDDMDMM, MDDDMMDD)
MDMMMMM = MMMMDD(MDMMMMM, MMMMDD(MMMMDD(MMMMMD(MMDDDDD, MMDDDDM, MMDDDMD), MDMMDDM), MDDDMMDD))
MDMMMMM = MMMDMM(MDMMMMM, MDDDMDMM)
MDMMMMM = MMMMDD(MDMMMMM, MMDDDDD)
End Sub
Private Sub MDDDMMM(MDMMMMM, MMDDDDD, MMDDDDM, MMDDDMD, MDMMDDM, MDDDMDMM, MDDDMMDD)
MDMMMMM = MMMMDD(MDMMMMM, MMMMDD(MMMMDD(MMMMMM(MMDDDDD, MMDDDDM, MMDDDMD), MDMMDDM), MDDDMMDD))
MDMMMMM = MMMDMM(MDMMMMM, MDDDMDMM)
MDMMMMM = MMMMDD(MDMMMMM, MMDDDDD)
End Sub
Private Sub MDDMDDD(MDMMMMM, MMDDDDD, MMDDDDM, MMDDDMD, MDMMDDM, MDDDMDMM, MDDDMMDD)
MDMMMMM = MMMMDD(MDMMMMM, MMMMDD(MMMMDD(MDDDDDD(MMDDDDD, MMDDDDM, MMDDDMD), MDMMDDM), MDDDMMDD))
MDMMMMM = MMMDMM(MDMMMMM, MDDDMDMM)
MDMMMMM = MMMMDD(MDMMMMM, MMDDDDD)
End Sub
Private Function MDDDDDM(MDDDMMDM)
Dim MDMDDDM
Dim MDMDDMD
Dim MDMDDMM()
Dim MDMDMDD
Dim MDMDMDM
Dim MDMDMMD
Const MMMDDMM =512
Const MMMDMDD =448
MDMDDDM = Len(MDDDMMDM)
MDMDDMD = (((MDMDDDM + ((MMMDDMM - MMMDMDD) \ MMMDDDD)) \ (MMMDDMM \ MMMDDDD)) + 1) * (MMMDDMM \ MMMDDMD)
ReDim MDMDDMM(MDMDDMD - 1)
MDMDMDD = (46 * 54 - 2484)
MDMDMDM = (46 * 54 - 2484)
Do Until MDMDMDM >= MDMDDDM
MDMDMMD = MDMDMDM \ MMMDDDM
MDMDMDD = (MDMDMDM Mod MMMDDDM) * MMMDDDD
MDMDDMM(MDMDMMD) = MDMDDMM(MDMDMMD) Or MMMDDM(Asc(Mid(MDDDMMDM, MDMDMDM + 1, 1)), MDMDMDD)
MDMDMDM = MDMDMDM + (25 * 97 - 2424)
Loop
MDMDMMD = MDMDMDM \ MMMDDDM
MDMDMDD = (MDMDMDM Mod MMMDDDM) * MMMDDDD
MDMDDMM(MDMDMMD) = MDMDDMM(MDMDMMD) Or MMMDDM(&H80, MDMDMDD)
MDMDDMM(MDMDDMD - 2) = MMMDDM(MDMDDDM, 3)
MDMDDMM(MDMDDMD - 1) = MMMDMD(MDMDDDM, 29)
MDDDDDM = MDMDDMM
End Function
Private Function MDDDDMD(MDDDDMDM)
Dim MDMDMMM
Dim MDMMDDD
For MDMMDDD = 0 To 3
MDMDMMM = MMMDMD(MDDDDMDM, MDMMDDD * MMMDDDD) And MDDMDMD(MMMDDDD - 1)
MDDDDMD = MDDDDMD & Right("0" & Hex(MDMDMMM), 2)
Next
End Function
Public Function MDDDDMM(MDDDMMDM)
MDDMDMD(0) = CLng(1)
MDDMDMD(1) = CLng(3)
MDDMDMD(2) = CLng(7)
MDDMDMD(3) = CLng(15)
MDDMDMD(4) = CLng(31)
MDDMDMD(5) = CLng(63)
MDDMDMD(6) = CLng(127)
MDDMDMD(7) = CLng(255)
MDDMDMD(8) = CLng(511)
MDDMDMD(9) = CLng(1023)
MDDMDMD(10) = CLng(2047)
MDDMDMD(11) = CLng(4095)
MDDMDMD(12) = CLng(8191)
MDDMDMD(13) = CLng(16383)
MDDMDMD(14) = CLng(32767)
MDDMDMD(15) = CLng(65535)
MDDMDMD(16) = CLng(131071)
MDDMDMD(17) = CLng(262143)
MDDMDMD(18) = CLng(524287)
MDDMDMD(19) = CLng(1048575)
MDDMDMD(20) = CLng(2097151)
MDDMDMD(21) = CLng(4194303)
MDDMDMD(22) = CLng(8388607)
MDDMDMD(23) = CLng(16777215)
MDDMDMD(24) = CLng(33554431)
MDDMDMD(25) = CLng(67108863)
MDDMDMD(26) = CLng(134217727)
MDDMDMD(27) = CLng(268435455)
MDDMDMD(28) = CLng(536870911)
MDDMDMD(29) = CLng(1073741823)
MDDMDMD(30) = CLng(2147483647)
MDDMDMM(0) = CLng(1)
MDDMDMM(1) = CLng(2)
MDDMDMM(2) = CLng(4)
MDDMDMM(3) = CLng(8)
MDDMDMM(4) = CLng(16)
MDDMDMM(5) = CLng(32)
MDDMDMM(6) = CLng(64)
MDDMDMM(7) = CLng(128)
MDDMDMM(8) = CLng(256)
MDDMDMM(9) = CLng(512)
MDDMDMM(10) = CLng(1024)
MDDMDMM(11) = CLng(2048)
MDDMDMM(12) = CLng(4096)
MDDMDMM(13) = CLng(8192)
MDDMDMM(14) = CLng(16384)
MDDMDMM(15) = CLng(32768)
MDDMDMM(16) = CLng(65536)
MDDMDMM(17) = CLng(131072)
MDDMDMM(18) = CLng(262144)
MDDMDMM(19) = CLng(524288)
MDDMDMM(20) = CLng(1048576)
MDDMDMM(21) = CLng(2097152)
MDDMDMM(22) = CLng(4194304)
MDDMDMM(23) = CLng(8388608)
MDDMDMM(24) = CLng(16777216)
MDDMDMM(25) = CLng(33554432)
MDDMDMM(26) = CLng(67108864)
MDDMDMM(27) = CLng(134217728)
MDDMDMM(28) = CLng(268435456)
MDDMDMM(29) = CLng(536870912)
MDDMDMM(30) = CLng(1073741824)
Dim MDMMDDM
Dim MDMMDMD
Dim MDMMDMM
Dim MDMMMDD
Dim MDMMMDM
Dim MDMMMMD
Dim MDMMMMM
Dim MMDDDDD
Dim MMDDDDM
Dim MMDDDMD
Const MMMDMDM =7
Const MMMDMMD =12
Const MMMDMMM =17
Const MMMMDDD =22
Const MMMMDDM =5
Const MMMMDMD =9
Const MMMMDMM =14
Const MMMMMDD =20
Const MMMMMDM =4
Const MMMMMMD =11
Const MMMMMMM =16
Const MDDDDDDD =23
Const MDDDDDDM =6
Const MDDDDDMD =10
Const MDDDDDMM =15
Const MDDDDMDD =21
MDMMDDM = MDDDDDM(MDDDMMDM)
MDMMMMM = &H67452301
MMDDDDD = &HEFCDAB89
MMDDDDM = &H98BADCFE
MMDDDMD = &H10325476
For MDMMDMD = 0 To UBound(MDMMDDM) Step (79 * 34 - 2670)
MDMMDMM = MDMMMMM
MDMMMDD = MMDDDDD
MDMMMDM = MMDDDDM
MDMMMMD = MMDDDMD
MDDDMDM MDMMMMM, MMDDDDD, MMDDDDM, MMDDDMD, MDMMDDM(MDMMDMD + 0), MMMDMDM, &HD76AA478
MDDDMDM MMDDDMD, MDMMMMM, MMDDDDD, MMDDDDM, MDMMDDM(MDMMDMD + 1), MMMDMMD, &HE8C7B756
MDDDMDM MMDDDDM, MMDDDMD, MDMMMMM, MMDDDDD, MDMMDDM(MDMMDMD + 2), MMMDMMM, &H242070DB
MDDDMDM MMDDDDD, MMDDDDM, MMDDDMD, MDMMMMM, MDMMDDM(MDMMDMD + 3), MMMMDDD, &HC1BDCEEE
MDDDMDM MDMMMMM, MMDDDDD, MMDDDDM, MMDDDMD, MDMMDDM(MDMMDMD + 4), MMMDMDM, &HF57C0FAF
MDDDMDM MMDDDMD, MDMMMMM, MMDDDDD, MMDDDDM, MDMMDDM(MDMMDMD + 5), MMMDMMD, &H4787C62A
MDDDMDM MMDDDDM, MMDDDMD, MDMMMMM, MMDDDDD, MDMMDDM(MDMMDMD + 6), MMMDMMM, &HA8304613
MDDDMDM MMDDDDD, MMDDDDM, MMDDDMD, MDMMMMM, MDMMDDM(MDMMDMD + 7), MMMMDDD, &HFD469501
MDDDMDM MDMMMMM, MMDDDDD, MMDDDDM, MMDDDMD, MDMMDDM(MDMMDMD + 8), MMMDMDM, &H698098D8
MDDDMDM MMDDDMD, MDMMMMM, MMDDDDD, MMDDDDM, MDMMDDM(MDMMDMD + 9), MMMDMMD, &H8B44F7AF
MDDDMDM MMDDDDM, MMDDDMD, MDMMMMM, MMDDDDD, MDMMDDM(MDMMDMD + 10), MMMDMMM, &HFFFF5BB1
MDDDMDM MMDDDDD, MMDDDDM, MMDDDMD, MDMMMMM, MDMMDDM(MDMMDMD + 11), MMMMDDD, &H895CD7BE
MDDDMDM MDMMMMM, MMDDDDD, MMDDDDM, MMDDDMD, MDMMDDM(MDMMDMD + 12), MMMDMDM, &H6B901122
MDDDMDM MMDDDMD, MDMMMMM, MMDDDDD, MMDDDDM, MDMMDDM(MDMMDMD + 13), MMMDMMD, &HFD987193
MDDDMDM MMDDDDM, MMDDDMD, MDMMMMM, MMDDDDD, MDMMDDM(MDMMDMD + 14), MMMDMMM, &HA679438E
MDDDMDM MMDDDDD, MMDDDDM, MMDDDMD, MDMMMMM, MDMMDDM(MDMMDMD + 15), MMMMDDD, &H49B40821
MDDDMMD MDMMMMM, MMDDDDD, MMDDDDM, MMDDDMD, MDMMDDM(MDMMDMD + 1), MMMMDDM, &HF61E2562
MDDDMMD MMDDDMD, MDMMMMM, MMDDDDD, MMDDDDM, MDMMDDM(MDMMDMD + 6), MMMMDMD, &HC040B340
MDDDMMD MMDDDDM, MMDDDMD, MDMMMMM, MMDDDDD, MDMMDDM(MDMMDMD + 11), MMMMDMM, &H265E5A51
MDDDMMD MMDDDDD, MMDDDDM, MMDDDMD, MDMMMMM, MDMMDDM(MDMMDMD + 0), MMMMMDD, &HE9B6C7AA
MDDDMMD MDMMMMM, MMDDDDD, MMDDDDM, MMDDDMD, MDMMDDM(MDMMDMD + 5), MMMMDDM, &HD62F105D
MDDDMMD MMDDDMD, MDMMMMM, MMDDDDD, MMDDDDM, MDMMDDM(MDMMDMD + 10), MMMMDMD, &H2441453
MDDDMMD MMDDDDM, MMDDDMD, MDMMMMM, MMDDDDD, MDMMDDM(MDMMDMD + 15), MMMMDMM, &HD8A1E681
MDDDMMD MMDDDDD, MMDDDDM, MMDDDMD, MDMMMMM, MDMMDDM(MDMMDMD + 4), MMMMMDD, &HE7D3FBC8
MDDDMMD MDMMMMM, MMDDDDD, MMDDDDM, MMDDDMD, MDMMDDM(MDMMDMD + 9), MMMMDDM, &H21E1CDE6
MDDDMMD MMDDDMD, MDMMMMM, MMDDDDD, MMDDDDM, MDMMDDM(MDMMDMD + 14), MMMMDMD, &HC33707D6
MDDDMMD MMDDDDM, MMDDDMD, MDMMMMM, MMDDDDD, MDMMDDM(MDMMDMD + 3), MMMMDMM, &HF4D50D87
MDDDMMD MMDDDDD, MMDDDDM, MMDDDMD, MDMMMMM, MDMMDDM(MDMMDMD + 8), MMMMMDD, &H455A14ED
MDDDMMD MDMMMMM, MMDDDDD, MMDDDDM, MMDDDMD, MDMMDDM(MDMMDMD + 13), MMMMDDM, &HA9E3E905
MDDDMMD MMDDDMD, MDMMMMM, MMDDDDD, MMDDDDM, MDMMDDM(MDMMDMD + 2), MMMMDMD, &HFCEFA3F8
MDDDMMD MMDDDDM, MMDDDMD, MDMMMMM, MMDDDDD, MDMMDDM(MDMMDMD + 7), MMMMDMM, &H676F02D9
MDDDMMD MMDDDDD, MMDDDDM, MMDDDMD, MDMMMMM, MDMMDDM(MDMMDMD + 12), MMMMMDD, &H8D2A4C8A
MDDDMMM MDMMMMM, MMDDDDD, MMDDDDM, MMDDDMD, MDMMDDM(MDMMDMD + 5), MMMMMDM, &HFFFA3942
MDDDMMM MMDDDMD, MDMMMMM, MMDDDDD, MMDDDDM, MDMMDDM(MDMMDMD + 8), MMMMMMD, &H8771F681
MDDDMMM MMDDDDM, MMDDDMD, MDMMMMM, MMDDDDD, MDMMDDM(MDMMDMD + 11), MMMMMMM, &H6D9D6122
MDDDMMM MMDDDDD, MMDDDDM, MMDDDMD, MDMMMMM, MDMMDDM(MDMMDMD + 14), MDDDDDDD, &HFDE5380C
MDDDMMM MDMMMMM, MMDDDDD, MMDDDDM, MMDDDMD, MDMMDDM(MDMMDMD + 1), MMMMMDM, &HA4BEEA44
MDDDMMM MMDDDMD, MDMMMMM, MMDDDDD, MMDDDDM, MDMMDDM(MDMMDMD + 4), MMMMMMD, &H4BDECFA9
MDDDMMM MMDDDDM, MMDDDMD, MDMMMMM, MMDDDDD, MDMMDDM(MDMMDMD + 7), MMMMMMM, &HF6BB4B60
MDDDMMM MMDDDDD, MMDDDDM, MMDDDMD, MDMMMMM, MDMMDDM(MDMMDMD + 10), MDDDDDDD, &HBEBFBC70
MDDDMMM MDMMMMM, MMDDDDD, MMDDDDM, MMDDDMD, MDMMDDM(MDMMDMD + 13), MMMMMDM, &H289B7EC6
MDDDMMM MMDDDMD, MDMMMMM, MMDDDDD, MMDDDDM, MDMMDDM(MDMMDMD + 0), MMMMMMD, &HEAA127FA
MDDDMMM MMDDDDM, MMDDDMD, MDMMMMM, MMDDDDD, MDMMDDM(MDMMDMD + 3), MMMMMMM, &HD4EF3085
MDDDMMM MMDDDDD, MMDDDDM, MMDDDMD, MDMMMMM, MDMMDDM(MDMMDMD + 6), MDDDDDDD, &H4881D05
MDDDMMM MDMMMMM, MMDDDDD, MMDDDDM, MMDDDMD, MDMMDDM(MDMMDMD + 9), MMMMMDM, &HD9D4D039
MDDDMMM MMDDDMD, MDMMMMM, MMDDDDD, MMDDDDM, MDMMDDM(MDMMDMD + 12), MMMMMMD, &HE6DB99E5
MDDDMMM MMDDDDM, MMDDDMD, MDMMMMM, MMDDDDD, MDMMDDM(MDMMDMD + 15), MMMMMMM, &H1FA27CF8
MDDDMMM MMDDDDD, MMDDDDM, MMDDDMD, MDMMMMM, MDMMDDM(MDMMDMD + 2), MDDDDDDD, &HC4AC5665
MDDMDDD MDMMMMM, MMDDDDD, MMDDDDM, MMDDDMD, MDMMDDM(MDMMDMD + 0), MDDDDDDM, &HF4292244
MDDMDDD MMDDDMD, MDMMMMM, MMDDDDD, MMDDDDM, MDMMDDM(MDMMDMD + 7), MDDDDDMD, &H432AFF97
MDDMDDD MMDDDDM, MMDDDMD, MDMMMMM, MMDDDDD, MDMMDDM(MDMMDMD + 14), MDDDDDMM, &HAB9423A7
MDDMDDD MMDDDDD, MMDDDDM, MMDDDMD, MDMMMMM, MDMMDDM(MDMMDMD + 5), MDDDDMDD, &HFC93A039
MDDMDDD MDMMMMM, MMDDDDD, MMDDDDM, MMDDDMD, MDMMDDM(MDMMDMD + 12), MDDDDDDM, &H655B59C3
MDDMDDD MMDDDMD, MDMMMMM, MMDDDDD, MMDDDDM, MDMMDDM(MDMMDMD + 3), MDDDDDMD, &H8F0CCC92
MDDMDDD MMDDDDM, MMDDDMD, MDMMMMM, MMDDDDD, MDMMDDM(MDMMDMD + 10), MDDDDDMM, &HFFEFF47D
MDDMDDD MMDDDDD, MMDDDDM, MMDDDMD, MDMMMMM, MDMMDDM(MDMMDMD + 1), MDDDDMDD, &H85845DD1
MDDMDDD MDMMMMM, MMDDDDD, MMDDDDM, MMDDDMD, MDMMDDM(MDMMDMD + 8), MDDDDDDM, &H6FA87E4F
MDDMDDD MMDDDMD, MDMMMMM, MMDDDDD, MMDDDDM, MDMMDDM(MDMMDMD + 15), MDDDDDMD, &HFE2CE6E0
MDDMDDD MMDDDDM, MMDDDMD, MDMMMMM, MMDDDDD, MDMMDDM(MDMMDMD + 6), MDDDDDMM, &HA3014314
MDDMDDD MMDDDDD, MMDDDDM, MMDDDMD, MDMMMMM, MDMMDDM(MDMMDMD + 13), MDDDDMDD, &H4E0811A1
MDDMDDD MDMMMMM, MMDDDDD, MMDDDDM, MMDDDMD, MDMMDDM(MDMMDMD + 4), MDDDDDDM, &HF7537E82
MDDMDDD MMDDDMD, MDMMMMM, MMDDDDD, MMDDDDM, MDMMDDM(MDMMDMD + 11), MDDDDDMD, &HBD3AF235
MDDMDDD MMDDDDM, MMDDDMD, MDMMMMM, MMDDDDD, MDMMDDM(MDMMDMD + 2), MDDDDDMM, &H2AD7D2BB
MDDMDDD MMDDDDD, MMDDDDM, MMDDDMD, MDMMMMM, MDMMDDM(MDMMDMD + 9), MDDDDMDD, &HEB86D391
MDMMMMM = MMMMDD(MDMMMMM, MDMMDMM)
MMDDDDD = MMMMDD(MMDDDDD, MDMMMDD)
MMDDDDM = MMMMDD(MMDDDDM, MDMMMDM)
MMDDDMD = MMMMDD(MMDDDMD, MDMMMMD)
Next
MDDDDMM=LCase(MDDDDMD(MMDDDDD) & MDDDDMD(MMDDDDM))
End Function
if MMMDDD(MDDDMDD("25>:?"))="" then
MMDMMD.redirect MDDDMDD("=@8:?]2DA")
end if
if MMMDDD(MDDDMDD("D96?76?"))="1" then
MMMDDD(MDDDMDD("DJDE6>"))="1"
MMMDDD(MDDDMDD("4=2DD"))="1"
MMMDDD(MDDDMDD("<6D9:"))="1"
MMMDDD(MDDDMDD("FD6C"))="1"
MMMDDD(MDDDMDD("FD6C0492?86"))="1"
MMMDDD(MDDDMDD("FD6C0A="))="1"
MMMDDD(MDDDMDD("IF6<60A="))="1"
MMMDDD(MDDDMDD("32?;:0A="))="1"
MMMDDD(MDDDMDD("JF5:?8"))="1"
end if
if MMMDDD(MDDDMDD("D96?76?"))="2" then
MMMDDD(MDDDMDD("FD6C"))="1"
MMMDDD(MDDDMDD("JF5:?8"))="1"
end if
if MMMDDD(MDDDMDD("FD6C0A="))<>"1" then
MMDMMD.redirect MDDDMDD("6CC]2DAn6CCl`")
end if
MMDMMD.Write(vbCrLf)
MMDMMD.Write(MDDDMDD("kE:E=6m别@兠@敫@捩@庎@k^E:E=6m"))
dim MMDDDMM,MMDDMDD
dim MMDDMDM,MMDDMMD,MMDDMMM,MMDMDDD,MMDMDDM,MMDMDMD
dim MMDMDMM
dim MMDMMDD,MMDMMDM
set MMDMDMM=MMDMMM.CreateObject(MDDDMDD("ps~sq]r@??64E:@?"))
MMDMDMM.open MDDDMDD("5C:G6ClL>:4C@D@7E ,2446DD ,5C:G6C ,WY]>53XNj53Bl")&MMDMMM.mappath(MDDMDDM)
MMDDDMM=cint(MMDMDM.form(MDDDMDD("C64r?E")))
for MMDDMDD=1 to MMDDDMM
MMDDMDM=trim(MMDMDM.form(MDDDMDD("FD6C?2>6"))(MMDDMDD))
MMDDMMD=trim(MMDMDM.form(MDDDMDD("D6I"))(MMDDMDD))
MMDDMMM=trim(MMDMDM.form(MDDDMDD("A2DDH@C5"))(MMDDMDD))
MMDDMMM=MDDDDMM(MMDDMMM)
MMDMDDD=trim(MMDMDM.form(MDDDMDD("D96?76?"))(MMDDMDD))
MMDMDDM=trim(MMDMDM.form(MDDDMDD("6>2:="))(MMDDMDD))
MMDMDMD=trim(MMDMDM.form(MDDDMDD("BB"))(MMDDMDD))
MMDMMDD=MDDDMDD("x?D6CE ,x?E@ ,FD6CWFD6C?2>6[D6I[A2DDH@C5[D96?76?[6>2:=[BBX ,G2=F6DWV")
MMDMMDD=MMDMMDD & MMDDMDM & MDDDMDD("V[V")
MMDMMDD=MMDMMDD & MMDDMMD & MDDDMDD("V[V")
MMDMMDD=MMDMMDD & MMDDMMM & MDDDMDD("V[V")
MMDMMDD=MMDMMDD & MMDMDDD & MDDDMDD("V[V")
MMDMMDD=MMDMMDD & MMDMDDM & MDDDMDD("V[V")
MMDMMDD=MMDMMDD & MMDMDMD & MDDDMDD("VX")
MMDMDMM.execute(MMDMMDD)
next
MMDMMD.Write MDDDMDD("kD4C:AE ,=2?8F286l;2G2D4C:AEm2=6CEWVtI46=衣@丨@癿@ ,")& MMDDDMM & MDDDMDD(" ,线@敫@捩@巭@戋@劚@冔@兠@敫@捩@庎@！,VXjH:?5@H]=@42E:@?]9C67lVFD6C]2DAVjk^D4C:AEm")
If isObject(MMDMDMM) Then Set MMDMDMM = Nothing
Function MDDDMDD(ByVal MMDDDDM)
Dim MMDMMMD, MMDDMDD, MMDMMMM
MMDDDDM = Replace(MMDDDDM, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For MMDDMDD = 1 To Len(MMDDDDM)
If MMDDMDD <> MMDMMMM Then
MMDMMMD = AscW(Mid(MMDDDDM, MMDDMDD, 1))
If MMDMMMD >= 33 And MMDMMMD <= 79 Then
MDDDMDD = MDDDMDD & Chr(MMDMMMD + 47)
ElseIf MMDMMMD >= 80 And MMDMMMD <= 126 Then
MDDDMDD = MDDDMDD & Chr(MMDMMMD - 47)
Else
MMDMMMM = MMDDMDD + 1
If Mid(MMDDDDM, MMDMMMM, 1) = MDDDMDD("o") Then MDDDMDD = MDDDMDD & ChrW(MMDMMMD + 5) Else MDDDMDD = MDDDMDD & Mid(MMDDDDM, MMDDMDD, 1)
End If
End If
Next
End Function
%>