㽏unction GenRandom(Length,hasNum,hasLowerChar,hasUpperChar,hasOtherChar) ubG_:gW[&{2N,lengthubW[&{2NIR抐^,

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

'7
0function Repeat(str,num)				n奫忹?Ynum!kstrIRW[&{2N

'9
0function translate(sourceStr,fieldStr)	Yt;渀鸮㾃开䤀刀氀㼀匀挀　楪ഀ਀✀㄀　Ā　昀甀渀挀琀椀漀渀 挀栀欀䔀洀愀椀氀⠀攀洀愀椀氀⤀ऀऀऀऀ愀ㅖഀ畤舀খ最☀吀挀欀渀砀Ⰰ挀欀渀砀渀欀㽙Ⰰᤀ─?[嘿　ഀ਀✀㄀㄀Ā　昀甀渀挀琀椀漀渀 戀爀漀眀猀攀爀⠀椀渀昀漀⤀ऀऀऀऀऀ錀䆜㼀戀伀洀吀⨀R嘀最茀a怀ഀ਀✀㄀㈀Ā　昀甀渀挀琀椀漀渀 猀礀猀琀攀洀⠀椀渀昀漀⤀ऀऀऀऀऀ錀䆜㼀戀픀屳伀簀Ⰰ买荠a怀ഀ਀✀㄀㌀Ā　昀甀渀挀琀椀漀渀 䤀䤀䘀⠀琀栀攀䤀渀瀀甀琀䔀砀瀀Ⰰ琀爀甀攀嘀愀氀甀攀Ⰰ昀愀氀猀攀嘀愀氀甀攀⤀ऀऀ䤀䤀䘀䤀∀q攀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀猀甀戀 一漀琀攀猀⠀猀琀爀Ⰰ猀琀爀䘀氀愀最⤀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㐀㈀⤀ഀ਀椀昀 猀琀爀㰀㸀∀∀ 琀栀攀渀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㐀㌀⤀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀⠀猀琀爀⤀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㐀㐀⤀ഀ਀攀渀搀 椀昀ഀ਀椀昀 猀琀爀䘀氀愀最㴀∀㄀∀ 琀栀攀渀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㐀㔀⤀ഀ਀䔀氀猀攀䤀昀 猀琀爀䘀氀愀最㴀∀㈀∀ 琀栀攀渀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㐀㘀⤀ഀ਀䔀氀猀攀䤀昀 猀琀爀䘀氀愀最㴀∀㌀∀ 琀栀攀渀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㐀㜀⤀ഀ਀攀渀搀 椀昀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㐀㠀⤀ഀ਀爀攀猀瀀漀渀猀攀⸀䔀渀搀ഀ਀攀渀搀 猀甀戀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀✀ᨀ㼀甀伀㼀礀最茀a怀䤀∀q攀Ⰰ伀㼀礀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀猀甀戀 一漀琀攀猀䜀漀⠀猀琀爀Ⰰ甀爀氀⤀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㐀㤀⤀ഀ਀椀昀 猀琀爀㰀㸀∀∀ 琀栀攀渀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㔀　⤀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀⠀猀琀爀⤀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㔀㄀⤀ഀ਀攀渀搀 椀昀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㔀㈀⤀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀⠀甀爀氀⤀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㔀㌀⤀ഀ਀爀攀猀瀀漀渀猀攀⸀攀渀搀ഀ਀攀渀搀 猀甀戀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀✀圀簀椀堀猀琀爀ⴀ一瀀洀剬稀稀㰀栀Ⰰ渀欀㽙倀㨀一Ѐ夀؀琀฀吀䤀刀圀嬀☀笀㈀一ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀昀甀渀挀琀椀漀渀 倀漀眀攀爀吀爀椀洀⠀猀琀爀⤀ഀ਀搀椀洀 椀Ⰰ氀渀Ⰰ爀攀猀甀氀琀ഀ਀氀渀㴀氀攀渀⠀挀猀琀爀⠀猀琀爀⤀⤀ഀ਀昀漀爀 椀㴀㄀ 琀漀 氀渀ഀ਀椀昀 洀椀搀⠀猀琀爀Ⰰ椀Ⰰ㄀⤀㰀㸀∀ ∀ 琀栀攀渀ഀ਀爀攀猀甀氀琀㴀爀攀猀甀氀琀 ☀ 洀椀搀⠀猀琀爀Ⰰ椀Ⰰ㄀⤀ഀ਀攀渀搀 椀昀ഀ਀渀攀砀琀ഀ਀倀漀眀攀爀吀爀椀洀㴀爀攀猀甀氀琀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀✀䔀洀剩ᨀ頀㲌栀ༀ开ᘀ匀㸀昀㨀礀⼀㼀最ഀ਀✀㤀搀攀儀ᨀ頀⾌㼀最㰀倀Ā　㰀栀ༀ开ᘀ匀㈀一ഀ਀✀渀欀㽙倀ᨀ頀垌嬀☀笀㈀一ഀ਀✀猀娀 䘀漀爀洀愀琀䐀愀琀攀⠀渀漀眀⠀⤀Ⰰ∀礀礀礀礀洀洀搀搀 栀㨀渀∀⤀ऀ渀欀㽙倀㨀一 ∀㈀　　㈀㄀　　㤀 ㄀　㨀㌀∀ഀ਀✀猀娀 䘀漀爀洀愀琀䐀愀琀攀⠀渀漀眀⠀⤀Ⰰ∀礀礀礀礀ⴀ洀ⴀ搀 栀栀㨀渀渀∀⤀ 渀欀㽙倀㨀一 ∀㈀　　㈀ⴀ㄀　ⴀ㤀 ㄀　㨀　㌀∀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀昀甀渀挀琀椀漀渀 䘀漀爀洀愀琀䐀愀琀攀⠀䐀愀琀攀嘀愀氀甀攀Ⰰ䘀漀爀洀愀琀匀琀爀椀渀最⤀ഀ਀✀䘀漀爀洀愀琀匀琀爀椀渀最 礀礀礀礀Ā글]伀琀帀Ⰰ礀礀␀一䴀伀琀帀Ⰰ洀洀ࠀ最Ⰰ洀ഀ一☀帀䴀刀ꠀよ⸀搀搀⼀㼀栀栀Ā㼀頀溌渀؀刀Ⰰ猀猀瘀㼀਀搀椀洀 猀琀爀刀攀猀甀氀琀ഀ਀猀琀爀刀攀猀甀氀琀㴀氀挀愀猀攀⠀䘀漀爀洀愀琀匀琀爀椀渀最⤀ഀ਀椀昀 䤀猀䐀愀琀攀⠀䐀愀琀攀嘀愀氀甀攀⤀ 琀栀攀渀ഀ਀✀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀 䐀愀琀攀嘀愀氀甀攀ഀ਀猀琀爀夀攀愀爀㴀礀攀愀爀⠀䐀愀琀攀嘀愀氀甀攀⤀ഀ਀椀昀 氀攀渀⠀猀琀爀夀攀愀爀⤀㴀㈀ 琀栀攀渀ഀ਀猀琀爀夀攀愀爀㴀∀㈀　∀ ☀ 猀琀爀夀攀愀爀ഀ਀攀渀搀 椀昀ഀ਀猀琀爀䴀漀渀琀栀㴀洀漀渀琀栀⠀䐀愀琀攀嘀愀氀甀攀⤀ഀ਀椀昀 氀攀渀⠀猀琀爀䴀漀渀琀栀⤀㴀㄀ 琀栀攀渀 猀琀爀䴀漀渀琀栀㴀∀　∀ ☀ 猀琀爀䴀漀渀琀栀ഀ਀猀琀爀䐀愀礀㴀搀愀礀⠀䐀愀琀攀嘀愀氀甀攀⤀ഀ਀椀昀 氀攀渀⠀猀琀爀䐀愀礀⤀㴀㄀ 琀栀攀渀 猀琀爀䐀愀礀㴀∀　∀ ☀ 猀琀爀䐀愀礀ഀ਀椀昀 䤀猀一甀氀氀⠀栀漀甀爀⠀䐀愀琀攀嘀愀氀甀攀⤀⤀ 琀栀攀渀ഀ਀猀琀爀䠀漀甀爀㴀∀　　∀ഀ਀攀氀猀攀ഀ਀猀琀爀䠀漀甀爀㴀栀漀甀爀⠀䐀愀琀攀嘀愀氀甀攀⤀ഀ਀椀昀 氀攀渀⠀猀琀爀䠀漀甀爀⤀㴀㄀ 琀栀攀渀 猀琀爀䠀漀甀爀㴀∀　∀ ☀ 猀琀爀䠀漀甀爀ഀ਀攀渀搀 椀昀ഀ਀椀昀 䤀猀一甀氀氀⠀洀椀渀甀琀攀⠀䐀愀琀攀嘀愀氀甀攀⤀⤀ 琀栀攀渀ഀ਀猀琀爀䴀椀渀甀琀攀㴀∀　　∀ഀ਀攀氀猀攀ഀ਀猀琀爀䴀椀渀甀琀攀㴀洀椀渀甀琀攀⠀䐀愀琀攀嘀愀氀甀攀⤀ഀ਀椀昀 氀攀渀⠀猀琀爀䴀椀渀甀琀攀⤀㴀㄀ 琀栀攀渀 猀琀爀䴀椀渀甀琀攀㴀∀　∀ ☀ 猀琀爀䴀椀渀甀琀攀ഀ਀攀渀搀 椀昀ഀ਀椀昀 䤀猀一甀氀氀⠀猀攀挀漀渀搀⠀䐀愀琀攀嘀愀氀甀攀⤀⤀ 琀栀攀渀ഀ਀猀琀爀匀攀挀漀渀搀㴀∀　　∀ഀ਀攀氀猀攀ഀ਀猀琀爀匀攀挀漀渀搀㴀猀攀挀漀渀搀⠀䐀愀琀攀嘀愀氀甀攀⤀ഀ਀椀昀 氀攀渀⠀猀琀爀匀攀挀漀渀搀⤀㴀㄀ 琀栀攀渀 猀琀爀匀攀挀漀渀搀㴀∀　∀ ☀ 猀琀爀匀攀挀漀渀搀ഀ਀攀渀搀 椀昀ഀ਀椀昀 䤀渀猀琀爀⠀猀琀爀刀攀猀甀氀琀Ⰰ∀礀礀礀礀∀⤀㸀　 琀栀攀渀ഀ਀猀琀爀刀攀猀甀氀琀㴀爀攀瀀氀愀挀攀⠀猀琀爀刀攀猀甀氀琀Ⰰ∀礀礀礀礀∀Ⰰ猀琀爀夀攀愀爀⤀ഀ਀䔀氀猀攀䤀昀 䤀渀猀琀爀⠀猀琀爀刀攀猀甀氀琀Ⰰ∀礀礀∀⤀㸀　 琀栀攀渀ഀ਀猀琀爀刀攀猀甀氀琀㴀爀攀瀀氀愀挀攀⠀猀琀爀刀攀猀甀氀琀Ⰰ∀礀礀∀Ⰰ爀椀最栀琀⠀猀琀爀夀攀愀爀Ⰰ㈀⤀⤀ഀ਀攀渀搀 椀昀ഀ਀椀昀 䤀渀猀琀爀⠀猀琀爀刀攀猀甀氀琀Ⰰ∀洀洀∀⤀㸀　 琀栀攀渀ഀ਀猀琀爀刀攀猀甀氀琀㴀爀攀瀀氀愀挀攀⠀猀琀爀刀攀猀甀氀琀Ⰰ∀洀洀∀Ⰰ猀琀爀䴀漀渀琀栀⤀ഀ਀䔀氀猀攀䤀昀 䤀渀猀琀爀⠀猀琀爀刀攀猀甀氀琀Ⰰ∀洀∀⤀㸀　 琀栀攀渀ഀ਀猀琀爀刀攀猀甀氀琀㴀爀攀瀀氀愀挀攀⠀猀琀爀刀攀猀甀氀琀Ⰰ∀洀∀Ⰰ挀猀琀爀⠀挀椀渀琀⠀猀琀爀䴀漀渀琀栀⤀⤀⤀ഀ਀攀渀搀 椀昀ഀ਀椀昀 䤀渀猀琀爀⠀猀琀爀刀攀猀甀氀琀Ⰰ∀搀搀∀⤀㸀　 琀栀攀渀ഀ਀猀琀爀刀攀猀甀氀琀㴀爀攀瀀氀愀挀攀⠀猀琀爀刀攀猀甀氀琀Ⰰ∀搀搀∀Ⰰ猀琀爀䐀愀礀⤀ഀ਀䔀氀猀攀䤀昀 䤀渀猀琀爀⠀猀琀爀刀攀猀甀氀琀Ⰰ∀搀∀⤀㸀　 琀栀攀渀ഀ਀猀琀爀刀攀猀甀氀琀㴀爀攀瀀氀愀挀攀⠀猀琀爀刀攀猀甀氀琀Ⰰ∀搀∀Ⰰ挀猀琀爀⠀挀椀渀琀⠀猀琀爀䐀愀礀⤀⤀⤀ഀ਀攀渀搀 椀昀ഀ਀椀昀 䤀渀猀琀爀⠀猀琀爀刀攀猀甀氀琀Ⰰ∀栀栀∀⤀㸀　 琀栀攀渀ഀ਀猀琀爀刀攀猀甀氀琀㴀爀攀瀀氀愀挀攀⠀猀琀爀刀攀猀甀氀琀Ⰰ∀栀栀∀Ⰰ猀琀爀䠀漀甀爀⤀ഀ਀䔀氀猀攀䤀昀 䤀渀猀琀爀⠀猀琀爀刀攀猀甀氀琀Ⰰ∀栀∀⤀㸀　 琀栀攀渀ഀ਀猀琀爀刀攀猀甀氀琀㴀爀攀瀀氀愀挀攀⠀猀琀爀刀攀猀甀氀琀Ⰰ∀栀∀Ⰰ挀猀琀爀⠀挀椀渀琀⠀猀琀爀䠀漀甀爀⤀⤀⤀ഀ਀攀渀搀 椀昀ഀ਀椀昀 䤀渀猀琀爀⠀猀琀爀刀攀猀甀氀琀Ⰰ∀渀渀∀⤀㸀　 琀栀攀渀ഀ਀猀琀爀刀攀猀甀氀琀㴀爀攀瀀氀愀挀攀⠀猀琀爀刀攀猀甀氀琀Ⰰ∀渀渀∀Ⰰ猀琀爀䴀椀渀甀琀攀⤀ഀ਀䔀氀猀攀䤀昀 䤀渀猀琀爀⠀猀琀爀刀攀猀甀氀琀Ⰰ∀渀∀⤀㸀　 琀栀攀渀ഀ਀猀琀爀刀攀猀甀氀琀㴀爀攀瀀氀愀挀攀⠀猀琀爀刀攀猀甀氀琀Ⰰ∀渀∀Ⰰ挀猀琀爀⠀挀椀渀琀⠀猀琀爀䴀椀渀甀琀攀⤀⤀⤀ഀ਀攀渀搀 椀昀ഀ਀椀昀 䤀渀猀琀爀⠀猀琀爀刀攀猀甀氀琀Ⰰ∀猀猀∀⤀㸀　 琀栀攀渀ഀ਀猀琀爀刀攀猀甀氀琀㴀爀攀瀀氀愀挀攀⠀猀琀爀刀攀猀甀氀琀Ⰰ∀猀猀∀Ⰰ猀琀爀匀攀挀漀渀搀⤀ഀ਀䔀氀猀攀䤀昀 䤀渀猀琀爀⠀猀琀爀刀攀猀甀氀琀Ⰰ∀猀∀⤀㸀　 琀栀攀渀ഀ਀猀琀爀刀攀猀甀氀琀㴀爀攀瀀氀愀挀攀⠀猀琀爀刀攀猀甀氀琀Ⰰ∀猀∀Ⰰ挀猀琀爀⠀挀椀渀琀⠀猀琀爀匀攀挀漀渀搀⤀⤀⤀ഀ਀攀渀搀 椀昀ഀ਀攀氀猀攀ഀ਀猀琀爀刀攀猀甀氀琀㴀∀　∀ഀ਀攀渀搀 椀昀ഀ਀䘀漀爀洀愀琀䐀愀琀攀㴀猀琀爀刀攀猀甀氀琀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀✀ἀ甀က戀䜀开㨀最圀嬀☀笀㈀一Ⰰ氀攀渀最琀栀ἀ甀က戀圀嬀☀笀㈀一䤀刀缀退幢Ⰰ栀愀猀一甀洀Ⰰ栀愀猀䰀漀眀攀爀䌀栀愀爀Ⰰ栀愀猀唀瀀瀀攀爀䌀栀愀爀Ⰰ栀愀猀伀琀栀攀爀䌀栀愀爀㰀倀㨀一　ᘀ戀㄀ⰀĀ漀℀欀㨀一Ԁ匀⬀吀瀀攀圀嬀Ā　ༀ尀漀樀圀嬀騀Ż　✀夀漀樀圀嬀騀Ż　瘀儀垍嬀☀笀ഀ਀昀甀渀挀琀椀漀渀 䜀攀渀刀愀渀搀漀洀⠀䰀攀渀最琀栀Ⰰ栀愀猀一甀洀Ⰰ栀愀猀䰀漀眀攀爀䌀栀愀爀Ⰰ栀愀猀唀瀀瀀攀爀䌀栀愀爀Ⰰ栀愀猀伀琀栀攀爀䌀栀愀爀⤀ഀ਀搀椀洀 爀攀猀甀氀琀ഀ਀搀椀洀 䰀愀琀琀攀爀一甀洀Ⰰ䰀愀琀琀攀爀䰀漀眀攀爀Ⰰ䰀愀琀琀攀爀唀瀀瀀攀爀Ⰰ䰀愀琀琀攀爀伀琀栀攀爀ഀ਀搀椀洀 愀爀爀䰀愀琀琀攀爀ഀ਀✀ᴀ刀਀?S瘶ubIRW[&{<P

LatterNum="0123456789"

LatterLower="abcdefghigklmnopqrstuvwxyz"

LatterUpper="ABCDEFGHIGKLMNOPQRSTUVWXYZ"

LatterOther="-=\[]"

'$R璽ubW[&{2N抐^9deQ/f&Tcknx

if Not isnumeric(length) Or Length<0 then

GenRandom=""

Exit function

end if

'R㼊匀最∀Ā怀瀀攀渀挀ഀ਀搀椀洀 渀甀洀ഀ਀渀甀洀㴀　ഀ਀椀昀 栀愀猀一甀洀 琀栀攀渀 渀甀洀㴀渀甀洀⬀㄀ഀ਀椀昀 栀愀猀䰀漀眀攀爀䌀栀愀爀 琀栀攀渀 渀甀洀㴀渀甀洀⬀㄀ഀ਀椀昀 栀愀猀唀瀀瀀攀爀䌀栀愀爀 琀栀攀渀 渀甀洀㴀渀甀洀⬀㄀ഀ਀椀昀 栀愀猀伀琀栀攀爀䌀栀愀爀 琀栀攀渀 渀甀洀㴀渀甀洀⬀㄀ഀ਀椀昀 渀甀洀㴀　 琀栀攀渀ഀ਀䜀攀渀刀愀渀搀漀洀㴀∀∀ഀ਀攀砀椀琀 昀甀渀挀琀椀漀渀ഀ਀攀渀搀 椀昀ഀ਀爀攀搀椀洀 愀爀爀䰀愀琀琀攀爀⠀渀甀洀ⴀ㄀⤀ഀ਀渀甀洀㴀　ഀ਀椀昀 栀愀猀一甀洀 琀栀攀渀ഀ਀愀爀爀䰀愀琀琀攀爀⠀渀甀洀⤀㴀䰀愀琀琀攀爀一甀洀ഀ਀渀甀洀㴀渀甀洀⬀㄀ഀ਀攀渀搀 椀昀ഀ਀椀昀 栀愀猀䰀漀眀攀爀䌀栀愀爀 琀栀攀渀ഀ਀愀爀爀䰀愀琀琀攀爀⠀渀甀洀⤀㴀䰀愀琀琀攀爀䰀漀眀攀爀ഀ਀渀甀洀㴀渀甀洀⬀㄀ഀ਀攀渀搀 椀昀ഀ਀椀昀 栀愀猀唀瀀瀀攀爀䌀栀愀爀 琀栀攀渀ഀ਀愀爀爀䰀愀琀琀攀爀⠀渀甀洀⤀㴀䰀愀琀琀攀爀唀瀀瀀攀爀ഀ਀渀甀洀㴀渀甀洀⬀㄀ഀ਀攀渀搀 椀昀ഀ਀椀昀 栀愀猀伀琀栀攀爀䌀栀愀爀 琀栀攀渀ഀ਀愀爀爀䰀愀琀琀攀爀⠀渀甀洀⤀㴀䰀愀琀琀攀爀伀琀栀攀爀ഀ਀渀甀洀㴀渀甀洀⬀㄀ഀ਀攀渀搀 椀昀ഀ਀刀愀渀搀漀洀椀稀攀⠀⤀ഀ਀搀椀洀 椀Ⰰ椀渀搀攀砀Ⰰ瀀漀猀椀琀椀漀渀ഀ਀昀漀爀 椀㴀㄀ 琀漀 䰀攀渀最琀栀ഀ਀椀渀搀攀砀㴀椀渀琀⠀⠀甀戀漀甀渀搀⠀愀爀爀䰀愀琀琀攀爀⤀⬀㄀⤀⨀刀渀搀⠀⤀⤀ഀ਀瀀漀猀椀琀椀漀渀㴀椀渀琀⠀氀攀渀⠀愀爀爀䰀愀琀琀攀爀⠀椀渀搀攀砀⤀⤀⨀刀渀搀⠀⤀⬀㄀⤀ഀ਀爀攀猀甀氀琀㴀爀攀猀甀氀琀 ⬀ 洀椀搀⠀愀爀爀䰀愀琀琀攀爀⠀椀渀搀攀砀⤀Ⰰ瀀漀猀椀琀椀漀渀Ⰰ㄀⤀ഀ਀渀攀砀琀ഀ਀䜀攀渀刀愀渀搀漀洀㴀爀攀猀甀氀琀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀✀渀欀^嬀☀笀言ඞ夀℀欀瀀攀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀昀甀渀挀琀椀漀渀 刀攀瀀攀愀琀⠀猀琀爀Ⰰ渀甀洀⤀ഀ਀搀椀洀 刀攀猀甀氀琀ഀ਀刀攀猀甀氀琀㴀∀∀ഀ਀搀漀 眀栀椀氀攀 渀甀洀㸀　ഀ਀刀攀猀甀氀琀㴀刀攀猀甀氀琀 ⬀ 猀琀爀ഀ਀渀甀洀㴀渀甀洀ⴀ㄀ഀ਀䰀漀漀瀀ഀ਀刀攀瀀攀愀琀㴀刀攀猀甀氀琀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀昀甀渀挀琀椀漀渀 䤀渀琀吀漀匀琀爀⠀瘀愀氀甀攀Ⰰ洀愀砀氀攀渀Ⰰ昀椀氀氀挀栀愀爀⤀ഀ਀搀椀洀 爀攀猀甀氀琀ഀ਀爀攀猀甀氀琀㴀挀猀琀爀⠀瘀愀氀甀攀⤀ഀ਀椀昀 氀攀渀⠀爀攀猀甀氀琀⤀㰀洀愀砀氀攀渀 琀栀攀渀ഀ਀爀攀猀甀氀琀㴀刀攀瀀攀愀琀⠀昀椀氀氀挀栀愀爀Ⰰ洀愀砀氀攀渀ⴀ氀攀渀⠀爀攀猀甀氀琀⤀⤀ ☀ 爀攀猀甀氀琀ഀ਀攀渀搀 椀昀ഀ਀䤀渀琀吀漀匀琀爀㴀爀攀猀甀氀琀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀✀Ѐ夀؀琀㬀⹮莞?_IRl?Sc樰i

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

function translate(sourceStr,fieldStr)

dim  sourceList

dim resultStr

dim i,j

if instr(sourceStr," ")>0 then

dim isOperator

isOperator = true

sourceList=split(sourceStr)	'搝z<hRDe

rem Response.Write "num:" & cstr(ubound(sourceList)) & "<br>"

for i = 0 to ubound(sourceList)

rem Response.Write i

Select Case ucase(sourceList(i))

Case "AND","&","t[","N"

resultStr=resultStr & " and "

isOperator = true

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

resultStr=resultStr & " or "

isOperator = true

Case "NOT","!","^?,"
貘","
貘"

resultStr=resultStr & " not "

isOperator = true

Case "(","貘","貘"

resultStr=resultStr & " ( "

isOperator = true

Case ")","	貘","	貘"

resultStr=resultStr & " ) "

isOperator = true

Case else

if sourceList(i)<>"" then

if not isOperator then resultStr=resultStr & " and "

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

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

else

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

end if

isOperator=false

end if

end Select

rem Response.write resultStr+"<br>"

next

translate=resultStr

else 'USag隂

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

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

else

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

end if

rem MRTT雚N*Nzz<h貘MQ峢飶sql
淾屖T雚貘?礉?0

end if

end function

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

'噡1損u隂	g&Tcknx,cknxn奫弔ure,㼥嬀㼀Vfalse

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

function IsValidEmail(strEmail)

dim re

Set re = new RegExp

re.pattern = "^[a-zA-Z][A-Za-z0-9_.-]+@[a-zA-Z0-9_]+?\.[a-zA-Z]{2,3}$"

chkEMail=re.Test(strEmail)

set re=nothing

end function

function browser(info)

if Instr(info,"MSIE 5.5")>0 then

browser="Om T?hV貘Internet Explorer 5.5"

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

browser="Om T?hV貘Internet Explorer 6.0"

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

browser="Om T?hV貘Internet Explorer 5.01"

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

browser="Om T?hV貘Internet Explorer 5.00"

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

browser="Om T?hV貘Internet Explorer 4.01"

else

browser="Om T?hV貘*gB?

end if

end function

function system(info)

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

system=system+"珕\O|瀬?貘Windows XP"

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

system=system+"珕\O|瀬?貘Windows 2000"

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

system=system+"珕\O|瀬?貘Windows NT4"

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

system=system+"珕\O|瀬?貘Windows 98"

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

system=system+"珕\O|瀬?貘Windows 95"

else

system=system+"珕\O|瀬?貘*gB?

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 Tk0"" 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

'lz鲓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

'㽚㼀甀堀䴀䰀䠀吀吀倀Ⰰ缀伀⠀甀倀伀匀吀欀笀ༀ开伀㈀㽘਀昀甀渀挀琀椀漀渀 䠀吀吀倀开倀伀匀吀⠀猀琀爀开甀爀氀Ⰰ猀琀爀开挀漀渀琀攀渀琀⤀ഀ਀漀渀 攀爀爀漀爀 爀攀猀甀洀攀 渀攀砀琀ഀ਀搀椀洀 漀戀樀砀洀氀Ⰰ猀攀爀瘀椀挀攀甀爀氀ഀ਀搀椀洀 猀琀爀愀Ⰰ爀攀猀甀氀琀ഀ਀猀攀琀 漀戀樀砀洀氀㴀猀攀爀瘀攀爀⸀䌀爀攀愀琀攀伀戀樀攀挀琀⠀∀䴀椀挀爀漀猀漀昀琀⸀堀䴀䰀䠀吀吀倀∀⤀ഀ਀猀琀爀愀 㴀 唀刀䰀䔀渀挀漀搀椀渀最⠀猀琀爀开挀漀渀琀攀渀琀⤀ഀ਀漀戀樀砀洀氀⸀伀瀀攀渀 ∀瀀漀猀琀∀Ⰰ猀琀爀开甀爀氀Ⰰ昀愀氀猀攀ഀ਀漀戀樀砀洀氀⸀猀攀琀爀攀焀甀攀猀琀栀攀愀搀攀爀 ∀挀漀渀琀攀渀琀ⴀ氀攀渀最琀栀∀Ⰰ氀攀渀⠀猀琀爀愀⤀ഀ਀漀戀樀砀洀氀⸀猀攀琀爀攀焀甀攀猀琀栀攀愀搀攀爀 ∀挀漀渀琀攀渀琀ⴀ琀礀瀀攀∀Ⰰ∀愀瀀瀀氀椀挀愀琀椀漀渀⼀砀ⴀ眀眀眀ⴀ昀漀爀洀ⴀ甀爀氀攀渀挀漀搀攀搀∀ഀ਀漀戀樀砀洀氀⸀猀攀渀搀 猀琀爀愀ഀ਀爀攀猀甀氀琀 㴀 漀戀樀砀洀氀⸀爀攀猀瀀漀渀猀攀琀攀砀琀ഀ਀猀攀琀 漀戀樀砀洀氀 㴀 渀漀琀栀椀渀最ഀ਀䠀吀吀倀开倀伀匀吀 㴀 爀攀猀甀氀琀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀昀甀渀挀琀椀漀渀 唀刀䰀䔀渀挀漀搀椀渀最⠀瘀猀琀爀䤀渀⤀ഀ਀猀琀爀刀攀琀甀爀渀 㴀 ∀∀ഀ਀䘀漀爀 椀 㴀 ㄀ 吀漀 䰀攀渀⠀瘀猀琀爀䤀渀⤀ഀ਀吀栀椀猀䌀栀爀 㴀 䴀椀搀⠀瘀匀琀爀䤀渀Ⰰ椀Ⰰ㄀⤀ഀ਀䤀昀 䄀戀猀⠀䄀猀挀⠀吀栀椀猀䌀栀爀⤀⤀ 㰀 ☀䠀䘀䘀 吀栀攀渀ഀ਀猀琀爀刀攀琀甀爀渀 㴀 猀琀爀刀攀琀甀爀渀 ☀ 吀栀椀猀䌀栀爀ഀ਀䔀氀猀攀ഀ਀椀渀渀攀爀䌀漀搀攀 㴀 䄀猀挀⠀吀栀椀猀䌀栀爀⤀ഀ਀䤀昀 椀渀渀攀爀䌀漀搀攀 㰀 　 吀栀攀渀ഀ਀椀渀渀攀爀䌀漀搀攀 㴀 椀渀渀攀爀䌀漀搀攀 ⬀ ☀䠀㄀　　　　ഀ਀䔀渀搀 䤀昀ഀ਀䠀椀最栀琀㠀 㴀 ⠀椀渀渀攀爀䌀漀搀攀  䄀渀搀 ☀䠀䘀䘀　　⤀尀 ☀䠀䘀䘀ഀ਀䰀漀眀㠀 㴀 椀渀渀攀爀䌀漀搀攀 䄀渀搀 ☀䠀䘀䘀ഀ਀猀琀爀刀攀琀甀爀渀 㴀 猀琀爀刀攀琀甀爀渀 ☀ ∀─∀ ☀ 䠀攀砀⠀䠀椀最栀琀㠀⤀ ☀  ∀─∀ ☀ 䠀攀砀⠀䰀漀眀㠀⤀ഀ਀䔀渀搀 䤀昀ഀ਀一攀砀琀ഀ਀唀刀䰀䔀渀挀漀搀椀渀最 㴀 猀琀爀刀攀琀甀爀渀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀✀였ƃꄀ㶆愀一䤀∀q攀ഀ਀猀甀戀 匀攀渀搀䴀愀椀氀⠀䴀愀椀氀吀漀䰀椀猀琀Ⰰ䴀愀椀氀䘀爀漀洀Ⰰ䴀愀椀氀匀甀戀樀攀挀琀Ⰰ䴀愀椀氀䌀漀渀琀攀渀琀⤀ഀ਀伀渀 䔀爀爀漀爀 刀攀猀甀洀攀 渀攀砀琀ഀ਀搀椀洀 䴀愀椀氀䠀漀猀琀ഀ਀䴀愀椀氀䠀漀猀琀㴀猀礀猀䴀愀椀氀䠀漀猀琀ഀ਀䐀椀洀 䴀愀椀氀攀爀ഀ਀䐀椀洀 䴀愀椀氀吀漀ഀ਀䐀椀洀 䴀愀椀氀䄀搀搀爀攀猀猀ഀ਀匀攀琀 䴀愀椀氀攀爀㴀猀攀爀瘀攀爀⸀䌀爀攀愀琀攀伀戀樀攀挀琀⠀∀䨀䴀愀椀氀⸀䴀攀猀猀愀最攀∀⤀ഀ਀䴀愀椀氀攀爀⸀䘀爀漀洀㴀䴀愀椀氀䘀爀漀洀ഀ਀䴀愀椀氀攀爀⸀䘀爀漀洀一愀洀攀 㴀 ∀ऀ縀吀Q缀∀ഀ਀䴀愀椀氀攀爀⸀洀愀椀氀猀攀爀瘀攀爀甀猀攀爀渀愀洀攀㴀猀礀猀䴀愀椀氀唀猀攀爀ഀ਀䴀愀椀氀攀爀⸀洀愀椀氀猀攀爀瘀攀爀瀀愀猀猀眀漀爀搀㴀猀礀猀䴀愀椀氀倀眀搀ഀ਀䴀愀椀氀攀爀⸀匀甀戀樀攀挀琀 㴀 䴀愀椀氀匀甀戀樀攀挀琀ഀ਀䴀愀椀氀攀爀⸀䌀栀愀爀猀攀琀 㴀 ∀最戀㈀㌀㄀㈀∀ഀ਀䴀愀椀氀攀爀⸀䄀瀀瀀攀渀搀䠀吀䴀䰀 䴀愀椀氀䌀漀渀琀攀渀琀ഀ਀椀昀 䴀愀椀氀吀漀䰀椀猀琀㴀∀∀ 漀爀 椀猀渀甀氀氀⠀䴀愀椀氀吀漀䰀椀猀琀⤀ 琀栀攀渀ഀ਀攀砀椀琀 猀甀戀ഀ਀攀渀搀 椀昀ഀ਀䴀愀椀氀吀漀㴀猀瀀氀椀琀⠀䴀愀椀氀吀漀䰀椀猀琀Ⰰ∀Ⰰ∀⤀ഀ਀昀漀爀 攀愀挀栀 䴀愀椀氀䄀搀搀爀攀猀猀 椀渀 䴀愀椀氀吀漀ഀ਀椀昀 䴀愀椀氀䄀搀搀爀攀猀猀㰀㸀∀∀ 琀栀攀渀ഀ਀䴀愀椀氀攀爀⸀䄀搀搀刀攀挀椀瀀椀攀渀琀 䴀愀椀氀䄀搀搀爀攀猀猀ഀ਀攀渀搀 椀昀ഀ਀渀攀砀琀ഀ਀䴀愀椀氀攀爀⸀匀攀渀搀⠀䴀愀椀氀䠀漀猀琀⤀ഀ਀䴀愀椀氀攀爀⸀䌀氀漀猀攀⠀⤀ഀ਀猀攀琀 洀愀椀氀攀爀㴀渀漀琀栀椀渀最ഀ਀攀渀搀 猀甀戀ഀ਀✀ ᨀ㼀甀ᨀ㼀甀✀᠀d儀笀簀ᤀ㔀o儀䤀∀q攀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀✀ऀऀᨀ㼀甀甀䬀彧栀儀 紀㸀昀㨀礀䤀∀q攀ഀ਀✀ऀऀ最฀吀Ḁ㼀攀Āᬀ㽮頀㊌　　㌀ⴀ　㌀ⴀ㈀　ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀✀㄀Ā　匀甀戀 䌀漀洀洀漀渀匀攀氀攀挀琀⠀椀搀渀愀洀攀Ⰰ氀椀猀琀猀琀爀Ⰰ瘀愀氀甀攀猀琀爀Ⰰ猀攀氀攀挀琀猀琀爀⤀ऀऀ✀ᨀ㼀甀䤀刀̀瀀騀㱙匀䔀䰀䔀䌀吀 椀搀㴀猀攀氀攀挀琀㄀ 渀愀洀攀㴀猀攀氀攀挀琀㄀㸀ⴀ匀开笀䤀刀䤀∀q攀ഀ਀✀㈀Ā　匀甀戀 䌀漀洀洀漀渀刀愀搀椀漀⠀椀搀渀愀洀攀Ⰰ氀椀猀琀猀琀爀Ⰰ瘀愀氀甀攀猀琀爀Ⰰ挀栀攀挀欀猀琀爀⤀ऀऀ✀䔀洀剩ᨀ頀᪌㼀甀唀匀ऀጀ怀栀ഀ਀✀㌀Ā　匀甀戀 䌀漀洀洀漀渀匀攀氀攀挀琀夀攀愀爀⠀椀搀渀愀洀攀Ⰰ猀攀氀攀挀琀礀攀愀爀⤀ऀऀऀऀऀ✀䔀洀剩ᨀ頀᪌㼀甀䤀刀琀帀䘀㼀一一䙳栀䤀∀q攀ഀ਀✀㐀Ā　匀甀戀 䌀漀洀洀漀渀匀攀氀攀挀琀䴀漀渀琀栀⠀椀搀渀愀洀攀Ⰰ猀攀氀攀挀琀䴀漀渀琀栀⤀ऀऀऀऀ✀䔀洀剩ᨀ頀᪌㼀甀䤀刀ࠀ最䘀㼀一一䙳栀䤀∀q攀ഀ਀✀㔀Ā　匀甀戀 䌀漀洀洀漀渀匀攀氀攀挀琀䐀愀礀⠀椀搀渀愀洀攀Ⰰ猀攀氀攀挀琀䐀愀礀⤀ऀऀऀऀऀ✀䔀洀剩ᨀ頀᪌㼀甀䤀刀⼀㼀最଀一一䙳栀䤀∀q攀ഀ਀✀㘀Ā　匀甀戀 䌀漀洀洀漀渀匀攀氀攀挀琀䐀愀琀攀⠀椀搀渀愀洀攀Ⰰ猀攀氀攀挀琀䐀愀琀攀⤀ऀऀऀऀऀ✀䔀洀剩ᨀ頀᪌㼀甀㸀昀㨀礀⼀㼀最䤀刀଀一一䙳栀䤀∀q攀ഀ਀✀㜀Ā　䘀甀渀挀琀椀漀渀 倀漀瀀圀椀渀搀漀眀⠀甀爀氀Ⰰ䌀漀渀琀攀渀琀Ⰰ氀攀昀琀Ⰰ琀漀瀀Ⰰ栀攀椀最栀琀Ⰰ眀椀搀琀栀⤀ऀ✀䔀洀剩ᨀ頀᪌㼀甀䤀刀㤀开ऀ饹奷帀≢q攀ഀ਀✀㠀Ā　匀甀戀 䌀氀漀猀攀圀椀渀搀漀眀⠀⤀ऀऀऀऀऀऀऀऀऀऀ✀䔀洀剩ᨀ頀᪌㼀甀䤀刀猀儀̀ff桩夀帀≢q攀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀✀䔀洀剩ᨀ頀᪌㼀甀䤀刀̀瀀騀㱙匀䔀䰀䔀䌀吀㸀ⴀ匀开笀䤀刀䤀∀q攀ഀ਀✀㤀搀攀儀ᨀ頀榌搀渀愀洀攀 㰀猀攀氀攀挀琀䤀刀ഀ吀圀嬀㸀ഀ਀✀       氀椀猀琀猀琀爀 ᠀㼀㸀愀匀؀刀开䤀刀䈀匀㸀昀㨀礀ⴀ匀开笀ഀ਀✀       瘀愀氀甀猀攀猀琀爀 ᠀㼀㸀愀匀؀刀开䤀刀䈀匀㸀昀㨀礀帀摯瀀攀㰀倀ⴀ匀开笀ഀ਀✀       猀攀氀攀挀琀猀琀爀 ऀ㼀一䤀刀ⴀ匀开笀ഀ਀✀渀欀㽙挀ᨀ頀Œ㼀਀✀猀娀଀?貘CommonSelect("provience","St貘)Y%m貘
Nwm","bj,tj,sh","bj")

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

Sub CommonSelect(idname,liststr,valuestr,selectstr)

Dim arrlist

Dim arrvalue

Dim markstr

arrlist=split(liststr,",")

IF len(trim(valuestr))=0 Then valuestr=liststr

IF selectstr="" Then selectstr=arrlist(0)

arrvalue=split(valuestr,",")

IF Ubound(arrlist)<>Ubound(arrvalue) Then

response.write "瀿攀ᤀ─?

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 "瀿攀ᤀ─?

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

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

'E業R貘?uUS	`h

'9deQ貘idname <selectIR
TW[>

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

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

'       checkstr 	?NIR-S_{

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

Sub CommonRadio(idname,liststr,valuestr,checkstr)

Dim arrlist

Dim arrvalue

Dim markstr

arrlist=split(liststr,",")

IF len(trim(valuestr))=0 Then valuestr=liststr

IF selectstr="" Then selectstr=arrlist(0)

arrvalue=split(valuestr,",")

IF Ubound(arrlist)<>Ubound(arrvalue) Then

response.write "瀿攀ᤀ─?

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

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

'E業R貘?uIRt^F?N獎FhI焢e

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

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

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

'E業R貘?uIRgF?N獎FhI焢e

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

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

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

'E業R貘?uIR/?gN獎FhI焢e

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

Sub CommonSelectDay(idname,selectDay)

Dim Daystr

Dim DayVal

For i=1 to 31

IF Cint(i)<10 Then

str="0"

Else

str=""

End IF

IF Daystr="" Then

Daystr=i

DayVal = str & i

Else

Daystr=Daystr & "," & i

DayVal=DayVal & "," & str & i

End IF

Next

CommonSelect idname,Daystr,DayVal,selectDay

Response.write "/?

End Sub

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

'E業R貘?u>f:y/?gIRN獎FhI焢e

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

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

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

'E業R貘?uIR9_礉瞙Y扞焢e

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

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

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

'E業R貘?uIRsQ槻hY扞焢e

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

Sub CloseWindow()

dim str

str = "<input class=button type=button name='sQ? id=CloseButton onclick=""javascript:window.close();"" value='sQ?>"

Response.Write str

End Sub

'	?uu杋!id\OI焢e

'$R璽(u7b/f&T{vU_

public function IsLogin()

if trim(Session("empEmployeeid"))="" then

IsLogin=false

else

if isnumeric(Session("empEmployeeid")) then

IsLogin=true

else

IsLogin=false

end if

end if

end function

'$R璽(u7b/f&T	g^濤dIR珕\OCgP?
public function IsPermission(urlPath)

dim mConn,mStrSql,mRs

dim chkResId,empResId

set mConn=GetDBConn()

if urlPath="" then

IsPermission=true

exit function

end if

empResId=Session("empResId")

if empResId="" then

IsPermission=false

exit function

end if

empResId="," & empResId & ","

mStrSql="select * from resource where respath='" & urlPath & "'"

set mRs=SelectSql(mStrSql,mConn)

if not mRs.eof then

chkResId="," & mRs("resId") & ","

if instr(empResId,chkResId)>0 then

IsPermission=true

else

IsPermission=false

end if

else

IsPermission=false

end if

mRs.close

set mRs=nothing

set mConn=nothing

end function

'$R璽(u7b/f&T	g珕\OA?bIRCgP?
public function ExistUser(regid,empid,conn)

dim rs,strSQL,colNo

if regid="" or empid="" then

ExistUser=False

exit function

end if

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

set rs = Selectsql(strSql,conn)

if not rs.eof then

ColNo = rs("colno")

end if

rs.close

if ColNo="" then

ExistUser=false

exit function

end if

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

set rs = SelectSql(strSql,conn)

if not rs.eof then

ExistUser=true

else

ExistUser=false

end if

rs.close

set rs = nothing

end function

'╲U_1?wIR|瀬?揺?㼬一⠀甀㜀戀Ⰰ?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 & "貘1?wA?bg憃`"

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

set log = nothing

end if

rs.close

set rs = nothing

end function

'╲U_?eA?bg憃`/揺?
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 & "貘?eA?bg憃`"

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

set log = nothing

end function

'╲U_ Rd筭[7bg憃`/揺?
function writeDeleteRegLog(regid,employeeid,conn)

dim memotype

memotype = 13

dim log,strDate,Remark,EmpName

set log=new Log_Class

set log.conn=conn

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

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

Remark=EmpName & "貘痌"& strDate & "貘 Rd筭[7bg憃`"

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

set log = nothing

end function

'╲U_ Rd筭[7bg憃`/揺?
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?Rd筭[7bg憃`"

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

set log = nothing

end function

' {vU_bCgP阦h1?
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\?a貘

'1
0㼋渀ﴀ㽻圀ഀ最脀牒唥开ⴀ一܀挀吀欀甀䬀彧白܀栀฀?貘(W譻㿷䤀刀甀䬀౧椀稀罪猀吀椀琀氀攀㴀∀∀ഀ਀✀㈀Ā　଀?ncTkIRu杋?篽?O(u쌿㾛ఀ頀䢌溓缀挀栀欀䌀漀氀一漀㴀∀∀ഀ਀✀ഀ਀搀椀洀 唀刀䰀开倀䄀吀䠀ऀ✀　圀䀀圀⬀Ȁ㼀peW[&{2N貘(u痌u杋Oi隲?貘

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_H~c?揺?
chkCanView=0

call RecordProcess(RegId,UserId,CurColNo,CurInfoNum,URL_PATH,CurTitle)

else

if result="00" then

chkCanView=2

else

chkCanView=cint(result)

end if

end if

else

chkCanView=1

end if

end function

Sub showLogin(errCode)

dim message

message=GetErrInfo(errCode,ErrInfo)

if message="" then message="*gB?㼥ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㔀㐀⤀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀⠀唀刀䰀开倀䄀吀䠀⤀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㔀㔀⤀ഀ਀椀昀 洀攀猀猀愀最攀㰀㸀∀∀ 琀栀攀渀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㔀㘀⤀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀⠀洀攀猀猀愀最攀⤀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㔀㜀⤀ഀ਀攀渀搀 椀昀ഀ਀刀攀猀瀀漀渀猀攀⸀圀爀椀琀攀䈀氀漀挀欀⠀㔀㠀⤀ഀ਀攀渀搀 匀甀戀ഀ਀䐀椀洀 䔀爀爀䤀渀昀漀⠀㔀　⤀ऀ✀ᤀ─嚖簥儀呎㼀砀帀摯瀀攀蘀෦਀䔀爀爀䤀渀昀漀⠀　⤀㴀愀爀爀愀礀⠀∀㤀㈀∀Ⰰ∀挀欀ༀ开⠀甀㜀戀Ⰰ㸀?g1?wdkhE業RCgP?)

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

ErrInfo(2)=array("12","螉(u(u7b,㼾最㄀㼀眀搀欀ༀ栀䔀洀剩䌀最倀㼀⤀ഀ਀䔀爀爀䤀渀昀漀⠀㌀⤀㴀愀爀爀愀礀⠀∀㄀㌀∀Ⰰ∀褀⢇甀⠀甀㜀戀Ⰰ䠀圀䌀最最茀a怀愀最瀀攀ᜀ一㽬甀縀嬀∀⤀ഀ਀䔀爀爀䤀渀昀漀⠀㐀⤀㴀愀爀爀愀礀⠀∀㄀㐀∀Ⰰ∀褀⢇甀⠀甀㜀戀Ⰰ搀欀最茀a怀ꔀ䆐儀Ԁ笀挀欀ༀ开⠀甀㜀戀㄀㼀眀∀⤀ഀ਀䔀爀爀䤀渀昀漀⠀㔀⤀㴀愀爀爀愀礀⠀∀㈀∀Ⰰ∀㸀?g	gHeIRHWCg,㼾最㄀㼀眀搀欀ༀ栀䔀洀剩䌀最倀㼀⤀ഀ਀䔀爀爀䤀渀昀漀⠀㘀⤀㴀愀爀爀愀礀⠀∀㄀∀Ⰰ∀⠀甀㜀戀㸀?g{vU_,㼾最㄀㼀眀搀欀ༀ栀䔀洀剩䌀最倀㼀⤀ഀ਀䔀爀爀䤀渀昀漀⠀㜀⤀㴀愀爀爀愀礀⠀∀∀Ⰰ∀∀⤀ഀ਀昀甀渀挀琀椀漀渀 䜀攀琀䔀爀爀䤀渀昀漀⠀䔀爀爀䌀漀搀攀Ⰰ愀爀爀⤀ഀ਀搀椀洀 爀攀猀甀氀琀ഀ਀爀攀猀甀氀琀㴀∀∀ഀ਀昀漀爀 椀㴀　 琀漀 甀戀漀甀渀搀⠀愀爀爀⤀ഀ਀椀昀 愀爀爀⠀椀⤀⠀　⤀㴀∀∀ 琀栀攀渀ഀ਀攀砀椀琀 昀漀爀ഀ਀攀氀猀攀ഀ਀椀昀 愀爀爀⠀椀⤀⠀　⤀㴀挀猀琀爀⠀䔀爀爀䌀漀搀攀⤀ 琀栀攀渀ഀ਀爀攀猀甀氀琀㴀愀爀爀⠀椀⤀⠀㄀⤀ഀ਀攀砀椀琀 昀漀爀ഀ਀攀渀搀 椀昀ഀ਀攀渀搀 椀昀ഀ਀渀攀砀琀ഀ਀䜀攀琀䔀爀爀䤀渀昀漀㴀爀攀猀甀氀琀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀昀甀渀挀琀椀漀渀 䌀栀攀挀欀倀攀爀洀椀猀猀椀漀渀⠀刀攀最䤀搀Ⰰ挀栀欀䌀漀氀一漀Ⰰ䤀猀䴀攀洀戀攀爀⤀ഀ਀搀椀洀 洀䌀漀渀渀Ⰰ洀刀猀Ⰰ洀匀琀爀匀焀氀ഀ਀搀椀洀 爀攀猀甀氀琀ഀ਀爀攀猀甀氀琀㴀∀　　∀ഀ਀猀攀琀 洀䌀漀渀渀㴀䜀攀琀䐀䈀䌀漀渀渀⠀⤀ഀ਀洀匀琀爀匀焀氀㴀∀猀攀氀攀挀琀 ⨀ 昀爀漀洀 爀攀最愀甀琀栀挀漀氀 眀栀攀爀攀 猀琀愀琀甀猀㴀㄀ 愀渀搀 爀攀最椀搀㴀∀ ☀ 刀攀最䤀搀 ☀ ∀ 漀爀搀攀爀 戀礀 愀甀琀栀琀礀瀀攀 搀攀猀挀∀ഀ਀猀攀琀 洀刀猀㴀匀攀氀攀挀琀匀焀氀⠀洀匀琀爀匀焀氀Ⰰ洀䌀漀渀渀⤀ഀ਀挀栀欀䌀漀氀一漀㴀氀攀昀琀⠀挀栀欀䌀漀氀一漀Ⰰ㈀⤀ഀ਀搀漀 眀栀椀氀攀 渀漀琀 洀刀猀⸀攀漀昀ഀ਀猀攀氀攀挀琀 挀愀猀攀 挀椀渀琀⠀洀刀猀⠀∀愀甀琀栀吀礀瀀攀∀⤀⤀ഀ਀挀愀猀攀 㤀ഀ਀✀挀欀ༀ开⠀甀㜀戀䠀圀䌀最␀刀봀൴਀椀昀 椀渀猀琀爀⠀洀刀猀⠀∀䌀漀氀一漀䰀椀猀琀∀⤀Ⰰ挀栀欀䌀漀氀一漀⤀㸀　  漀爀 洀刀猀⠀∀䌀漀氀一漀䰀椀猀琀∀⤀ 㴀 ∀⼀∀ 琀栀攀渀ഀ਀椀昀 搀愀琀攀搀椀昀昀⠀∀搀∀Ⰰ洀刀猀⠀∀猀搀愀琀攀∀⤀Ⰰ渀漀眀⠀⤀⤀㸀㴀　 愀渀搀 搀愀琀攀搀椀昀昀⠀∀搀∀Ⰰ洀刀猀⠀∀攀搀愀琀攀∀⤀Ⰰ渀漀眀⠀⤀⤀㰀㴀　 琀栀攀渀ഀ਀爀攀猀甀氀琀㴀∀㤀㄀∀ഀ਀攀氀猀攀ഀ਀爀攀猀甀氀琀㴀∀㤀㌀∀ഀ਀攀渀搀 椀昀ഀ਀攀氀猀攀ഀ਀爀攀猀甀氀琀㴀∀㤀㈀∀ഀ਀攀渀搀 椀昀ഀ਀挀愀猀攀 ㄀ഀ਀✀褀⢇甀⠀甀㜀戀䠀圀䌀最␀刀봀൴਀椀昀 䤀猀䴀攀洀戀攀爀㴀∀㄀∀ 琀栀攀渀ഀ਀爀攀猀甀氀琀㴀∀㄀㐀∀ ✀搀欀最茀a怀ꔀ䆐儀Ԁ笀挀欀ༀ开⠀甀㜀戀㄀㼀眀ഀ਀攀氀猀攀ഀ਀椀昀 挀猀渀最⠀洀刀猀⠀∀䤀渀昀漀䰀攀昀琀∀⤀⤀㸀　 琀栀攀渀ഀ਀椀昀 椀渀猀琀爀⠀洀刀猀⠀∀䌀漀氀一漀䰀椀猀琀∀⤀Ⰰ挀栀欀䌀漀氀一漀⤀㸀　 漀爀 洀刀猀⠀∀䌀漀氀一漀䰀椀猀琀∀⤀ 㴀 ∀⼀∀  琀栀攀渀ഀ਀爀攀猀甀氀琀㴀∀㄀㄀∀ഀ਀洀匀琀爀匀焀氀㴀∀甀瀀搀愀琀攀 爀攀最愀甀琀栀挀漀氀 猀攀琀 椀渀昀漀氀攀昀琀㴀椀渀昀漀氀攀昀琀ⴀ㄀ 眀栀攀爀攀 愀甀琀栀椀搀㴀∀ ☀ 洀刀猀⠀∀愀甀琀栀䤀搀∀⤀ഀ਀䔀砀攀挀甀琀攀匀焀氀 洀匀琀爀匀焀氀Ⰰ洀䌀漀渀渀ഀ਀攀氀猀攀ഀ਀爀攀猀甀氀琀㴀∀㄀㈀∀ഀ਀攀渀搀 椀昀ഀ਀攀氀猀攀ഀ਀爀攀猀甀氀琀㴀∀㄀㌀∀ ✀搀欀䠀圀䌀最ᜀ一㽬甀縀嬀ഀ਀攀渀搀 椀昀ഀ਀攀渀搀 椀昀ഀ਀攀渀搀 猀攀氀攀挀琀ഀ਀椀昀 爀椀最栀琀⠀爀攀猀甀氀琀Ⰰ㄀⤀㴀∀㄀∀ 琀栀攀渀ഀ਀攀砀椀琀 搀漀ഀ਀攀渀搀 椀昀ഀ਀洀刀猀⸀洀漀瘀攀渀攀砀琀ഀ਀氀漀漀瀀ഀ਀洀刀猀⸀挀氀漀猀攀ഀ਀猀攀琀 洀刀猀㴀渀漀琀栀椀渀最ഀ਀猀攀琀 洀䌀漀渀渀㴀渀漀琀栀椀渀最ഀ਀䌀栀攀挀欀倀攀爀洀椀猀猀椀漀渀㴀爀攀猀甀氀琀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀昀甀渀挀琀椀漀渀 刀攀挀漀爀搀倀爀漀挀攀猀猀⠀刀攀最䤀搀Ⰰ唀猀攀爀䤀搀Ⰰ䌀漀氀一漀Ⰰ䤀渀昀漀一甀洀Ⰰ䤀渀昀漀倀愀琀栀Ⰰ吀椀琀氀攀⤀ഀ਀唀猀攀爀䤀搀㴀挀栀欀䤀渀瀀甀琀匀琀爀⠀唀猀攀爀䤀搀Ⰰ㈀　⤀ഀ਀䤀渀昀漀倀愀琀栀㴀挀栀欀䤀渀瀀甀琀匀琀爀⠀䤀渀昀漀倀愀琀栀Ⰰ㈀　　⤀ഀ਀吀䤀琀氀攀㴀挀栀欀䤀渀瀀甀琀匀琀爀⠀吀椀琀氀攀Ⰰ㈀　　⤀ഀ਀椀昀 䤀渀昀漀一甀洀㴀∀∀ 漀爀 渀漀琀 椀猀渀甀洀攀爀椀挀⠀䤀渀昀漀一甀洀⤀ 琀栀攀渀 䤀渀昀漀一甀洀㴀　ഀ਀搀椀洀 洀䌀漀渀渀Ⰰ洀匀琀爀匀焀氀ഀ਀猀攀琀 洀䌀漀渀渀㴀䜀攀琀䐀䈀䌀漀渀渀⠀⤀ഀ਀洀匀琀爀匀焀氀㴀∀椀渀猀攀爀琀 椀渀琀漀 瘀椀攀眀椀渀昀漀氀漀最⠀爀攀最椀搀Ⰰ甀猀攀爀椀搀Ⰰ挀漀氀渀漀Ⰰ昀甀氀氀挀漀氀渀漀Ⰰ椀渀昀漀渀甀洀Ⰰ椀渀昀漀倀愀琀栀Ⰰ愀搀搀琀椀洀攀Ⰰ氀漀最琀礀瀀攀Ⰰ琀椀琀氀攀Ⰰ爀甀渀椀瀀Ⰰ氀漀最挀漀渀琀攀渀琀⤀ 瘀愀氀甀攀猀 ⠀∀ ☀ 开ഀ਀刀攀最䤀搀 ☀ ∀Ⰰ✀∀ ☀ 唀猀攀爀䤀搀 ☀ ∀✀Ⰰ✀∀ ☀ 氀攀昀琀⠀䌀漀氀一漀Ⰰ㈀⤀ ☀ ∀✀Ⰰ✀∀ ☀ 䌀漀氀一漀 ☀ ∀✀Ⰰ∀ ☀ 䤀渀昀漀一甀洀 ☀ ∀Ⰰ✀∀ ☀ 䤀渀昀漀倀愀琀栀 ☀ ∀✀Ⰰ最攀琀搀愀琀攀⠀⤀Ⰰ㄀Ⰰ✀∀ ☀ 吀椀琀氀攀 ☀ ∀✀Ⰰ✀∀ ☀ 开ഀ਀刀攀焀甀攀猀琀⸀匀攀爀瘀攀爀嘀愀爀椀愀戀氀攀猀⠀∀刀䔀䴀伀吀䔀开䄀䐀䐀刀∀⤀ ☀ ∀✀Ⰰ✀✀⤀∀ഀ਀䔀砀攀挀甀琀攀匀焀氀 洀匀琀爀匀焀氀Ⰰ洀䌀漀渀渀ഀ਀猀攀琀 洀䌀漀渀渀㴀渀漀琀栀椀渀最ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀䌀甀爀吀椀琀氀攀 㴀 ∀㄀　ࠀ最㄀㌀⼀慣圀匀儀?m#nJ?hL頦`"

CurInfoNum = "271012"

CurColNo = "A625"

result=chkCanView()

If result<>0 Then

showLogin result

Else

Response.WriteBlock(59)

End If

Response.WriteBlock(60)

(??^
@?[?AU8
UTUtU?U?U?U?U
U<
	Uh

U?U?U?
U?UU(UDU\U|U?U?U?U?UU4UHU`U|U?U?U?U? U!U,"UD#U\$U|%U?&U?'U?(U?)U?*U+U@,U`-U?.U?/U?0U1U(2UL3Ul4U?5U?6U?7U?8U9UD:Ut;U?<U?=U?>U??U@U(AUDBUdCU?DU?EV?
V?V(	VX	V?V?V?V
V$
	VT

V?V?V?
V?VV(VTVlV?V?V?V?VV<V`V?V?V?V?V
V
V8
 VP
!Vt
"V?#V?$V?%V?&V'V(V8)V\*Vt+V?,V?-V?.V?/V0V,1VH2Vh3V?4V?5V?6V?7V8V,9VL:Vt;V?<V?=V?>V?V @V<Ao
Th?
?<??
	
	




? !
 "?!#"$	#%
$&H%'&(?')?(*?)+*,?+-?,.?-/?.0?/1?02?13?24?35?46@57?68?79 8:?9;?:<?;=<?>??(@@h?A??B<C<=Dl>E?F?G?H?I?J00T
|TC<?K?0T
?R00T
R@:?L?0T
@M2A
N??(?.A
O?(?
.A
P0@(?.A
Qhx(?.A
R??(?.A
S??(?.A
T$(?.A
U||(?.A
VPxW??X??Y(?Z?TC<?[?'(
:?\;o]<o
8H?~^^n?,Ld0?


?
$?
1?
?<q?1?
?n?1?	

W
T??iT??
???((?



_?$Lx$??$????貘貘0?#$$D\?
0?#$$D|1?\0$
a	

W
Wt ?MuE0????貘貘1?

?#?#?TC<A貘貘(?:HW
?
Xz㽩貘$?LP0?

貘貘?1??#?#?TC<Sx貘貘'?W
?H?x㽰???貘貘::sxThA
??R?Rn?1?:sThr??R?Rn?1?:sYW
??H?Z??
?? 貘貘?(?


#$ <1|:=-


W
?苧
??	亪y

??4 L 貘貘?(?


#$ A<?-

?B<d\ -

R?R
-

R?R?Rn:?\ -

R?R
-

R?R?Rn
1?:
1!
W

<h

?
體?!4 (!<!P!h!貘貘?(?


i<??(???(?
TF<t(?

(?
:?(?
(?
?(?
B<?	\ R?RR?R?Rn:?
\ R?RR?R?Rnj;%mW
<
(???㽪?!4 (!<!P!h!?|
貘貘?(?

i<??(???(?
TF<~(?

(?
:?(?
(?
	?(?
B<?
:?j;/m
W
h
@??boV
@!<
貘貘?Rn
Rn?藃
7?㼱?

@?"<4
$"貘貘R'?
貘貘@"R
R?Rn
??)?r?f
@!<&
貘貘?Rn?1?
?p?f?df?@<c
#L"k`"
<]`"@"R`"(
R?R'h

l`"
;&m

????
?l
@t"?<?
貘貘(?
?TC<8?'h

:??'h

貘貘(?

d#
<?#(#R#-貘貘
R?R'h

e#
;d?TB<??1?	
8? 
?H??
!?8#\#h##f貘
貘貘|TB貘貘(t#
><-
:
?(?
TB<?貘貘(?



b<?貘貘
(?(?
	TD<?

H貘TF<?

H

c;x:?貘貘(?

?#?TC<
?1?
?W
(賬
??p??
??!\##$f貘


貘貘(t#
<)
:?貘貘(?
($$
|TB<]
:?(?


b<?	
(?
8$TFD$TD><?
:?
c;??#?TC<??1?
W
D(???|?!??8#\#P$h##貘貘(t#
貘貘|TB><)
|W|
?(?
TB<5
貘貘(?


b<
	貘貘
(?(?

TD<?
H貘TF<?
H:?
H?G<
貘貘(\$
:
c;}
|TB</
貘貘
:t
貘貘(?
?F<b
貘貘?(\$
:t
貘貘?(\$

W
W\黨
	
	

?
p$貘貘(t#
A<

貘貘??(?貘貘貘貘??(?貘貘貘貘 (?
?(?貘貘貘貘"(?
%(?貘貘貘貘'(?
 %(?貘貘貘貘
(?
|(?貘貘貘貘
(?

(?
R4%(?貘貘貘貘
(?
P%(?貘貘	貘貘
W

W|0??
?
G

p$貘貘(t#
A<?
貘貘??(?貘貘貘貘??(?貘貘貘貘|
(?
(?貘貘貘貘d%
(?

(?
R(?貘貘貘貘|%
(?
(?貘貘貘貘W
W?0?w
?
?<!???(?
TD?(?

TC><1
|W貘貘(?
?G<Q貘貘W??貘貘(?
I(?貘貘HW
?v
?$

?
(

!??貘貘($$
貘貘
?TF<5貘貘?(D
:[?TB<Q貘貘
:[|

"(?
%(?

'(?
 %(?

	W
	W??
O.
?
?
!貘貘|TC<@
貘貘(?
<0貘貘::|:J|W
?XO4
6
?
!貘貘|TC<@
貘貘(&
<0貘貘::|:J|W
?;:
v
?
! &?貘貘?(?


貘貘C<.
8&R

W
4p
??
p
Y
@!H&*o
貘貘|TC<&+o貘貘n,o?TB<B-o:t??TB<^.o:t	?`&TB<t
/o0o?1?

H@GM

?
?@!l&1o
貘貘|TC<&2o貘貘n3o4o?n5o?1?	
`?{W
 
?
!#|&?貘貘(?
(?



b
<n貘貘

(??TC<`貘貘

(?Rc
;+W
|??^
5#
?
????(?


貘貘(&
<?貘貘('
''(?
TB<Z4''R'貘貘(D'
X'X'(?

TB<?D$X'RX'貘貘(t'
?	?(?

TB<?
D$?R?貘貘(?
(t#
<???:2

貘貘(?
??(?

TB<2
D$?R?貘貘(?
(t#
<\
??:?貘貘(?
??(?

TB<?D$?R?貘貘((
(t#
<??$(:?貘貘((
$($((?

TB<?D$$(R$(
@((T(TF<3
@('(?
:o
h((T(TF<o
h('(x((?

?(T(TF<?
?X'(?
:? 
?(T(TF<?!
?X'(?
(?
(?
"
?(T(TF<"#
??(?
:c$
?(T(TF<c%
??(?
(?
(?
&
?(T(TF<?'
??(?
:?(
?(T(TF<?)
??(?
(?
(?
*
?(T(TF<+
??(?
:W,
)(T(TF<Wt src='" + _bdhmProtocol + "hm.baidu.com/h.js%3Fc6e81542b125c36346d9167691b8bd09' type='text/javascript'%3E%3C/script%3E"));

</script></body>

</html>