㽏℀刀ᨀЀ̀ഀᤀԀᤀЀ⠀倀⠀Ȁ଀吀䘀㰀㼀̀฀ᄀᨀȀ㨀㼀̀ༀကᨀȀ㨀㼀̀ကကᨀ̀ᄀᤀ̀㄀℀̀ሀᔀᬀ̀̀ጀᔀᬀĀ̀᐀圀ȀĀ㼀㼀̀㼀Ȁ㼀㼀ጀ娀㼀吀Ȁ̀̀dȀ㼀?糏?㼄|TB?|TB><%
W郔R?(?

#  A<d8J-


1!|TB<?	
WLJ?R郕RR|-R?(?


#  A<?:?
1!
W

?X)
?6??擨K?糏?$K@KXKhK䬿瀀ì଀଀ᨀ̀̀Ā⠀刀v฀椀~⠀簀̀ȀᨀЀ̀Ȁ฀혀ᤀ勸฀　䰀刀ᤀ㼀刀฀尀䰀刀ᤀ̀刀฀Q刀ᤀЀ刀฀簀ⴀ刀ᨀȀ̀̀ᤀȀᤀ㼀⠀㼀ȀᬀĀ̀ЀᤀĀ⌀  㰀㼀̀Ԁ娀匀vᬀԀ̀؀ᤀ㼀ᤀԀ─㼀̀܀⠀刀v฀ࠀ?⠀簀̀Ȁᨀ؀̀ࠀ฀œᤀ㼀刀ᤀ㼀⠀㼀Ȁᨀࠀ̀ऀᤀࠀ฀怀䴀刀ᤀ؀刀฀瀀䴀刀ᨀ܀̀਀ᤀԀᤀ㼀ᤀ᧸̀฀℀Wᤀ܀ᤀ؀　m؀Ḁ欀~̀଀ᔀᬀԀ̀ఀᤀĀ㄀℀̀ഀᔀᬀĀ̀฀圀ȀĀ㼀㼀܀㼀Ȁ㼀㼀ऀⰀ㼀㼀̀ԀdȀЀ䬀Ȁ㼀Ȁ␀䬀堀䬀栀䬀㼀K楰

Z癓?%?(癒㼈(|鳯?R?(?`MRR㽈R?
㼗0淢繫W
???	麓
?擨K?$KXKhK䬿瀀ì଀ഀᨀĀ̀Ā娀匀vᬀȀ̀Ȁᤀ㼀ᤀȀ─㼀̀̀⠀刀v฀ࠀ?⠀簀̀Ȁᨀ̀̀Ѐ฀œᤀ㼀刀ᤀ㼀⠀㼀ȀᨀԀ̀ԀᤀԀ฀怀䴀刀ᤀ̀刀฀Ѐ一刀ᨀЀ̀؀ᤀȀᤀ㼀ᤀ᧸Ā฀ᰀ一ᤀЀᤀ̀　m؀Ḁ欀~̀܀ᔀᬀȀ̀ࠀ圀ȀĀ䐀܀܀㼀Ȁ㼀㼀ऀ堀㼀㼀̀ԀdȀЀ䬀Ȁ㼀Ȁ␀䬀堀䬀栀䬀㼀K楰

Z癓?%?(癒㼈(|鳯?R?(?`MRR0NR?
PN0淢繫W
t?4?惣
?2dN??</
TH(xH
凬??'?W
4?P.4冉
?2dN??</
TH(xH
楴??'?W
4??4??2dN??</
TH(xH
琋??'?W
4?P/40??2dN??</
TH(xH
繬??'?W
(
??(
	p?TK㼬2dN?糎糏H㼘0?

O

?1?1hO伿⸀ȀĀ̀Ԁᴀ᠀ᜀ⌀q฀簀ᜀ吀䈀㰀㼀̀؀ᴀ᠀ᜀ฀㼀　吀ᜀĀ฀洀~⸀ȀĀȀ㨀㼀̀܀ᴀ᠀ᜀ฀㼀　吀ᜀĀ฀㼀刀ᴀ᠀ᜀ⌀q刀฀洀~⸀ȀĀ̀ࠀᤀ㼀฀䬀?⸀ȀĀ̀ऀᤀ㼀฀ᤀ?⸀ȀĀ̀਀ᤀ㼀฀ࠀ倀⸀ȀĀ̀଀⠀刀v฀⠀倀⸀ȀĀ̀ఀᴀ᠀ᜀ฀㼀　吀ᜀĀ฀䠀倀⸀ȀĀ̀ഀᤀȀ㄀尀倀̀฀圀ȀĀࠀࠀ؀倀㄀ȀᨀĀ᠀̀ༀ儀ť㼀Ād̀ᴀ琀倀଀Ā吀䌀㰀ᤀ̀Ā଀Ḁ琀倀̀Ȁ฀ⴀ`⠀砀䠀ĀᨀĀ̀̀฀å⠀砀䠀ĀḀ�|̀Ѐᴀ�|฀簀ᜀ吀䌀ᤀĀ฀簀ᜀ吀䌀䀀㰀฀Ā̀ԀᤀĀᴀ㼀ᴀ琀倀⠀搀ࠀ̀Ḁ㼀̀؀ᴀ㼀⠀ ␀ĀḀ㼀̀܀ᴀ㼀଀Ā⠀琀⠀Ȁ฀᠀ᤀ吀䈀㰀㼀̀ࠀ଀ᨀ̀ऀᤀĀᴀ�|ᴀ㼀ᴀ㼀ᴀ ᄀᴀ琀ᤀ✀㼀؀Ȁ㨀ࠀĀ̀਀ᴀ㼀฀㼀吀䈀㰀㼀̀଀଀ȀᨀȀ㨀ࠀĀ̀ఀᴀ㼀⠀㼀ĀᨀȀ㨀ᔀĀ̀ഀ଀Āᨀ̀฀圀ȀĀ䤀⠀ࠀ̀㼀Ȁ䤀✀̀ࠀ砀㼀㼀ĀĀ䀀㼀Ȁ欀~̀ᤀ᷸㰀ᄀ⠀䐀ࠀȀᨀĀ̀ĀᤀĀ฀簀ᜀ吀䈀㰀⼀̀Ȁ฀⸀?ᨀĀ̀̀଀㘀漀̀Ѐᰀ ᄀ渀̀Ԁ଀㜀漀̀؀଀㠀漀̀܀Ā㼀䐀ࠀ̀䠀㌀Ȁ㼀⼀̀਀䀀㼀㼀ȀĀȀ㼀Ȁ䀀?Ȁ㼀̀฀簀ᜀᨀĀ̀Ā଀ᤀ㼀⠀㼀Ā଀Ā搀᠀⌀̀Ȁ㰀㼀̀Ȁᴀ᠀⌀ⴀ㼀Ā଀㘀Ā฀簀ᜀ吀䈀㰀刀̀̀㨀㼀Ȁ㨀㼀̀Ѐᴀ᠀⌀ⴀ㼀Ā଀㘀Āᤀ⣸㼀Ā䈀㰀㼀̀Ԁᴀ᠀⌀ⴀ㼀Ā଀Ā㘀ĀᨀĀ̀؀㨀㼀̀܀攀᠀⌀̀Ȁ㬀⠀̀ࠀᤀĀᨀ̀ऀ圀ȀĀ儀Ȁ搀ࠀԀ怀㐀Ȁ儀Ȁ㤀̀ᴀᘀ㼀堀Ѐ̀ЀdȀœȀ᐀儀Ȁऀ!䠀 츀|㼀̀฀㼀ᨀЀ̀Ā⠀㠀ᬀĀ̀Ȁ฀　儀ᤀ勸฀q刀ᨀ̀̀̀ᤀ̀ᤀĀ⠀㼀ȀᬀȀ̀Ѐᤀ㼀଀Ȁ⠀堀␀Ȁᨀ㼀̀ԀᤀȀ⌀  䄀㰀ⰀȀ̀؀฀一?ⴀȀĀ⠀㼀Ā㨀笀Ȁ㨀㼀଀ऀ吀栀⸀Ā̀܀฀ᬀ?ⴀȀĀᤀ㼀⠀倀⠀Ȁ଀吀䘀฀ᬀ?ⴀȀĀ฀က刀吀䈀㸀㰀ḀĀ̀ࠀ฀㼀฀ᰀ刀ⴀȀĀ⠀刀v⠀　刀̀଀吀䜀฀㼀฀䰀刀ⴀȀĀ⠀刀v⠀　刀̀଀吀䔀䀀㰀฀Ā̀ऀ฀怀刀ᨀЀȀ㨀᠀Ā̀਀฀㼀ᨀЀȀ㨀⠀Ā̀଀฀㼀ᨀЀȀ㨀㼀଀Ā吀栀㼀̀ఀᤀ㼀฀᠀ᤀ吀䈀㰀圀Ā̀ഀ฀㼀ᨀЀȀ㨀㼀̀฀฀瀀刀ⴀȀĀ⠀漀[Ā଀吀䘀㰀㼀̀ༀ฀ᬀ?ⴀȀĀᤀ㼀⠀倀⠀Ȁ଀吀䘀฀ᬀ?ⴀȀĀ฀က刀吀䈀㸀㰀㼀̀က฀qᨀЀ̀ᄀ฀嬀v฀⠀匀ⴀȀĀ刀ᨀ̀̀ሀᤀ̀ᤀĀ✀琀ȀȀ㨀㼀̀ጀ฀　᠀ᨀЀȀ㨀㼀̀᐀฀栀᠀ᨀЀȀ㨀㼀夀̀ᔀᤀЀ଀Ā⠀琀⠀Ȁ฀᠀ᤀ吀䈀㰀ᨀȀ̀ᘀ㨀ⰀȀ̀ᜀᤀȀ㄀㼀Ȁ㨀䴀̀᠀ᤀȀ㄀℀̀ᤀᔀᬀȀ̀ᨀᔀᬀĀ̀ᬀᤀЀᨀ̀ᰀ圀ȀĀ㼀㼀Ѐ⠀㜀Ȁ㼀嘀̀਀휀œ㼀؀ȀdȀ�|ȀЀ?Ȁ䀀匀Ȁ堀匀Ȁ᐀㈀Ȁऀ!츀|̀ᤀ㼀଀᐀⠀㼀Ȁᨀ㼀̀Āᤀ㼀ఀ㼀⠀㼀Ȁᨀ㼀̀Ȁᤀ㼀ఀ㼀⠀㼀Ȁᨀ㼀̀̀ᤀ㼀฀簀ᜀ吀䈀ᤀ㼀⠀㼀Ā䄀㸀㰀崀̀Ѐ଀ᨀ㼀̀Ԁ⠀㠀ᬀĀ̀؀฀琀匀ᤀ勸฀氀吀刀ᤀ㼀刀฀簀吀刀ᤀ㼀଀Ȁ⠀堀␀Ȁ刀฀簀吀刀ᤀ㼀刀฀琀[刀ᤀ㼀刀฀氀吀刀ᤀ㼀刀฀m刀ᤀ㼀刀฀簀吀刀ᴀ᠀ᜀ฀㼀　吀ᜀĀ刀฀愀?刀ᨀȀ̀܀ᤀȀᤀĀ✀琀Ȁ̀ࠀᔀᬀĀ̀ऀ圀ȀĀ㼀㼀Ȁ倀㠀Ȁ㼀怀̀␀㼀က嬀㼀尀儀?䘀က尀䐀?䜀䄀尀᐀唀䠀尀㐀唀䤀尀䰀唀䨀尀栀唀䬀崀㼀U]淯]窾]㼒]銾]V]V]4V]PV]h&]hV]圴]2]淰^淰
]碫
]㼔
]㼽
]W
W㽑
@9`0?(碫
W
㽄
㤿Ȁ焀戀̀ఀ簀e㼀Ȁ䀀̀଀Ā㴀Ḁ倀嘀̀Ā଀ĀḀ븀’̀Ȁ଀ĀḀ嘀̀̀଀㈀Ḁ᠀嘀̀Ѐ฀簀ᜀḀ㼀U圴|2W淯|窾	'U
4V
_U0:_nn?m
@D*淰(?

b
<S
||||(?
)淰
c
;碫
4U?ss"Z??


?糏H(W0?


PV
=B<?H$0?
PWPW_$H`W$??$?圵???唿　㼀Ԁᜀ⌀ Ḁ␀䀀Ḁ̀ࠀᜀ฀匀%ᴀ㼀ᴀ㼀ఀ㼀ᴀm　㼀Ԁᜀ⌀ Ḁ␀䀀Ḁ̀ऀᜀ฀ᔀ?ᴀ㼀ᴀ㼀ఀ㼀ᴀ븀z　㼀Ԁᜀ⌀ Ḁ␀䀀Ḁ̀਀ᜀ฀ᴀ㼀ᴀ㼀଀㈀ᴀሀ?　㼀Ԁᜀ⌀ Ḁ␀䀀Ḁ̀଀ᜀ฀저žᴀᰀഀᴀ㼀଀Āᴀ븀’　㼀Ԁᜀ⌀ Ḁ␀䀀Ḁ̀ఀᜀ฀ᰀ堀ᴀᰀഀᴀ㼀଀Ā଀Ā　㼀Ԁᜀ⌀ Ḁ␀䀀ḀȀ愀̀ഀᴀ倀圀　㼀ᬀĀ̀฀଀ⴀĀĀḀ倀嘀̀ༀᤀĀ㄀℀̀ကᔀἀ倀圀̀ᄀᴀ䠀ᨀ฀␀ᴀ　㼀Āἀ倀圀̀ሀᴀ倀圀开̀ጀᤀ៸␀䠀ᴀ̀᐀฀怀圀ᜀ␀㼀̀ᔀᴀ㼀ᜀ␀㼀̀ᘀᜀ฀㔀Wᴀ㼀ᴀ㼀ఀ㼀ᴀ㼀U0?# $@╓???淯0?# $@㼕???窾0?# $@郬??2㼒0?# $@黈
?
銾0?# $@X
?
0?# $@8X??V0?# $@PX??V0?# $@aPW0?
PW 
!W
5LU?5?馍}2怐lXPD???(?碫)淰

碫
H碫W
hUP?/?r钍~
	糏D*圶燲竂㼖@;?躕㼤PV
IVK(?

H㼔
V(Y
VPV(Y
PVV
IVJ
H㼽VVJPVD<?VVJW:?PVW碫
I
o	hVn
o2|TC<?o

Hno2noo
b
<F
o
(淰

4
no
(淰
4
n	oc
;

oZ.Y$?$8Y$XY
#  A< #  A<?!o"
b

<?#圴<$LTB<?%o&
(淰
4
n'
o:(o)
(淰
4
n*o:8+o,
(淰
4
n-o.
(淰
6
/0?
0kpY
<@1pY#d+2刌|(?3怸|(?4-
5(p#
<?6|:?7??(?8(p#
<9|:pY#d+(?;lpY
;qm
<
(X$<"TB<z=淵R>'?
?n@oAc

;?B琘nC1?D
H:?E4V<FoG
HnHoIPVnJoK㼽nLoMWnNoOVnPoQ㼔nRh&|TC<Sh&繷RPVRX,Rh&ToUV
TC<kVoWh&nXoYV
TF<?Zo[h&n\o]V
In^o_㼔VF<?`oah&nb ocV
Hnd!oeV㼔C<f"ogh&nh#oi㼔nj$ok%ol&o:%m'on
Hno(op)oqW
)oqW
誰共㽟?趏?喾x?爛L怐P`
㽋 ?㽫舨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?孒?&紨_媁|10g19錯㽎⡓ɽ开脀䩚?hL埮`,9?CurTitle㽌Ԁఀ㠀㜀㌀㔀　㈀瘀褀٩᐀䌀甀爀䤀渀昀漀一甀洀䬀ᨀԀࠀ䄀㄀㈀㜀─쬀⟢က䌀甀爀䌀漀氀一漀漀㼀਀ఀ爀攀猀甀氀琀需㽫ఀ洀开䌀漀渀渀─᐀ᤀᑙ䌀漀渀渀匀琀爀椀渀最㜀刀䔀਀ఀ猀攀爀瘀攀爀ࠀ㼀媄 䄀䐀伀䐀䈀⸀䌀漀渀渀攀挀琀椀漀渀଀⤀?CreateObject={?Provider=SQLOLEDB;Password=comelanDB;User ID=comelanDB;Initial Catalog=DBManage;Data Source=(local);梖aD"ConnectionTimeOut易Open	zErr芳?
Clear叹燞?<br><br><br><br><br><br><br><div align='center'>penc揯迯㾴㼀阀螜ㅾ榏烦攀渀挀䥣ɒ炀攀ᬀ垅嬀☀笀㈀一湽缀⼀昀☀吀挀欀渀砀Ā㳸⼀搀椀瘀㸀㨀?Response穣endjH ?keynameconn@㼿਀洀开䌀洀搀尀㔀?iMaxValue飁ADODB.Command,㽙䄀挀琀椀瘀攀䌀漀渀渀攀挀琀椀漀渀娀䈀⨀㔀Ḁ甀猀瀀开䜀攀琀䴀愀砀嘀愀氀甀攀ᄀ缿CommandText㽵ᙿ䌀漀洀洀愀渀搀吀礀瀀攀ⴀ䠀⤀搀ሀ䀀猀䬀攀礀一愀洀攀㼀䰀㜀Ḁ䌀爀攀愀琀攀倀愀爀愀洀攀琀攀爀윀橢瀀᐀倀愀爀愀洀攀琀攀爀猀䠀␀㼀ఀ䄀瀀瀀攀渀搀尀퐀㽑䀀椀䴀愀砀嘀愀氀甀攀䜀㽤愀搀䔀砀攀挀甀琀攀一漀刀攀挀漀爀搀猀̀㼀㼀䔀砀攀挀甀琀攀㼀㴀?SqlSentence
?	Errors9	?
Count莈E002E殀1"SqlSelectSentencef3?adodb.recordSet芿E001Errs|bInfo{]Q	㼱漣㼿㽦ø�Ҕࠀ㰀戀爀㸀崀猀㼀ఀ最戀䰀⤀⩘卛ᤀ㽦椀洀堀਀ఀ猀琀爀匀儀䰀℀㼀ࠀ洀开刀猀倀?؀䔀伀䘀᠀ੴఀ猀嘀愀氀甀攀ሀ㼀؀洀刀猀儀璑㼀㰀漀瀀琀椀漀渀 瘀愀氀甀攀㴀∀⤀娀 㼀∀ 猀攀氀攀挀琀攀搀㸀㨀떒ቡ㰀⼀漀瀀琀椀漀渀㸀漀娀㼀ఀ瘀戀挀爀氀昀㼀">㼻᐀က洀漀瘀攀渀攀砀琀☀„਀挀氀漀猀攀謀؀猀琀爀؀㼀ࠀ愀爀爀㄀㼀ऀࠀ猀琀爀㄀䤀壥਀ఀ猀琀爀欀攀礀昀⬀䄀ၬ猀琀爀瘀愀氀甀攀ⰀȀⰀ㾞਀猀瀀氀椀琀簀Ȁ簀܀㼀ࠀ愀爀爀㈀܀沘਀ఀ甀戀漀甀渀搀漀ݹࠀ挀猀琀爀㼀猀๥瘀愀爀一愀洀攀㼀圀ၖ瘀愀爀嘀愀氀甀攀̀䘀Ⰰ㼀瘀愀爀嘀愀氀甀攀㴀㴀Ȁ㴀㼀ࠀࠀ䘀漀爀洀㼀㼀਀琀栀椀渀最㼀ऀࠀ琀栀攀䄀㼀☀㼀攀渀搀䘀氀愀最匀㼀㼀琀礀瀀攀渀愀洀攀؀笀匀ብ嘀愀爀椀愀渀琀⠀⤀簀♿੯ഀ一⼀昀瀀攀ꔀƁøЀ㼀᠀␀瀀攀ꔀ憁吀栀攀䌀氀愀猀猀䤀搀㴀㰀戀爀㸀椀Ȁ椀⸀̀Ѐ⸀ 帀㼀᠀ᨀ圀䤀一一吀开䌀䠀䤀一䔀匀䔀氀Ȁ氀挀Ȁ挀✀㔀縀ऀఀ椀猀渀甀氀氀砀ՒЀⴀ一䀀Vༀ㼀؀氀攀渀樀㼀؀䴀椀搀匀V؀䄀猀挀⤀䘀ॹఀ渀甀洀戀攀爀케塺਀ఀ猀琀爀䰀攀渀넀࡮ࠀ瀀愀爀愀㸀㼀ࠀ挀栀愀爀䰀㨀ऀࠀ琀爀椀洀㤀Ȁ㤀　Ȁ　琀Ȁ琀਀?left??fString>>|U&gt;㽚㼀爀攀瀀氀愀挀攀㰀Ȁ㰀℀嬀̀ࠀ☀氀琀㬀ᴀ眀؀䌀䠀刀㐀娀㼀ఀ☀渀戀猀瀀㬀娀씀ͦఀ☀焀甀漀琀㬀᐀?
&#39;c?</P><P> Q
<BR> 梅Z</P><P><BR>P諚chrFillK~int賋㼕刀攀瀀氀椀挀愀琀攀䈀䴀㼀ఀ氀攀渀最琀栀漀夀ᬀ⼀ሀ椀猀渀甀洀攀爀椀挀⨀开紀ऀఀ椀猀搀愀琀攀─Ḁ৿ఀ洀愀砀氀攀渀⨀㜀؀⸀⸀⸀섀ꑐ຅猀琀爀䘀氀愀最㌀Ȁ㌀ጀ㼀؀唀刀䰀㼀Ѐ氀渀 Ȁ 䰀㹡开ሀ䐀愀琀攀嘀愀氀甀攀㼀nV@FormatString蓉㼘猀琀爀刀攀猀甀氀琀琀?
lcase?yearJ┻?strYear?206罁
month了?strMonth㽫dayw[X
strDaynQhour`00㾤猀琀爀䠀漀甀爀戀 㼀ఀ洀椀渀甀琀攀㼀㼀?strMinute?D
secondUI㼕猀琀爀匀攀挀漀渀搀䐀㼀ࠀ礀礀礀礀먀㽶਀䤀渀猀琀爀㼀Ѐ礀礀稀?
right?mmmm>?cintddddPhhhh?nnnnssss祢Q	hasNum硞yJhasLowerChar篥hasUpperChar?寧hasOtherChar糂糬LatterNumi勻LatterLower橃忩LatterUpper螉堯LatterOther丟IarrLatter`?num㽒਀椀渀搀攀砀ᔀ倀䬀崀က瀀漀猀椀琀椀漀渀㈀⽝㼀　㄀㈀㌀㐀㔀㘀㜀㠀㤀㼀℀㼀愀戀挀搀攀昀最栀椀最欀氀洀渀漀瀀焀爀猀琀甀瘀眀砀礀稀欀Ѵ㑝䄀䈀䌀䐀䔀䘀䜀䠀䤀䜀䬀䰀䴀一伀倀儀刀匀吀唀嘀圀堀夀娀帀娀㸀਀ⴀ㴀尀嬀崀℀㼥ሀ刀愀渀搀漀洀椀稀攀搀㼀؀刀渀搀㼀㼀਀瘀愀氀甀攀ꐀ翦开က昀椀氀氀挀栀愀爀Ȁ㽞ሀ猀漀甀爀挀攀匀琀爀䴀᠀一?fieldStr-K梒sourceList8v㾀爀攀猀甀氀琀匀琀爀樀Ȁ樀᠀ㅵ᐀椀猀伀瀀攀爀愀琀漀爀㄀Ⰰ?਀甀挀愀猀攀뀀‰؀䄀一䐀☀Ȁ☀琀[Ȁ琀[฀一Ȁ฀一픀ュ਀ 愀渀搀 㼀Ѐ伀刀ᘀ戀Ȁᘀ戀℀㼀ࠀ 漀爀 ä؀一伀吀℀Ȁ℀帀㼀Ȁ帀㼀ĀøȀĀø儀㼀਀ 渀漀琀 ⠀Ȁ⠀ࠀøȀࠀø㼀؀ ⠀ ⤀Ȁ⤀ऀøȀऀø㼀؀ ⤀ ─Ȁ─㼀㼀฀ 氀椀欀攀 ✀✀Ȁ✀㼀Ѐ✀✀㼀Ѐ✀ 㼀紀㼀 氀椀欀攀 ✀─簀Ⰰ؀─✀ ㄀娀瀀?strEmail?re勐.
RegExp_H3Hn^[a-zA-Z][A-Za-z0-9_.-]+@[a-zA-Z0-9_]+?\.[a-zA-Z]{2,3}$蜠㽴倀愀琀琀攀爀渀倀Ⰰऀࠀ吀攀猀琀帀瘀?chkEMailF??MSIE 5.5婮B.6Om 㽔栀嘀ᨀ䧸渀琀攀爀渀攀琀 䔀砀瀀氀漀爀攀爀 㔀⸀㔀戀㼀㼀䴀匀䤀䔀 㘀⸀　ᄀ䋧⸀㘀伀洀 吀?hVInternet Explorer 6.0?磍MSIE 5.01骹8Om 㽔栀嘀ᨀ䧸渀琀攀爀渀攀琀 䔀砀瀀氀漀爀攀爀 㔀⸀　㄀䄀㼀㼀䴀匀䤀䔀 㔀⸀　ᘀ뤀ኚ㠀伀洀 吀?hVInternet Explorer 5.00 ??MSIE 4.0孢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> *?澨<table border="1" bordercolorlight="000000" bordercolordark="FFFFFF" cellspacing="0" bgcolor="E0E0E0">㽼㰀琀爀㸀㰀琀搀㸀㰀琀愀戀氀攀 戀漀爀搀攀爀㴀∀　∀ 戀最挀漀氀漀爀㴀∀⌀䘀䘀　　㤀㤀∀ 挀攀氀氀猀瀀愀挀椀渀最㴀∀　∀ 挀攀氀氀瀀愀搀搀椀渀最㴀∀㈀∀ 眀椀搀琀栀㴀∀㄀　　─∀㸀 ⸀㨀•㰀琀爀㸀㰀琀搀 眀椀搀琀栀㴀∀㄀　　─∀㸀㰀昀漀渀琀 挀漀氀漀爀㴀∀䘀䘀䘀䘀䘀䘀∀㸀℀䀀鐀ᩧ㰀⼀昀漀渀琀㸀㰀⼀琀搀㸀 㼀ꌀ≹Ā㰀琀搀 眀椀搀琀栀㴀∀㄀㠀∀㸀㰀琀愀戀氀攀 戀漀爀搀攀爀㴀∀㄀∀ 戀漀爀搀攀爀挀漀氀漀爀氀椀最栀琀㴀∀㘀㘀㘀㘀㘀㘀∀ 戀漀爀搀攀爀挀漀氀漀爀搀愀爀欀㴀∀䘀䘀䘀䘀䘀䘀∀ 挀攀氀氀瀀愀搀搀椀渀最㴀∀　∀ 戀最挀漀氀漀爀㴀∀䔀　䔀　䔀　∀ 挀攀氀氀猀瀀愀挀椀渀最㴀∀　∀ 眀椀搀琀栀㴀∀㄀㠀∀㸀 ࠀ堀耀?<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:?"> 疤
Gz</td></tr></table></td></tr></table></form></td></tr></table>帺?theInputExpQVo
tValue?@	fvalue峴1?strIPAddr獱?(HTTP_X_FORWARDED_FOR??unknown&p?REMOTE_ADDR;;{奢?str_url箢躯str_contentl??objxml㽲ᑩ猀攀爀瘀椀挀攀甀爀氀㼀ऀࠀ猀琀爀愀䔀礀㼀∀䴀椀挀爀漀猀漀昀琀⸀堀䴀䰀䠀吀吀倀⨀ࡨࠀ瀀漀猀琀䬀毠ᰁ挀漀渀琀攀渀琀ⴀ氀攀渀最琀栀㼀Ȁ?setrequestheader
-濁content-type醿㼊application/x-www-form-urlencoded?	sendD1A?responsetext諮?vstrInY扃?strReturn?@?ThisChrvtAbsW巪?innerCode?[	Hight8?Low8晐HexQ樝MailToList嘠颃MailFrom㽚㼀䴀愀椀氀匀甀戀樀攀挀琀ᔀ浰?MailContent裻颃MailHostJ兘	MailerF劷	MailTo蓷犀MailAddressP埝?JMail.Message.From8媌縉葔Q5{祃FromNamejbS:$mailserverusername砼T?mailserverpassword邢忒Subjecth8	gb2312跂罈Charset?RxAppendHTML??AddRecipient?k	idname?啶liststr(]?valuestr股Jselectstr掏?arrlist勃厄arrvalued-฿洀愀爀欀猀琀爀⨀搀㼀ࠀȀ炀攀ᤀ㽦尀Ѐ㼀ᰀ㰀猀攀氀攀挀琀 渀愀洀攀㴀∀㼀窞 selected EnEe<option q㽐瘀愀氀甀攀㴀✀㼀Ѐ✀㸀姢㼀㰀⼀猀攀氀攀挀琀㸀㼀ഀ᐀က挀栀攀挀欀猀琀爀㼀㼀ఀ洀愀爀欀攀搀븀䁨ഀሀ 挀栀攀挀欀攀搀 ע∀␀㰀椀渀瀀甀琀 琀礀瀀攀㴀爀愀搀椀漀 촀㕡㼀 瘀愀氀甀攀㴀✀㄀骃ၓ✀ 渀愀洀攀㴀✀턀㽔᐀猀攀氀攀挀琀礀攀愀爀㨀欀☀㼀夀攀愀爀猀琀爀㔀ݲࠀ搀愀琀攀琀帀Ȁ琀帀蜀斟㼀猀攀氀攀挀琀䴀漀渀琀栀伀嘀㼀က䴀漀渀琀栀猀琀爀椀堀㼀က䴀漀渀琀栀嘀愀氀ࠀ最Ȁࠀ最伀䩞ሀሀ猀攀氀攀挀琀䐀愀礀最ጀ?Daystr伳?DayVal㼯㼯~0?selectDate梅?"strCommSelectDate?_y?_m?_d嬬h?content㼢topICV	heightP?
width煰??<a style='cursor:hand'  target='_blank'   onclick="javascript:window.open(',p?;','','left=\JA
,top=俫庖,height=9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')駓F<input class=button type=button name='sQ㼃 椀搀㴀䌀氀漀猀攀䈀甀琀琀漀渀 漀渀挀氀椀挀欀㴀∀樀愀瘀愀猀挀爀椀瀀琀㨀眀椀渀搀漀眀⸀挀氀漀猀攀⠀⤀㬀∀ 瘀愀氀甀攀㴀✀猀儀̀?>邎D?empEmployeeid嚊?Session㽀๜甀爀氀倀愀琀栀需㿠਀洀䌀漀渀渀㼀⨀㼀洀匀琀爀匀焀氀洀砀?chkResId?*MempResId塐
MempResId<染Lselect * from resource where respath='Wb?
resId隫?
regidOi?
empidrs?
colNo紜Lselect ColNo from RegInfo where regid=?
colno:B??select colno from EmployeeInCol where groupid='G002' and employeeid=挾P' and colno='
H?employeeid?memotype???thedate瞾log?薤strDate1/
RemarkcF ?EmpName?now`+?yyyy-mm-dd-2:諨select * from RegMemo where regid=㼔㼀 愀渀搀 攀洀瀀氀漀礀攀攀椀搀㴀䀀Ѐ? and memotype=A记? and writedate>'?㽥䰀漀最开䌀氀愀猀猀ᔀ∀啿∀礀礀礀礀ⴀ洀ⴀ搀 栀栀㨀渀渀㨀猀猀ᤀ䴀⠀Ā?猀攀氀攀挀琀 唀猀攀爀一愀洀攀 昀爀漀洀 攀洀瀀氀漀礀攀攀 眀栀攀爀攀 䔀洀瀀氀漀礀攀攀䤀搀㴀䠀㼀ᄀЀᨀ꿸]䔀谀嫥฀ఀㇸ?w㽁戀最澑怀㤀䴀ࡽࠀ㄀?w㽁戀嬀㼀㼀圀爀椀琀攀䴀攀洀漀䰀漀最㔀㬀㼠洀攀猀猀愀最攀㼀尀㰀฀ఀỸ?e㽁戀最澑怀鄀癕؀ࠀḀ?e㽁戀㼀頀๦ఀ⃸刀搀뤀孧㜀戀最澑怀一? Rd枹[7b歡
b`
Y㼗刀搀뤀孧㜀戀最澑怀栀넀ވࠀ戀怀ഀ夀䄀?b$失!description?P001?P002?P003?P004?Bcategory#??adodb.recordsetz㽋䐀猀攀氀攀挀琀 ⨀ 昀爀漀洀 猀礀猀琀攀洀氀漀最 眀栀攀爀攀 椀搀㴀　혀㽤ఀ䄀搀搀一攀眀ഀ䠀㼀᐀攀洀瀀氀漀礀攀攀椀搀䴀Ⰰ琀㼀儀甀攀爀礀匀琀爀椀渀最㼀๙甀爀氀倀愀琀栀㼀䈀଀က挀愀琀攀最漀爀礀ሀ㼀㼀਀琀椀琀氀攀␀㄀⅙ᘀ搀攀猀挀爀椀瀀琀椀漀渀㴀鐀㾏愀挀琀椀漀渀琀椀洀攀开?
runip3坿
Update荗^chkMember珜p
RegId渶?userid渶?UserId'࠿ࠀ⨀最䈀?曪?卽arr
I?chkColNo?P?IsMember敋2痙select * from regauthcol where status=1 and regid=:*%f. order by authtype desc? ?authType?,ColNoList//駜?
sdate?datediffc瑘
edate?91'g㼠䤀渀昀漀䰀攀昀琀笀㼀ࠀ挀猀渀最爀̀Ѐ㄀㄀洀蜀癭X甀瀀搀愀琀攀 爀攀最愀甀琀栀挀漀氀 猀攀琀 椀渀昀漀氀攀昀琀㴀椀渀昀漀氀攀昀琀ⴀ㄀ 眀栀攀爀攀 愀甀琀栀椀搀㴀㼀࡞ఀ愀甀琀栀䤀搀ᰀ餀㽣䤀渀昀漀一甀洀�桘ၤ䤀渀昀漀倀愀琀栀㼀攀?insert into viewinfolog(regid,userid,colno,fullcolno,infonum,infoPath,addtime,logtype,title,runip,logcontent) values (,'/','?',俕0',getdate(),1,'/5
','')B?Poslt?Class_Initialize?f?InitOutputFD
Search㽮㼀䄀搀搀䌀漀氀甀洀渀㼀̀਀ఀ伀甀琀瀀甀琀椀簀䊒ሀ吀愀戀氀攀一愀洀攀吀 匀∀ሀ䐀椀猀瀀䘀椀攀氀搀ᬀ洀?਀圀栀攀爀攀쐀๤伀爀搀攀爀䈀礀搀ⅵሥ伀爀搀攀爀吀礀瀀攀挀㽙ఀ倀愀最攀一漀砀㼀䠀က倀愀最攀匀椀稀攀㼀吀㼀匀栀漀眀吀愀椀氀琀倀㼀ఀ䄀洀漀甀渀琀ࠀ⌀؀?TableWidth弯?
IsAlt障arrCol?mPos?抾AllPageCount湳㽦䌀甀爀䈀一甀洀⼀洀?CurENum**c★lADODB.Recordsetdwcmd俣.~usp_CommSearchib@TableNameT煜A@DispField;横@Where?'?@OrderByL?@OrderType<岄?@DoCount娻\c@PageNox㽙ሀ䀀倀愀最攀匀椀稀攀ऀ唀㼀က挀漀氀愀氀椀最渀뀀㽞ఀ挀漀氀一甀洀栀㼀਀ఀ爀漀眀一甀洀㼀Ѐ愀愀ᜀ저w਀昀渀愀洀攀瀀䰀㼀ఀ䴀愀琀挀栀猀ⴀ대{਀䴀愀琀挀栀퀀ݥࠀ挀氀渀最츀쵺ኇ尀嬀⠀⸀⨀㼀⤀尀崀　㼀㼀䤀最渀漀爀攀䌀愀猀攀됀䥩ऀఀ䜀氀漀戀愀氀ᴀ圀?਀洀愀挀琀栀嬀Ȁ嬀崀Ȁ崀㼀Ѐ愀愀᷸V਀㰀⼀琀爀㸀咈最฀䄀洀漀甀渀琀㴀ᡩ�ⵠ磠䩞퍲齪�š㨰ቒ陣⩧쁞깡ὠ୭ꯥ൫쇥卽捕嵞둦㑫쇠煩顯䎉ꝥᱫꩭ襷 ᡙ顝䥠빟쩪๨鱞靠牠ꭦቡ饝歠ቦ煞զꅣ콠끨䁡孥椿鬂槏嫋鐜垬帳暕寴运煡姄棊敁敡櫄灗啂垘敄敪稛㽭孢㩳ढ़㕞�Y卣鵕㽗땞䭘⩤枏ﮊ앝㕚䙞흟�䁩䵥꽢뱱蹕๗呞毧Ⅶ�晨䁳䵥䭢뙱坙ፕ㽞寯枊爭뼿㝙ᙰ텻㝛깛뉘≘酲㍗Ɒꁶ챖塙๱佒푧졵љ齞ꁡ챖塙๱佒푧❵졠ꙙﱡ煝ᕑ汝筮婦끱蹪鵠䥘坟䱮걤�걨罗䅦䅲卲兕䱮㱤앥୙煣굦䉫卲䉕蹲쩗뉪佪Ꙥ楫੯뙣狦䴡텕㍩鹥끗콪鱩ୡ굣�썩썪�㹩ﹰ胦聦齦뽗쑪뉪卪聱굦멫뽗졪뉪뉪뉪卪굕꽫ݗ䑞䑝巢祈탧ū㰁僦蕲텧ץ鯧혃闥ﵽ筛佦걯浘橦酲摗啯虮ｦ뉝⩘䍝步㡲뉕썘恚轮扦Ṧ쯥ꗥｗ酝字≜藡㾏扑螔櫄枱妴煑媽妿晿焼啈垺垙帤枌妽啇煀唽帄摤妸垎垐㼗뙞썫镚兗ቱꝝ罓㑦㙟鹕し蹥ㅗ썰卪違㹗뙟筠୯១稥页멗筡կ딥蕭⩧ᡞ녛ൗ퍞し㭞ൟ䭣�륛졚橗ੴ͞항䝩蹕蹗⡠끞�齢䡡顕䉗山ꕲ捡拏蝗略稿贪付┅慌槞憴暀垥櫃櫃檲檸墬帡枡憴暀垯暀帀棛棛憮彌瀳啋帡崕姾緱彑洓櫂槇洷棲啓畧啙磮啙磮－먿뽗狠ᑺ唠먰慗♹堠먰ᵗ?䕻ꡕ魗晞炅≸ढ़痠�㕳띟襙䭖⹲൲걞絗鵖ꡫ䕗ꡮ䕗ꡮ䕗靮鑗䵧쐁ᅬꑛ뙠㹚奟乳煥ꕹ灡Ꙭ땡ꅘ彠ᬰ緥䯥危偤䭤ၱ㹣孤텯๚謿貓拡尌啎嫝蕟㽉㩰塞൰볥䩦≮癞㼡Ж㼿啍垘棤、＂㼥닥㕪Ş㬀桢ű฀?忕
屃墿晫唽垘墥?嚧?勍
剢綀櫓枟懙、刺挒枖帪悮洟殫緢啓帀粬帠寣懕枡Е灈煭妶灎櫋垎棎攭徟彇佩量澜寥潣槤埡澋崕崪矮灚棊埑湱枂寛鈫湁畭帊湴瑸珬巿湱枂寛鈫墲嫎潱槣硩帊湴珵珬巿帨崋瓡唽垐墲悳媶泩啺攭潗湯帋彅墕垐晫攩潱垎硵墲悳審攭唸垞姃啓焾啳攭潚湬灨喓埄聠秷墲彍穳嘣债憥矇㾔乞㉟콤鶛텘獳ﭕ㕝顟앗흡퍨㥨뙤祗㕦襟穱⿿Ɽ䵥镕깗ቡ㹴㕰쉟䍗鑥練㕢㑟政啈垔拵槺槏彧
湣悹棑㿦썤ਖ਼潞呸텟ቨ搿嵆帍牀摨莠藫帊磶彔棑㼒㼀졤獚饦镦ﾒ帿鄮幣惎畾嫕牬喰垯摕槾嫀妶㿿ꁑ禘꩕灗㽩暆墡葐晭啓垐啂垘槏쐿껡뉘٘珯嫎枈啞拪垐啌幊棇崡猗洊嬊諐啀垎崍垕枦啞菎託啀垎枅垖潐垘唻憮槑脽㽃㽻㼀ꙙに텞硨�뉢㽪ᘀ瀀ᄀȀĀ㴀倀Ā㴀㼀䀀㼀ḀሀȀᴀ嬀܀ᜀ琀܀ᔀ㼀ᘀ㼀ᬀ㼀ᬀ刀ࠀᔀ椀ࠀሀ紀ࠀጀ㼀᠀㼀ሀ㼀ᤀ㼀଀㼀฀㼀฀૸ഀ฀଀ഀᴀ଀ᘀ㔀଀ᜀ一଀ሀ戀଀ᔀ礀଀ఀ㼀ఀ㼀฀㼀฀㼀ༀ㼀฀㼀ఀ㼀ጀ㼀฀ऀఀༀᨀఀༀ⬀ఀ଀㠀ఀ਀䐀ఀ฀吀ఀ฀搀ఀጀ礀ఀ਀㼀ఀ㼀ༀ㼀ጀ㼀ഀ㼀က㼀᐀㼀฀ഀᄀጀഀᔀ⨀ഀༀ㬀ഀༀ䰀ഀጀ愀ഀሀ甀ഀက㐀　瘀㼀⼀㼀㰀ᬀ㄀䌀怀㄀✀㼀ᬀ㼀᠀㼀⼀甀㈀Ḁ㼀℀㼀᐀㼀ሀ਀?ሀĀ㼀ጀᘀ㼀ༀ✀㼀ጀ䐀P㌀턀S崀ᰀ㼀ⴀ฀?ༀ鐀^⠀ༀ?─␀㼀⠀一㼀⠀砀㼀⨀䜀0⨀䠀e⤀吀?ᜀ耀X 瘀?ᔀᔀ㼀ᄀ⠀㼀ጀ㴀㼀ᄀ倀㼀က栀㼀ᜀ저Xᜀ㼀㐀ᄀ฀焀㼀ᬀ㼀ᘀ㼀଀㼀ऀ㼀᐀㼀攀一ༀఀ搀ༀᘀ簀ༀఀ㼀✀㼀ఀ㼀ᘀကက ㈀ကḀ刀က刀㼀䤀㼀ᴀကᄀ⌀㼀ᄀᄀ刀ᄀᔀ椀ᄀఀ㼀᠀ఀሀᰀ⨀ሀ☀堀ሀఀ渀ሀఀ㼀㐀㰀ጀ✀攀ጀᰀ㼀 㼀ఀ㼀က㼀⠀℀᐀ఀ㰀᐀✀攀᐀ఀ缀᐀ఀ㼀ἀ㼀က㼀ᄀऀᔀᜀ⨀ᔀက㰀ᔀఀ縀ᔀḀ㼀ᄀ㼀ᔀ㼀嬀⬀ᘀ刀㼀ఀ㼀ऀ㼀ༀ㼀ఀༀᜀᔀ☀ᜀᔀ㴀ᜀᘀ唀ᜀᘀ洀ᜀሀ㼀က㼀ሀ㼀က㼀ᴀ㼀崀䬀᠀吀㼀Ѐ㼀ఀ␀ᤀ଀㄀ᤀᔀ䠀ᤀᔀ开ᤀᘀ㼀ᘀ㼀ሀ㼀က㼀ሀ㼀ကጀᨀᴀ㈀ᨀᄀ䔀ᨀࠀ圀ᨀЀ崀ᨀᤀ砀ᨀఀ最㐀ጀ簀㐀ᬀ㼀܀㼀ጀ㼀ḀЀ㔀　㸀㔀܀㼀ጀ㼀ᬀ㼀ఀ㼀܀嬀㘀ጀ瀀㘀Ḁ㼀㄀㼀Ѐ㼀܀䬀㜀ጀ怀㜀∀㼀ጀ㼀ἀ㼀ᜀ㼀℀㼀Ѐ਀㠀ጀἀ㠀ఀ㴀㠀܀㜀㬀᐀䴀㬀ᴀ氀㬀ࠀ簀㬀ᴀ㼀ᔀ㼀਀㼀ࠀ㼀ఀ㼀ጀ㼀଀Ȁ㰀਀฀㰀ഀᰀ㰀ༀⴀ㰀Ѐ㤀㰀ༀ刀㰀ᔀ栀㰀ऀ笀㰀ഀ㼀ఀ㼀᐀㼀ࠀ㼀᐀ഀ㴀ࠀᴀ㴀฀ⴀ㴀᐀䰀㴀ࠀ尀㴀਀栀㴀ఀ㼀=?????>	>$>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ᜀ怀eᜀἀ?܀䈀㼀ऀ䴀㼀ᘀ攀㼀᐀笀㼀ࠀZἀ쌀àက렀œࠀ頀NЀ搀?ᄀ㼀vఀ唀㼀଀戀㼀ᔀ礀㼀怀팀 ሀ?ᤀ᠀㼀᐀⸀㼀℀搀㼀䔀最?匀㼀଀ጀ㼀଀⸀㼀଀嘀㼀᐀氀㼀଀㰀]ἀ舀á䔀谀‘଀Ȁ㼀儀唀㼀᠀甀㼀଀준`଀戀Sᬀ─e܀�tఀЀ㼀ऀༀ㼀ༀ 㼀ᄀ㌀㼀ᘀ䬀㼀ఀ焀nᴀ㬀u∀⸀eᰀᘀ?Ⰰ⨀㼀ऀ䠀㼀ᔀ开㼀䀀Āᤀ ᠀ᘀSᄀ퐀Yఀ㼀ࠀ㼀ఀ㼀ऀ㼀଀ᜀᰀࠀ⬀ᰀ଀䌀ᰀఀ儀ᰀ਀崀ᰀࠀ最ᰀഀ瘀ᰀࠀ㼀
?
???	@-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/????h?x?8?P?囝
x?0?鲤
㼐　㼀砀㼀搀Š䠀㼀씀Ÿ䠀㼀䠀㼀⠀?(? ?h?X?
?
?p??	?8?h?8?`p?H8 H!x"??8%?&??⨿Ȁ㼀Ȁ㼀Ȁ㼀Ȁ᠀⸀Ȁ㼀Ȁ᠀⼀Ȁ㼀Ȁ⠀㄀Ȁ㼀234?08 9`9:?X>?
㽫
VBScript - script blockResponse.WriteBlock(0)

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

'S+T噀鯪S+T@b	g
ghV飠齉pe

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

sysAppId = "A002"   's^㼝缀伀?
'

'歔INteTs^㼝伀⠀甀䤀桒儀䀀尀倀㼿਀搀椀洀 䴀䄀䤀一开匀䔀刀嘀䤀䌀䔀开唀刀䰀Ⰰ䤀一䘀伀开匀䔀刀嘀䤀䌀䔀开唀刀䰀Ⰰ䴀䄀一䄀䜀䔀开匀䔀刀嘀䤀䌀䔀开唀刀䰀ഀ਀搀椀洀 匀吀刀开匀䔀刀嘀䤀䌀䔀开匀唀䌀䔀匀匀Ⰰ匀吀刀开匀䔀刀嘀䤀䌀䔀开䔀刀刀伀刀ഀ਀䴀䄀䤀一开匀䔀刀嘀䤀䌀䔀开唀刀䰀 㴀 ∀栀琀琀瀀㨀⼀⼀眀眀眀⸀挀漀洀攀氀愀渀⸀挀漀洀⼀氀漀最椀渀⼀猀攀爀瘀椀挀攀⸀愀猀瀀∀    ✀琀攀ࠀ吀猀帀ᴀ?g㽙圀䀀圀ഀ਀䤀一䘀伀开匀䔀刀嘀䤀䌀䔀开唀刀䰀 㴀 ∀栀琀琀瀀㨀⼀⼀眀眀眀⸀挀漀洀攀氀愀渀⸀挀漀洀⼀愀搀洀椀渀⼀猀攀爀瘀椀挀攀⸀愀猀瀀∀      ✀最澑怀猀帀ᴀ?g㽙圀䀀圀ഀ਀䴀䄀一䄀䜀䔀开匀䔀刀嘀䤀䌀䔀开唀刀䰀 㴀 ∀栀琀琀瀀㨀⼀⼀眀眀眀⸀挀漀洀攀氀愀渀⸀挀漀洀⼀洀愀渀愀最攀⼀猀攀爀瘀椀挀攀⸀愀猀瀀∀   ✀ᨀ一�Ǥ?ts^㼝最�槤姦?W@W

STR_SERVICE_SUCESS = "SUCESS:"

STR_SERVICE_ERROR  = "ERROR:"

'惽??uXMLHTTP,O(uPOST筫_衏㿴਀昀甀渀挀琀椀漀渀 䠀吀吀倀开倀伀匀吀⠀猀琀爀开甀爀氀Ⰰ猀琀爀开挀漀渀琀攀渀琀⤀ഀ਀漀渀 攀爀爀漀爀 爀攀猀甀洀攀 渀攀砀琀ഀ਀搀椀洀 漀戀樀砀洀氀Ⰰ猀攀爀瘀椀挀攀甀爀氀ഀ਀搀椀洀 猀琀爀愀Ⰰ爀攀猀甀氀琀ഀ਀猀攀琀 漀戀樀砀洀氀㴀猀攀爀瘀攀爀⸀䌀爀攀愀琀攀伀戀樀攀挀琀⠀∀䴀椀挀爀漀猀漀昀琀⸀堀䴀䰀䠀吀吀倀∀⤀ഀ਀猀琀爀愀 㴀 唀刀䰀䔀渀挀漀搀椀渀最⠀猀琀爀开挀漀渀琀攀渀琀⤀ഀ਀漀戀樀砀洀氀⸀伀瀀攀渀 ∀瀀漀猀琀∀Ⰰ猀琀爀开甀爀氀Ⰰ昀愀氀猀攀ഀ਀漀戀樀砀洀氀⸀猀攀琀爀攀焀甀攀猀琀栀攀愀搀攀爀 ∀挀漀渀琀攀渀琀ⴀ氀攀渀最琀栀∀Ⰰ氀攀渀⠀猀琀爀愀⤀ഀ਀漀戀樀砀洀氀⸀猀攀琀爀攀焀甀攀猀琀栀攀愀搀攀爀 ∀挀漀渀琀攀渀琀ⴀ琀礀瀀攀∀Ⰰ∀愀瀀瀀氀椀挀愀琀椀漀渀⼀砀ⴀ眀眀眀ⴀ昀漀爀洀ⴀ甀爀氀攀渀挀漀搀攀搀∀ഀ਀漀戀樀砀洀氀⸀猀攀渀搀 猀琀爀愀ഀ਀爀攀猀甀氀琀 㴀 漀戀樀砀洀氀⸀爀攀猀瀀漀渀猀攀琀攀砀琀ഀ਀猀攀琀 漀戀樀砀洀氀 㴀 渀漀琀栀椀渀最ഀ਀䠀吀吀倀开倀伀匀吀 㴀 爀攀猀甀氀琀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀昀甀渀挀琀椀漀渀 唀刀䰀䔀渀挀漀搀椀渀最⠀瘀猀琀爀䤀渀⤀ഀ਀搀椀洀 猀琀爀刀攀琀甀爀渀Ⰰ椀ഀ਀搀椀洀 吀栀椀猀䌀栀爀Ⰰ椀渀渀攀爀䌀漀搀攀Ⰰ䠀椀最栀琀㠀Ⰰ䰀漀眀㠀ഀ਀猀琀爀刀攀琀甀爀渀 㴀 ∀∀ഀ਀䘀漀爀 椀 㴀 ㄀ 吀漀 䰀攀渀⠀瘀猀琀爀䤀渀⤀ഀ਀吀栀椀猀䌀栀爀 㴀 䴀椀搀⠀瘀匀琀爀䤀渀Ⰰ椀Ⰰ㄀⤀ഀ਀䤀昀 䄀戀猀⠀䄀猀挀⠀吀栀椀猀䌀栀爀⤀⤀ 㰀 ☀䠀䘀䘀 吀栀攀渀ഀ਀猀琀爀刀攀琀甀爀渀 㴀 猀琀爀刀攀琀甀爀渀 ☀ 吀栀椀猀䌀栀爀ഀ਀䔀氀猀攀ഀ਀椀渀渀攀爀䌀漀搀攀 㴀 䄀猀挀⠀吀栀椀猀䌀栀爀⤀ഀ਀䤀昀 椀渀渀攀爀䌀漀搀攀 㰀 　 吀栀攀渀ഀ਀椀渀渀攀爀䌀漀搀攀 㴀 椀渀渀攀爀䌀漀搀攀 ⬀ ☀䠀㄀　　　　ഀ਀䔀渀搀 䤀昀ഀ਀䠀椀最栀琀㠀 㴀 ⠀椀渀渀攀爀䌀漀搀攀  䄀渀搀 ☀䠀䘀䘀　　⤀尀 ☀䠀䘀䘀ഀ਀䰀漀眀㠀 㴀 椀渀渀攀爀䌀漀搀攀 䄀渀搀 ☀䠀䘀䘀ഀ਀猀琀爀刀攀琀甀爀渀 㴀 猀琀爀刀攀琀甀爀渀 ☀ ∀─∀ ☀ 䠀攀砀⠀䠀椀最栀琀㠀⤀ ☀  ∀─∀ ☀ 䠀攀砀⠀䰀漀眀㠀⤀ഀ਀䔀渀搀 䤀昀ഀ਀一攀砀琀ഀ਀唀刀䰀䔀渀挀漀搀椀渀最 㴀 猀琀爀刀攀琀甀爀渀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀✀ऀऀᨀ㼀甀瀀攀渀挀᭣?一Ⰰ똀坐꼀灝攀渀挀䥣ꭒ岆伀ഀ਀✀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀✀ⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀഀ਀✀ⴀⴀⴀⴀ 倀愀爀愀洀攀琀攀爀䐀椀爀攀挀琀椀漀渀䔀渀甀洀 嘀愀氀甀攀猀 ⴀⴀⴀⴀഀ਀搀椀洀 愀搀倀愀爀愀洀唀渀欀渀漀眀渀Ⰰ愀搀倀愀爀愀洀䤀渀瀀甀琀Ⰰ愀搀倀愀爀愀洀伀甀琀瀀甀琀Ⰰ愀搀倀愀爀愀洀䤀渀瀀甀琀伀甀琀瀀甀琀Ⰰ愀搀倀愀爀愀洀刀攀琀甀爀渀嘀愀氀甀攀ഀ਀愀搀倀愀爀愀洀唀渀欀渀漀眀渀 㴀 ☀䠀　　　　ഀ਀愀搀倀愀爀愀洀䤀渀瀀甀琀 㴀 ☀䠀　　　㄀ഀ਀愀搀倀愀爀愀洀伀甀琀瀀甀琀 㴀 ☀䠀　　　㈀ഀ਀愀搀倀愀爀愀洀䤀渀瀀甀琀伀甀琀瀀甀琀 㴀 ☀䠀　　　㌀ഀ਀愀搀倀愀爀愀洀刀攀琀甀爀渀嘀愀氀甀攀 㴀 ☀䠀　　　㐀ഀ਀✀ⴀⴀⴀⴀ 䌀漀洀洀愀渀搀吀礀瀀攀䔀渀甀洀 嘀愀氀甀攀猀 ⴀⴀⴀⴀഀ਀搀椀洀 愀搀䌀洀搀唀渀欀渀漀眀渀Ⰰ愀搀䌀洀搀吀攀砀琀Ⰰ愀搀䌀洀搀吀愀戀氀攀Ⰰ愀搀䌀洀搀匀琀漀爀攀搀倀爀漀挀Ⰰ愀搀䌀洀搀䘀椀氀攀Ⰰ愀搀䌀洀搀吀愀戀氀攀䐀椀爀攀挀琀ഀ਀愀搀䌀洀搀唀渀欀渀漀眀渀 㴀 ☀䠀　　　㠀ഀ਀愀搀䌀洀搀吀攀砀琀 㴀 ☀䠀　　　㄀ഀ਀愀搀䌀洀搀吀愀戀氀攀 㴀 ☀䠀　　　㈀ഀ਀愀搀䌀洀搀匀琀漀爀攀搀倀爀漀挀 㴀 ☀䠀　　　㐀ഀ਀愀搀䌀洀搀䘀椀氀攀 㴀 ☀䠀　㄀　　ഀ਀愀搀䌀洀搀吀愀戀氀攀䐀椀爀攀挀琀 㴀 ☀䠀　㈀　　ഀ਀✀ⴀⴀⴀⴀ 䐀愀琀愀吀礀瀀攀䔀渀甀洀 嘀愀氀甀攀猀 ⴀⴀⴀⴀഀ਀搀椀洀 愀搀䔀洀瀀琀礀Ⰰ愀搀吀椀渀礀䤀渀琀Ⰰ愀搀匀洀愀氀氀䤀渀琀Ⰰ愀搀䈀椀最䤀渀琀Ⰰ愀搀䤀渀琀攀最攀爀ഀ਀搀椀洀 愀搀唀渀猀椀最渀攀搀吀椀渀礀䤀渀琀Ⰰ愀搀唀渀猀椀最渀攀搀匀洀愀氀氀䤀渀琀Ⰰ愀搀唀渀猀椀最渀攀搀䤀渀琀Ⰰ愀搀唀渀猀椀最渀攀搀䈀椀最䤀渀琀ഀ਀搀椀洀 愀搀匀椀渀最氀攀Ⰰ愀搀䐀漀甀戀氀攀Ⰰ愀搀䌀甀爀爀攀渀挀礀Ⰰ愀搀䐀攀挀椀洀愀氀Ⰰ愀搀一甀洀攀爀椀挀Ⰰ愀搀䈀漀漀氀攀愀渀Ⰰ愀搀䔀爀爀漀爀ഀ਀搀椀洀 愀搀唀猀攀爀䐀攀昀椀渀攀搀Ⰰ愀搀嘀愀爀椀愀渀琀Ⰰ愀搀䤀䐀椀猀瀀愀琀挀栀Ⰰ愀搀䤀唀渀欀渀漀眀渀Ⰰ愀搀䜀唀䤀䐀Ⰰ愀搀䐀愀琀攀Ⰰ愀搀䐀䈀䐀愀琀攀Ⰰ愀搀䐀䈀吀椀洀攀Ⰰ愀搀䐀䈀吀椀洀攀匀琀愀洀瀀ഀ਀搀椀洀 愀搀䈀匀吀刀Ⰰ愀搀䌀栀愀爀Ⰰ愀搀嘀愀爀䌀栀愀爀Ⰰ愀搀䰀漀渀最嘀愀爀䌀栀愀爀Ⰰ愀搀圀䌀栀愀爀Ⰰ愀搀嘀愀爀圀䌀栀愀爀Ⰰ愀搀䰀漀渀最嘀愀爀圀䌀栀愀爀ഀ਀搀椀洀 愀搀䈀椀渀愀爀礀Ⰰ愀搀嘀愀爀䈀椀渀愀爀礀Ⰰ愀搀䰀漀渀最嘀愀爀䈀椀渀愀爀礀Ⰰ愀搀䌀栀愀瀀琀攀爀Ⰰ愀搀䘀椀氀攀吀椀洀攀Ⰰ愀搀倀爀漀瀀嘀愀爀椀愀渀琀Ⰰ愀搀嘀愀爀一甀洀攀爀椀挀Ⰰ愀搀䄀爀爀愀礀ഀ਀愀搀䔀洀瀀琀礀 㴀 　ഀ਀愀搀吀椀渀礀䤀渀琀 㴀 ㄀㘀ഀ਀愀搀匀洀愀氀氀䤀渀琀 㴀 ㈀ഀ਀愀搀䤀渀琀攀最攀爀 㴀 ㌀ഀ਀愀搀䈀椀最䤀渀琀 㴀 ㈀　ഀ਀愀搀唀渀猀椀最渀攀搀吀椀渀礀䤀渀琀 㴀 ㄀㜀ഀ਀愀搀唀渀猀椀最渀攀搀匀洀愀氀氀䤀渀琀 㴀 ㄀㠀ഀ਀愀搀唀渀猀椀最渀攀搀䤀渀琀 㴀 ㄀㤀ഀ਀愀搀唀渀猀椀最渀攀搀䈀椀最䤀渀琀 㴀 ㈀㄀ഀ਀愀搀匀椀渀最氀攀 㴀 㐀ഀ਀愀搀䐀漀甀戀氀攀 㴀 㔀ഀ਀愀搀䌀甀爀爀攀渀挀礀 㴀 㘀ഀ਀愀搀䐀攀挀椀洀愀氀 㴀 ㄀㐀ഀ਀愀搀一甀洀攀爀椀挀 㴀 ㄀㌀㄀ഀ਀愀搀䈀漀漀氀攀愀渀 㴀 ㄀㄀ഀ਀愀搀䔀爀爀漀爀 㴀 ㄀　ഀ਀愀搀唀猀攀爀䐀攀昀椀渀攀搀 㴀 ㄀㌀㈀ഀ਀愀搀嘀愀爀椀愀渀琀 㴀 ㄀㈀ഀ਀愀搀䤀䐀椀猀瀀愀琀挀栀 㴀 㤀ഀ਀愀搀䤀唀渀欀渀漀眀渀 㴀 ㄀㌀ഀ਀愀搀䜀唀䤀䐀 㴀 㜀㈀ഀ਀愀搀䐀愀琀攀 㴀 㜀ഀ਀愀搀䐀䈀䐀愀琀攀 㴀 ㄀㌀㌀ഀ਀愀搀䐀䈀吀椀洀攀 㴀 ㄀㌀㐀ഀ਀愀搀䐀䈀吀椀洀攀匀琀愀洀瀀 㴀 ㄀㌀㔀ഀ਀愀搀䈀匀吀刀 㴀 㠀ഀ਀愀搀䌀栀愀爀 㴀 ㄀㈀㤀ഀ਀愀搀嘀愀爀䌀栀愀爀 㴀 ㈀　　ഀ਀愀搀䰀漀渀最嘀愀爀䌀栀愀爀 㴀 ㈀　㄀ഀ਀愀搀圀䌀栀愀爀 㴀 ㄀㌀　ഀ਀愀搀嘀愀爀圀䌀栀愀爀 㴀 ㈀　㈀ഀ਀愀搀䰀漀渀最嘀愀爀圀䌀栀愀爀 㴀 ㈀　㌀ഀ਀愀搀䈀椀渀愀爀礀 㴀 ㄀㈀㠀ഀ਀愀搀嘀愀爀䈀椀渀愀爀礀 㴀 ㈀　㐀ഀ਀愀搀䰀漀渀最嘀愀爀䈀椀渀愀爀礀 㴀 ㈀　㔀ഀ਀愀搀䌀栀愀瀀琀攀爀 㴀 ㄀㌀㘀ഀ਀愀搀䘀椀氀攀吀椀洀攀 㴀 㘀㐀ഀ਀愀搀倀爀漀瀀嘀愀爀椀愀渀琀 㴀 ㄀㌀㠀ഀ਀愀搀嘀愀爀一甀洀攀爀椀挀 㴀 ㄀㌀㤀ഀ਀愀搀䄀爀爀愀礀 㴀 ☀䠀㈀　　　ഀ਀✀ⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀⴀഀ਀昀甀渀挀琀椀漀渀 䜀攀琀䐀䈀䌀漀渀渀⠀⤀ഀ਀搀椀洀 洀开䌀漀渀渀Ⰰ䌀漀渀渀匀琀爀椀渀最ഀ਀猀攀琀 洀开䌀漀渀渀 㴀 匀攀爀瘀攀爀⸀䌀爀攀愀琀攀漀戀樀攀挀琀⠀∀䄀䐀伀䐀䈀⸀䌀漀渀渀攀挀琀椀漀渀∀⤀ഀ਀䌀漀渀渀匀琀爀椀渀最㴀∀倀爀漀瘀椀搀攀爀㴀匀儀䰀伀䰀䔀䐀䈀㬀倀愀猀猀眀漀爀搀㴀挀漀洀攀氀愀渀䐀䈀㬀唀猀攀爀 䤀䐀㴀挀漀洀攀氀愀渀䐀䈀㬀䤀渀椀琀椀愀氀 䌀愀琀愀氀漀最㴀䐀䈀䴀愀渀愀最攀㬀䐀愀琀愀 匀漀甀爀挀攀㴀⠀氀漀挀愀氀⤀㬀∀ഀ਀洀开䌀漀渀渀⸀䌀漀渀渀攀挀琀椀漀渀吀椀洀攀伀甀琀㴀㌀　ഀ਀洀开䌀漀渀渀⸀漀瀀攀渀 䌀漀渀渀匀琀爀椀渀最ഀ਀椀昀 䔀爀爀 琀栀攀渀ഀ਀攀爀爀⸀䌀氀攀愀爀ഀ਀匀攀琀 洀开䌀漀渀渀 㴀 一漀琀栀椀渀最ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀 ∀㰀戀爀㸀㰀戀爀㸀㰀戀爀㸀㰀戀爀㸀㰀戀爀㸀㰀戀爀㸀㰀戀爀㸀㰀搀椀瘀 愀氀椀最渀㴀✀挀攀渀琀攀爀✀㸀瀀攀渀挀榏듦??鲖纇錱迯penc揯剉耂pe蔛W[&{2N緥n/f&Tcknx
</div>"

Response.End

end if

set GetDBConn = m_Conn

end function

function GetMaxValue(keyname,conn)

dim m_Cmd,iMaxValue

set m_Cmd=CreateObject("ADODB.Command")

With m_Cmd

.ActiveConnection=conn

.CommandText = "usp_GetMaxValue"

.CommandType = adCmdStoredProc

.Parameters.Append=.CreateParameter("@sKeyName",adVarChar,adParamInput,20,keyname)

.Parameters.Append=.CreateParameter("@iMaxValue",adInteger,adParamOutput)

.Execute ,,adExecuteNoRecords

iMaxValue=.Parameters("@iMaxValue")

End With

set m_CMD=nothing

GetMaxValue=iMaxValue

end function

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

'gbL?N*Nsql韹㼝ഀ一渀宊ꢏ啶开␀?
'*****************

function ExeCuteSql(SqlSentence,Conn)

'WriteError sqlSentence

Conn.Execute SqlSentence

if Conn.Errors.Count<>0 then

ExeCuteSql=ErrCode("E002",SqlSentence)

else

ExeCuteSql=0

end if

end function

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

'gbL?N*Nsql㼱咽㼿渀宊?一⨀一ꠀ啶开␀?
'*****************

function  SelectSql(SqlSelectSentence,conn)

set SelectSql=server.CreateObject("adodb.recordSet")

'writeError sqlSelectSentence

SelectSql.open sqlSelectSentence,conn,3

if conn.Errors.Count<>0 then

ErrCode "E001",SqlSelectSentence

end if

end function

function ErrCode(Errs,Info)

Select Case Errs

Case "E001"

Response.write "㼱漣㼿㽦⋸ ☀ 䤀渀昀漀 ☀ ∀㰀戀爀㸀∀ഀ਀刀攀猀瀀漀渀猀攀⸀攀渀搀ഀ਀䌀愀猀攀 ∀䔀　　㈀∀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀 ∀最戀䰀⤀⩘卛ᤀ㽦 ☀ 䤀渀昀漀 ☀ ∀㰀戀爀㸀∀ഀ਀刀攀猀瀀漀渀猀攀⸀攀渀搀ഀ਀攀渀搀 匀攀氀攀挀琀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀昀甀渀挀琀椀漀渀 䜀攀琀䌀漀氀甀洀渀嘀愀氀甀攀⠀猀琀爀匀儀䰀Ⰰ䌀漀渀渀⤀ഀ਀搀椀洀 洀开刀猀ഀ਀猀攀琀 洀开刀猀㴀匀攀氀攀挀琀匀焀氀⠀猀琀爀匀儀䰀Ⰰ䌀漀渀渀⤀ഀ਀椀昀 洀开刀猀⸀䔀伀䘀 琀栀攀渀ഀ਀䜀攀琀䌀漀氀甀洀渀嘀愀氀甀攀㴀∀∀ഀ਀攀氀猀攀ഀ਀䜀攀琀䌀漀氀甀洀渀嘀愀氀甀攀㴀 洀开刀猀⠀　⤀ഀ਀攀渀搀 椀昀ഀ਀猀攀琀 洀开刀猀㴀一漀琀栀椀渀最ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀昀甀渀挀琀椀漀渀 䌀爀攀愀琀攀伀瀀琀椀漀渀⠀猀琀爀匀焀氀Ⰰ挀漀渀渀Ⰰ猀嘀愀氀甀攀⤀ഀ਀搀椀洀 洀刀猀ഀ਀猀攀琀 洀刀猀㴀匀攀氀攀挀琀匀焀氀⠀猀琀爀匀焀氀Ⰰ挀漀渀渀⤀ഀ਀眀栀椀氀攀 渀漀琀 洀刀猀⸀攀漀昀ഀ਀椀昀 洀刀猀⠀　⤀㴀猀嘀愀氀甀攀 琀栀攀渀ഀ਀爀攀猀瀀漀渀猀攀⸀圀爀椀琀攀 ∀㰀漀瀀琀椀漀渀 瘀愀氀甀攀㴀∀∀∀ ☀ 洀刀猀⠀　⤀ ☀ ∀∀∀ 猀攀氀攀挀琀攀搀㸀∀ ☀ 洀刀猀⠀㄀⤀ ☀ ∀㰀⼀漀瀀琀椀漀渀㸀∀ ☀ 瘀戀挀爀氀昀ഀ਀攀氀猀攀ഀ਀爀攀猀瀀漀渀猀攀⸀圀爀椀琀攀 ∀㰀漀瀀琀椀漀渀 瘀愀氀甀攀㴀∀∀∀ ☀ 洀刀猀⠀　⤀ ☀ ∀∀∀㸀∀ ☀ 洀刀猀⠀㄀⤀ ☀ ∀㰀⼀漀瀀琀椀漀渀㸀∀ ☀ 瘀戀挀爀氀昀ഀ਀攀渀搀 椀昀ഀ਀洀刀猀⸀洀漀瘀攀渀攀砀琀ഀ਀眀攀渀搀ഀ਀洀刀猀⸀挀氀漀猀攀ഀ਀猀攀琀 洀刀猀㴀渀漀琀栀椀渀最ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀昀甀渀挀琀椀漀渀 䌀爀攀愀琀攀伀瀀琀椀漀渀匀琀爀⠀猀琀爀Ⰰ猀嘀愀氀甀攀⤀ഀ਀搀椀洀 愀爀爀㄀Ⰰ猀琀爀㄀ഀ਀搀椀洀 猀琀爀欀攀礀Ⰰ猀琀爀瘀愀氀甀攀ഀ਀愀爀爀㄀ 㴀 猀瀀氀椀琀⠀猀琀爀Ⰰ∀Ⰰ∀⤀ഀ਀昀漀爀 攀愀挀栀 猀琀爀㄀ 椀渀 愀爀爀㄀ഀ਀愀爀爀㈀ 㴀 猀瀀氀椀琀⠀猀琀爀㄀Ⰰ∀簀∀⤀ഀ਀椀昀 甀戀漀甀渀搀⠀愀爀爀㈀⤀㸀　 琀栀攀渀ഀ਀猀琀爀瘀愀氀甀攀 㴀 愀爀爀㈀⠀　⤀ഀ਀猀琀爀欀攀礀 㴀 愀爀爀㈀⠀㄀⤀ഀ਀攀氀猀攀ഀ਀猀琀爀瘀愀氀甀攀 㴀 愀爀爀㈀⠀　⤀ഀ਀猀琀爀欀攀礀 㴀 愀爀爀㈀⠀　⤀ഀ਀攀渀搀 椀昀ഀ਀椀昀 猀琀爀欀攀礀 㴀 挀猀琀爀⠀猀嘀愀氀甀攀⤀ 琀栀攀渀ഀ਀爀攀猀瀀漀渀猀攀⸀圀爀椀琀攀 ∀㰀漀瀀琀椀漀渀 瘀愀氀甀攀㴀∀∀∀ ☀ 猀琀爀欀攀礀 ☀ ∀∀∀ 猀攀氀攀挀琀攀搀㸀∀ ☀ 猀琀爀瘀愀氀甀攀 ☀ ∀㰀⼀漀瀀琀椀漀渀㸀∀ ☀ 瘀戀挀爀氀昀ഀ਀攀氀猀攀ഀ਀爀攀猀瀀漀渀猀攀⸀圀爀椀琀攀 ∀㰀漀瀀琀椀漀渀 瘀愀氀甀攀㴀∀∀∀ ☀ 猀琀爀欀攀礀 ☀ ∀∀∀㸀∀ ☀ 猀琀爀瘀愀氀甀攀 ☀ ∀㰀⼀漀瀀琀椀漀渀㸀∀ ☀ 瘀戀挀爀氀昀ഀ਀攀渀搀 椀昀ഀ਀渀攀砀琀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀✀　垇嬀☀笀㈀一ᜀ刀栀㼀一越幨ﶝ䥤㱒倀ഀ਀昀甀渀挀琀椀漀渀 䜀攀琀伀瀀琀椀漀渀匀琀爀一愀洀攀⠀猀琀爀Ⰰ猀嘀愀氀甀攀⤀ഀ਀搀椀洀 愀爀爀㄀Ⰰ猀琀爀㄀ഀ਀搀椀洀 猀琀爀欀攀礀Ⰰ猀琀爀瘀愀氀甀攀ഀ਀搀椀洀 爀攀猀甀氀琀ഀ਀爀攀猀甀氀琀 㴀 ∀∀ഀ਀愀爀爀㄀ 㴀 猀瀀氀椀琀⠀猀琀爀Ⰰ∀Ⰰ∀⤀ഀ਀昀漀爀 攀愀挀栀 猀琀爀㄀ 椀渀 愀爀爀㄀ഀ਀愀爀爀㈀ 㴀 猀瀀氀椀琀⠀猀琀爀㄀Ⰰ∀簀∀⤀ഀ਀✀眀爀椀琀攀䔀爀爀漀爀 猀琀爀㄀ ☀ ∀⼀⼀⼀⼀∀ ☀ 甀戀漀甀渀搀⠀愀爀爀㈀⤀ഀ਀椀昀 甀戀漀甀渀搀⠀愀爀爀㈀⤀㸀　 琀栀攀渀ഀ਀猀琀爀瘀愀氀甀攀 㴀 愀爀爀㈀⠀　⤀ഀ਀猀琀爀欀攀礀 㴀 愀爀爀㈀⠀㄀⤀ഀ਀攀氀猀攀ഀ਀猀琀爀瘀愀氀甀攀 㴀 愀爀爀㈀⠀　⤀ഀ਀猀琀爀欀攀礀 㴀 愀爀爀㈀⠀　⤀ഀ਀攀渀搀 椀昀ഀ਀椀昀 猀琀爀欀攀礀 㴀 挀猀琀爀⠀猀嘀愀氀甀攀⤀ 琀栀攀渀ഀ਀爀攀猀甀氀琀 㴀 猀琀爀瘀愀氀甀攀ഀ਀攀砀椀琀 昀漀爀ഀ਀攀渀搀 椀昀ഀ਀渀攀砀琀ഀ਀䜀攀琀伀瀀琀椀漀渀匀琀爀一愀洀攀 㴀 爀攀猀甀氀琀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀䌀氀愀猀猀 䌀漀洀洀匀攀愀爀挀栀ഀ਀搀椀洀 吀愀戀氀攀一愀洀攀Ⰰ䐀椀猀瀀䘀椀攀氀搀Ⰰ圀栀攀爀攀Ⰰ伀爀搀攀爀䈀礀Ⰰ伀爀搀攀爀吀礀瀀攀Ⰰ倀愀最攀一漀Ⰰ倀愀最攀匀椀稀攀ഀ਀搀椀洀 匀栀漀眀吀愀椀氀ഀ਀搀椀洀 䄀洀漀甀渀琀ഀ਀搀椀洀 唀刀䰀Ⰰ吀愀戀氀攀圀椀搀琀栀ഀ਀搀椀洀 䤀猀䄀氀琀   ✀⼀昀☀吀缀伀⠀甀書爀㼀਀搀椀洀 吀椀琀氀攀ഀ਀搀椀洀 愀爀爀䌀漀氀⠀㈀　⤀  ✀܀栀�Ⱪ刀쑽⳦帀傝缀敱ༀ开Ⰰⴀ当ൻ਀倀爀椀瘀愀琀攀 洀倀漀猀ഀ਀倀爀椀瘀愀琀攀 䄀氀氀倀愀最攀䌀漀甀渀琀Ⰰ䌀甀爀䈀一甀洀Ⰰ䌀甀爀䔀一甀洀ഀ਀倀甀戀氀椀挀 倀爀漀瀀攀爀琀礀 䜀攀琀 倀漀猀ऀ✀㸀昀㨀礀栀㼀栀圀嬀䈀灹攀ഀ਀倀漀猀㴀洀倀漀猀ഀ਀䔀渀搀 倀爀漀瀀攀爀琀礀ഀ਀倀爀椀瘀愀琀攀 匀甀戀 䌀氀愀猀猀开䤀渀椀琀椀愀氀椀稀攀ഀ਀䄀洀漀甀渀琀㴀ⴀ㄀ഀ਀伀爀搀攀爀吀礀瀀攀㴀㄀ ✀꬀れ?P廭,貫㼰倀㨀一㄀ఀ珸匀᠀ 搀攀猀挀ᤀ ᬀヸ㨀一᠀ 愀猀挀ᤀ 䘀伀⼀昀৤最愀猀挀⠀圀猀焀氀豈ᶗ?N

PageNo=1    '貫㼰笀㄀甀㼀਀倀愀最攀匀椀稀攀㴀㔀　 ✀꬀れ疇㼀　愀最最澑怀ഀ਀吀愀戀氀攀一愀洀攀㴀∀∀ഀ਀䤀猀䄀氀琀㴀琀爀甀攀ഀ਀吀椀琀氀攀㴀∀∀ഀ਀䐀椀猀瀀䘀椀攀氀搀㴀∀⨀∀ഀ਀圀栀攀爀攀㴀∀∀ഀ਀䤀渀椀琀伀甀琀瀀甀琀ഀ਀匀栀漀眀吀愀椀氀㴀琀爀甀攀ഀ਀䔀渀搀 匀甀戀ഀ਀倀甀戀氀椀挀 匀甀戀 䤀渀椀琀伀甀琀瀀甀琀⠀⤀ഀ਀搀椀洀 渀甀洀ഀ਀昀漀爀 渀甀洀㴀　 琀漀 甀戀漀甀渀搀⠀愀爀爀䌀漀氀⤀ഀ਀愀爀爀䌀漀氀⠀渀甀洀⤀㴀愀爀爀愀礀⠀∀∀Ⰰ∀∀Ⰰ∀∀Ⰰ∀∀⤀ഀ਀渀攀砀琀ഀ਀洀倀漀猀㴀　ഀ਀䔀渀搀 匀甀戀ഀ਀倀甀戀氀椀挀 䘀甀渀挀琀椀漀渀 匀攀愀爀挀栀⠀挀漀渀渀⤀ഀ਀搀椀洀 爀猀ഀ਀猀攀琀 爀猀㴀猀攀爀瘀攀爀⸀䌀爀攀愀琀攀伀戀樀攀挀琀⠀∀䄀䐀伀䐀䈀⸀刀攀挀漀爀搀猀攀琀∀⤀ഀ਀椀昀 䄀洀漀甀渀琀㴀ⴀ㄀ 琀栀攀渀ഀ਀✀脀႐?`pe

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,1)

end with

set rs=cmd.Execute()

Amount=rs(0)

rs.close

set cmd=nothing

end if

'㼱炞攀渀挀ഀ਀猀攀琀 挀洀搀㴀猀攀爀瘀攀爀⸀䌀爀攀愀琀攀伀戀樀攀挀琀⠀∀䄀䐀伀䐀䈀⸀䌀漀洀洀愀渀搀∀⤀ഀ਀眀椀琀栀 挀洀搀ഀ਀⸀䄀挀琀椀瘀攀䌀漀渀渀攀挀琀椀漀渀㴀挀漀渀渀ഀ਀⸀䌀漀洀洀愀渀搀吀攀砀琀㴀∀甀猀瀀开䌀漀洀洀匀攀愀爀挀栀∀ഀ਀⸀䌀漀洀洀愀渀搀吀礀瀀攀㴀愀搀䌀洀搀匀琀漀爀攀搀倀爀漀挀ഀ਀⸀倀愀爀愀洀攀琀攀爀猀⸀䄀瀀瀀攀渀搀㴀⸀䌀爀攀愀琀攀倀愀爀愀洀攀琀攀爀⠀∀䀀吀愀戀氀攀一愀洀攀∀Ⰰ愀搀嘀愀爀䌀栀愀爀Ⰰ愀搀倀愀爀愀洀䤀渀瀀甀琀Ⰰ㔀　　Ⰰ吀愀戀氀攀一愀洀攀⤀ഀ਀⸀倀愀爀愀洀攀琀攀爀猀⸀䄀瀀瀀攀渀搀㴀⸀䌀爀攀愀琀攀倀愀爀愀洀攀琀攀爀⠀∀䀀䐀椀猀瀀䘀椀攀氀搀∀Ⰰ愀搀嘀愀爀䌀栀愀爀Ⰰ愀搀倀愀爀愀洀䤀渀瀀甀琀Ⰰ㔀　　Ⰰ䐀椀猀瀀䘀椀攀氀搀⤀ഀ਀⸀倀愀爀愀洀攀琀攀爀猀⸀䄀瀀瀀攀渀搀㴀⸀䌀爀攀愀琀攀倀愀爀愀洀攀琀攀爀⠀∀䀀圀栀攀爀攀∀Ⰰ愀搀嘀愀爀䌀栀愀爀Ⰰ愀搀倀愀爀愀洀䤀渀瀀甀琀Ⰰ㔀　　Ⰰ圀栀攀爀攀⤀ഀ਀⸀倀愀爀愀洀攀琀攀爀猀⸀䄀瀀瀀攀渀搀㴀⸀䌀爀攀愀琀攀倀愀爀愀洀攀琀攀爀⠀∀䀀伀爀搀攀爀䈀礀∀Ⰰ愀搀嘀愀爀䌀栀愀爀Ⰰ愀搀倀愀爀愀洀䤀渀瀀甀琀Ⰰ㔀　Ⰰ伀爀搀攀爀䈀礀⤀ഀ਀⸀倀愀爀愀洀攀琀攀爀猀⸀䄀瀀瀀攀渀搀㴀⸀䌀爀攀愀琀攀倀愀爀愀洀攀琀攀爀⠀∀䀀伀爀搀攀爀吀礀瀀攀∀Ⰰ愀搀䈀漀漀氀攀愀渀Ⰰ愀搀倀愀爀愀洀䤀渀瀀甀琀Ⰰ㄀Ⰰ伀爀搀攀爀吀礀瀀攀⤀ഀ਀⸀倀愀爀愀洀攀琀攀爀猀⸀䄀瀀瀀攀渀搀㴀⸀䌀爀攀愀琀攀倀愀爀愀洀攀琀攀爀⠀∀䀀䐀漀䌀漀甀渀琀∀Ⰰ愀搀䈀漀漀氀攀愀渀Ⰰ愀搀倀愀爀愀洀䤀渀瀀甀琀Ⰰ㄀Ⰰ　⤀ഀ਀⸀倀愀爀愀洀攀琀攀爀猀⸀䄀瀀瀀攀渀搀㴀⸀䌀爀攀愀琀攀倀愀爀愀洀攀琀攀爀⠀∀䀀倀愀最攀一漀∀Ⰰ愀搀䤀渀琀攀最攀爀Ⰰ愀搀倀愀爀愀洀䤀渀瀀甀琀Ⰰ㐀Ⰰ倀愀最攀一漀⤀ഀ਀⸀倀愀爀愀洀攀琀攀爀猀⸀䄀瀀瀀攀渀搀㴀⸀䌀爀攀愀琀攀倀愀爀愀洀攀琀攀爀⠀∀䀀倀愀最攀匀椀稀攀∀Ⰰ愀搀䤀渀琀攀最攀爀Ⰰ愀搀倀愀爀愀洀䤀渀瀀甀琀Ⰰ㐀Ⰰ倀愀最攀匀椀稀攀⤀ഀ਀攀渀搀 眀椀琀栀ഀ਀猀攀琀 爀猀㴀挀洀搀⸀䔀砀攀挀甀琀攀⠀⤀ഀ਀猀攀琀 挀洀搀㴀渀漀琀栀椀渀最ഀ਀猀攀琀 匀攀愀爀挀栀㴀爀猀ഀ਀䔀渀搀 䘀甀渀挀琀椀漀渀ഀ਀✀怀坱嬀䈀൹਀倀甀戀氀椀挀 䘀甀渀挀琀椀漀渀 䄀搀搀䌀漀氀甀洀渀⠀琀椀琀氀攀Ⰰ眀椀搀琀栀Ⰰ挀漀氀愀氀椀最渀Ⰰ挀漀渀琀攀渀琀⤀ഀ਀愀爀爀䌀漀氀⠀洀倀漀猀⤀㴀愀爀爀愀礀⠀琀椀琀氀攀Ⰰ眀椀搀琀栀Ⰰ挀漀氀愀氀椀最渀Ⰰ挀漀渀琀攀渀琀⤀ഀ਀洀倀漀猀㴀洀倀漀猀⬀㄀ഀ਀䔀渀搀 䘀甀渀挀琀椀漀渀ഀ਀倀甀戀氀椀挀 䘀甀渀挀琀椀漀渀 伀甀琀瀀甀琀⠀刀猀⤀ഀ਀䄀氀氀倀愀最攀䌀漀甀渀琀㴀椀渀琀⠀⠀䄀洀漀甀渀琀ⴀ㄀⤀⼀倀愀最攀匀椀稀攀⤀⬀㄀ഀ਀倀愀最攀一漀㴀挀氀渀最⠀倀愀最攀一漀⤀ഀ਀䄀洀漀甀渀琀㴀挀氀渀最⠀䄀洀漀甀渀琀⤀ഀ਀䌀甀爀䈀一甀洀㴀⠀倀愀最攀一漀ⴀ㄀⤀⨀倀愀最攀匀椀稀攀⬀㄀ഀ਀椀昀 倀愀最攀一漀⨀倀愀最攀匀椀稀攀㰀䄀洀漀甀渀琀 琀栀攀渀ഀ਀䌀甀爀䔀一甀洀㴀倀愀最攀一漀⨀倀愀最攀匀椀稀攀ഀ਀攀氀猀攀ഀ਀䌀甀爀䔀一甀洀㴀䄀洀漀甀渀琀ഀ਀攀渀搀 椀昀ഀ਀搀椀洀 渀甀洀ഀ਀搀椀洀 挀漀氀一甀洀ഀ਀挀漀氀一甀洀㴀洀倀漀猀ⴀ㄀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㄀⤀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀⠀吀愀戀氀攀圀椀搀琀栀⤀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㈀⤀ഀ਀椀昀 吀椀琀氀攀㰀㸀∀∀ 琀栀攀渀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㌀⤀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀⠀挀漀氀一甀洀⬀㄀⤀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㐀⤀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀⠀吀椀琀氀攀⤀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㔀⤀ഀ਀攀渀搀 椀昀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㘀⤀ഀ਀昀漀爀 渀甀洀㴀　 琀漀 挀漀氀一甀洀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㜀⤀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀⠀愀爀爀䌀漀氀⠀渀甀洀⤀⠀㄀⤀⤀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㠀⤀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀⠀愀爀爀䌀漀氀⠀渀甀洀⤀⠀　⤀⤀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㤀⤀ഀ਀渀攀砀琀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㄀　⤀ഀ਀搀椀洀 爀漀眀一甀洀Ⰰ愀愀Ⰰ昀渀愀洀攀Ⰰ昀瘀愀氀甀攀ഀ਀搀椀洀 爀攀Ⰰ䴀愀琀挀栀猀Ⰰ䴀愀琀挀栀ഀ਀猀攀琀 爀攀㴀渀攀眀 刀攀最䔀砀瀀ഀ਀爀攀⸀倀愀琀琀攀爀渀㴀∀尀嬀⠀⸀⨀㼀⤀尀崀∀ഀ਀爀攀⸀䤀最渀漀爀攀䌀愀猀攀㴀琀爀甀攀ഀ਀爀攀⸀䜀氀漀戀愀氀㴀琀爀甀攀ഀ਀爀漀眀一甀洀㴀㄀ഀ਀椀昀 渀漀琀 刀猀⸀䔀伀䘀 琀栀攀渀ഀ਀眀栀椀氀攀 渀漀琀 刀猀⸀䔀伀䘀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㄀㄀⤀ഀ਀昀漀爀 渀甀洀㴀　 琀漀 挀漀氀一甀洀ഀ਀椀昀 䤀猀䄀氀琀 琀栀攀渀ഀ਀椀昀 爀漀眀一甀洀 洀漀搀 ㈀ 㴀 　 琀栀攀渀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㄀㈀⤀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀⠀愀爀爀䌀漀氀⠀渀甀洀⤀⠀㈀⤀⤀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㄀㌀⤀ഀ਀攀氀猀攀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㄀㐀⤀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀⠀愀爀爀䌀漀氀⠀渀甀洀⤀⠀㈀⤀⤀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㄀㔀⤀ഀ਀攀渀搀 椀昀ഀ਀攀氀猀攀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㄀㘀⤀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀⠀愀爀爀䌀漀氀⠀渀甀洀⤀⠀㈀⤀⤀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㄀㜀⤀ഀ਀攀渀搀 椀昀ഀ਀愀愀㴀愀爀爀䌀漀氀⠀渀甀洀⤀⠀㌀⤀ഀ਀猀攀琀 洀愀琀挀栀猀㴀爀攀⸀䔀砀攀挀甀琀攀⠀愀愀⤀ഀ਀昀漀爀 攀愀挀栀 洀愀挀琀栀 椀渀 洀愀琀挀栀猀ഀ਀昀渀愀洀攀㴀洀愀挀琀栀⸀瘀愀氀甀攀ഀ਀昀渀愀洀攀㴀爀攀瀀氀愀挀攀⠀昀渀愀洀攀Ⰰ∀嬀∀Ⰰ∀∀⤀ഀ਀昀渀愀洀攀㴀爀攀瀀氀愀挀攀⠀昀渀愀洀攀Ⰰ∀崀∀Ⰰ∀∀⤀ഀ਀昀瘀愀氀甀攀㴀爀猀⠀昀渀愀洀攀⤀ഀ਀椀昀 椀猀渀甀氀氀⠀昀瘀愀氀甀攀⤀ 琀栀攀渀ഀ਀昀瘀愀氀甀攀㴀∀∀ഀ਀攀氀猀攀ഀ਀昀瘀愀氀甀攀㴀爀攀瀀氀愀挀攀⠀昀瘀愀氀甀攀Ⰰ瘀戀挀爀氀昀Ⰰ∀㰀戀爀㸀∀⤀ഀ਀攀渀搀 椀昀ഀ਀椀昀 椀猀渀甀氀氀⠀昀瘀愀氀甀攀⤀ 琀栀攀渀 昀瘀愀氀甀攀㴀∀∀ഀ਀愀愀㴀爀攀瀀氀愀挀攀⠀愀愀Ⰰ洀愀挀琀栀⸀瘀愀氀甀攀Ⰰ昀瘀愀氀甀攀⤀ഀ਀渀攀砀琀ഀ਀✀爀攀猀瀀漀渀猀攀⸀圀爀椀琀攀 愀愀ഀ਀椀昀 氀攀昀琀⠀愀愀Ⰰ㄀⤀㴀∀㴀∀ 琀栀攀渀ഀ਀愀愀㴀∀愀愀∀ ☀ 愀愀ഀ਀✀爀攀猀瀀漀渀猀攀⸀圀爀椀琀攀 愀愀ഀ਀䔀砀攀挀甀琀攀⠀愀愀⤀ഀ਀攀渀搀 椀昀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀 愀愀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㄀㠀⤀ഀ਀渀攀砀琀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀 ∀㰀⼀琀爀㸀∀ഀ਀刀猀⸀䴀漀瘀攀一攀砀琀ഀ਀爀漀眀一甀洀㴀爀漀眀一甀洀⬀㄀ഀ਀眀攀渀搀ഀ਀椀昀 匀栀漀眀吀愀椀氀 琀栀攀渀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㄀㤀⤀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀⠀挀漀氀一甀洀⬀㄀⤀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㈀　⤀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀⠀䄀洀漀甀渀琀⤀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㈀㄀⤀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀⠀䌀甀爀䈀一甀洀⤀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㈀㈀⤀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀⠀䌀甀爀䔀一甀洀⤀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㈀㌀⤀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀⠀倀愀最攀一漀⤀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㈀㐀⤀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀⠀䄀氀氀倀愀最攀䌀漀甀渀琀⤀ഀ਀椀昀 唀刀䰀㰀㸀∀∀ 琀栀攀渀ഀ਀唀刀䰀 㴀 唀刀䰀 ☀ ∀䄀洀漀甀渀琀㴀∀ ☀ 䄀洀漀甀渀琀 ☀ ∀☀∀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㈀㔀⤀ഀ਀椀昀 倀愀最攀一漀 㰀㸀 ㄀ 琀栀攀渀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㈀㘀⤀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀⠀唀刀䰀⤀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㈀㜀⤀ഀ਀攀渀搀 椀昀ഀ਀椀昀 倀愀最攀一漀 㸀 ㄀ 琀栀攀渀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㈀㠀⤀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀⠀唀刀䰀⤀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㈀㤀⤀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀⠀倀愀最攀一漀ⴀ㄀⤀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㌀　⤀ഀ਀攀渀搀 椀昀ഀ਀椀昀 䄀氀氀倀愀最攀䌀漀甀渀琀 㸀 倀愀最攀一漀 琀栀攀渀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㌀㄀⤀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀⠀唀刀䰀⤀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㌀㈀⤀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀⠀倀愀最攀一漀⬀㄀⤀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㌀㌀⤀ഀ਀攀渀搀 椀昀ഀ਀椀昀 倀愀最攀一漀 㰀㸀  䄀氀氀倀愀最攀䌀漀甀渀琀 琀栀攀渀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㌀㐀⤀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀⠀唀刀䰀⤀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㌀㔀⤀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀⠀䄀氀氀倀愀最攀䌀漀甀渀琀⤀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㌀㘀⤀ഀ਀攀渀搀 椀昀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㌀㜀⤀ഀ਀攀渀搀 椀昀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㌀㠀⤀ഀ਀攀渀搀 椀昀ഀ਀攀氀猀攀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㌀㤀⤀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀⠀挀漀氀一甀洀⬀㄀⤀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㐀　⤀ഀ਀攀渀搀 椀昀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㐀㄀⤀ഀ਀䔀渀搀 䘀甀渀挀琀椀漀渀ഀ਀䔀渀搀 䌀氀愀猀猀ഀ਀✀ ᨀ㼀甀瀀攀渀挀ꭣ岆伀䤀炟攀ഀ਀搀椀洀 猀礀猀伀瀀琀䄀爀攀愀Ⰰ猀礀猀伀瀀琀倀漀猀椀琀椀漀渀Ⰰ猀礀猀伀瀀琀䌀漀洀瀀愀渀礀吀礀瀀攀ഀ਀猀礀猀伀瀀琀䄀爀攀愀 㴀 ∀ᜀ匀଀ⱴ⤀夀─洀Ⰰ਀一眀洀Ⰰffⱔ쌀⽪渀Ⰰ㴀᝸匀Ⰰ焀尀ᰀ一Ⰰऀ吀頀ⱨ蜀啽ⱎ㌀즉彪氀Ⰰⴀ깓뱪Ⲓ焀尀缀㼀㴀坸匀Ⰰ唀㼀㼀᠀甀ऀⱑ唀ཎ夀Ⰰ猀ᡶⱕ刀가浨Ⰰ缀㽘怀噘ⱽ嘀渀ᜀ匀Ⰰ嘀渀圀匀ⰀĀ㼿开氀ﰀⲇ开氀缀㼀ᴀ셟ⲝ缀帀缀㼀夀洀开氀Ⰰ缀帀ᰀ一Ⰰ眀洀圀匀Ⰰ嬀坡匀Ⰰ㔀紀嵝Ⰰ윀㎙圀Ⰰ一?Y"

sysOptPosition = "
ON?嵑N,貧㽄?t篘XT,N篘XT,㼃砀�塻吀Ⰰ昀嬀ἀ甀Ⰰ瘀儀⊊ഀ਀猀礀猀伀瀀琀䌀漀洀瀀愀渀礀吀礀瀀攀 㴀 ∀ἀ甀᐀?ON,蟸?ON,?e淾钀㾑̀?xYe瞼:g刧,酧o`
g
ON,*NSO蟸%?ON,vQ僛"

sysOptDepartment = "菓-嶈愯?㽊胥醔?"崱R钀㾑Ā?t钀㾑最澑怀耀醔?^:W\?U㾀✀?z房⼀最耀醔?㼃砀耀醔?vQ僛"

sysOptRegType = "癳鑜孮(u7b|0,諎(u(u7b|1,ck_(u7b|9"

SysOptSnCompany = "縉葔Q|COM"

SysOptSnIO = "6eeQ|I,/e鶴|O"

SysOptSnContract = "酧o`?UTT|I,JT?UTT|R,O畫
gTT|C"

dim sysMailHost,sysMailUser,sysMailPwd

'sysMailHost="mail.comelan.com"

'sysMailUser="comelan@comelan.com"

'sysMailPwd="comelan"

sysMailHost="mail.comelan.com"

sysMailUser="comelan@comelan.com"

sysMailPwd="comelan"

' 鹼㾁炀攀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀✀ᨀ㼀甀䤀୒稀͞栀䙜兛瀀攀ഀ਀✀㄀Ā　匀甀戀 圀爀椀琀攀䔀爀爀漀爀⠀猀琀爀⤀ऀऀऀऀ✀䔀䦘ᩒ㻸昀㨀礀̀栀♜佛漀怀ഀ਀✀㈀Ā　匀甀戀 圀爀椀琀攀䔀爀爀漀爀䰀渀ऀऀऀऀ✀㸀昀㨀礀̀栀♜佛漀怀ഀ਀✀㌀Ā　匀甀戀 圀爀椀琀攀刀攀焀甀攀猀琀⠀⤀ऀऀऀऀ✀㤀둤䂝戀ऀ最栀㈀南伀查澑怀ഀ਀✀㐀Ā　匀甀戀 圀爀椀琀攀䄀爀爀愀礀⠀琀栀攀䄀Ⰰ攀渀搀䘀氀愀最⤀ऀ✀䨀?wpe膥剉@b	g<P

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

dim m_g_IsDebug

m_g_IsDebug = true		'/f&T:N屨婬r,gS_ck_裇^z廭㼁꿸ᢘ?e:Nm_g_IsDebug=false

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

'顅剉>f:y屨嬦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

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

'顅剉>f:y屨嬦Oo` Response.End

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

Sub WriteErrorLn(str)

IF m_g_IsDebug Then

Response.write str & "<br>"

Response.End

End IF

End Sub

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

'搹鶴@b	gh圲S衏酧o`

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

Sub WriteRequest()

IF m_g_IsDebug Then

For Each thing In Request.Form

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

Next

End IF

End Sub

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

'㽊眀瀀攀ꔀ䦁䁒戀ऀ最㰀倀ഀ਀✀攀渀搀䘀氀愀最㴀㄀Ā?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廭屨孆Qpe

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

'	W[&{Yt齉pe

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

'1
0function StrLength(str)				詮轛W[&{2N剉暒^ -N噀W[&{=2

'2
0function IsInteger(para)			$R璭para/f&T:Nte媁,/f詮㽛 ☀吀渀宊?

'3
0function cutStr(str,strLen)			*bW[&{2NMRstrLen*NW[2N,$R璭-N噀W[&{

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

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

'6
0function HTMLcode(fString)			W[&{2N
x(闟鵞轛f?
x)

'7
0function strFill(str1,strlen,chrFill)	鵞W[&{2N
N醤strLen暒^剉(uchrFill蜰鎉kXEQ

'8
0function chkInputStr(str,length)	㽞敤儀䤀坒嬀㈀一㰀倀琀罛鈀幦娀䲎㼀刀관ⱴ찀ࡏ置鈀幦✀夀꼀汝攀渀最琀栀ᤀ刀䶊刀氀攀渀最琀栀⨀一ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀✀渀宊垏嬀☀笀㈀一䤀罒鈀幦ఀ⓸刀관⵴一䀀坖嬀☀笀ഀ਀昀甀渀挀琀椀漀渀 匀琀爀䰀攀渀最琀栀⠀猀琀爀⤀ഀ਀搀椀洀 爀攀猀甀氀琀Ⰰ圀䤀一一吀开䌀䠀䤀一䔀匀䔀ഀ਀漀渀 攀爀爀漀爀 爀攀猀甀洀攀 渀攀砀琀ഀ਀椀昀 猀琀爀㴀∀∀ 漀爀 椀猀渀甀氀氀⠀猀琀爀⤀ 琀栀攀渀ഀ਀爀攀猀甀氀琀㴀　ഀ਀攀氀猀攀ഀ਀圀䤀一一吀开䌀䠀䤀一䔀匀䔀 㴀 ⠀氀攀渀⠀∀ⴀ一䀀≖⤀㴀㈀⤀ഀ਀椀昀 圀䤀一一吀开䌀䠀䤀一䔀匀䔀 琀栀攀渀ഀ਀搀椀洀 氀Ⰰ挀Ⰰ椀ഀ਀氀㴀氀攀渀⠀猀琀爀⤀ഀ਀爀攀猀甀氀琀㴀氀ഀ਀昀漀爀 椀㴀㄀ 琀漀 氀ഀ਀挀㴀愀猀挀⠀洀椀搀⠀猀琀爀Ⰰ椀Ⰰ㄀⤀⤀ഀ਀椀昀 挀㰀　 琀栀攀渀 挀㴀挀⬀ 㘀㔀㔀㌀㘀ഀ਀椀昀 挀㸀㈀㔀㔀 琀栀攀渀 爀攀猀甀氀琀㴀爀攀猀甀氀琀⬀㄀ഀ਀渀攀砀琀ഀ਀攀氀猀攀ഀ਀爀攀猀甀氀琀㴀氀攀渀⠀猀琀爀⤀ഀ਀攀渀搀 椀昀ഀ਀椀昀 䔀爀爀⸀渀甀洀戀攀爀㰀㸀　 琀栀攀渀 䔀爀爀⸀䌀氀攀愀爀ഀ਀攀渀搀 椀昀ഀ਀猀琀爀䰀攀渀㴀爀攀猀甀氀琀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀昀甀渀挀琀椀漀渀 䤀猀䤀渀琀攀最攀爀⠀瀀愀爀愀⤀ഀ਀伀渀 䔀爀爀漀爀 刀攀猀甀洀攀 渀攀砀琀ഀ਀搀椀洀 爀攀猀甀氀琀ഀ਀爀攀猀甀氀琀㴀㄀ഀ਀搀椀洀 猀琀爀Ⰰ氀Ⰰ椀ഀ਀椀昀 椀猀渀甀氀氀⠀瀀愀爀愀⤀ 琀栀攀渀ऀ✀⼀昀☀吀㤀敤儀㰀倀㨀一一唀䰀䰀ഀ਀爀攀猀甀氀琀㴀　ഀ਀攀氀猀攀ഀ਀猀琀爀㴀挀猀琀爀⠀瀀愀爀愀⤀ഀ਀椀昀 琀爀椀洀⠀猀琀爀⤀㴀∀∀ 琀栀攀渀ऀ✀⼀昀☀吀㤀敤儀㰀倀㨀一稀稀ഀ਀爀攀猀甀氀琀㴀　ഀ਀攀氀猀攀ഀ਀氀㴀氀攀渀⠀猀琀爀⤀ഀ਀昀漀爀 椀㴀㄀ 琀漀 氀ഀ਀搀椀洀 挀栀愀爀ഀ਀挀栀愀爀㴀洀椀搀⠀猀琀爀Ⰰ椀Ⰰ㄀⤀ഀ਀椀昀⠀挀栀愀爀㸀∀㤀∀ 漀爀 挀栀愀爀㰀∀　∀⤀ 琀栀攀渀ऀ✀⼀昀☀吀㤀敤儀㰀倀ऀ最帀ꄀ敨圀嬀圀嬀☀笀ഀ਀爀攀猀甀氀琀㴀　ഀ਀䔀砀椀琀 昀漀爀ഀ਀攀渀搀 椀昀ഀ਀渀攀砀琀ഀ਀攀渀搀 椀昀ഀ਀攀渀搀 椀昀ഀ਀椀昀 䔀爀爀⸀渀甀洀戀攀爀㰀㸀　 琀栀攀渀 䔀爀爀⸀䌀氀攀愀爀ഀ਀椀猀䤀渀琀攀最攀爀㴀爀攀猀甀氀琀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀昀甀渀挀琀椀漀渀 䌀甀琀匀琀爀⠀猀琀爀Ⰰ猀琀爀䰀攀渀⤀ഀ਀搀椀洀 爀攀猀甀氀琀Ⰰ圀䤀一一吀开䌀䠀䤀一䔀匀䔀ഀ਀椀昀 椀猀渀甀氀氀⠀猀琀爀⤀ 漀爀 猀琀爀㴀∀∀ 琀栀攀渀ഀ਀挀甀琀匀琀爀㴀∀∀ഀ਀䔀砀椀琀 昀甀渀挀琀椀漀渀ഀ਀攀渀搀 椀昀ഀ਀爀攀猀甀氀琀㴀∀∀ഀ਀圀䤀一一吀开䌀䠀䤀一䔀匀䔀 㴀 ⠀氀攀渀⠀∀ⴀ一䀀≖⤀㴀㈀⤀ഀ਀椀昀 圀䤀一一吀开䌀䠀䤀一䔀匀䔀 琀栀攀渀ഀ਀搀椀洀 氀Ⰰ琀Ⰰ挀Ⰰ椀ഀ਀氀㴀氀攀渀⠀猀琀爀⤀ഀ਀琀㴀　ഀ਀昀漀爀 椀㴀㄀ 琀漀 氀ഀ਀挀㴀愀猀挀⠀洀椀搀⠀猀琀爀Ⰰ椀Ⰰ㄀⤀⤀ഀ਀椀昀 挀㰀　 琀栀攀渀 挀㴀挀⬀ 㘀㔀㔀㌀㘀ഀ਀椀昀 挀㸀㈀㔀㔀 琀栀攀渀ഀ਀琀㴀琀⬀㈀ഀ਀攀氀猀攀ഀ਀琀㴀琀⬀㄀ഀ਀攀渀搀 椀昀ഀ਀椀昀 琀㸀㴀猀琀爀䰀攀渀 琀栀攀渀ഀ਀爀攀猀甀氀琀㴀氀攀昀琀⠀猀琀爀Ⰰ椀⤀ഀ਀䔀砀椀琀 昀漀爀ഀ਀攀渀搀 椀昀ഀ਀渀攀砀琀ഀ਀椀昀 爀攀猀甀氀琀㴀∀∀ 琀栀攀渀 爀攀猀甀氀琀㴀猀琀爀ഀ਀攀氀猀攀ഀ਀椀昀 氀攀渀⠀猀琀爀⤀㸀猀琀爀䰀攀渀 琀栀攀渀ഀ਀爀攀猀甀氀琀㴀氀攀昀琀⠀猀琀爀Ⰰ猀琀爀䰀攀渀⤀ഀ਀攀氀猀攀ഀ਀爀攀猀甀氀琀㴀氀攀昀琀⠀猀琀爀Ⰰ猀琀爀氀攀渀⤀ഀ਀攀渀搀 椀昀ഀ਀攀渀搀 椀昀ഀ਀挀甀琀匀琀爀㴀爀攀猀甀氀琀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀✀圀嬀☀笀㈀一娀䲎ᨀW吀䴀䰀ᘀ缀Ā砀Ѐ夀؀琀ഀ਀昀甀渀挀琀椀漀渀 䠀吀䴀䰀䔀渀挀漀搀攀⠀昀匀琀爀椀渀最⤀ഀ਀椀昀 一漀琀 椀猀渀甀氀氀⠀昀匀琀爀椀渀最⤀ 琀栀攀渀ഀ਀昀匀琀爀椀渀最 㴀 爀攀瀀氀愀挀攀⠀昀匀琀爀椀渀最Ⰰ ∀㸀∀Ⰰ ∀☀最琀㬀∀⤀ഀ਀昀匀琀爀椀渀最 㴀 爀攀瀀氀愀挀攀⠀昀匀琀爀椀渀最Ⰰ ∀㰀∀Ⰰ ∀☀氀琀㬀∀⤀ഀ਀昀匀琀爀椀渀最 㴀 刀攀瀀氀愀挀攀⠀昀匀琀爀椀渀最Ⰰ 䌀䠀刀⠀㌀㈀⤀Ⰰ ∀☀渀戀猀瀀㬀∀⤀ഀ਀昀匀琀爀椀渀最 㴀 刀攀瀀氀愀挀攀⠀昀匀琀爀椀渀最Ⰰ 䌀䠀刀⠀㌀㐀⤀Ⰰ ∀☀焀甀漀琀㬀∀⤀ഀ਀昀匀琀爀椀渀最 㴀 刀攀瀀氀愀挀攀⠀昀匀琀爀椀渀最Ⰰ 䌀䠀刀⠀㌀㤀⤀Ⰰ ∀☀⌀㌀㤀㬀∀⤀ഀ਀昀匀琀爀椀渀最 㴀 刀攀瀀氀愀挀攀⠀昀匀琀爀椀渀最Ⰰ 䌀䠀刀⠀㄀㌀⤀Ⰰ ∀∀⤀ഀ਀昀匀琀爀椀渀最 㴀 刀攀瀀氀愀挀攀⠀昀匀琀爀椀渀最Ⰰ 䌀䠀刀⠀㄀　⤀ ☀ 䌀䠀刀⠀㄀　⤀Ⰰ ∀㰀⼀倀㸀㰀倀㸀 ∀⤀ഀ਀昀匀琀爀椀渀最 㴀 刀攀瀀氀愀挀攀⠀昀匀琀爀椀渀最Ⰰ 䌀䠀刀⠀㄀　⤀Ⰰ ∀㰀䈀刀㸀 ∀⤀ഀ਀䠀吀䴀䰀䔀渀挀漀搀攀 㴀 昀匀琀爀椀渀最ഀ਀攀渀搀 椀昀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀✀圀嬀☀笀㈀一娀䲎ᨀW吀䴀䰀圀ᙼ缀Ā砀Ѐ夀؀琀ഀ਀昀甀渀挀琀椀漀渀 䠀吀䴀䰀䐀攀挀漀搀攀⠀昀匀琀爀椀渀最⤀ഀ਀椀昀 一漀琀 椀猀渀甀氀氀⠀昀匀琀爀椀渀最⤀ 琀栀攀渀ഀ਀昀匀琀爀椀渀最 㴀 爀攀瀀氀愀挀攀⠀昀匀琀爀椀渀最Ⰰ ∀☀最琀㬀∀Ⰰ ∀㸀∀⤀ഀ਀昀匀琀爀椀渀最 㴀 爀攀瀀氀愀挀攀⠀昀匀琀爀椀渀最Ⰰ ∀☀氀琀㬀∀Ⰰ ∀㰀∀⤀ഀ਀昀匀琀爀椀渀最 㴀 刀攀瀀氀愀挀攀⠀昀匀琀爀椀渀最Ⰰ ∀∀Ⰰ 䌀䠀刀⠀㄀㌀⤀⤀ഀ਀昀匀琀爀椀渀最 㴀 刀攀瀀氀愀挀攀⠀昀匀琀爀椀渀最Ⰰ ∀㰀⼀倀㸀㰀倀㸀∀Ⰰ 䌀䠀刀⠀㄀　⤀ ☀ 䌀䠀刀⠀㄀　⤀⤀ഀ਀昀匀琀爀椀渀最 㴀 刀攀瀀氀愀挀攀⠀昀匀琀爀椀渀最Ⰰ ∀㰀䈀刀㸀∀Ⰰ 䌀䠀刀⠀㄀　⤀⤀ഀ਀䠀吀䴀䰀䐀攀挀漀搀攀 㴀 昀匀琀爀椀渀最ഀ਀攀渀搀 椀昀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀✀帀垝嬀☀笀㈀一ഀ一ꐀ玑琀爀䰀攀渀缀鈀幦䤀⡒甀挀栀爀䘀椀氀氀　覇殓堀䔀儀ഀ਀昀甀渀挀琀椀漀渀 匀琀爀䘀椀氀氀⠀猀琀爀㄀Ⰰ猀琀爀氀攀渀Ⰰ挀栀爀䘀椀氀氀⤀ഀ਀椀昀 椀渀琀⠀猀琀爀氀攀渀⤀㰀㈀ 漀爀 氀攀渀⠀挀栀爀䘀椀氀氀⤀㰀㸀㄀ 琀栀攀渀ഀ਀猀琀爀䘀椀氀氀㴀∀∀ഀ਀䔀砀椀琀 昀甀渀挀琀椀漀渀ഀ਀攀渀搀 椀昀ഀ਀椀昀 氀攀渀⠀猀琀爀㄀⤀㸀㴀猀琀爀氀攀渀 琀栀攀渀ഀ਀猀琀爀䘀椀氀氀㴀猀琀爀㄀ഀ਀䔀砀椀琀 昀甀渀挀琀椀漀渀ഀ਀攀渀搀 椀昀ഀ਀猀琀爀䘀椀氀氀㴀刀攀瀀氀椀挀愀琀攀⠀挀栀爀䘀椀氀氀Ⰰ猀琀爀氀攀渀ⴀ氀攀渀⠀猀琀爀㄀⤀⤀ ⬀ 猀琀爀㄀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀昀甀渀挀琀椀漀渀 䌀栀欀䤀渀瀀甀琀匀琀爀⠀猀琀爀Ⰰ氀攀渀最琀栀⤀ഀ਀猀琀爀㴀琀爀椀洀⠀猀琀爀⤀ഀ਀搀椀洀 爀攀猀甀氀琀ഀ਀椀昀 氀攀渀最琀栀㸀　 琀栀攀渀ഀ਀爀攀猀甀氀琀㴀挀甀琀匀琀爀⠀猀琀爀Ⰰ氀攀渀最琀栀⤀ഀ਀攀氀猀攀ഀ਀椀昀 氀攀渀最琀栀㴀　 琀栀攀渀ഀ਀爀攀猀甀氀琀㴀猀琀爀ഀ਀攀氀猀攀ഀ਀爀攀猀甀氀琀㴀∀∀ഀ਀攀渀搀 椀昀ഀ਀攀渀搀 椀昀ഀ਀爀攀猀甀氀琀 㴀 刀攀瀀氀愀挀攀⠀爀攀猀甀氀琀Ⰰ 䌀䠀刀⠀㌀㐀⤀Ⰰ ∀☀焀甀漀琀㬀∀⤀ഀ਀爀攀猀甀氀琀 㴀 刀攀瀀氀愀挀攀⠀爀攀猀甀氀琀Ⰰ 䌀䠀刀⠀㌀㤀⤀Ⰰ ∀☀⌀㌀㤀㬀∀⤀ഀ਀挀栀欀䤀渀瀀甀琀匀琀爀㴀爀攀猀甀氀琀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀✀찀ࡏ൮一⼀昀瀀攀圀嬀ఀ᧸刀㨀一稀稀ഀ਀昀甀渀挀琀椀漀渀 䌀栀欀䤀渀瀀甀琀一甀洀⠀猀琀爀⤀ഀ਀椀昀 猀琀爀㰀㸀∀∀ 琀栀攀渀ഀ਀椀昀 椀猀渀甀洀攀爀椀挀⠀猀琀爀⤀ 琀栀攀渀ഀ਀䌀栀欀䤀渀瀀甀琀一甀洀㴀猀琀爀ഀ਀攀氀猀攀ഀ਀䌀栀欀䤀渀瀀甀琀一甀洀㴀∀∀ഀ਀攀渀搀 椀昀ഀ਀攀氀猀攀ഀ਀䌀栀欀䤀渀瀀甀琀一甀洀㴀∀∀ഀ਀攀渀搀 椀昀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀昀甀渀挀琀椀漀渀 䌀栀欀䤀渀瀀甀琀䐀愀琀攀⠀猀琀爀⤀ഀ਀椀昀 猀琀爀㰀㸀∀∀ 琀栀攀渀ഀ਀椀昀 椀猀搀愀琀攀⠀猀琀爀⤀ 琀栀攀渀ഀ਀䌀栀欀䤀渀瀀甀琀䐀愀琀攀㴀猀琀爀ഀ਀攀氀猀攀ഀ਀䌀栀欀䤀渀瀀甀琀䐀愀琀攀㴀∀∀ഀ਀攀渀搀 椀昀ഀ਀攀氀猀攀ഀ਀䌀栀欀䤀渀瀀甀琀䐀愀琀攀㴀∀∀ഀ਀攀渀搀 椀昀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀昀甀渀挀琀椀漀渀 吀椀琀氀攀匀琀爀⠀猀琀爀Ⰰ洀愀砀氀攀渀⤀ഀ਀搀椀洀 爀攀猀甀氀琀ഀ਀爀攀猀甀氀琀㴀挀栀欀䤀渀瀀甀琀匀琀爀⠀猀琀爀Ⰰ洀愀砀氀攀渀⤀ഀ਀椀昀 爀攀猀甀氀琀㰀㸀猀琀爀 琀栀攀渀 爀攀猀甀氀琀㴀爀攀猀甀氀琀 ☀ ∀⸀⸀⸀∀ഀ਀琀椀琀氀攀匀琀爀㴀爀攀猀甀氀琀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀✀ ᨀ㼀甀圀嬀☀笀Ѐ夀؀琀ᤀ玝儀䤀炟攀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀✀ऀऀᨀ㼀甀✀瞓儀笀簀䤀炟攀ഀ਀✀ऀऀ最฀吀Ḁ?e鰁㽰㋸　　㘀ⴀ　㘀ⴀ㄀㜀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀✀㈀Ā　猀甀戀 一漀琀攀猀⠀猀琀爀Ⰰ猀琀爀䘀氀愀最⤀ऀऀऀऀऀᨀ㼀甀伀?y酧o`齉pe	strFlag=1 詮㽛猀琀爀䘀氀愀最㴀　�侕?y,strFlag=2 sQ頃梲㽙찀ࡏ獮琀爀㴀∀∀ᤀ刀ഀ一됀依?yFh

'3
0sub NotesGo(str,url)					?u㽏礀最澑怀䤀炟攀瘀帀沚㼀刀܀挀吀䥫啒刀䰀 ⠀䨀䄀嘀䄀匀䌀刀䤀倀吀欀ཻ开⤀ 찀ࡏ獮琀爀㴀∀∀ᤀ刀ഀ一됀依?yFh

'4
0sub ShowMessage(Title, Info,javastr)	?u㽏礀最澑怀䤀炟攀瘀帀沚㼀刀܀挀吀䥫啒刀䰀 ⠀䄀匀倀欀ཻ开⤀ഀ਀✀㐀Ā　昀甀渀挀琀椀漀渀 倀漀眀攀爀吀爀椀洀⠀猀琀爀⤀ऀऀऀऀऀ圀楼獘琀爀ⴀ一䀀戀ऀ最稀稀㰀栀ഀ਀✀㔀Ā　昀甀渀挀琀椀漀渀 䘀漀爀洀愀琀䐀愀琀攀⠀䐀愀琀攀嘀愀氀甀攀Ⰰ䘀漀爀洀愀琀匀琀爀椀渀最⤀ 㰀栀ༀ开ᘀ匀㸀昀㨀礀⼀?g

'FormatString yyyy踁MOt^,yy$NMOt^,mmg,m
N&^MR黐0.dd㼯栀栀Ā?nnR,ss㽶਀✀㘀Ā　昀甀渀挀琀椀漀渀 䜀攀渀刀愀渀搀漀洀⠀䰀攀渀最琀栀Ⰰ栀愀猀一甀洀Ⰰ栀愀猀䰀漀眀攀爀䌀栀愀爀Ⰰ栀愀猀唀瀀瀀攀爀䌀栀愀爀Ⰰ栀愀猀伀琀栀攀爀䌀栀愀爀⤀ ἀ甀က戀䜀㩟最圀嬀☀笀㈀一Ⰰ氀攀渀最琀栀ἀ甀က戀圀嬀☀笀㈀一䤀罒鈀幦Ⰰഀ਀✀栀愀猀一甀洀Ⰰ栀愀猀䰀漀眀攀爀䌀栀愀爀Ⰰ栀愀猀唀瀀瀀攀爀䌀栀愀爀Ⰰ栀愀猀伀琀栀攀爀䌀栀愀爀㰀倀㨀一　ᘀ戀㄀ⰀĀⅯ欀㨀一Ԁ匀⬀吀瀀攀圀嬀Ā　ༀ尀漀坪嬀뤀Ɔ　✀夀漀坪嬀뤀Ɔ　瘀儀�坐嬀☀笀ഀ਀✀㜀Ā　昀甀渀挀琀椀漀渀 刀攀瀀攀愀琀⠀猀琀爀Ⰰ渀甀洀⤀ऀऀऀऀ渀宊ﮏ?Ynum!kstr剉W[&{2N

'9
0function translate(sourceStr,fieldStr)	Yt;悜廻埦?_剉l?S顣槝

'10
0function chkEmail(email)				纇錱異鯪	g&Tcknx,cknx詮㽛Ⰰᤀᥦ셛噟　ഀ਀✀㄀㄀Ā　昀甀渀挀琀椀漀渀 戀爀漀眀猀攀爀⠀椀渀昀漀⤀ऀऀऀऀऀ䆊?bOm葔hV酧o`

'12
0function system(info)					諷㽁戀꬀岆伀簀膞析澑怀ഀ਀✀㄀㌀Ā　昀甀渀挀琀椀漀渀 䤀䤀䘀⠀琀栀攀䤀渀瀀甀琀䔀砀瀀Ⰰ琀爀甀攀嘀愀氀甀攀Ⰰ昀愀氀猀攀嘀愀氀甀攀⤀ऀऀ䤀䤀䘀䤀炟攀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀猀甀戀 一漀琀攀猀⠀猀琀爀Ⰰ猀琀爀䘀氀愀最⤀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㐀㈀⤀ഀ਀椀昀 猀琀爀㰀㸀∀∀ 琀栀攀渀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㐀㌀⤀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀⠀猀琀爀⤀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㐀㐀⤀ഀ਀攀渀搀 椀昀ഀ਀椀昀 猀琀爀䘀氀愀最㴀∀㄀∀ 琀栀攀渀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㐀㔀⤀ഀ਀䔀氀猀攀䤀昀 猀琀爀䘀氀愀最㴀∀㈀∀ 琀栀攀渀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㐀㘀⤀ഀ਀䔀氀猀攀䤀昀 猀琀爀䘀氀愀最㴀∀㌀∀ 琀栀攀渀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㐀㜀⤀ഀ਀攀渀搀 椀昀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㐀㠀⤀ഀ਀爀攀猀瀀漀渀猀攀⸀䔀渀搀ഀ਀攀渀搀 猀甀戀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀✀ᨀ㼀甀伀?y酧o`齉pe,㽏礀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀猀甀戀 一漀琀攀猀䜀漀⠀猀琀爀Ⰰ甀爀氀⤀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㐀㤀⤀ഀ਀椀昀 猀琀爀㰀㸀∀∀ 琀栀攀渀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㔀　⤀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀⠀猀琀爀⤀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㔀㄀⤀ഀ਀攀渀搀 椀昀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㔀㈀⤀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀⠀甀爀氀⤀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㔀㌀⤀ഀ਀爀攀猀瀀漀渀猀攀⸀攀渀搀ഀ਀攀渀搀 猀甀戀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀✀圀楼獘琀爀ⴀ一瀀䦛穒稀㰀栀Ⰰ渀宊?P:NYtT剉W[&{2N

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

function PowerTrim(str)

dim i,ln,result

ln=len(cstr(str))

for i=1 to ln

if mid(str,i,1)<>" " then

result=result & mid(str,i,1)

end if

next

PowerTrim=result

end function

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

'顅剉<h_S>f:y㼯最ഀ਀✀㤀敤儀ᨀ⿸?g<P
0<h_S2N

'詮㽛倀ᨀ埸嬀☀笀㈀一ഀ਀✀猀⁚䘀漀爀洀愀琀䐀愀琀攀⠀渀漀眀⠀⤀Ⰰ∀礀礀礀礀洀洀搀搀 栀㨀渀∀⤀ऀ渀宊?P:N "20021009 10:3"

'婳 FormatDate(now(),"yyyy-m-d hh:nn") 詮㽛倀㨀一 ∀㈀　　㈀ⴀ㄀　ⴀ㤀 ㄀　㨀　㌀∀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀昀甀渀挀琀椀漀渀 䘀漀爀洀愀琀䐀愀琀攀⠀䐀愀琀攀嘀愀氀甀攀Ⰰ䘀漀爀洀愀琀匀琀爀椀渀最⤀ഀ਀✀䘀漀爀洀愀琀匀琀爀椀渀最 礀礀礀礀Ā䶎伀琀帀Ⰰ礀礀␀一䴀伀琀帀Ⰰ洀洀ࠀ最Ⰰ洀ഀ一☀帀䴀刀퀀ゞ⸀搀搀⼀?hh㼁滸渀؀刀Ⰰ猀猀瘀?
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

'ub彇:gW[&{2N,lengthubW[&{2N剉暒^,hasNum,hasLowerChar,hasUpperChar,hasOtherChar<P:N0b1,漁!k:NS+TpeW[
0\橯W[蚹
0'Y橯W[蚹
0vQ僛W[&{

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

dim result

dim LatterNum,LatterLower,LatterUpper,LatterOther

dim arrLatter

'R薡S颯ub剉W[&{<P

LatterNum="0123456789"

LatterLower="abcdefghigklmnopqrstuvwxyz"

LatterUpper="ABCDEFGHIGKLMNOPQRSTUVWXYZ"

LatterOther="-=\[]"

'$R璭ubW[&{2N暒^搹eQ/f&Tcknx

if Not isnumeric(length) Or Length<0 then

GenRandom=""

Exit function

end if

'R薡S≧
`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

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

'詮轛W[&{蛻
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;悜廻埦?_剉l?S顣槝

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

function translate(sourceStr,fieldStr)

dim  sourceList

dim resultStr

dim i,j

if instr(sourceStr," ")>0 then

dim isOperator

isOperator = true

sourceList=split(sourceStr)	'錘zz<hR敄

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","&","孴","N"

resultStr=resultStr & " and "

isOperator = true

Case "OR","|","b"

resultStr=resultStr & " or "

isOperator = true

Case "NOT","!","^?,"
","
"

resultStr=resultStr & " not "

isOperator = true

Case "(","",""

resultStr=resultStr & " ( "

isOperator = true

Case ")","	","	"

resultStr=resultStr & " ) "

isOperator = true

Case else

if sourceList(i)<>"" then

if not isOperator then resultStr=resultStr & " and "

if inStr(sourceList(i),"%") > 0 then

resultStr=resultStr&" "&fieldStr& " like '" & replace(sourceList(i),"'","''") & "' "

else

resultStr=resultStr&" "&fieldStr& " like '%" & replace(sourceList(i),"'","''") & "%' "

end if

isOperator=false

end if

end Select

rem Response.write resultStr+"<br>"

next

translate=resultStr

else 'USag鯪

if inStr(sourcestr,"%") > 0 then

translate=" " & fieldStr & " like '" & replace(sourceStr,"'","''") &"' "

else

translate=" " & fieldStr & " like '%" & replace(sourceStr,"'","''") &"%' "

end if

rem MRTT燫N*Nzz<hMQ梍迯sql鰁豞哊燫됿ᦝ㼀　ഀ਀攀渀搀 椀昀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀✀蜀ㅾ炓ছ最☀吀挀欀渀砀Ⰰ挀欀渀砀渀宊璏甀爀攀Ⰰᤀᥦ셛噟昀愀氀猀攀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀昀甀渀挀琀椀漀渀 䤀猀嘀愀氀椀搀䔀洀愀椀氀⠀猀琀爀䔀洀愀椀氀⤀ഀ਀搀椀洀 爀攀ഀ਀匀攀琀 爀攀 㴀 渀攀眀 刀攀最䔀砀瀀ഀ਀爀攀⸀瀀愀琀琀攀爀渀 㴀 ∀帀嬀愀ⴀ稀䄀ⴀ娀崀嬀䄀ⴀ娀愀ⴀ稀　ⴀ㤀开⸀ⴀ崀⬀䀀嬀愀ⴀ稀䄀ⴀ娀　ⴀ㤀开崀⬀㼀尀⸀嬀愀ⴀ稀䄀ⴀ娀崀笀㈀Ⰰ㌀紀␀∀ഀ਀挀栀欀䔀䴀愀椀氀㴀爀攀⸀吀攀猀琀⠀猀琀爀䔀洀愀椀氀⤀ഀ਀猀攀琀 爀攀㴀渀漀琀栀椀渀最ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀昀甀渀挀琀椀漀渀 戀爀漀眀猀攀爀⠀椀渀昀漀⤀ഀ਀椀昀 䤀渀猀琀爀⠀椀渀昀漀Ⰰ∀䴀匀䤀䔀 㔀⸀㔀∀⤀㸀　 琀栀攀渀ഀ਀戀爀漀眀猀攀爀㴀∀伀洀 吀?hVInternet Explorer 5.5"

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

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

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

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

else

browser="Om 㽔栀嘀ᨀ⫸最䈀?

end if

end function

function system(info)

if Instr(info,"NT 5.1")>0 then

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

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

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

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

system=system+"蚫\O鹼㾁埸椀渀搀漀眀猀 㤀㔀∀ഀ਀攀氀猀攀ഀ਀猀礀猀琀攀洀㴀猀礀猀琀攀洀⬀∀꬀岆伀簀膞?*g㽂ഀ਀攀渀搀 椀昀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀猀甀戀 匀栀漀眀䴀攀猀猀愀最攀⠀吀椀琀氀攀Ⰰ 䤀渀昀漀Ⰰ樀愀瘀愀猀琀爀⤀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀 ∀㰀琀愀戀氀攀 眀椀搀琀栀㴀∀∀㄀　　─∀∀ 戀漀爀搀攀爀㴀∀∀　∀∀ 栀攀椀最栀琀㴀∀∀㄀　　─∀∀㸀㰀琀爀 愀氀椀最渀㴀∀∀挀攀渀琀攀爀∀∀㸀㰀琀搀㸀㰀昀漀爀洀 洀攀琀栀漀搀㴀∀∀瀀漀猀琀∀∀ 愀挀琀椀漀渀㴀∀∀∀∀ 渀愀洀攀㴀眀爀漀渀最㸀 ∀ ☀ 开ഀ਀∀㰀琀愀戀氀攀 戀漀爀搀攀爀㴀∀∀㄀∀∀ 戀漀爀搀攀爀挀漀氀漀爀氀椀最栀琀㴀∀∀　　　　　　∀∀ 戀漀爀搀攀爀挀漀氀漀爀搀愀爀欀㴀∀∀䘀䘀䘀䘀䘀䘀∀∀ 挀攀氀氀猀瀀愀挀椀渀最㴀∀∀　∀∀ 戀最挀漀氀漀爀㴀∀∀䔀　䔀　䔀　∀∀㸀∀ ☀ 开ഀ਀∀㰀琀爀㸀㰀琀搀㸀㰀琀愀戀氀攀 戀漀爀搀攀爀㴀∀∀　∀∀ 戀最挀漀氀漀爀㴀∀∀⌀䘀䘀　　㤀㤀∀∀ 挀攀氀氀猀瀀愀挀椀渀最㴀∀∀　∀∀ 挀攀氀氀瀀愀搀搀椀渀最㴀∀∀㈀∀∀ 眀椀搀琀栀㴀∀∀㄀　　─∀∀㸀 ∀ ☀ 开ഀ਀∀㰀琀爀㸀㰀琀搀 眀椀搀琀栀㴀∀∀㄀　　─∀∀㸀㰀昀漀渀琀 挀漀氀漀爀㴀∀∀䘀䘀䘀䘀䘀䘀∀∀㸀∀ ☀ 吀椀琀氀攀 ☀ ∀㰀⼀昀漀渀琀㸀㰀⼀琀搀㸀 ∀ ☀ 开ഀ਀∀㰀琀搀 眀椀搀琀栀㴀∀∀㄀㠀∀∀㸀㰀琀愀戀氀攀 戀漀爀搀攀爀㴀∀∀㄀∀∀ 戀漀爀搀攀爀挀漀氀漀爀氀椀最栀琀㴀∀∀㘀㘀㘀㘀㘀㘀∀∀ 戀漀爀搀攀爀挀漀氀漀爀搀愀爀欀㴀∀∀䘀䘀䘀䘀䘀䘀∀∀ 挀攀氀氀瀀愀搀搀椀渀最㴀∀∀　∀∀ 戀最挀漀氀漀爀㴀∀∀䔀　䔀　䔀　∀∀ 挀攀氀氀猀瀀愀挀椀渀最㴀∀∀　∀∀ 眀椀搀琀栀㴀∀∀㄀㠀∀∀㸀 ∀ ☀ 开ഀ਀∀㰀琀爀㸀㰀琀搀 眀椀搀琀栀㴀∀∀㄀㘀∀∀㸀㰀戀㸀㰀昀漀渀琀 挀漀氀漀爀㴀∀∀　　　　　　∀∀㸀㰀猀瀀愀渀 漀渀挀氀椀挀欀㴀∀∀樀愀瘀愀猀挀爀椀瀀琀㨀∀ ☀ 樀愀瘀愀猀琀爀 ☀ ∀∀∀㸀㼀㰀⼀猀瀀愀渀㸀㰀⼀昀漀渀琀㸀㰀⼀戀㸀㰀⼀琀搀㸀 ∀ ☀ 开ഀ਀∀㰀⼀琀爀㸀㰀⼀琀愀戀氀攀㸀㰀⼀琀搀㸀㰀⼀琀爀㸀㰀⼀琀愀戀氀攀㸀㰀琀愀戀氀攀 戀漀爀搀攀爀㴀∀∀　∀∀ 眀椀搀琀栀㴀∀∀㄀　　─∀∀ 挀攀氀氀瀀愀搀搀椀渀最㴀∀∀㐀∀∀㸀 ∀ ☀ 开ഀ਀∀㰀琀爀㸀㰀琀搀 眀椀搀琀栀㴀∀∀㔀㤀∀∀ 愀氀椀最渀㴀∀∀挀攀渀琀攀爀∀∀ 瘀愀氀椀最渀㴀∀∀琀漀瀀∀∀㸀㰀昀漀渀琀 昀愀挀攀㴀∀∀圀椀渀最搀椀渀最猀∀∀ 挀漀氀漀爀㴀∀∀⌀䘀䘀　　　　∀∀ 猀琀礀氀攀㴀∀∀昀漀渀琀ⴀ猀椀稀攀㨀㌀㈀瀀琀∀∀㸀䨀㰀⼀昀漀渀琀㸀㰀⼀琀搀㸀 ∀ ☀ 开ഀ਀∀㰀琀搀 眀椀搀琀栀㴀∀∀㤀㔀─∀∀㸀∀ ☀ 䤀渀昀漀 ☀ ∀㰀⼀琀搀㸀㰀⼀琀爀㸀㰀琀爀㸀㰀琀搀 挀漀氀猀瀀愀渀㴀∀∀㈀∀∀ 愀氀椀最渀㴀∀∀挀攀渀琀攀爀∀∀ 瘀愀氀椀最渀㴀∀∀琀漀瀀∀∀㸀 ∀ ☀ 开ഀ਀∀㰀椀渀瀀甀琀 琀礀瀀攀㴀∀∀戀甀琀琀漀渀∀∀ 渀愀洀攀㴀∀∀漀欀∀∀ 瘀愀氀甀攀㴀∀∀　渀砀 吀k　∀∀ 挀氀愀猀猀㴀琀琀 渀愀洀攀㴀漀欀 猀琀礀氀攀㴀∀∀挀漀氀漀爀㨀⌀昀昀㘀㘀㘀㘀∀∀ 漀渀挀氀椀挀欀㴀∀∀樀愀瘀愀猀挀爀椀瀀琀㨀∀ ☀ 樀愀瘀愀猀琀爀 ☀ ∀∀∀㸀 ∀ ☀ 开ഀ਀∀㰀⼀琀搀㸀㰀⼀琀爀㸀㰀⼀琀愀戀氀攀㸀㰀⼀琀搀㸀㰀⼀琀爀㸀㰀⼀琀愀戀氀攀㸀㰀⼀昀漀爀洀㸀㰀⼀琀搀㸀㰀⼀琀爀㸀㰀⼀琀愀戀氀攀㸀∀ഀ਀攀渀搀 猀甀戀ഀ਀昀甀渀挀琀椀漀渀 䤀䤀䘀⠀琀栀攀䤀渀瀀甀琀䔀砀瀀Ⰰ琀嘀愀氀甀攀Ⰰ昀嘀愀氀甀攀⤀ഀ਀椀昀 琀栀攀䤀渀瀀甀琀䔀砀瀀 琀栀攀渀ഀ਀䤀䤀䘀㴀琀嘀愀氀甀攀ഀ਀攀氀猀攀ഀ਀䤀䤀䘀㴀昀嘀愀氀甀攀ഀ਀攀渀搀 椀昀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀✀氀䦊倀　圀䀀圀ഀ਀䘀甀渀挀琀椀漀渀 䜀攀琀䤀倀⠀⤀ഀ਀䐀椀洀 猀琀爀䤀倀䄀搀搀爀ഀ਀䤀昀 刀攀焀甀攀猀琀⸀匀攀爀瘀攀爀嘀愀爀椀愀戀氀攀猀⠀∀䠀吀吀倀开堀开䘀伀刀圀䄀刀䐀䔀䐀开䘀伀刀∀⤀ 㴀 ∀∀ 伀刀 䤀渀匀琀爀⠀刀攀焀甀攀猀琀⸀匀攀爀瘀攀爀嘀愀爀椀愀戀氀攀猀⠀∀䠀吀吀倀开堀开䘀伀刀圀䄀刀䐀䔀䐀开䘀伀刀∀⤀Ⰰ ∀甀渀欀渀漀眀渀∀⤀ 㸀 　 吀栀攀渀ഀ਀猀琀爀䤀倀䄀搀搀爀 㴀 刀攀焀甀攀猀琀⸀匀攀爀瘀攀爀嘀愀爀椀愀戀氀攀猀⠀∀刀䔀䴀伀吀䔀开䄀䐀䐀刀∀⤀ഀ਀䔀氀猀攀䤀昀 䤀渀匀琀爀⠀刀攀焀甀攀猀琀⸀匀攀爀瘀攀爀嘀愀爀椀愀戀氀攀猀⠀∀䠀吀吀倀开堀开䘀伀刀圀䄀刀䐀䔀䐀开䘀伀刀∀⤀Ⰰ ∀Ⰰ∀⤀ 㸀 　 吀栀攀渀ഀ਀猀琀爀䤀倀䄀搀搀爀 㴀 䴀椀搀⠀刀攀焀甀攀猀琀⸀匀攀爀瘀攀爀嘀愀爀椀愀戀氀攀猀⠀∀䠀吀吀倀开堀开䘀伀刀圀䄀刀䐀䔀䐀开䘀伀刀∀⤀Ⰰ ㄀Ⰰ 䤀渀匀琀爀⠀刀攀焀甀攀猀琀⸀匀攀爀瘀攀爀嘀愀爀椀愀戀氀攀猀⠀∀䠀吀吀倀开堀开䘀伀刀圀䄀刀䐀䔀䐀开䘀伀刀∀⤀Ⰰ ∀Ⰰ∀⤀ⴀ㄀⤀ഀ਀䔀氀猀攀䤀昀 䤀渀匀琀爀⠀刀攀焀甀攀猀琀⸀匀攀爀瘀攀爀嘀愀爀椀愀戀氀攀猀⠀∀䠀吀吀倀开堀开䘀伀刀圀䄀刀䐀䔀䐀开䘀伀刀∀⤀Ⰰ ∀㬀∀⤀ 㸀 　 吀栀攀渀ഀ਀猀琀爀䤀倀䄀搀搀爀 㴀 䴀椀搀⠀刀攀焀甀攀猀琀⸀匀攀爀瘀攀爀嘀愀爀椀愀戀氀攀猀⠀∀䠀吀吀倀开堀开䘀伀刀圀䄀刀䐀䔀䐀开䘀伀刀∀⤀Ⰰ ㄀Ⰰ 䤀渀匀琀爀⠀刀攀焀甀攀猀琀⸀匀攀爀瘀攀爀嘀愀爀椀愀戀氀攀猀⠀∀䠀吀吀倀开堀开䘀伀刀圀䄀刀䐀䔀䐀开䘀伀刀∀⤀Ⰰ ∀㬀∀⤀ⴀ㄀⤀ഀ਀䔀氀猀攀ഀ਀猀琀爀䤀倀䄀搀搀爀 㴀 刀攀焀甀攀猀琀⸀匀攀爀瘀攀爀嘀愀爀椀愀戀氀攀猀⠀∀䠀吀吀倀开堀开䘀伀刀圀䄀刀䐀䔀䐀开䘀伀刀∀⤀ഀ਀䔀渀搀 䤀昀ഀ਀䜀攀琀䤀倀 㴀 吀爀椀洀⠀䴀椀搀⠀猀琀爀䤀倀䄀搀搀爀Ⰰ ㄀Ⰰ ㌀　⤀⤀ഀ਀䔀渀搀 䘀甀渀挀琀椀漀渀ഀ਀✀ᨀﴀ㽠㼀甀堀䴀䰀䠀吀吀倀Ⰰ缀伀⠀甀倀伀匀吀欀ཻ开伀?
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)

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

'裇
惍愽N齉pe

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 = "縉葔Q"

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錧wQ{|鴙sQ齉pe

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

'		?uu榖桟Q }>f:y齉pe

'		gT㼞攀Ā炜?2003-03-20

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

'1
0Sub CommonSelect(idname,liststr,valuestr,selectstr)		'?u剉瀃皊<SELECT id=select1 name=select1>匭筟剉齉pe

'2
0Sub CommonRadio(idname,liststr,valuestr,checkstr)		'顅剉?uUS	怓h

'3
0Sub CommonSelectYear(idname,selectyear)					'顅剉?u剉t^㽆一ꨀ䚄栀䤀炟攀ഀ਀✀㐀Ā　匀甀戀 䌀漀洀洀漀渀匀攀氀攀挀琀䴀漀渀琀栀⠀椀搀渀愀洀攀Ⰰ猀攀氀攀挀琀䴀漀渀琀栀⤀ऀऀऀऀ✀䔀䦘ᩒ᫸㼀甀䤀ࡒ最䘀?N蒪Fh齉pe

'5
0Sub CommonSelectDay(idname,selectDay)					'顅剉?u剉㼯最଀一ꨀ䚄栀䤀炟攀ഀ਀✀㘀Ā　匀甀戀 䌀漀洀洀漀渀匀攀氀攀挀琀䐀愀琀攀⠀椀搀渀愀洀攀Ⰰ猀攀氀攀挀琀䐀愀琀攀⤀ऀऀऀऀऀ✀䔀䦘ᩒ᫸㼀甀㸀昀㨀礀⼀?g剉N蒪Fh齉pe

'7
0Function PopWindow(url,Content,left,top,height,width)	'顅剉?u剉9_鶴梲鉙齉pe

'8
0Sub CloseWindow()										'顅剉?u剉sQ頃梲鉙齉pe

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

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

'顅剉?u剉瀃皊<SELECT>匭筟剉齉pe

'搹eQidname <select剉
TW[>

'       liststr 㼘㸀卡؀刀开䤀䉒㹓昀㨀礀ⴀ当ൻ਀✀       瘀愀氀甀猀攀猀琀爀 ᠀?愾SR_剉卂>f:y鵞擽pe<P匭筟

'       selectstr 	?N剉匭筟

'詮㽛挀ᨀø?
'婳俌CommonSelect("provience","S琋)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

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

'顅剉?uUS	怓h

'搹eQidname <select剉
TW[>

'       liststr 㼘㸀卡؀刀开䤀䉒㹓昀㨀礀ⴀ当ൻ਀✀       瘀愀氀甀猀攀猀琀爀 ᠀?愾SR_剉卂>f:y鵞擽pe<P匭筟

'       checkstr 	?N剉匭筟

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

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

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

'顅剉?u剉t^㽆一ꨀ䚄栀䤀炟攀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀匀甀戀 䌀漀洀洀漀渀匀攀氀攀挀琀夀攀愀爀⠀椀搀渀愀洀攀Ⰰ猀攀氀攀挀琀礀攀愀爀⤀ഀ਀䐀椀洀 夀攀愀爀猀琀爀ഀ਀䘀漀爀 椀㴀礀攀愀爀⠀搀愀琀攀⤀ⴀ㔀 琀漀 礀攀愀爀⠀搀愀琀攀⤀⬀㔀ഀ਀䤀䘀 夀攀愀爀猀琀爀㴀∀∀ 吀栀攀渀ഀ਀夀攀愀爀猀琀爀㴀椀ഀ਀䔀氀猀攀ഀ਀夀攀愀爀猀琀爀㴀夀攀愀爀猀琀爀 ☀ ∀Ⰰ∀ ☀ 椀ഀ਀䔀渀搀 䤀䘀ഀ਀一攀砀琀ഀ਀䌀漀洀洀漀渀匀攀氀攀挀琀 椀搀渀愀洀攀Ⰰ夀攀愀爀猀琀爀Ⰰ夀攀愀爀猀琀爀Ⰰ猀攀氀攀挀琀礀攀愀爀ഀ਀刀攀猀瀀漀渀猀攀⸀眀爀椀琀攀 ∀琀帀∀ഀ਀䔀渀搀 匀甀戀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀✀䔀䦘ᩒ᫸㼀甀䤀ࡒ最䘀?N蒪Fh齉pe

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

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

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

'顅剉?u剉㼯最଀一ꨀ䚄栀䤀炟攀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀匀甀戀 䌀漀洀洀漀渀匀攀氀攀挀琀䐀愀礀⠀椀搀渀愀洀攀Ⰰ猀攀氀攀挀琀䐀愀礀⤀ഀ਀䐀椀洀 䐀愀礀猀琀爀ഀ਀䐀椀洀 䐀愀礀嘀愀氀ഀ਀䘀漀爀 椀㴀㄀ 琀漀 ㌀㄀ഀ਀䤀䘀 䌀椀渀琀⠀椀⤀㰀㄀　 吀栀攀渀ഀ਀猀琀爀㴀∀　∀ഀ਀䔀氀猀攀ഀ਀猀琀爀㴀∀∀ഀ਀䔀渀搀 䤀䘀ഀ਀䤀䘀 䐀愀礀猀琀爀㴀∀∀ 吀栀攀渀ഀ਀䐀愀礀猀琀爀㴀椀ഀ਀䐀愀礀嘀愀氀 㴀 猀琀爀 ☀ 椀ഀ਀䔀氀猀攀ഀ਀䐀愀礀猀琀爀㴀䐀愀礀猀琀爀 ☀ ∀Ⰰ∀ ☀ 椀ഀ਀䐀愀礀嘀愀氀㴀䐀愀礀嘀愀氀 ☀ ∀Ⰰ∀ ☀ 猀琀爀 ☀ 椀ഀ਀䔀渀搀 䤀䘀ഀ਀一攀砀琀ഀ਀䌀漀洀洀漀渀匀攀氀攀挀琀 椀搀渀愀洀攀Ⰰ䐀愀礀猀琀爀Ⰰ䐀愀礀嘀愀氀Ⰰ猀攀氀攀挀琀䐀愀礀ഀ਀刀攀猀瀀漀渀猀攀⸀眀爀椀琀攀 ∀⼀?

End Sub

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

'顅剉?u>f:y㼯最䤀୒一ꨀ䚄栀䤀炟攀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀匀甀戀 䌀漀洀洀漀渀匀攀氀攀挀琀䐀愀琀攀⠀椀搀渀愀洀攀Ⰰ猀攀氀攀挀琀䐀愀琀攀⤀ഀ਀猀琀爀䌀漀洀洀匀攀氀攀挀琀䐀愀琀攀㴀猀攀氀攀挀琀䐀愀琀攀ഀ਀䌀漀洀洀漀渀匀攀氀攀挀琀夀攀愀爀 椀搀渀愀洀攀 ☀ ∀开礀∀Ⰰ礀攀愀爀⠀猀琀爀䌀漀洀洀匀攀氀攀挀琀䐀愀琀攀⤀ഀ਀䤀䘀 䰀攀渀⠀䴀漀渀琀栀⠀猀琀爀䌀漀洀洀匀攀氀攀挀琀䐀愀琀攀⤀⤀ 㴀 ㄀ 吀栀攀渀ഀ਀䌀漀洀洀漀渀匀攀氀攀挀琀䴀漀渀琀栀 椀搀渀愀洀攀 ☀ ∀开洀∀Ⰰ∀　∀ ☀ 䌀猀琀爀⠀䴀漀渀琀栀⠀猀琀爀䌀漀洀洀匀攀氀攀挀琀䐀愀琀攀⤀⤀ഀ਀䔀氀猀攀ഀ਀䌀漀洀洀漀渀匀攀氀攀挀琀䴀漀渀琀栀 椀搀渀愀洀攀 ☀ ∀开洀∀Ⰰ䴀漀渀琀栀⠀猀琀爀䌀漀洀洀匀攀氀攀挀琀䐀愀琀攀⤀ഀ਀䔀渀搀 䤀䘀ഀ਀䤀䘀 䰀攀渀⠀䐀愀礀⠀猀琀爀䌀漀洀洀匀攀氀攀挀琀䐀愀琀攀⤀⤀ 㴀 ㄀ 吀栀攀渀ഀ਀䌀漀洀洀漀渀匀攀氀攀挀琀䐀愀礀 椀搀渀愀洀攀 ☀ ∀开搀∀Ⰰ∀　∀ ☀ 䌀猀琀爀⠀䐀愀礀⠀猀琀爀䌀漀洀洀匀攀氀攀挀琀䐀愀琀攀⤀⤀ഀ਀䔀氀猀攀ഀ਀䌀漀洀洀漀渀匀攀氀攀挀琀䐀愀礀 椀搀渀愀洀攀 ☀ ∀开搀∀Ⰰ䐀愀礀⠀猀琀爀䌀漀洀洀匀攀氀攀挀琀䐀愀琀攀⤀ഀ਀䔀渀搀 䤀䘀ഀ਀䔀渀搀 匀甀戀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀✀䔀䦘ᩒ᫸㼀甀䤀㥒开됀늝奨䦒炟攀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀䘀甀渀挀琀椀漀渀 倀漀瀀圀椀渀搀漀眀⠀甀爀氀Ⰰ䌀漀渀琀攀渀琀Ⰰ氀攀昀琀Ⰰ琀漀瀀Ⰰ栀攀椀最栀琀Ⰰ眀椀搀琀栀⤀ഀ਀䐀椀洀 猀琀爀ഀ਀猀琀爀 㴀 ∀㰀愀 猀琀礀氀攀㴀✀挀甀爀猀漀爀㨀栀愀渀搀✀  琀愀爀最攀琀㴀✀开戀氀愀渀欀✀   漀渀挀氀椀挀欀㴀∀∀樀愀瘀愀猀挀爀椀瀀琀㨀眀椀渀搀漀眀⸀漀瀀攀渀⠀✀∀ ☀ 甀爀氀 ☀ 开ഀ਀∀✀Ⰰ✀✀Ⰰ✀氀攀昀琀㴀∀ ☀ 氀攀昀琀 ☀ ∀Ⰰ琀漀瀀㴀∀ ☀ 琀漀瀀 ☀ ∀Ⰰ栀攀椀最栀琀㴀∀ ☀ 栀攀椀最栀琀 ☀ ∀Ⰰ眀椀搀琀栀㴀∀ ☀ 眀椀搀琀栀 ☀ 开ഀ਀∀Ⰰ爀攀猀椀稀愀戀氀攀㴀渀漀Ⰰ猀挀爀漀氀氀戀愀爀猀㴀礀攀猀Ⰰ猀琀愀琀甀猀㴀渀漀Ⰰ琀漀漀氀戀愀爀㴀渀漀Ⰰ洀攀渀甀戀愀爀㴀渀漀Ⰰ氀漀挀愀琀椀漀渀㴀渀漀✀⤀∀∀㸀∀ ☀ 开ഀ਀∀㰀䘀漀渀琀 挀漀氀漀爀㴀爀攀搀㸀∀ ☀ 䌀漀渀琀攀渀琀 ☀ ∀㰀⼀昀漀渀琀㸀㰀⼀䄀㸀∀ഀ਀倀漀瀀圀椀渀搀漀眀 㴀 猀琀爀ഀ਀䔀渀搀 䘀甀渀挀吀椀漀渀ഀ਀䘀甀渀挀琀椀漀渀 䈀甀琀琀漀渀圀椀渀搀漀眀⠀甀爀氀Ⰰ氀攀昀琀Ⰰ琀漀瀀Ⰰ栀攀椀最栀琀Ⰰ眀椀搀琀栀⤀ഀ਀䐀椀洀 猀琀爀ഀ਀猀琀爀㴀∀樀愀瘀愀猀挀爀椀瀀琀㨀眀椀渀搀漀眀⸀漀瀀攀渀⠀✀∀ ☀ 甀爀氀 ☀ 开ഀ਀∀✀Ⰰ✀✀Ⰰ✀氀攀昀琀㴀∀ ☀ 氀攀昀琀 ☀ ∀Ⰰ琀漀瀀㴀∀ ☀ 琀漀瀀 ☀ ∀Ⰰ栀攀椀最栀琀㴀∀ ☀ 栀攀椀最栀琀 ☀ ∀Ⰰ眀椀搀琀栀㴀∀ ☀ 眀椀搀琀栀 ☀ 开ഀ਀∀Ⰰ爀攀猀椀稀愀戀氀攀㴀渀漀Ⰰ猀挀爀漀氀氀戀愀爀猀㴀礀攀猀Ⰰ猀琀愀琀甀猀㴀渀漀Ⰰ琀漀漀氀戀愀爀㴀渀漀Ⰰ洀攀渀甀戀愀爀㴀渀漀Ⰰ氀漀挀愀琀椀漀渀㴀渀漀✀⤀∀ഀ਀䈀甀琀琀漀渀圀椀渀搀漀眀㴀猀琀爀ഀ਀䔀渀搀 䘀甀渀挀琀椀漀渀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀✀䔀䦘ᩒ᫸㼀甀䤀獒儀̀늘奨䦒炟攀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀匀甀戀 䌀氀漀猀攀圀椀渀搀漀眀⠀⤀ഀ਀搀椀洀 猀琀爀ഀ਀猀琀爀 㴀 ∀㰀椀渀瀀甀琀 挀氀愀猀猀㴀戀甀琀琀漀渀 琀礀瀀攀㴀戀甀琀琀漀渀 渀愀洀攀㴀✀猀儀̀? id=CloseButton onclick=""javascript:window.close();"" value='sQ㼃㸀∀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀 猀琀爀ഀ਀䔀渀搀 匀甀戀ഀ਀✀ऀᨀ㼀甀甀阀Ⅹ摩尀伀䤀炟攀ഀ਀✀␀刀관⡴甀㜀戀⼀昀☀吀笀瘀唀开ഀ਀瀀甀戀氀椀挀 昀甀渀挀琀椀漀渀 䤀猀䰀漀最椀渀⠀⤀ഀ਀椀昀 琀爀椀洀⠀匀攀猀猀椀漀渀⠀∀攀洀瀀䔀洀瀀氀漀礀攀攀椀搀∀⤀⤀㴀∀∀ 琀栀攀渀ഀ਀䤀猀䰀漀最椀渀㴀昀愀氀猀攀ഀ਀攀氀猀攀ഀ਀椀昀 椀猀渀甀洀攀爀椀挀⠀匀攀猀猀椀漀渀⠀∀攀洀瀀䔀洀瀀氀漀礀攀攀椀搀∀⤀⤀ 琀栀攀渀ഀ਀䤀猀䰀漀最椀渀㴀琀爀甀攀ഀ਀攀氀猀攀ഀ਀䤀猀䰀漀最椀渀㴀昀愀氀猀攀ഀ਀攀渀搀 椀昀ഀ਀攀渀搀 椀昀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀✀␀刀관⡴甀㜀戀⼀昀☀吀ऀ最帀ﶝ䥤ꭒ岆伀䌀最倀㼀਀瀀甀戀氀椀挀 昀甀渀挀琀椀漀渀 䤀猀倀攀爀洀椀猀猀椀漀渀⠀甀爀氀倀愀琀栀⤀ഀ਀搀椀洀 洀䌀漀渀渀Ⰰ洀匀琀爀匀焀氀Ⰰ洀刀猀ഀ਀搀椀洀 挀栀欀刀攀猀䤀搀Ⰰ攀洀瀀刀攀猀䤀搀ഀ਀猀攀琀 洀䌀漀渀渀㴀䜀攀琀䐀䈀䌀漀渀渀⠀⤀ഀ਀椀昀 甀爀氀倀愀琀栀㴀∀∀ 琀栀攀渀ഀ਀䤀猀倀攀爀洀椀猀猀椀漀渀㴀琀爀甀攀ഀ਀攀砀椀琀 昀甀渀挀琀椀漀渀ഀ਀攀渀搀 椀昀ഀ਀攀洀瀀刀攀猀䤀搀㴀匀攀猀猀椀漀渀⠀∀攀洀瀀刀攀猀䤀搀∀⤀ഀ਀椀昀 攀洀瀀刀攀猀䤀搀㴀∀∀ 琀栀攀渀ഀ਀䤀猀倀攀爀洀椀猀猀椀漀渀㴀昀愀氀猀攀ഀ਀攀砀椀琀 昀甀渀挀琀椀漀渀ഀ਀攀渀搀 椀昀ഀ਀攀洀瀀刀攀猀䤀搀㴀∀Ⰰ∀ ☀ 攀洀瀀刀攀猀䤀搀 ☀ ∀Ⰰ∀ഀ਀洀匀琀爀匀焀氀㴀∀猀攀氀攀挀琀 ⨀ 昀爀漀洀 爀攀猀漀甀爀挀攀 眀栀攀爀攀 爀攀猀瀀愀琀栀㴀✀∀ ☀ 甀爀氀倀愀琀栀 ☀ ∀✀∀ഀ਀猀攀琀 洀刀猀㴀匀攀氀攀挀琀匀焀氀⠀洀匀琀爀匀焀氀Ⰰ洀䌀漀渀渀⤀ഀ਀椀昀 渀漀琀 洀刀猀⸀攀漀昀 琀栀攀渀ഀ਀挀栀欀刀攀猀䤀搀㴀∀Ⰰ∀ ☀ 洀刀猀⠀∀爀攀猀䤀搀∀⤀ ☀ ∀Ⰰ∀ഀ਀椀昀 椀渀猀琀爀⠀攀洀瀀刀攀猀䤀搀Ⰰ挀栀欀刀攀猀䤀搀⤀㸀　 琀栀攀渀ഀ਀䤀猀倀攀爀洀椀猀猀椀漀渀㴀琀爀甀攀ഀ਀攀氀猀攀ഀ਀䤀猀倀攀爀洀椀猀猀椀漀渀㴀昀愀氀猀攀ഀ਀攀渀搀 椀昀ഀ਀攀氀猀攀ഀ਀䤀猀倀攀爀洀椀猀猀椀漀渀㴀昀愀氀猀攀ഀ਀攀渀搀 椀昀ഀ਀洀刀猀⸀挀氀漀猀攀ഀ਀猀攀琀 洀刀猀㴀渀漀琀栀椀渀最ഀ਀猀攀琀 洀䌀漀渀渀㴀渀漀琀栀椀渀最ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀✀␀刀관⡴甀㜀戀⼀昀☀吀ऀ最꬀岆伀䄀?b剉CgP?
public function ExistUser(regid,empid,conn)

dim rs,strSQL,colNo

if regid="" or empid="" then

ExistUser=False

exit function

end if

strSql="select ColNo from RegInfo where regid=" & regid

set rs = Selectsql(strSql,conn)

if not rs.eof then

ColNo = rs("colno")

end if

rs.close

if ColNo="" then

ExistUser=false

exit function

end if

strSql = "select colno from EmployeeInCol where groupid='G002' and employeeid=" & empid & " and colno='" & ColNo & "'"

set rs = SelectSql(strSql,conn)

if not rs.eof then

ExistUser=true

else

ExistUser=false

end if

rs.close

set rs = nothing

end function

'皨U_㼱眀䤀籒膞錿㽥⪇一⠀甀㜀戀⦇夀�ꢕ啶开一℀欀ഀ਀昀甀渀挀琀椀漀渀 眀爀椀琀攀嘀椀攀眀刀攀最䰀漀最⠀爀攀最椀搀Ⰰ攀洀瀀氀漀礀攀攀椀搀Ⰰ挀漀渀渀⤀ഀ਀搀椀洀 爀猀Ⰰ猀琀爀匀焀氀Ⰰ洀攀洀漀琀礀瀀攀ഀ਀搀椀洀 琀栀攀搀愀琀攀ഀ਀洀攀洀漀琀礀瀀攀 㴀 ㄀㄀ഀ਀琀栀攀搀愀琀攀 㴀 䘀漀爀洀愀琀䐀愀琀攀⠀渀漀眀⠀⤀Ⰰ∀礀礀礀礀ⴀ洀洀ⴀ搀搀∀⤀ഀ਀猀琀爀匀焀氀 㴀 ∀猀攀氀攀挀琀 ⨀ 昀爀漀洀 刀攀最䴀攀洀漀 眀栀攀爀攀 爀攀最椀搀㴀∀ ☀ 爀攀最椀搀 ☀ ∀ 愀渀搀 攀洀瀀氀漀礀攀攀椀搀㴀∀ ☀ 攀洀瀀氀漀礀攀攀椀搀 ☀ ∀ 愀渀搀 洀攀洀漀琀礀瀀攀㴀∀ ☀ 洀攀洀漀琀礀瀀攀 ☀ ∀ 愀渀搀 眀爀椀琀攀搀愀琀攀㸀✀∀ ☀ 琀栀攀搀愀琀攀 ☀ ∀✀∀ഀ਀猀攀琀 爀猀 㴀 匀攀氀攀挀琀匀焀氀⠀猀琀爀匀焀氀Ⰰ挀漀渀渀⤀ഀ਀椀昀 爀猀⸀攀漀昀 琀栀攀渀ഀ਀搀椀洀 氀漀最Ⰰ猀琀爀䐀愀琀攀Ⰰ刀攀洀愀爀欀Ⰰ䔀洀瀀一愀洀攀ഀ਀猀攀琀 氀漀最㴀渀攀眀 䰀漀最开䌀氀愀猀猀ഀ਀猀攀琀 氀漀最⸀挀漀渀渀㴀挀漀渀渀ഀ਀猀琀爀䐀愀琀攀㴀䘀漀爀洀愀琀䐀愀琀攀⠀渀漀眀⠀⤀Ⰰ∀礀礀礀礀ⴀ洀ⴀ搀 栀栀㨀渀渀㨀猀猀∀⤀ഀ਀䔀洀瀀一愀洀攀㴀䜀攀琀䌀漀氀甀洀渀嘀愀氀甀攀⠀∀猀攀氀攀挀琀 唀猀攀爀一愀洀攀 昀爀漀洀 攀洀瀀氀漀礀攀攀 眀栀攀爀攀 䔀洀瀀氀漀礀攀攀䤀搀㴀∀ ☀ 䔀洀瀀氀漀礀攀攀䤀搀Ⰰ挀漀渀渀⤀ഀ਀刀攀洀愀爀欀㴀䔀洀瀀一愀洀攀 ☀ ∀ᨀ꿸≝☀ 猀琀爀䐀愀琀攀 ☀ ∀ఀㇸ?w㽁戀最澑怀∀ഀ਀洀攀猀猀愀最攀㴀氀漀最⸀圀爀椀琀攀䴀攀洀漀䰀漀最⠀䔀洀瀀氀漀礀攀攀䤀搀Ⰰ刀攀最䤀搀Ⰰ洀攀洀漀琀礀瀀攀Ⰰ∀㄀?w㽁戀∀Ⰰ刀攀洀愀爀欀Ⰰ猀琀爀䐀愀琀攀⤀ഀ਀猀攀琀 氀漀最 㴀 渀漀琀栀椀渀最ഀ਀攀渀搀 椀昀ഀ਀爀猀⸀挀氀漀猀攀ഀ਀猀攀琀 爀猀 㴀 渀漀琀栀椀渀最ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀✀ꠀ啶开Ḁ?e㽁戀最澑怀⼀斓?
function writeUpdateRegLog(regid,employeeid,conn)

dim memotype

memotype = 12

dim log,strDate,Remark,EmpName

set log=new Log_Class

set log.conn=conn

strDate=FormatDate(now(),"yyyy-m-d hh:nn:ss")

EmpName=GetColumnValue("select UserName from employee where EmployeeId=" & EmployeeId,conn)

Remark=EmpName & "嶯"& strDate & "㼞攀䄀?b酧o`"

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

set log = nothing

end function

'皨U_ Rd枹[7b酧o`錯㽥਀昀甀渀挀琀椀漀渀 眀爀椀琀攀䐀攀氀攀琀攀刀攀最䰀漀最⠀爀攀最椀搀Ⰰ攀洀瀀氀漀礀攀攀椀搀Ⰰ挀漀渀渀⤀ഀ਀搀椀洀 洀攀洀漀琀礀瀀攀ഀ਀洀攀洀漀琀礀瀀攀 㴀 ㄀㌀ഀ਀搀椀洀 氀漀最Ⰰ猀琀爀䐀愀琀攀Ⰰ刀攀洀愀爀欀Ⰰ䔀洀瀀一愀洀攀ഀ਀猀攀琀 氀漀最㴀渀攀眀 䰀漀最开䌀氀愀猀猀ഀ਀猀攀琀 氀漀最⸀挀漀渀渀㴀挀漀渀渀ഀ਀猀琀爀䐀愀琀攀㴀䘀漀爀洀愀琀䐀愀琀攀⠀渀漀眀⠀⤀Ⰰ∀礀礀礀礀ⴀ洀ⴀ搀 栀栀㨀渀渀㨀猀猀∀⤀ഀ਀䔀洀瀀一愀洀攀㴀䜀攀琀䌀漀氀甀洀渀嘀愀氀甀攀⠀∀猀攀氀攀挀琀 唀猀攀爀一愀洀攀 昀爀漀洀 攀洀瀀氀漀礀攀攀 眀栀攀爀攀 䔀洀瀀氀漀礀攀攀䤀搀㴀∀ ☀ 䔀洀瀀氀漀礀攀攀䤀搀Ⰰ挀漀渀渀⤀ഀ਀刀攀洀愀爀欀㴀䔀洀瀀一愀洀攀 ☀ ∀ᨀ꿸≝☀ 猀琀爀䐀愀琀攀 ☀ ∀ఀ⃸刀搀뤀孧㜀戀最澑怀∀ഀ਀洀攀猀猀愀最攀㴀氀漀最⸀圀爀椀琀攀䴀攀洀漀䰀漀最⠀䔀洀瀀氀漀礀攀攀䤀搀Ⰰ刀攀最䤀搀Ⰰ洀攀洀漀琀礀瀀攀Ⰰ∀ 刀搀뤀孧㜀戀∀Ⰰ刀攀洀愀爀欀Ⰰ猀琀爀䐀愀琀攀⤀ഀ਀猀攀琀 氀漀最 㴀 渀漀琀栀椀渀最ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀✀ꠀ啶开 刀搀뤀孧㜀戀最澑怀⼀斓?
function writeRecoverRegLog(regid,employeeid,conn)

dim memotype

memotype = 14

dim log,strDate,Remark,EmpName

set log=new Log_Class

set log.conn=conn

strDate=FormatDate(now(),"yyyy-m-d hh:nn:ss")

EmpName=GetColumnValue("select UserName from employee where EmployeeId=" & EmployeeId,conn)

Remark=EmpName & "嶯"& strDate & "b`
Y㼗刀搀뤀孧㜀戀最澑怀∀ഀ਀洀攀猀猀愀最攀㴀氀漀最⸀圀爀椀琀攀䴀攀洀漀䰀漀最⠀䔀洀瀀氀漀礀攀攀䤀搀Ⰰ刀攀最䤀搀Ⰰ洀攀洀漀琀礀瀀攀Ⰰ∀戀怀ഀ夀䄀?b",Remark,strDate)

set log = nothing

end function

' {vU_bCgP柪h㼱਀猀礀猀䤀猀䄀搀洀椀渀䰀漀最㴀琀爀甀攀ഀ਀猀礀猀䤀猀䔀搀椀琀漀爀䰀漀最㴀琀爀甀攀ഀ਀猀礀猀䤀猀䠀爀䰀漀最㴀琀爀甀攀ഀ਀猀礀猀刀攀最椀猀琀攀爀䰀漀最㴀琀爀甀攀ഀ਀昀甀渀挀琀椀漀渀 䄀搀洀椀渀䰀漀最⠀琀椀琀氀攀Ⰰ搀攀猀挀爀椀瀀琀椀漀渀Ⰰ挀漀渀渀⤀ഀ਀椀昀 猀礀猀䤀猀䄀搀洀椀渀䰀漀最 琀栀攀渀 挀愀氀氀 圀爀椀琀攀匀礀猀琀攀洀䰀漀最⠀匀攀猀猀椀漀渀⠀∀攀洀瀀䔀洀瀀氀漀礀攀攀椀搀∀⤀Ⰰ∀倀　　㄀∀Ⰰ琀椀琀氀攀Ⰰ搀攀猀挀爀椀瀀琀椀漀渀Ⰰ挀漀渀渀⤀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀昀甀渀挀琀椀漀渀 䔀搀椀琀漀爀䰀漀最⠀琀椀琀氀攀Ⰰ搀攀猀挀爀椀瀀琀椀漀渀Ⰰ挀漀渀渀⤀ഀ਀椀昀 猀礀猀䤀猀䔀搀椀琀漀爀䰀漀最 琀栀攀渀 挀愀氀氀 圀爀椀琀攀匀礀猀琀攀洀䰀漀最⠀匀攀猀猀椀漀渀⠀∀攀洀瀀䔀洀瀀氀漀礀攀攀椀搀∀⤀Ⰰ∀倀　　㈀∀Ⰰ琀椀琀氀攀Ⰰ搀攀猀挀爀椀瀀琀椀漀渀Ⰰ挀漀渀渀⤀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀昀甀渀挀琀椀漀渀 䠀爀䰀漀最⠀琀椀琀氀攀Ⰰ搀攀猀挀爀椀瀀琀椀漀渀Ⰰ挀漀渀渀⤀ഀ਀椀昀 猀礀猀䤀猀䠀爀䰀漀最 琀栀攀渀 挀愀氀氀 圀爀椀琀攀匀礀猀琀攀洀䰀漀最⠀匀攀猀猀椀漀渀⠀∀攀洀瀀䔀洀瀀氀漀礀攀攀椀搀∀⤀Ⰰ∀倀　　㌀∀Ⰰ琀椀琀氀攀Ⰰ搀攀猀挀爀椀瀀琀椀漀渀Ⰰ挀漀渀渀⤀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀昀甀渀挀琀椀漀渀 刀攀最椀猀琀攀爀䰀漀最⠀琀椀琀氀攀Ⰰ搀攀猀挀爀椀瀀琀椀漀渀Ⰰ挀漀渀渀⤀ഀ਀椀昀 猀礀猀刀攀最椀猀琀攀爀䰀漀最 琀栀攀渀 挀愀氀氀 圀爀椀琀攀匀礀猀琀攀洀䰀漀最⠀匀攀猀猀椀漀渀⠀∀攀洀瀀䔀洀瀀氀漀礀攀攀椀搀∀⤀Ⰰ∀倀　　㐀∀Ⰰ琀椀琀氀攀Ⰰ搀攀猀挀爀椀瀀琀椀漀渀Ⰰ挀漀渀渀⤀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀昀甀渀挀琀椀漀渀 圀爀椀琀攀匀礀猀琀攀洀䰀漀最⠀攀洀瀀氀漀礀攀攀䤀搀Ⰰ挀愀琀攀最漀爀礀Ⰰ琀椀琀氀攀Ⰰ搀攀猀挀爀椀瀀琀椀漀渀Ⰰ挀漀渀渀⤀ഀ਀搀椀洀 洀匀琀爀匀焀氀Ⰰ爀猀ഀ਀猀攀琀 爀猀㴀猀攀爀瘀攀爀⸀䌀爀攀愀琀攀伀戀樀攀挀琀⠀∀愀搀漀搀戀⸀爀攀挀漀爀搀猀攀琀∀⤀ഀ਀洀匀琀爀匀焀氀㴀∀猀攀氀攀挀琀 ⨀ 昀爀漀洀 猀礀猀琀攀洀氀漀最 眀栀攀爀攀 椀搀㴀　∀ഀ਀爀猀⸀伀瀀攀渀 洀匀琀爀匀焀氀Ⰰ挀漀渀渀Ⰰ㌀Ⰰ㌀ഀ਀爀猀⸀䄀搀搀一攀眀ഀ਀爀猀⠀∀攀洀瀀氀漀礀攀攀椀搀∀⤀㴀攀洀瀀氀漀礀攀攀䤀搀ഀ਀椀昀 刀攀焀甀攀猀琀⸀儀甀攀爀礀匀琀爀椀渀最㴀∀∀ 琀栀攀渀ഀ਀爀猀⠀∀甀爀氀倀愀琀栀∀⤀㴀刀攀焀甀攀猀琀⸀匀攀爀瘀攀爀嘀愀爀椀愀戀氀攀猀⠀∀倀䄀吀䠀开䤀一䘀伀∀⤀ഀ਀攀氀猀攀ഀ਀爀猀⠀∀甀爀氀倀愀琀栀∀⤀㴀刀攀焀甀攀猀琀⸀匀攀爀瘀攀爀嘀愀爀椀愀戀氀攀猀⠀∀倀䄀吀䠀开䤀一䘀伀∀⤀ ☀ ∀㼀∀ ☀ 刀攀焀甀攀猀琀⸀儀甀攀爀礀匀琀爀椀渀最ഀ਀攀渀搀 椀昀ഀ਀爀猀⠀∀挀愀琀攀最漀爀礀∀⤀㴀挀愀琀攀最漀爀礀ഀ਀爀猀⠀∀琀椀琀氀攀∀⤀㴀琀椀琀氀攀ഀ਀爀猀⠀∀搀攀猀挀爀椀瀀琀椀漀渀∀⤀㴀搀攀猀挀爀椀瀀琀椀漀渀ഀ਀爀猀⠀∀愀挀琀椀漀渀琀椀洀攀∀⤀㴀渀漀眀⠀⤀ഀ਀爀猀⠀∀爀甀渀椀瀀∀⤀㴀刀攀焀甀攀猀琀⸀匀攀爀瘀攀爀嘀愀爀椀愀戀氀攀猀⠀∀刀䔀䴀伀吀䔀开䄀䐀䐀刀∀⤀ഀ਀爀猀⸀唀瀀搀愀琀攀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀✀ ꠀ啶开簀膞錿㽥਀✀缀伀⠀甀尀?a

'1
0俌済梺?W
g皨U_-Nc歔u榖梽vh槝(W珗寶䤿畒阀౩饩罚猀吀椀琀氀攀㴀∀∀ഀ਀✀㈀Ā　찀ࡏݮ挀吀䥫畒阀㽩먀㽨伀⠀甀飥㽛緥nchkColNo=""

'

dim URL_PATH	'0W@W+耂peW[&{2N(u嶯u榖楏峫?

if Request.ServerVariables("QUERY_STRING")<>"" then

URL_PATH=Request.ServerVariables("PATH_INFO") & "?" & Request.ServerVariables("QUERY_STRING")

else

URL_PATH=Request.ServerVariables("PATH_INFO")

end if

function chkCanView()

if chkMember<>1 then chkMember=0

dim RegId

RegId=Session("RegId")

UserId=Session("userid")

if UserId<>"" and RegId<>"" then

result=CheckPermission(RegId,CurColNo,chkMember)

result=trim(result)

if right(result,1)="1" then

'皨U_繈㽣斓?
chkCanView=0

call RecordProcess(RegId,UserId,CurColNo,CurInfoNum,URL_PATH,CurTi   var ga = document.createElement('script'); ga.type = 'text/javascript'; ga.async = true;

    ga.src = ('https:' == document.location.protocol ? 'https://ssl' : 'http://www') + '.google-analytics.com/ga.js';

    var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(ga, s);

  })();



</script>



<script type="text/javascript">

var _bdhmProtocol = (("https:" == document.location.protocol) ? " https://" : " http://");

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

</script></body>

</html>