㽏}]],菣3W,N?Y"

sysOptPosition = "
ON?Q]N,D??t貃XT,N劁貃XT,?x貃XT,f[u,vQ㽃ഀ਀猀礀猀伀瀀琀䌀漀洀瀀愀渀礀吀礀瀀攀 㴀 ∀ἀ甀᐀㼀伀ᨀ一Ⰰ⤀?㼀伀ᨀ一Ⰰ㼀攀㈀골㴠㽥̀㼀砀夀攀ࠀ㩽最✀刀Ⰰ最茀a怀ഀ最脀Œ伀ᨀ一Ⰰ⨀一匀伀⤀??ON,vQ跴"

sysOptDepartment = "觾-圿/a?J?㽊㽥∀㄀崀刀㼀攽?
?t㴿㽥最茀a怀㼀攽?^:W\?U㼿✀㼀稀㼀戀⼀最㼀攽??x㴿㽥瘀儀⊍ഀ਀猀礀猀伀瀀琀刀攀最吀礀瀀攀 㴀 ∀猀瘀尀ༀ孥⠀甀㜀戀簀　Ⰰ褀⢇甀⠀甀㜀戀簀㄀Ⰰ挀欀ༀ开⠀甀㜀戀簀㤀∀ഀ਀匀礀猀伀瀀琀匀渀䌀漀洀瀀愀渀礀 㴀 ∀ऀ縀吀Q缀簀䌀伀䴀∀ഀ਀匀礀猀伀瀀琀匀渀䤀伀 㴀 ∀㘀攀攀儀簀䤀Ⰰ⼀攀ऀ籹伀∀ഀ਀匀礀猀伀瀀琀匀渀䌀漀渀琀爀愀挀琀 㴀 ∀最茀a怀㼀唀ࠀ吀ఀ吀簀䤀Ⰰ栀瘀?吀㼀唀ࠀ吀ఀ吀簀刀Ⰰᨀ伀欀甀ഀ最脀ࡒ吀ఀ吀簀䌀∀ഀ਀搀椀洀 猀礀猀䴀愀椀氀䠀漀猀琀Ⰰ猀礀猀䴀愀椀氀唀猀攀爀Ⰰ猀礀猀䴀愀椀氀倀眀搀ഀ਀✀猀礀猀䴀愀椀氀䠀漀猀琀㴀∀洀愀椀氀⸀挀漀洀攀氀愀渀⸀挀漀洀∀ഀ਀✀猀礀猀䴀愀椀氀唀猀攀爀㴀∀挀漀洀攀氀愀渀䀀挀漀洀攀氀愀渀⸀挀漀洀∀ഀ਀✀猀礀猀䴀愀椀氀倀眀搀㴀∀挀漀洀攀氀愀渀∀ഀ਀猀礀猀䴀愀椀氀䠀漀猀琀㴀∀洀愀椀氀⸀挀漀洀攀氀愀渀⸀挀漀洀∀ഀ਀猀礀猀䴀愀椀氀唀猀攀爀㴀∀挀漀洀攀氀愀渀䀀挀漀洀攀氀愀渀⸀挀漀洀∀ഀ਀猀礀猀䴀愀椀氀倀眀搀㴀∀挀漀洀攀氀愀渀∀ഀ਀✀ 簀Ⰰ㽰㼀pe

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

'?uIRz韃h\F[Qpe

'1
0Sub WriteError(str)				'E業R貘>f:yh\&[Oo`

'2
0Sub WriteErrorLn				'>f:yh\&[Oo`

'3
0Sub WriteRequest()				'9d礉@b	gh2WSO堲錱憃`

'4
0Sub WriteArray(theA,endFlag)	'J?wpeIR@b	g<P

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

dim m_g_IsDebug

m_g_IsDebug = true		'/f&T:Nh\lZr,g貘S_ck_菆^z韃
?貘瘶?e:Nm_g_IsDebug=false

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

'E業R貘>f:yh\&[Oo`

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

Sub WriteError(str)

IF m_g_IsDebug Then

Response.write str & "<br>"

End IF

End Sub

Sub WriteVar(varName)

if m_g_IsDebug then

dim varValue

Execute("varValue=" & varName)

response.Write varName & "=" & varValue & "<br>"

end if

End Sub

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

'E業R貘>f:yh\&[Oo` Response.End

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

Sub WriteErrorLn(str)

IF m_g_IsDebug Then

Response.write str & "<br>"

Response.End

End IF

End Sub

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

'9d礉@b	gh2WSO堲錱憃`

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

Sub WriteRequest()

IF m_g_IsDebug Then

For Each thing In Request.Form

WriteError  thing & "=" & Request(thing) & "<br>"

Next

End IF

End Sub

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

'J?wpeIR@b	g<P

'endFlag=1
?N璽

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

Sub WriteArray(theA,endFlag)

IF m_g_IsDebug Then

If typename(theA)<>"Variant()"then

WriteError("
N/fpe
貘")

Else

WriteError "peaTheClassId=<br>"

For i=0 to ubound(theA)

WriteError(i&". "&theA(i)&"<br>")

Next

End if

If endFlag="1" then

Response.end

End if

End IF

End Sub

' ?uz韃h\F[Qpe

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

'	W[&{YtI焢e

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

'1
0function StrLength(str)				n奫廤[&{2NIR抐^ -N@VW[&{=2

'2
0function IsInteger(para)			$R璽para/f&T:Nte乑,/fn奫? &Tn奫?

'3
0function cutStr(str,strLen)			*bW[&{2NMRstrLen*NW[2N,$R璽-N@VW[&{

'4
0function HTMLEncode(fString)		W[&{2N
x

'5
0function HTMLDecode(fString)		W[&{2N悞
x

'6
0function HTMLcode(fString)			W[&{2N
x(邥^漑廸?
x)

'7
0function strFill(str1,strlen,chrFill)	^漌[&{2N
NstrLen抐^IR(uchrFill0噳搆XEQ

'8
0function chkInputStr(str,length)	^?deQIRW[2N<Pt[抐^Z嶭?R璽,㼋渀缀退幢✀夀찀汵攀渀最琀栀ᤀ刀錀䶜刀氀攀渀最琀栀⨀一ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀✀渀欀^嬀☀笀㈀一䤀刀缀退幢ఀ頀⒌刀봀⵴一䀀嘀圀嬀☀笀ഀ਀昀甀渀挀琀椀漀渀 匀琀爀䰀攀渀最琀栀⠀猀琀爀⤀ഀ਀搀椀洀 爀攀猀甀氀琀Ⰰ圀䤀一一吀开䌀䠀䤀一䔀匀䔀ഀ਀漀渀 攀爀爀漀爀 爀攀猀甀洀攀 渀攀砀琀ഀ਀椀昀 猀琀爀㴀∀∀ 漀爀 椀猀渀甀氀氀⠀猀琀爀⤀ 琀栀攀渀ഀ਀爀攀猀甀氀琀㴀　ഀ਀攀氀猀攀ഀ਀圀䤀一一吀开䌀䠀䤀一䔀匀䔀 㴀 ⠀氀攀渀⠀∀ⴀ一䀀嘀∀⤀㴀㈀⤀ഀ਀椀昀 圀䤀一一吀开䌀䠀䤀一䔀匀䔀 琀栀攀渀ഀ਀搀椀洀 氀Ⰰ挀Ⰰ椀ഀ਀氀㴀氀攀渀⠀猀琀爀⤀ഀ਀爀攀猀甀氀琀㴀氀ഀ਀昀漀爀 椀㴀㄀ 琀漀 氀ഀ਀挀㴀愀猀挀⠀洀椀搀⠀猀琀爀Ⰰ椀Ⰰ㄀⤀⤀ഀ਀椀昀 挀㰀　 琀栀攀渀 挀㴀挀⬀ 㘀㔀㔀㌀㘀ഀ਀椀昀 挀㸀㈀㔀㔀 琀栀攀渀 爀攀猀甀氀琀㴀爀攀猀甀氀琀⬀㄀ഀ਀渀攀砀琀ഀ਀攀氀猀攀ഀ਀爀攀猀甀氀琀㴀氀攀渀⠀猀琀爀⤀ഀ਀攀渀搀 椀昀ഀ਀椀昀 䔀爀爀⸀渀甀洀戀攀爀㰀㸀　 琀栀攀渀 䔀爀爀⸀䌀氀攀愀爀ഀ਀攀渀搀 椀昀ഀ਀猀琀爀䰀攀渀㴀爀攀猀甀氀琀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀昀甀渀挀琀椀漀渀 䤀猀䤀渀琀攀最攀爀⠀瀀愀爀愀⤀ഀ਀伀渀 䔀爀爀漀爀 刀攀猀甀洀攀 渀攀砀琀ഀ਀搀椀洀 爀攀猀甀氀琀ഀ਀爀攀猀甀氀琀㴀㄀ഀ਀搀椀洀 猀琀爀Ⰰ氀Ⰰ椀ഀ਀椀昀 椀猀渀甀氀氀⠀瀀愀爀愀⤀ 琀栀攀渀ऀ✀⼀昀☀吀㤀搀攀儀㰀倀㨀一一唀䰀䰀ഀ਀爀攀猀甀氀琀㴀　ഀ਀攀氀猀攀ഀ਀猀琀爀㴀挀猀琀爀⠀瀀愀爀愀⤀ഀ਀椀昀 琀爀椀洀⠀猀琀爀⤀㴀∀∀ 琀栀攀渀ऀ✀⼀昀☀吀㤀搀攀儀㰀倀㨀一稀稀ഀ਀爀攀猀甀氀琀㴀　ഀ਀攀氀猀攀ഀ਀氀㴀氀攀渀⠀猀琀爀⤀ഀ਀昀漀爀 椀㴀㄀ 琀漀 氀ഀ਀搀椀洀 挀栀愀爀ഀ਀挀栀愀爀㴀洀椀搀⠀猀琀爀Ⰰ椀Ⰰ㄀⤀ഀ਀椀昀⠀挀栀愀爀㸀∀㤀∀ 漀爀 挀栀愀爀㰀∀　∀⤀ 琀栀攀渀ऀ✀⼀昀☀吀㤀搀攀儀㰀倀ऀ最帀旤圀嬀圀嬀☀笀ഀ਀爀攀猀甀氀琀㴀　ഀ਀䔀砀椀琀 昀漀爀ഀ਀攀渀搀 椀昀ഀ਀渀攀砀琀ഀ਀攀渀搀 椀昀ഀ਀攀渀搀 椀昀ഀ਀椀昀 䔀爀爀⸀渀甀洀戀攀爀㰀㸀　 琀栀攀渀 䔀爀爀⸀䌀氀攀愀爀ഀ਀椀猀䤀渀琀攀最攀爀㴀爀攀猀甀氀琀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀昀甀渀挀琀椀漀渀 䌀甀琀匀琀爀⠀猀琀爀Ⰰ猀琀爀䰀攀渀⤀ഀ਀搀椀洀 爀攀猀甀氀琀Ⰰ圀䤀一一吀开䌀䠀䤀一䔀匀䔀ഀ਀椀昀 椀猀渀甀氀氀⠀猀琀爀⤀ 漀爀 猀琀爀㴀∀∀ 琀栀攀渀ഀ਀挀甀琀匀琀爀㴀∀∀ഀ਀䔀砀椀琀 昀甀渀挀琀椀漀渀ഀ਀攀渀搀 椀昀ഀ਀爀攀猀甀氀琀㴀∀∀ഀ਀圀䤀一一吀开䌀䠀䤀一䔀匀䔀 㴀 ⠀氀攀渀⠀∀ⴀ一䀀嘀∀⤀㴀㈀⤀ഀ਀椀昀 圀䤀一一吀开䌀䠀䤀一䔀匀䔀 琀栀攀渀ഀ਀搀椀洀 氀Ⰰ琀Ⰰ挀Ⰰ椀ഀ਀氀㴀氀攀渀⠀猀琀爀⤀ഀ਀琀㴀　ഀ਀昀漀爀 椀㴀㄀ 琀漀 氀ഀ਀挀㴀愀猀挀⠀洀椀搀⠀猀琀爀Ⰰ椀Ⰰ㄀⤀⤀ഀ਀椀昀 挀㰀　 琀栀攀渀 挀㴀挀⬀ 㘀㔀㔀㌀㘀ഀ਀椀昀 挀㸀㈀㔀㔀 琀栀攀渀ഀ਀琀㴀琀⬀㈀ഀ਀攀氀猀攀ഀ਀琀㴀琀⬀㄀ഀ਀攀渀搀 椀昀ഀ਀椀昀 琀㸀㴀猀琀爀䰀攀渀 琀栀攀渀ഀ਀爀攀猀甀氀琀㴀氀攀昀琀⠀猀琀爀Ⰰ椀⤀ഀ਀䔀砀椀琀 昀漀爀ഀ਀攀渀搀 椀昀ഀ਀渀攀砀琀ഀ਀椀昀 爀攀猀甀氀琀㴀∀∀ 琀栀攀渀 爀攀猀甀氀琀㴀猀琀爀ഀ਀攀氀猀攀ഀ਀椀昀 氀攀渀⠀猀琀爀⤀㸀猀琀爀䰀攀渀 琀栀攀渀ഀ਀爀攀猀甀氀琀㴀氀攀昀琀⠀猀琀爀Ⰰ猀琀爀䰀攀渀⤀ഀ਀攀氀猀攀ഀ਀爀攀猀甀氀琀㴀氀攀昀琀⠀猀琀爀Ⰰ猀琀爀氀攀渀⤀ഀ਀攀渀搀 椀昀ഀ਀攀渀搀 椀昀ഀ਀挀甀琀匀琀爀㴀爀攀猀甀氀琀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀✀圀嬀☀笀㈀一娀관]ᨀ圀吀䴀䰀ᘀ缀Ā砀Ѐ夀؀琀ഀ਀昀甀渀挀琀椀漀渀 䠀吀䴀䰀䔀渀挀漀搀攀⠀昀匀琀爀椀渀最⤀ഀ਀椀昀 一漀琀 椀猀渀甀氀氀⠀昀匀琀爀椀渀最⤀ 琀栀攀渀ഀ਀昀匀琀爀椀渀最 㴀 爀攀瀀氀愀挀攀⠀昀匀琀爀椀渀最Ⰰ ∀㸀∀Ⰰ ∀☀最琀㬀∀⤀ഀ਀昀匀琀爀椀渀最 㴀 爀攀瀀氀愀挀攀⠀昀匀琀爀椀渀最Ⰰ ∀㰀∀Ⰰ ∀☀氀琀㬀∀⤀ഀ਀昀匀琀爀椀渀最 㴀 刀攀瀀氀愀挀攀⠀昀匀琀爀椀渀最Ⰰ 䌀䠀刀⠀㌀㈀⤀Ⰰ ∀☀渀戀猀瀀㬀∀⤀ഀ਀昀匀琀爀椀渀最 㴀 刀攀瀀氀愀挀攀⠀昀匀琀爀椀渀最Ⰰ 䌀䠀刀⠀㌀㐀⤀Ⰰ ∀☀焀甀漀琀㬀∀⤀ഀ਀昀匀琀爀椀渀最 㴀 刀攀瀀氀愀挀攀⠀昀匀琀爀椀渀最Ⰰ 䌀䠀刀⠀㌀㤀⤀Ⰰ ∀☀⌀㌀㤀㬀∀⤀ഀ਀昀匀琀爀椀渀最 㴀 刀攀瀀氀愀挀攀⠀昀匀琀爀椀渀最Ⰰ 䌀䠀刀⠀㄀㌀⤀Ⰰ ∀∀⤀ഀ਀昀匀琀爀椀渀最 㴀 刀攀瀀氀愀挀攀⠀昀匀琀爀椀渀最Ⰰ 䌀䠀刀⠀㄀　⤀ ☀ 䌀䠀刀⠀㄀　⤀Ⰰ ∀㰀⼀倀㸀㰀倀㸀 ∀⤀ഀ਀昀匀琀爀椀渀最 㴀 刀攀瀀氀愀挀攀⠀昀匀琀爀椀渀最Ⰰ 䌀䠀刀⠀㄀　⤀Ⰰ ∀㰀䈀刀㸀 ∀⤀ഀ਀䠀吀䴀䰀䔀渀挀漀搀攀 㴀 昀匀琀爀椀渀最ഀ਀攀渀搀 椀昀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀✀圀嬀☀笀㈀一娀관]ᨀ圀吀䴀䰀圀簀ᘀ缀Ā砀Ѐ夀؀琀ഀ਀昀甀渀挀琀椀漀渀 䠀吀䴀䰀䐀攀挀漀搀攀⠀昀匀琀爀椀渀最⤀ഀ਀椀昀 一漀琀 椀猀渀甀氀氀⠀昀匀琀爀椀渀最⤀ 琀栀攀渀ഀ਀昀匀琀爀椀渀最 㴀 爀攀瀀氀愀挀攀⠀昀匀琀爀椀渀最Ⰰ ∀☀最琀㬀∀Ⰰ ∀㸀∀⤀ഀ਀昀匀琀爀椀渀最 㴀 爀攀瀀氀愀挀攀⠀昀匀琀爀椀渀最Ⰰ ∀☀氀琀㬀∀Ⰰ ∀㰀∀⤀ഀ਀昀匀琀爀椀渀最 㴀 刀攀瀀氀愀挀攀⠀昀匀琀爀椀渀最Ⰰ ∀∀Ⰰ 䌀䠀刀⠀㄀㌀⤀⤀ഀ਀昀匀琀爀椀渀最 㴀 刀攀瀀氀愀挀攀⠀昀匀琀爀椀渀最Ⰰ ∀㰀⼀倀㸀㰀倀㸀∀Ⰰ 䌀䠀刀⠀㄀　⤀ ☀ 䌀䠀刀⠀㄀　⤀⤀ഀ਀昀匀琀爀椀渀最 㴀 刀攀瀀氀愀挀攀⠀昀匀琀爀椀渀最Ⰰ ∀㰀䈀刀㸀∀Ⰰ 䌀䠀刀⠀㄀　⤀⤀ഀ਀䠀吀䴀䰀䐀攀挀漀搀攀 㴀 昀匀琀爀椀渀最ഀ਀攀渀搀 椀昀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀✀帀ఀo嬀☀笀㈀一ഀ一㘀珦琀爀䰀攀渀缀退幢䤀刀⠀甀挀栀爀䘀椀氀氀　猀ٖd堀䔀儀ഀ਀昀甀渀挀琀椀漀渀 匀琀爀䘀椀氀氀⠀猀琀爀㄀Ⰰ猀琀爀氀攀渀Ⰰ挀栀爀䘀椀氀氀⤀ഀ਀椀昀 椀渀琀⠀猀琀爀氀攀渀⤀㰀㈀ 漀爀 氀攀渀⠀挀栀爀䘀椀氀氀⤀㰀㸀㄀ 琀栀攀渀ഀ਀猀琀爀䘀椀氀氀㴀∀∀ഀ਀䔀砀椀琀 昀甀渀挀琀椀漀渀ഀ਀攀渀搀 椀昀ഀ਀椀昀 氀攀渀⠀猀琀爀㄀⤀㸀㴀猀琀爀氀攀渀 琀栀攀渀ഀ਀猀琀爀䘀椀氀氀㴀猀琀爀㄀ഀ਀䔀砀椀琀 昀甀渀挀琀椀漀渀ഀ਀攀渀搀 椀昀ഀ਀猀琀爀䘀椀氀氀㴀刀攀瀀氀椀挀愀琀攀⠀挀栀爀䘀椀氀氀Ⰰ猀琀爀氀攀渀ⴀ氀攀渀⠀猀琀爀㄀⤀⤀ ⬀ 猀琀爀㄀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀昀甀渀挀琀椀漀渀 䌀栀欀䤀渀瀀甀琀匀琀爀⠀猀琀爀Ⰰ氀攀渀最琀栀⤀ഀ਀猀琀爀㴀琀爀椀洀⠀猀琀爀⤀ഀ਀搀椀洀 爀攀猀甀氀琀ഀ਀椀昀 氀攀渀最琀栀㸀　 琀栀攀渀ഀ਀爀攀猀甀氀琀㴀挀甀琀匀琀爀⠀猀琀爀Ⰰ氀攀渀最琀栀⤀ഀ਀攀氀猀攀ഀ਀椀昀 氀攀渀最琀栀㴀　 琀栀攀渀ഀ਀爀攀猀甀氀琀㴀猀琀爀ഀ਀攀氀猀攀ഀ਀爀攀猀甀氀琀㴀∀∀ഀ਀攀渀搀 椀昀ഀ਀攀渀搀 椀昀ഀ਀爀攀猀甀氀琀 㴀 刀攀瀀氀愀挀攀⠀爀攀猀甀氀琀Ⰰ 䌀䠀刀⠀㌀㐀⤀Ⰰ ∀☀焀甀漀琀㬀∀⤀ഀ਀爀攀猀甀氀琀 㴀 刀攀瀀氀愀挀攀⠀爀攀猀甀氀琀Ⰰ 䌀䠀刀⠀㌀㤀⤀Ⰰ ∀☀⌀㌀㤀㬀∀⤀ഀ਀挀栀欀䤀渀瀀甀琀匀琀爀㴀爀攀猀甀氀琀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀✀଀?n
N/fpeW[貘R:Nzz

function ChkInputNum(str)

if str<>"" then

if isnum