㽏̀ഀ圀ȀĀ刀ᴀ㼀̀㼀Ȁ─Ā⠀Ȁᔀ樀氀Ā㼀ЀЀȀ䀀琀㸀Ȁ㼀Ȁ㼀Ȁ㼀Ȁ㼀ఀ㼀␀㼀㰀㼀̀昀ϸĀᴀ㼀ᨀĀ̀Ȁᴀ尀ᨀ฀尀㼀　㼀ĀᬀȀ̀̀ᤀ㼀ᤀȀ␀㼀??$??$??$??$ @8@$P@	?1h@

|TB(?
><?W?(?
i<?|TC<?1園
j;?m
1?
1!
? W
=z
?@珸㽀㽳鳣A,AHA??(?

?(4$
(?
TB<8???|TB<U-

???(?
(?
(?
C<?`An?1?	tAR?Rn

(?

d,#<L
,#-
(?
?(?
B<?淎:

|糀R㼹R,#-
R㼉R,#-

R?Rne,#;?Bn
? 
O
,@㽀㽳鳣A,AHA?(?

?(4$
(?
TB<8???(?
(?
(?
C<~`An?1?
(?

d,#<
,#-
(?
?(?
B<?	淎:?
|糀R㼹R,#-
R㼉R,#-

R?Rne,#;?

@`?]㽅㼀Ѐ̀Ȁ䀀sȀ䀀?Ȁ猀?Ȁᰀ䈀Ȁ᐀䄀Ⰰ䄀䠀䄀̀ᤀ㼀฀㼀⠀㼀ȀᨀĀ̀Āᤀ㼀⠀㐀␀Ā⠀㼀Ā଀吀䈀㰀㠀̀Ȁᤀ㼀ᨀ㼀̀̀ᴀœ฀簀ᜀ吀䈀㰀夀̀Ѐ଀ⴀĀĀḀœ̀Ԁᤀ㼀฀㼀⠀㼀ȀᨀȀ̀؀ᤀĀ⠀㼀ĀᤀȀ⠀㼀Ā䌀㰀㼀̀܀฀怀䄀渀̀ࠀᴀ㼀㄀㼀̀ऀကḀ㠀䈀̀਀଀ᤀĀ⠀㼀Ā଀Ā搀Ⰰ⌀ԀЀ㰀㼀
?|TB8BA@<?PB
8B:2
,#-
(?
?(?
B<(
PB:2
|lBR淏R,#-
R窧RR㼉R,#-

R%Rne,#;?
R怋`0?q緤
?
@珸㼠㼊C('
IC('
H
d,#<u

|TB<Q,#
:e
?R,#R
e,#;0

?'? Cn
? ?y
:?`
@珸,CLChC

d,#<?
,#(?

TD<?T$(!:K|(!
|TB<|,#
(!,#R:?
?R,#R
?R(!R,#R	e,#;

?'?凜n
??H!??
悙
D
@珸怌珻㽃

d,#<?
,#(?

TD<?T$(!:K|(!
|TB<|,#
(!,#R:?
?R,#R
?R(!R,#R	e,#;

?'?㽸n
??h"
?	矒
?@珸㼲?D
4DRD('
'`D(T'
(?

TB<wDDRT$D(T'
(?
R'?:?DDRD(T'
'?D(?
(?

TB<?TDRT$D(?
(?
R'?:
TDRD(?
'?
?Y?"??
|&dDl$|D孌(!窪RXER?RxER?R孍R?R‥R?R繣RdFR?R怓R


W
RlE(?I?N?%

|&l$|D孌(!癋RXER?RxER?R孍R?R‥R?R㼧R


W
FL
 %?.??
@(!孏


n

lh%^?㼻㼀̀฀栀䠀⠀刀[Ā⠀㐀␀Ā฀簀ᜀ吀䈀㰀ⴀ̀ĀကᨀȀ㨀夀̀Ȁ฀栀䠀⠀刀[Ā⠀㼀Ā㰀匀̀̀ᄀᨀȀ㨀夀̀Ѐကᨀ̀Ԁ圀ȀĀ㼀̀⠀☀ȀऀĀ㼀ᔀ稀㼀爀ȀĀԀåȀ츀|Ⰰ?尀 㜀?Ѐ䤀̀⠀㠀ᬀĀ̀Āᤀ໸簀ᜀ吀䈀㰀☀̀Ȁᄀᨀ̀̀圀̀Ѐ฀ 䤀⠀刀[ĀᨀԀ̀ԀᤀԀ฀簀ᜀ吀䈀㰀儀̀؀ကᨀ̀܀圀̀ࠀ฀㼀ᤀԀ刀฀㼀刀ᨀԀ̀ऀ฀㰀䤀ᤀ勸฀㼀刀ᨀȀ̀਀ᤀȀᤀĀ⠀㼀Ȁᬀ̀̀଀ᤀ̀⌀㐀 䄀㰀㼀̀ఀ฀㼀฀dⴀ̀Ā刀฀㼀刀ᨀЀ̀ഀᤀԀᤀЀ⠀搀⠀Ȁ଀吀䘀㰀㼀̀฀ᄀᨀȀ㨀㼀̀ༀကᨀȀ㨀㼀̀ကကᨀ̀ᄀᤀ̀㄀᐀℀̀ሀᔀᬀ̀̀ጀᔀᬀĀ̀᐀圀ȀĀ଀吀㼀̀㼀Ȁ㼀㼀ጀ☀ţ吀Ȁ̀̀㼀糏?㼭 郔|TB?|TB><%
W㼒R?(?

#4 A<dLJ-


1!|TB<?	
W`J?R㼔RR?R?(?


#4 A<?:?
1!
W
??)
?n???Ȁ᠀䬀Ȁ㼀Ȁⴀ?ࠀ 㠀䬀吀䬀氀䬀簀䬀dЀt̀଀଀ᨀ̀̀Ā⠀刀?฀⤀?⠀簀̀ȀᨀЀ̀Ȁ฀ᔀ?ᤀ勸฀䐀䰀刀ᤀ㼀刀฀瀀䰀刀ᤀ̀刀฀爀i刀ᤀЀ刀฀㼀刀ᨀȀ̀̀ᤀȀᤀ㼀⠀㼀ȀᬀĀ̀ЀᤀĀ⌀㐀 㰀㼀̀Ԁ娀嘀?ᬀԀ̀؀ᤀ㼀ᤀԀ─㼀̀܀⠀刀?฀�⠀簀̀Ȁᨀ؀̀ࠀ฀ఀ䴀ᤀ㼀刀ᤀ㼀⠀㼀Ȁᨀࠀ̀ऀᤀࠀ฀琀䴀刀ᤀ؀刀฀Q刀ᨀ܀̀਀ᤀԀᤀ㼀ᤀ᧸̀฀mᤀ܀ᤀ؀　唀v؀Ḁ⬀?̀଀ᔀᬀԀ̀ఀᤀĀ㄀᐀℀̀ഀᔀᬀĀ̀฀圀ȀĀ刀ᨀ܀㼀܀㼀Ȁ㼀㼀ऀ搀㼀㼀̀Ԁ㼀K?8KlK|K擪琄

Z㽖?%?(㽒郘(|M?R?(?tMRR㼱R?
N0癕㼫W
???	㼃㼀̀Ԁ㼀K?8KlK|K擪琄


Z㽖?%?(㽒郘(|M?R?(?tMRRNR?
0N0癕㼫W
D???	惛
??Ȁ᠀䬀Ȁ㼀Ȁ㠀䬀氀䬀簀䬀dЀt̀଀฀ᨀĀ̀Ā娀嘀?ᬀȀ̀Ȁᤀ㼀ᤀȀ─㼀̀̀⠀刀?฀�⠀簀̀Ȁᨀ̀̀Ѐ฀ఀ䴀ᤀ㼀刀ᤀ㼀⠀㼀ȀᨀԀ̀ԀᤀԀ฀琀䴀刀ᤀ̀刀฀䐀一刀ᨀЀ̀؀ᤀȀᤀ㼀ᤀ᧸Ā฀搀一ᤀЀᤀ̀　唀v؀Ḁ⬀?̀܀ᔀᬀȀ̀ࠀ圀ȀĀ琀܀Ԁ㼀Ȁ㐀㼀̀쌀ű㼀̀⠀㈀Ȁ砀一Ȁ㼀Ȁ̀ᴀ㼀㰀⼀̀Ā฀栀䠀⠀刀[Ā฀琀iᤀ᧸㼀ᤀ㼀✀㼀Ԁ̀Ȁ圀ȀĀȀ㼀Ԁက⸀Ȁ㐀̀̀㼀㼀̀⠀㈀Ȁ砀一Ȁ㼀Ȁ̀ᴀ㼀㰀⼀̀Ā฀栀䠀⠀刀[Ā฀଀tᤀ᧸㼀ᤀ㼀✀㼀Ԁ̀Ȁ圀ȀĀȀ㼀Ԁ㼀Ȁ㐀̀̀̀㰀㼀㼀̀⠀㈀Ȁ砀一Ȁ㼀Ȁ̀ᴀ㼀㰀⼀̀Ā฀栀䠀⠀刀[Ā฀氀~ᤀ᧸㼀ᤀ㼀✀㼀Ԁ̀Ȁ圀ȀĀȀ㼀Ԁက⼀Ȁ㐀؀̀̀栀㼀㼀̀⠀㈀Ȁ砀一Ȁ㼀Ȁ̀ᴀ㼀㰀⼀̀Ā฀栀䠀⠀刀[Ā฀Ⰰ?ᤀ᧸㼀ᤀ㼀✀㼀Ԁ̀Ȁ圀ȀĀȀ㼀Ԁ㼀Ȁ⠀Āऀ̀ༀ준ǧ吀ȀԀȀ᠀䬀Ȁ㴀?Ȁ⠀㈀Ȁ砀一Ȁ㼀ȀⰀ?ⴀ?̀ᴀ尀ᨀ฀Ѐ伀　㼀ĀᬀȀ̀Ā฀Ⰰ伀ᨀĀ̀ȀᤀȀᤀĀᤀ㼀଀̀଀̀㄀㼀Ѐ̀̀ᤀȀ㄀簀伀̀Ѐᤀ໸d⸀ȀĀ̀Ԁᴀ᠀ᜀ⌀ꀀx฀簀ᜀ吀䈀㰀㼀̀؀ᴀ᠀ᜀ฀㼀　吀ᜀĀ฀ⴀ?⸀ȀĀȀ㨀㼀̀܀ᴀ᠀ᜀ฀㼀　吀ᜀĀ฀㼀刀ᴀ᠀ᜀ⌀ꀀx刀฀ⴀ?⸀ȀĀ̀ࠀᤀ㼀฀㐀?⸀ȀĀ̀ऀᤀ㼀฀ࠀ倀⸀ȀĀ̀਀ᤀ㼀฀ᰀ倀⸀ȀĀ̀଀⠀刀?฀㰀倀⸀ȀĀ̀ఀᴀ᠀ᜀ฀㼀　吀ᜀĀ฀尀倀⸀ȀĀ̀ഀᤀȀ㄀瀀倀̀฀圀ȀĀࠀࠀ؀က㄀ȀᨀĀ᠀̀ༀ저ƒ㼀Ā㼀圥
TC<
圥(孒

窹(孒
㼵㼵|TC
|TC@<

?圥(d(4$

(?TB<?	
㼵?? ?'?:

?TB<?:
(?
:


W

(p2j'疤
A


@?㼫<(D


|TB</㽀
6o n7o
|TC<b8o
n	9o
:o
D(3?3
㼓㼀ȀĀȀ㼀Ȁ쀀žȀఀᨀ̀฀簀ᜀᨀĀ̀Ā଀ᤀ㼀⠀㼀Ā଀Ā搀Ⰰ⌀̀Ȁ㰀㼀̀ȀᴀⰀ⌀ⴀ㼀Ā଀㘀Ā฀簀ᜀ吀䈀㰀刀̀̀㨀㼀Ȁ㨀㼀̀ЀᴀⰀ⌀ⴀ㼀Ā଀㘀Āᤀ⣸㼀Ā䈀㰀㼀̀ԀᴀⰀ⌀ⴀ㼀Ā଀Ā㘀ĀᨀĀ̀؀㨀㼀̀܀攀Ⰰ⌀̀Ȁ㬀⠀̀ࠀᤀĀᨀ̀ऀ圀ȀĀᨀĀ̀搀ࠀԀ䀀㐀Ȁ儀Ȁ㴀̀ᴀ吀Ţ堀Ѐ̀Ѐ㼀Q(Q糎\ 㼬?
(8
DQR碤R
(??(l$?#4 A<,㼶-
(?
:{:?	Th.
R-
?(d(TFR-
$RTB><
?0R-
(㽒(DRTG?`R-
(㽒(DRTE@<
	tR:

?:(
?:?
Th??TB<W

?:?凴-
(燫
TF<?R-
?(d(TFR-
$RTB><?碦㽞<S-
R
't:?0:?h:?Y
(?TB<:,1?:M1!
W
?7?Z
|???Ȁ㔀?Ȁ퐀Ȁ吀匀Ȁ氀匀Ȁ⠀㈀Ȁ츀|Ⰰ?̀ᤀ㼀଀᐀⠀㼀Ȁᨀ㼀̀Āᤀ㼀ఀ㼀⠀㼀Ȁᨀ㼀̀Ȁᤀ㼀ఀ㼀⠀㼀Ȁᨀ㼀̀̀ᤀ㼀฀簀ᜀ吀䈀ᤀ㼀⠀㼀Ā䄀㸀㰀崀̀Ѐ଀ᨀ㼀̀Ԁ⠀㠀ᬀĀ̀؀฀⬀Wᤀ勸฀㼀TR?R怲R?(l$R怲R?R燭R?R吿刀ᤀ㼀刀฀开v刀ᤀ㼀刀฀㈀`刀ᴀ᠀ᜀ฀㼀　吀ᜀĀ刀฀儀?刀ᨀȀ̀܀ᤀȀᤀĀ✀琀Ȁ̀ࠀᔀᬀĀ̀ऀ圀ȀĀĀ㼀Ȁ　㠀Ȁ㼀搀̀尀㼀က嬀㼀尀㬀?䘀က尀씀ž䜀䄀尀⠀唀䠀尀䠀唀䤀尀怀唀䨀尀簀唀䬀崀d崀怀v崀ሀ?崀崀œ崀᐀嘀崀Ⰰ嘀崀䠀嘀崀搀嘀崀簀☀崀簀嘀崀m崀⠀㈀崀愀v଀᐀帀愀vĀ崀᐀?Ā崀鈀ŽĀ崀圀Ā崀᠀圀Āᬀ圀଀᐀帀㬀?Ā 㤀Ȁༀ搀̀Ȁ栀㼀⠀̀ᴀ᐀?ᨀ̀Ā圀ȀĀ씀žĀ怀㤀Ȁ焀昀̀ఀ昀W㼀Ȁ䀀̀଀Ā㴀Ḁ搀嘀̀Ā଀ĀḀœ̀Ȁ଀ĀḀ᐀嘀̀̀଀㈀ḀⰀ嘀̀Ѐ฀簀ᜀḀd̀ԀᄀḀm̀؀฀簀ᜀḀ⠀㈀̀܀฀　圀Ḁ怀v̀ࠀ฀簀ᜀḀሀ?̀ऀ✀⠀唀̀਀ᄀḀ䠀嘀̀଀ĀḀffå⠀唀Ԁက㨀Ȁ开爀̀Ԁ蜀ç洀ĀȀ䀀堀⨀̀଀ᴀ愀v⠀㼀Ā଀Ā戀Ā̀Ȁ㰀匀̀Ā฀簀ᜀ฀簀ᜀ฀簀ᜀ฀簀ᜀ⠀㼀ЀᤀĀ⤀愀vĀ̀Ȁ挀Ā̀Ȁ㬀Ḁ̀̀଀Ḁ᐀?̀ЀĀ䠀唀؀㼀Ȁ猀̀眀̀∀䠀c㼀ĀĀĀ㼀Ȁⴀ?̀ᴀ尀ᨀ฀㰀圀　㼀ĀᬀĀ̀Āᴀ搀嘀଀Ā㴀䈀㰀㼀̀Ȁᴀ尀ᨀ฀㠀ᴀ　㼀Āἀ搀圀̀̀ᴀ搀圀开̀Ѐᤀ៸␀尀ᴀ̀Ԁ฀琀圀ᜀ␀㼀̀؀ᴀ㼀ᜀ␀㼀̀܀ᜀ฀mᴀ㼀ᴀ㼀ఀ㼀ᴀd　ఀḀԀᜀ⌀㐀Ḁ␀吀Ḁ̀ࠀᜀ฀|ᴀ㼀ᴀ㼀ఀ㼀ᴀ怀v　ఀḀԀᜀ⌀㐀Ḁ␀吀Ḁ̀ऀᜀ฀錀Žᴀ㼀ᴀ㼀ఀ㼀ᴀሀ?　ఀḀԀᜀ⌀㐀Ḁ␀吀Ḁ̀਀ᜀ฀∀?ᴀ㼀ᴀ㼀଀㈀ᴀ　ఀḀԀᜀ⌀㐀Ḁ␀吀Ḁ̀଀ᜀ฀က堀ᴀᰀഀᴀ㼀଀Āᴀœ　ఀḀԀᜀ⌀㐀Ḁ␀吀Ḁ̀ఀᜀ฀　堀ᴀᰀഀᴀ㼀଀Ā଀Ā　ఀḀԀᜀ⌀㐀Ḁ␀吀ḀȀ愀̀ഀᴀ搀圀　㼀ᬀĀ̀฀଀ⴀĀĀḀ搀嘀̀ༀᤀĀ㄀᐀℀̀ကᔀἀ搀圀̀ᄀᴀ尀ᨀ฀㠀ᴀ　㼀Āἀ搀圀̀ሀᴀ搀圀开̀ጀᤀ៸␀尀ᴀ̀᐀฀琀圀ᜀ␀㼀̀ᔀᴀ㼀ᜀ␀㼀̀ᘀᜀ฀mᴀ㼀ᴀ㼀ఀ㼀ᴀd　ఀḀԀᜀ⌀㐀Ḁ␀吀Ḁ̀ᜀᜀ฀|ᴀ㼀ᴀ㼀ఀ㼀ᴀ怀v　ఀḀԀᜀ⌀㐀Ḁ␀吀Ḁ̀᠀ᜀ฀錀Žᴀ㼀ᴀ㼀ఀ㼀ᴀሀ?　ఀḀԀᜀ⌀㐀Ḁ␀吀Ḁ̀ᤀᜀ฀∀?ᴀ㼀ᴀ㼀଀㈀ᴀ　ఀḀԀᜀ⌀㐀Ḁ␀吀Ḁ̀ᨀᜀ฀က堀ᴀᰀഀᴀ㼀଀Āᴀœ　ఀḀԀᜀ⌀㐀Ḁ␀吀Ḁ̀ᬀᜀ฀　堀ᴀᰀഀᴀ㼀଀Ā଀　ఀḀԀᜀ⌀㐀Ḁ␀吀Ḁ̀ᰀᜀ฀䰀堀ᴀ㼀ᴀ㼀଀Ѐᴀ᐀嘀　ఀḀԀᜀ⌀㐀Ḁ␀吀Ḁ̀ᴀᜀ฀搀堀ᴀ㼀ᴀ㼀଀ЀᴀⰀ嘀　ఀḀԀᜀ⌀㐀Ḁ␀吀ḀȀ愀̀Ḁᴀ搀圀　㼀ᬀĀ̀ἀᔀἀ搀圀̀ ᤀĀᬀ̀℀圀ȀĀ愀̀Ḁᴀ怀唀Ԁ砀㸀Ȁ㔀㼀̀ᨀ㼀紀Ѐ⠀㈀ȀåȀ㼀XdD???(?㼔)癡

㼔
H㼔W
|U0?/?r&?~
	㼭X*淴碭㼕躕T;.㼢YdV
I,VK(?

H躒
V(Y
VdV(Y
dVV
I,VJ
HWV,VJdVD<?V,VJW:?dVW㼔
I
o	|Vn
o(2|TC<?o

Hno(2noo
b
<F
o
(癡

4
no
(癡
4
n	oc
;

oZ.0Y$?$LY$lY
#4 A< #4 A<?!o"
b

<?#淰<$LTB<?%o&
(癡
4
n'
o:(o)
(癡
4
n*o:8+o,
(癡
4
n-o.
(癡
6
/0?
0k刌
<@1刌#x+2榊|(?3㿿|(?4-
5(?
<?6|:?7??(?8(?
<9|:刌#x+(?;l刌
;qm
<
(l$P"TB<z=癥R>'?
?n@oAc

;?B繷nC1?D
H:?EHV<FoG
HnHoIdVnJoKWnLoMWnNoOVnPoQ躒nR|&|TC<S|&㼷RdVRl,R|&ToUV
TC<kVoW|&nXoYV
TF<?Zo[|&n\o]V
In^o_躒VF<?`oa|&nb ocV
Hnd!oeV躒C<f"og|&nh#oi躒nj$ok%ol&o:%m'on
Hno(op)oqW
l&o:%祃?愱弿㈀?芭飃
)oqW
D$
a搓㽱 㼗u磤L0DD`?8?V?舨A?GetDBConn?┢GetMaxValueS觏?ExeCuteSql贿ኄሀ匀攀氀攀挀琀匀焀氀Ȁ╥๞䔀爀爀䌀漀搀攀嬀ကᨀ㼀䜀攀琀䌀漀氀甀洀渀嘀愀氀甀攀退㾆᠀䌀爀攀愀琀攀伀瀀琀椀漀渀㼀㘀턀঄Ḁ䌀爀攀愀琀攀伀瀀琀椀漀渀匀琀爀鐀塞⁔䜀攀琀伀瀀琀椀漀渀匀琀爀一愀洀攀攀ᔀ㼀㼀圀爀椀琀攀䔀爀爀漀爀伀?WriteVarrOA外WriteErrorLn外粤f?WriteRequestf???WriteArray沰e?StrLengthz['IsInteger55CutStre?,?HTMLEncode??HTMLDecode郃薤StrFillo車#ChkInputStr种?ChkInputNum攏\ChkInputDate\k㽏吀椀琀氀攀匀琀爀攀䤀ఀ㼀਀一漀琀攀猀ᨀ䋢㼀一漀琀攀猀䜀漀㼀椀㜀ሀ倀漀眀攀爀吀爀椀洀㜀턀⇢᐀䘀漀爀洀愀琀䐀愀琀攀␀魭ኇ䜀攀渀刀愀渀搀漀洀ᄀ渀⼀਀ఀ刀攀瀀攀愀琀渀最甀Ȁၸ䤀渀琀吀漀匀琀爀琀㼀ఀ㼀琀爀愀渀猀氀愀琀攀␀ऀ匀开᠀䤀猀嘀愀氀椀搀䔀洀愀椀氀匀开␀☀㬀㼀戀爀漀眀猀攀爀㔀ઐఀ猀礀猀琀攀洀眀쬀冓 ᘀ匀栀漀眀䴀攀猀猀愀最攀渀?؀䤀䤀䘀츀㾌਀䜀攀琀䤀倀븀ᦛቬ䠀吀吀倀开倀伀匀吀琀?kURLEncoding㽶匀攀渀搀䴀愀椀氀渀夀㨀簀㼀䌀漀洀洀漀渀匀攀氀攀挀琀簀Ѐ?4?CommonOption4圬旂CommonRadio犰 CommonSelectYearo_P㽈䌀漀洀洀漀渀匀攀氀攀挀琀䴀漀渀琀栀㼀ᰀ㬀Ḁ䌀漀洀洀漀渀匀攀氀攀挀琀䐀愀礀圀ᬀ퐀⁖䌀漀洀洀漀渀匀攀氀攀挀琀䐀愀琀攀漀㼀㼀ሀ倀漀瀀圀椀渀搀漀眀䐀�䑸᠀䈀甀琀琀漀渀圀椀渀搀漀眀砀䐀縀欀?CloseWindow厒^?IsLogin␿㼀䤀猀倀攀爀洀椀猀猀椀漀渀␀�㾆?ExistUser?7writeViewRegLog^+"G"writeUpdateRegLog>IL"writeDeleteRegLog崞0$writeRecoverRegLogt沢?AdminLogg9?EditorLog鞐?
HrLog?瑵RegisterLog瞃緎WriteSystemLog#@?chkCanView陭宎showLogin5??GetErrInfo図3?CheckPermission>C?RecordProcess?哂CommSearchGH乿 MAIN_SERVICE_URLA>??INFO_SERVICE_URLNka?MANAGE_SERVICE_URLA?$STR_SERVICE_SUCESS_b第<"STR_SERVICE_ERROR?adParamUnknown6㼄᠀愀搀倀愀爀愀洀䤀渀瀀甀琀帀᐀㼀㠀?adParamOutput',$adParamInputOutputa碂Dx$adParamReturnValuea|:gadCmdUnknown:gBd?adCmdText1㼐愀搀䌀洀搀吀愀戀氀攀촀]؀Ḁ愀搀䌀洀搀匀琀漀爀攀搀倀爀漀挀ऀ㤀挀㼀愀搀䌀洀搀䘀椀氀攀ﰀ㹼紀 愀搀䌀洀搀吀愀戀氀攀䐀椀爀攀挀琀搀㼀Ḁ๞愀搀䔀洀瀀琀礀㼀＀በ愀搀吀椀渀礀䤀渀琀礀砀令᐀愀搀匀洀愀氀氀䤀渀琀戀㼀㼀愀搀䈀椀最䤀渀琀㼀⼀㼀愀搀䤀渀琀攀最攀爀℀䀀ᄀ㼀愀搀唀渀猀椀最渀攀搀吀椀渀礀䤀渀琀㼀䜀㘀␀愀搀唀渀猀椀最渀攀搀匀洀愀氀氀䤀渀琀崀㨀耀ᩖ愀搀唀渀猀椀最渀攀搀䤀渀琀ἀ꤀䕠 愀搀唀渀猀椀最渀攀搀䈀椀最䤀渀琀─樿adSingle 媅?adDouble饡W?adCurrency-%?adDecimal㼩?adNumeric??adBoolean_g帞adErrorS觺?adUserDefined?撬adVariant??adIDispatch甈竑adIUnknown>>?adGUID宇?adDateI?adDBDate氼J?adDBTimeOyeZadDBTimeStamp熊?adBSTRS㽧ఀ愀搀䌀栀愀爀萀兮ቢ愀搀嘀愀爀䌀栀愀爀鼀㑛紀ᨀ愀搀䰀漀渀最嘀愀爀䌀栀愀爀㼀㤀?adWChar郴K?adVarWChar?擯adLongVarWChar?(?adBinaryc桯adVarBinarySoXadLongVarBinary溵蟀adChapterT9?adFileTime[女XadPropVariant燎?adVarNumerictM墧adArray+間msysOptAreag??sysOptPosition`?sysOptCompanyType燡嘃sysMailHost盙圏sysMailUser?5isysMailPwd鍑Gm_g_IsDebug/軦?URL_PATH旁帥ErrInfoA002㼋㼀猀礀猀䄀瀀瀀䤀搀㼀稀砀l栀琀琀瀀㨀⼀⼀眀眀眀⸀挀漀洀攀氀愀渀⸀挀漀洀⼀氀漀最椀渀⼀猀攀爀瘀椀挀攀⸀愀猀瀀㼀ఀ瘀倀栀琀琀瀀㨀⼀⼀眀眀眀⸀挀漀洀攀氀愀渀⸀挀漀洀⼀愀搀洀椀渀⼀猀攀爀瘀椀挀攀⸀愀猀瀀᠀劍栀琀琀瀀㨀⼀⼀眀眀眀⸀挀漀洀攀氀愀渀⸀挀漀洀⼀洀愀渀愀最攀⼀猀攀爀瘀椀挀攀⸀愀猀瀀㰀ᨀ?SUCESS:4鞥ERROR:蚆㼷ᜀ匀଀ⱴ⤀夀─洀Ⰰ਀一眀洀Ⰰffⱔ쌀⽪渀Ⰰ㴀᝸匀Ⰰ焀尀ᰀ一Ⰰऀ吀頀ⱨ蜀啽ⱎ㌀즉彪氀Ⰰⴀ깓뱪Ⲓ焀尀缀㼀㴀坸匀Ⰰ唀㼀㼀᠀甀ऀⱑ唀ཎ夀Ⰰ猀ᡶⱕ刀가浨Ⰰ缀㽘怀噘ⱽ嘀渀ᜀ匀Ⰰ嘀渀圀匀ⰀĀ㼿开氀ﰀⲇ开氀缀㼀ᴀ셟ⲝ缀帀缀㼀夀洀开氀Ⰰ缀帀ᰀ一Ⰰ眀洀圀匀Ⰰ嬀坡匀Ⰰ㔀紀嵝Ⰰ윀㎙圀Ⰰ一?Y搿㡚Ā伀ᨀ一ἀ㼀儀九Ⰰ꜀䒌㼿琀�塻吀Ⰰᨀ一��塻吀Ⰰ̀?x篘XT,f[u,vQ諲Jq鏄Lu㼔伀ᨀ一Ⰰ‡㼀伀ᨀ一Ⰰ㼀攀︀聭醔?㼃砀夀攀밀㩷最✀ⱒ最澑怀ഀ最�Ǥ伀ᨀ一Ⰰ⨀一匀伀▇㼀伀ᨀ一Ⰰ瘀儀�P䄀唀⥠尀팀ⶃ蠀⽝㽡䨀钀㾑∀㄀剝耀醔?㼁琀耀醔?酧o`钀㾑Ȁ帀㨀圀尀㼀唀耀?㼧稀㼀b/g钀㾑̀?x钀㾑瘀儀�P瘀⠀崀㼀猀礀猀伀瀀琀䐀攀瀀愀爀琀洀攀渀琀☀㽕⨀猀屶溔⡛甀㜀戀簀　Ⰰ츀⢊甀⠀甀㜀戀簀㄀Ⰰ挀欀ༀ开⠀甀㜀戀簀㤀∀頀㾞猀礀猀伀瀀琀刀攀最吀礀瀀攀⌀䘀堀㼀ऀ呾冄缀簀䌀伀䴀Ѐ磣㼀匀礀猀伀瀀琀匀渀䌀漀洀瀀愀渀礀鬀䆈㼀㘀攀攀儀簀䤀Ⰰ⼀攀됀粝伀欀㸀椀洀᐀匀礀猀伀瀀琀匀渀䤀伀㜀눀㽵最澑怀㼀唀ࠀ吀ఀ吀簀䤀Ⰰ栀䫦吀㼀唀ࠀ吀ఀ吀簀刀Ⰰᨀ伀欀൵最�ࣤ吀ఀ吀簀䌀㼀   匀礀猀伀瀀琀匀渀䌀漀渀琀爀愀挀琀崀̀㐀㤀 洀愀椀氀⸀挀漀洀攀氀愀渀⸀挀漀洀笀㽝挀漀洀攀氀愀渀䀀挀漀洀攀氀愀渀⸀挀漀洀漀刀㽗挀漀洀攀氀愀渀ꠀ煹ༀᨀ猀礀猀䤀猀䄀搀洀椀渀䰀漀最Ѐ밀㽵sysIsEditorLog?㽧猀礀猀䤀猀䠀爀䰀漀最㘀嘀܀㌀ᰀ猀礀猀刀攀最椀猀琀攀爀䰀漀最夀㼀㼀刀攀焀甀攀猀琀䰀⸀㼀᠀儀唀䔀刀夀开匀吀刀䤀一䜀倀ⴀ洀㼀匀攀爀瘀攀爀嘀愀爀椀愀戀氀攀猀케㡺㼀倀䄀吀䠀开䤀一䘀伀㼀Ȁ㼀㼀Ѐ㤀㈀㰀突Ẁ挀欀ༀ开⠀甀㜀戀Ⰰ৤最㄀?wdkh顅剉CgP?矂
array?93?ck_(u7b,坈Cg鰁㽰?Rgs12z	諎(u(u7b,	g㼱眀搀欀ༀ栀䔀䦘䍒最倀㼀琀̀Ѐ㄀㌀㤀挀䔀?諎(u(u7b,坈Cg酧o`agpe騗㿸甀縀[甀̀Ѐ㄀㐀␀暌㼀츀⢊甀⠀甀㜀戀Ⰰ搀欀最澑怀�䆕儀Ԁ捻欀ༀ开⠀甀㜀戀㄀?w22坉){$	g	gHe剉坈Cg,	g㼱眀搀欀ༀ栀䔀䦘䍒最倀㼀㄀Ȁ㄀ἀ䉬匀∀⠀甀㜀戀৤最笀瘀唀开Ⰰ৤最㄀?wdkh顅剉CgP?㜿㽚਀一眀洀ऀ最爀鈀㽐鼀獦✀需九㰀栀ᨀ㼀㤀㼀က䌀甀爀吀椀琀氀攀甀ጀ甀㼀ఀ㈀㠀　　㐀㔀瘀褀٩᐀䌀甀爀䤀渀昀漀一甀洀䤀փࠀ䌀㈀㈀㄀Ԁ─쬀⟢က䌀甀爀䌀漀氀一漀甀漀㼀਀ఀ爀攀猀甀氀琀需㽫ఀ洀开䌀漀渀渀─᐀ᤀᑙ䌀漀渀渀匀琀爀椀渀最渀㜀刀䔀਀ఀ猀攀爀瘀攀爀ࠀ㼀媄 䄀䐀伀䐀䈀⸀䌀漀渀渀攀挀琀椀漀渀渀଀⤀?CreateObjecte={?Provider=SQLOLEDB;Password=comelanDB;User ID=comelanDB;Initial Catalog=DBManage;Data Source=(local);l梖aD"ConnectionTimeOut易Open	zErr芳?
Clear叹燞?<br><br><br><br><br><br><br><div align='center'>penc揯迯㾴㼀阀螜ㅾ榏烦攀渀挀䥣ɒ炀攀ᬀ垅嬀☀笀㈀一湽缀⼀昀☀吀挀欀渀砀Ā㳸⼀搀椀瘀㸀Ā㫸?Responsee穣endjH ?keynameconn@㼿਀洀开䌀洀搀尀㔀?iMaxValue飁ADODB.Command,㽙䄀挀琀椀瘀攀䌀漀渀渀攀挀琀椀漀渀渀娀䈀⨀㔀Ḁ甀猀瀀开䜀攀琀䴀愀砀嘀愀氀甀攀ᄀ缿CommandText㽵ᙿ䌀漀洀洀愀渀搀吀礀瀀攀ⴀ䠀⤀搀ሀ䀀猀䬀攀礀一愀洀攀㼀䰀㜀Ḁ䌀爀攀愀琀攀倀愀爀愀洀攀琀攀爀윀橢瀀᐀倀愀爀愀洀攀琀攀爀猀愀䠀␀㼀ఀ䄀瀀瀀攀渀搀尀퐀㽑䀀椀䴀愀砀嘀愀氀甀攀愀䜀㽤愀搀䔀砀攀挀甀琀攀一漀刀攀挀漀爀搀猀刀̀㼀㼀䔀砀攀挀甀琀攀㼀㴀?SqlSentence
?	Errors9	?
Count莈E002E殀1"SqlSelectSentencef3?adodb.recordSet芿E001Errs|bInfo{]Q	㼱漣㼿㽦ø�Ҕࠀ㰀戀爀㸀Ѐ崀猀㼀ఀ最戀䰀⤀⩘卛ᤀ㽦椀洀堀਀ఀ猀琀爀匀儀䰀℀㼀ࠀ洀开刀猀ࠀ倀?؀䔀伀䘀᠀ੴఀ猀嘀愀氀甀攀ሀ㼀؀洀刀猀儀璑㼀㰀漀瀀琀椀漀渀 瘀愀氀甀攀㴀∀⤀娀 㼀∀ 猀攀氀攀挀琀攀搀㸀㨀떒ቡ㰀⼀漀瀀琀椀漀渀㸀漀娀㼀ఀ瘀戀挀爀氀昀㼀">f㼻᐀က洀漀瘀攀渀攀砀琀漀☀„਀挀氀漀猀攀謀؀猀琀爀؀㼀ࠀ愀爀爀㄀܀㼀ऀࠀ猀琀爀㄀ऀ䤀壥਀ఀ猀琀爀欀攀礀昀⬀䄀ၬ猀琀爀瘀愀氀甀攀琀ⰀȀⰀ㾞਀猀瀀氀椀琀簀Ȁ簀܀㼀ࠀ愀爀爀㈀܀܀沘਀ఀ甀戀漀甀渀搀漀ݹࠀ挀猀琀爀܀㼀猀๥瘀愀爀一愀洀攀㼀圀ၖ瘀愀爀嘀愀氀甀攀愀̀䘀Ⰰ㼀瘀愀爀嘀愀氀甀攀㴀㴀Ȁ㴀㼀ࠀࠀ䘀漀爀洀ࠀ㼀㼀਀琀栀椀渀最㼀ऀࠀ琀栀攀䄀ऀ㼀☀㼀攀渀搀䘀氀愀最匀㼀㼀琀礀瀀攀渀愀洀攀礀؀笀匀ብ嘀愀爀椀愀渀琀⠀⤀簀♿੯ഀ一⼀昀瀀攀ꔀƁøЀ㼀᠀␀瀀攀ꔀ憁吀栀攀䌀氀愀猀猀䤀搀㴀㰀戀爀㸀䤀椀Ȁ椀⸀̀Ѐ⸀ 帀㼀᠀ᨀ圀䤀一一吀开䌀䠀䤀一䔀匀䔀氀Ȁ氀挀Ȁ挀✀㔀縀ऀఀ椀猀渀甀氀氀砀ՒЀⴀ一䀀V氀ༀ㼀؀氀攀渀樀㼀؀䴀椀搀匀V؀䄀猀挀⤀䘀ॹఀ渀甀洀戀攀爀케塺਀ఀ猀琀爀䰀攀渀넀࡮ࠀ瀀愀爀愀ࠀ㸀㼀ࠀ挀栀愀爀܀䰀㨀ऀࠀ琀爀椀洀ऀ㤀Ȁ㤀　Ȁ　琀Ȁ琀਀?left??fString>>|U&gt;㽚㼀爀攀瀀氀愀挀攀㰀Ȁ㰀℀嬀̀ࠀ☀氀琀㬀̀ᴀ眀؀䌀䠀刀㐀娀㼀ఀ☀渀戀猀瀀㬀娀씀ͦఀ☀焀甀漀琀㬀᐀?
&#39;c?</P><P> /Q
<BR> 梅Z</P><P><BR>P諚chrFillK~int賋㼕刀攀瀀氀椀挀愀琀攀䈀䴀㼀ఀ氀攀渀最琀栀漀夀ᬀ⼀ሀ椀猀渀甀洀攀爀椀挀⨀开紀ऀఀ椀猀搀愀琀攀─Ḁ৿ఀ洀愀砀氀攀渀⨀㜀؀⸀⸀⸀섀ꑐ຅猀琀爀䘀氀愀最㌀Ȁ㌀ጀ㼀؀唀刀䰀㼀Ѐ氀渀 Ȁ 䰀㹡开ሀ䐀愀琀攀嘀愀氀甀攀㼀nV@FormatStringt蓉㼘猀琀爀刀攀猀甀氀琀琀?
lcase?year	J┻?strYear?206罁
month了?strMontht㽫dayw[X
strDaynQhour`00r㾤猀琀爀䠀漀甀爀戀 㼀ఀ洀椀渀甀琀攀㼀㼀?strMinute?D
secondUI㼕猀琀爀匀攀挀漀渀搀䐀㼀ࠀ礀礀礀礀ऀ먀㽶਀䤀渀猀琀爀㼀Ѐ礀礀稀?
right?mmmm>?cintddtddPhhhh?nnnnssss祢Q	hasNum硞yJhasLowerCharw篥hasUpperCharp?寧hasOtherCharh糂糬LatterNumi勻LatterLower橃忩LatterUpper螉堯LatterOther丟IarrLatter`?num㽒਀椀渀搀攀砀ᔀ倀䬀崀က瀀漀猀椀琀椀漀渀漀㈀⽝㼀　㄀㈀㌀㐀㔀㘀㜀㠀㤀㌀㼀℀㼀愀戀挀搀攀昀最栀椀最欀氀洀渀漀瀀焀爀猀琀甀瘀眀砀礀稀琀欀Ѵ㑝䄀䈀䌀䐀䔀䘀䜀䠀䤀䜀䬀䰀䴀一伀倀儀刀匀吀唀嘀圀堀夀娀吀帀娀㸀਀ⴀ㴀尀嬀崀℀㼥ሀ刀愀渀搀漀洀椀稀攀搀㼀؀刀渀搀㼀㼀਀瘀愀氀甀攀ꐀ翦开က昀椀氀氀挀栀愀爀椀Ȁ㽞ሀ猀漀甀爀挀攀匀琀爀䴀᠀一?fieldStri-K梒sourceListr8v㾀爀攀猀甀氀琀匀琀爀樀Ȁ樀᠀ㅵ᐀椀猀伀瀀攀爀愀琀漀爀瀀㄀Ⰰ?਀甀挀愀猀攀뀀‰؀䄀一䐀☀Ȁ☀琀[Ȁ琀[฀一Ȁ฀一픀ュ਀ 愀渀搀 㼀Ѐ伀刀ᘀ戀Ȁᘀ戀℀㼀ࠀ 漀爀 Ȁä؀一伀吀℀Ȁ℀帀㼀Ȁ帀㼀ĀøȀĀø儀㼀਀ 渀漀琀 ⠀Ȁ⠀ࠀøȀࠀø㼀؀ ⠀ ⤀Ȁ⤀ऀøȀऀø㼀؀ ⤀ ─Ȁ─㼀㼀฀ 氀椀欀攀 ✀✀Ȁ✀㼀Ѐ✀✀㼀Ѐ✀ ✀㼀紀㼀 氀椀欀攀 ✀─氀簀Ⰰ؀─✀ ㄀娀瀀?strEmailt?rel勐.
RegExp_H3Hn^[a-zA-Z][A-Za-z0-9_.-]+@[a-zA-Z0-9_]+?\.[a-zA-Z]{2,3}$蜠㽴倀愀琀琀攀爀渀倀Ⰰऀࠀ吀攀猀琀ऀ帀瘀?chkEMailhF??MSIE 5.5S婮B.6Om 㽔栀嘀ᨀ䧸渀琀攀爀渀攀琀 䔀砀瀀氀漀爀攀爀 㔀⸀㔀戀㼀㼀䴀匀䤀䔀 㘀⸀　匀ᄀ䋧⸀㘀伀洀 吀?hVInternet Explorer 6.0?磍MSIE 5.01骹8Om 㽔栀嘀ᨀ䧸渀琀攀爀渀攀琀 䔀砀瀀氀漀爀攀爀 㔀⸀　㄀攀䄀㼀㼀䴀匀䤀䔀 㔀⸀　匀ᘀ뤀ኚ㠀伀洀 吀?hVInternet Explorer 5.00e ??MSIE 4.0S孢f8Om 㽔栀嘀ᨀ䧸渀琀攀爀渀攀琀 䔀砀瀀氀漀爀攀爀 㐀⸀　㄀攀堀㜀唀ဥ伀洀 吀?hV*g㽂 6?NT 5.1P寢?蚫\O鹼㾁埸椀渀搀漀眀猀 堀倀ᜀ㨀؀ࠀ一吀 㔀؀䨀氀≔꬀岆伀簀膞?Windows 2000:NT 4~FD?蚫\O鹼㾁埸椀渀搀漀眀猀 一吀㐀漀ĀЀЀ㤀㠀㐀⤀먀㽙꬀岆伀簀膞?Windows 98?95&妺?蚫\O鹼㾁埸椀渀搀漀眀猀 㤀㔀㰀⨀㬀最฀꬀岆伀簀膞?*g㽂??
Title[楾?javastr鲿慡?<table width="100%" border="0" height="100%"><tr align="center"><td><form method="post" action="" name=wrong> w*?澨<table border="1" bordercolorlight="000000" bordercolordark="FFFFFF" cellspacing="0" bgcolor="E0E0E0">0㽼㰀琀爀㸀㰀琀搀㸀㰀琀愀戀氀攀 戀漀爀搀攀爀㴀∀　∀ 戀最挀漀氀漀爀㴀∀⌀䘀䘀　　㤀㤀∀ 挀攀氀氀猀瀀愀挀椀渀最㴀∀　∀ 挀攀氀氀瀀愀搀搀椀渀最㴀∀㈀∀ 眀椀搀琀栀㴀∀㄀　　─∀㸀 ㄀⸀㨀•㰀琀爀㸀㰀琀搀 眀椀搀琀栀㴀∀㄀　　─∀㸀㰀昀漀渀琀 挀漀氀漀爀㴀∀䘀䘀䘀䘀䘀䘀∀㸀䘀℀䀀鐀ᩧ㰀⼀昀漀渀琀㸀㰀⼀琀搀㸀 㼀ꌀ≹Ā㰀琀搀 眀椀搀琀栀㴀∀㄀㠀∀㸀㰀琀愀戀氀攀 戀漀爀搀攀爀㴀∀㄀∀ 戀漀爀搀攀爀挀漀氀漀爀氀椀最栀琀㴀∀㘀㘀㘀㘀㘀㘀∀ 戀漀爀搀攀爀挀漀氀漀爀搀愀爀欀㴀∀䘀䘀䘀䘀䘀䘀∀ 挀攀氀氀瀀愀搀搀椀渀最㴀∀　∀ 戀最挀漀氀漀爀㴀∀䔀　䔀　䔀　∀ 挀攀氀氀猀瀀愀挀椀渀最㴀∀　∀ 眀椀搀琀栀㴀∀㄀㠀∀㸀 ࠀ堀耀?<tr><td width="16"><b><font color="000000"><span onclick="javascript:^?6">?</span></font></b></td> 匒P禐</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> F^x?<td width="95%">=缡Iv</td></tr><tr><td colspan="2" align="center" valign="top"> ec;嵝<input type="button" name="ok" value="0nx 歔0" class=tt name=ok style="color:#ff6666" onclick="javascript:s?"> 疤
Gz</td></tr></table></td></tr></table></form></td></tr></table>帺?theInputExpQVo
tValue?@	fvalue峴1?strIPAddr獱?(HTTP_X_FORWARDED_FORD??unknown&p?REMOTE_ADDR;;{奢?str_url箢躯str_contentl??objxml㽲ᑩ猀攀爀瘀椀挀攀甀爀氀瘀㼀ऀࠀ猀琀爀愀ऀ䔀礀㼀∀䴀椀挀爀漀猀漀昀琀⸀堀䴀䰀䠀吀吀倀⨀ࡨࠀ瀀漀猀琀ࠀ䬀毠ᰁ挀漀渀琀攀渀琀ⴀ氀攀渀最琀栀ⴀ㼀Ȁ?setrequestheadert
-濁content-typen醿㼊application/x-www-form-urlencoded?	send	D1A?responsetextn諮?vstrInY扃?strReturn?@?ThisChrvtAbsW巪?innerCode?[	Hight8?Low8晐HexQ樝MailToListl嘠颃MailFroma㽚㼀䴀愀椀氀匀甀戀樀攀挀琀ᔀ浰?MailContent裻颃MailHostaJ兘	MailerF劷	MailTo蓷犀MailAddressP埝?JMail.Message.From8媌縉葔Q5{祃FromNamerjbS:$mailserverusernames砼T?mailserverpassworda邢忒Subjecth8	gb2312跂罈Charset?RxAppendHTMLe??AddRecipientc?k	idname?啶liststr(]?valuestra股Jselectstr掏?arrlist勃厄arrvaluerd-฿洀愀爀欀猀琀爀⨀搀㼀ࠀȀ炀攀ᤀ㽦㼀尀Ѐ㼀ᰀ㰀猀攀氀攀挀琀 渀愀洀攀㴀∀ 㼀窞 selected lEnEe<option oq㽐瘀愀氀甀攀㴀✀㼀Ѐ✀㸀姢㼀㰀⼀猀攀氀攀挀琀㸀㼀ഀ᐀က挀栀攀挀欀猀琀爀栀㼀㼀ఀ洀愀爀欀攀搀븀䁨ഀሀ 挀栀攀挀欀攀搀 ע∀␀㰀椀渀瀀甀琀 琀礀瀀攀㴀爀愀搀椀漀 㴀촀㕡㼀 瘀愀氀甀攀㴀✀瘀㄀骃ၓ✀ 渀愀洀攀㴀✀ 턀㽔᐀猀攀氀攀挀琀礀攀愀爀攀㨀欀☀㼀夀攀愀爀猀琀爀㔀ݲࠀ搀愀琀攀܀琀帀Ȁ琀帀蜀斟㼀猀攀氀攀挀琀䴀漀渀琀栀伀嘀㼀က䴀漀渀琀栀猀琀爀漀椀堀㼀က䴀漀渀琀栀嘀愀氀漀ࠀ最Ȁࠀ最伀䩞ሀሀ猀攀氀攀挀琀䐀愀礀最ጀ?Daystr伳?DayVal㼯㼯~0?selectDatee梅?"strCommSelectDate?_y?_my?_dm嬬h?content㼢topICV	heightP?
width煰??<a style='cursor:hand'  target='_blank'   onclick="javascript:window.open(',p?;','','left=\JA
,top=俫庖,height=h9I,width=z瘠諛,resizable=no,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no')">=㽠㰀䘀漀渀琀 挀漀氀漀爀㴀爀攀搀㸀漀峢ᙎ㰀⼀昀漀渀琀㸀㰀⼀䄀㸀㼀欀?javascript:window.open('.簘7窋,resizable=no,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no')o駓F<input class=button type=button name='sQ㼃 椀搀㴀䌀氀漀猀攀䈀甀琀琀漀渀 漀渀挀氀椀挀欀㴀∀樀愀瘀愀猀挀爀椀瀀琀㨀眀椀渀搀漀眀⸀挀氀漀猀攀⠀⤀㬀∀ 瘀愀氀甀攀㴀✀猀儀̀?>邎D?empEmployeeid嚊?Session㽀๜甀爀氀倀愀琀栀需㿠਀洀䌀漀渀渀㼀⨀㼀洀匀琀爀匀焀氀洀砀?chkResIdh?*MempResIdm塐
MempResIdm<染Lselect * from resource where respath='sWb?
resId隫?
regidOi?
empidrs?
colNo紜Lselect ColNo from RegInfo where regid= ?
colno:B??select colno from EmployeeInCol where groupid='G002' and employeeid=o挾P' and colno='c
H?employeeidl?memotypee???thedate瞾log?薤strDate1/
RemarkcF ?EmpName?now`+?yyyy-mm-ddy-2:諨select * from RegMemo where regid= 㼔㼀 愀渀搀 攀洀瀀氀漀礀攀攀椀搀㴀漀䀀Ѐ? and memotype=mA记? and writedate>'e?㽥䰀漀最开䌀氀愀猀猀ᔀ∀啿∀礀礀礀礀ⴀ洀ⴀ搀 栀栀㨀渀渀㨀猀猀ᤀ䴀⠀Ā?猀攀氀攀挀琀 唀猀攀爀一愀洀攀 昀爀漀洀 攀洀瀀氀漀礀攀攀 眀栀攀爀攀 䔀洀瀀氀漀礀攀攀䤀搀㴀䠀㼀ᄀЀᨀ꿸]䔀谀嫥฀ఀㇸ?w㽁戀最澑怀㤀䴀ࡽࠀ㄀?w㽁戀嘀ࠀ嬀㼀㼀圀爀椀琀攀䴀攀洀漀䰀漀最䴀㔀㬀㼠洀攀猀猀愀最攀㼀尀㰀฀ఀỸ?e㽁戀最澑怀鄀癕؀ࠀḀ?e㽁戀瘀؀㼀頀๦ఀ⃸刀搀뤀孧㜀戀最澑怀一? Rd枹[7b?歡
b`
Y㼗刀搀뤀孧㜀戀最澑怀ᜀ梚넀ވࠀ戀怀ഀ夀䄀?b?$失!description?P001?P002?P003?P004?Bcategorya#??adodb.recordsetz㽋䐀猀攀氀攀挀琀 ⨀ 昀爀漀洀 猀礀猀琀攀洀氀漀最 眀栀攀爀攀 椀搀㴀　爀혀㽤ఀ䄀搀搀一攀眀ഀ䠀㼀᐀攀洀瀀氀漀礀攀攀椀搀氀䴀Ⰰ琀㼀儀甀攀爀礀匀琀爀椀渀最㼀๙甀爀氀倀愀琀栀㼀䈀଀က挀愀琀攀最漀爀礀愀ሀ㼀㼀਀琀椀琀氀攀␀㄀⅙ᘀ搀攀猀挀爀椀瀀琀椀漀渀㴀鐀㾏愀挀琀椀漀渀琀椀洀攀椀开?
runip3坿
Update荗^chkMember珜p
RegId渶?userid渶?UserId'࠿ࠀ⨀最䈀?曪?M卽arr
I?chkColNoh?P?IsMembers敋2痙select * from regauthcol where status=1 and regid= :*%f. order by authtype desc? ?authTypeu?,ColNoList//駜?
sdate?datediffac瑘
edate?91'g㼠䤀渀昀漀䰀攀昀琀渀笀㼀ࠀ挀猀渀最܀爀̀Ѐ㄀㄀最洀蜀癭X甀瀀搀愀琀攀 爀攀最愀甀琀栀挀漀氀 猀攀琀 椀渀昀漀氀攀昀琀㴀椀渀昀漀氀攀昀琀ⴀ㄀ 眀栀攀爀攀 愀甀琀栀椀搀㴀㼀࡞ఀ愀甀琀栀䤀搀ᰀ餀㽣䤀渀昀漀一甀洀�桘ၤ䤀渀昀漀倀愀琀栀渀㼀攀?insert into viewinfolog(regid,userid,colno,fullcolno,infonum,infoPath,addtime,logtype,title,runip,logcontent) values (a,'(/','?',俕0',getdate(),1,'/5
','')B?Poslt?Class_Initializet?f?InitOutputtFD
Search㽮㼀䄀搀搀䌀漀氀甀洀渀㼀̀਀ఀ伀甀琀瀀甀琀椀簀䊒ሀ吀愀戀氀攀一愀洀攀吀 匀∀ሀ䐀椀猀瀀䘀椀攀氀搀ᬀ洀?਀圀栀攀爀攀쐀๤伀爀搀攀爀䈀礀搀ⅵሥ伀爀搀攀爀吀礀瀀攀挀㽙ఀ倀愀最攀一漀砀㼀䠀က倀愀最攀匀椀稀攀愀㼀吀㼀匀栀漀眀吀愀椀氀栀琀倀㼀ఀ䄀洀漀甀渀琀ࠀ⌀؀?TableWidthl弯?
IsAlt障arrCol?mPos?抾AllPageCountg湳㽦䌀甀爀䈀一甀洀⼀洀?CurENum**c★lADODB.Recordsetdwcmd俣.~usp_CommSearchmib@TableNamebT煜A@DispFields;横@Where?'?@OrderByOL?@OrderTyped<岄?@DoCountD娻\c@PageNox㽙ሀ䀀倀愀最攀匀椀稀攀ऀ唀㼀က挀漀氀愀氀椀最渀漀뀀㽞ఀ挀漀氀一甀洀栀㼀਀ఀ爀漀眀一甀洀㼀Ѐ愀愀洀ᜀ저w਀昀渀愀洀攀瀀䰀㼀ఀ䴀愀琀挀栀猀ⴀ대{਀䴀愀琀挀栀퀀ݥࠀ挀氀渀最܀츀쵺ኇ尀嬀⠀⸀⨀㼀⤀尀崀　㼀㼀䤀最渀漀爀攀䌀愀猀攀漀됀䥩ऀఀ䜀氀漀戀愀氀ᴀ圀?਀洀愀挀琀栀嬀Ȁ嬀崀Ȁ崀㼀Ѐ愀愀᷸V਀㰀⼀琀爀㸀咈最฀䄀洀漀甀渀琀㴀ᡩ�ⵠ磠䩞퍲齪�š㨰ቒ陣⩧쁞깡ὠ୭ꯥ൫쇥卽捕嵞둦㑫쇠煩顯䎉ꝥᱫꩭ襷 ᡙ顝䥠빟쩪๨鱞靠牠ꭦቡ饝歠ቦ煞զꅣ콠끨䁡孥椿鬂槏嫋鐜垬帳暕寴运煡姄棊敁敡櫄灗啂垘敄敪稛㽭孢㩳ढ़㕞�Y卣鵕㽗땞䭘⩤枏ﮊ앝㕚䙞흟�䁩䵥꽢뱱蹕๗呞毧Ⅶ�晨䁳䵥䭢뙱坙ፕ㽞寯枊爭뼿㝙ᙰ텻㝛깛뉘≘酲㍗Ɒꁶ챖塙๱佒푧졵љ齞ꁡ챖塙๱佒푧❵졠ꙙﱡ煝ᕑ汝筮婦끱蹪鵠䥘坟䱮걤�걨罗䅦䅲卲兕䱮㱤앥୙煣굦䉫卲䉕蹲쩗뉪佪Ꙥ楫੯뙣狦䴡텕㍩鹥끗콪鱩ୡ굣�썩썪�㹩ﹰ胦聦齦뽗쑪뉪卪聱굦멫뽗졪뉪뉪뉪卪굕꽫ݗ䑞䑝巢祈탧ū㰁僦蕲텧ץ鯧혃闥ﵽ筛佦걯浘橦酲摗啯虮ｦ뉝⩘䍝步㡲뉕썘恚轮扦Ṧ쯥ꗥｗ酝字≜藡㾏扑螔櫄枱妴煑媽妿晿焼啈垺垙帤枌妽啇煀唽帄摤妸垎垐㼗뙞썫镚兗ቱꝝ罓㑦㙟鹕し蹥ㅗ썰卪違㹗뙟筠୯១稥页멗筡կ딥蕭⩧ᡞ녛ൗ퍞し㭞ൟ䭣�륛졚橗ੴ͞항䝩蹕蹗⡠끞�齢䡡顕䉗山ꕲ捡拏蝗略稿贪付┅慌槞憴暀垥櫃櫃檲檸墬帡枡憴暀垯暀帀棛棛憮彌瀳啋帡崕姾緱彑洓櫂槇洷棲啓畧啙磮啙磮－먿뽗狠ᑺ唠먰慗♹堠먰ᵗ?䕻ꡕ魗晞炅≸ढ़痠�㕳띟襙䭖⹲൲걞絗鵖ꡫ䕗ꡮ䕗ꡮ䕗靮鑗䵧쐁ᅬꑛ뙠㹚奟乳煥ꕹ灡Ꙭ땡ꅘ彠ᬰ緥䯥危偤䭤ၱ㹣孤텯๚謿貓拡尌啎嫝蕟㽉㩰塞൰볥䩦≮癞㼡Ж㼿啍垘棤、＂㼥닥㕪Ş㬀桢ű฀?忕
屃墿晫唽垘墥?嚧?勍
剢綀櫓枟懙、刺挒枖帪悮洟殫緢啓帀粬帠寣懕枡Е灈煭妶灎櫋垎棎攭徟彇佩量澜寥潣槤埡澋崕崪矮灚棊埑湱枂寛鈫湁畭帊湴瑸珬巿湱枂寛鈫墲嫎潱槣硩帊湴珵珬巿帨崋瓡唽垐墲悳媶泩啺攭潗湯帋彅墕垐晫攩潱垎硵墲悳審攭唸垞姃啓焾啳攭潚湬灨喓埄聠秷墲彍穳嘣债憥矇㾔乞㉟콤鶛텘獳ﭕ㕝顟앗흡퍨㥨뙤祗㕦襟穱⿿Ɽ䵥镕깗ቡ㹴㕰쉟䍗鑥練㕢㑟政啈垔拵槺槏彧
湣悹棑㿦썤ਖ਼潞呸텟ቨ搿嵆帍牀摨莠藫帊磶彔棑㼒㼀졤獚饦镦ﾒ帿鄮幣惎畾嫕牬喰垯摕槾嫀妶㿿ꁑ禘꩕灗㽩暆墡葐晭啓垐啂垘槏쐿뽪썪뉪덪絪ᡯ଄웠쳠�둩᝙뛥蹙㡗祤㭛聩뫥镧ꙗஔ൝䁝違쭗ཬ焢镝൫佝違﹗靛ﭘ앝䱚彤恞桱䭰Ť㼀ꙙ⍫텞硨�뉢㽪Yᘀ瀀ᄀȀĀ㴀倀Ā㴀㼀䀀㼀ḀሀȀᴀ嬀܀ᜀ琀܀ᔀ㼀ᘀ㼀ᬀ㼀ᬀ刀ࠀᔀ椀ࠀሀ紀ࠀጀ㼀᠀㼀ሀ㼀ᤀ㼀଀㼀฀㼀฀૸ഀ฀଀ഀᴀ଀ᘀ㔀଀ᜀ一଀ሀ戀଀ᔀ礀଀ఀ㼀ఀ㼀฀㼀฀㼀ༀ㼀฀㼀ఀ㼀ጀ㼀฀ऀఀༀᨀఀༀ⬀ఀ଀㠀ఀ਀䐀ఀ฀吀ఀ฀搀ఀጀ礀ఀ਀㼀ఀ㼀ༀ㼀ጀ㼀ഀ㼀က㼀᐀㼀฀ഀᄀጀഀᔀ⨀ഀༀ㬀ഀༀ䰀ഀጀ愀ഀሀ甀ഀက㐀　瘀㼀⼀㼀㰀ᬀ㄀䌀怀㄀✀㼀ᬀ㼀᠀㼀⼀甀㈀Ḁ㼀℀㼀᐀㼀ሀ਀?ሀĀ㼀ጀᘀ㼀ༀ✀㼀ጀ䐀P㌀턀S崀ᰀ㼀ⴀ猀㼀ༀ섀`⠀대[─愀^⠀଀㼀⠀㔀㼀⨀愀㼀⨀㠀]⤀騀bᜀ�jᜀᬀ^ᔀ踀ƒᄀ耀Xጀ吀vᄀЀ㼀ကᰀ㼀ᜀ㴀㼀ᜀ㼀㐀ᄀ฀焀㼀ᬀ㼀ᘀ㼀଀㼀ऀ㼀᐀㼀攀一ༀఀ搀ༀᘀ簀ༀఀ㼀✀㼀ఀ㼀ᘀကက ㈀ကḀ刀က刀㼀䤀㼀ᴀကᄀ⌀㼀ᄀᄀ刀ᄀᔀ椀ᄀఀ㼀᠀ఀሀᰀ⨀ሀ☀堀ሀఀ渀ሀఀ㼀㐀㰀ጀ✀攀ጀᰀ㼀 㼀ఀ㼀က㼀⠀℀᐀ఀ㰀᐀✀攀᐀ఀ缀᐀ఀ㼀ἀ㼀က㼀ᄀऀᔀᜀ⨀ᔀက㰀ᔀఀ縀ᔀḀ㼀ᄀ㼀ᔀ㼀嬀⬀ᘀ刀㼀ఀ㼀ऀ㼀ༀ㼀ఀༀᜀᔀ☀ᜀᔀ㴀ᜀᘀ唀ᜀᘀ洀ᜀሀ㼀က㼀ሀ㼀က㼀ᴀ㼀崀䬀᠀吀㼀Ѐ㼀ఀ␀ᤀ଀㄀ᤀᔀ䠀ᤀᔀ开ᤀᘀ㼀ᘀ㼀ሀ㼀က㼀ሀ㼀ကጀᨀᴀ㈀ᨀᄀ䔀ᨀࠀ圀ᨀЀ崀ᨀᤀ砀ᨀఀ最㐀ጀ簀㐀ᬀ㼀܀㼀ጀ㼀ḀЀ㔀　㸀㔀܀㼀ጀ㼀ᬀ㼀ఀ㼀܀嬀㘀ጀ瀀㘀Ḁ㼀㄀㼀Ѐ㼀܀䬀㜀ጀ怀㜀∀㼀ጀ㼀ἀ㼀ᜀ㼀℀㼀Ѐ਀㠀ጀἀ㠀ఀ㴀㠀܀㜀㬀᐀䴀㬀ᴀ氀㬀ࠀ簀㬀ᴀ㼀ᔀ㼀਀㼀ࠀ㼀ఀ㼀ጀ㼀଀Ȁ㰀਀฀㰀ഀᰀ㰀ༀⴀ㰀Ѐ㤀㰀ༀ刀㰀ᔀ栀㰀ऀ笀㰀ഀ㼀ఀ㼀᐀㼀ࠀ㼀᐀ഀ㴀ࠀᴀ㴀฀ⴀ㴀᐀䰀㴀ࠀ尀㴀਀栀㴀ఀ㼀=?????>	>$>i>?	?
?	???
?	??,?8?
D?
S?`?o??????
??
@3@
B@~@汙'㽀'鞞-A-KA,yA'㼧9軦,B)BfB傿'珺'誃'㼎88C+eC僀諧(D
D
#D>DLD
cD2桪㽄
釪㼌E'E
9E	TE+丒*璄罞㽁F F7FUFmF桭‵紽誇㼎
GFGfGzG慓㼭0LILZLsL圠?ጀꔀ}ᜀ刀?ᜀᘀ?ᜀऀ䴀ᜀ∀䴀ᜀ䌀䴀ᜀ尀䴀ఀ樀䴀܀ᜀ刀?ༀ꤀˜ᜀࠀ一ጀᴀ一ᜀ㸀一ᜀ圀一ጀ氀一ᜀ⤀Sఀ�c܀ഀ伀ᄀ 伀ഀ⼀伀ᤀ䨀伀ᰀ瀀伀Ѐ瘀伀က␀Wఀ鐀Šᴀᨀ?ᤀ⨀儀ᜀ䌀儀ᘀ嬀儀ᘀ笀儀ᤀ℀gᜀऀuᜀ夀?ᔀ嘀?ᔀᬀ?ጀऀ刀ἀ⨀刀ఀ㸀刀ᜀ圀刀ᘀ渀刀ᔀ저\℀嬀v฀谀‚ᬀ堀?᠀숀žᤀἀ匀℀䈀匀฀堀匀ᬀ甀匀᠀됀]ᤀv℀㄀?⬀Ā吀⌀☀吀㈀戀吀ἀ툀P⨀똀u∀똀‰㔀ሀ唀ἀ㌀唀⠀崀唀∀䄀N㌀뀀}ἀ䀀?⤀਀嘀∀⸀嘀㐀氀嘀ἀ촀\⬀{∀嬀?㘀Ḁ圀ἀ㼀圀⬀氀圀∀㘀`㘀ffŠഀ밀—᐀̀堀ఀᤀ夀ᘀ㄀夀⠀嬀夀⠀㘀Sጀ᠀t⤀开?ఀ⌀?ഀༀ娀Ԁᘀ娀฀─娀ऀ　娀᐀䔀娀ऀ倀娀᐀攀娀ऀ瀀娀᐀㜀Sऀ㤀`ഀ̀qఀ鼀tഀ樀?ᘀ需ŽԀ怀?฀ꘀš᠀ഀ嬀ऀ 嬀᐀㘀嬀ᨀ刀嬀ऀ攀嬀᐀笀嬀ᨀ褀hऀഀs᐀礀~ᨀ頀Žऀ뜀˜଀ሀ尀ᄀ─尀☀䴀尀⬀稀尀　ᴀtЀ蠀wက氀?ఀ㤀崀ऀ䐀崀฀吀崀ጀ椀崀ऀ稀崀ഀ戀Xఀ鸀†ሀ蠀‘ᨀ圀?㌀㨀帀ༀ䬀帀ఀḀ开Ḁ一开ᄀ愀开ᬀ猀?ἀ　? 㔀怀ᴀ吀怀ᄀ稀怀ᰀ鈀iᄀ脀ƒᴀ谀“ᄀ଀愀ᬀ⠀愀ᄀ䴀愀ᬀ樀愀ᄀ䔀Wᤀ꜀åᘀ{ᴀ케Œ␀懸吀嬀戀嘀昀|က؀挀Ѐఀ挀ጀⰀ挀 一挀䠀଀p䨀᠀搀ఀἀ~ጀ䌀?䘀ᰀ攀ᨀ㠀攀฀䠀攀ఀ渀攀 䨀`─䴀z␀਀?─Ѐ昀─⬀昀☀匀昀␀礀昀☀ä␀言ƒ☀ꈀ›ሀᄀ最ఀ㘀最Ḁ嘀最ἀ眀最 言j℀| ꄀ 栀Ḁ 栀ἀ䄀栀Ḁ愀栀ἀ吀Wᜀ䤀?ఀഀ?ऀԀ崀?܀ᨀ渀ጀ⼀渀਀䄀渀਀唀渀ఀ\㼀᐀漀㈀䠀漀䬀㴀f㼀ᤀ瀀䬀昀瀀㼀㬀?㬀㔀焀⌀娀焀ఀ㘀s᐀愀?㌀ᴀ爀ἀ㸀爀 怀爀㈀᐀e䨀ༀ?ကⰀ?ᰀက猀᐀☀猀ሀ㨀猀ఀ昀猀฀瘀猀᠀怀`ᤀ렀s 쌀†ἀ䬀?᠀฀琀ᔀ─琀ἀ一琀☀瘀琀ᤀ蠀a㰀簀?Ѐᤀ?ᜀက?ఀ䠀甀᐀氀甀᐀밀s⼀렀Ž᐀⼀?ᜀ଀瘀─㈀瘀␀堀瘀ᰀ瘀瘀ᤀ言aᴀ輀v⬀ᬀ?ࠀ휀˜ᰀഀ眀Ḁⴀ眀ᜀ䘀眀ἀ漀眀Ѐ甀眀ᔀ쌀[฀⠀nሀ退v܀㘀簀ᨀ刀簀ᴀ瀀簀ကࠀP᐀똀h᐀씀tᰀ츀…⤀᠀?ᔀഀ紀ఀ⌀紀㄀嘀紀ᨀ爀紀⬀㌀q᐀蘀|਀‡怀㄀縀Ѐ㜀縀ᨀ匀縀܀먀wᨀ甀?ᴀ焀?က⨀缀ᰀ䠀缀⤀猀缀ᔀ㼀ఀ㼀ᨀ㼀⬀㼀᐀Ԁ㼀
?怀笀㼀亐檨祦觼㽋鷣?.?)Y?p?唫攤皞#諅㽚㽻+*?E?
a?|邇㽍m?"憚	秳賱邉.?#?紖
藚邊㽓㽉?
?9?V?!亞噯1簡螁_?
n?倗憞㼌磭緡㼬飮??+I?]?趫㼪60?)[?D㽎8閴'?@Z?4槉)?5
`?q?簩?啀槏?s㼿ሀ㜀e܀଀?⤀ഀༀ㼀⬀㰀㼀ఀ倀㼀ഀ漀㼀ఀ阀’ᔀሀ฀㼀ᄀ℀㼀ഀ㠀㼀ᰀ嘀㼀ጀ欀㼀ሀ缀㼀ഀ鄀gᴀ簀y䀀ꨀœ ᤀ㼀ጀ⸀㼀℀儀㼀∀甀㼀ᄀሀ^ሀ꼀vሀ堀?ऀ頀‹ༀ脀”ᄀ頀žఀ尀㼀ᰀ稀㼀ༀ였Zഀ眀?㜀崀?ἀἀ?ሀက㼀ጀⴀ㼀ࠀ㜀㼀က䤀㼀ༀ娀㼀ഀ焀㼀瘀븀•ἀ਀㼀ሀḀ㼀฀㐀㼀ༀ䴀㼀ࠀ圀㼀က椀㼀ఀ帀?ഀ漀?⠀Ḁ㼀㼀㌀|ἀ怀?฀଀㼀ᔀ∀㼀ᄀ㔀㼀ⴀ搀㼀嬀㼀*㼄I8?S?]?o?藯
鷹?$?-S?[皹*軜I'?:?枡
㽡軝㼀-?[{?*㽟I㽓?b?
憶粵-隂[G?-v?I?ᄀ簀?ఀ最㼀ᔀ紀㼀䬀紀?ఀЀ㼀ᘀᬀ㼀䬀栀㼀ఀ䬀pሀ堀w䬀戀?ఀ㨀㼀ᘀ儀㼀䬀䴀pఀĀ㼀ⴀ　㼀Ⰰ帀㼀᠀砀㼀ऀⰀQᬀ䬀rḀ匀㈀Ȁ?一刀㼀ᜀ欀㼀ᄀ縀㼀ᴀ漀oᘀ `㈀␀iऀἀ|ఀ樀㼀᐀缀㼀଀hᘀ�á᠀儀h Ѐ€　ᴀ㼀ጀ㈀㼀ᬀ堀㼀ఀ昀㼀䘀ကdጀ팀Uఀ氀?ᜀఀ㼀ఀ∀㼀ఀ唀㼀⌀稀㼀ሀ㘀]฀甀oᜀ瘀?᠀砀Uᜀ圀iጀ氀?ᜀᜀ㼀ᜀ　㼀ᜀ儀㼀ᜀ樀㼀܀㿸ऀ਀㼀ᘀ∀㼀᐀㠀㼀ࠀ䠀㼀ἀ椀㼀က笀㼀ࠀ鐀fЀ☀mᄀ缀?ఀሀ㼀଀ἀ㼀ᔀ㘀㼀怀i ꠀaᤀ저‹᐀Ԁl℀℀㼀䔀栀㼀匀�Y଀䜀k଀܀l଀ጀ㼀᐀⤀㼀଀䨀㼀ἀ欀㼀䔀ༀd଀c儀ሀ㼀᠀㈀㼀଀䴀㼀଀缀㼀ᬀ瀀n܀─?ఀ�ऀĀ`ༀꀀƒᄀ�tᘀࠀ㼀ఀ夀㼀ᴀ砀㼀∀焀nᰀ딀mⰀ�~ऀԀ㼀ᔀᰀ㼀䀀Ā帀㼀᠀砀㼀ᄀZఀ㼀ࠀ㼀ఀ㼀ऀ㼀଀ᜀᰀࠀ⬀ᰀ଀䌀ᰀఀ儀ᰀ਀崀ᰀࠀ最ᰀഀ瘀ᰀࠀ㼀
?
???	@-o?,?
???VnV?NQiT?J + 9 C c ,?
????VH!V?N?QC"T?J?N5#R???
?$0I$V$␿✀㼀ጀ㼀ጀ㼀ᴀ㼀Ḁሀ─ᜀ㄀─฀帀─ഀ洀─ᘀ㼀ᨀ㼀ᘀ㼀ᄀ㼀ᘀ㼀᠀㼀ᘀᘀ☀ᔀⴀ☀ᘀ䴀☀ᘀ攀☀ጀ稀☀ᘀ㼀Ḁ㼀ᘀ㼀Ḁ㼀ᘀȀ✀Ѐࠀ✀ᜀ刀✀ᄀ攀✀ᘀ紀✀ሀ㼀฀㼀ࠀ㼀ሀ㼀က㼀ᜀ㼀ጀ⟸ഀ฀⠀᠀⠀⠀ᜀ䄀⠀Ḁ愀⠀ᜀ㼀(????):)M)h)??????	
*$8*O*	Z*!}*?????++0+=+T+f++?????,.,G,_,x,??$???-)-J-^-w-????-.-.F.`.?????/(/I/p/????桠
㽾ƀ렀Ƌ怀㼀脀Ǣ⸀Ş䀀㼀䠀㼀耀?
P?若
0?弱
撒
H?
狖
椟
佚
橚
?
? 
?xH࠿Ȁ⠀଀Ȁ㼀Ȁ怀ఀȀ㼀Ȁ怀ကȀ㼀?p?????H?????@#$?%?'`(*+,-?.?/?2??h6??9?@:?㸿Ȁ㼀ȀĀ嘀㼀Ā嘀䈀匀挀爀椀瀀琀 ⴀ 猀挀爀椀瀀琀 戀氀漀挀欀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀　⤀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀✀Ԁ匀⬀吀䀀ಛ׸匀⬀吀䀀戀ऀ最ഀ最�棤嘀䦘炟攀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀猀礀猀䄀瀀瀀䤀搀 㴀 ∀䄀　　㈀∀   ✀猀帀ᴀ?㽏਀✀ഀ਀✀吀䥫一琀攀ࠀ吀猀帀ᴀ?O(u剉hQ@\㽐?
dim MAIN_SERVICE_URL,INFO_SERVICE_URL,MANAGE_SERVICE_URL

dim STR_SERVICE_SUCESS,STR_SERVICE_ERROR

MAIN_SERVICE_URL = "http://www.comelan.com/login/service.asp"    'teTs^㼝最�槤姦?W@W

INFO_SERVICE_URL = "http://www.comelan.com/admin/service.asp"      '酧o`s^㼝最�槤姦?W@W

MANAGE_SERVICE_URL = "http://www.comelan.com/manage/service.asp"   'N㼁琀猀帀ᴀ?g㽙圀䀀圀ഀ਀匀吀刀开匀䔀刀嘀䤀䌀䔀开匀唀䌀䔀匀匀 㴀 ∀匀唀䌀䔀匀匀㨀∀ഀ਀匀吀刀开匀䔀刀嘀䤀䌀䔀开䔀刀刀伀刀  㴀 ∀䔀刀刀伀刀㨀∀ഀ਀✀ᨀﴀ㽠㼀甀堀䴀䰀䠀吀吀倀Ⰰ缀伀⠀甀倀伀匀吀欀ཻ开伀?
function HTTP_POST(str_url,str_content)

on error resume next

dim objxml,serviceurl

dim stra,result

set objxml=server.CreateObject("Microsoft.XMLHTTP")

stra = URLEncoding(str_content)

objxml.Open "post",str_url,false

objxml.setrequestheader "content-length",len(stra)

objxml.setrequestheader "content-type","application/x-www-form-urlencoded"

objxml.send stra

result = objxml.responsetext

set objxml = nothing

HTTP_POST = result

end function

function URLEncoding(vstrIn)

dim strReturn,i

dim ThisChr,innerCode,Hight8,Low8

strReturn = ""

For i = 1 To Len(vstrIn)

ThisChr = Mid(vStrIn,i,1)

If Abs(Asc(ThisChr)) < &HFF Then

strReturn = strReturn & ThisChr

Else

innerCode = Asc(ThisChr)

If innerCode < 0 Then

innerCode = innerCode + &H10000

End If

Hight8 = (innerCode  And &HFF00)\ &HFF

Low8 = innerCode And &HFF

strReturn = strReturn & "%" & Hex(Hight8) &  "%" & Hex(Low8)

End If

Next

URLEncoding = strReturn

end function

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

'		?upenc揯㼛N,傶W嶯penc揯剉蚫\O

'

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

'------------------------------------------------------

'---- ParameterDirectionEnum Values ----

dim adParamUnknown,adParamInput,adParamOutput,adParamInputOutput,adParamReturnValue

adParamUnknown = &H0000

adParamInput = &H0001

adParamOutput = &H0002

adParamInputOutput = &H0003

adParamReturnValue = &H0004

'---- CommandTypeEnum Values ----

dim adCmdUnknown,adCmdText,adCmdTable,adCmdStoredProc,adCmdFile,adCmdTableDirect

adCmdUnknown = &H0008

adCmdText = &H0001

adCmdTable = &H0002

adCmdStoredProc = &H0004

adCmdFile = &H0100

adCmdTableDirect = &H0200

'---- DataTypeEnum Values ----

dim adEmpty,adTinyInt,adSmallInt,adBigInt,adInteger

dim adUnsignedTinyInt,adUnsignedSmallInt,adUnsignedInt,adUnsignedBigInt

dim adSingle,adDouble,adCurrency,adDecimal,adNumeric,adBoolean,adError

dim adUserDefined,adVariant,adIDispatch,adIUnknown,adGUID,adDate,adDBDate,adDBTime,adDBTimeStamp

dim adBSTR,adChar,adVarChar,adLongVarChar,adWChar,adVarWChar,adLongVarWChar

dim adBinary,adVarBinary,adLongVarBinary,adChapter,adFileTime,adPropVariant,adVarNumeric,adArray

adEmpty = 0

adTinyInt = 16

adSmallInt = 2

adInteger = 3

adBigInt = 20

adUnsignedTinyInt = 17

adUnsignedSmallInt = 18

adUnsignedInt = 19

adUnsignedBigInt = 21

adSingle = 4

adDouble = 5

adCurrency = 6

adDecimal = 14

adNumeric = 131

adBoolean = 11

adError = 10

adUserDefined = 132

adVariant = 12

adIDispatch = 9

adIUnknown = 13

adGUID = 72

adDate = 7

adDBDate = 133

adDBTime = 134

adDBTimeStamp = 135

adBSTR = 8

adChar = 129

adVarChar = 200

adLongVarChar = 201

adWChar = 130

adVarWChar = 202

adLongVarWChar = 203

adBinary = 128

adVarBinary = 204

adLongVarBinary = 205

adChapter = 136

adFileTime = 64

adPropVariant = 138

adVarNumeric = 139

adArray = &H2000

'------------------------------------

function GetDBConn()

dim m_Conn,ConnString

set m_Conn = Server.Createobject("ADODB.Connection")

ConnString="Provider=SQLOLEDB;Password=comelanDB;User ID=comelanDB;Initial Catalog=DBManage;Data Source=(local);"

m_Conn.ConnectionTimeOut=30

m_Conn.open ConnString

if Err then

err.Clear

Set m_Conn = Nothing

Response.Write "<br><br><br><br><br><br><br><div align='center'>penc揯迯㾴㼀阀螜ㅾ榏烦攀渀挀䥣ɒ炀攀ᬀ垅嬀☀笀㈀一湽缀⼀昀☀吀挀欀渀砀Ā㳸⼀搀椀瘀㸀∀ഀ਀刀攀猀瀀漀渀猀攀⸀䔀渀搀ഀ਀攀渀搀 椀昀ഀ਀猀攀琀 䜀攀琀䐀䈀䌀漀渀渀 㴀 洀开䌀漀渀渀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀昀甀渀挀琀椀漀渀 䜀攀琀䴀愀砀嘀愀氀甀攀⠀欀攀礀渀愀洀攀Ⰰ挀漀渀渀⤀ഀ਀搀椀洀 洀开䌀洀搀Ⰰ椀䴀愀砀嘀愀氀甀攀ഀ਀猀攀琀 洀开䌀洀搀㴀䌀爀攀愀琀攀伀戀樀攀挀琀⠀∀䄀䐀伀䐀䈀⸀䌀漀洀洀愀渀搀∀⤀ഀ਀圀椀琀栀 洀开䌀洀搀ഀ਀⸀䄀挀琀椀瘀攀䌀漀渀渀攀挀琀椀漀渀㴀挀漀渀渀ഀ਀⸀䌀漀洀洀愀渀搀吀攀砀琀 㴀 ∀甀猀瀀开䜀攀琀䴀愀砀嘀愀氀甀攀∀ഀ਀⸀䌀漀洀洀愀渀搀吀礀瀀攀 㴀 愀搀䌀洀搀匀琀漀爀攀搀倀爀漀挀ഀ਀⸀倀愀爀愀洀攀琀攀爀猀⸀䄀瀀瀀攀渀搀㴀⸀䌀爀攀愀琀攀倀愀爀愀洀攀琀攀爀⠀∀䀀猀䬀攀礀一愀洀攀∀Ⰰ愀搀嘀愀爀䌀栀愀爀Ⰰ愀搀倀愀爀愀洀䤀渀瀀甀琀Ⰰ㈀　Ⰰ欀攀礀渀愀洀攀⤀ഀ਀⸀倀愀爀愀洀攀琀攀爀猀⸀䄀瀀瀀攀渀搀㴀⸀䌀爀攀愀琀攀倀愀爀愀洀攀琀攀爀⠀∀䀀椀䴀愀砀嘀愀氀甀攀∀Ⰰ愀搀䤀渀琀攀最攀爀Ⰰ愀搀倀愀爀愀洀伀甀琀瀀甀琀⤀ഀ਀⸀䔀砀攀挀甀琀攀 ⰀⰀ愀搀䔀砀攀挀甀琀攀一漀刀攀挀漀爀搀猀ഀ਀椀䴀愀砀嘀愀氀甀攀㴀⸀倀愀爀愀洀攀琀攀爀猀⠀∀䀀椀䴀愀砀嘀愀氀甀攀∀⤀ഀ਀䔀渀搀 圀椀琀栀ഀ਀猀攀琀 洀开䌀䴀䐀㴀渀漀琀栀椀渀最ഀ਀䜀攀琀䴀愀砀嘀愀氀甀攀㴀椀䴀愀砀嘀愀氀甀攀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀✀最戀䰀㼀一⨀一猀焀氀豈ᶗ?
N詮轛皨U_㼤਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀昀甀渀挀琀椀漀渀 䔀砀攀䌀甀琀攀匀焀氀⠀匀焀氀匀攀渀琀攀渀挀攀Ⰰ䌀漀渀渀⤀ഀ਀✀圀爀椀琀攀䔀爀爀漀爀 猀焀氀匀攀渀琀攀渀挀攀ഀ਀䌀漀渀渀⸀䔀砀攀挀甀琀攀 匀焀氀匀攀渀琀攀渀挀攀ഀ਀椀昀 䌀漀渀渀⸀䔀爀爀漀爀猀⸀䌀漀甀渀琀㰀㸀　 琀栀攀渀ഀ਀䔀砀攀䌀甀琀攀匀焀氀㴀䔀爀爀䌀漀搀攀⠀∀䔀　　㈀∀Ⰰ匀焀氀匀攀渀琀攀渀挀攀⤀ഀ਀攀氀猀攀ഀ਀䔀砀攀䌀甀琀攀匀焀氀㴀　ഀ਀攀渀搀 椀昀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀✀最戀䰀㼀一⨀一猀焀氀㄀鸿㿹?詮㽛N*N皨U_㼤਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀昀甀渀挀琀椀漀渀  匀攀氀攀挀琀匀焀氀⠀匀焀氀匀攀氀攀挀琀匀攀渀琀攀渀挀攀Ⰰ挀漀渀渀⤀ഀ਀猀攀琀 匀攀氀攀挀琀匀焀氀㴀猀攀爀瘀攀爀⸀䌀爀攀愀琀攀伀戀樀攀挀琀⠀∀愀搀漀搀戀⸀爀攀挀漀爀搀匀攀琀∀⤀ഀ਀✀眀爀椀琀攀䔀爀爀漀爀 猀焀氀匀攀氀攀挀琀匀攀渀琀攀渀挀攀ഀ਀匀攀氀攀挀琀匀焀氀⸀漀瀀攀渀 猀焀氀匀攀氀攀挀琀匀攀渀琀攀渀挀攀Ⰰ挀漀渀渀Ⰰ㌀ഀ਀椀昀 挀漀渀渀⸀䔀爀爀漀爀猀⸀䌀漀甀渀琀㰀㸀　 琀栀攀渀ഀ਀䔀爀爀䌀漀搀攀 ∀䔀　　㄀∀Ⰰ匀焀氀匀攀氀攀挀琀匀攀渀琀攀渀挀攀ഀ਀攀渀搀 椀昀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀昀甀渀挀琀椀漀渀 䔀爀爀䌀漀搀攀⠀䔀爀爀猀Ⰰ䤀渀昀漀⤀ഀ਀匀攀氀攀挀琀 䌀愀猀攀 䔀爀爀猀ഀ਀䌀愀猀攀 ∀䔀　　㄀∀ഀ਀刀攀猀瀀漀渀猀攀⸀眀爀椀琀攀 ∀㄀鈿㿹?曪?" & Info & "<br>"

Response.end

Case "E002"

Response.Write "gbL堩嬪S曪? & Info & "<br>"

Response.end

end Select

end function

function GetColumnValue(strSQL,Conn)

dim m_Rs

set m_Rs=SelectSql(strSQL,Conn)

if m_Rs.EOF then

GetColumnValue=""

else

GetColumnValue= m_Rs(0)

end if

set m_Rs=Nothing

end function

function CreateOption(strSql,conn,sValue)

dim mRs

set mRs=SelectSql(strSql,conn)

while not mRs.eof

if mRs(0)=sValue then

response.Write "<option value=""" & mRs(0) & """ selected>" & mRs(1) & "</option>" & vbcrlf

else

response.Write "<option value=""" & mRs(0) & """>" & mRs(1) & "</option>" & vbcrlf

end if

mRs.movenext

wend

mRs.close

set mRs=nothing

end function

function CreateOptionStr(str,sValue)

dim arr1,str1

dim strkey,strvalue

arr1 = split(str,",")

for each str1 in arr1

arr2 = split(str1,"|")

if ubound(arr2)>0 then

strvalue = arr2(0)

strkey = arr2(1)

else

strvalue = arr2(0)

strkey = arr2(0)

end if

if strkey = cstr(sValue) then

response.Write "<option value=""" & strkey & """ selected>" & strvalue & "</option>" & vbcrlf

else

response.Write "<option value=""" & strkey & """>" & strvalue & "</option>" & vbcrlf

end if

next

end function

'蜰W[&{2NRh?N諷梍鵞擽剉<P

function GetOptionStrName(str,sValue)

dim arr1,str1

dim strkey,strvalue

dim result

result = ""

arr1 = split(str,",")

for each str1 in arr1

arr2 = split(str1,"|")

'writeError str1 & "////" & ubound(arr2)

if ubound(arr2)>0 then

strvalue = arr2(0)

strkey = arr2(1)

else

strvalue = arr2(0)

strkey = arr2(0)

end if

if strkey = cstr(sValue) then

result = strvalue

exit for

end if

next

GetOptionStrName = result

end function

Class CommSearch

dim TableName,DispField,Where,OrderBy,OrderType,PageNo,PageSize

dim ShowTail

dim Amount

dim URL,TableWidth

dim IsAlt   '/f&TO(ufr?
dim Title

dim arrCol(20)  'h槝,絒,鵞P煿e_,匭筟

Private mPos

Private AllPageCount,CurBNum,CurENum

Public Property Get Pos	'>f:yh?hW[祂pe

Pos=mPos

End Property

Private Sub Class_Initialize

Amount=-1

OrderType=1 '貫㼰倀ⱞ꬀れ?P:N1sS desc 0:N asc FO/f	gasc(Wsql韹㼝一ఀ෸਀倀愀最攀一漀㴀㄀    ✀꬀れ?{1u?
PageSize=50 '貫蟢u?0ag酧o`

TableName=""

IsAlt=true

Title=""

DispField="*"

Where=""

InitOutput

ShowTail=true

End Sub

Public Sub InitOutput()

dim num

for num=0 to ubound(arrCol)

arrCol(num)=array("","","","")

next

mPos=0

End Sub

Public Function Search(conn)

dim rs

set rs=server.CreateObject("ADODB.Recordset")

if Amount=-1 then

'邁㼐怀瀀攀ഀ਀猀攀琀 挀洀搀㴀猀攀爀瘀攀爀⸀䌀爀攀愀琀攀伀戀樀攀挀琀⠀∀䄀䐀伀䐀䈀⸀䌀漀洀洀愀渀搀∀⤀ഀ਀眀椀琀栀 挀洀搀ഀ਀⸀䄀挀琀椀瘀攀䌀漀渀渀攀挀琀椀漀渀㴀挀漀渀渀ഀ਀⸀䌀漀洀洀愀渀搀吀攀砀琀㴀∀甀猀瀀开䌀漀洀洀匀攀愀爀挀栀∀ഀ਀⸀䌀漀洀洀愀渀搀吀礀瀀攀㴀愀搀䌀洀搀匀琀漀爀攀搀倀爀漀挀ഀ਀⸀倀愀爀愀洀攀琀攀爀猀⸀䄀瀀瀀攀渀搀㴀⸀䌀爀攀愀琀攀倀愀爀愀洀攀琀攀爀⠀∀䀀吀愀戀氀攀一愀洀攀∀Ⰰ愀搀嘀愀爀䌀栀愀爀Ⰰ愀搀倀愀爀愀洀䤀渀瀀甀琀Ⰰ㔀　　Ⰰ吀愀戀氀攀一愀洀攀⤀ഀ਀⸀倀愀爀愀洀攀琀攀爀猀⸀䄀瀀瀀攀渀搀㴀⸀䌀爀攀愀琀攀倀愀爀愀洀攀琀攀爀⠀∀䀀䐀椀猀瀀䘀椀攀氀搀∀Ⰰ愀搀嘀愀爀䌀栀愀爀Ⰰ愀搀倀愀爀愀洀䤀渀瀀甀琀Ⰰ㔀　　Ⰰ䐀椀猀瀀䘀椀攀氀搀⤀ഀ਀⸀倀愀爀愀洀攀琀攀爀猀⸀䄀瀀瀀攀渀搀㴀⸀䌀爀攀愀琀攀倀愀爀愀洀攀琀攀爀⠀∀䀀圀栀攀爀攀∀Ⰰ愀搀嘀愀爀䌀栀愀爀Ⰰ愀搀倀愀爀愀洀䤀渀瀀甀琀Ⰰ㔀　　Ⰰ圀栀攀爀攀⤀ഀ਀⸀倀愀爀愀洀攀琀攀爀猀⸀䄀瀀瀀攀渀搀㴀⸀䌀爀攀愀琀攀倀愀爀愀洀攀琀攀爀⠀∀䀀伀爀搀攀爀䈀礀∀Ⰰ愀搀嘀愀爀䌀栀愀爀Ⰰ愀搀倀愀爀愀洀䤀渀瀀甀琀Ⰰ㔀　Ⰰ伀爀搀攀爀䈀礀⤀ഀ਀⸀倀愀爀愀洀攀琀攀爀猀⸀䄀瀀瀀攀渀搀㴀⸀䌀爀攀愀琀攀倀愀爀愀洀攀琀攀爀⠀∀䀀伀爀搀攀爀吀礀瀀攀∀Ⰰ愀搀䈀漀漀氀攀愀渀Ⰰ愀搀倀愀爀愀洀䤀渀瀀甀琀Ⰰ㄀Ⰰ伀爀搀攀爀吀礀瀀攀⤀ഀ਀⸀倀愀爀愀洀攀琀攀爀猀⸀䄀瀀瀀攀渀搀㴀⸀䌀爀攀愀琀攀倀愀爀愀洀攀琀攀爀⠀∀䀀䐀漀䌀漀甀渀琀∀Ⰰ愀搀䈀漀漀氀攀愀渀Ⰰ愀搀倀愀爀愀洀䤀渀瀀甀琀Ⰰ㄀Ⰰ㄀⤀ഀ਀攀渀搀 眀椀琀栀ഀ਀猀攀琀 爀猀㴀挀洀搀⸀䔀砀攀挀甀琀攀⠀⤀ഀ਀䄀洀漀甀渀琀㴀爀猀⠀　⤀ഀ਀爀猀⸀挀氀漀猀攀ഀ਀猀攀琀 挀洀搀㴀渀漀琀栀椀渀最ഀ਀攀渀搀 椀昀ഀ਀✀㄀鸿penc

set cmd=server.CreateObject("ADODB.Command")

with cmd

.ActiveConnection=conn

.CommandText="usp_CommSearch"

.CommandType=adCmdStoredProc

.Parameters.Append=.CreateParameter("@TableName",adVarChar,adParamInput,500,TableName)

.Parameters.Append=.CreateParameter("@DispField",adVarChar,adParamInput,500,DispField)

.Parameters.Append=.CreateParameter("@Where",adVarChar,adParamInput,500,Where)

.Parameters.Append=.CreateParameter("@OrderBy",adVarChar,adParamInput,50,OrderBy)

.Parameters.Append=.CreateParameter("@OrderType",adBoolean,adParamInput,1,OrderType)

.Parameters.Append=.CreateParameter("@DoCount",adBoolean,adParamInput,1,0)

.Parameters.Append=.CreateParameter("@PageNo",adInteger,adParamInput,4,PageNo)

.Parameters.Append=.CreateParameter("@PageSize",adInteger,adParamInput,4,PageSize)

end with

set rs=cmd.Execute()

set cmd=nothing

set Search=rs

End Function

'鹠燫W[祂

Public Function AddColumn(title,width,colalign,content)

arrCol(mPos)=array(title,width,colalign,content)

mPos=mPos+1

End Function

Public Function Output(Rs)

AllPageCount=int((Amount-1)/PageSize)+1

PageNo=clng(PageNo)

Amount=clng(Amount)

CurBNum=(PageNo-1)*PageSize+1

if PageNo*PageSize<Amount then

CurENum=PageNo*PageSize

else

CurENum=Amount

end if

dim num

dim colNum

colNum=mPos-1

Response.WriteBlock(1)

Response.Write(TableWidth)

Response.WriteBlock(2)

if Title<>"" then

Response.WriteBlock(3)

Response.Write(colNum+1)

Response.WriteBlock(4)

Response.Write(Title)

Response.WriteBlock(5)

end if

Response.WriteBlock(6)

for num=0 to colNum

Response.WriteBlock(7)

Response.Write(arrCol(num)(1))

Response.WriteBlock(8)

Response.Write(arrCol(num)(0))

Response.WriteBlock(9)

next

Response.WriteBlock(10)

dim rowNum,aa,fname,fvalue

dim re,Matchs,Match

set re=new RegExp

re.Pattern="\[(.*?)\]"

re.IgnoreCase=true

re.Global=true

rowNum=1

if not Rs.EOF then

while not Rs.EOF

Response.WriteBlock(11)

for num=0 to colNum

if IsAlt then

if rowNum mod 2 = 0 then

Response.WriteBlock(12)

Response.Write(arrCol(num)(2))

Response.WriteBlock(13)

else

Response.WriteBlock(14)

Response.Write(arrCol(num)(2))

Response.WriteBlock(15)

end if

else

Response.WriteBlock(16)

Response.Write(arrCol(num)(2))

Response.WriteBlock(17)

end if

aa=arrCol(num)(3)

set matchs=re.Execute(aa)

for each macth in matchs

fname=macth.value

fname=replace(fname,"[","")

fname=replace(fname,"]","")

fvalue=rs(fname)

if isnull(fvalue) then

fvalue=""

else

fvalue=replace(fvalue,vbcrlf,"<br>")

end if

if isnull(fvalue) then fvalue=""

aa=replace(aa,macth.value,fvalue)

next

'response.Write aa

if left(aa,1)="=" then

aa="aa" & aa

'response.Write aa

Execute(aa)

end if

Response.Write aa

Response.WriteBlock(18)

next

Response.Write "</tr>"

Rs.MoveNext

rowNum=rowNum+1

wend

if ShowTail then

Response.WriteBlock(19)

Response.Write(colNum+1)

Response.WriteBlock(20)

Response.Write(Amount)

Response.WriteBlock(21)

Response.Write(CurBNum)

Response.WriteBlock(22)

Response.Write(CurENum)

Response.WriteBlock(23)

Response.Write(PageNo)

Response.WriteBlock(24)

Response.Write(AllPageCount)

if URL<>"" then

URL = URL & "Amount=" & Amount & "&"

Response.WriteBlock(25)

if PageNo <> 1 then

Response.WriteBlock(26)

Response.Write(URL)

Response.WriteBlock(27)

end if

if PageNo > 1 then

Response.WriteBlock(28)

Response.Write(URL)

Response.WriteBlock(29)

Response.Write(PageNo-1)

Response.WriteBlock(30)

end if

if AllPageCount > PageNo then

Response.WriteBlock(31)

Response.Write(URL)

Response.WriteBlock(32)

Response.Write(PageNo+1)

Response.WriteBlock(33)

end if

if PageNo <>  AllPageCount then

Response.WriteBlock(34)

Response.Write(URL)

Response.WriteBlock(35)

Response.Write(AllPageCount)

Response.WriteBlock(36)

end if

Response.WriteBlock(37)

end if

Response.WriteBlock(38)

end if

else

Response.WriteBlock(39)

Response.Write(colNum+1)

Response.WriteBlock(40)

end if

Response.WriteBlock(41)

End Function

End Class

' ?upenc揯蚫\O齉pe

dim sysOptArea,sysOptPosition,sysOptCompanyType

sysOptArea = "S琋,)Y%m,
Nwm,蛻哵,櫃/n,砽S,q\N,	T梘,綇乕,褳櫉_l,匭檮銼,q\?砽WS,U??u儉,乕Y,癳唘,R梬m,壪?塠絖,VnS,VnWS,㼁?_l蟼,_l?弝鷁,^?Ym_l,^N,wmWS,慛WS,5嵽],駇3W,㽎夀∀ഀ਀猀礀猀伀瀀琀倀漀猀椀琀椀漀渀 㴀 ∀Ā伀ᨀ一ἀ㼀儀九Ⰰ꜀䒌㼿琀�塻吀Ⰰᨀ一��塻吀Ⰰ̀?x篘XT,f[u,vQ諲"

sysOptCompanyType = "u㼔伀ᨀ一Ⰰ‡㼀伀ᨀ一Ⰰ㼀攀︀聭醔?㼃砀夀攀밀㩷最✀ⱒ最澑怀ഀ最�Ǥ伀ᨀ一Ⰰ⨀一匀伀▇㼀伀ᨀ一Ⰰ瘀儀�≐ഀ਀猀礀猀伀瀀琀䐀攀瀀愀爀琀洀攀渀琀 㴀 ∀팀ⶃ蠀⽝㽡䨀钀㾑∀㄀剝耀醔?㼁琀耀醔?酧o`钀㾑Ȁ帀㨀圀尀㼀唀耀?㼧稀㼀b/g钀㾑̀?x钀㾑瘀儀�≐ഀ਀猀礀猀伀瀀琀刀攀最吀礀瀀攀 㴀 ∀猀屶溔⡛甀㜀戀簀　Ⰰ츀⢊甀⠀甀㜀戀簀㄀Ⰰ挀欀ༀ开⠀甀㜀戀簀㤀∀ഀ਀匀礀猀伀瀀琀匀渀䌀漀洀瀀愀渀礀 㴀 ∀ऀ呾冄缀簀䌀伀䴀∀ഀ਀匀礀猀伀瀀琀匀渀䤀伀 㴀 ∀㘀攀攀儀簀䤀Ⰰ⼀攀됀粝伀∀ഀ਀匀礀猀伀瀀琀匀渀䌀漀渀琀爀愀挀琀 㴀 ∀最澑怀㼀唀ࠀ吀ఀ吀簀䤀Ⰰ栀䫦吀㼀唀ࠀ吀ఀ吀簀刀Ⰰᨀ伀欀൵最�ࣤ吀ఀ吀簀䌀∀ഀ਀搀椀洀 猀礀猀䴀愀椀氀䠀漀猀琀Ⰰ猀礀猀䴀愀椀氀唀猀攀爀Ⰰ猀礀猀䴀愀椀氀倀眀搀ഀ਀✀猀礀猀䴀愀椀氀䠀漀猀琀㴀∀洀愀椀氀⸀挀漀洀攀氀愀渀⸀挀漀洀∀ഀ਀✀猀礀猀䴀愀椀氀唀猀攀爀㴀∀挀漀洀攀氀愀渀䀀挀漀洀攀氀愀渀⸀挀漀洀∀ഀ਀✀猀礀猀䴀愀椀氀倀眀搀㴀∀挀漀洀攀氀愀渀∀ഀ਀猀礀猀䴀愀椀氀䠀漀猀琀㴀∀洀愀椀氀⸀挀漀洀攀氀愀渀⸀挀漀洀∀ഀ਀猀礀猀䴀愀椀氀唀猀攀爀㴀∀挀漀洀攀氀愀渀䀀挀漀洀攀氀愀渀⸀挀漀洀∀ഀ਀猀礀猀䴀愀椀氀倀眀搀㴀∀挀漀洀攀氀愀渀∀ഀ਀✀ 簀膞耿pe

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

'?u剉z廭屨孆Qpe

'1
0Sub WriteError(str)				'顅剉>f:y屨嬦Oo`

'2
0Sub WriteErrorLn				'>f:y屨嬦Oo`

'3
0Sub WriteRequest()				'搹鶴@b	gh圲S衏酧o`

'4
0Sub WriteArray(theA,endFlag)	'㽊眀瀀攀ꔀ䦁䁒戀ऀ最㰀倀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀搀椀洀 洀开最开䤀猀䐀攀戀甀最ഀ਀洀开最开䤀猀䐀攀戀甀最 㴀 琀爀甀攀ऀऀ✀⼀昀☀吀㨀一̀栀汜牚Ⰰ最ఀ司开挀欀ༀ开윀Έ帀଀稀Ş?颯㼘攀㨀一洀开最开䤀猀䐀攀戀甀最㴀昀愀氀猀攀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀✀䔀䦘ᩒ㻸昀㨀礀̀栀♜佛漀怀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀匀甀戀 圀爀椀琀攀䔀爀爀漀爀⠀猀琀爀⤀ഀ਀䤀䘀 洀开最开䤀猀䐀攀戀甀最 吀栀攀渀ഀ਀刀攀猀瀀漀渀猀攀⸀眀爀椀琀攀 猀琀爀 ☀ ∀㰀戀爀㸀∀ഀ਀䔀渀搀 䤀䘀ഀ਀䔀渀搀 匀甀戀ഀ਀匀甀戀 圀爀椀琀攀嘀愀爀⠀瘀愀爀一愀洀攀⤀ഀ਀椀昀 洀开最开䤀猀䐀攀戀甀最 琀栀攀渀ഀ਀搀椀洀 瘀愀爀嘀愀氀甀攀ഀ਀䔀砀攀挀甀琀攀⠀∀瘀愀爀嘀愀氀甀攀㴀∀ ☀ 瘀愀爀一愀洀攀⤀ഀ਀爀攀猀瀀漀渀猀攀⸀圀爀椀琀攀 瘀愀爀一愀洀攀 ☀ ∀㴀∀ ☀ 瘀愀爀嘀愀氀甀攀 ☀ ∀㰀戀爀㸀∀ഀ਀攀渀搀 椀昀ഀ਀䔀渀搀 匀甀戀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀✀䔀䦘ᩒ㻸昀㨀礀̀栀♜佛漀怀 刀攀猀瀀漀渀猀攀⸀䔀渀搀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀匀甀戀 圀爀椀琀攀䔀爀爀漀爀䰀渀⠀猀琀爀⤀ഀ਀䤀䘀 洀开最开䤀猀䐀攀戀甀最 吀栀攀渀ഀ਀刀攀猀瀀漀渀猀攀⸀眀爀椀琀攀 猀琀爀 ☀ ∀㰀戀爀㸀∀ഀ਀刀攀猀瀀漀渀猀攀⸀䔀渀搀ഀ਀䔀渀搀 䤀䘀ഀ਀䔀渀搀 匀甀戀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀✀㤀둤䂝戀ऀ最栀㈀南伀查澑怀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀匀甀戀 圀爀椀琀攀刀攀焀甀攀猀琀⠀⤀ഀ਀䤀䘀 洀开最开䤀猀䐀攀戀甀最 吀栀攀渀ഀ਀䘀漀爀 䔀愀挀栀 琀栀椀渀最 䤀渀 刀攀焀甀攀猀琀⸀䘀漀爀洀ഀ਀圀爀椀琀攀䔀爀爀漀爀  琀栀椀渀最 ☀ ∀㴀∀ ☀ 刀攀焀甀攀猀琀⠀琀栀椀渀最⤀ ☀ ∀㰀戀爀㸀∀ഀ਀一攀砀琀ഀ਀䔀渀搀 䤀䘀ഀ਀䔀渀搀 匀甀戀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀✀䨀?wpe膥剉@b	g<P

'endFlag=1㼁一관൴਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀匀甀戀 圀爀椀琀攀䄀爀爀愀礀⠀琀栀攀䄀Ⰰ攀渀搀䘀氀愀最⤀ഀ਀䤀䘀 洀开最开䤀猀䐀攀戀甀最 吀栀攀渀ഀ਀䤀昀 琀礀瀀攀渀愀洀攀⠀琀栀攀䄀⤀㰀㸀∀嘀愀爀椀愀渀琀⠀⤀∀琀栀攀渀ഀ਀圀爀椀琀攀䔀爀爀漀爀⠀∀ഀ一⼀昀瀀攀ꔀƁ⋸⤀ഀ਀䔀氀猀攀ഀ਀圀爀椀琀攀䔀爀爀漀爀 ∀瀀攀ꔀ憁吀栀攀䌀氀愀猀猀䤀搀㴀㰀戀爀㸀∀ഀ਀䘀漀爀 椀㴀　 琀漀 甀戀漀甀渀搀⠀琀栀攀䄀⤀ഀ਀圀爀椀琀攀䔀爀爀漀爀⠀椀☀∀⸀ ∀☀琀栀攀䄀⠀椀⤀☀∀㰀戀爀㸀∀⤀ഀ਀一攀砀琀ഀ਀䔀渀搀 椀昀ഀ਀䤀昀 攀渀搀䘀氀愀最㴀∀㄀∀ 琀栀攀渀ഀ਀刀攀猀瀀漀渀猀攀⸀攀渀搀ഀ਀䔀渀搀 椀昀ഀ਀䔀渀搀 䤀䘀ഀ਀䔀渀搀 匀甀戀ഀ਀✀ ᨀ㼀甀଀稀͞栀䙜兛瀀攀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀✀ऀ圀嬀☀笀Ѐ夀؀琀䤀炟攀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀✀㄀Ā　昀甀渀挀琀椀漀渀 匀琀爀䰀攀渀最琀栀⠀猀琀爀⤀ऀऀऀऀ渀宊垏嬀☀笀㈀一䤀罒鈀幦 ⴀ一䀀坖嬀☀笀㴀㈀ഀ਀✀㈀Ā　昀甀渀挀琀椀漀渀 䤀猀䤀渀琀攀最攀爀⠀瀀愀爀愀⤀ऀऀऀ␀刀관灴愀爀愀⼀昀☀吀㨀一琀攀脀ⱚ⼀昀渀宊? &T詮㽛ഀ਀✀㌀Ā　昀甀渀挀琀椀漀渀 挀甀琀匀琀爀⠀猀琀爀Ⰰ猀琀爀䰀攀渀⤀ऀऀऀ⨀戀圀嬀☀笀㈀一䴀刀猀琀爀䰀攀渀⨀一圀嬀㈀一Ⰰ␀刀관⵴一䀀坖嬀☀笀ഀ਀✀㐀Ā　昀甀渀挀琀椀漀渀 䠀吀䴀䰀䔀渀挀漀搀攀⠀昀匀琀爀椀渀最⤀ऀऀ圀嬀☀笀㈀一ᘀ缀Ā砀ഀ਀✀㔀Ā　昀甀渀挀琀椀漀渀 䠀吀䴀䰀䐀攀挀漀搀攀⠀昀匀琀爀椀渀最⤀ऀऀ圀嬀☀笀㈀一退ƒ砀ഀ਀✀㘀Ā　昀甀渀挀琀椀漀渀 䠀吀䴀䰀挀漀搀攀⠀昀匀琀爀椀渀最⤀ऀऀऀ圀嬀☀笀㈀一ᘀ缀Ā砀⠀�底宝暏㼀缀Ā砀⤀ഀ਀✀㜀Ā　昀甀渀挀琀椀漀渀 猀琀爀䘀椀氀氀⠀猀琀爀㄀Ⰰ猀琀爀氀攀渀Ⰰ挀栀爀䘀椀氀氀⤀ऀ帀垝嬀☀笀㈀一ഀ一ꐀ玑琀爀䰀攀渀缀鈀幦䤀⡒甀挀栀爀䘀椀氀氀　覇殓堀䔀儀ഀ਀✀㠀Ā　昀甀渀挀琀椀漀渀 挀栀欀䤀渀瀀甀琀匀琀爀⠀猀琀爀Ⰰ氀攀渀最琀栀⤀ऀ帀搿eQ剉W[2N<P孴暒^蹚L?R璭,俌済暒^'Y嶯lengthR諷MRlength*N

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

'詮轛W[&{2N剉暒^$R璭-N噀W[&{

function StrLength(str)

dim result,WINNT_CHINESE

on error resume next

if str="" or isnull(str) then

result=0

else

WINNT_CHINESE = (len("-N噀")=2)

if WINNT_CHINESE then

dim l,c,i

l=len(str)

result=l

for i=1 to l

c=asc(mid(str,i,1))

if c<0 then c=c+ 65536

if c>255 then result=result+1

next

else

result=len(str)

end if

if Err.number<>0 then Err.Clear

end if

strLen=result

end function

function IsInteger(para)

On Error Resume next

dim result

result=1

dim str,l,i

if isnull(para) then	'/f&T搹eQ<P:NNULL

result=0

else

str=cstr(para)

if trim(str)="" then	'/f&T搹eQ<P:Nzz

result=0

else

l=len(str)

for i=1 to l

dim char

char=mid(str,i,1)

if(char>"9" or char<"0") then	'/f&T搹eQ<P	g^梡eW[W[&{

result=0

Exit for

end if

next

end if

end if

if Err.number<>0 then Err.Clear

isInteger=result

end function

function CutStr(str,strLen)

dim result,WINNT_CHINESE

if isnull(str) or str="" then

cutStr=""

Exit function

end if

result=""

WINNT_CHINESE = (len("-N噀")=2)

if WINNT_CHINESE then

dim l,t,c,i

l=len(str)

t=0

for i=1 to l

c=asc(mid(str,i,1))

if c<0 then c=c+ 65536

if c>255 then

t=t+2

else

t=t+1

end if

if t>=strLen then

result=left(str,i)

Exit for

end if

next

if result="" then result=str

else

if len(str)>strLen then

result=left(str,strLen)

else

result=left(str,strlen)

end if

end if

cutStr=result

end function

'W[&{2N蹚L圚TML
xYt

function HTMLEncode(fString)

if Not isnull(fString) then

fString = replace(fString, ">", "&gt;")

fString = replace(fString, "<", "&lt;")

fString = Replace(fString, CHR(32), "&nbsp;")

fString = Replace(fString, CHR(34), "&quot;")

fString = Replace(fString, CHR(39), "&#39;")

fString = Replace(fString, CHR(13), "")

fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ")

fString = Replace(fString, CHR(10), "<BR> ")

HTMLEncode = fString

end if

end function

'W[&{2N蹚L圚TML籗
xYt

function HTMLDecode(fString)

if Not isnull(fString) then

fString = replace(fString, "&gt;", ">")

fString = replace(fString, "&lt;", "<")

fString = Replace(fString, "", CHR(13))

fString = Replace(fString, "</P><P>", CHR(10) & CHR(10))

fString = Replace(fString, "<BR>", CHR(10))

HTMLDecode = fString

end if

end function

'鵞W[&{2N
N醤strLen暒^剉(uchrFill蜰鎉kXEQ

function StrFill(str1,strlen,chrFill)

if int(strlen)<2 or len(chrFill)<>1 then

strFill=""

Exit function

end if

if len(str1)>=strlen then

strFill=str1

Exit function

end if

strFill=Replicate(chrFill,strlen-len(str1)) + str1

end function

function ChkInputStr(str,length)

str=trim(str)

dim result

if length>0 then

result=cutStr(str,length)

else

if length=0 then

result=str

else

result=""

end if

end if

result = Replace(result, CHR(34), "&quot;")

result = Replace(result, CHR(39), "&#39;")

chkInputStr=result

end function

'俌済
N/fpeW[R:Nzz

function ChkInputNum(str)

if str<>"" then

if isnumeric(str) then

ChkInputNum=str

else

ChkInputNum=""

end if

else

ChkInputNum=""

end if

end function

function ChkInputDate(str)

if str<>"" then

if isdate(str) then

ChkInputDate=str

else

ChkInputDate=""

end if

else

ChkInputDate=""

end if

end function

function TitleStr(str,maxlen)

dim result

result=chkInputStr(str,maxlen)

if result<>str then result=result & "..."

titleStr=result

end function

' ?uW[&{Yt鴙sQ齉pe

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

'		?u錧wQ{|齉pe

'		gT㼞攀Ā炜?2006-06-17

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

'2
0sub Notes(str,strFlag)					?u㽏礀最澑怀䤀炟攀ऀ猀琀爀䘀氀愀最㴀㄀ 渀宊?strFlag=0闟㽏礀Ⰰ猀琀爀䘀氀愀最㴀㈀ 猀儀̀늘奨?俌済str=""R
N鶴㽏礀䘀栀ഀ਀✀㌀Ā　猀甀戀 一漀琀攀猀䜀漀⠀猀琀爀Ⰰ甀爀氀⤀ऀऀऀऀऀᨀ㼀甀伀?y酧o`齉pev^髰l?Rc歔剉URL (JAVASCRIPT筫_) 俌済str=""R
N鶴㽏礀䘀栀ഀ਀✀㐀Ā　猀甀戀 匀栀漀眀䴀攀猀猀愀最攀⠀吀椀琀氀攀Ⰰ 䤀渀昀漀Ⰰ樀愀瘀愀猀琀爀⤀ऀᨀ㼀甀伀?y酧o`齉pev^髰l?Rc歔剉URL (ASP筫_)

'4
0function PowerTrim(str)					籗塩str-N@b	gzz<h

'5
0function FormatDate(DateValue,FormatString) <h_S>f:y㼯最ഀ਀✀䘀漀爀洀愀琀匀琀爀椀渀最 礀礀礀礀Ā䶎伀琀帀Ⰰ礀礀␀一䴀伀琀帀Ⰰ洀洀ࠀ最Ⰰ洀ഀ一☀帀䴀刀퀀ゞ⸀搀搀⼀?hh㼁滸渀؀刀Ⰰ猀猀瘀?
'6
0function GenRandom(Length,hasNum,hasLowerChar,hasUpperChar,hasOtherChar) ub彇:gW[&{2N,lengthubW[&{2N剉暒^,

'hasNum,hasLowerChar,hasUpperChar,hasOtherChar<P:N0b1,漁!k:NS+TpeW[
0\橯W[蚹
0'Y橯W[蚹
0vQ僛W[&{

'7
0function Repeat(str,num)				詮轛㿻夀渀甀洀℀欀猀琀爀䤀坒嬀☀笀㈀一ഀ਀✀㤀Ā　昀甀渀挀琀椀漀渀 琀爀愀渀猀氀愀琀攀⠀猀漀甀爀挀攀匀琀爀Ⰰ昀椀攀氀搀匀琀爀⤀ऀЀ夀؀琀㬀鰀ﭠ㽗开䤀汒㼀匀挀�൩਀✀㄀　Ā　昀甀渀挀琀椀漀渀 挀栀欀䔀洀愀椀氀⠀攀洀愀椀氀⤀ऀऀऀऀ蜀ㅾ炓ছ最☀吀挀欀渀砀Ⰰ挀欀渀砀渀宊?,曪嬙忁V0

'11
0function browser(info)					諷㽁戀伀洀吀梄嘀最澑怀ഀ਀✀㄀㈀Ā　昀甀渀挀琀椀漀渀 猀礀猀琀攀洀⠀椀渀昀漀⤀ऀऀऀऀऀ䆊?b蚫\O鹼邁酧o`

'13
0function IIF(theInputExp,trueValue,falseValue)		IIF齉pe

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

sub Notes(str,strFlag)

Response.WriteBlock(42)

if str<>"" then

Response.WriteBlock(43)

Response.Write(str)

Response.WriteBlock(44)

end if

if strFlag="1" then

Response.WriteBlock(45)

ElseIf strFlag="2" then

Response.WriteBlock(46)

ElseIf strFlag="3" then

Response.WriteBlock(47)

end if

Response.WriteBlock(48)

response.End

end sub

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

'?u㽏礀最澑怀䤀炟攀Ⰰ伀?y

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

sub NotesGo(str,url)

Response.WriteBlock(49)

if str<>"" then

Response.WriteBlock(50)

Response.Write(str)

Response.WriteBlock(51)

end if

Response.WriteBlock(52)

Response.Write(url)

Response.WriteBlock(53)

response.end

end sub

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

'籗塩str-N魰剉zz<h,詮㽛倀㨀一Ѐ夀؀琀฀吀䤀坒嬀☀笀㈀一ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀昀甀渀挀琀椀漀渀 倀漀眀攀爀吀爀椀洀⠀猀琀爀⤀ഀ਀搀椀洀 椀Ⰰ氀渀Ⰰ爀攀猀甀氀琀ഀ਀氀渀㴀氀攀渀⠀挀猀琀爀⠀猀琀爀⤀⤀ഀ਀昀漀爀 椀㴀㄀ 琀漀 氀渀ഀ਀椀昀 洀椀搀⠀猀琀爀Ⰰ椀Ⰰ㄀⤀㰀㸀∀ ∀ 琀栀攀渀ഀ਀爀攀猀甀氀琀㴀爀攀猀甀氀琀 ☀ 洀椀搀⠀猀琀爀Ⰰ椀Ⰰ㄀⤀ഀ਀攀渀搀 椀昀ഀ਀渀攀砀琀ഀ਀倀漀眀攀爀吀爀椀洀㴀爀攀猀甀氀琀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀✀䔀䦘ᩒ㳸栀ༀ开ᘀ匀㸀昀㨀礀⼀?g

'搹eQ㼯最㰀倀Ā　㰀栀ༀ开ᘀ匀㈀一ഀ਀✀渀宊?PW[&{2N

'婳 FormatDate(now(),"yyyymmdd h:n")	詮㽛倀㨀一 ∀㈀　　㈀㄀　　㤀 ㄀　㨀㌀∀ഀ਀✀猀⁚䘀漀爀洀愀琀䐀愀琀攀⠀渀漀眀⠀⤀Ⰰ∀礀礀礀礀ⴀ洀ⴀ搀 栀栀㨀渀渀∀⤀ 渀宊?P:N "2002-10-9 10:03"

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

function FormatDate(DateValue,FormatString)

'FormatString yyyy踁MOt^,yy$NMOt^,mmg,m
N&^MR黐0.dd㼯栀栀Ā?nnR,ss㽶਀搀椀洀 猀琀爀刀攀猀甀氀琀ഀ਀猀琀爀刀攀猀甀氀琀㴀氀挀愀猀攀⠀䘀漀爀洀愀琀匀琀爀椀渀最⤀ഀ਀椀昀 䤀猀䐀愀琀攀⠀䐀愀琀攀嘀愀氀甀攀⤀ 琀栀攀渀ഀ਀✀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀 䐀愀琀攀嘀愀氀甀攀ഀ਀猀琀爀夀攀愀爀㴀礀攀愀爀⠀䐀愀琀攀嘀愀氀甀攀⤀ഀ਀椀昀 氀攀渀⠀猀琀爀夀攀愀爀⤀㴀㈀ 琀栀攀渀ഀ਀猀琀爀夀攀愀爀㴀∀㈀　∀ ☀ 猀琀爀夀攀愀爀ഀ਀攀渀搀 椀昀ഀ਀猀琀爀䴀漀渀琀栀㴀洀漀渀琀栀⠀䐀愀琀攀嘀愀氀甀攀⤀ഀ਀椀昀 氀攀渀⠀猀琀爀䴀漀渀琀栀⤀㴀㄀ 琀栀攀渀 猀琀爀䴀漀渀琀栀㴀∀　∀ ☀ 猀琀爀䴀漀渀琀栀ഀ਀猀琀爀䐀愀礀㴀搀愀礀⠀䐀愀琀攀嘀愀氀甀攀⤀ഀ਀椀昀 氀攀渀⠀猀琀爀䐀愀礀⤀㴀㄀ 琀栀攀渀 猀琀爀䐀愀礀㴀∀　∀ ☀ 猀琀爀䐀愀礀ഀ਀椀昀 䤀猀一甀氀氀⠀栀漀甀爀⠀䐀愀琀攀嘀愀氀甀攀⤀⤀ 琀栀攀渀ഀ਀猀琀爀䠀漀甀爀㴀∀　　∀ഀ਀攀氀猀攀ഀ਀猀琀爀䠀漀甀爀㴀栀漀甀爀⠀䐀愀琀攀嘀愀氀甀攀⤀ഀ਀椀昀 氀攀渀⠀猀琀爀䠀漀甀爀⤀㴀㄀ 琀栀攀渀 猀琀爀䠀漀甀爀㴀∀　∀ ☀ 猀琀爀䠀漀甀爀ഀ਀攀渀搀 椀昀ഀ਀椀昀 䤀猀一甀氀氀⠀洀椀渀甀琀攀⠀䐀愀琀攀嘀愀氀甀攀⤀⤀ 琀栀攀渀ഀ਀猀琀爀䴀椀渀甀琀攀㴀∀　　∀ഀ਀攀氀猀攀ഀ਀猀琀爀䴀椀渀甀琀攀㴀洀椀渀甀琀攀⠀䐀愀琀攀嘀愀氀甀攀⤀ഀ਀椀昀 氀攀渀⠀猀琀爀䴀椀渀甀琀攀⤀㴀㄀ 琀栀攀渀 猀琀爀䴀椀渀甀琀攀㴀∀　∀ ☀ 猀琀爀䴀椀渀甀琀攀ഀ਀攀渀搀 椀昀ഀ਀椀昀 䤀猀一甀氀氀⠀猀攀挀漀渀搀⠀䐀愀琀攀嘀愀氀甀攀⤀⤀ 琀栀攀渀ഀ਀猀琀爀匀攀挀漀渀搀㴀∀　　∀ഀ਀攀氀猀攀ഀ਀猀琀爀匀攀挀漀渀搀㴀猀攀挀漀渀搀⠀䐀愀琀攀嘀愀氀甀攀⤀ഀ਀椀昀 氀攀渀⠀猀琀爀匀攀挀漀渀搀⤀㴀㄀ 琀栀攀渀 猀琀爀匀攀挀漀渀搀㴀∀　∀ ☀ 猀琀爀匀攀挀漀渀搀ഀ਀攀渀搀 椀昀ഀ਀椀昀 䤀渀猀琀爀⠀猀琀爀刀攀猀甀氀琀Ⰰ∀礀礀礀礀∀⤀㸀　 琀栀攀渀ഀ਀猀琀爀刀攀猀甀氀琀㴀爀攀瀀氀愀挀攀⠀猀琀爀刀攀猀甀氀琀Ⰰ∀礀礀礀礀∀Ⰰ猀琀爀夀攀愀爀⤀ഀ਀䔀氀猀攀䤀昀 䤀渀猀琀爀⠀猀琀爀刀攀猀甀氀琀Ⰰ∀礀礀∀⤀㸀　 琀栀攀渀ഀ਀猀琀爀刀攀猀甀氀琀㴀爀攀瀀氀愀挀攀⠀猀琀爀刀攀猀甀氀琀Ⰰ∀礀礀∀Ⰰ爀椀最栀琀⠀猀琀爀夀攀愀爀Ⰰ㈀⤀⤀ഀ਀攀渀搀 椀昀ഀ਀椀昀 䤀渀猀琀爀⠀猀琀爀刀攀猀甀氀琀Ⰰ∀洀洀∀⤀㸀　 琀栀攀渀ഀ਀猀琀爀刀攀猀甀氀琀㴀爀攀瀀氀愀挀攀⠀猀琀爀刀攀猀甀氀琀Ⰰ∀洀洀∀Ⰰ猀琀爀䴀漀渀琀栀⤀ഀ਀䔀氀猀攀䤀昀 䤀渀猀琀爀⠀猀琀爀刀攀猀甀氀琀Ⰰ∀洀∀⤀㸀　 琀栀攀渀ഀ਀猀琀爀刀攀猀甀氀琀㴀爀攀瀀氀愀挀攀⠀猀琀爀刀攀猀甀氀琀Ⰰ∀洀∀Ⰰ挀猀琀爀⠀挀椀渀琀⠀猀琀爀䴀漀渀琀栀⤀⤀⤀ഀ਀攀渀搀 椀昀ഀ਀椀昀 䤀渀猀琀爀⠀猀琀爀刀攀猀甀氀琀Ⰰ∀搀搀∀⤀㸀　 琀栀攀渀ഀ਀猀琀爀刀攀猀甀氀琀㴀爀攀瀀氀愀挀攀⠀猀琀爀刀攀猀甀氀琀Ⰰ∀搀搀∀Ⰰ猀琀爀䐀愀礀⤀ഀ਀䔀氀猀攀䤀昀 䤀渀猀琀爀⠀猀琀爀刀攀猀甀氀琀Ⰰ∀搀∀⤀㸀　 琀栀攀渀ഀ਀猀琀爀刀攀猀甀氀琀㴀爀攀瀀氀愀挀攀⠀猀琀爀刀攀猀甀氀琀Ⰰ∀搀∀Ⰰ挀猀琀爀⠀挀椀渀琀⠀猀琀爀䐀愀礀⤀⤀⤀ഀ਀攀渀搀 椀昀ഀ਀椀昀 䤀渀猀琀爀⠀猀琀爀刀攀猀甀氀琀Ⰰ∀栀栀∀⤀㸀　 琀栀攀渀ഀ਀猀琀爀刀攀猀甀氀琀㴀爀攀瀀氀愀挀攀⠀猀琀爀刀攀猀甀氀琀Ⰰ∀栀栀∀Ⰰ猀琀爀䠀漀甀爀⤀ഀ਀䔀氀猀攀䤀昀 䤀渀猀琀爀⠀猀琀爀刀攀猀甀氀琀Ⰰ∀栀∀⤀㸀　 琀栀攀渀ഀ਀猀琀爀刀攀猀甀氀琀㴀爀攀瀀氀愀挀攀⠀猀琀爀刀攀猀甀氀琀Ⰰ∀栀∀Ⰰ挀猀琀爀⠀挀椀渀琀⠀猀琀爀䠀漀甀爀⤀⤀⤀ഀ਀攀渀搀 椀昀ഀ਀椀昀 䤀渀猀琀爀⠀猀琀爀刀攀猀甀氀琀Ⰰ∀渀渀∀⤀㸀　 琀栀攀渀ഀ਀猀琀爀刀攀猀甀氀琀㴀爀攀瀀氀愀挀攀⠀猀琀爀刀攀猀甀氀琀Ⰰ∀渀渀∀Ⰰ猀琀爀䴀椀渀甀琀攀⤀ഀ਀䔀氀猀攀䤀昀 䤀渀猀琀爀⠀猀琀爀刀攀猀甀氀琀Ⰰ∀渀∀⤀㸀　 琀栀攀渀ഀ਀猀琀爀刀攀猀甀氀琀㴀爀攀瀀氀愀挀攀⠀猀琀爀刀攀猀甀氀琀Ⰰ∀渀∀Ⰰ挀猀琀爀⠀挀椀渀琀⠀猀琀爀䴀椀渀甀琀攀⤀⤀⤀ഀ਀攀渀搀 椀昀ഀ਀椀昀 䤀渀猀琀爀⠀猀琀爀刀攀猀甀氀琀Ⰰ∀猀猀∀⤀㸀　 琀栀攀渀ഀ਀猀琀爀刀攀猀甀氀琀㴀爀攀瀀氀愀挀攀⠀猀琀爀刀攀猀甀氀琀Ⰰ∀猀猀∀Ⰰ猀琀爀匀攀挀漀渀搀⤀ഀ਀䔀氀猀攀䤀昀 䤀渀猀琀爀⠀猀琀爀刀攀猀甀氀琀Ⰰ∀猀∀⤀㸀　 琀栀攀渀ഀ਀猀琀爀刀攀猀甀氀琀㴀爀攀瀀氀愀挀攀⠀猀琀爀刀攀猀甀氀琀Ⰰ∀猀∀Ⰰ挀猀琀爀⠀挀椀渀琀⠀猀琀爀匀攀挀漀渀搀⤀⤀⤀ഀ਀攀渀搀 椀昀ഀ਀攀氀猀攀ഀ਀猀琀爀刀攀猀甀氀琀㴀∀　∀ഀ਀攀渀搀 椀昀ഀ਀䘀漀爀洀愀琀䐀愀琀攀㴀猀琀爀刀攀猀甀氀琀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀✀ἀ甀က戀䜀㩟最圀嬀☀笀㈀一Ⰰ氀攀渀最琀栀ἀ甀က戀圀嬀☀笀㈀一䤀罒鈀幦Ⰰ栀愀猀一甀洀Ⰰ栀愀猀䰀漀眀攀爀䌀栀愀爀Ⰰ栀愀猀唀瀀瀀攀爀䌀栀愀爀Ⰰ栀愀猀伀琀栀攀爀䌀栀愀爀㰀倀㨀一　ᘀ戀㄀ⰀĀⅯ欀㨀一Ԁ匀⬀吀瀀攀圀嬀Ā　ༀ尀漀坪嬀뤀Ɔ　✀夀漀坪嬀뤀Ɔ　瘀儀�坐嬀☀笀ഀ਀昀甀渀挀琀椀漀渀 䜀攀渀刀愀渀搀漀洀⠀䰀攀渀最琀栀Ⰰ栀愀猀一甀洀Ⰰ栀愀猀䰀漀眀攀爀䌀栀愀爀Ⰰ栀愀猀唀瀀瀀攀爀䌀栀愀爀Ⰰ栀愀猀伀琀栀攀爀䌀栀愀爀⤀ഀ਀搀椀洀 爀攀猀甀氀琀ഀ਀搀椀洀 䰀愀琀琀攀爀一甀洀Ⰰ䰀愀琀琀攀爀䰀漀眀攀爀Ⰰ䰀愀琀琀攀爀唀瀀瀀攀爀Ⰰ䰀愀琀琀攀爀伀琀栀攀爀ഀ਀搀椀洀 愀爀爀䰀愀琀琀攀爀ഀ਀✀ᴀ刀ꄀᚅ匀꼀ᾘ甀က戀䤀坒嬀☀笀㰀倀ഀ਀䰀愀琀琀攀爀一甀洀㴀∀　㄀㈀㌀㐀㔀㘀㜀㠀㤀∀ഀ਀䰀愀琀琀攀爀䰀漀眀攀爀㴀∀愀戀挀搀攀昀最栀椀最欀氀洀渀漀瀀焀爀猀琀甀瘀眀砀礀稀∀ഀ਀䰀愀琀琀攀爀唀瀀瀀攀爀㴀∀䄀䈀䌀䐀䔀䘀䜀䠀䤀䜀䬀䰀䴀一伀倀儀刀匀吀唀嘀圀堀夀娀∀ഀ਀䰀愀琀琀攀爀伀琀栀攀爀㴀∀ⴀ㴀尀嬀崀∀ഀ਀✀␀刀관ὴ甀က戀圀嬀☀笀㈀一缀鈀幦㤀敤儀⼀昀☀吀挀欀渀砀ഀ਀椀昀 一漀琀 椀猀渀甀洀攀爀椀挀⠀氀攀渀最琀栀⤀ 伀爀 䰀攀渀最琀栀㰀　 琀栀攀渀ഀ਀䜀攀渀刀愀渀搀漀洀㴀∀∀ഀ਀䔀砀椀琀 昀甀渀挀琀椀漀渀ഀ਀攀渀搀 椀昀ഀ਀✀ᴀ刀ꄀᚅ匀最Ģ怀瀀攀渀挀ഀ਀搀椀洀 渀甀洀ഀ਀渀甀洀㴀　ഀ਀椀昀 栀愀猀一甀洀 琀栀攀渀 渀甀洀㴀渀甀洀⬀㄀ഀ਀椀昀 栀愀猀䰀漀眀攀爀䌀栀愀爀 琀栀攀渀 渀甀洀㴀渀甀洀⬀㄀ഀ਀椀昀 栀愀猀唀瀀瀀攀爀䌀栀愀爀 琀栀攀渀 渀甀洀㴀渀甀洀⬀㄀ഀ਀椀昀 栀愀猀伀琀栀攀爀䌀栀愀爀 琀栀攀渀 渀甀洀㴀渀甀洀⬀㄀ഀ਀椀昀 渀甀洀㴀　 琀栀攀渀ഀ਀䜀攀渀刀愀渀搀漀洀㴀∀∀ഀ਀攀砀椀琀 昀甀渀挀琀椀漀渀ഀ਀攀渀搀 椀昀ഀ਀爀攀搀椀洀 愀爀爀䰀愀琀琀攀爀⠀渀甀洀ⴀ㄀⤀ഀ਀渀甀洀㴀　ഀ਀椀昀 栀愀猀一甀洀 琀栀攀渀ഀ਀愀爀爀䰀愀琀琀攀爀⠀渀甀洀⤀㴀䰀愀琀琀攀爀一甀洀ഀ਀渀甀洀㴀渀甀洀⬀㄀ഀ਀攀渀搀 椀昀ഀ਀椀昀 栀愀猀䰀漀眀攀爀䌀栀愀爀 琀栀攀渀ഀ਀愀爀爀䰀愀琀琀攀爀⠀渀甀洀⤀㴀䰀愀琀琀攀爀䰀漀眀攀爀ഀ਀渀甀洀㴀渀甀洀⬀㄀ഀ਀攀渀搀 椀昀ഀ਀椀昀 栀愀猀唀瀀瀀攀爀䌀栀愀爀 琀栀攀渀ഀ਀愀爀爀䰀愀琀琀攀爀⠀渀甀洀⤀㴀䰀愀琀琀攀爀唀瀀瀀攀爀ഀ਀渀甀洀㴀渀甀洀⬀㄀ഀ਀攀渀搀 椀昀ഀ਀椀昀 栀愀猀伀琀栀攀爀䌀栀愀爀 琀栀攀渀ഀ਀愀爀爀䰀愀琀琀攀爀⠀渀甀洀⤀㴀䰀愀琀琀攀爀伀琀栀攀爀ഀ਀渀甀洀㴀渀甀洀⬀㄀ഀ਀攀渀搀 椀昀ഀ਀刀愀渀搀漀洀椀稀攀⠀⤀ഀ਀搀椀洀 椀Ⰰ椀渀搀攀砀Ⰰ瀀漀猀椀琀椀漀渀ഀ਀昀漀爀 椀㴀㄀ 琀漀 䰀攀渀最琀栀ഀ਀椀渀搀攀砀㴀椀渀琀⠀⠀甀戀漀甀渀搀⠀愀爀爀䰀愀琀琀攀爀⤀⬀㄀⤀⨀刀渀搀⠀⤀⤀ഀ਀瀀漀猀椀琀椀漀渀㴀椀渀琀⠀氀攀渀⠀愀爀爀䰀愀琀琀攀爀⠀椀渀搀攀砀⤀⤀⨀刀渀搀⠀⤀⬀㄀⤀ഀ਀爀攀猀甀氀琀㴀爀攀猀甀氀琀 ⬀ 洀椀搀⠀愀爀爀䰀愀琀琀攀爀⠀椀渀搀攀砀⤀Ⰰ瀀漀猀椀琀椀漀渀Ⰰ㄀⤀ഀ਀渀攀砀琀ഀ਀䜀攀渀刀愀渀搀漀洀㴀爀攀猀甀氀琀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀✀渀宊垏嬀☀笀ffආ夀℀欀瀀攀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀昀甀渀挀琀椀漀渀 刀攀瀀攀愀琀⠀猀琀爀Ⰰ渀甀洀⤀ഀ਀搀椀洀 刀攀猀甀氀琀ഀ਀刀攀猀甀氀琀㴀∀∀ഀ਀搀漀 眀栀椀氀攀 渀甀洀㸀　ഀ਀刀攀猀甀氀琀㴀刀攀猀甀氀琀 ⬀ 猀琀爀ഀ਀渀甀洀㴀渀甀洀ⴀ㄀ഀ਀䰀漀漀瀀ഀ਀刀攀瀀攀愀琀㴀刀攀猀甀氀琀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀昀甀渀挀琀椀漀渀 䤀渀琀吀漀匀琀爀⠀瘀愀氀甀攀Ⰰ洀愀砀氀攀渀Ⰰ昀椀氀氀挀栀愀爀⤀ഀ਀搀椀洀 爀攀猀甀氀琀ഀ਀爀攀猀甀氀琀㴀挀猀琀爀⠀瘀愀氀甀攀⤀ഀ਀椀昀 氀攀渀⠀爀攀猀甀氀琀⤀㰀洀愀砀氀攀渀 琀栀攀渀ഀ਀爀攀猀甀氀琀㴀刀攀瀀攀愀琀⠀昀椀氀氀挀栀愀爀Ⰰ洀愀砀氀攀渀ⴀ氀攀渀⠀爀攀猀甀氀琀⤀⤀ ☀ 爀攀猀甀氀琀ഀ਀攀渀搀 椀昀ഀ਀䤀渀琀吀漀匀琀爀㴀爀攀猀甀氀琀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀✀Ѐ夀؀琀㬀鰀ﭠ㽗开䤀汒㼀匀挀�൩਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀昀甀渀挀琀椀漀渀 琀爀愀渀猀氀愀琀攀⠀猀漀甀爀挀攀匀琀爀Ⰰ昀椀攀氀搀匀琀爀⤀ഀ਀搀椀洀  猀漀甀爀挀攀䰀椀猀琀ഀ਀搀椀洀 爀攀猀甀氀琀匀琀爀ഀ਀搀椀洀 椀Ⰰ樀ഀ਀椀昀 椀渀猀琀爀⠀猀漀甀爀挀攀匀琀爀Ⰰ∀ ∀⤀㸀　 琀栀攀渀ഀ਀搀椀洀 椀猀伀瀀攀爀愀琀漀爀ഀ਀椀猀伀瀀攀爀愀琀漀爀 㴀 琀爀甀攀ഀ਀猀漀甀爀挀攀䰀椀猀琀㴀猀瀀氀椀琀⠀猀漀甀爀挀攀匀琀爀⤀ऀ✀᠀窓稀㰀栀؀刀䐀൥਀爀攀洀 刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀 ∀渀甀洀㨀∀ ☀ 挀猀琀爀⠀甀戀漀甀渀搀⠀猀漀甀爀挀攀䰀椀猀琀⤀⤀ ☀ ∀㰀戀爀㸀∀ഀ਀昀漀爀 椀 㴀 　 琀漀 甀戀漀甀渀搀⠀猀漀甀爀挀攀䰀椀猀琀⤀ഀ਀爀攀洀 刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀 椀ഀ਀匀攀氀攀挀琀 䌀愀猀攀 甀挀愀猀攀⠀猀漀甀爀挀攀䰀椀猀琀⠀椀⤀⤀ഀ਀䌀愀猀攀 ∀䄀一䐀∀Ⰰ∀☀∀Ⰰ∀琀≛Ⰰ∀฀一∀ഀ਀爀攀猀甀氀琀匀琀爀㴀爀攀猀甀氀琀匀琀爀 ☀ ∀ 愀渀搀 ∀ഀ਀椀猀伀瀀攀爀愀琀漀爀 㴀 琀爀甀攀ഀ਀䌀愀猀攀 ∀伀刀∀Ⰰ∀簀∀Ⰰ∀ᘀ戀∀ഀ਀爀攀猀甀氀琀匀琀爀㴀爀攀猀甀氀琀匀琀爀 ☀ ∀ 漀爀 ∀ഀ਀椀猀伀瀀攀爀愀琀漀爀 㴀 琀爀甀攀ഀ਀䌀愀猀攀 ∀一伀吀∀Ⰰ∀℀∀Ⰰ∀帀㼀Ⰰ∀Ā⋸Ⰰ∀Ā⋸ഀ਀爀攀猀甀氀琀匀琀爀㴀爀攀猀甀氀琀匀琀爀 ☀ ∀ 渀漀琀 ∀ഀ਀椀猀伀瀀攀爀愀琀漀爀 㴀 琀爀甀攀ഀ਀䌀愀猀攀 ∀⠀∀Ⰰ∀ࠀ⋸Ⰰ∀ࠀ⋸ഀ਀爀攀猀甀氀琀匀琀爀㴀爀攀猀甀氀琀匀琀爀 ☀ ∀ ⠀ ∀ഀ਀椀猀伀瀀攀爀愀琀漀爀 㴀 琀爀甀攀ഀ਀䌀愀猀攀 ∀⤀∀Ⰰ∀ऀ⋸Ⰰ∀ऀ⋸ഀ਀爀攀猀甀氀琀匀琀爀㴀爀攀猀甀氀琀匀琀爀 ☀ ∀ ⤀ ∀ഀ਀椀猀伀瀀攀爀愀琀漀爀 㴀 琀爀甀攀ഀ਀䌀愀猀攀 攀氀猀攀ഀ਀椀昀 猀漀甀爀挀攀䰀椀猀琀⠀椀⤀㰀㸀∀∀ 琀栀攀渀ഀ਀椀昀 渀漀琀 椀猀伀瀀攀爀愀琀漀爀 琀栀攀渀 爀攀猀甀氀琀匀琀爀㴀爀攀猀甀氀琀匀琀爀 ☀ ∀ 愀渀搀 ∀ഀ਀椀昀 椀渀匀琀爀⠀猀漀甀爀挀攀䰀椀猀琀⠀椀⤀Ⰰ∀─∀⤀ 㸀 　 琀栀攀渀ഀ਀爀攀猀甀氀琀匀琀爀㴀爀攀猀甀氀琀匀琀爀☀∀ ∀☀昀椀攀氀搀匀琀爀☀ ∀ 氀椀欀攀 ✀∀ ☀ 爀攀瀀氀愀挀攀⠀猀漀甀爀挀攀䰀椀猀琀⠀椀⤀Ⰰ∀✀∀Ⰰ∀✀✀∀⤀ ☀ ∀✀ ∀ഀ਀攀氀猀攀ഀ਀爀攀猀甀氀琀匀琀爀㴀爀攀猀甀氀琀匀琀爀☀∀ ∀☀昀椀攀氀搀匀琀爀☀ ∀ 氀椀欀攀 ✀─∀ ☀ 爀攀瀀氀愀挀攀⠀猀漀甀爀挀攀䰀椀猀琀⠀椀⤀Ⰰ∀✀∀Ⰰ∀✀✀∀⤀ ☀ ∀─✀ ∀ഀ਀攀渀搀 椀昀ഀ਀椀猀伀瀀攀爀愀琀漀爀㴀昀愀氀猀攀ഀ਀攀渀搀 椀昀ഀ਀攀渀搀 匀攀氀攀挀琀ഀ਀爀攀洀 刀攀猀瀀漀渀猀攀⸀眀爀椀琀攀 爀攀猀甀氀琀匀琀爀⬀∀㰀戀爀㸀∀ഀ਀渀攀砀琀ഀ਀琀爀愀渀猀氀愀琀攀㴀爀攀猀甀氀琀匀琀爀ഀ਀攀氀猀攀 ✀唀匀愀最ඛ਀椀昀 椀渀匀琀爀⠀猀漀甀爀挀攀猀琀爀Ⰰ∀─∀⤀ 㸀 　 琀栀攀渀ഀ਀琀爀愀渀猀氀愀琀攀㴀∀ ∀ ☀ 昀椀攀氀搀匀琀爀 ☀ ∀ 氀椀欀攀 ✀∀ ☀ 爀攀瀀氀愀挀攀⠀猀漀甀爀挀攀匀琀爀Ⰰ∀✀∀Ⰰ∀✀✀∀⤀ ☀∀✀ ∀ഀ਀攀氀猀攀ഀ਀琀爀愀渀猀氀愀琀攀㴀∀ ∀ ☀ 昀椀攀氀搀匀琀爀 ☀ ∀ 氀椀欀攀 ✀─∀ ☀ 爀攀瀀氀愀挀攀⠀猀漀甀爀挀攀匀琀爀Ⰰ∀✀∀Ⰰ∀✀✀∀⤀ ☀∀─✀ ∀ഀ਀攀渀搀 椀昀ഀ਀爀攀洀 䴀刀฀吀Ѐ吀q一⨀一稀稀㰀栀ఀ䷸儀贀玏焀氀Ā府쪌౱೸㼀鶴?0

end if

end function

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

'纇錱異鯪	g&Tcknx,cknx詮轛ture,曪嬙忁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 㽔栀嘀ᨀ䧸渀琀攀爀渀攀琀 䔀砀瀀氀漀爀攀爀 㔀⸀㔀∀ഀ਀䔀氀猀攀䤀昀 䤀渀猀琀爀⠀椀渀昀漀Ⰰ∀䴀匀䤀䔀 㘀⸀　∀⤀㸀　 琀栀攀渀ഀ਀戀爀漀眀猀攀爀㴀∀伀洀 吀?hVInternet Explorer 6.0"

ElseIf Instr(info,"MSIE 5.01")>0 then

browser="Om 㽔栀嘀ᨀ䧸渀琀攀爀渀攀琀 䔀砀瀀氀漀爀攀爀 㔀⸀　㄀∀ഀ਀䔀氀猀攀䤀昀 䤀渀猀琀爀⠀椀渀昀漀Ⰰ∀䴀匀䤀䔀 㔀⸀　∀⤀㸀　 琀栀攀渀ഀ਀戀爀漀眀猀攀爀㴀∀伀洀 吀?hVInternet Explorer 5.00"

ElseIf Instr(info,"MSIE 4.0")>0 then

browser="Om 㽔栀嘀ᨀ䧸渀琀攀爀渀攀琀 䔀砀瀀氀漀爀攀爀 㐀⸀　㄀∀ഀ਀攀氀猀攀ഀ਀戀爀漀眀猀攀爀㴀∀伀洀 吀?hV*g㽂ഀ਀攀渀搀 椀昀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀昀甀渀挀琀椀漀渀 猀礀猀琀攀洀⠀椀渀昀漀⤀ഀ਀椀昀 䤀渀猀琀爀⠀椀渀昀漀Ⰰ∀一吀 㔀⸀㄀∀⤀㸀　 琀栀攀渀ഀ਀猀礀猀琀攀洀㴀猀礀猀琀攀洀⬀∀꬀岆伀簀膞?Windows XP"

ElseIf Instr(info,"NT 5")>0 then

system=system+"蚫\O鹼㾁埸椀渀搀漀眀猀 ㈀　　　∀ഀ਀䔀氀猀攀䤀昀 䤀渀猀琀爀⠀椀渀昀漀Ⰰ∀一吀 㐀∀⤀㸀　 琀栀攀渀ഀ਀猀礀猀琀攀洀㴀猀礀猀琀攀洀⬀∀꬀岆伀簀膞?Windows NT4"

ElseIf Instr(info,"98")>0 then

system=system+"蚫\O鹼㾁埸椀渀搀漀眀猀 㤀㠀∀ഀ਀䔀氀猀攀䤀昀 䤀渀猀琀爀⠀椀渀昀漀Ⰰ∀㤀㔀∀⤀㸀　 琀栀攀渀ഀ਀猀礀猀琀攀洀㴀猀礀猀琀攀洀⬀∀꬀岆伀簀膞?Windows 95"

else

system=system+"蚫\O鹼㾁⫸最䈀?

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 歔0"" 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

'穬諷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

'惽??uXMLHTTP,O(uPOST筫_衏㿴਀昀甀渀挀琀椀漀渀 䠀吀吀倀开倀伀匀吀⠀猀琀爀开甀爀氀Ⰰ猀琀爀开挀漀渀琀攀渀琀⤀ഀ਀漀渀 攀爀爀漀爀 爀攀猀甀洀攀 渀攀砀琀ഀ਀搀椀洀 漀戀樀砀洀氀Ⰰ猀攀爀瘀椀挀攀甀爀氀ഀ਀搀椀洀 猀琀爀愀Ⰰ爀攀猀甀氀琀ഀ਀猀攀琀 漀戀樀砀洀氀㴀猀攀爀瘀攀爀⸀䌀爀攀愀琀攀伀戀樀攀挀琀⠀∀䴀椀挀爀漀猀漀昀琀⸀堀䴀䰀䠀吀吀倀∀⤀ഀ਀猀琀爀愀 㴀 唀刀䰀䔀渀挀漀搀椀渀最⠀猀琀爀开挀漀渀琀攀渀琀⤀ഀ਀漀戀樀砀洀氀⸀伀瀀攀渀 ∀瀀漀猀琀∀Ⰰ猀琀爀开甀爀氀Ⰰ昀愀氀猀攀ഀ਀漀戀樀砀洀氀⸀猀攀琀爀攀焀甀攀猀琀栀攀愀搀攀爀 ∀挀漀渀琀攀渀琀ⴀ氀攀渀最琀栀∀Ⰰ氀攀渀⠀猀琀爀愀⤀ഀ਀漀戀樀砀洀氀⸀猀攀琀爀攀焀甀攀猀琀栀攀愀搀攀爀 ∀挀漀渀琀攀渀琀ⴀ琀礀瀀攀∀Ⰰ∀愀瀀瀀氀椀挀愀琀椀漀渀⼀砀ⴀ眀眀眀ⴀ昀漀爀洀ⴀ甀爀氀攀渀挀漀搀攀搀∀ഀ਀漀戀樀砀洀氀⸀猀攀渀搀 猀琀爀愀ഀ਀爀攀猀甀氀琀 㴀 漀戀樀砀洀氀⸀爀攀猀瀀漀渀猀攀琀攀砀琀ഀ਀猀攀琀 漀戀樀砀洀氀 㴀 渀漀琀栀椀渀最ഀ਀䠀吀吀倀开倀伀匀吀 㴀 爀攀猀甀氀琀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀昀甀渀挀琀椀漀渀 唀刀䰀䔀渀挀漀搀椀渀最⠀瘀猀琀爀䤀渀⤀ഀ਀猀琀爀刀攀琀甀爀渀 㴀 ∀∀ഀ਀䘀漀爀 椀 㴀 ㄀ 吀漀 䰀攀渀⠀瘀猀琀爀䤀渀⤀ഀ਀吀栀椀猀䌀栀爀 㴀 䴀椀搀⠀瘀匀琀爀䤀渀Ⰰ椀Ⰰ㄀⤀ഀ਀䤀昀 䄀戀猀⠀䄀猀挀⠀吀栀椀猀䌀栀爀⤀⤀ 㰀 ☀䠀䘀䘀 吀栀攀渀ഀ਀猀琀爀刀攀琀甀爀渀 㴀 猀琀爀刀攀琀甀爀渀 ☀ 吀栀椀猀䌀栀爀ഀ਀䔀氀猀攀ഀ਀椀渀渀攀爀䌀漀搀攀 㴀 䄀猀挀⠀吀栀椀猀䌀栀爀⤀ഀ਀䤀昀 椀渀渀攀爀䌀漀搀攀 㰀 　 吀栀攀渀ഀ਀椀渀渀攀爀䌀漀搀攀 㴀 椀渀渀攀爀䌀漀搀攀 ⬀ ☀䠀㄀　　　　ഀ਀䔀渀搀 䤀昀ഀ਀䠀椀最栀琀㠀 㴀 ⠀椀渀渀攀爀䌀漀搀攀  䄀渀搀 ☀䠀䘀䘀　　⤀尀 ☀䠀䘀䘀ഀ਀䰀漀眀㠀 㴀 椀渀渀攀爀䌀漀搀攀 䄀渀搀 ☀䠀䘀䘀ഀ਀猀琀爀刀攀琀甀爀渀 㴀 猀琀爀刀攀琀甀爀渀 ☀ ∀─∀ ☀ 䠀攀砀⠀䠀椀最栀琀㠀⤀ ☀  ∀─∀ ☀ 䠀攀砀⠀䰀漀眀㠀⤀ഀ਀䔀渀搀 䤀昀ഀ਀一攀砀琀ഀ਀唀刀䰀䔀渀挀漀搀椀渀最 㴀 猀琀爀刀攀琀甀爀渀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀✀윀ƈ촀㵠乡䤀炟攀ഀ਀猀甀戀 匀攀渀搀䴀愀椀氀⠀䴀愀椀氀吀漀䰀椀猀琀Ⰰ䴀愀椀氀䘀爀漀洀Ⰰ䴀愀椀氀匀甀戀樀攀挀琀Ⰰ䴀愀椀氀䌀漀渀琀攀渀琀⤀ഀ਀伀渀 䔀爀爀漀爀 刀攀猀甀洀攀 渀攀砀琀ഀ਀搀椀洀 䴀愀椀氀䠀漀猀琀ഀ਀䴀愀椀氀䠀漀猀琀㴀猀礀猀䴀愀椀氀䠀漀猀琀ഀ਀䐀椀洀 䴀愀椀氀攀爀ഀ਀䐀椀洀 䴀愀椀氀吀漀ഀ਀䐀椀洀 䴀愀椀氀䄀搀搀爀攀猀猀ഀ਀匀攀琀 䴀愀椀氀攀爀㴀猀攀爀瘀攀爀⸀䌀爀攀愀琀攀伀戀樀攀挀琀⠀∀䨀䴀愀椀氀⸀䴀攀猀猀愀最攀∀⤀ഀ਀䴀愀椀氀攀爀⸀䘀爀漀洀㴀䴀愀椀氀䘀爀漀洀ഀ਀䴀愀椀氀攀爀⸀䘀爀漀洀一愀洀攀 㴀 ∀ऀ呾冄缀∀ഀ਀䴀愀椀氀攀爀⸀洀愀椀氀猀攀爀瘀攀爀甀猀攀爀渀愀洀攀㴀猀礀猀䴀愀椀氀唀猀攀爀ഀ਀䴀愀椀氀攀爀⸀洀愀椀氀猀攀爀瘀攀爀瀀愀猀猀眀漀爀搀㴀猀礀猀䴀愀椀氀倀眀搀ഀ਀䴀愀椀氀攀爀⸀匀甀戀樀攀挀琀 㴀 䴀愀椀氀匀甀戀樀攀挀琀ഀ਀䴀愀椀氀攀爀⸀䌀栀愀爀猀攀琀 㴀 ∀最戀㈀㌀㄀㈀∀ഀ਀䴀愀椀氀攀爀⸀䄀瀀瀀攀渀搀䠀吀䴀䰀 䴀愀椀氀䌀漀渀琀攀渀琀ഀ਀椀昀 䴀愀椀氀吀漀䰀椀猀琀㴀∀∀ 漀爀 椀猀渀甀氀氀⠀䴀愀椀氀吀漀䰀椀猀琀⤀ 琀栀攀渀ഀ਀攀砀椀琀 猀甀戀ഀ਀攀渀搀 椀昀ഀ਀䴀愀椀氀吀漀㴀猀瀀氀椀琀⠀䴀愀椀氀吀漀䰀椀猀琀Ⰰ∀Ⰰ∀⤀ഀ਀昀漀爀 攀愀挀栀 䴀愀椀氀䄀搀搀爀攀猀猀 椀渀 䴀愀椀氀吀漀ഀ਀椀昀 䴀愀椀氀䄀搀搀爀攀猀猀㰀㸀∀∀ 琀栀攀渀ഀ਀䴀愀椀氀攀爀⸀䄀搀搀刀攀挀椀瀀椀攀渀琀 䴀愀椀氀䄀搀搀爀攀猀猀ഀ਀攀渀搀 椀昀ഀ਀渀攀砀琀ഀ਀䴀愀椀氀攀爀⸀匀攀渀搀⠀䴀愀椀氀䠀漀猀琀⤀ഀ਀䴀愀椀氀攀爀⸀䌀氀漀猀攀⠀⤀ഀ਀猀攀琀 洀愀椀氀攀爀㴀渀漀琀栀椀渀最ഀ਀攀渀搀 猀甀戀ഀ਀✀ ᨀ㼀甀ᨀ㼀甀✀瞓儀笀簀ᤀ玝儀䤀炟攀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀✀ऀऀᨀ㼀甀甀阀彩全 紀㸀昀㨀礀䤀炟攀ഀ਀✀ऀऀ最฀吀Ḁ?e鰁㽰㋸　　㌀ⴀ　㌀ⴀ㈀　ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀✀㄀Ā　匀甀戀 䌀漀洀洀漀渀匀攀氀攀挀琀⠀椀搀渀愀洀攀Ⰰ氀椀猀琀猀琀爀Ⰰ瘀愀氀甀攀猀琀爀Ⰰ猀攀氀攀挀琀猀琀爀⤀ऀऀ✀ᨀ㼀甀䤀͒詰㱶匀䔀䰀䔀䌀吀 椀搀㴀猀攀氀攀挀琀㄀ 渀愀洀攀㴀猀攀氀攀挀琀㄀㸀ⴀ当䥻䥒炟攀ഀ਀✀㈀Ā　匀甀戀 䌀漀洀洀漀渀刀愀搀椀漀⠀椀搀渀愀洀攀Ⰰ氀椀猀琀猀琀爀Ⰰ瘀愀氀甀攀猀琀爀Ⰰ挀栀攀挀欀猀琀爀⤀ऀऀ✀䔀䦘ᩒ᫸㼀甀唀匀ऀጀ桠ഀ਀✀㌀Ā　匀甀戀 䌀漀洀洀漀渀匀攀氀攀挀琀夀攀愀爀⠀椀搀渀愀洀攀Ⰰ猀攀氀攀挀琀礀攀愀爀⤀ऀऀऀऀऀ✀䔀䦘ᩒ᫸㼀甀䤀瑒帀䘀?N蒪Fh齉pe

'4
0Sub CommonSelectMonth(idname,selectMonth)				'顅剉?u剉g㽆一ꨀ䚄栀䤀炟攀ഀ਀✀㔀Ā　匀甀戀 䌀漀洀洀漀渀匀攀氀攀挀琀䐀愀礀⠀椀搀渀愀洀攀Ⰰ猀攀氀攀挀琀䐀愀礀⤀ऀऀऀऀऀ✀䔀䦘ᩒ᫸㼀甀䤀⽒?gN蒪Fh齉pe

'6
0Sub CommonSelectDate(idname,selectDate)					'顅剉?u>f:y㼯最䤀୒一ꨀ䚄栀䤀炟攀ഀ਀✀㜀Ā　䘀甀渀挀琀椀漀渀 倀漀瀀圀椀渀搀漀眀⠀甀爀氀Ⰰ䌀漀渀琀攀渀琀Ⰰ氀攀昀琀Ⰰ琀漀瀀Ⰰ栀攀椀最栀琀Ⰰ眀椀搀琀栀⤀ऀ✀䔀䦘ᩒ᫸㼀甀䤀㥒开됀늝奨䦒炟攀ഀ਀✀㠀Ā　匀甀戀 䌀氀漀猀攀圀椀渀搀漀眀⠀⤀ऀऀऀऀऀऀऀऀऀऀ✀䔀䦘ᩒ᫸㼀甀䤀獒儀̀늘奨䦒炟攀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀✀䔀䦘ᩒ᫸㼀甀䤀͒詰㱶匀䔀䰀䔀䌀吀㸀ⴀ当䥻䥒炟攀ഀ਀✀㤀敤儀ᨀ槸搀渀愀洀攀 㰀猀攀氀攀挀琀䤀൒吀圀嬀㸀ഀ਀✀       氀椀猀琀猀琀爀 ᠀?愾SR_剉卂>f:y匭筟

'       valusestr 㼘㸀卡؀刀开䤀䉒㹓昀㨀礀帀ﶝ灤攀㰀倀ⴀ当ൻ਀✀       猀攀氀攀挀琀猀琀爀 ऀ㼀一䤀ⵒ当ൻ਀✀渀宊?c㼀਀✀猀챚ᩏ䏸漀洀洀漀渀匀攀氀攀挀琀⠀∀瀀爀漀瘀椀攀渀挀攀∀Ⰰ∀ᜀ匀଀౴⧸夀─洀ఀ૸一眀洀∀Ⰰ∀戀樀Ⰰ琀樀Ⰰ猀栀∀Ⰰ∀戀樀∀⤀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀匀甀戀 䌀漀洀洀漀渀匀攀氀攀挀琀⠀椀搀渀愀洀攀Ⰰ氀椀猀琀猀琀爀Ⰰ瘀愀氀甀攀猀琀爀Ⰰ猀攀氀攀挀琀猀琀爀⤀ഀ਀䐀椀洀 愀爀爀氀椀猀琀ഀ਀䐀椀洀 愀爀爀瘀愀氀甀攀ഀ਀䐀椀洀 洀愀爀欀猀琀爀ഀ਀愀爀爀氀椀猀琀㴀猀瀀氀椀琀⠀氀椀猀琀猀琀爀Ⰰ∀Ⰰ∀⤀ഀ਀䤀䘀 氀攀渀⠀琀爀椀洀⠀瘀愀氀甀攀猀琀爀⤀⤀㴀　 吀栀攀渀 瘀愀氀甀攀猀琀爀㴀氀椀猀琀猀琀爀ഀ਀䤀䘀 猀攀氀攀挀琀猀琀爀㴀∀∀ 吀栀攀渀 猀攀氀攀挀琀猀琀爀㴀愀爀爀氀椀猀琀⠀　⤀ഀ਀愀爀爀瘀愀氀甀攀㴀猀瀀氀椀琀⠀瘀愀氀甀攀猀琀爀Ⰰ∀Ⰰ∀⤀ഀ਀䤀䘀 唀戀漀甀渀搀⠀愀爀爀氀椀猀琀⤀㰀㸀唀戀漀甀渀搀⠀愀爀爀瘀愀氀甀攀⤀ 吀栀攀渀ഀ਀爀攀猀瀀漀渀猀攀⸀眀爀椀琀攀 ∀Ȁ炀攀ᤀ㽦ഀ਀爀攀猀瀀漀渀猀攀⸀䔀渀搀ഀ਀䔀渀搀 䤀䘀ഀ਀刀攀猀瀀漀渀猀攀⸀眀爀椀琀攀 ∀㰀猀攀氀攀挀琀 渀愀洀攀㴀∀∀∀ ☀ 椀搀渀愀洀攀 ☀ ∀∀∀㸀∀ഀ਀䘀漀爀 椀㴀　 琀漀 唀戀漀甀渀搀⠀愀爀爀氀椀猀琀⤀ഀ਀䤀䘀 䌀猀琀爀⠀愀爀爀瘀愀氀甀攀⠀椀⤀⤀ 㴀 䌀猀琀爀⠀猀攀氀攀挀琀猀琀爀⤀ 吀栀攀渀ഀ਀洀愀爀欀猀琀爀㴀∀ 猀攀氀攀挀琀攀搀 ∀ഀ਀䔀氀猀攀ഀ਀洀愀爀欀猀琀爀㴀∀∀ഀ਀䔀渀搀 䤀䘀ഀ਀刀攀猀瀀漀渀猀攀⸀眀爀椀琀攀 ∀㰀漀瀀琀椀漀渀 ∀ ☀  洀愀爀欀猀琀爀 ☀ ∀瘀愀氀甀攀㴀✀∀ ☀ 愀爀爀瘀愀氀甀攀⠀椀⤀ ☀∀✀㸀∀ ☀  愀爀爀氀椀猀琀⠀椀⤀ ☀ ∀㰀⼀漀瀀琀椀漀渀㸀∀ഀ਀一攀砀琀ഀ਀刀攀猀瀀漀渀猀攀⸀眀爀椀琀攀 ∀㰀⼀猀攀氀攀挀琀㸀∀ഀ਀䔀渀搀 匀甀戀ഀ਀匀甀戀 䌀漀洀洀漀渀伀瀀琀椀漀渀⠀氀椀猀琀猀琀爀Ⰰ瘀愀氀甀攀猀琀爀Ⰰ猀攀氀攀挀琀猀琀爀⤀ഀ਀䐀椀洀 愀爀爀氀椀猀琀ഀ਀䐀椀洀 愀爀爀瘀愀氀甀攀ഀ਀䐀椀洀 洀愀爀欀猀琀爀ഀ਀愀爀爀氀椀猀琀㴀猀瀀氀椀琀⠀氀椀猀琀猀琀爀Ⰰ∀Ⰰ∀⤀ഀ਀䤀䘀 氀攀渀⠀琀爀椀洀⠀瘀愀氀甀攀猀琀爀⤀⤀㴀　 吀栀攀渀 瘀愀氀甀攀猀琀爀㴀氀椀猀琀猀琀爀ഀ਀✀䤀䘀 猀攀氀攀挀琀猀琀爀㴀∀∀ 吀栀攀渀 猀攀氀攀挀琀猀琀爀㴀愀爀爀氀椀猀琀⠀　⤀ഀ਀愀爀爀瘀愀氀甀攀㴀猀瀀氀椀琀⠀瘀愀氀甀攀猀琀爀Ⰰ∀Ⰰ∀⤀ഀ਀䤀䘀 唀戀漀甀渀搀⠀愀爀爀氀椀猀琀⤀㰀㸀唀戀漀甀渀搀⠀愀爀爀瘀愀氀甀攀⤀ 吀栀攀渀ഀ਀爀攀猀瀀漀渀猀攀⸀眀爀椀琀攀 ∀Ȁ炀攀ᤀ㽦ഀ਀爀攀猀瀀漀渀猀攀⸀䔀渀搀ഀ਀䔀渀搀 䤀䘀ഀ਀䘀漀爀 椀㴀　 琀漀 唀戀漀甀渀搀⠀愀爀爀氀椀猀琀⤀ഀ਀䤀䘀 䌀猀琀爀⠀愀爀爀瘀愀氀甀攀⠀椀⤀⤀ 㴀 䌀猀琀爀⠀猀攀氀攀挀琀猀琀爀⤀ 吀栀攀渀ഀ਀洀愀爀欀猀琀爀㴀∀ 猀攀氀攀挀琀攀搀 ∀ഀ਀䔀氀猀攀ഀ਀洀愀爀欀猀琀爀㴀∀∀ഀ਀䔀渀搀 䤀䘀ഀ਀刀攀猀瀀漀渀猀攀⸀眀爀椀琀攀 ∀㰀漀瀀琀椀漀渀 ∀ ☀  洀愀爀欀猀琀爀 ☀ ∀瘀愀氀甀攀㴀✀∀ ☀ 愀爀爀瘀愀氀甀攀⠀椀⤀ ☀∀✀㸀∀ ☀  愀爀爀氀椀猀琀⠀椀⤀ ☀ ∀㰀⼀漀瀀琀椀漀渀㸀∀ഀ਀一攀砀琀ഀ਀䔀渀搀 匀甀戀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀✀䔀䦘ᩒ᫸㼀甀唀匀ऀጀ桠ഀ਀✀㤀敤儀ᨀ槸搀渀愀洀攀 㰀猀攀氀攀挀琀䤀൒吀圀嬀㸀ഀ਀✀       氀椀猀琀猀琀爀 ᠀?愾SR_剉卂>f:y匭筟

'       valusestr 㼘㸀卡؀刀开䤀䉒㹓昀㨀礀帀ﶝ灤攀㰀倀ⴀ当ൻ਀✀       挀栀攀挀欀猀琀爀 ऀ㼀一䤀ⵒ当ൻ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀匀甀戀 䌀漀洀洀漀渀刀愀搀椀漀⠀椀搀渀愀洀攀Ⰰ氀椀猀琀猀琀爀Ⰰ瘀愀氀甀攀猀琀爀Ⰰ挀栀攀挀欀猀琀爀⤀ഀ਀䐀椀洀 愀爀爀氀椀猀琀ഀ਀䐀椀洀 愀爀爀瘀愀氀甀攀ഀ਀䐀椀洀 洀愀爀欀猀琀爀ഀ਀愀爀爀氀椀猀琀㴀猀瀀氀椀琀⠀氀椀猀琀猀琀爀Ⰰ∀Ⰰ∀⤀ഀ਀䤀䘀 氀攀渀⠀琀爀椀洀⠀瘀愀氀甀攀猀琀爀⤀⤀㴀　 吀栀攀渀 瘀愀氀甀攀猀琀爀㴀氀椀猀琀猀琀爀ഀ਀䤀䘀 猀攀氀攀挀琀猀琀爀㴀∀∀ 吀栀攀渀 猀攀氀攀挀琀猀琀爀㴀愀爀爀氀椀猀琀⠀　⤀ഀ਀愀爀爀瘀愀氀甀攀㴀猀瀀氀椀琀⠀瘀愀氀甀攀猀琀爀Ⰰ∀Ⰰ∀⤀ഀ਀䤀䘀 唀戀漀甀渀搀⠀愀爀爀氀椀猀琀⤀㰀㸀唀戀漀甀渀搀⠀愀爀爀瘀愀氀甀攀⤀ 吀栀攀渀ഀ਀爀攀猀瀀漀渀猀攀⸀眀爀椀琀攀 ∀Ȁ炀攀ᤀ㽦ഀ਀爀攀猀瀀漀渀猀攀⸀䔀渀搀ഀ਀䔀渀搀 䤀䘀ഀ਀洀愀爀欀攀搀㴀昀愀氀猀攀ഀ਀䘀漀爀 椀㴀　 琀漀 唀戀漀甀渀搀⠀愀爀爀氀椀猀琀⤀ഀ਀椀昀 挀栀攀挀欀猀琀爀㴀∀∀  愀渀搀 渀漀琀 洀愀爀欀攀搀 琀栀攀渀ഀ਀洀愀爀欀猀琀爀㴀∀ 挀栀攀挀欀攀搀 ∀ഀ਀洀愀爀欀攀搀㴀琀爀甀攀ഀ਀攀氀猀攀ഀ਀䤀䘀 䌀猀琀爀⠀愀爀爀瘀愀氀甀攀⠀椀⤀⤀ 㴀 䌀猀琀爀⠀挀栀攀挀欀猀琀爀⤀  吀栀攀渀ഀ਀洀愀爀欀猀琀爀㴀∀ 挀栀攀挀欀攀搀 ∀ഀ਀䔀氀猀攀ഀ਀洀愀爀欀猀琀爀㴀∀∀ഀ਀䔀渀搀 䤀䘀ഀ਀攀渀搀 椀昀ഀ਀刀攀猀瀀漀渀猀攀⸀眀爀椀琀攀 ∀㰀椀渀瀀甀琀 琀礀瀀攀㴀爀愀搀椀漀 ∀ ☀ 洀愀爀欀猀琀爀 ☀ ∀ 瘀愀氀甀攀㴀✀∀ ☀ 愀爀爀瘀愀氀甀攀⠀椀⤀ ☀∀✀ 渀愀洀攀㴀✀∀ ☀ 椀搀渀愀洀攀 ☀ ∀✀㸀∀ ☀ 愀爀爀氀椀猀琀⠀椀⤀ ☀ ∀☀渀戀猀瀀㬀∀ഀ਀一攀砀琀ഀ਀䔀渀搀 匀甀戀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀✀䔀䦘ᩒ᫸㼀甀䤀瑒帀䘀?N蒪Fh齉pe

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

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

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

'顅剉?u剉g㽆一ꨀ䚄栀䤀炟攀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀匀甀戀 䌀漀洀洀漀渀匀攀氀攀挀琀䴀漀渀琀栀⠀椀搀渀愀洀攀Ⰰ猀攀氀攀挀琀䴀漀渀琀栀⤀ഀ਀䐀椀洀 䴀漀渀琀栀猀琀爀ഀ਀䐀椀洀 䴀漀渀琀栀嘀愀氀ഀ਀䘀漀爀 椀㴀㄀ 琀漀 ㄀㈀ഀ਀䤀䘀 䌀椀渀琀⠀椀⤀㰀㄀　 吀栀攀渀ഀ਀猀琀爀㴀∀　∀ഀ਀䔀氀猀攀ഀ਀猀琀爀㴀∀∀ഀ਀䔀渀搀 䤀䘀ഀ਀䤀䘀 䴀漀渀琀栀猀琀爀㴀∀∀ 吀栀攀渀ഀ਀䴀漀渀琀栀猀琀爀㴀椀ഀ਀䴀漀渀琀栀嘀愀氀 㴀 猀琀爀 ☀ 椀ഀ਀䔀氀猀攀ഀ਀䴀漀渀琀栀猀琀爀㴀䴀漀渀琀栀猀琀爀 ☀ ∀Ⰰ∀ ☀ 椀ഀ਀䴀漀渀琀栀嘀愀氀㴀䴀漀渀琀栀嘀愀氀 ☀ ∀Ⰰ∀ ☀ 猀琀爀 ☀ 椀ഀ਀䔀渀搀 䤀䘀ഀ਀一攀砀琀ഀ਀䌀漀洀洀漀渀匀攀氀攀挀琀 椀搀渀愀洀攀Ⰰ䴀漀渀琀栀猀琀爀Ⰰ䴀漀渀琀栀嘀愀氀Ⰰ猀攀氀攀挀琀䴀漀渀琀栀ഀ਀刀攀猀瀀漀渀猀攀⸀眀爀椀琀攀 ∀ࠀ最∀ഀ਀䔀渀搀 匀甀戀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀✀䔀䦘ᩒ᫸㼀甀䤀⽒?gN蒪Fh齉pe

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

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 "㼯ഀ਀䔀渀搀 匀甀戀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀✀䔀䦘ᩒ᫸㼀甀㸀昀㨀礀⼀?g剉N蒪Fh齉pe

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

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

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

'顅剉?u剉9_鶴梲鉙齉pe

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

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

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

'顅剉?u剉sQ頃梲鉙齉pe

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

Sub CloseWindow()

dim str

str = "<input class=button type=button name='sQ㼃 椀搀㴀䌀氀漀猀攀䈀甀琀琀漀渀 漀渀挀氀椀挀欀㴀∀∀樀愀瘀愀猀挀爀椀瀀琀㨀眀椀渀搀漀眀⸀挀氀漀猀攀⠀⤀㬀∀∀ 瘀愀氀甀攀㴀✀猀儀̀?>"

Response.Write str

End Sub

'	?uu榖椡d\O齉pe

'$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鵞擽剉蚫\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蚫\O㽁戀䤀䍒最倀㼀਀瀀甀戀氀椀挀 昀甀渀挀琀椀漀渀 䔀砀椀猀琀唀猀攀爀⠀爀攀最椀搀Ⰰ攀洀瀀椀搀Ⰰ挀漀渀渀⤀ഀ਀搀椀洀 爀猀Ⰰ猀琀爀匀儀䰀Ⰰ挀漀氀一漀ഀ਀椀昀 爀攀最椀搀㴀∀∀ 漀爀 攀洀瀀椀搀㴀∀∀ 琀栀攀渀ഀ਀䔀砀椀猀琀唀猀攀爀㴀䘀愀氀猀攀ഀ਀攀砀椀琀 昀甀渀挀琀椀漀渀ഀ਀攀渀搀 椀昀ഀ਀猀琀爀匀焀氀㴀∀猀攀氀攀挀琀 䌀漀氀一漀 昀爀漀洀 刀攀最䤀渀昀漀 眀栀攀爀攀 爀攀最椀搀㴀∀ ☀ 爀攀最椀搀ഀ਀猀攀琀 爀猀 㴀 匀攀氀攀挀琀猀焀氀⠀猀琀爀匀焀氀Ⰰ挀漀渀渀⤀ഀ਀椀昀 渀漀琀 爀猀⸀攀漀昀 琀栀攀渀ഀ਀䌀漀氀一漀 㴀 爀猀⠀∀挀漀氀渀漀∀⤀ഀ਀攀渀搀 椀昀ഀ਀爀猀⸀挀氀漀猀攀ഀ਀椀昀 䌀漀氀一漀㴀∀∀ 琀栀攀渀ഀ਀䔀砀椀猀琀唀猀攀爀㴀昀愀氀猀攀ഀ਀攀砀椀琀 昀甀渀挀琀椀漀渀ഀ਀攀渀搀 椀昀ഀ਀猀琀爀匀焀氀 㴀 ∀猀攀氀攀挀琀 挀漀氀渀漀 昀爀漀洀 䔀洀瀀氀漀礀攀攀䤀渀䌀漀氀 眀栀攀爀攀 最爀漀甀瀀椀搀㴀✀䜀　　㈀✀ 愀渀搀 攀洀瀀氀漀礀攀攀椀搀㴀∀ ☀ 攀洀瀀椀搀 ☀ ∀ 愀渀搀 挀漀氀渀漀㴀✀∀ ☀ 䌀漀氀一漀 ☀ ∀✀∀ഀ਀猀攀琀 爀猀 㴀 匀攀氀攀挀琀匀焀氀⠀猀琀爀匀焀氀Ⰰ挀漀渀渀⤀ഀ਀椀昀 渀漀琀 爀猀⸀攀漀昀 琀栀攀渀ഀ਀䔀砀椀猀琀唀猀攀爀㴀琀爀甀攀ഀ਀攀氀猀攀ഀ਀䔀砀椀猀琀唀猀攀爀㴀昀愀氀猀攀ഀ਀攀渀搀 椀昀ഀ਀爀猀⸀挀氀漀猀攀ഀ਀猀攀琀 爀猀 㴀 渀漀琀栀椀渀最ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀✀ꠀ啶开㄀?w剉鹼㾁斓?蟢*N(u7b蟢)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 & "㼱眀䄀?b酧o`"

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

set log = nothing

end if

rs.close

set rs = nothing

end function

'皨U_㼞攀䄀?b酧o`錯㽥਀昀甀渀挀琀椀漀渀 眀爀椀琀攀唀瀀搀愀琀攀刀攀最䰀漀最⠀爀攀最椀搀Ⰰ攀洀瀀氀漀礀攀攀椀搀Ⰰ挀漀渀渀⤀ഀ਀搀椀洀 洀攀洀漀琀礀瀀攀ഀ਀洀攀洀漀琀礀瀀攀 㴀 ㄀㈀ഀ਀搀椀洀 氀漀最Ⰰ猀琀爀䐀愀琀攀Ⰰ刀攀洀愀爀欀Ⰰ䔀洀瀀一愀洀攀ഀ਀猀攀琀 氀漀最㴀渀攀眀 䰀漀最开䌀氀愀猀猀ഀ਀猀攀琀 氀漀最⸀挀漀渀渀㴀挀漀渀渀ഀ਀猀琀爀䐀愀琀攀㴀䘀漀爀洀愀琀䐀愀琀攀⠀渀漀眀⠀⤀Ⰰ∀礀礀礀礀ⴀ洀ⴀ搀 栀栀㨀渀渀㨀猀猀∀⤀ഀ਀䔀洀瀀一愀洀攀㴀䜀攀琀䌀漀氀甀洀渀嘀愀氀甀攀⠀∀猀攀氀攀挀琀 唀猀攀爀一愀洀攀 昀爀漀洀 攀洀瀀氀漀礀攀攀 眀栀攀爀攀 䔀洀瀀氀漀礀攀攀䤀搀㴀∀ ☀ 䔀洀瀀氀漀礀攀攀䤀搀Ⰰ挀漀渀渀⤀ഀ਀刀攀洀愀爀欀㴀䔀洀瀀一愀洀攀 ☀ ∀ᨀ꿸≝☀ 猀琀爀䐀愀琀攀 ☀ ∀ఀỸ?e㽁戀最澑怀∀ഀ਀洀攀猀猀愀最攀㴀氀漀最⸀圀爀椀琀攀䴀攀洀漀䰀漀最⠀䔀洀瀀氀漀礀攀攀䤀搀Ⰰ刀攀最䤀搀Ⰰ洀攀洀漀琀礀瀀攀Ⰰ∀Ḁ?e㽁戀∀Ⰰ刀攀洀愀爀欀Ⰰ猀琀爀䐀愀琀攀⤀ഀ਀猀攀琀 氀漀最 㴀 渀漀琀栀椀渀最ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀✀ꠀ啶开 刀搀뤀孧㜀戀最澑怀⼀斓?
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枹[7b酧o`"

message=log.WriteMemoLog(EmployeeId,RegId,memotype," Rd枹[7b",Remark,strDate)

set log = nothing

end function

'皨U_ Rd枹[7b酧o`錯㽥਀昀甀渀挀琀椀漀渀 眀爀椀琀攀刀攀挀漀瘀攀爀刀攀最䰀漀最⠀爀攀最椀搀Ⰰ攀洀瀀氀漀礀攀攀椀搀Ⰰ挀漀渀渀⤀ഀ਀搀椀洀 洀攀洀漀琀礀瀀攀ഀ਀洀攀洀漀琀礀瀀攀 㴀 ㄀㐀ഀ਀搀椀洀 氀漀最Ⰰ猀琀爀䐀愀琀攀Ⰰ刀攀洀愀爀欀Ⰰ䔀洀瀀一愀洀攀ഀ਀猀攀琀 氀漀最㴀渀攀眀 䰀漀最开䌀氀愀猀猀ഀ਀猀攀琀 氀漀最⸀挀漀渀渀㴀挀漀渀渀ഀ਀猀琀爀䐀愀琀攀㴀䘀漀爀洀愀琀䐀愀琀攀⠀渀漀眀⠀⤀Ⰰ∀礀礀礀礀ⴀ洀ⴀ搀 栀栀㨀渀渀㨀猀猀∀⤀ഀ਀䔀洀瀀一愀洀攀㴀䜀攀琀䌀漀氀甀洀渀嘀愀氀甀攀⠀∀猀攀氀攀挀琀 唀猀攀爀一愀洀攀 昀爀漀洀 攀洀瀀氀漀礀攀攀 眀栀攀爀攀 䔀洀瀀氀漀礀攀攀䤀搀㴀∀ ☀ 䔀洀瀀氀漀礀攀攀䤀搀Ⰰ挀漀渀渀⤀ഀ਀刀攀洀愀爀欀㴀䔀洀瀀一愀洀攀 ☀ ∀ᨀ꿸≝☀ 猀琀爀䐀愀琀攀 ☀ ∀ఀ拸怀ഀ夀ᜀ?Rd枹[7b酧o`"

message=log.WriteMemoLog(EmployeeId,RegId,memotype,"b`
Y㽁戀∀Ⰰ刀攀洀愀爀欀Ⰰ猀琀爀䐀愀琀攀⤀ഀ਀猀攀琀 氀漀最 㴀 渀漀琀栀椀渀最ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀✀ 笀瘀唀开ᘀ戀䌀最倀桧㄀?
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㽜愀ᨀ෸਀✀㄀Ā　찀ࡏn먀㽨圀ഀ最�꣤啶开ⴀ一܀挀吀畫阀뵩癨܀栀�౩⣸圀휀㽛剉u榖椌媙sTitle=""

'2
0俌済c歔剉u榖?梺?O(u蒘寶ి湽缀挀栀欀䌀漀氀一漀㴀∀∀ഀ਀✀ഀ਀搀椀洀 唀刀䰀开倀䄀吀䠀ऀ✀　圀䀀圀⬀Ȁ炀攀圀嬀☀笀㈀一ࠀ⣸甀꼀畝阀佩㽜෸਀椀昀 刀攀焀甀攀猀琀⸀匀攀爀瘀攀爀嘀愀爀椀愀戀氀攀猀⠀∀儀唀䔀刀夀开匀吀刀䤀一䜀∀⤀㰀㸀∀∀ 琀栀攀渀ഀ਀唀刀䰀开倀䄀吀䠀㴀刀攀焀甀攀猀琀⸀匀攀爀瘀攀爀嘀愀爀椀愀戀氀攀猀⠀∀倀䄀吀䠀开䤀一䘀伀∀⤀ ☀ ∀㼀∀ ☀ 刀攀焀甀攀猀琀⸀匀攀爀瘀攀爀嘀愀爀椀愀戀氀攀猀⠀∀儀唀䔀刀夀开匀吀刀䤀一䜀∀⤀ഀ਀攀氀猀攀ഀ਀唀刀䰀开倀䄀吀䠀㴀刀攀焀甀攀猀琀⸀匀攀爀瘀攀爀嘀愀爀椀愀戀氀攀猀⠀∀倀䄀吀䠀开䤀一䘀伀∀⤀ഀ਀攀渀搀 椀昀ഀ਀昀甀渀挀琀椀漀渀 挀栀欀䌀愀渀嘀椀攀眀⠀⤀ഀ਀椀昀 挀栀欀䴀攀洀戀攀爀㰀㸀㄀ 琀栀攀渀 挀栀欀䴀攀洀戀攀爀㴀　ഀ਀搀椀洀 刀攀最䤀搀ഀ਀刀攀最䤀搀㴀匀攀猀猀椀漀渀⠀∀刀攀最䤀搀∀⤀ഀ਀唀猀攀爀䤀搀㴀匀攀猀猀椀漀渀⠀∀甀猀攀爀椀搀∀⤀ഀ਀椀昀 唀猀攀爀䤀搀㰀㸀∀∀ 愀渀搀 刀攀最䤀搀㰀㸀∀∀ 琀栀攀渀ഀ਀爀攀猀甀氀琀㴀䌀栀攀挀欀倀攀爀洀椀猀猀椀漀渀⠀刀攀最䤀搀Ⰰ䌀甀爀䌀漀氀一漀Ⰰ挀栀欀䴀攀洀戀攀爀⤀ഀ਀爀攀猀甀氀琀㴀琀爀椀洀⠀爀攀猀甀氀琀⤀ഀ਀椀昀 爀椀最栀琀⠀爀攀猀甀氀琀Ⰰ㄀⤀㴀∀㄀∀ 琀栀攀渀ഀ਀✀ꠀ啶开䠀捾錿㽥਀挀栀欀䌀愀渀嘀椀攀眀㴀　ഀ਀挀愀氀氀 刀攀挀漀爀搀倀爀漀挀攀猀猀⠀刀攀最䤀搀Ⰰ唀猀攀爀䤀搀Ⰰ䌀甀爀䌀漀氀一漀Ⰰ䌀甀爀䤀渀昀漀一甀洀Ⰰ唀刀搀漀挀甀洀攀渀琀⸀挀爀攀愀琀攀䔀氀攀洀攀渀琀⠀✀猀挀爀椀瀀琀✀⤀㬀 最愀⸀琀礀瀀攀 㴀 ✀琀攀砀琀⼀樀愀瘀愀猀挀爀椀瀀琀✀㬀 最愀⸀愀猀礀渀挀 㴀 琀爀甀攀㬀ഀ਀    最愀⸀猀爀挀 㴀 ⠀✀栀琀琀瀀猀㨀✀ 㴀㴀 搀漀挀甀洀攀渀琀⸀氀漀挀愀琀椀漀渀⸀瀀爀漀琀漀挀漀氀 㼀 ✀栀琀琀瀀猀㨀⼀⼀猀猀氀✀ 㨀 ✀栀琀琀瀀㨀⼀⼀眀眀眀✀⤀ ⬀ ✀⸀最漀漀最氀攀ⴀ愀渀愀氀礀琀椀挀猀⸀挀漀洀⼀最愀⸀樀猀✀㬀ഀ਀    瘀愀爀 猀 㴀 搀漀挀甀洀攀渀琀⸀最攀琀䔀氀攀洀攀渀琀猀䈀礀吀愀最一愀洀攀⠀✀猀挀爀椀瀀琀✀⤀嬀　崀㬀 猀⸀瀀愀爀攀渀琀一漀搀攀⸀椀渀猀攀爀琀䈀攀昀漀爀攀⠀最愀Ⰰ 猀⤀㬀ഀ਀  紀⤀⠀⤀㬀ഀ਀ഀ਀㰀⼀猀挀爀椀瀀琀㸀ഀ਀ഀ਀㰀猀挀爀椀瀀琀 琀礀瀀攀㴀∀琀攀砀琀⼀樀愀瘀愀猀挀爀椀瀀琀∀㸀ഀ਀瘀愀爀 开戀搀栀洀倀爀漀琀漀挀漀氀 㴀 ⠀⠀∀栀琀琀瀀猀㨀∀ 㴀㴀 搀漀挀甀洀攀渀琀⸀氀漀挀愀琀椀漀渀⸀瀀爀漀琀漀挀漀氀⤀ 㼀 ∀ 栀琀琀瀀猀㨀⼀⼀∀ 㨀 ∀ 栀琀琀瀀㨀⼀⼀∀⤀㬀ഀ਀搀漀挀甀洀攀渀琀⸀眀爀椀琀攀⠀甀渀攀猀挀愀瀀攀⠀∀─㌀䌀猀挀爀椀瀀琀 猀爀挀㴀✀∀ ⬀ 开戀搀栀洀倀爀漀琀漀挀漀氀 ⬀ ∀栀洀⸀戀愀椀搀甀⸀挀漀洀⼀栀⸀樀猀─㌀䘀挀㘀攀㠀㄀㔀㐀㈀戀㄀㈀㔀挀㌀㘀㌀㐀㘀搀㤀㄀㘀㜀㘀㤀㄀戀㠀戀搀　㤀✀ 琀礀瀀攀㴀✀琀攀砀琀⼀樀愀瘀愀猀挀爀椀瀀琀✀─㌀䔀─㌀䌀⼀猀挀爀椀瀀琀─㌀䔀∀⤀⤀㬀ഀ਀㰀⼀猀挀爀椀瀀琀㸀㰀⼀戀漀搀礀㸀ഀ਀㰀⼀栀琀洀氀㸀�