㽏✀ἀ甀က戀䜀开㨀最圀嬀☀笀㈀一Ⰰ氀攀渀最琀栀ἀ甀က戀圀嬀☀笀㈀一䤀刀缀退幢Ⰰ栀愀猀一甀洀Ⰰ栀愀猀䰀漀眀攀爀䌀栀愀爀Ⰰ栀愀猀唀瀀瀀攀爀䌀栀愀爀Ⰰ栀愀猀伀琀栀攀爀䌀栀愀爀㰀倀㨀一 ᘀ戀㄀ⰀĀ漀℀欀㨀一Ԁ匀⬀吀瀀攀圀嬀Ā ༀ尀漀樀圀嬀騀Ż ✀夀漀樀圀嬀騀Ż 瘀儀垍嬀☀笀ഀ਀昀甀渀挀琀椀漀渀 䜀攀渀刀愀渀搀漀洀⠀䰀攀渀最琀栀Ⰰ栀愀猀一甀洀Ⰰ栀愀猀䰀漀眀攀爀䌀栀愀爀Ⰰ栀愀猀唀瀀瀀攀爀䌀栀愀爀Ⰰ栀愀猀伀琀栀攀爀䌀栀愀爀⤀ഀ਀搀椀洀 爀攀猀甀氀琀ഀ਀搀椀洀 䰀愀琀琀攀爀一甀洀Ⰰ䰀愀琀琀攀爀䰀漀眀攀爀Ⰰ䰀愀琀琀攀爀唀瀀瀀攀爀Ⰰ䰀愀琀琀攀爀伀琀栀攀爀ഀ਀搀椀洀 愀爀爀䰀愀琀琀攀爀ഀ਀✀ᴀ刀਀?S瘶ubIRW[&{<P LatterNum="0123456789" LatterLower="abcdefghigklmnopqrstuvwxyz" LatterUpper="ABCDEFGHIGKLMNOPQRSTUVWXYZ" LatterOther="-=\[]" '$R璽ubW[&{2N抐^9deQ/f&Tcknx if Not isnumeric(length) Or Length<0 then GenRandom="" Exit function end if 'R㼊匀最∀Ā怀瀀攀渀挀ഀ਀搀椀洀 渀甀洀ഀ਀渀甀洀㴀 ഀ਀椀昀 栀愀猀一甀洀 琀栀攀渀 渀甀洀㴀渀甀洀⬀㄀ഀ਀椀昀 栀愀猀䰀漀眀攀爀䌀栀愀爀 琀栀攀渀 渀甀洀㴀渀甀洀⬀㄀ഀ਀椀昀 栀愀猀唀瀀瀀攀爀䌀栀愀爀 琀栀攀渀 渀甀洀㴀渀甀洀⬀㄀ഀ਀椀昀 栀愀猀伀琀栀攀爀䌀栀愀爀 琀栀攀渀 渀甀洀㴀渀甀洀⬀㄀ഀ਀椀昀 渀甀洀㴀  琀栀攀渀ഀ਀䜀攀渀刀愀渀搀漀洀㴀∀∀ഀ਀攀砀椀琀 昀甀渀挀琀椀漀渀ഀ਀攀渀搀 椀昀ഀ਀爀攀搀椀洀 愀爀爀䰀愀琀琀攀爀⠀渀甀洀ⴀ㄀⤀ഀ਀渀甀洀㴀 ഀ਀椀昀 栀愀猀一甀洀 琀栀攀渀ഀ਀愀爀爀䰀愀琀琀攀爀⠀渀甀洀⤀㴀䰀愀琀琀攀爀一甀洀ഀ਀渀甀洀㴀渀甀洀⬀㄀ഀ਀攀渀搀 椀昀ഀ਀椀昀 栀愀猀䰀漀眀攀爀䌀栀愀爀 琀栀攀渀ഀ਀愀爀爀䰀愀琀琀攀爀⠀渀甀洀⤀㴀䰀愀琀琀攀爀䰀漀眀攀爀ഀ਀渀甀洀㴀渀甀洀⬀㄀ഀ਀攀渀搀 椀昀ഀ਀椀昀 栀愀猀唀瀀瀀攀爀䌀栀愀爀 琀栀攀渀ഀ਀愀爀爀䰀愀琀琀攀爀⠀渀甀洀⤀㴀䰀愀琀琀攀爀唀瀀瀀攀爀ഀ਀渀甀洀㴀渀甀洀⬀㄀ഀ਀攀渀搀 椀昀ഀ਀椀昀 栀愀猀伀琀栀攀爀䌀栀愀爀 琀栀攀渀ഀ਀愀爀爀䰀愀琀琀攀爀⠀渀甀洀⤀㴀䰀愀琀琀攀爀伀琀栀攀爀ഀ਀渀甀洀㴀渀甀洀⬀㄀ഀ਀攀渀搀 椀昀ഀ਀刀愀渀搀漀洀椀稀攀⠀⤀ഀ਀搀椀洀 椀Ⰰ椀渀搀攀砀Ⰰ瀀漀猀椀琀椀漀渀ഀ਀昀漀爀 椀㴀㄀ 琀漀 䰀攀渀最琀栀ഀ਀椀渀搀攀砀㴀椀渀琀⠀⠀甀戀漀甀渀搀⠀愀爀爀䰀愀琀琀攀爀⤀⬀㄀⤀⨀刀渀搀⠀⤀⤀ഀ਀瀀漀猀椀琀椀漀渀㴀椀渀琀⠀氀攀渀⠀愀爀爀䰀愀琀琀攀爀⠀椀渀搀攀砀⤀⤀⨀刀渀搀⠀⤀⬀㄀⤀ഀ਀爀攀猀甀氀琀㴀爀攀猀甀氀琀 ⬀ 洀椀搀⠀愀爀爀䰀愀琀琀攀爀⠀椀渀搀攀砀⤀Ⰰ瀀漀猀椀琀椀漀渀Ⰰ㄀⤀ഀ਀渀攀砀琀ഀ਀䜀攀渀刀愀渀搀漀洀㴀爀攀猀甀氀琀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀✀渀欀^嬀☀笀言ඞ夀℀欀瀀攀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀昀甀渀挀琀椀漀渀 刀攀瀀攀愀琀⠀猀琀爀Ⰰ渀甀洀⤀ഀ਀搀椀洀 刀攀猀甀氀琀ഀ਀刀攀猀甀氀琀㴀∀∀ഀ਀搀漀 眀栀椀氀攀 渀甀洀㸀 ഀ਀刀攀猀甀氀琀㴀刀攀猀甀氀琀 ⬀ 猀琀爀ഀ਀渀甀洀㴀渀甀洀ⴀ㄀ഀ਀䰀漀漀瀀ഀ਀刀攀瀀攀愀琀㴀刀攀猀甀氀琀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀昀甀渀挀琀椀漀渀 䤀渀琀吀漀匀琀爀⠀瘀愀氀甀攀Ⰰ洀愀砀氀攀渀Ⰰ昀椀氀氀挀栀愀爀⤀ഀ਀搀椀洀 爀攀猀甀氀琀ഀ਀爀攀猀甀氀琀㴀挀猀琀爀⠀瘀愀氀甀攀⤀ഀ਀椀昀 氀攀渀⠀爀攀猀甀氀琀⤀㰀洀愀砀氀攀渀 琀栀攀渀ഀ਀爀攀猀甀氀琀㴀刀攀瀀攀愀琀⠀昀椀氀氀挀栀愀爀Ⰰ洀愀砀氀攀渀ⴀ氀攀渀⠀爀攀猀甀氀琀⤀⤀ ☀ 爀攀猀甀氀琀ഀ਀攀渀搀 椀昀ഀ਀䤀渀琀吀漀匀琀爀㴀爀攀猀甀氀琀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀✀Ѐ夀؀琀㬀⹮莞?_IRl?Sc樰i '*********************************************** function translate(sourceStr,fieldStr) dim sourceList dim resultStr dim i,j if instr(sourceStr," ")>0 then dim isOperator isOperator = true sourceList=split(sourceStr) '搝z<hRDe rem Response.Write "num:" & cstr(ubound(sourceList)) & "<br>" for i = 0 to ubound(sourceList) rem Response.Write i Select Case ucase(sourceList(i)) Case "AND","&","t[","N" resultStr=resultStr & " and " isOperator = true Case "OR","|","b" resultStr=resultStr & " or " isOperator = true Case "NOT","!","^?,"貘","貘" resultStr=resultStr & " not " isOperator = true Case "(","貘","貘" resultStr=resultStr & " ( " isOperator = true Case ")"," 貘"," 貘" resultStr=resultStr & " ) " isOperator = true Case else if sourceList(i)<>"" then if not isOperator then resultStr=resultStr & " and " if inStr(sourceList(i),"%") > 0 then resultStr=resultStr&" "&fieldStr& " like '" & replace(sourceList(i),"'","''") & "' " else resultStr=resultStr&" "&fieldStr& " like '%" & replace(sourceList(i),"'","''") & "%' " end if isOperator=false end if end Select rem Response.write resultStr+"<br>" next translate=resultStr else 'USag隂 if inStr(sourcestr,"%") > 0 then translate=" " & fieldStr & " like '" & replace(sourceStr,"'","''") &"' " else translate=" " & fieldStr & " like '%" & replace(sourceStr,"'","''") &"%' " end if rem MRTT雚N*Nzz<h 貘MQ峢飶sql淾屖T雚 貘 ?礉?0 end if end function '************************************** '噡1損u隂 g&Tcknx,cknxn奫弔ure,㼥嬀㼀Vfalse '************************************** function IsValidEmail(strEmail) dim re Set re = new RegExp re.pattern = "^[a-zA-Z][A-Za-z0-9_.-]+@[a-zA-Z0-9_]+?\.[a-zA-Z]{2,3}$" chkEMail=re.Test(strEmail) set re=nothing end function function browser(info) if Instr(info,"MSIE 5.5")>0 then browser="Om T?hV貘Internet Explorer 5.5" ElseIf Instr(info,"MSIE 6.0")>0 then browser="Om T?hV貘Internet Explorer 6.0" ElseIf Instr(info,"MSIE 5.01")>0 then browser="Om T?hV貘Internet Explorer 5.01" ElseIf Instr(info,"MSIE 5.0")>0 then browser="Om T?hV貘Internet Explorer 5.00" ElseIf Instr(info,"MSIE 4.0")>0 then browser="Om T?hV貘Internet Explorer 4.01" else browser="Om T?hV貘*gB? end if end function function system(info) if Instr(info,"NT 5.1")>0 then system=system+"珕\O|瀬?貘Windows XP" ElseIf Instr(info,"NT 5")>0 then system=system+"珕\O|瀬?貘Windows 2000" ElseIf Instr(info,"NT 4")>0 then system=system+"珕\O|瀬?貘Windows NT4" ElseIf Instr(info,"98")>0 then system=system+"珕\O|瀬?貘Windows 98" ElseIf Instr(info,"95")>0 then system=system+"珕\O|瀬?貘Windows 95" else system=system+"珕\O|瀬?貘*gB? end if end function sub ShowMessage(Title, Info,javastr) Response.Write "<table width=""100%"" border=""0"" height=""100%""><tr align=""center""><td><form method=""post"" action="""" name=wrong> " & _ "<table border=""1"" bordercolorlight=""000000"" bordercolordark=""FFFFFF"" cellspacing=""0"" bgcolor=""E0E0E0"">" & _ "<tr><td><table border=""0"" bgcolor=""#FF0099"" cellspacing=""0"" cellpadding=""2"" width=""100%""> " & _ "<tr><td width=""100%""><font color=""FFFFFF"">" & Title & "</font></td> " & _ "<td width=""18""><table border=""1"" bordercolorlight=""666666"" bordercolordark=""FFFFFF"" cellpadding=""0"" bgcolor=""E0E0E0"" cellspacing=""0"" width=""18""> " & _ "<tr><td width=""16""><b><font color=""000000""><span onclick=""javascript:" & javastr & """>?</span></font></b></td> " & _ "</tr></table></td></tr></table><table border=""0"" width=""100%"" cellpadding=""4""> " & _ "<tr><td width=""59"" align=""center"" valign=""top""><font face=""Wingdings"" color=""#FF0000"" style=""font-size:32pt"">J</font></td> " & _ "<td width=""95%"">" & Info & "</td></tr><tr><td colspan=""2"" align=""center"" valign=""top""> " & _ "<input type=""button"" name=""ok"" value=""0nx Tk0"" class=tt name=ok style=""color:#ff6666"" onclick=""javascript:" & javastr & """> " & _ "</td></tr></table></td></tr></table></form></td></tr></table>" end sub function IIF(theInputExp,tValue,fValue) if theInputExp then IIF=tValue else IIF=fValue end if end function 'lz鲓IP0W@W Function GetIP() Dim strIPAddr If Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" OR InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), "unknown") > 0 Then strIPAddr = Request.ServerVariables("REMOTE_ADDR") ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",") > 0 Then strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",")-1) ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";") > 0 Then strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";")-1) Else strIPAddr = Request.ServerVariables("HTTP_X_FORWARDED_FOR") End If GetIP = Trim(Mid(strIPAddr, 1, 30)) End Function '㽚㼀甀堀䴀䰀䠀吀吀倀Ⰰ缀伀⠀甀倀伀匀吀欀笀ༀ开伀㈀㽘਀昀甀渀挀琀椀漀渀 䠀吀吀倀开倀伀匀吀⠀猀琀爀开甀爀氀Ⰰ猀琀爀开挀漀渀琀攀渀琀⤀ഀ਀漀渀 攀爀爀漀爀 爀攀猀甀洀攀 渀攀砀琀ഀ਀搀椀洀 漀戀樀砀洀氀Ⰰ猀攀爀瘀椀挀攀甀爀氀ഀ਀搀椀洀 猀琀爀愀Ⰰ爀攀猀甀氀琀ഀ਀猀攀琀 漀戀樀砀洀氀㴀猀攀爀瘀攀爀⸀䌀爀攀愀琀攀伀戀樀攀挀琀⠀∀䴀椀挀爀漀猀漀昀琀⸀堀䴀䰀䠀吀吀倀∀⤀ഀ਀猀琀爀愀 㴀 唀刀䰀䔀渀挀漀搀椀渀最⠀猀琀爀开挀漀渀琀攀渀琀⤀ഀ਀漀戀樀砀洀氀⸀伀瀀攀渀 ∀瀀漀猀琀∀Ⰰ猀琀爀开甀爀氀Ⰰ昀愀氀猀攀ഀ਀漀戀樀砀洀氀⸀猀攀琀爀攀焀甀攀猀琀栀攀愀搀攀爀 ∀挀漀渀琀攀渀琀ⴀ氀攀渀最琀栀∀Ⰰ氀攀渀⠀猀琀爀愀⤀ഀ਀漀戀樀砀洀氀⸀猀攀琀爀攀焀甀攀猀琀栀攀愀搀攀爀 ∀挀漀渀琀攀渀琀ⴀ琀礀瀀攀∀Ⰰ∀愀瀀瀀氀椀挀愀琀椀漀渀⼀砀ⴀ眀眀眀ⴀ昀漀爀洀ⴀ甀爀氀攀渀挀漀搀攀搀∀ഀ਀漀戀樀砀洀氀⸀猀攀渀搀 猀琀爀愀ഀ਀爀攀猀甀氀琀 㴀 漀戀樀砀洀氀⸀爀攀猀瀀漀渀猀攀琀攀砀琀ഀ਀猀攀琀 漀戀樀砀洀氀 㴀 渀漀琀栀椀渀最ഀ਀䠀吀吀倀开倀伀匀吀 㴀 爀攀猀甀氀琀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀昀甀渀挀琀椀漀渀 唀刀䰀䔀渀挀漀搀椀渀最⠀瘀猀琀爀䤀渀⤀ഀ਀猀琀爀刀攀琀甀爀渀 㴀 ∀∀ഀ਀䘀漀爀 椀 㴀 ㄀ 吀漀 䰀攀渀⠀瘀猀琀爀䤀渀⤀ഀ਀吀栀椀猀䌀栀爀 㴀 䴀椀搀⠀瘀匀琀爀䤀渀Ⰰ椀Ⰰ㄀⤀ഀ਀䤀昀 䄀戀猀⠀䄀猀挀⠀吀栀椀猀䌀栀爀⤀⤀ 㰀 ☀䠀䘀䘀 吀栀攀渀ഀ਀猀琀爀刀攀琀甀爀渀 㴀 猀琀爀刀攀琀甀爀渀 ☀ 吀栀椀猀䌀栀爀ഀ਀䔀氀猀攀ഀ਀椀渀渀攀爀䌀漀搀攀 㴀 䄀猀挀⠀吀栀椀猀䌀栀爀⤀ഀ਀䤀昀 椀渀渀攀爀䌀漀搀攀 㰀   吀栀攀渀ഀ਀椀渀渀攀爀䌀漀搀攀 㴀 椀渀渀攀爀䌀漀搀攀 ⬀ ☀䠀㄀    ഀ਀䔀渀搀 䤀昀ഀ਀䠀椀最栀琀㠀 㴀 ⠀椀渀渀攀爀䌀漀搀攀  䄀渀搀 ☀䠀䘀䘀  ⤀尀 ☀䠀䘀䘀ഀ਀䰀漀眀㠀 㴀 椀渀渀攀爀䌀漀搀攀 䄀渀搀 ☀䠀䘀䘀ഀ਀猀琀爀刀攀琀甀爀渀 㴀 猀琀爀刀攀琀甀爀渀 ☀ ∀─∀ ☀ 䠀攀砀⠀䠀椀最栀琀㠀⤀ ☀  ∀─∀ ☀ 䠀攀砀⠀䰀漀眀㠀⤀ഀ਀䔀渀搀 䤀昀ഀ਀一攀砀琀ഀ਀唀刀䰀䔀渀挀漀搀椀渀最 㴀 猀琀爀刀攀琀甀爀渀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀✀였ƃꄀ㶆愀一䤀∀q攀ഀ਀猀甀戀 匀攀渀搀䴀愀椀氀⠀䴀愀椀氀吀漀䰀椀猀琀Ⰰ䴀愀椀氀䘀爀漀洀Ⰰ䴀愀椀氀匀甀戀樀攀挀琀Ⰰ䴀愀椀氀䌀漀渀琀攀渀琀⤀ഀ਀伀渀 䔀爀爀漀爀 刀攀猀甀洀攀 渀攀砀琀ഀ਀搀椀洀 䴀愀椀氀䠀漀猀琀ഀ਀䴀愀椀氀䠀漀猀琀㴀猀礀猀䴀愀椀氀䠀漀猀琀ഀ਀䐀椀洀 䴀愀椀氀攀爀ഀ਀䐀椀洀 䴀愀椀氀吀漀ഀ਀䐀椀洀 䴀愀椀氀䄀搀搀爀攀猀猀ഀ਀匀攀琀 䴀愀椀氀攀爀㴀猀攀爀瘀攀爀⸀䌀爀攀愀琀攀伀戀樀攀挀琀⠀∀䨀䴀愀椀氀⸀䴀攀猀猀愀最攀∀⤀ഀ਀䴀愀椀氀攀爀⸀䘀爀漀洀㴀䴀愀椀氀䘀爀漀洀ഀ਀䴀愀椀氀攀爀⸀䘀爀漀洀一愀洀攀 㴀 ∀ऀ縀吀Q缀∀ഀ਀䴀愀椀氀攀爀⸀洀愀椀氀猀攀爀瘀攀爀甀猀攀爀渀愀洀攀㴀猀礀猀䴀愀椀氀唀猀攀爀ഀ਀䴀愀椀氀攀爀⸀洀愀椀氀猀攀爀瘀攀爀瀀愀猀猀眀漀爀搀㴀猀礀猀䴀愀椀氀倀眀搀ഀ਀䴀愀椀氀攀爀⸀匀甀戀樀攀挀琀 㴀 䴀愀椀氀匀甀戀樀攀挀琀ഀ਀䴀愀椀氀攀爀⸀䌀栀愀爀猀攀琀 㴀 ∀最戀㈀㌀㄀㈀∀ഀ਀䴀愀椀氀攀爀⸀䄀瀀瀀攀渀搀䠀吀䴀䰀 䴀愀椀氀䌀漀渀琀攀渀琀ഀ਀椀昀 䴀愀椀氀吀漀䰀椀猀琀㴀∀∀ 漀爀 椀猀渀甀氀氀⠀䴀愀椀氀吀漀䰀椀猀琀⤀ 琀栀攀渀ഀ਀攀砀椀琀 猀甀戀ഀ਀攀渀搀 椀昀ഀ਀䴀愀椀氀吀漀㴀猀瀀氀椀琀⠀䴀愀椀氀吀漀䰀椀猀琀Ⰰ∀Ⰰ∀⤀ഀ਀昀漀爀 攀愀挀栀 䴀愀椀氀䄀搀搀爀攀猀猀 椀渀 䴀愀椀氀吀漀ഀ਀椀昀 䴀愀椀氀䄀搀搀爀攀猀猀㰀㸀∀∀ 琀栀攀渀ഀ਀䴀愀椀氀攀爀⸀䄀搀搀刀攀挀椀瀀椀攀渀琀 䴀愀椀氀䄀搀搀爀攀猀猀ഀ਀攀渀搀 椀昀ഀ਀渀攀砀琀ഀ਀䴀愀椀氀攀爀⸀匀攀渀搀⠀䴀愀椀氀䠀漀猀琀⤀ഀ਀䴀愀椀氀攀爀⸀䌀氀漀猀攀⠀⤀ഀ਀猀攀琀 洀愀椀氀攀爀㴀渀漀琀栀椀渀最ഀ਀攀渀搀 猀甀戀ഀ਀✀ ᨀ㼀甀ᨀ㼀甀✀᠀d儀笀簀ᤀ㔀o儀䤀∀q攀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀✀ऀऀᨀ㼀甀甀䬀彧栀儀 紀㸀昀㨀礀䤀∀q攀ഀ਀✀ऀऀ最฀吀Ḁ㼀攀Āᬀ㽮頀㊌  ㌀ⴀ ㌀ⴀ㈀ ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀✀㄀Ā 匀甀戀 䌀漀洀洀漀渀匀攀氀攀挀琀⠀椀搀渀愀洀攀Ⰰ氀椀猀琀猀琀爀Ⰰ瘀愀氀甀攀猀琀爀Ⰰ猀攀氀攀挀琀猀琀爀⤀ऀऀ✀ᨀ㼀甀䤀刀̀瀀騀㱙匀䔀䰀䔀䌀吀 椀搀㴀猀攀氀攀挀琀㄀ 渀愀洀攀㴀猀攀氀攀挀琀㄀㸀ⴀ匀开笀䤀刀䤀∀q攀ഀ਀✀㈀Ā 匀甀戀 䌀漀洀洀漀渀刀愀搀椀漀⠀椀搀渀愀洀攀Ⰰ氀椀猀琀猀琀爀Ⰰ瘀愀氀甀攀猀琀爀Ⰰ挀栀攀挀欀猀琀爀⤀ऀऀ✀䔀洀剩ᨀ頀᪌㼀甀唀匀ऀጀ怀栀ഀ਀✀㌀Ā 匀甀戀 䌀漀洀洀漀渀匀攀氀攀挀琀夀攀愀爀⠀椀搀渀愀洀攀Ⰰ猀攀氀攀挀琀礀攀愀爀⤀ऀऀऀऀऀ✀䔀洀剩ᨀ頀᪌㼀甀䤀刀琀帀䘀㼀一一䙳栀䤀∀q攀ഀ਀✀㐀Ā 匀甀戀 䌀漀洀洀漀渀匀攀氀攀挀琀䴀漀渀琀栀⠀椀搀渀愀洀攀Ⰰ猀攀氀攀挀琀䴀漀渀琀栀⤀ऀऀऀऀ✀䔀洀剩ᨀ頀᪌㼀甀䤀刀ࠀ最䘀㼀一一䙳栀䤀∀q攀ഀ਀✀㔀Ā 匀甀戀 䌀漀洀洀漀渀匀攀氀攀挀琀䐀愀礀⠀椀搀渀愀洀攀Ⰰ猀攀氀攀挀琀䐀愀礀⤀ऀऀऀऀऀ✀䔀洀剩ᨀ頀᪌㼀甀䤀刀⼀㼀最଀一一䙳栀䤀∀q攀ഀ਀✀㘀Ā 匀甀戀 䌀漀洀洀漀渀匀攀氀攀挀琀䐀愀琀攀⠀椀搀渀愀洀攀Ⰰ猀攀氀攀挀琀䐀愀琀攀⤀ऀऀऀऀऀ✀䔀洀剩ᨀ頀᪌㼀甀㸀昀㨀礀⼀㼀最䤀刀଀一一䙳栀䤀∀q攀ഀ਀✀㜀Ā 䘀甀渀挀琀椀漀渀 倀漀瀀圀椀渀搀漀眀⠀甀爀氀Ⰰ䌀漀渀琀攀渀琀Ⰰ氀攀昀琀Ⰰ琀漀瀀Ⰰ栀攀椀最栀琀Ⰰ眀椀搀琀栀⤀ऀ✀䔀洀剩ᨀ頀᪌㼀甀䤀刀㤀开ऀ饹奷帀≢q攀ഀ਀✀㠀Ā 匀甀戀 䌀氀漀猀攀圀椀渀搀漀眀⠀⤀ऀऀऀऀऀऀऀऀऀऀ✀䔀洀剩ᨀ頀᪌㼀甀䤀刀猀儀̀ff桩夀帀≢q攀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀✀䔀洀剩ᨀ頀᪌㼀甀䤀刀̀瀀騀㱙匀䔀䰀䔀䌀吀㸀ⴀ匀开笀䤀刀䤀∀q攀ഀ਀✀㤀搀攀儀ᨀ頀榌搀渀愀洀攀 㰀猀攀氀攀挀琀䤀刀ഀ吀圀嬀㸀ഀ਀✀       氀椀猀琀猀琀爀 ᠀㼀㸀愀匀؀刀开䤀刀䈀匀㸀昀㨀礀ⴀ匀开笀ഀ਀✀       瘀愀氀甀猀攀猀琀爀 ᠀㼀㸀愀匀؀刀开䤀刀䈀匀㸀昀㨀礀帀摯瀀攀㰀倀ⴀ匀开笀ഀ਀✀       猀攀氀攀挀琀猀琀爀 ऀ㼀一䤀刀ⴀ匀开笀ഀ਀✀渀欀㽙挀ᨀ頀Œ㼀਀✀猀娀଀?貘CommonSelect("provience","S t 貘)Y%m 貘 Nwm","bj,tj,sh","bj") '************************** Sub CommonSelect(idname,liststr,valuestr,selectstr) Dim arrlist Dim arrvalue Dim markstr arrlist=split(liststr,",") IF len(trim(valuestr))=0 Then valuestr=liststr IF selectstr="" Then selectstr=arrlist(0) arrvalue=split(valuestr,",") IF Ubound(arrlist)<>Ubound(arrvalue) Then response.write "瀿攀ᤀ─? response.End End IF Response.write "<select name=""" & idname & """>" For i=0 to Ubound(arrlist) IF Cstr(arrvalue(i)) = Cstr(selectstr) Then markstr=" selected " Else markstr="" End IF Response.write "<option " & markstr & "value='" & arrvalue(i) &"'>" & arrlist(i) & "</option>" Next Response.write "</select>" End Sub Sub CommonOption(liststr,valuestr,selectstr) Dim arrlist Dim arrvalue Dim markstr arrlist=split(liststr,",") IF len(trim(valuestr))=0 Then valuestr=liststr 'IF selectstr="" Then selectstr=arrlist(0) arrvalue=split(valuestr,",") IF Ubound(arrlist)<>Ubound(arrvalue) Then response.write "瀿攀ᤀ─? response.End End IF For i=0 to Ubound(arrlist) IF Cstr(arrvalue(i)) = Cstr(selectstr) Then markstr=" selected " Else markstr="" End IF Response.write "<option " & markstr & "value='" & arrvalue(i) &"'>" & arrlist(i) & "</option>" Next End Sub '************************** 'E業R貘?uUS `h '9deQ貘idname <selectIR TW[> ' liststr ?>aSR_IRBS>f:y-S_{ ' valusestr ?>aSR_IRBS>f:y^濤dpe<P-S_{ ' checkstr ?NIR-S_{ '************************* Sub CommonRadio(idname,liststr,valuestr,checkstr) Dim arrlist Dim arrvalue Dim markstr arrlist=split(liststr,",") IF len(trim(valuestr))=0 Then valuestr=liststr IF selectstr="" Then selectstr=arrlist(0) arrvalue=split(valuestr,",") IF Ubound(arrlist)<>Ubound(arrvalue) Then response.write "瀿攀ᤀ─? response.End End IF marked=false For i=0 to Ubound(arrlist) if checkstr="" and not marked then markstr=" checked " marked=true else IF Cstr(arrvalue(i)) = Cstr(checkstr) Then markstr=" checked " Else markstr="" End IF end if Response.write "<input type=radio " & markstr & " value='" & arrvalue(i) &"' name='" & idname & "'>" & arrlist(i) & "&nbsp;" Next End Sub '************************** 'E業R貘?uIRt^F?N獎FhI焢e '************************* Sub CommonSelectYear(idname,selectyear) Dim Yearstr For i=year(date)-5 to year(date)+5 IF Yearstr="" Then Yearstr=i Else Yearstr=Yearstr & "," & i End IF Next CommonSelect idname,Yearstr,Yearstr,selectyear Response.write "t^" End Sub '************************** 'E業R貘?uIRgF?N獎FhI焢e '************************* Sub CommonSelectMonth(idname,selectMonth) Dim Monthstr Dim MonthVal For i=1 to 12 IF Cint(i)<10 Then str="0" Else str="" End IF IF Monthstr="" Then Monthstr=i MonthVal = str & i Else Monthstr=Monthstr & "," & i MonthVal=MonthVal & "," & str & i End IF Next CommonSelect idname,Monthstr,MonthVal,selectMonth Response.write "g" End Sub '************************** 'E業R貘?uIR/?g N獎FhI焢e '************************* Sub CommonSelectDay(idname,selectDay) Dim Daystr Dim DayVal For i=1 to 31 IF Cint(i)<10 Then str="0" Else str="" End IF IF Daystr="" Then Daystr=i DayVal = str & i Else Daystr=Daystr & "," & i DayVal=DayVal & "," & str & i End IF Next CommonSelect idname,Daystr,DayVal,selectDay Response.write "/? End Sub '************************** 'E業R貘?u>f:y/?gIR N獎FhI焢e '************************* Sub CommonSelectDate(idname,selectDate) strCommSelectDate=selectDate CommonSelectYear idname & "_y",year(strCommSelectDate) IF Len(Month(strCommSelectDate)) = 1 Then CommonSelectMonth idname & "_m","0" & Cstr(Month(strCommSelectDate)) Else CommonSelectMonth idname & "_m",Month(strCommSelectDate) End IF IF Len(Day(strCommSelectDate)) = 1 Then CommonSelectDay idname & "_d","0" & Cstr(Day(strCommSelectDate)) Else CommonSelectDay idname & "_d",Day(strCommSelectDate) End IF End Sub '************************** 'E業R貘?uIR9_礉瞙Y扞焢e '************************* Function PopWindow(url,Content,left,top,height,width) Dim str str = "<a style='cursor:hand' target='_blank' onclick=""javascript:window.open('" & url & _ "','','left=" & left & ",top=" & top & ",height=" & height & ",width=" & width & _ ",resizable=no,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no')"">" & _ "<Font color=red>" & Content & "</font></A>" PopWindow = str End FuncTion Function ButtonWindow(url,left,top,height,width) Dim str str="javascript:window.open('" & url & _ "','','left=" & left & ",top=" & top & ",height=" & height & ",width=" & width & _ ",resizable=no,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no')" ButtonWindow=str End Function '************************** 'E業R貘?uIRsQ槻hY扞焢e '************************** Sub CloseWindow() dim str str = "<input class=button type=button name='sQ? id=CloseButton onclick=""javascript:window.close();"" value='sQ?>" Response.Write str End Sub ' ?uu杋!id\OI焢e '$R璽(u7b/f&T{vU_ public function IsLogin() if trim(Session("empEmployeeid"))="" then IsLogin=false else if isnumeric(Session("empEmployeeid")) then IsLogin=true else IsLogin=false end if end if end function '$R璽(u7b/f&T g^濤dIR珕\OCgP? public function IsPermission(urlPath) dim mConn,mStrSql,mRs dim chkResId,empResId set mConn=GetDBConn() if urlPath="" then IsPermission=true exit function end if empResId=Session("empResId") if empResId="" then IsPermission=false exit function end if empResId="," & empResId & "," mStrSql="select * from resource where respath='" & urlPath & "'" set mRs=SelectSql(mStrSql,mConn) if not mRs.eof then chkResId="," & mRs("resId") & "," if instr(empResId,chkResId)>0 then IsPermission=true else IsPermission=false end if else IsPermission=false end if mRs.close set mRs=nothing set mConn=nothing end function '$R璽(u7b/f&T g珕\OA?bIRCgP? public function ExistUser(regid,empid,conn) dim rs,strSQL,colNo if regid="" or empid="" then ExistUser=False exit function end if strSql="select ColNo from RegInfo where regid=" & regid set rs = Selectsql(strSql,conn) if not rs.eof then ColNo = rs("colno") end if rs.close if ColNo="" then ExistUser=false exit function end if strSql = "select colno from EmployeeInCol where groupid='G002' and employeeid=" & empid & " and colno='" & ColNo & "'" set rs = SelectSql(strSql,conn) if not rs.eof then ExistUser=true else ExistUser=false end if rs.close set rs = nothing end function '╲U_1?wIR|瀬?揺?㼬一⠀甀㜀戀Ⰰ?Y邥╲U_N!k function writeViewRegLog(regid,employeeid,conn) dim rs,strSql,memotype dim thedate memotype = 11 thedate = FormatDate(now(),"yyyy-mm-dd") strSql = "select * from RegMemo where regid=" & regid & " and employeeid=" & employeeid & " and memotype=" & memotype & " and writedate>'" & thedate & "'" set rs = SelectSql(strSql,conn) if rs.eof then dim log,strDate,Remark,EmpName set log=new Log_Class set log.conn=conn strDate=FormatDate(now(),"yyyy-m-d hh:nn:ss") EmpName=GetColumnValue("select UserName from employee where EmployeeId=" & EmployeeId,conn) Remark=EmpName & "貘痌"& strDate & " 貘1?wA?bg憃`" message=log.WriteMemoLog(EmployeeId,RegId,memotype,"1?wA?b",Remark,strDate) set log = nothing end if rs.close set rs = nothing end function '╲U_?eA?bg憃`/揺? function writeUpdateRegLog(regid,employeeid,conn) dim memotype memotype = 12 dim log,strDate,Remark,EmpName set log=new Log_Class set log.conn=conn strDate=FormatDate(now(),"yyyy-m-d hh:nn:ss") EmpName=GetColumnValue("select UserName from employee where EmployeeId=" & EmployeeId,conn) Remark=EmpName & "貘痌"& strDate & " 貘?eA?bg憃`" message=log.WriteMemoLog(EmployeeId,RegId,memotype,"?eA?b",Remark,strDate) set log = nothing end function '╲U_ Rd筭[7bg憃`/揺? function writeDeleteRegLog(regid,employeeid,conn) dim memotype memotype = 13 dim log,strDate,Remark,EmpName set log=new Log_Class set log.conn=conn strDate=FormatDate(now(),"yyyy-m-d hh:nn:ss") EmpName=GetColumnValue("select UserName from employee where EmployeeId=" & EmployeeId,conn) Remark=EmpName & "貘痌"& strDate & " 貘 Rd筭[7bg憃`" message=log.WriteMemoLog(EmployeeId,RegId,memotype," Rd筭[7b",Remark,strDate) set log = nothing end function '╲U_ Rd筭[7bg憃`/揺? function writeRecoverRegLog(regid,employeeid,conn) dim memotype memotype = 14 dim log,strDate,Remark,EmpName set log=new Log_Class set log.conn=conn strDate=FormatDate(now(),"yyyy-m-d hh:nn:ss") EmpName=GetColumnValue("select UserName from employee where EmployeeId=" & EmployeeId,conn) Remark=EmpName & "貘痌"& strDate & " 貘b` Y?Rd筭[7bg憃`" message=log.WriteMemoLog(EmployeeId,RegId,memotype,"b` YA?b",Remark,strDate) set log = nothing end function ' {vU_bCgP阦h1? sysIsAdminLog=true sysIsEditorLog=true sysIsHrLog=true sysRegisterLog=true function AdminLog(title,description,conn) if sysIsAdminLog then call WriteSystemLog(Session("empEmployeeid"),"P001",title,description,conn) end function function EditorLog(title,description,conn) if sysIsEditorLog then call WriteSystemLog(Session("empEmployeeid"),"P002",title,description,conn) end function function HrLog(title,description,conn) if sysIsHrLog then call WriteSystemLog(Session("empEmployeeid"),"P003",title,description,conn) end function function RegisterLog(title,description,conn) if sysRegisterLog then call WriteSystemLog(Session("empEmployeeid"),"P004",title,description,conn) end function function WriteSystemLog(employeeId,category,title,description,conn) dim mStrSql,rs set rs=server.CreateObject("adodb.recordset") mStrSql="select * from systemlog where id=0" rs.Open mStrSql,conn,3,3 rs.AddNew rs("employeeid")=employeeId if Request.QueryString="" then rs("urlPath")=Request.ServerVariables("PATH_INFO") else rs("urlPath")=Request.ServerVariables("PATH_INFO") & "?" & Request.QueryString end if rs("category")=category rs("title")=title rs("description")=description rs("actiontime")=now() rs("runip")=Request.ServerVariables("REMOTE_ADDR") rs.Update end function ' ╲U_|瀬?揺? 'O(u\?a貘 '10㼋渀ﴀ㽻圀ഀ最脀牒唥开ⴀ一܀挀吀欀甀䬀彧白܀栀฀?貘(W譻㿷䤀刀甀䬀౧椀稀罪猀吀椀琀氀攀㴀∀∀ഀ਀✀㈀Ā ଀?ncTkIRu杋?篽?O(u쌿㾛ఀ頀䢌溓缀挀栀欀䌀漀氀一漀㴀∀∀ഀ਀✀ഀ਀搀椀洀 唀刀䰀开倀䄀吀䠀ऀ✀ 圀䀀圀⬀Ȁ㼀peW[&{2N貘(u痌u杋Oi隲?貘 if Request.ServerVariables("QUERY_STRING")<>"" then URL_PATH=Request.ServerVariables("PATH_INFO") & "?" & Request.ServerVariables("QUERY_STRING") else URL_PATH=Request.ServerVariables("PATH_INFO") end if function chkCanView() if chkMember<>1 then chkMember=0 dim RegId RegId=Session("RegId") UserId=Session("userid") if UserId<>"" and RegId<>"" then result=CheckPermission(RegId,CurColNo,chkMember) result=trim(result) if right(result,1)="1" then '╲U_H~c?揺? chkCanView=0 call RecordProcess(RegId,UserId,CurColNo,CurInfoNum,URL_PATH,CurTitle) else if result="00" then chkCanView=2 else chkCanView=cint(result) end if end if else chkCanView=1 end if end function Sub showLogin(errCode) dim message message=GetErrInfo(errCode,ErrInfo) if message="" then message="*gB?㼥ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㔀㐀⤀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀⠀唀刀䰀开倀䄀吀䠀⤀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㔀㔀⤀ഀ਀✀椀昀 洀攀猀猀愀最攀㰀㸀∀∀ 琀栀攀渀           ✀⼀⼀⼀⼀⼀⼀⼀⼀⼀⼀⼀⤀?t殓 RiX鼘Byif 貘 N殓>f:y㼥嬀伀漀怀昀唀ഀ਀✀㰀琀爀 㸀㰀琀搀 挀漀氀猀瀀愀渀㴀㈀ 愀氀椀最渀㴀∀挀攀渀琀攀爀∀ 栀攀椀最栀琀㴀㈀㘀㸀ഀ਀✀㰀䈀㸀㰀昀漀渀琀 挀漀氀漀爀㴀爀攀搀㸀㾛㄀夀─㼀ᤀ─좖厌猀?貘=message</td></tr> 'end if Response.WriteBlock(56) end Sub Dim ErrInfo(50) '阥╖|乑T?x^濤dpe ErrInfo(0)=array("92","ck_(u7b,㼾最㄀㼀眀搀欀ༀ栀䔀洀剩䌀最倀㼀⤀ഀ਀䔀爀爀䤀渀昀漀⠀㄀⤀㴀愀爀爀愀礀⠀∀㤀㌀∀Ⰰ∀挀欀ༀ开⠀甀㜀戀Ⰰ䠀圀䌀最Āᬀ㽮㼀刀ἀ最∀⤀ഀ਀䔀爀爀䤀渀昀漀⠀㈀⤀㴀愀爀爀愀礀⠀∀㄀㈀∀Ⰰ∀褀⢇甀⠀甀㜀戀Ⰰ㸀?g1?wdkhE業RCgP?) ErrInfo(3)=array("13","螉(u(u7b,HWCgg憃`agpe汎?u~[") ErrInfo(4)=array("14","螉(u(u7b,dkg憃`邥AQ{ck_(u7b1?w") ErrInfo(5)=array("2","㼾最ऀ最䠀攀䤀刀䠀圀䌀最Ⰰ㸀?g1?wdkhE業RCgP?) ErrInfo(6)=array("1","(u7b㼾最笀瘀唀开Ⰰ㸀?g1?wdkhE業RCgP?) ErrInfo(7)=array("","") function GetErrInfo(ErrCode,arr) dim result result="" for i=0 to ubound(arr) if arr(i)(0)="" then exit for else if arr(i)(0)=cstr(ErrCode) then result=arr(i)(1) exit for end if end if next GetErrInfo=result end function function CheckPermission(RegId,chkColNo,IsMember) dim mConn,mRs,mStrSql dim result result="00" set mConn=GetDBConn() mStrSql="select * from regauthcol where status=1 and regid=" & RegId & " order by authtype desc" set mRs=SelectSql(mStrSql,mConn) chkColNo=left(chkColNo,2) do while not mRs.eof select case cint(mRs("authType")) case 9 'ck_(u7bHWCg$R璽 if instr(mRs("ColNoList"),chkColNo)>0 or mRs("ColNoList") = "/" then if datediff("d",mRs("sdate"),now())>=0 and datediff("d",mRs("edate"),now())<=0 then result="91" else result="93" end if else result="92" end if case 1 '螉(u(u7bHWCg$R璽 if IsMember="1" then result="14" 'dkg憃`邥AQ{ck_(u7b1?w else if csng(mRs("InfoLeft"))>0 then if instr(mRs("ColNoList"),chkColNo)>0 or mRs("ColNoList") = "/" then result="11" mStrSql="update regauthcol set infoleft=infoleft-1 where authid=" & mRs("authId") ExecuteSql mStrSql,mConn else result="12" end if else result="13" 'dkHWCg汎?u~[ end if end if end select if right(result,1)="1" then exit do end if mRs.movenext loop mRs.close set mRs=nothing set mConn=nothing CheckPermission=result end function function RecordProcess(RegId,UserId,ColNo,InfoNum,InfoPath,Title) UserId=chkInputStr(UserId,20) InfoPath=chkInputStr(InfoPath,200) TItle=chkInputStr(Title,200) if InfoNum="" or not isnumeric(InfoNum) then InfoNum=0 dim mConn,mStrSql set mConn=GetDBConn() mStrSql="insert into viewinfolog(regid,userid,colno,fullcolno,infonum,infoPath,addtime,logtype,title,runip,logcontent) values (" & _ RegId & ",'" & UserId & "','" & left(ColNo,2) & "','" & ColNo & "'," & InfoNum & ",'" & InfoPath & "',getdate(),1,'" & Title & "','" & _ Request.ServerVariables("REMOTE_ADDR") & "','')" ExecuteSql mStrSql,mConn set mConn=nothing end function CurTitle = "N煱y5uQ貘 t/snI{10wD?uQ妚5u{l'} _" CurInfoNum = "341744" CurColNo = "A410" result=chkCanView() If result<>0 Then showLogin result Else Response.WriteBlock(57) End If Response.WriteBlock(58) 畆?^(?AU8UTUtU?U?U?U?UU< Uh U? U? U? U?U U(UDU\U|U?U?U?U?UU4UHU`U|U?U?U?U? U!U,"UD#U\$U|%U?&U?'U?(U?)U?*U+U@,U`-U?.U?/U?0U 1U(2UL3Ul4U?5U?6U?7U?8U9UD:Ut;U?<U?=U?>U??U@U(AUDBUdCU?DU?EV?V?V( VX V?V?V?V V$ VT V? V? V? V?V V( VT Vl V?V?V?V?V V< V` V?V?V?V?V V V8 VP !Vt "V?#V?$V?%V?&V'V(V8)V\*Vt+V?,V?-V?.V?/V0V,1VH2Vh3V?4V?5V?6V?7V8V,9VL:Vt;V?<V?=V?>V?V @V<A oTh??<??                              ? !  " ?!# "$ #% $& H%' &( ?') ?(* ?)+ *, ?+- ?,. ?-/ ?.0 ?/1 ?02 ?13 ?24 ?35 ?46 @57 ?68 ?79 8:?9;?:<?;=<?>??(@@h?A??B<C<=Dl>E?F?G?H?I?J00T|TC<?K?0T?R00TR@:?L?0T@M 2AN??(? .AO? (? .AP0@(? .AQhx(? .AR??(? .AS??(? .AT$(? .AU||(? .AVP?W??X??Y(Z TC<?['(:?\ 9o] :o8o~^ 僐? 8Xp0?? $?1??<q?1??n?1?  WT4a?i <????4(?_?$X?$??$???? 貘貘0#0$Ph? 0#0$P?1?h00a   WputFjMu \????貘貘1??#?# TC<A貘貘(?:H W?(?Xzin貘0?X\0?貘貘? 1??#?# TC<S?貘貘'?W?㽘砀缀؀堀瀀㼀Ȁ㼀Ȁ㼀Ȁ̀ᤀ頀颌㪌ကȀ㨀猀฀㼀吀栀䄀̀Ā฀㼀ᤀ㼀刀฀㼀刀渀̀Ȁᴀ㼀㄀㼀Ȁ㨀猀฀ᰀἀ吀栀爀̀̀฀㼀ᤀ㼀刀฀㼀刀渀̀Ѐᴀ㼀㄀㼀Ȁ㨀猀夀̀Ԁ圀ȀĀ㼀̀㼀㼀䠀㼀؀䈀㼀㼀ȀĀЀ Ȁ㼀Ȁᰀ ̀ᤀ頀颌ᦌ㼀⠀㼀ȀᬀĀ̀ĀᤀĀ⌀  㰀㄀̀Ȁ฀簀ᜀᨀȀ㨀㴀̀̀଀ⴀĀĀᨀ̀ЀᔀᬀĀ̀Ԁ圀ȀĀ㼀̀᠀㼀㼀㼀ऀ椀?礀Ā̀ĀЀ Ȁ㼀Ȁ䀀 Ȁ堀 ̀ᤀ頀颌ᦌ㼀⠀㼀ȀᬀĀ̀ĀᤀĀ⌀  䄀㰀㼀̀Ȁ଀ⴀĀĀᤀ㼀䈀㰀搀̀̀฀栀 ଀ⴀĀĀ刀฀㼀刀଀ĀⴀĀĀ刀฀㼀刀ᴀ㼀刀渀Ȁ㨀㼀̀Ѐ฀栀 ଀ⴀĀĀ刀฀㼀刀଀ĀⴀĀĀ刀฀㼀刀ᴀ㼀刀渀̀ԀᤀĀ㄀㼀Ȁ㨀ሀ̀؀ᤀĀ㄀က℀̀܀ᔀᬀĀ̀ࠀ圀ȀĀ᐀Ā̀ 㼀ࠀĀ㼀ഀᬀ帀㼀ȀЀȀ␀℀Ȁ䀀 Ȁ㐀℀䠀℀尀℀琀℀̀ᤀ頀颌ຌ㼀⠀㼀ȀᨀĀ̀ĀᤀĀ椀Ȁ؀Ԁ㰀㼀̀ȀᤀȀ฀㼀⠀㼀ȀḀ㼀̀̀ᴀ㼀⠀㼀Ā଀吀䘀㰀琀̀Ѐ଀⠀㼀ĀᨀЀ̀Ԁ଀Ā⠀㼀Āᨀ̀Ȁ㨀㼀̀؀଀⠀㼀ĀᨀЀ̀܀଀⠀㼀Āᨀ̀̀ࠀᤀ̀ᤀ㼀⠀㼀Ā䈀㰀㼀̀ऀ฀栀 ᤀ̀刀฀㼀刀ᤀЀ刀฀㼀刀ᴀ㼀刀渀Ȁ㨀㼀̀਀฀栀 ᤀ̀刀฀㼀刀ᤀЀ刀฀㼀刀ᴀ㼀刀渀̀଀樀Ȁ؀Ԁ㬀─Ȁ洀؀Ԁ̀ఀ圀ȀĀ㰀Ā̀䘀???仠?$!@ 4!H!\!t!|貘貘?(?i<??(???(? TF<~ (? (?:? (? (? ?(?B<?  :? j;/m Wh敄?CRV@$!<貘貘?Rne??7?|??@?"<40"貘貘R'?貘貘L"RR?Rn?3X)?Z?f@$!<&貘貘?Rn?1?Id?thf?潣?@<c#X"kl"<]l"L"Rl"(R?R'hll";&m?=a?? 狿@?"?<?貘貘(??TC<8?'h:??'h 貘貘(? d(#<?(#4#R(#-貘貘R?R'he(#;d?TB<??1? ,q\ Q? ?0??$!D#h#t#(#f貘貘貘|TB貘貘(?#><- :?(? TB<?貘貘(?  b<?貘貘 (?(?  TD<?  H  貘TF<?  H c;x:?貘貘(??#? TC<?1??W(0???X??$$!h#(#$f貘 貘貘(?#<) :?貘貘(?(0$|TB<] :?(?  b<?  (? D$TFP$TD><?  :? c;??#? TC<??1?WD誶??╘$!?D#h#\$t#(#貘貘(?#貘貘|TB><)|W|?(? TB<5貘貘(?   b< 貘貘 (?(?  TD<?  H  貘TF<?  H:? H?G<貘貘(h$:c;}|TB</貘貘:t貘貘(??F<b貘貘?(h$:t貘貘?(h$W \`?   ??|$貘貘(?#A<貘貘??(?貘貘貘貘??(?貘貘貘貘 (??(?貘貘貘貘 "(?%(?貘貘貘貘 '(?,%(?貘貘貘貘 (?|(?貘貘貘貘 (? (?R@%(?貘貘貘貘 (?\%(?貘貘 貘貘 W{vU_|噻??G|$貘貘(?#A<?貘貘??(?貘貘貘貘??(?貘貘貘貘| (?(?貘貘貘貘p% (? (?R(?貘貘貘貘? (?(?貘貘貘貘W梜??徵w??H!???(? TD?(? TC><1|W貘貘(??G<Q貘貘W??貘貘(?I(?貘貘HW?h貘?$ r ($!?貘貘(0$貘貘? TF<5貘貘?(D:[? TB<Q貘貘:[| "(?%(? '(?,%(? W?HO.??$!貘貘|TC<@貘貘(?<0貘貘::|:J|W??O4?$!貘貘|TC<@貘貘(&<0貘貘::|:J|Wh;:^?$!,&貘貘?(?貘貘C<.D&RWve4???XY@$!T& *o貘貘|TC<& +o貘貘n ,o?TB<B -o:t??TB<^ .o:t ?l&TB<t /o 0o ?1? PaH?GM ??@$!x& 1o貘貘|TC<& 2o貘貘n 3o 4o?n 5o?1? `P{W??$!(#?貘貘(?(?  b<n貘貘 (??TC<`貘貘 (?Rc;+W01|?^5??????('貘貘(&<?貘貘('('('(? TB<Z@'('R('貘貘(P'd'd'(? TB<?P$d'Rd'貘貘(?'? ?(? TB<? P$?R? 貘貘(?(?#<? ??:2 貘貘(???(? TB<2P$?R?貘貘(?(?#<\??:?貘貘(???(? TB<?P$?R?貘貘(((?#<??0(:?貘貘((0(0((? TB<?P$0(R0(L((`( TF<3L(('(?:ot((`( TF<ot((' (?(??(`( TF<??d'(?:? ?(`( TF<?!?d'(?(?(?"?(`( TF<"#??(?:c$?(`( TF<c%??(?(?(?&?(`( TF<?'??(?:?(?(`( TF<?)??(?(?(?*)(== document.location.protocol) ? " https://" : " http://"); document.write(unescape("%3Cscript src='" + _bdhmProtocol + "hm.baidu.com/h.js%3Fc6e81542b125c36346d9167691b8bd09' type='text/javascript'%3E%3C/script%3E")); </script></body> </html>