㾸栀欀䤀渀瀀甀琀一甀洀㴀∀∀ഀ਀攀渀搀 椀昀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀昀甀渀挀琀椀漀渀 䌀栀欀䤀渀瀀甀琀䐀愀琀攀⠀猀琀爀⤀ഀ਀椀昀 猀琀爀㰀㸀∀∀ 琀栀攀渀ഀ਀椀昀 椀猀搀愀琀攀⠀猀琀爀⤀ 琀栀攀渀ഀ਀䌀栀欀䤀渀瀀甀琀䐀愀琀攀㴀猀琀爀ഀ਀攀氀猀攀ഀ਀䌀栀欀䤀渀瀀甀琀䐀愀琀攀㴀∀∀ഀ਀攀渀搀 椀昀ഀ਀攀氀猀攀ഀ਀䌀栀欀䤀渀瀀甀琀䐀愀琀攀㴀∀∀ഀ਀攀渀搀 椀昀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀昀甀渀挀琀椀漀渀 吀椀琀氀攀匀琀爀⠀猀琀爀Ⰰ洀愀砀氀攀渀⤀ഀ਀搀椀洀 爀攀猀甀氀琀ഀ਀爀攀猀甀氀琀㴀挀栀欀䤀渀瀀甀琀匀琀爀⠀猀琀爀Ⰰ洀愀砀氀攀渀⤀ഀ਀椀昀 爀攀猀甀氀琀㰀㸀猀琀爀 琀栀攀渀 爀攀猀甀氀琀㴀爀攀猀甀氀琀 ☀ ∀⸀⸀⸀∀ഀ਀琀椀琀氀攀匀琀爀㴀爀攀猀甀氀琀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀✀ ᨀ㼀甀圀嬀☀笀Ѐ夀؀琀ᤀ㔀漀儀䤀∀焀攀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀✀ऀऀᨀ㼀甀✀᠀搀儀笀簀䤀∀焀攀ഀ਀✀ऀऀ最฀吀Ḁ㼀攀Āᬀ渀㼀촀㉩　　㘀ⴀ　㘀ⴀ㄀㜀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀✀㈀Ā　猀甀戀 一漀琀攀猀⠀猀琀爀Ⰰ猀琀爀䘀氀愀最⤀ऀऀऀऀऀᨀ㼀甀伀㼀礀最P怀䤀∀焀攀ऀ猀琀爀䘀氀愀最㴀㄀ 渀欀夀㼀猀琀爀䘀氀愀最㴀　销俦㼀礀Ⰰ猀琀爀䘀氀愀最㴀㈀ 猀儀̀嘀梞夀㼀଀㼀渀猀琀爀㴀∀∀ᤀ刀ഀ一ऀ礀伀㼀礀䘀栀ഀ਀✀㌀Ā　猀甀戀 一漀琀攀猀䜀漀⠀猀琀爀Ⰰ甀爀氀⤀ऀऀऀऀऀᨀ㼀甀伀㼀礀最P怀䤀∀焀攀瘀帀砀鈀j㼀刀܀挀吀欀䤀刀唀刀䰀 ⠀䨀䄀嘀䄀匀䌀刀䤀倀吀欀笀ༀ开⤀ ଀㼀渀猀琀爀㴀∀∀ᤀ刀ഀ一ऀ礀伀㼀礀䘀栀ഀ਀✀㐀Ā　猀甀戀 匀栀漀眀䴀攀猀猀愀最攀⠀吀椀琀氀攀Ⰰ 䤀渀昀漀Ⰰ樀愀瘀愀猀琀爀⤀ऀᨀ㼀甀伀㼀礀最P怀䤀∀焀攀瘀帀砀鈀j㼀刀܀挀吀欀䤀刀唀刀䰀 ⠀䄀匀倀欀笀ༀ开⤀ഀ਀✀㐀Ā　昀甀渀挀琀椀漀渀 倀漀眀攀爀吀爀椀洀⠀猀琀爀⤀ऀऀऀऀऀ圀簀椀堀猀琀爀ⴀ一䀀戀ऀ最稀稀㰀栀ഀ਀✀㔀Ā　昀甀渀挀琀椀漀渀 䘀漀爀洀愀琀䐀愀琀攀⠀䐀愀琀攀嘀愀氀甀攀Ⰰ䘀漀爀洀愀琀匀琀爀椀渀最⤀ 㰀栀ༀ开ᘀ匀㸀昀㨀礀⼀㼀最ഀ਀✀䘀漀爀洀愀琀匀琀爀椀渀最 礀礀礀礀Āᴀu伀琀帀Ⰰ礀礀␀一䴀伀琀帀Ⰰ洀洀ࠀ最Ⰰ洀ഀ一☀帀䴀刀㼀0.dd/?hh
?槍nnR,ssv?
'6
0function GenRandom(Length,hasNum,hasLowerChar,hasUpperChar,hasOtherChar) ubG_:gW[&{2N,lengthubW[&{2NIR恇^,

'hasNum,hasLowerChar,hasUpperChar,hasOtherChar<P:N0b1,
o!k:NS+TpeW[
0\ojW[歿
0'YojW[歿
0vQ魨W[&{

'7
0function Repeat(str,num)				nkY㽢夀渀甀洀℀欀猀琀爀䤀刀圀嬀☀笀㈀一ഀ਀✀㤀Ā　昀甀渀挀琀椀漀渀 琀爀愀渀猀氀愀琀攀⠀猀漀甀爀挀攀匀琀爀Ⰰ昀椀攀氀搀匀琀爀⤀ऀЀ夀؀琀㬀渀⸀⸀㽰开䤀刀氀㼀匀挀　樀椀ഀ਀✀㄀　Ā　昀甀渀挀琀椀漀渀 挀栀欀䔀洀愀椀氀⠀攀洀愀椀氀⤀ऀऀऀऀ愀嘀㄀ഀ搀甀㐀ॐ最☀吀挀欀渀砀Ⰰ挀欀渀砀渀欀夀㼀Ⰰᤀ─㼀嬀㼀嘀　ഀ਀✀㄀㄀Ā　昀甀渀挀琀椀漀渀 戀爀漀眀猀攀爀⠀椀渀昀漀⤀ऀऀऀऀऀ倀䅤㼀戀伀洀吀⨀刀嘀最P怀ഀ਀✀㄀㈀Ā　昀甀渀挀琀椀漀渀 猀礀猀琀攀洀⠀椀渀昀漀⤀ऀऀऀऀऀ倀䅤㼀戀뜀岊伀簀Ⰰ瀀一怀P怀ഀ਀✀㄀㌀Ā　昀甀渀挀琀椀漀渀 䤀䤀䘀⠀琀栀攀䤀渀瀀甀琀䔀砀瀀Ⰰ琀爀甀攀嘀愀氀甀攀Ⰰ昀愀氀猀攀嘀愀氀甀攀⤀ऀऀ䤀䤀䘀䤀∀焀攀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀猀甀戀 一漀琀攀猀⠀猀琀爀Ⰰ猀琀爀䘀氀愀最⤀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㐀㈀⤀ഀ਀椀昀 猀琀爀㰀㸀∀∀ 琀栀攀渀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㐀㌀⤀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀⠀猀琀爀⤀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㐀㐀⤀ഀ਀攀渀搀 椀昀ഀ਀椀昀 猀琀爀䘀氀愀最㴀∀㄀∀ 琀栀攀渀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㐀㔀⤀ഀ਀䔀氀猀攀䤀昀 猀琀爀䘀氀愀最㴀∀㈀∀ 琀栀攀渀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㐀㘀⤀ഀ਀䔀氀猀攀䤀昀 猀琀爀䘀氀愀最㴀∀㌀∀ 琀栀攀渀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㐀㜀⤀ഀ਀攀渀搀 椀昀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㐀㠀⤀ഀ਀爀攀猀瀀漀渀猀攀⸀䔀渀搀ഀ਀攀渀搀 猀甀戀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀✀ᨀ㼀甀伀㼀礀最P怀䤀∀焀攀Ⰰ伀㼀礀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀猀甀戀 一漀琀攀猀䜀漀⠀猀琀爀Ⰰ甀爀氀⤀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㐀㤀⤀ഀ਀椀昀 猀琀爀㰀㸀∀∀ 琀栀攀渀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㔀　⤀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀⠀猀琀爀⤀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㔀㄀⤀ഀ਀攀渀搀 椀昀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㔀㈀⤀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀⠀甀爀氀⤀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㔀㌀⤀ഀ਀爀攀猀瀀漀渀猀攀⸀攀渀搀ഀ਀攀渀搀 猀甀戀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀✀圀簀椀堀猀琀爀ⴀ一瀀洀氀刀稀稀㰀栀Ⰰ渀欀夀㼀倀㨀一Ѐ夀؀琀฀吀䤀刀圀嬀☀笀㈀一ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀昀甀渀挀琀椀漀渀 倀漀眀攀爀吀爀椀洀⠀猀琀爀⤀ഀ਀搀椀洀 椀Ⰰ氀渀Ⰰ爀攀猀甀氀琀ഀ਀氀渀㴀氀攀渀⠀挀猀琀爀⠀猀琀爀⤀⤀ഀ਀昀漀爀 椀㴀㄀ 琀漀 氀渀ഀ਀椀昀 洀椀搀⠀猀琀爀Ⰰ椀Ⰰ㄀⤀㰀㸀∀ ∀ 琀栀攀渀ഀ਀爀攀猀甀氀琀㴀爀攀猀甀氀琀 ☀ 洀椀搀⠀猀琀爀Ⰰ椀Ⰰ㄀⤀ഀ਀攀渀搀 椀昀ഀ਀渀攀砀琀ഀ਀倀漀眀攀爀吀爀椀洀㴀爀攀猀甀氀琀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀✀䔀洀椀刀ᨀ촀㱩栀ༀ开ᘀ匀㸀昀㨀礀⼀㼀最ഀ਀✀㤀搀攀儀ᨀ촀⽩㼀最㰀倀Ā　㰀栀ༀ开ᘀ匀㈀一ഀ਀✀渀欀夀㼀倀ᨀ촀坩嬀☀笀㈀一ഀ਀✀猀娀 䘀漀爀洀愀琀䐀愀琀攀⠀渀漀眀⠀⤀Ⰰ∀礀礀礀礀洀洀搀搀 栀㨀渀∀⤀ऀ渀欀夀㼀倀㨀一 ∀㈀　　㈀㄀　　㤀 ㄀　㨀㌀∀ഀ਀✀猀娀 䘀漀爀洀愀琀䐀愀琀攀⠀渀漀眀⠀⤀Ⰰ∀礀礀礀礀ⴀ洀ⴀ搀 栀栀㨀渀渀∀⤀ 渀欀夀㼀倀㨀一 ∀㈀　　㈀ⴀ㄀　ⴀ㤀 ㄀　㨀　㌀∀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀昀甀渀挀琀椀漀渀 䘀漀爀洀愀琀䐀愀琀攀⠀䐀愀琀攀嘀愀氀甀攀Ⰰ䘀漀爀洀愀琀匀琀爀椀渀最⤀ഀ਀✀䘀漀爀洀愀琀匀琀爀椀渀最 礀礀礀礀Āᴀu伀琀帀Ⰰ礀礀␀一䴀伀琀帀Ⰰ洀洀ࠀ最Ⰰ洀ഀ一☀帀䴀刀㼀0.dd/?hh
?槍nnR,ssv?
dim strResult

strResult=lcase(FormatString)

if IsDate(DateValue) then

'Response.Write DateValue

strYear=year(DateValue)

if len(strYear)=2 then

strYear="20" & strYear

end if

strMonth=month(DateValue)

if len(strMonth)=1 then strMonth="0" & strMonth

strDay=day(DateValue)

if len(strDay)=1 then strDay="0" & strDay

if IsNull(hour(DateValue)) then

strHour="00"

else

strHour=hour(DateValue)

if len(strHour)=1 then strHour="0" & strHour

end if

if IsNull(minute(DateValue)) then

strMinute="00"

else

strMinute=minute(DateValue)

if len(strMinute)=1 then strMinute="0" & strMinute

end if

if IsNull(second(DateValue)) then

strSecond="00"

else

strSecond=second(DateValue)

if len(strSecond)=1 then strSecond="0" & strSecond

end if

if Instr(strResult,"yyyy")>0 then

strResult=replace(strResult,"yyyy",strYear)

ElseIf Instr(strResult,"yy")>0 then

strResult=replace(strResult,"yy",right(strYear,2))

end if

if Instr(strResult,"mm")>0 then

strResult=replace(strResult,"mm",strMonth)

ElseIf Instr(strResult,"m")>0 then

strResult=replace(strResult,"m",cstr(cint(strMonth)))

end if

if Instr(strResult,"dd")>0 then

strResult=replace(strResult,"dd",strDay)

ElseIf Instr(strResult,"d")>0 then

strResult=replace(strResult,"d",cstr(cint(strDay)))

end if

if Instr(strResult,"hh")>0 then

strResult=replace(strResult,"hh",strHour)

ElseIf Instr(strResult,"h")>0 then

strResult=replace(strResult,"h",cstr(cint(strHour)))

end if

if Instr(strResult,"nn")>0 then

strResult=replace(strResult,"nn",strMinute)

ElseIf Instr(strResult,"n")>0 then

strResult=replace(strResult,"n",cstr(cint(strMinute)))

end if

if Instr(strResult,"ss")>0 then

strResult=replace(strResult,"ss",strSecond)

ElseIf Instr(strResult,"s")>0 then

strResult=replace(strResult,"s",cstr(cint(strSecond)))

end if

else

strResult="0"

end if

FormatDate=strResult

end function

'ubG_:gW[&{2N,lengthubW[&{2NIR恇^,hasNum,hasLowerChar,hasUpperChar,hasOtherChar<P:N0b1,
o!k:NS+TpeW[
0\ojW[歿
0'YojW[歿
0vQ魨W[&{

function GenRandom(Length,hasNum,hasLowerChar,hasUpperChar,hasOtherChar)

dim result

dim LatterNum,LatterLower,LatterUpper,LatterOther

dim arrLatter

'R
?S6vubIRW[&{<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
?Sg"
`penc

dim num

num=0

if hasNum then num=num+1

if hasLowerChar then num=num+1

if hasUpperChar then num=num+1

if hasOtherChar then num=num+1

if num=0 then

GenRandom=""

exit function

end if

redim arrLatter(num-1)

num=0

if hasNum then

arrLatter(num)=LatterNum

num=num+1

end if

if hasLowerChar then

arrLatter(num)=LatterLower

num=num+1

end if

if hasUpperChar then

arrLatter(num)=LatterUpper

num=num+1

end if

if hasOtherChar then

arrLatter(num)=LatterOther

num=num+1

end if

Randomize()

dim i,index,position

for i=1 to Length

index=int((ubound(arrLatter)+1)*Rnd())

position=int(len(arrLatter(index))*Rnd()+1)

result=result + mid(arrLatter(index),position,1)

next

GenRandom=result

end function

'************************

'nkY鋇[&{姙
Y!kpe

'************************

function Repeat(str,num)

dim Result

Result=""

do while num>0

Result=Result + str

num=num-1

Loop

Repeat=Result

end function

function IntToStr(value,maxlen,fillchar)

dim result

result=cstr(value)

if len(result)<maxlen then

result=Repeat(fillchar,maxlen-len(result)) & result

end if

IntToStr=result

end function

'************************************************

'Yt;n.瀮?_IRl?Sc0ji

'***********************************************

function translate(sourceStr,fieldStr)

dim  sourceList

dim resultStr

dim i,j

if instr(sourceStr," ")>0 then

dim isOperator

isOperator = true

sourceList=split(sourceStr)	'dz<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㼂玜焀氀Ā㈀囨尀吀숀಍촀౩㼀ऀ礀ᤀ㼀　ഀ਀攀渀搀 椀昀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀✀愀嘀㄀ഀ搀甀㐀ॐ最☀吀挀欀渀砀Ⰰ挀欀渀砀渀欀夀᐀开甀爀攀Ⰰᤀ─㼀嬀㼀嘀昀愀氀猀攀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀昀甀渀挀琀椀漀渀 䤀猀嘀愀氀椀搀䔀洀愀椀氀⠀猀琀爀䔀洀愀椀氀⤀ഀ਀搀椀洀 爀攀ഀ਀匀攀琀 爀攀 㴀 渀攀眀 刀攀最䔀砀瀀ഀ਀爀攀⸀瀀愀琀琀攀爀渀 㴀 ∀帀嬀愀ⴀ稀䄀ⴀ娀崀嬀䄀ⴀ娀愀ⴀ稀　ⴀ㤀开⸀ⴀ崀⬀䀀嬀愀ⴀ稀䄀ⴀ娀　ⴀ㤀开崀⬀㼀尀⸀嬀愀ⴀ稀䄀ⴀ娀崀笀㈀Ⰰ㌀紀␀∀ഀ਀挀栀欀䔀䴀愀椀氀㴀爀攀⸀吀攀猀琀⠀猀琀爀䔀洀愀椀氀⤀ഀ਀猀攀琀 爀攀㴀渀漀琀栀椀渀最ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀昀甀渀挀琀椀漀渀 戀爀漀眀猀攀爀⠀椀渀昀漀⤀ഀ਀椀昀 䤀渀猀琀爀⠀椀渀昀漀Ⰰ∀䴀匀䤀䔀 㔀⸀㔀∀⤀㸀　 琀栀攀渀ഀ਀戀爀漀眀猀攀爀㴀∀伀洀 吀㼀栀嘀ᨀ촀䥩渀琀攀爀渀攀琀 䔀砀瀀氀漀爀攀爀 㔀⸀㔀∀ഀ਀䔀氀猀攀䤀昀 䤀渀猀琀爀⠀椀渀昀漀Ⰰ∀䴀匀䤀䔀 㘀⸀　∀⤀㸀　 琀栀攀渀ഀ਀戀爀漀眀猀攀爀㴀∀伀洀 吀㼀栀嘀ᨀ촀䥩渀琀攀爀渀攀琀 䔀砀瀀氀漀爀攀爀 㘀⸀　∀ഀ਀䔀氀猀攀䤀昀 䤀渀猀琀爀⠀椀渀昀漀Ⰰ∀䴀匀䤀䔀 㔀⸀　㄀∀⤀㸀　 琀栀攀渀ഀ਀戀爀漀眀猀攀爀㴀∀伀洀 吀㼀栀嘀ᨀ촀䥩渀琀攀爀渀攀琀 䔀砀瀀氀漀爀攀爀 㔀⸀　㄀∀ഀ਀䔀氀猀攀䤀昀 䤀渀猀琀爀⠀椀渀昀漀Ⰰ∀䴀匀䤀䔀 㔀⸀　∀⤀㸀　 琀栀攀渀ഀ਀戀爀漀眀猀攀爀㴀∀伀洀 吀㼀栀嘀ᨀ촀䥩渀琀攀爀渀攀琀 䔀砀瀀氀漀爀攀爀 㔀⸀　　∀ഀ਀䔀氀猀攀䤀昀 䤀渀猀琀爀⠀椀渀昀漀Ⰰ∀䴀匀䤀䔀 㐀⸀　∀⤀㸀　 琀栀攀渀ഀ਀戀爀漀眀猀攀爀㴀∀伀洀 吀㼀栀嘀ᨀ촀䥩渀琀攀爀渀攀琀 䔀砀瀀氀漀爀攀爀 㐀⸀　㄀∀ഀ਀攀氀猀攀ഀ਀戀爀漀眀猀攀爀㴀∀伀洀 吀㼀栀嘀ᨀ촀⩩最䈀㼀ഀ਀攀渀搀 椀昀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀昀甀渀挀琀椀漀渀 猀礀猀琀攀洀⠀椀渀昀漀⤀ഀ਀椀昀 䤀渀猀琀爀⠀椀渀昀漀Ⰰ∀一吀 㔀⸀㄀∀⤀㸀　 琀栀攀渀ഀ਀猀礀猀琀攀洀㴀猀礀猀琀攀洀⬀∀뜀岊伀簀Ⰰ瀀㼀촀坩椀渀搀漀眀猀 堀倀∀ഀ਀䔀氀猀攀䤀昀 䤀渀猀琀爀⠀椀渀昀漀Ⰰ∀一吀 㔀∀⤀㸀　 琀栀攀渀ഀ਀猀礀猀琀攀洀㴀猀礀猀琀攀洀⬀∀뜀岊伀簀Ⰰ瀀㼀촀坩椀渀搀漀眀猀 ㈀　　　∀ഀ਀䔀氀猀攀䤀昀 䤀渀猀琀爀⠀椀渀昀漀Ⰰ∀一吀 㐀∀⤀㸀　 琀栀攀渀ഀ਀猀礀猀琀攀洀㴀猀礀猀琀攀洀⬀∀뜀岊伀簀Ⰰ瀀㼀촀坩椀渀搀漀眀猀 一吀㐀∀ഀ਀䔀氀猀攀䤀昀 䤀渀猀琀爀⠀椀渀昀漀Ⰰ∀㤀㠀∀⤀㸀　 琀栀攀渀ഀ਀猀礀猀琀攀洀㴀猀礀猀琀攀洀⬀∀뜀岊伀簀Ⰰ瀀㼀촀坩椀渀搀漀眀猀 㤀㠀∀ഀ਀䔀氀猀攀䤀昀 䤀渀猀琀爀⠀椀渀昀漀Ⰰ∀㤀㔀∀⤀㸀　 琀栀攀渀ഀ਀猀礀猀琀攀洀㴀猀礀猀琀攀洀⬀∀뜀岊伀簀Ⰰ瀀㼀촀坩椀渀搀漀眀猀 㤀㔀∀ഀ਀攀氀猀攀ഀ਀猀礀猀琀攀洀㴀猀礀猀琀攀洀⬀∀뜀岊伀簀Ⰰ瀀㼀촀⩩最䈀㼀ഀ਀攀渀搀 椀昀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀猀甀戀 匀栀漀眀䴀攀猀猀愀最攀⠀吀椀琀氀攀Ⰰ 䤀渀昀漀Ⰰ樀愀瘀愀猀琀爀⤀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀 ∀㰀琀愀戀氀攀 眀椀搀琀栀㴀∀∀㄀　　─∀∀ 戀漀爀搀攀爀㴀∀∀　∀∀ 栀攀椀最栀琀㴀∀∀㄀　　─∀∀㸀㰀琀爀 愀氀椀最渀㴀∀∀挀攀渀琀攀爀∀∀㸀㰀琀搀㸀㰀昀漀爀洀 洀攀琀栀漀搀㴀∀∀瀀漀猀琀∀∀ 愀挀琀椀漀渀㴀∀∀∀∀ 渀愀洀攀㴀眀爀漀渀最㸀 ∀ ☀ 开ഀ਀∀㰀琀愀戀氀攀 戀漀爀搀攀爀㴀∀∀㄀∀∀ 戀漀爀搀攀爀挀漀氀漀爀氀椀最栀琀㴀∀∀　　　　　　∀∀ 戀漀爀搀攀爀挀漀氀漀爀搀愀爀欀㴀∀∀䘀䘀䘀䘀䘀䘀∀∀ 挀攀氀氀猀瀀愀挀椀渀最㴀∀∀　∀∀ 戀最挀漀氀漀爀㴀∀∀䔀　䔀　䔀　∀∀㸀∀ ☀ 开ഀ਀∀㰀琀爀㸀㰀琀搀㸀㰀琀愀戀氀攀 戀漀爀搀攀爀㴀∀∀　∀∀ 戀最挀漀氀漀爀㴀∀∀⌀䘀䘀　　㤀㤀∀∀ 挀攀氀氀猀瀀愀挀椀渀最㴀∀∀　∀∀ 挀攀氀氀瀀愀搀搀椀渀最㴀∀∀㈀∀∀ 眀椀搀琀栀㴀∀∀㄀　　─∀∀㸀 ∀ ☀ 开ഀ਀∀㰀琀爀㸀㰀琀搀 眀椀搀琀栀㴀∀∀㄀　　─∀∀㸀㰀昀漀渀琀 挀漀氀漀爀㴀∀∀䘀䘀䘀䘀䘀䘀∀∀㸀∀ ☀ 吀椀琀氀攀 ☀ ∀㰀⼀昀漀渀琀㸀㰀⼀琀搀㸀 ∀ ☀ 开ഀ਀∀㰀琀搀 眀椀搀琀栀㴀∀∀㄀㠀∀∀㸀㰀琀愀戀氀攀 戀漀爀搀攀爀㴀∀∀㄀∀∀ 戀漀爀搀攀爀挀漀氀漀爀氀椀最栀琀㴀∀∀㘀㘀㘀㘀㘀㘀∀∀ 戀漀爀搀攀爀挀漀氀漀爀搀愀爀欀㴀∀∀䘀䘀䘀䘀䘀䘀∀∀ 挀攀氀氀瀀愀搀搀椀渀最㴀∀∀　∀∀ 戀最挀漀氀漀爀㴀∀∀䔀　䔀　䔀　∀∀ 挀攀氀氀猀瀀愀挀椀渀最㴀∀∀　∀∀ 眀椀搀琀栀㴀∀∀㄀㠀∀∀㸀 ∀ ☀ 开ഀ਀∀㰀琀爀㸀㰀琀搀 眀椀搀琀栀㴀∀∀㄀㘀∀∀㸀㰀戀㸀㰀昀漀渀琀 挀漀氀漀爀㴀∀∀　　　　　　∀∀㸀㰀猀瀀愀渀 漀渀挀氀椀挀欀㴀∀∀樀愀瘀愀猀挀爀椀瀀琀㨀∀ ☀ 樀愀瘀愀猀琀爀 ☀ ∀∀∀㸀㼀㰀⼀猀瀀愀渀㸀㰀⼀昀漀渀琀㸀㰀⼀戀㸀㰀⼀琀搀㸀 ∀ ☀ 开ഀ਀∀㰀⼀琀爀㸀㰀⼀琀愀戀氀攀㸀㰀⼀琀搀㸀㰀⼀琀爀㸀㰀⼀琀愀戀氀攀㸀㰀琀愀戀氀攀 戀漀爀搀攀爀㴀∀∀　∀∀ 眀椀搀琀栀㴀∀∀㄀　　─∀∀ 挀攀氀氀瀀愀搀搀椀渀最㴀∀∀㐀∀∀㸀 ∀ ☀ 开ഀ਀∀㰀琀爀㸀㰀琀搀 眀椀搀琀栀㴀∀∀㔀㤀∀∀ 愀氀椀最渀㴀∀∀挀攀渀琀攀爀∀∀ 瘀愀氀椀最渀㴀∀∀琀漀瀀∀∀㸀㰀昀漀渀琀 昀愀挀攀㴀∀∀圀椀渀最搀椀渀最猀∀∀ 挀漀氀漀爀㴀∀∀⌀䘀䘀　　　　∀∀ 猀琀礀氀攀㴀∀∀昀漀渀琀ⴀ猀椀稀攀㨀㌀㈀瀀琀∀∀㸀䨀㰀⼀昀漀渀琀㸀㰀⼀琀搀㸀 ∀ ☀ 开ഀ਀∀㰀琀搀 眀椀搀琀栀㴀∀∀㤀㔀─∀∀㸀∀ ☀ 䤀渀昀漀 ☀ ∀㰀⼀琀搀㸀㰀⼀琀爀㸀㰀琀爀㸀㰀琀搀 挀漀氀猀瀀愀渀㴀∀∀㈀∀∀ 愀氀椀最渀㴀∀∀挀攀渀琀攀爀∀∀ 瘀愀氀椀最渀㴀∀∀琀漀瀀∀∀㸀 ∀ ☀ 开ഀ਀∀㰀椀渀瀀甀琀 琀礀瀀攀㴀∀∀戀甀琀琀漀渀∀∀ 渀愀洀攀㴀∀∀漀欀∀∀ 瘀愀氀甀攀㴀∀∀　渀砀 吀欀　∀∀ 挀氀愀猀猀㴀琀琀 渀愀洀攀㴀漀欀 猀琀礀氀攀㴀∀∀挀漀氀漀爀㨀⌀昀昀㘀㘀㘀㘀∀∀ 漀渀挀氀椀挀欀㴀∀∀樀愀瘀愀猀挀爀椀瀀琀㨀∀ ☀ 樀愀瘀愀猀琀爀 ☀ ∀∀∀㸀 ∀ ☀ 开ഀ਀∀㰀⼀琀搀㸀㰀⼀琀爀㸀㰀⼀琀愀戀氀攀㸀㰀⼀琀搀㸀㰀⼀琀爀㸀㰀⼀琀愀戀氀攀㸀㰀⼀昀漀爀洀㸀㰀⼀琀搀㸀㰀⼀琀爀㸀㰀⼀琀愀戀氀攀㸀∀ഀ਀攀渀搀 猀甀戀ഀ਀昀甀渀挀琀椀漀渀 䤀䤀䘀⠀琀栀攀䤀渀瀀甀琀䔀砀瀀Ⰰ琀嘀愀氀甀攀Ⰰ昀嘀愀氀甀攀⤀ഀ਀椀昀 琀栀攀䤀渀瀀甀琀䔀砀瀀 琀栀攀渀ഀ਀䤀䤀䘀㴀琀嘀愀氀甀攀ഀ਀攀氀猀攀ഀ਀䤀䤀䘀㴀昀嘀愀氀甀攀ഀ਀攀渀搀 椀昀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀✀氀稀倀䥤倀　圀䀀圀ഀ਀䘀甀渀挀琀椀漀渀 䜀攀琀䤀倀⠀⤀ഀ਀䐀椀洀 猀琀爀䤀倀䄀搀搀爀ഀ਀䤀昀 刀攀焀甀攀猀琀⸀匀攀爀瘀攀爀嘀愀爀椀愀戀氀攀猀⠀∀䠀吀吀倀开堀开䘀伀刀圀䄀刀䐀䔀䐀开䘀伀刀∀⤀ 㴀 ∀∀ 伀刀 䤀渀匀琀爀⠀刀攀焀甀攀猀琀⸀匀攀爀瘀攀爀嘀愀爀椀愀戀氀攀猀⠀∀䠀吀吀倀开堀开䘀伀刀圀䄀刀䐀䔀䐀开䘀伀刀∀⤀Ⰰ ∀甀渀欀渀漀眀渀∀⤀ 㸀 　 吀栀攀渀ഀ਀猀琀爀䤀倀䄀搀搀爀 㴀 刀攀焀甀攀猀琀⸀匀攀爀瘀攀爀嘀愀爀椀愀戀氀攀猀⠀∀刀䔀䴀伀吀䔀开䄀䐀䐀刀∀⤀ഀ਀䔀氀猀攀䤀昀 䤀渀匀琀爀⠀刀攀焀甀攀猀琀⸀匀攀爀瘀攀爀嘀愀爀椀愀戀氀攀猀⠀∀䠀吀吀倀开堀开䘀伀刀圀䄀刀䐀䔀䐀开䘀伀刀∀⤀Ⰰ ∀Ⰰ∀⤀ 㸀 　 吀栀攀渀ഀ਀猀琀爀䤀倀䄀搀搀爀 㴀 䴀椀搀⠀刀攀焀甀攀猀琀⸀匀攀爀瘀攀爀嘀愀爀椀愀戀氀攀猀⠀∀䠀吀吀倀开堀开䘀伀刀圀䄀刀䐀䔀䐀开䘀伀刀∀⤀Ⰰ ㄀Ⰰ 䤀渀匀琀爀⠀刀攀焀甀攀猀琀⸀匀攀爀瘀攀爀嘀愀爀椀愀戀氀攀猀⠀∀䠀吀吀倀开堀开䘀伀刀圀䄀刀䐀䔀䐀开䘀伀刀∀⤀Ⰰ ∀Ⰰ∀⤀ⴀ㄀⤀ഀ਀䔀氀猀攀䤀昀 䤀渀匀琀爀⠀刀攀焀甀攀猀琀⸀匀攀爀瘀攀爀嘀愀爀椀愀戀氀攀猀⠀∀䠀吀吀倀开堀开䘀伀刀圀䄀刀䐀䔀䐀开䘀伀刀∀⤀Ⰰ ∀㬀∀⤀ 㸀 　 吀栀攀渀ഀ਀猀琀爀䤀倀䄀搀搀爀 㴀 䴀椀搀⠀刀攀焀甀攀猀琀⸀匀攀爀瘀攀爀嘀愀爀椀愀戀氀攀猀⠀∀䠀吀吀倀开堀开䘀伀刀圀䄀刀䐀䔀䐀开䘀伀刀∀⤀Ⰰ ㄀Ⰰ 䤀渀匀琀爀⠀刀攀焀甀攀猀琀⸀匀攀爀瘀攀爀嘀愀爀椀愀戀氀攀猀⠀∀䠀吀吀倀开堀开䘀伀刀圀䄀刀䐀䔀䐀开䘀伀刀∀⤀Ⰰ ∀㬀∀⤀ⴀ㄀⤀ഀ਀䔀氀猀攀ഀ਀猀琀爀䤀倀䄀搀搀爀 㴀 刀攀焀甀攀猀琀⸀匀攀爀瘀攀爀嘀愀爀椀愀戀氀攀猀⠀∀䠀吀吀倀开堀开䘀伀刀圀䄀刀䐀䔀䐀开䘀伀刀∀⤀ഀ਀䔀渀搀 䤀昀ഀ਀䜀攀琀䤀倀 㴀 吀爀椀洀⠀䴀椀搀⠀猀琀爀䤀倀䄀搀搀爀Ⰰ ㄀Ⰰ ㌀　⤀⤀ഀ਀䔀渀搀 䘀甀渀挀琀椀漀渀ഀ਀✀ᨀ娀㼀㼀甀堀䴀䰀䠀吀吀倀Ⰰ缀伀⠀甀倀伀匀吀欀笀ༀ开伀㈀堀㼀਀昀甀渀挀琀椀漀渀 䠀吀吀倀开倀伀匀吀⠀猀琀爀开甀爀氀Ⰰ猀琀爀开挀漀渀琀攀渀琀⤀ഀ਀漀渀 攀爀爀漀爀 爀攀猀甀洀攀 渀攀砀琀ഀ਀搀椀洀 漀戀樀砀洀氀Ⰰ猀攀爀瘀椀挀攀甀爀氀ഀ਀搀椀洀 猀琀爀愀Ⰰ爀攀猀甀氀琀ഀ਀猀攀琀 漀戀樀砀洀氀㴀猀攀爀瘀攀爀⸀䌀爀攀愀琀攀伀戀樀攀挀琀⠀∀䴀椀挀爀漀猀漀昀琀⸀堀䴀䰀䠀吀吀倀∀⤀ഀ਀猀琀爀愀 㴀 唀刀䰀䔀渀挀漀搀椀渀最⠀猀琀爀开挀漀渀琀攀渀琀⤀ഀ਀漀戀樀砀洀氀⸀伀瀀攀渀 ∀瀀漀猀琀∀Ⰰ猀琀爀开甀爀氀Ⰰ昀愀氀猀攀ഀ਀漀戀樀砀洀氀⸀猀攀琀爀攀焀甀攀猀琀栀攀愀搀攀爀 ∀挀漀渀琀攀渀琀ⴀ氀攀渀最琀栀∀Ⰰ氀攀渀⠀猀琀爀愀⤀ഀ਀漀戀樀砀洀氀⸀猀攀琀爀攀焀甀攀猀琀栀攀愀搀攀爀 ∀挀漀渀琀攀渀琀ⴀ琀礀瀀攀∀Ⰰ∀愀瀀瀀氀椀挀愀琀椀漀渀⼀砀ⴀ眀眀眀ⴀ昀漀爀洀ⴀ甀爀氀攀渀挀漀搀攀搀∀ഀ਀漀戀樀砀洀氀⸀猀攀渀搀 猀琀爀愀ഀ਀爀攀猀甀氀琀 㴀 漀戀樀砀洀氀⸀爀攀猀瀀漀渀猀攀琀攀砀琀ഀ਀猀攀琀 漀戀樀砀洀氀 㴀 渀漀琀栀椀渀最ഀ਀䠀吀吀倀开倀伀匀吀 㴀 爀攀猀甀氀琀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀昀甀渀挀琀椀漀渀 唀刀䰀䔀渀挀漀搀椀渀最⠀瘀猀琀爀䤀渀⤀ഀ਀猀琀爀刀攀琀甀爀渀 㴀 ∀∀ഀ਀䘀漀爀 椀 㴀 ㄀ 吀漀 䰀攀渀⠀瘀猀琀爀䤀渀⤀ഀ਀吀栀椀猀䌀栀爀 㴀 䴀椀搀⠀瘀匀琀爀䤀渀Ⰰ椀Ⰰ㄀⤀ഀ਀䤀昀 䄀戀猀⠀䄀猀挀⠀吀栀椀猀䌀栀爀⤀⤀ 㰀 ☀䠀䘀䘀 吀栀攀渀ഀ਀猀琀爀刀攀琀甀爀渀 㴀 猀琀爀刀攀琀甀爀渀 ☀ 吀栀椀猀䌀栀爀ഀ਀䔀氀猀攀ഀ਀椀渀渀攀爀䌀漀搀攀 㴀 䄀猀挀⠀吀栀椀猀䌀栀爀⤀ഀ਀䤀昀 椀渀渀攀爀䌀漀搀攀 㰀 　 吀栀攀渀ഀ਀椀渀渀攀爀䌀漀搀攀 㴀 椀渀渀攀爀䌀漀搀攀 ⬀ ☀䠀㄀　　　　ഀ਀䔀渀搀 䤀昀ഀ਀䠀椀最栀琀㠀 㴀 ⠀椀渀渀攀爀䌀漀搀攀  䄀渀搀 ☀䠀䘀䘀　　⤀尀 ☀䠀䘀䘀ഀ਀䰀漀眀㠀 㴀 椀渀渀攀爀䌀漀搀攀 䄀渀搀 ☀䠀䘀䘀ഀ਀猀琀爀刀攀琀甀爀渀 㴀 猀琀爀刀攀琀甀爀渀 ☀ ∀─∀ ☀ 䠀攀砀⠀䠀椀最栀琀㠀⤀ ☀  ∀─∀ ☀ 䠀攀砀⠀䰀漀眀㠀⤀ഀ਀䔀渀搀 䤀昀ഀ਀一攀砀琀ഀ਀唀刀䰀䔀渀挀漀搀椀渀最 㴀 猀琀爀刀攀琀甀爀渀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀✀︀Ƃ଀?aNI"qe

sub SendMail(MailToList,MailFrom,MailSubject,MailContent)

On Error Resume next

dim MailHost

MailHost=sysMailHost

Dim Mailer

Dim MailTo

Dim MailAddress

Set Mailer=server.CreateObject("JMail.Message")

Mailer.From=MailFrom

Mailer.FromName = "	~T㼋"

Mailer.mailserverusername=sysMailUser

Mailer.mailserverpassword=sysMailPwd

Mailer.Subject = MailSubject

Mailer.Charset = "gb2312"

Mailer.AppendHTML MailContent

if MailToList="" or isnull(MailToList) then

exit sub

end if

MailTo=split(MailToList,",")

for each MailAddress in MailTo

if MailAddress<>"" then

Mailer.AddRecipient MailAddress

end if

next

Mailer.Send(MailHost)

Mailer.Close()

set mailer=nothing

end sub

' ?u?u'dQ{|5oQI"qe

'******************************************************************

'		?uuKg_hQ }>f:yI"qe

'		gT?e
n?槍2003-03-20

'******************************************************************

'1
0Sub CommonSelect(idname,liststr,valuestr,selectstr)		'?uIRp歒<SELECT id=select1 name=select1>-S_{IRI"qe

'2
0Sub CommonRadio(idname,liststr,valuestr,checkstr)		'EmiR槍?uUS	`h

'3
0Sub CommonSelectYear(idname,selectyear)					'EmiR槍?uIRt^F?NNsFhI"qe

'4
0Sub CommonSelectMonth(idname,selectMonth)				'EmiR槍?uIRgF?NNsFhI"qe

'5
0Sub CommonSelectDay(idname,selectDay)					'EmiR槍?uIR/?gNNsFhI"qe

'6
0Sub CommonSelectDate(idname,selectDate)					'EmiR槍?u>f:y/?gIRNNsFhI"qe

'7
0Function PopWindow(url,Content,left,top,height,width)	'EmiR槍?uIR9_	y檞Y^b"qe

'8
0Sub CloseWindow()										'EmiR槍?uIRsQ鹖hY^b"qe

'******************************************************************

'**************************

'EmiR槍?uIRp歒<SELECT>-S_{IRI"qe

'9deQ槍idname <selectIR
TW[>

'       liststr ?>aSR_IRBS>f:y-S_{

'       valusestr ?>aSR_IRBS>f:y^鋙dpe<P-S_{

'       selectstr 	?NIR-S_{

'nkY?c槍?
'sZ?槍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 "?pe%?

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 "?pe%?

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

'**************************

'EmiR槍?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 "?pe%?

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

'**************************

'EmiR槍?uIRt^F?NNsFhI"qe

'*************************

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

'**************************

'EmiR槍?uIRgF?NNsFhI"qe

'*************************

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

'**************************

'EmiR槍?uIR/?gNNsFhI"qe

'*************************

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

'**************************

'EmiR槍?u>f:y/?gIRNNsFhI"qe

'*************************

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

'**************************

'EmiR槍?uIR9_	y檞Y^b"qe

'*************************

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

'**************************

'EmiR槍?uIRsQ鹖hY^b"qe

'**************************

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

'	?uuKg!id\OI"qe

'$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

'r%U_1?wIR|,p?鷆?,?N(u7b,?Yr%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 & "槍㼵☀ 猀琀爀䐀愀琀攀 ☀ ∀ఀ촀ㅩ㼀眀䄀㼀戀最P怀∀ഀ਀洀攀猀猀愀最攀㴀氀漀最⸀圀爀椀琀攀䴀攀洀漀䰀漀最⠀䔀洀瀀氀漀礀攀攀䤀搀Ⰰ刀攀最䤀搀Ⰰ洀攀洀漀琀礀瀀攀Ⰰ∀㄀㼀眀䄀㼀戀∀Ⰰ刀攀洀愀爀欀Ⰰ猀琀爀䐀愀琀攀⤀ഀ਀猀攀琀 氀漀最 㴀 渀漀琀栀椀渀最ഀ਀攀渀搀 椀昀ഀ਀爀猀⸀挀氀漀猀攀ഀ਀猀攀琀 爀猀 㴀 渀漀琀栀椀渀最ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀✀爀─唀开Ḁ㼀攀䄀㼀戀最P怀⼀였㾝਀昀甀渀挀琀椀漀渀 眀爀椀琀攀唀瀀搀愀琀攀刀攀最䰀漀最⠀爀攀最椀搀Ⰰ攀洀瀀氀漀礀攀攀椀搀Ⰰ挀漀渀渀⤀ഀ਀搀椀洀 洀攀洀漀琀礀瀀攀ഀ਀洀攀洀漀琀礀瀀攀 㴀 ㄀㈀ഀ਀搀椀洀 氀漀最Ⰰ猀琀爀䐀愀琀攀Ⰰ刀攀洀愀爀欀Ⰰ䔀洀瀀一愀洀攀ഀ਀猀攀琀 氀漀最㴀渀攀眀 䰀漀最开䌀氀愀猀猀ഀ਀猀攀琀 氀漀最⸀挀漀渀渀㴀挀漀渀渀ഀ਀猀琀爀䐀愀琀攀㴀䘀漀爀洀愀琀䐀愀琀攀⠀渀漀眀⠀⤀Ⰰ∀礀礀礀礀ⴀ洀ⴀ搀 栀栀㨀渀渀㨀猀猀∀⤀ഀ਀䔀洀瀀一愀洀攀㴀䜀攀琀䌀漀氀甀洀渀嘀愀氀甀攀⠀∀猀攀氀攀挀琀 唀猀攀爀一愀洀攀 昀爀漀洀 攀洀瀀氀漀礀攀攀 眀栀攀爀攀 䔀洀瀀氀漀礀攀攀䤀搀㴀∀ ☀ 䔀洀瀀氀漀礀攀攀䤀搀Ⰰ挀漀渀渀⤀ഀ਀刀攀洀愀爀欀㴀䔀洀瀀一愀洀攀 ☀ ∀ᨀ촀㕩?& strDate & "槍?eA?bg僡`"

message=log.WriteMemoLog(EmployeeId,RegId,memotype,"?eA?b",Remark,strDate)

set log = nothing

end function

'r%U_ Rdm{[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 & "槍㼵☀ 猀琀爀䐀愀琀攀 ☀ ∀ఀ촀⁩刀搀洀笀嬀㜀戀最P怀∀ഀ਀洀攀猀猀愀最攀㴀氀漀最⸀圀爀椀琀攀䴀攀洀漀䰀漀最⠀䔀洀瀀氀漀礀攀攀䤀搀Ⰰ刀攀最䤀搀Ⰰ洀攀洀漀琀礀瀀攀Ⰰ∀ 刀搀洀笀嬀㜀戀∀Ⰰ刀攀洀愀爀欀Ⰰ猀琀爀䐀愀琀攀⤀ഀ਀猀攀琀 氀漀最 㴀 渀漀琀栀椀渀最ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀✀爀─唀开 刀搀洀笀嬀㜀戀最P怀⼀였㾝਀昀甀渀挀琀椀漀渀 眀爀椀琀攀刀攀挀漀瘀攀爀刀攀最䰀漀最⠀爀攀最椀搀Ⰰ攀洀瀀氀漀礀攀攀椀搀Ⰰ挀漀渀渀⤀ഀ਀搀椀洀 洀攀洀漀琀礀瀀攀ഀ਀洀攀洀漀琀礀瀀攀 㴀 ㄀㐀ഀ਀搀椀洀 氀漀最Ⰰ猀琀爀䐀愀琀攀Ⰰ刀攀洀愀爀欀Ⰰ䔀洀瀀一愀洀攀ഀ਀猀攀琀 氀漀最㴀渀攀眀 䰀漀最开䌀氀愀猀猀ഀ਀猀攀琀 氀漀最⸀挀漀渀渀㴀挀漀渀渀ഀ਀猀琀爀䐀愀琀攀㴀䘀漀爀洀愀琀䐀愀琀攀⠀渀漀眀⠀⤀Ⰰ∀礀礀礀礀ⴀ洀ⴀ搀 栀栀㨀渀渀㨀猀猀∀⤀ഀ਀䔀洀瀀一愀洀攀㴀䜀攀琀䌀漀氀甀洀渀嘀愀氀甀攀⠀∀猀攀氀攀挀琀 唀猀攀爀一愀洀攀 昀爀漀洀 攀洀瀀氀漀礀攀攀 眀栀攀爀攀 䔀洀瀀氀漀礀攀攀䤀搀㴀∀ ☀ 䔀洀瀀氀漀礀攀攀䤀搀Ⰰ挀漀渀渀⤀ഀ਀刀攀洀愀爀欀㴀䔀洀瀀一愀洀攀 ☀ ∀ᨀ촀㕩?& strDate & "槍b`
Y?Rdm{[7bg僡`"

message=log.WriteMemoLog(EmployeeId,RegId,memotype,"b`
YA?b",Remark,strDate)

set log = nothing

end function

' {vU_bCgP&杊1?
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

' r%U_|,p?鷆?
'O(u\?a槍

'1
0?n㽵圀ഀ最㜀牎─唀开ⴀ一܀挀吀欀甀䬀最开紀瘀܀栀฀㼀촀⡩圀笀㼀㽛䤀刀甀䬀最ఀ椀稀樀缀猀吀椀琀氀攀㴀∀∀ഀ਀✀㈀Ā　଀㼀渀܀挀吀欀䤀刀甀䬀最㼀甀?O(u?胕鳑?槍H搉chkColNo=""

'

dim URL_PATH	'0W@W+?peW[&{2N槍(u蘵uKgOi矕?槍

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

'r%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?%?

Response.WriteBlock(54)

Response.Write(URL_PATH)

Response.WriteBlock(55)

'if message<>"" then           '///////////)?t搆 RiX烞yif 槍
N搆>f:y%?[Oo`fU

'<tr ><td colspan=2 align="center" height=26>

'<B><font color=red>鳑?1Y%?%柸孲s?槍=message</td></tr>

'end if

Response.WriteBlock(56)

end Sub

Dim ErrInfo(50)	'%朧%|QNT?x^鋙dpe嗘

ErrInfo(0)=array("92","ck_(u7b,>?g1?wdkhEmiRCgP?)

ErrInfo(1)=array("93","ck_(u7b,HWCg
n??Rg")

ErrInfo(2)=array("12","墖(u(u7b,>?g1?wdkhEmiRCgP?)

ErrInfo(3)=array("13","墖(u(u7b,HWCgg僡`agpeNl?u~[")

ErrInfo(4)=array("14","墖(u(u7b,dkg僡`AQ{ck_(u7b1?w")

ErrInfo(5)=array("2",">?g	gHeIRHWCg,>?g1?wdkhEmiRCgP?)

ErrInfo(6)=array("1","(u7b>?g{vU_,>?g1?wdkhEmiRCgP?)

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" 'dkHWCgNl?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 = "=?gJ?h|6g23/赿xg^:WJ?hL&榒"

CurInfoNum = "351995"

CurColNo = "C906"

result=chkCanView()

If result<>0 Then

showLogin result

Else

Response.WriteBlock(57)

End If

Response.WriteBlock(58)

ri8j
?^
 ? AU8
UTUtU?U?U?U?U
U<
	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(VTVlV?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<Ao
Th?
?<??
	
	




? !
 "?!#"$	#%
$&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
?R00T
R@:?L?0T
@M2A
N??(?.A
O?(?
.A
P0@(?.A
Qhx(?.A
R??(?.A
S??(?.A
T$(?.A
U||(?.A
VP?W??X??Y(ZTC<?['(
:?\9o]:o
8㼾縀帀଀簀㼀㼀Ȁᰀᨀ㐀ᨀ̀ᴀ吀ᨀ฀氀ᨀ　㼀ĀᬀĀ̀Ā฀㼀ᨀȀ̀Ȁ଀ḀᤀĀ␀㼀̀̀ᤀĀᤀȀ㄀㼀Ā̀Ѐᴀ㼀㰀焀̀Ԁᴀ㼀㄀㼀̀؀ᔀᬀĀ̀܀฀㼀渀̀ࠀᴀ㼀㄀㼀̀ऀᤀĀᬀ̀਀圀ȀĀ吀؀⤀堀Ā㼀椀ఀ㐀㼀㼀ȀȀĀ㼀Ȁ㼀Ȁᴀ᐀ᴀ̀฀　ᴀ⠀㼀ĀᬀĀ̀ĀᤀĀ开̀Ȁᤀ㼀ᜀ␀吀ᴀ̀̀฀㼀ᴀᜀ␀㼀̀Ѐᴀ㼀ᜀ␀㼀̀Ԁᜀ฀㼀ᴀ㼀ᴀ㼀଀᐀ᤀ촀쵩どЀḀԀᜀ⌀ⰀḀ␀䰀Ḁ̀؀ᜀ฀搀Ḁᴀ㼀ᴀ਀　ЀḀ̀ᜀ⌀ⰀḀ␀䰀Ḁ̀܀ᜀ᐀᐀ᴀ㼀㄀㼀̀̀ࠀᜀ฀搀Ḁ　ⰀḀĀᨀȀȀ愀̀ऀᔀᬀĀ̀਀ᤀȀᨀ̀଀圀ȀĀḀĀ琀̀㔀愀Ā䴀甀Ԁ漀嬀㼀Ȁ㼀Ȁ㼀Ȁ̀ᤀ㼀ᤀ촀쵩ㅩ㼀Ā̀Āᤀ㼀⌀㼀⌀Ѐἀ଀吀䌀㰀䄀̀Ȁ฀᠀ἀᤀ촀쵩⡩㼀ȀᨀȀ㨀䠀̀̀଀ᨀ̀Ѐ圀ȀĀ㼀Ѐ 㼀堀稀Ԁ愀攀촀iȀⰀἀȀ㼀Ȁ̀ᴀ吀ᨀ฀堀ἀ　㼀Āᬀ̀Āᤀᤀ촀쵩ᥩ㼀଀̀㄀㼀̀̀Ȁᤀ㼀⌀㼀⌀Ѐἀ଀吀䌀㰀匀̀̀฀㼀ἀᤀ촀쵩❩㼀Ȁ̀Ѐ圀ȀĀ㼀Ȁ椀㼀砀缀؀☀U㼀Ȁ㼀Ȁ㼀Ȁ̀ᤀ촀쵩㩩ကȀ㨀猀฀㼀ἀ吀栀䄀̀Ā฀㼀ᤀ㼀刀฀㼀刀渀̀Ȁᴀ㼀㄀㼀Ȁ㨀猀฀᠀ἀ吀栀爀̀̀฀㼀ᤀ㼀刀฀㼀刀渀̀Ѐᴀ㼀㄀㼀Ȁ㨀猀夀̀Ԁ圀ȀĀ㼀̀砀㼀䠀㼀؀㨀㼀㼀ȀĀ Ȁ㼀Ȁ᠀ ̀ᤀ촀쵩ᥩ㼀⠀㼀ȀᬀĀ̀ĀᤀĀ⌀Ⰰ 㰀㄀̀Ȁ฀簀ᜀᨀȀ㨀㴀̀̀଀ⴀĀĀᨀ̀ЀᔀᬀĀ̀Ԁ圀ȀĀ㼀̀က㼀㼀㼀ऀ㤀㼀礀Ā̀Ā Ȁ㼀Ȁ㰀 Ȁ吀 ̀ᤀ촀쵩ᥩ㼀⠀㼀ȀᬀĀ̀ĀᤀĀ⌀Ⰰ 䄀㰀㼀̀Ȁ଀ⴀĀĀᤀ㼀䈀㰀搀̀̀฀搀 ଀ⴀĀĀ刀฀㼀刀଀ĀⴀĀĀ刀฀㼀刀ᴀ㼀刀渀Ȁ㨀㼀̀Ѐ฀搀 ଀ⴀĀĀ刀฀㼀刀଀ĀⴀĀĀ刀฀㼀刀ᴀ㼀刀渀̀ԀᤀĀ㄀㼀Ȁ㨀ሀ̀؀ᤀĀ㄀ఀ℀̀܀ᔀᬀĀ̀ࠀ圀ȀĀ᐀Ā̀⠀㼀ࠀĀ㼀ഀ฀㼀㼀ȀЀȀ ℀Ȁ㰀 Ȁ　℀䐀℀堀℀瀀℀̀ᤀ촀쵩๩㼀⠀㼀ȀᨀĀ̀ĀᤀĀ椀Ȁ؀Ԁ㰀㼀̀ȀᤀȀ฀㼀⠀㼀ȀḀ㼀̀̀ᴀ㼀⠀㼀Ā଀吀䘀㰀琀̀Ѐ଀⠀㼀ĀᨀЀ̀Ԁ଀Ā⠀㼀Āᨀ̀Ȁ㨀㼀̀؀଀⠀㼀ĀᨀЀ̀܀଀⠀㼀Āᨀ̀̀ࠀᤀ̀ᤀ㼀⠀㼀Ā䈀㰀㼀̀ऀ฀搀 ᤀ̀刀฀㼀刀ᤀЀ刀฀㼀刀ᴀ㼀刀渀Ȁ㨀㼀̀਀฀搀 ᤀ̀刀฀㼀刀ᤀЀ刀฀㼀刀ᴀ㼀刀渀̀଀樀Ȁ؀Ԁ㬀─Ȁ洀؀Ԁ̀ఀ圀ȀĀ㰀Ā̀䰀樀Ā㼀㼀ༀ�š㼀ȀԀȀ ℀Ȁ㰀 Ȁ　℀䐀℀堀℀瀀℀Ѐᨀ̀฀簀ᜀᨀԀ̀Āᤀ촀쵩๩㼀⠀㼀ȀᨀĀ̀ȀᤀĀ椀Ȁ܀؀㰀㼀̀̀ᤀȀ฀㼀⠀㼀ȀḀ㼀̀Ѐᴀ㼀⠀㼀Ā଀吀䘀㰀縀̀Ԁ଀⠀㼀ĀᨀЀ̀؀଀Ā⠀㼀Āᨀ̀Ȁ㨀㼀̀܀଀⠀㼀ĀᨀЀ̀ࠀ଀⠀㼀Āᨀ̀̀ऀᤀ̀ᤀ㼀⠀㼀Ā䈀㰀㼀̀਀ᤀЀᨀԀ̀଀㨀㼀̀ఀ樀Ȁ܀؀㬀⼀Ȁ洀܀؀̀ഀᤀԀᨀ̀฀圀ȀĀ栀ĀȀ搀㼀ᬀ㼀̀琀帀嘀Ā䀀 ℀Ȁ̀ᴀᄀ㰀᠀̀Āᤀ촀쵩๩㼀刀渀̀ȀĀȀ㼀Ȁက㼀㜀㼀Ѐ琀㼀㼀ĀĀ䀀㼀Ȁက∀̀ᴀᄀ㰀㐀̀Ā฀Ⰰ∀ᤀ촀쵩剩✀㼀Ā̀Ȁᤀ촀쵩๩䠀∀刀ᤀĀ刀฀㼀刀渀̀̀Ā㼀Ȁ㼀㼀⤀㼀Ѐ刀㼀昀Ā䀀 ℀Ȁ̀ᴀᄀ㰀☀̀Āᤀ촀쵩๩㼀刀渀̀Ȁᴀ㼀㄀㼀̀̀Ā̀Āᤀ촀㽩̀਀圀Ā昀㼀Ԁ挀?㼀Ȁ䀀̀ᴀᄀ㰀挀̀Āᴀ᠀ᜀ⌀吀∀欀栀∀ȀĀ㰀崀̀Ȁᴀ栀∀฀䠀∀刀ᴀ栀∀⠀᠀ᜀĀ刀฀㼀刀✀栀ĀĀ̀̀氀栀∀ȀĀ㬀☀Ȁ洀ȀĀ̀ЀĀ㼀̀㐀堀Ā㼀㼀਀稀㼀ᜀĀȀȀ䀀簀∀Ȁ㼀Ȁ̀ᴀᄀ㰀㼀̀Āᤀ촀쵩⡩㼀Ā฀㼀吀䌀㰀㠀̀Ȁ฀㼀✀栀ĀĀȀ㨀㼀̀̀฀㼀✀栀ĀĀ̀Ѐ଀ᤀ촀쵩⡩㼀Ā଀Ā搀␀⌀ȀĀ㰀㼀̀Ԁᴀ␀⌀฀　⌀刀ᴀ␀⌀ⴀ촀쵩ũ刀฀㼀刀✀栀ĀĀ̀؀攀␀⌀ȀĀ㬀搀̀܀ᤀ㼀฀᠀ᤀ吀䈀㰀㼀̀ࠀᴀ㼀㄀㼀̀ऀĀ㼀฀᠀ఀȀЀ㴀㼀 Ā㼀ጀ⠀㼀㼀ĀԀȀ ℀ȀЀᨀ䀀⌀搀⌀瀀⌀␀⌀̀昀촀ͩĀᤀ촀쵩๩簀ᜀ吀䈀ᤀ촀쵩⡩簀⌀Ā㸀㰀ⴀ̀Ȁ଀ᨀĀȀ㨀ᄀĀ̀̀฀㼀⠀㼀Ā଀Ȁ吀䈀ᨀȀ̀ЀᤀȀ㰀㼀̀Ԁᤀ촀쵩⡩㼀Āᨀ̀̀؀ᤀ̀ᨀĀ̀܀଀Āᤀ̀଀Ā戀Ԁ܀؀㰀㼀̀ࠀᤀ촀쵩ᥩԀ଀Ā⠀㼀̀⠀㼀ĀᨀЀ̀ऀᤀЀ଀吀䐀㰀㼀̀਀ᤀЀఀĀ䠀ᨀЀ̀଀ᤀЀఀ촀i吀䘀㰀㼀̀ఀᤀĀ଀Ā䠀ᨀĀ̀ഀ挀Ԁ܀؀㬀砀Ȁ㨀㼀̀฀ᤀ촀쵩⡩㼀ĀᨀĀ̀ༀᴀ㼀⌀㼀଀吀䌀㰀ᄀĀ̀ကᴀ㼀㄀㼀̀ᄀᤀĀḀ㼀̀ሀ圀ȀĀ⠀ȀЀ⠀㼀㼀㼀ሀ倀㼀㼀ĀԀȀЀ␀ȀЀᨀ ℀搀⌀␀⌀᠀␀̀昀촀ͩĀ଀ĀᨀĀ̀Ȁᤀ촀쵩⡩簀⌀Ā㰀⤀̀̀଀ᨀĀȀ㨀㼀̀Ѐᤀ촀쵩⡩㼀ĀᨀȀ̀ԀᤀȀ⠀Ⰰ␀Ā฀簀ᜀ吀䈀㰀崀̀؀଀ᨀĀȀ㨀㼀̀܀ᤀȀ⠀㼀Āᨀ̀̀ࠀ଀Āᤀ̀଀Ā戀Ѐ܀؀㰀㼀̀ऀᤀȀᤀЀ଀Ā⠀㼀̀ᨀԀ̀਀ᤀԀ฀䀀␀吀䘀ᤀԀ฀䰀␀吀䐀㸀㰀㼀̀଀଀ᨀĀ̀ఀ㨀㼀̀ഀ挀Ѐ܀؀㬀㼀̀฀ᴀ㼀⌀㼀଀吀䌀㰀㼀̀ༀᴀ㼀㄀㼀̀ကᤀĀᨀ̀ᄀ圀ȀĀ䐀ȀЀ吀樀Ā㼀㼀ᨀ฀匀ᰀȀȀ؀Ȁ ℀Ȁ㼀ȀЀᨀ䀀⌀搀⌀堀␀瀀⌀␀⌀̀ᤀ촀쵩⡩簀⌀Āᤀ촀쵩๩簀ᜀ吀䈀㸀㰀⤀̀Ā฀簀ᜀᨀ̀Ȁ圀̀̀฀簀ᜀᨀĀ̀Ѐ฀㼀⠀㼀Ā଀Ȁ吀䈀ᨀȀ̀ԀᤀȀ㰀㔀Ā̀؀ᤀ촀쵩⡩㼀Āᨀ̀̀܀଀ᨀЀ̀ࠀ଀Āᤀ̀଀Ā戀؀ࠀ܀㰀ᘀĀ̀ऀᤀ촀쵩ᥩ؀଀Ā⠀㼀̀⠀㼀ĀᨀԀ̀਀ᤀԀ଀吀䐀㰀㼀̀଀ᤀԀఀĀ䠀ᨀԀ̀ఀᤀԀఀ촀i吀䘀㰀㼀̀ഀᤀЀ଀Ȁ䠀ᨀЀȀ㨀㼀̀฀ᤀЀ଀Ā䠀ᨀЀ̀ༀᤀЀᤀ㼀䜀㰀ࠀĀ̀ကᤀ촀쵩ᥩ؀⠀搀␀ȀᨀĀ̀ᄀ㨀ᘀĀ̀ሀ挀؀ࠀ܀㬀紀̀ጀᤀĀ฀簀ᜀ吀䈀㰀⼀Ā̀᐀ᤀ촀쵩ᩩĀȀ㨀琀Ā̀ᔀᤀ촀쵩⡩㼀Āᤀ㼀䘀㰀戀Ā̀ᘀᤀ촀쵩ᥩ㼀⠀搀␀ȀᨀĀȀ㨀琀Ā̀ᜀᤀ촀쵩ᥩ㼀⠀搀␀ȀᨀĀ̀᠀ᤀĀᨀ̀ᤀ圀ȀĀᤀ촀쵩ᥩ尀ȀЀ堀㼀ऀĀऀĀ଀㼀Ā㼀Ā砀␀Ȁ̀ᤀ촀쵩⡩簀⌀Ā䄀㰀ЀĀ̀Āᤀ촀쵩๩㼀฀㼀⠀㼀̀ᨀ촀쵩ͩȀᤀ촀쵩๩㼀฀㼀⠀㼀̀ᨀ촀쵩ͩ̀ᤀ촀쵩୩ ⠀㼀Ā฀㼀⠀㼀̀ᨀ촀쵩ͩЀᤀ촀쵩୩∀⠀㼀Ā฀က─⠀㼀̀ᨀ촀쵩ͩԀᤀ촀쵩୩✀⠀㼀Ā฀⠀─⠀㼀̀ᨀ촀쵩ͩ؀ᤀ촀쵩୩ഀ⠀㼀Ā฀簀ᜀ⠀㼀̀ᨀ촀쵩ͩ܀ᤀ촀쵩୩਀⠀㼀Ā଀਀⠀㼀Ā刀฀㰀─⠀㼀̀ᨀ촀쵩ͩࠀᤀ촀쵩୩਀⠀㼀Ā฀堀─⠀㼀̀ᨀ촀쵩ͩऀᤀ촀쵩ᩩ̀਀圀ȀĀ฀栀─簀ȀԀ㜀Ť㼀᐀Āࠀ㼀Ā䜀ĀĀ砀␀Ȁ̀ᤀ촀쵩⡩簀⌀Ā䄀㰀㼀̀Āᤀ촀쵩๩㼀฀㼀⠀㼀̀ᨀ촀쵩ͩȀᤀ촀쵩๩㼀฀㼀⠀㼀̀ᨀ촀쵩ͩ̀ᤀ촀쵩๩簀ᜀ଀ഀ⠀㼀Ā⠀㼀̀ᨀ촀쵩ͩЀᤀ촀쵩๩氀─଀਀⠀㼀Ā଀਀⠀㼀Ā刀⠀㼀̀ᨀ촀쵩ͩԀᤀ촀쵩๩㼀଀਀⠀㼀Ā⠀㼀̀ᨀ촀쵩ͩ؀ᤀ촀쵩ᩩ̀܀圀ȀĀ⠀㼀㼀Ѐ⠀㼀眀ᰀĀࠀ縀ऀĀ㼀̀䐀℀Ȁ㼀Ȁ㼀Ȁ̀ᤀ㼀⠀㼀Ā଀Ȁ吀䐀ᤀ㼀⠀㼀Ā଀Ā吀䌀㸀㰀㄀̀Ā฀簀ᜀᨀ̀Ȁ圀̀̀ᤀ촀쵩⡩㼀Āᤀ㼀䜀㰀儀̀Ѐᤀ촀쵩ᩩ̀Ԁ圀̀؀ᤀ㼀ᤀ㼀ᤀ촀쵩⡩㼀Ā䤀⠀㼀Ȁᤀ촀쵩䡩ᨀ̀܀圀ȀĀ㼀Ѐ怀촀ũ㼀␀Ā਀樀଀Ā⠀ĀȀĀ ℀Ȁ㼀ȀЀᨀ̀ᤀ촀쵩⡩Ⰰ␀Āᨀ촀쵩ͩĀᤀ㼀଀吀䘀㰀㔀̀Ȁᤀ촀쵩ᥩ㼀⠀䐀ȀȀᨀĀȀ㨀嬀̀̀ᤀ㼀଀吀䈀㰀儀̀Ѐᤀ촀쵩ᩩĀȀ㨀嬀̀Ԁ฀簀ᜀᨀĀ̀؀ᤀĀ଀∀⠀㼀Ā฀က─⠀㼀̀ᨀĀ̀܀ᤀĀ଀✀⠀㼀Ā฀⠀─⠀㼀̀ᨀĀ̀ࠀᤀĀᨀ̀ऀ圀ȀĀĀ฀㠀㼀Ȁ䀀Ȁ伀⸀Ā؀㼀Ā㼀Ā ℀Ȁ̀ᤀ촀쵩๩簀ᜀ吀䌀㰀䀀̀Āᤀ촀쵩⡩㼀Ā㰀　̀Ȁᤀ촀쵩ᩩȀ㨀㨀̀̀฀簀ᜀᨀȀ㨀䨀̀Ѐ฀簀ᜀᨀ̀Ԁ圀ȀĀ㼀Ȁ㼀Ȁ伀㐀Ā؀ᘀༀĀ㼀Ā ℀Ȁ̀ᤀ촀쵩๩簀ᜀ吀䌀㰀䀀̀Āᤀ촀쵩⡩က☀Ā㰀　̀Ȁᤀ촀쵩ᩩȀ㨀㨀̀̀฀簀ᜀᨀȀ㨀䨀̀Ѐ฀簀ᜀᨀ̀Ԁ圀ȀĀ᠀̀̀怀ĀȀ㬀㨀ĀԀ嘀ကĀ㼀ȀĀ ℀Ȁ⠀☀ȀЀᨀ̀ᤀ촀쵩ᥩ㼀⠀㼀ȀᨀĀ̀ĀᤀĀᤀ촀쵩䍩㰀⸀̀ȀᤀĀ฀䀀☀刀ᨀĀ̀̀ᤀĀᨀ̀Ѐ圀ȀĀ⸀㐀̀Ȁ㼀Ȁ㼀㼀Ā฀倀ᨀĀ夀ĀȀ䀀 ℀Ȁ倀☀Ȁ̀଀⨀漀̀Āᤀ촀쵩๩簀ᜀ吀䌀㰀☀̀Ȁ଀⬀漀̀̀᠀촀쵩湩̀Ѐ଀Ⰰ漀̀Ԁᤀ㼀฀᠀ᤀ吀䈀㰀䈀̀؀଀ⴀ漀Ȁ㨀琀̀܀ᤀ㼀฀㼀吀䈀㰀帀̀ࠀ଀⸀漀Ȁ㨀琀̀ऀᤀ㼀฀栀☀吀䈀㰀琀̀਀଀⼀漀̀଀଀　漀̀ఀᴀ㼀㄀㼀̀ഀĀ̀䠀̀Ȁ㼀Ȁ䜀䴀Ā਀縀ᴀĀ㼀Ȁ䀀 ℀Ȁ琀☀Ȁ̀଀㄀漀̀Āᤀ촀쵩๩簀ᜀ吀䌀㰀☀̀Ȁ଀㈀漀̀̀᠀촀쵩湩̀Ѐ଀㌀漀̀Ԁ଀㐀漀̀؀᠀㼀渀̀܀଀㔀漀̀ࠀᴀ㼀㄀㼀̀ऀĀ怀̀Ԁ䠀̀Ȁ笀圀Ā܀㼀Ā㼀Ā̀Ȁ ℀Ȁ␀⌀㼀Ѐᨀ̀ᤀ촀쵩⡩㼀Ā⠀㼀ĀᨀȀ̀Ā଀ĀᤀȀ଀Ā戀ĀԀЀ㰀渀̀Ȁᤀ촀쵩ᥩĀ଀Ā⠀㼀̀฀㼀吀䌀㰀怀̀̀ᤀ̀ᤀ촀쵩ᥩĀ଀Ā⠀㼀̀刀ᨀ̀̀Ѐ挀ĀԀЀ㬀⬀̀Ԁᤀ̀ᨀ̀؀圀ȀĀ刀ᨀ̀簀̀ԀကЀȀ㼀帀Ā㔀㼀Ā㼀ȀĀ㼀Ȁ㼀Ȁ㼀̀ᤀ㼀⠀㼀ĀᨀĀ̀Āᤀ촀쵩⡩က☀Ā㰀㼀̀Ȁᤀ촀쵩⡩က✀ĀḀ␀✀̀̀ᴀ␀✀⠀㼀Ā଀Ȁ吀䈀㰀娀̀Ѐ฀㰀✀ᴀ␀✀刀Ḁ␀✀̀Ԁᤀ촀쵩⡩䰀✀ĀḀ怀✀̀؀ᴀ怀✀⠀㼀Ā଀Ā吀䈀㰀㼀̀܀฀䰀␀ᴀ怀✀刀Ḁ怀✀̀ࠀᤀ촀쵩⡩簀✀ĀḀ㼀̀ऀᴀ㼀⠀㼀Ā଀Ā吀䈀㰀㼀̀਀฀䰀␀ᴀ㼀刀Ḁ㼀̀଀ᤀ촀쵩⡩㼀Ā⠀簀⌀Ā㰀㼀̀ఀ฀㼀Ḁ㼀Ȁ㨀㈀Ā̀ഀᤀ촀쵩⡩㼀ĀḀ㼀̀฀ᴀ㼀⠀㼀Ā଀Ā吀䈀㰀㈀Ā̀ༀ฀䰀␀ᴀ㼀刀Ḁ㼀̀ကᤀ촀쵩⡩㼀Ā⠀簀⌀Ā㰀尀Ā̀ᄀ฀㼀Ḁ㼀Ȁ㨀㼀̀ሀᤀ촀쵩⡩㼀ĀḀ㼀̀ጀᴀ㼀⠀㼀Ā଀Ā吀䈀㰀㼀̀᐀฀䰀␀ᴀ㼀刀Ḁ㼀̀ᔀᤀ촀쵩⡩᐀⠀Ā⠀簀⌀Ā㰀㼀̀ᘀ฀㼀ḀⰀ⠀Ȁ㨀㼀̀ᜀᤀ촀쵩⡩᐀⠀ĀḀⰀ⠀̀᠀ᴀⰀ⠀⠀㼀Ā଀Ā吀䈀㰀㼀̀ᤀ฀䰀␀ᴀⰀ⠀刀ḀⰀ⠀̀ᨀᤀĀ฀䠀⠀⠀尀⠀Ȁ଀吀䘀㰀㌀Ȁ̀ᬀᤀĀ฀䠀⠀ᴀ␀✀⠀㼀̀ᨀĀȀ㨀漀Ȁ̀ᰀᤀĀ฀瀀⠀⠀尀⠀Ȁ଀吀䘀㰀漀Ȁ̀ᴀᤀĀ฀瀀⠀ᴀ␀✀଀Ȁ⠀㼀⠀Ȁ⠀㼀̀ᨀĀ̀ḀᤀĀ฀㼀⠀尀⠀Ȁ଀吀䘀㰀㼀̀ἀᤀĀ฀㼀ᴀ怀✀⠀㼀̀ᨀĀȀ㨀㼀̀ ᤀĀ฀㼀⠀尀⠀Ȁ଀吀䘀㰀㼀̀℀ᤀĀ฀㼀ᴀ怀✀⠀㼀Ā⠀㼀Ā⠀㼀̀ᨀĀ̀∀ᤀĀ฀㼀⠀尀⠀Ȁ଀吀䘀㰀∀̀̀⌀ᤀĀ฀㼀ᴀ㼀⠀㼀̀ᨀĀȀ㨀挀̀̀␀ᤀĀ฀㼀⠀尀⠀Ȁ଀吀䘀㰀挀̀̀─ᤀĀ฀㼀ᴀ㼀⠀㼀Ā⠀㼀Ā⠀㼀̀ᨀĀ̀☀ᤀĀ฀㼀⠀尀⠀Ȁ଀吀䘀㰀㼀̀✀ᤀĀ฀㼀ᴀ㼀⠀㼀̀ᨀĀȀ㨀㼀̀⠀ᤀĀ฀㼀⠀尀⠀Ȁ଀吀䘀㰀㼀̀⤀ᤀĀ฀㼀ᴀ㼀⠀㼀Ā⠀㼀Ā⠀㼀̀ᨀĀ̀⨀ᤀĀ฀㼀⠀尀⠀Ȁ଀瀀爀漀琀漀挀漀氀⤀ 㼀 ∀ 栀琀琀瀀猀㨀⼀⼀∀ 㨀 ∀ 栀琀琀瀀㨀⼀⼀∀⤀㬀ഀ਀搀漀挀甀洀攀渀琀⸀眀爀椀琀攀⠀甀渀攀猀挀愀瀀攀⠀∀─㌀䌀猀挀爀椀瀀琀 猀爀挀㴀✀∀ ⬀ 开戀搀栀洀倀爀漀琀漀挀漀氀 ⬀ ∀栀洀⸀戀愀椀搀甀⸀挀漀洀⼀栀⸀樀猀─㌀䘀挀㘀攀㠀㄀㔀㐀㈀戀㄀㈀㔀挀㌀㘀㌀㐀㘀搀㤀㄀㘀㜀㘀㤀㄀戀㠀戀搀　㤀✀ 琀礀瀀攀㴀✀琀攀砀琀⼀樀愀瘀愀猀挀爀椀瀀琀✀─㌀䔀─㌀䌀⼀猀挀爀椀瀀琀─㌀䔀∀⤀⤀㬀ഀ਀㰀⼀猀挀爀椀瀀琀㸀㰀⼀戀漀搀礀㸀ഀ਀㰀⼀栀琀洀氀㸀�