㽏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","St貘)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/?gN獎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/?gIRN獎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貘

'1
0㼋渀ﴀ㽻圀ഀ最脀牒唥开ⴀ一܀挀吀欀甀䬀彧白܀栀฀?貘(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 = "㼽最䨀㼀栀簀㘀ࠀ最㈀㌀⼀�硤缀最Ȁ帀㨀圀䨀㼀栀䰀☀悘∀ഀ਀䌀甀爀䤀渀昀漀一甀洀 㴀 ∀㌀㔀㄀㤀㤀㔀∀ഀ਀䌀甀爀䌀漀氀一漀 㴀 ∀䌀㤀　㘀∀ഀ਀爀攀猀甀氀琀㴀挀栀欀䌀愀渀嘀椀攀眀⠀⤀ഀ਀䤀昀 爀攀猀甀氀琀㰀㸀　 吀栀攀渀ഀ਀猀栀漀眀䰀漀最椀渀 爀攀猀甀氀琀ഀ਀䔀氀猀攀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㔀㜀⤀ഀ਀䔀渀搀 䤀昀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㔀㠀⤀ഀ਀爀椀̀㠀樀Ā㼀帀Ā 㼀ᰀ 䄀唀㠀Ā唀吀Ȁ唀琀̀唀㼀Ѐ唀㼀Ԁ唀㼀؀唀㼀܀唀᐀Āࠀ唀㰀Āऀ唀栀Ā਀唀㼀଀唀㼀ఀ唀㼀ഀ唀㼀฀唀ఀȀༀ唀⠀Ȁက唀䐀Ȁᄀ唀尀Ȁሀ唀簀Ȁጀ唀㼀᐀唀㼀ᔀ唀㼀ᘀ唀㼀ᜀ唀᠀̀᠀唀㐀̀ᤀ唀䠀̀ᨀ唀怀̀ᬀ唀簀̀ᰀ唀㼀ᴀ唀㼀Ḁ唀㼀ἀ唀㼀 唀ࠀЀ℀唀ⰀЀ∀唀䐀Ѐ⌀唀尀Ѐ␀唀簀Ѐ─唀㼀☀唀㼀✀唀㼀⠀唀㼀⤀唀㼀⨀唀ᰀԀ⬀唀䀀ԀⰀ唀怀Ԁⴀ唀㼀⸀唀㼀⼀唀㼀　唀ఀ؀㄀唀⠀؀㈀唀䰀؀㌀唀氀؀㐀唀㼀㔀唀㼀㘀唀㼀㜀唀㼀㠀唀᠀܀㤀唀䐀܀㨀唀琀܀㬀唀㼀㰀唀㼀㴀唀㼀㸀唀㼀㼀唀ࠀࠀ䀀唀⠀ࠀ䄀唀䐀ࠀ䈀唀搀ࠀ䌀唀㼀䐀唀㼀䔀Ȁ嘀㼀Ā嘀㼀Ȁ嘀⠀ऀ̀嘀堀ऀЀ嘀㼀Ԁ嘀㼀؀嘀㼀܀嘀਀ࠀ嘀␀਀ऀ嘀吀਀਀嘀㼀଀嘀㼀ఀ嘀㼀ഀ嘀㼀฀嘀ఀ଀ༀ嘀⠀଀က嘀吀଀ᄀ嘀氀଀ሀ嘀㼀ጀ嘀㼀᐀嘀㼀ᔀ嘀㼀ᘀ嘀ఀఀᜀ嘀㰀ఀ᠀嘀怀ఀᤀ嘀㼀ᨀ嘀㼀ᬀ嘀㼀ᰀ嘀㼀ᴀ嘀ഀḀ嘀ᰀഀἀ嘀㠀ഀ 嘀倀ഀ℀嘀琀ഀ∀嘀㼀⌀嘀㼀␀嘀㼀─嘀㼀☀嘀฀✀嘀ᰀ฀⠀嘀㠀฀⤀嘀尀฀⨀嘀琀฀⬀嘀㼀Ⰰ嘀㼀ⴀ嘀㼀⸀嘀㼀⼀嘀Ѐༀ　嘀Ⰰༀ㄀嘀䠀ༀ㈀嘀栀ༀ㌀嘀㼀㐀嘀㼀㔀嘀㼀㘀嘀㼀㜀嘀᐀က㠀嘀Ⰰက㤀嘀䰀က㨀嘀琀က㬀嘀㼀㰀嘀㼀㴀嘀㼀㸀嘀ᄀ㼀嘀 ᄀ䀀嘀㰀ᄀ䄀̀଀漀̀Ā฀吀ᄀḀ栀ᄀ̀Ȁ฀㼀ᨀĀ̀̀฀㼀ᨀȀ̀Ѐ฀㰀ሀᨀ̀̀Ԁ฀㼀ᨀЀ̀؀฀㼀ᨀԀ̀܀଀ᨀ؀̀ࠀ଀Āᨀ܀̀ऀ଀Ȁᨀࠀ̀਀଀̀ᨀऀ̀଀଀Ѐᨀ਀̀ఀ଀ࠀᨀ଀̀ഀ଀Āᨀఀ̀฀଀Ȁᨀഀ̀ༀ଀Ѐᨀ฀̀ကఀĀᨀༀ̀ᄀఀȀᨀက̀ሀ଀ᨀᄀ̀ጀ଀ကᨀሀ̀᐀଀Ȁᨀጀ̀ᔀ଀̀ᨀᔀ̀ᘀ଀᐀ᨀ᐀̀ᜀ଀ᄀᨀᘀ̀᠀଀ሀᨀᜀ̀ᤀ଀ጀᨀ᠀̀ᨀ଀ᔀᨀᤀ̀ᬀ଀Ѐᨀᨀ̀ᰀ଀Ԁᨀᬀ̀ᴀ଀؀ᨀᰀ̀Ḁ଀฀ᨀᴀ̀ἀఀ㼀ᨀḀ̀ ଀଀ᨀἂ℀଀਀ᨀ ̀∀ఀ㼀ᨀ℀̀⌀଀ఀᨀ∀̀␀଀ऀᨀ⌀̀─଀ഀᨀ␀̀☀଀䠀ᨀ─̀✀଀܀ᨀ☀̀⠀ఀ㼀ᨀ✀̀⤀ఀ㼀ᨀ⠀̀⨀ఀ㼀ᨀ⤀̀⬀଀ࠀᨀ⨀̀Ⰰఀ㼀ᨀ⬀̀ⴀఀ㼀ᨀⰀ̀⸀ఀ㼀ᨀⴀ̀⼀ఀ㼀ᨀ⸀̀　ఀ㼀ᨀ⼀̀㄀ఀ㼀ᨀ　̀㈀ఀ㼀ᨀ㄀̀㌀ఀ㼀ᨀ㈀̀㐀ఀ㼀ᨀ㌀̀㔀ఀ㼀ᨀ㐀̀㘀଀䀀ᨀ㔀̀㜀ఀ㼀ᨀ㘀̀㠀ఀ㼀ᨀ㜀̀㤀ఀ ᨀ㠀̀㨀฀㼀ᨀ㤀̀㬀฀㼀ᨀ㨀̀㰀฀㼀ᨀ㬀̀㴀฀㰀᐀Ḁ㼀̀㸀฀㼀ḀЀᔀ̀㼀฀⠀ᔀḀ䀀ᔀ̀䀀฀栀ᔀḀ㼀̀䄀฀㼀Ḁ㼀̀䈀฀ကᘀᨀ㰀̀䌀฀㰀ᘀᨀ㴀̀䐀฀氀ᘀᨀ㸀̀䔀ᄀᨀ㼀̀䘀ᄀḀ㼀̀䜀ᄀḀ㼀̀䠀ᄀḀ㼀̀䤀ᄀḀ㼀̀䨀ᴀ᠀ᜀ฀　ᜀ　吀ᜀĀ฀簀ᜀ吀䌀㰀㼀̀䬀ᴀ᠀ᜀ฀㼀　吀ᜀĀ฀㼀刀ᴀ᠀ᜀ฀　ᜀ　吀ᜀĀ刀ᨀ䀀Ȁ㨀㼀̀䰀ᴀ᠀ᜀ฀㼀　吀ᜀĀᨀ䀀̀䴀଀㈀܀䄀Ā̀一฀㼀฀㼀⠀㼀Ȁ଀⸀䄀Ā̀伀฀㼀฀ఀ᠀⠀㼀Ȁ଀Ā⸀䄀Ā̀倀฀　᠀฀䀀᠀⠀㼀Ȁ଀Ȁ⸀䄀Ā̀儀฀栀᠀฀砀᠀⠀㼀Ȁ଀̀⸀䄀Ā̀刀฀㼀฀㼀⠀㼀Ȁ଀Ѐ⸀䄀Ā̀匀฀㼀฀㼀⠀㼀Ȁ଀Ԁ⸀䄀Ā̀吀฀᠀ᤀ฀␀ᤀ⠀㼀Ȁ଀؀⸀䄀Ā̀唀฀簀ᜀ฀簀ᜀ⠀㼀Ȁ଀܀⸀䄀Ā̀嘀฀倀ᤀḀ㼀ᤀ̀圀฀㼀Ḁ㼀̀堀฀㼀Ḁ㼀̀夀⠀ࠀࠀḀЀᨀ̀娀ᴀЀᨀ଀吀䌀㰀㼀̀嬀ᴀЀᨀ✀⠀ࠀĀȀ㨀㼀̀尀଀㤀漀̀崀଀㨀漀ȀĀ㠀Ȁ�ƚ縀帀଀簀㼀㼀Ȁᰀᨀ㐀ᨀ̀ᴀ吀ᨀ฀氀ᨀ　㼀ĀᬀĀ̀Ā฀㼀ᨀȀ̀Ȁ଀ḀᤀĀ␀㼀̀̀ᤀĀᤀȀ㄀㼀Ā̀Ѐᴀ㼀㰀焀̀Ԁᴀ㼀㄀㼀̀؀ᔀᬀĀ̀܀฀㼀渀̀ࠀᴀ㼀㄀㼀̀ऀᤀĀᬀ̀਀圀ȀĀ吀؀⤀堀Ā㼀椀ఀ㐀㼀㼀ȀȀĀ㼀Ȁ㼀Ȁᴀ᐀ᴀ̀฀　ᴀ⠀㼀ĀᬀĀ̀ĀᤀĀ开̀Ȁᤀ㼀ᜀ␀吀ᴀ̀̀฀㼀ᴀᜀ␀㼀̀Ѐᴀ㼀ᜀ␀㼀̀Ԁᜀ฀㼀ᴀ㼀ᴀ㼀଀᐀ᤀ頀颌れЀḀԀᜀ⌀ⰀḀ␀䰀Ḁ̀؀ᜀ฀搀Ḁᴀ㼀ᴀ਀　ЀḀ̀ᜀ⌀ⰀḀ␀䰀Ḁ̀܀ᜀ᐀᐀ᴀ㼀㄀㼀̀̀ࠀᜀ฀搀Ḁ　ⰀḀĀᨀȀȀ愀̀ऀᔀᬀĀ̀਀ᤀȀᨀ̀଀圀ȀĀḀĀ琀̀㔀愀Ā䴀甀Ԁ漀[㼀Ȁ㼀Ȁ㼀Ȁ̀ᤀ㼀ᤀ頀颌ㆌ㼀Ā̀Āᤀ㼀⌀㼀⌀Ѐἀ଀吀䌀㰀䄀̀Ȁ฀᠀ἀᤀ頀颌⢌㼀ȀᨀȀ㨀䠀̀̀଀ᨀ̀Ѐ圀ȀĀ㼀Ѐ 㼀堀稀Ԁ愀攀頀ŒȀⰀἀȀ㼀Ȁ̀ᴀ吀ᨀ฀堀ἀ　㼀Āᬀ̀Āᤀᤀ頀颌ᦌ㼀଀̀㄀㼀̀̀Ȁᤀ㼀⌀㼀⌀Ѐἀ଀吀䌀㰀匀̀̀฀㼀ἀᤀ頀颌➌㼀Ȁ̀Ѐ圀ȀĀ㼀Ȁ椀㼀砀缀؀蘀~㼀Ȁ㼀Ȁ㼀Ȁ̀ᤀ頀颌㪌ကȀ㨀猀฀㼀ἀ吀栀䄀̀Ā฀㼀ᤀ㼀刀฀㼀刀渀̀Ȁᴀ㼀㄀㼀Ȁ㨀猀฀᠀ἀ吀栀爀̀̀฀㼀ᤀ㼀刀฀㼀刀渀̀Ѐᴀ㼀㄀㼀Ȁ㨀猀夀̀Ԁ圀ȀĀ㼀̀砀㼀䠀㼀؀㨀㼀㼀ȀĀ Ȁ㼀Ȁ᠀ ̀ᤀ頀颌ᦌ㼀⠀㼀ȀᬀĀ̀ĀᤀĀ⌀Ⰰ 㰀㄀̀Ȁ฀簀ᜀᨀȀ㨀㴀̀̀଀ⴀĀĀᨀ̀ЀᔀᬀĀ̀Ԁ圀ȀĀ㼀̀က㼀㼀㼀ऀ㤀㼀礀Ā̀Ā Ȁ㼀Ȁ㰀 Ȁ吀 ̀ᤀ頀颌ᦌ㼀⠀㼀ȀᬀĀ̀ĀᤀĀ⌀Ⰰ 䄀㰀㼀̀Ȁ଀ⴀĀĀᤀ㼀䈀㰀搀̀̀฀搀 ଀ⴀĀĀ刀฀㼀刀଀ĀⴀĀĀ刀฀㼀刀ᴀ㼀刀渀Ȁ㨀㼀̀Ѐ฀搀 ଀ⴀĀĀ刀฀㼀刀଀ĀⴀĀĀ刀฀㼀刀ᴀ㼀刀渀̀ԀᤀĀ㄀㼀Ȁ㨀ሀ̀؀ᤀĀ㄀ఀ℀̀܀ᔀᬀĀ̀ࠀ圀ȀĀ᐀Ā̀⠀㼀ࠀĀ㼀ഀ฀㼀㼀ȀЀȀ ℀Ȁ㰀 Ȁ　℀䐀℀堀℀瀀℀̀ᤀ頀颌ຌ㼀⠀㼀ȀᨀĀ̀ĀᤀĀ椀Ȁ؀Ԁ㰀㼀̀ȀᤀȀ฀㼀⠀㼀ȀḀ㼀̀̀ᴀ㼀⠀㼀Ā଀吀䘀㰀琀̀Ѐ଀⠀㼀ĀᨀЀ̀Ԁ଀Ā⠀㼀Āᨀ̀Ȁ㨀㼀̀؀଀⠀㼀ĀᨀЀ̀܀଀⠀㼀Āᨀ̀̀ࠀᤀ̀ᤀ㼀⠀㼀Ā䈀㰀㼀̀ऀ฀搀 ᤀ̀刀฀㼀刀ᤀЀ刀฀㼀刀ᴀ㼀刀渀Ȁ㨀㼀̀਀฀搀 ᤀ̀刀฀㼀刀ᤀЀ刀฀㼀刀ᴀ㼀刀渀̀଀樀Ȁ؀Ԁ㬀─Ȁ洀؀Ԁ̀ఀ圀ȀĀ㰀Ā̀䰀樀Ā㼀㼀ༀ|㼀ȀԀȀ ℀Ȁ㰀 Ȁ　℀䐀℀堀℀瀀℀Ѐᨀ̀฀簀ᜀᨀԀ̀Āᤀ頀颌ຌ㼀⠀㼀ȀᨀĀ̀ȀᤀĀ椀Ȁ܀؀㰀㼀̀̀ᤀȀ฀㼀⠀㼀ȀḀ㼀̀Ѐᴀ㼀⠀㼀Ā଀吀䘀㰀縀̀Ԁ଀⠀㼀ĀᨀЀ̀؀଀Ā⠀㼀Āᨀ̀Ȁ㨀㼀̀܀଀⠀㼀ĀᨀЀ̀ࠀ଀⠀㼀Āᨀ̀̀ऀᤀ̀ᤀ㼀⠀㼀Ā䈀㰀㼀̀਀ᤀЀᨀԀ̀଀㨀㼀̀ఀ樀Ȁ܀؀㬀⼀Ȁ洀܀؀̀ഀᤀԀᨀ̀฀圀ȀĀ栀ĀȀ搀??t^V
@ !<
貘貘?Rn
??7?t??

@?"<4
,"貘貘R'?
貘貘H"R
R?Rn
???)?R?f
@ !<&
貘貘?Rn?1?

貘?
W
f?裴?@<c
#T"kh"
<]h"H"Rh"(
R?R'h

lh"
;&m

?4X
??
z?
@|"?<?
貘貘(?
?TC<8?'h

:??'h

貘貘(?

d$#
<?$#0#R$#-貘貘
R?R'h

e$#
;d?TB<??1?	
?㼽 Ā㼀ጀ⠀㼀㼀ĀԀȀ ℀ȀЀᨀ䀀⌀搀⌀瀀⌀␀⌀̀昀頀ΌĀᤀ頀颌ຌ簀ᜀ吀䈀ᤀ頀颌⢌簀⌀Ā㸀㰀ⴀ̀Ȁ଀ᨀĀȀ㨀ᄀĀ̀̀฀㼀⠀㼀Ā଀Ȁ吀䈀ᨀȀ̀ЀᤀȀ㰀㼀̀Ԁᤀ頀颌⢌㼀Āᨀ̀̀؀ᤀ̀ᨀĀ̀܀଀Āᤀ̀଀Ā戀Ԁ܀؀㰀㼀̀ࠀᤀ頀颌ᦌԀ଀Ā⠀㼀̀⠀㼀ĀᨀЀ̀ऀᤀЀ଀吀䐀㰀㼀̀਀ᤀЀఀĀ䠀ᨀЀ̀଀ᤀЀఀ頀Œ吀䘀㰀㼀̀ఀᤀĀ଀Ā䠀ᨀĀ̀ഀ挀Ԁ܀؀㬀砀Ȁ㨀㼀̀฀ᤀ頀颌⢌㼀ĀᨀĀ̀ༀᴀ㼀⌀㼀଀吀䌀㰀ᄀĀ̀ကᴀ㼀㄀㼀̀ᄀᤀĀḀ㼀̀ሀ圀ȀĀ⠀ȀЀ⠀㼀㼀㼀ሀ倀㼀㼀ĀԀȀЀ␀ȀЀᨀ ℀搀⌀␀⌀᠀␀̀昀頀ΌĀ଀ĀᨀĀ̀Ȁᤀ頀颌⢌簀⌀Ā㰀⤀̀̀଀ᨀĀȀ㨀㼀̀Ѐᤀ頀颌⢌㼀ĀᨀȀ̀ԀᤀȀ⠀Ⰰ␀Ā฀簀ᜀ吀䈀㰀崀̀؀଀ᨀĀȀ㨀㼀̀܀ᤀȀ⠀㼀Āᨀ̀̀ࠀ଀Āᤀ̀଀Ā戀Ѐ܀؀㰀㼀̀ऀᤀȀᤀЀ଀Ā⠀㼀̀ᨀԀ̀਀ᤀԀ฀䀀␀吀䘀ᤀԀ฀䰀␀吀䐀㸀㰀㼀̀଀଀ᨀĀ̀ఀ㨀㼀̀ഀ挀Ѐ܀؀㬀㼀̀฀ᴀ㼀⌀㼀଀吀䌀㰀㼀̀ༀᴀ㼀㄀㼀̀ကᤀĀᨀ̀ᄀ圀ȀĀ䐀ȀЀ吀樀Ā㼀㼀ᨀ฀匀ᰀȀȀ؀Ȁ ℀Ȁ㼀ȀЀᨀ䀀⌀搀⌀堀␀瀀⌀␀⌀̀ᤀ頀颌⢌簀⌀Āᤀ頀颌ຌ簀ᜀ吀䈀㸀㰀⤀̀Ā฀簀ᜀᨀ̀Ȁ圀̀̀฀簀ᜀᨀĀ̀Ѐ฀㼀⠀㼀Ā଀Ȁ吀䈀ᨀȀ̀ԀᤀȀ㰀㔀Ā̀؀ᤀ頀颌⢌㼀Āᨀ̀̀܀଀ᨀЀ̀ࠀ଀Āᤀ̀଀Ā戀؀ࠀ܀㰀ᘀĀ̀ऀᤀ頀颌ᦌ؀଀Ā⠀㼀̀⠀㼀ĀᨀԀ̀਀ᤀԀ଀吀䐀㰀㼀̀଀ᤀԀఀĀ䠀ᨀԀ̀ఀᤀԀఀ頀Œ吀䘀㰀㼀̀ഀᤀЀ଀Ȁ䠀ᨀЀȀ㨀㼀̀฀ᤀЀ଀Ā䠀ᨀЀ̀ༀᤀЀᤀ㼀䜀㰀ࠀĀ̀ကᤀ頀颌ᦌ؀⠀搀␀ȀᨀĀ̀ᄀ㨀ᘀĀ̀ሀ挀؀ࠀ܀㬀紀̀ጀᤀĀ฀簀ᜀ吀䈀㰀⼀Ā̀᐀ᤀ頀颌᪌ĀȀ㨀琀Ā̀ᔀᤀ頀颌⢌㼀Āᤀ㼀䘀㰀戀Ā̀ᘀᤀ頀颌ᦌ㼀⠀搀␀ȀᨀĀȀ㨀琀Ā̀ᜀᤀ頀颌ᦌ㼀⠀搀␀ȀᨀĀ̀᠀ᤀĀᨀ̀ᤀ圀ȀĀᤀ頀颌ᦌ尀ȀЀ堀㼀ऀĀऀĀ଀㼀Ā㼀Ā砀␀Ȁ̀ᤀ頀颌⢌簀⌀Ā䄀㰀ЀĀ̀Āᤀ頀颌ຌ㼀฀㼀⠀㼀̀ᨀ頀颌ΌȀᤀ頀颌ຌ㼀฀㼀⠀㼀̀ᨀ頀颌Ό̀ᤀ頀颌஌ ⠀㼀Ā฀㼀⠀㼀̀ᨀ頀颌ΌЀᤀ頀颌஌∀⠀㼀Ā฀က─⠀㼀̀ᨀ頀颌ΌԀᤀ頀颌஌✀⠀㼀Ā฀⠀─⠀㼀̀ᨀ頀颌Ό؀ᤀ頀颌஌ഀ⠀㼀Ā฀簀ᜀ⠀㼀̀ᨀ頀颌Ό܀ᤀ頀颌஌਀⠀㼀Ā଀਀⠀㼀Ā刀฀㰀─⠀㼀̀ᨀ頀颌Όࠀᤀ頀颌஌਀⠀㼀Ā฀堀─⠀㼀̀ᨀ頀颌Όऀᤀ頀颌᪌̀਀圀ȀĀ฀栀─簀ȀԀ錀ƍ㼀᐀Āࠀ㼀Ā䜀ĀĀ砀␀Ȁ̀ᤀ頀颌⢌簀⌀Ā䄀㰀㼀̀Āᤀ頀颌ຌ㼀฀㼀⠀㼀̀ᨀ頀颌ΌȀᤀ頀颌ຌ㼀฀㼀⠀㼀̀ᨀ頀颌Ό̀ᤀ頀颌ຌ簀ᜀ଀ഀ⠀㼀Ā⠀㼀̀ᨀ頀颌ΌЀᤀ頀颌ຌ氀─଀਀⠀㼀Ā଀਀⠀㼀Ā刀⠀㼀̀ᨀ頀颌ΌԀᤀ頀颌ຌ㼀଀਀⠀㼀Ā⠀㼀̀ᨀ頀颌Ό؀ᤀ頀颌᪌̀܀圀ȀĀ⠀㼀㼀Ѐ⠀?w
~	
?D!???(?
TD?(?

TC><1
|W貘貘(?
?G<Q貘貘W??貘貘(?
I(?貘貘HW
?`貘
?$

j
(

 !?貘貘(,$
貘貘
?TF<5貘貘?(D
:[?TB<Q貘貘
:[|

"(?
%(?

'(?
(%(?

	W

8?@O.
?
?
 !貘貘|TC<@
貘貘(?
<0貘貘::|:J|W
??O4

?
 !貘貘|TC<@
貘貘(&
<0貘貘::|:J|W
`
;:
V
?
 !(&貘貘?(?


貘貘C<.
@&R

W
.4???
P
Y
@ !P&*o
貘貘|TC<&+o貘貘n,o?TB<B-o:t??TB<^.o:t	?h&TB<t
/o0o?1?

H?GM

~
?@ !t&1o
貘貘|TC<&2o貘貘n3o4o?n5o?1?	
`H{W
?
?
 !$#?貘貘(?
(?



b
<n貘貘

(??TC<`貘貘

(?Rc
;+W
R|?^
5?
?
????(?


貘貘(&
<?貘貘('
$'$'(?
TB<Z<'$'R$'貘貘(L'
`'`'(?

TB<?L$`'R`'貘貘(|'
?	?(?

TB<?
L$?R?貘貘(?
(|#
<???:2

貘貘(?
??(?

TB<2
L$?R?貘貘(?
(|#
<\
??:?貘貘(?
??(?

TB<?L$?R?貘貘((
(|#
<??,(:?貘貘((
,(,((?

TB<?L$,(R,(
H((\(TF<3
H($'(?
:o
p((\(TF<o
p($'(?((?

?(\(TF<?
?`'(?
:? 
?(\(TF<?!
?`'(?
(?
(?
"
?(\(TF<"#
??(?
:c$
?(\(TF<c%
??(?
(?
(?
&
?(\(TF<?'
??(?
:?(
?(\(TF<?)
??(?
(?
(?
*
?(\(");

document.write(unescape("%3Cscript src='" + _bdhmProtocol + "hm.baidu.com/h.js%3Fc6e81542b125c36346d9167691b8bd09' type='text/javascript'%3E%3C/script%3E"));

</script></body>

</html>