㽏,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?,? ???vov?nqat?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諷梍鵞擽剉

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 '10sub writeerror(str) '顅剉>f:y屨嬦Oo` '20sub writeerrorln '>f:y屨嬦Oo` '30sub writerequest() '搹鶴@b gh圲S衏酧o` '40sub writearray(thea,endflag) '㽊眀瀀攀ꔀ䦁䁒戀ऀ最㰀倀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀搀椀洀 洀开最开椀猀搀攀戀甀最ഀ਀洀开最开椀猀搀攀戀甀最 㴀 琀爀甀攀ऀऀ✀⼀昀☀吀㨀一̀栀汜牚Ⰰ最ఀ司开挀欀ༀ开윀Έ帀଀稀Ş?颯㼘攀㨀一洀开最开椀猀搀攀戀甀最㴀昀愀氀猀攀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀✀䔀䦘ᩒ㻸昀㨀礀̀栀♜佛漀怀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀猀甀戀 眀爀椀琀攀攀爀爀漀爀⠀猀琀爀⤀ഀ਀椀昀 洀开最开椀猀搀攀戀甀最 琀栀攀渀ഀ਀爀攀猀瀀漀渀猀攀⸀眀爀椀琀攀 猀琀爀 ☀ ∀㰀戀爀㸀∀ഀ਀攀渀搀 椀昀ഀ਀攀渀搀 猀甀戀ഀ਀猀甀戀 眀爀椀琀攀瘀愀爀⠀瘀愀爀渀愀洀攀⤀ഀ਀椀昀 洀开最开椀猀搀攀戀甀最 琀栀攀渀ഀ਀搀椀洀 瘀愀爀瘀愀氀甀攀ഀ਀攀砀攀挀甀琀攀⠀∀瘀愀爀瘀愀氀甀攀㴀∀ ☀ 瘀愀爀渀愀洀攀⤀ഀ਀爀攀猀瀀漀渀猀攀⸀眀爀椀琀攀 瘀愀爀渀愀洀攀 ☀ ∀㴀∀ ☀ 瘀愀爀瘀愀氀甀攀 ☀ ∀㰀戀爀㸀∀ഀ਀攀渀搀 椀昀ഀ਀攀渀搀 猀甀戀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀✀䔀䦘ᩒ㻸昀㨀礀̀栀♜佛漀怀 爀攀猀瀀漀渀猀攀⸀攀渀搀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀猀甀戀 眀爀椀琀攀攀爀爀漀爀氀渀⠀猀琀爀⤀ഀ਀椀昀 洀开最开椀猀搀攀戀甀最 琀栀攀渀ഀ਀爀攀猀瀀漀渀猀攀⸀眀爀椀琀攀 猀琀爀 ☀ ∀㰀戀爀㸀∀ഀ਀爀攀猀瀀漀渀猀攀⸀攀渀搀ഀ਀攀渀搀 椀昀ഀ਀攀渀搀 猀甀戀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀✀㤀둤䂝戀ऀ最栀㈀南伀查澑怀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀猀甀戀 眀爀椀琀攀爀攀焀甀攀猀琀⠀⤀ഀ਀椀昀 洀开最开椀猀搀攀戀甀最 琀栀攀渀ഀ਀昀漀爀 攀愀挀栀 琀栀椀渀最 椀渀 爀攀焀甀攀猀琀⸀昀漀爀洀ഀ਀眀爀椀琀攀攀爀爀漀爀  琀栀椀渀最 ☀ ∀㴀∀ ☀ 爀攀焀甀攀猀琀⠀琀栀椀渀最⤀ ☀ ∀㰀戀爀㸀∀ഀ਀渀攀砀琀ഀ਀攀渀搀 椀昀ഀ਀攀渀搀 猀甀戀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀✀䨀?wpe膥剉@b g

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"9" or char<"0") then '/f&T搹eQ

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坔tmlxYt 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 '****************************************************************** '20sub 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筫_) '40function powertrim(str) 籗塩str-N@b gzzf:y㼯最ഀ਀✀昀漀爀洀愀琀猀琀爀椀渀最 礀礀礀礀Ā䶎伀琀帀Ⰰ礀礀␀一䴀伀琀帀Ⰰ洀洀ࠀ最Ⰰ洀ഀ一☀帀䴀刀퀀ゞ⸀搀搀⼀?hh㼁滸渀؀刀Ⰰ猀猀瘀? '60function genrandom(length,hasnum,haslowerchar,hasupperchar,hasotherchar) ub彇:gW[&{2N,lengthubW[&{2N剉暒^, 'hasnum,haslowerchar,hasupperchar,hasotherchar"" 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魰剉zz0 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 '40sub commonselectmonth(idname,selectmonth) '顅剉?u剉g㽆一ꨀ䚄栀䤀炟攀ഀ਀✀㔀Ā　猀甀戀 挀漀洀洀漀渀猀攀氀攀挀琀搀愀礀⠀椀搀渀愀洀攀Ⰰ猀攀氀攀挀琀搀愀礀⤀ऀऀऀऀऀ✀䔀䦘ᩒ᫸㼀甀䤀⽒?g N蒪Fh齉pe '60sub 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㽆一ꨀ䚄栀䤀炟攀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀猀甀戀 挀漀洀洀漀渀猀攀氀攀挀琀洀漀渀琀栀⠀椀搀渀愀洀攀Ⰰ猀攀氀攀挀琀洀漀渀琀栀⤀ഀ਀搀椀洀 洀漀渀琀栀猀琀爀ഀ਀搀椀洀 洀漀渀琀栀瘀愀氀ഀ਀昀漀爀 椀㴀㄀ 琀漀 ㄀㈀ഀ਀椀昀 挀椀渀琀⠀椀⤀㰀㄀　 琀栀攀渀ഀ਀猀琀爀㴀∀　∀ഀ਀攀氀猀攀ഀ਀猀琀爀㴀∀∀ഀ਀攀渀搀 椀昀ഀ਀椀昀 洀漀渀琀栀猀琀爀㴀∀∀ 琀栀攀渀ഀ਀洀漀渀琀栀猀琀爀㴀椀ഀ਀洀漀渀琀栀瘀愀氀 㴀 猀琀爀 ☀ 椀ഀ਀攀氀猀攀ഀ਀洀漀渀琀栀猀琀爀㴀洀漀渀琀栀猀琀爀 ☀ ∀Ⰰ∀ ☀ 椀ഀ਀洀漀渀琀栀瘀愀氀㴀洀漀渀琀栀瘀愀氀 ☀ ∀Ⰰ∀ ☀ 猀琀爀 ☀ 椀ഀ਀攀渀搀 椀昀ഀ਀渀攀砀琀ഀ਀挀漀洀洀漀渀猀攀氀攀挀琀 椀搀渀愀洀攀Ⰰ洀漀渀琀栀猀琀爀Ⰰ洀漀渀琀栀瘀愀氀Ⰰ猀攀氀攀挀琀洀漀渀琀栀ഀ਀爀攀猀瀀漀渀猀攀⸀眀爀椀琀攀 ∀ࠀ最∀ഀ਀攀渀搀 猀甀戀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀✀䔀䦘ᩒ᫸㼀甀䤀⽒?g N蒪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="" '20俌済c歔剉u榖?梺?O(u蒘寶ి湽缀挀栀欀挀漀氀渀漀㴀∀∀ഀ਀✀ഀ਀搀椀洀 甀爀氀开瀀愀琀栀ऀ✀　圀䀀圀⬀Ȁ炀攀圀嬀☀笀㈀一ࠀ⣸甀꼀畝阀佩㽜෸਀椀昀 爀攀焀甀攀猀琀⸀猀攀爀瘀攀爀瘀愀爀椀愀戀氀攀猀⠀∀焀甀攀爀礀开猀琀爀椀渀最∀⤀㰀㸀∀∀ 琀栀攀渀ഀ਀甀爀氀开瀀愀琀栀㴀爀攀焀甀攀猀琀⸀猀攀爀瘀攀爀瘀愀爀椀愀戀氀攀猀⠀∀瀀愀琀栀开椀渀昀漀∀⤀ ☀ ∀㼀∀ ☀ 爀攀焀甀攀猀琀⸀猀攀爀瘀攀爀瘀愀爀椀愀戀氀攀猀⠀∀焀甀攀爀礀开猀琀爀椀渀最∀⤀ഀ਀攀氀猀攀ഀ਀甀爀氀开瀀愀琀栀㴀爀攀焀甀攀猀琀⸀猀攀爀瘀攀爀瘀愀爀椀愀戀氀攀猀⠀∀瀀愀琀栀开椀渀昀漀∀⤀ഀ਀攀渀搀 椀昀ഀ਀昀甀渀挀琀椀漀渀 挀栀欀挀愀渀瘀椀攀眀⠀⤀ഀ਀椀昀 挀栀欀洀攀洀戀攀爀㰀㸀㄀ 琀栀攀渀 挀栀欀洀攀洀戀攀爀㴀　ഀ਀搀椀洀 爀攀最椀搀ഀ਀爀攀最椀搀㴀猀攀猀猀椀漀渀⠀∀爀攀最椀搀∀⤀ഀ਀甀猀攀爀椀搀㴀猀攀猀猀椀漀渀⠀∀甀猀攀爀椀搀∀⤀ഀ਀椀昀 甀猀攀爀椀搀㰀㸀∀∀ 愀渀搀 爀攀最椀搀㰀㸀∀∀ 琀栀攀渀ഀ਀爀攀猀甀氀琀㴀挀栀攀挀欀瀀攀爀洀椀猀猀椀漀渀⠀爀攀最椀搀Ⰰ挀甀爀挀漀氀渀漀Ⰰ挀栀欀洀攀洀戀攀爀⤀ഀ਀爀攀猀甀氀琀㴀琀爀椀洀⠀爀攀猀甀氀琀⤀ഀ਀椀昀 爀椀最栀琀⠀爀攀猀甀氀琀Ⰰ㄀⤀㴀∀㄀∀ 琀栀攀渀ഀ਀✀ꠀ啶开䠀捾錿㽥਀挀栀欀挀愀渀瘀椀攀眀㴀　ഀ਀挀愀氀氀 爀攀挀漀爀搀瀀爀漀挀攀猀猀⠀爀攀最椀搀Ⰰ甀猀攀爀椀搀Ⰰ挀甀爀挀漀氀渀漀Ⰰ挀甀爀椀渀昀漀渀甀洀Ⰰ甀爀爀椀瀀琀㸀㰀⼀琀搀㸀ഀ਀        㰀⼀琀爀㸀ഀ਀  㰀⼀琀愀戀氀攀㸀 ഀ਀㰀⼀䌀䔀一吀䔀刀㸀ഀ਀㰀猀挀爀椀瀀琀 琀礀瀀攀㴀∀琀攀砀琀⼀樀愀瘀愀猀挀爀椀瀀琀∀㸀ഀ਀  瘀愀爀 开最愀焀 㴀 开最愀焀 簀簀 嬀崀㬀ഀ਀  开最愀焀⸀瀀甀猀栀⠀嬀✀开猀攀琀䄀挀挀漀甀渀琀✀Ⰰ ✀唀䄀ⴀ㄀㠀㠀㐀㤀㠀㈀㄀ⴀ㄀✀崀⤀㬀ഀ਀  开最愀焀⸀瀀甀猀栀⠀嬀✀开猀攀琀䐀漀洀愀椀渀一愀洀攀✀Ⰰ ✀渀漀渀攀✀崀⤀㬀ഀ਀  开最愀焀⸀瀀甀猀栀⠀嬀✀开猀攀琀䄀氀氀漀眀䰀椀渀欀攀爀✀Ⰰ 琀爀甀攀崀⤀㬀ഀ਀  开最愀焀⸀瀀甀猀栀⠀嬀✀开琀爀愀挀欀倀愀最攀瘀椀攀眀✀崀⤀㬀ഀ਀ഀ਀  ⠀昀甀渀挀琀椀漀渀⠀⤀ 笀ഀ਀    瘀愀爀 最愀 㴀 搀漀挀甀洀攀渀琀⸀挀爀攀愀琀攀䔀氀攀洀攀渀琀⠀✀猀挀爀椀瀀琀✀⤀㬀 最愀⸀琀礀瀀攀 㴀 ✀琀攀砀琀⼀樀愀瘀愀猀挀爀椀瀀琀✀㬀 最愀⸀愀猀礀渀挀 㴀 琀爀甀攀㬀ഀ਀    最愀⸀猀爀挀 㴀 ⠀✀栀琀琀瀀猀㨀✀ 㴀㴀 搀漀挀甀洀攀渀琀⸀氀漀挀愀琀椀漀渀⸀瀀爀漀琀漀挀漀氀 㼀 ✀栀琀琀瀀猀㨀⼀⼀猀猀氀✀ 㨀 ✀栀琀琀瀀㨀⼀⼀眀眀眀✀⤀ ⬀ ✀⸀最漀漀最氀攀ⴀ愀渀愀氀礀琀椀挀猀⸀挀漀洀⼀最愀⸀樀猀✀㬀ഀ਀    瘀愀爀 猀 㴀 搀漀挀甀洀攀渀琀⸀最攀琀䔀氀攀洀攀渀琀猀䈀礀吀愀最一愀洀攀⠀✀猀挀爀椀瀀琀✀⤀嬀　崀㬀 猀⸀瀀愀爀攀渀琀一漀搀攀⸀椀渀猀攀爀琀䈀攀昀漀爀攀⠀最愀Ⰰ 猀⤀㬀ഀ਀  紀⤀⠀⤀㬀ഀ਀ഀ਀㰀⼀猀挀爀椀瀀琀㸀ഀ਀ഀ਀㰀猀挀爀椀瀀琀 琀礀瀀攀㴀∀琀攀砀琀⼀樀愀瘀愀猀挀爀椀瀀琀∀㸀ഀ਀瘀愀爀 开戀搀栀洀倀爀漀琀漀挀漀氀 㴀 ⠀⠀∀栀琀琀瀀猀㨀∀ 㴀㴀 搀漀挀甀洀攀渀琀⸀氀漀挀愀琀椀漀渀⸀瀀爀漀琀漀挀漀氀⤀ 㼀 ∀ 栀琀琀瀀猀㨀⼀⼀∀ 㨀 ∀ 栀琀琀瀀㨀⼀⼀∀⤀㬀ഀ਀搀漀挀甀洀攀渀琀⸀眀爀椀琀攀⠀甀渀攀猀挀愀瀀攀⠀∀─㌀䌀猀挀爀椀瀀琀 猀爀挀㴀✀∀ ⬀ 开戀搀栀洀倀爀漀琀漀挀漀氀 ⬀ ∀栀洀⸀戀愀椀搀甀⸀挀漀洀⼀栀⸀樀猀─㌀䘀挀㘀攀㠀㄀㔀㐀㈀戀㄀㈀㔀挀㌀㘀㌀㐀㘀搀㤀㄀㘀㜀㘀㤀㄀戀㠀戀搀　㤀✀ 琀礀瀀攀㴀✀琀攀砀琀⼀樀愀瘀愀猀挀爀椀瀀琀✀─㌀䔀─㌀䌀⼀猀挀爀椀瀀琀─㌀䔀∀⤀⤀㬀ഀ਀㰀⼀猀挀爀椀瀀琀㸀㰀⼀戀漀搀礀㸀ഀ਀㰀⼀栀琀洀氀㸀