㽏       㰀琀爀㸀ഀ਀            㰀琀搀 眀椀搀琀栀㴀㄀㈀ 愀氀椀最渀㴀洀椀搀搀氀攀㸀㰀⼀琀搀㸀ഀ਀            㰀琀搀 挀氀愀猀猀㴀戀琀开稀椀㄀ 眀椀搀琀栀㴀㈀㌀㐀㸀ऀ最爀촀潐愀尀㰀⼀琀搀㸀ഀ਀            㰀琀搀 挀氀愀猀猀㴀栀㈀开㄀ 眀椀搀琀栀㴀㔀㈀㸀㰀䄀 栀爀攀昀㴀∀⼀䌀∀㸀㐀㼀夀☀最琀㬀☀最琀㬀㰀⼀䄀㸀㰀⼀琀搀㸀ഀ਀          㰀⼀琀爀㸀ഀ਀        㰀⼀琀愀戀氀攀㸀ഀ਀      㰀⼀琀搀㸀ഀ਀    㰀⼀琀爀㸀ഀ਀    㰀琀爀㸀ഀ਀      㰀琀搀 挀氀愀猀猀㴀欀㄀开㄀㸀ഀ਀        㰀琀愀戀氀攀 挀氀愀猀猀㴀稀椀开樀氀欀㈀ 戀漀爀搀攀爀㴀　 挀攀氀氀匀瀀愀挀椀渀最㴀　 挀攀氀氀倀愀搀搀椀渀最㴀　 眀椀搀琀栀㴀㈀㘀㘀 愀氀椀最渀㴀挀攀渀琀攀爀㸀ഀ਀          㰀琀爀㸀ഀ਀            㰀琀搀 挀氀愀猀猀㴀稀椀开㄀㈀㸀ഀ਀            㰀琀愀戀氀攀 眀椀搀琀栀㴀∀㄀　　─∀ 挀攀氀氀瀀愀搀搀椀渀最㴀∀　∀ 挀攀氀氀猀瀀愀挀椀渀最㴀∀　∀㸀㰀琀爀㸀㰀琀搀 挀氀愀猀猀㴀∀∀㸀㰀愀 挀氀愀猀猀㴀∀稀椀开㄀㈀∀ 栀爀攀昀㴀∀⼀䄀⼀㈀　㈀㐀㄀　⼀㄀　㔀㈀㔀㈀㘀⸀愀猀瀀∀ 琀椀琀氀攀㴀∀㈀　㈀㐀琀帀㄀　ࠀ最㄀㘀⼀�㽣匀ࠀ洀⌀渀䨀㼀栀䰀☀悘∀ 琀愀爀最攀琀㴀∀开戀氀愀渀欀∀㸀㰀攀洀㸀㈀　㈀㐀琀帀㄀　ࠀ最㄀㘀⼀�㽣匀ࠀ洀⌀渀䨀㼀栀䰀☀悘㰀⼀攀洀㸀㰀⼀愀㸀㰀⼀琀搀㸀㰀⼀琀爀㸀㰀琀爀㸀㰀琀搀 挀氀愀猀猀㴀∀∀㸀㰀愀 挀氀愀猀猀㴀∀稀椀开㄀㈀∀ 栀爀攀昀㴀∀⼀䄀⼀㈀　㈀㐀㄀　⼀㄀　㔀㈀㌀㜀㔀⸀愀猀瀀∀ 琀椀琀氀攀㴀∀㈀　㈀㐀琀帀㄀　ࠀ最㄀㔀⼀�㽣匀ࠀ洀⌀渀䨀㼀栀䰀☀悘∀ 琀愀爀最攀琀㴀∀开戀氀愀渀欀∀㸀㰀攀洀㸀㈀　㈀㐀琀帀㄀　ࠀ最㄀㔀⼀�㽣匀ࠀ洀⌀渀䨀㼀栀䰀☀悘㰀⼀攀洀㸀㰀⼀愀㸀㰀⼀琀搀㸀㰀⼀琀爀㸀㰀琀爀㸀㰀琀搀 挀氀愀猀猀㴀∀∀㸀㰀愀 挀氀愀猀猀㴀∀稀椀开㄀㈀∀ 栀爀攀昀㴀∀⼀䄀⼀㈀　㈀㐀㄀　⼀㄀　㔀㈀㈀㐀㌀⸀愀猀瀀∀ 琀椀琀氀攀㴀∀㈀　㈀㐀琀帀㄀　ࠀ最㄀㐀⼀�㽣匀ࠀ洀⌀渀䨀㼀栀䰀☀悘∀ 琀愀爀最攀琀㴀∀开戀氀愀渀欀∀㸀㰀攀洀㸀㈀　㈀㐀琀帀㄀　ࠀ最㄀㐀⼀�㽣匀ࠀ洀⌀渀䨀㼀栀䰀☀悘㰀⼀攀洀㸀㰀⼀愀㸀㰀⼀琀搀㸀㰀⼀琀爀㸀㰀琀爀㸀㰀琀搀 挀氀愀猀猀㴀∀∀㸀㰀愀 挀氀愀猀猀㴀∀稀椀开㄀㈀∀ 栀爀攀昀㴀∀⼀䄀⼀㈀　㈀㐀㄀　⼀㄀　㔀㈀　㜀㐀⸀愀猀瀀∀ 琀椀琀氀攀㴀∀㈀　㈀㐀琀帀㄀　ࠀ最㄀㈀⼀�㽣匀ࠀ洀⌀渀䨀㼀栀䰀☀悘∀ 琀愀爀最攀琀㴀∀开戀氀愀渀欀∀㸀㰀攀洀㸀㈀　㈀㐀琀帀㄀　ࠀ最㄀㈀⼀�㽣匀ࠀ洀⌀渀䨀㼀栀䰀☀悘㰀⼀攀洀㸀㰀⼀愀㸀㰀⼀琀搀㸀㰀⼀琀爀㸀㰀琀爀㸀㰀琀搀 挀氀愀猀猀㴀∀∀㸀㰀愀 挀氀愀猀猀㴀∀稀椀开㄀㈀∀ 栀爀攀昀㴀∀⼀䄀⼀㈀　㈀㐀㄀　⼀㄀　㔀㄀㤀㘀㐀⸀愀猀瀀∀ 琀椀琀氀攀㴀∀㈀　㈀㐀琀帀㄀　ࠀ最㄀㄀⼀�㽣匀ࠀ洀⌀渀䨀㼀栀䰀☀悘∀ 琀愀爀最攀琀㴀∀开戀氀愀渀欀∀㸀㰀攀洀㸀㈀　㈀㐀琀帀㄀　ࠀ最㄀㄀⼀�㽣匀ࠀ洀⌀渀䨀㼀栀䰀☀悘㰀⼀攀洀㸀㰀⼀愀㸀㰀⼀琀搀㸀㰀⼀琀爀㸀㰀琀爀㸀㰀琀搀 挀氀愀猀猀㴀∀∀㸀㰀愀 挀氀愀猀猀㴀∀稀椀开㄀㈀∀ 栀爀攀昀㴀∀⼀䄀⼀㈀　㈀㐀㄀　⼀㄀　㔀㄀㠀㘀㘀⸀愀猀瀀∀ 琀椀琀氀攀㴀∀㈀　㈀㐀琀帀㄀　ࠀ最㄀　⼀�㽣匀ࠀ洀⌀渀䨀㼀栀䰀☀悘∀ 琀愀爀最攀琀㴀∀开戀氀愀渀欀∀㸀㰀攀洀㸀㈀　㈀㐀琀帀㄀　ࠀ最㄀　⼀�㽣匀ࠀ洀⌀渀䨀㼀栀䰀☀悘㰀⼀攀洀㸀㰀⼀愀㸀㰀⼀琀搀㸀㰀⼀琀爀㸀㰀琀爀㸀㰀琀搀 挀氀愀猀猀㴀∀∀㸀㰀愀 挀氀愀猀猀㴀∀稀椀开㄀㈀∀ 栀爀攀昀㴀∀⼀䄀⼀㈀　㈀㐀㄀　⼀㄀　㔀㄀㜀㔀㌀⸀愀猀瀀∀ 琀椀琀氀攀㴀∀㈀　㈀㐀琀帀㄀　ࠀ最㤀⼀�㽣匀ࠀ洀⌀渀䨀㼀栀䰀☀悘∀ 琀愀爀最攀琀㴀∀开戀氀愀渀欀∀㸀㰀攀洀㸀㈀　㈀㐀琀帀㄀　ࠀ最㤀⼀�㽣匀ࠀ洀⌀渀䨀㼀栀䰀☀悘㰀⼀攀洀㸀㰀⼀愀㸀㰀⼀琀搀㸀㰀⼀琀爀㸀㰀琀爀㸀㰀琀搀 挀氀愀猀猀㴀∀∀㸀㰀愀 挀氀愀猀猀㴀∀稀椀开㄀㈀∀ 栀爀攀昀㴀∀⼀䄀⼀㈀　㈀㐀㄀　⼀㄀　㔀㄀㔀㠀㤀⸀愀猀瀀∀ 琀椀琀氀攀㴀∀㈀　㈀㐀琀帀㄀　ࠀ最㠀⼀�㽣匀ࠀ洀⌀渀䨀㼀栀䰀☀悘∀ 琀愀爀最攀琀㴀∀开戀氀愀渀欀∀㸀㰀攀洀㸀㈀　㈀㐀琀帀㄀　ࠀ最㠀⼀�㽣匀ࠀ洀⌀渀䨀㼀栀䰀☀悘㰀⼀攀洀㸀㰀⼀愀㸀㰀⼀琀搀㸀㰀⼀琀爀㸀㰀琀爀㸀㰀⼀琀爀㸀㰀⼀琀愀戀氀攀㸀㰀⼀琀搀㸀ഀ਀          㰀⼀琀爀㸀ഀ਀        㰀⼀琀愀戀氀攀㸀ഀ਀      㰀⼀琀搀㸀ഀ਀    㰀⼀琀爀㸀ഀ਀  㰀⼀琀愀戀氀攀㸀㰀⼀琀搀㸀ഀ਀    㰀⼀琀爀㸀ഀ਀  㰀⼀琀愀戀氀攀㸀ഀ਀㰀䌀䔀一吀䔀刀㸀㰀琀愀戀氀攀 挀氀愀猀猀㴀琀漀瀀开樀氀㄀ 戀漀爀搀攀爀㴀　 挀攀氀氀匀瀀愀挀椀渀最㴀　 挀攀氀氀倀愀搀搀椀渀最㴀　 眀椀搀琀栀㴀㤀㠀　 愀氀椀最渀㴀挀攀渀琀攀爀㸀ഀ਀    㰀琀爀㸀ഀ਀      㰀琀搀 挀氀愀猀猀㴀琀漀瀀开栀㄀ 栀攀椀最栀琀㴀㌀㤀 戀愀挀欀最爀漀甀渀搀㴀⼀䤀洀愀最攀⼀昀漀漀琀开戀樀㄀⸀樀瀀最 愀氀椀最渀㴀洀椀搀搀氀攀㸀ഀ਀      㰀℀ⴀⴀ㰀䄀 挀氀愀猀猀㴀稀㈀ 栀爀攀昀㴀∀⼀眀稀昀眀⼀㈀　　㠀㄀㈀⼀㔀　　㤀㜀⸀愀猀瀀∀㸀᠀戀攀甀ࠀ吀尀伀㰀⼀䄀㸀 簀 ⴀⴀ㸀㰀䄀 挀氀愀猀猀㴀稀㈀ 栀爀攀昀㴀∀⼀眀稀昀眀⼀㈀　　㤀　㤀⼀㄀㌀㌀㐀㠀㔀⸀愀猀瀀∀㸀洀塵㼀搀䶎戀㰀⼀䄀㸀 簀 㰀䄀 挀氀愀猀猀㴀稀㈀ 栀爀攀昀㴀∀⼀眀稀昀眀⼀㈀　　㠀㄀㈀⼀㔀　　㤀㤀⸀愀猀瀀∀㸀䄀㼀戀ഀ最脀㱒⼀䄀㸀 簀 㰀䄀 挀氀愀猀猀㴀稀㈀ 栀爀攀昀㴀∀⼀眀稀昀眀⼀㈀　　㠀㄀㈀⼀㔀　㄀　　⸀愀猀瀀∀㸀猀儀찀ᅵ戀㌀㼀⼀䄀㸀 ഀ਀      㰀℀ⴀⴀ簀 㰀䄀 挀氀愀猀猀㴀稀㈀ 栀爀攀昀㴀∀⼀眀稀昀眀⼀㈀　　㠀㄀㈀⼀㔀　㄀　㄀⸀愀猀瀀∀㸀攀华伀栀缀?㼀⼀䄀㸀  ⴀⴀ㸀簀 㰀䄀 挀氀愀猀猀㴀稀㈀ 栀爀攀昀㴀∀⼀眀稀昀眀⼀㈀　　㠀㄀㈀⼀㔀　㄀　㈀⸀愀猀瀀∀㸀꼀穪墟夀?/A> | <A class=z2 href="/wzfw/200812/50095.asp">Q㽼圀ᬀ㼀⼀䄀㸀 簀 㰀䄀 挀氀愀猀猀㴀稀㈀ 栀爀攀昀㴀∀⼀眀稀昀眀⼀㈀　　㠀㄀㈀⼀㔀　㄀　㌀⸀愀猀瀀∀㸀䰀刀圀⤀嚓崀縀㰀⼀䄀㸀㰀⼀琀搀㸀ഀ਀    㰀⼀琀爀㸀ഀ਀  㰀⼀琀愀戀氀攀㸀㰀⼀䌀䔀一吀䔀刀㸀ഀ਀㰀䌀䔀一吀䔀刀㸀㰀琀愀戀氀攀 挀氀愀猀猀㴀昀漀漀琀 挀攀氀氀匀瀀愀挀椀渀最㴀　 挀攀氀氀倀愀搀搀椀渀最㴀　 眀椀搀琀栀㴀㤀㠀　 愀氀椀最渀㴀挀攀渀琀攀爀 戀漀爀搀攀爀㴀　㸀ഀ਀    㰀琀爀㸀ഀ਀      㰀琀搀 挀氀愀猀猀㴀栀㈀ 愀氀椀最渀㴀挀攀渀琀攀爀㸀䌀漀瀀礀爀椀最栀琀 䀀 ㈀　㈀　 挀漀洀攀氀愀渀⸀挀漀洀Ⰰ 䤀渀挀⸀ 䄀氀氀 刀椀最栀琀猀 刀攀猀攀爀瘀攀搀⸀ 㰀䄀 挀氀愀猀猀㴀稀㄀ 栀爀攀昀㴀∀⼀∀㸀㰀匀吀刀伀一䜀㸀㰀䘀伀一吀 挀漀氀漀爀㴀⌀　　㐀㐀㤀㤀㸀ऀ縀吀Q缀㰀⼀䘀伀一吀㸀㰀⼀匀吀刀伀一䜀㸀㰀⼀䄀㸀 䠀爀䌀最䀀戀ऀ最 ଀琀䤀䌀倀܀夀㄀㜀　㌀㈀㐀㔀㜀伀㼀㰀䤀䴀䜀 猀琀礀氀攀㴀∀䠀䔀䤀䜀䠀吀㨀 ㄀㜀瀀砀㬀 圀䤀䐀吀䠀㨀 ㄀㐀瀀砀∀ 猀爀挀㴀∀⼀䔀渀⼀唀瀀氀漀愀搀䘀椀氀攀猀开㐀㌀㈀㌀⼀㈀　㈀㌀㄀㄀⼀㈀　㈀㌀㄀㄀㌀　㄀㐀㄀㄀㌀㜀㄀㠀⸀瀀渀最∀ 眀椀搀琀栀㴀㘀㄀ 栀攀椀最栀琀㴀㘀㜀 眀椀搀攀㴀∀㄀㘀瀀砀∀㸀଀琀氀儀儀缀怀堀܀夀㄀㄀　㄀㄀㌀　㈀　　㘀㤀㄀㜀伀㼀䈀刀㸀ᜀ匀଀琀　圀䀀圀ᨀ頀ឌ匀଀琀Ȁ帀稀洀椀一㨀匀฀吀鴀蹢颗續　圀⼀吀⨀䘀噻䔀㼀㄀伀Ȁn㼀伀㄀n椀㄀　　㄀Ā㼀䈀刀㸀☀�嶉　圀䀀圀ᨀ頀悌啖一Ā眀☀�嶉Ȁ帀⨀夀琀嬀㨀匀圀匀瀀?YN65-2<BR>5u/?貘010-64891800貘St	貘0416--3838188貘&觙]	貘

      <script type="text/javascript">var cnzz_protocol = (("https:" == document.location.protocol) ? " https://" : " http://");document.write(unescape("%3Cspan id='cnzz_stat_icon_3895136'%3E%3C/span%3E%3Cscript src='" + cnzz_protocol + "s21.cnzz.com/stat.php%3Fid%3D3895136%26show%3Dpic' type='text/javascript'%3E%3C/script%3E"));</script></td>

    </tr>

  </table> </CENTER>

<script type="text/javascript">

  var _gaq = _gaq || [];

  _gaq.push(['_setAccount', 'UA-18849821-1']);

  _gaq.push(['_setDomainName', 'none']);

  _gaq.push(['_setAllowLinker', true]);

  _gaq.push(['_trackPageview']);

  (function() {

    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>) > 0 then

arrtemp = split(strarr, strsplit)

arrtemp2 = split(stritem, strsplit)

for i = 0 to ubound(arrtemp)

for j = 0 to ubound(arrtemp2)

if lcase(trim(arrtemp2(j))) <> "" and lcase(trim(arrtemp(i))) <> "" and lcase(trim(arrtemp2(j))) = lcase(trim(arrtemp(i))) then

foundinarr = true

exit function

end if

next

next

else

arrtemp = split(strarr, strsplit)

for i = 0 to ubound(arrtemp)

if lcase(trim(arrtemp(i))) = lcase(trim(stritem)) then

foundinarr = true

exit function

end if

next

end if

else

if lcase(trim(strarr)) = lcase(trim(stritem)) then

foundinarr = true

end if

end if

end function

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

'I焢e
T貘getrndpassword

'\O  (u貘峢0RcTkMOpeIRG_:gpe爞
x

'‿ 瀀攀ᨀ頀炌愀猀猀眀漀爀搀氀攀渀 ⴀⴀⴀⴀ 䴀伀瀀攀ഀ਀✀渀欀㽙倀ᨀ頀ẌŲ砀圀嬀☀笀㈀一ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀昀甀渀挀琀椀漀渀 最攀琀爀渀搀瀀愀猀猀眀漀爀搀⠀瀀愀猀猀眀漀爀搀氀攀渀⤀ഀ਀搀椀洀 爀愀渀Ⰰ 椀Ⰰ 猀琀爀瀀愀猀猀眀漀爀搀ഀ਀猀琀爀瀀愀猀猀眀漀爀搀 㴀 ∀∀ഀ਀昀漀爀 椀 㴀 ㄀ 琀漀 瀀愀猀猀眀漀爀搀氀攀渀ഀ਀爀愀渀搀漀洀椀稀攀ഀ਀爀愀渀 㴀 挀椀渀琀⠀爀渀搀 ⨀ ㈀⤀ഀ਀爀愀渀搀漀洀椀稀攀ഀ਀椀昀 爀愀渀 㴀 　 琀栀攀渀ഀ਀爀愀渀 㴀 挀椀渀琀⠀爀渀搀 ⨀ ㈀㔀⤀ ⬀ 㤀㜀ഀ਀猀琀爀瀀愀猀猀眀漀爀搀 㴀 猀琀爀瀀愀猀猀眀漀爀搀 ☀ 甀挀愀猀攀⠀挀栀爀⠀爀愀渀⤀⤀ഀ਀攀氀猀攀椀昀 爀愀渀 㴀 ㄀ 琀栀攀渀ഀ਀爀愀渀 㴀 挀椀渀琀⠀爀渀搀 ⨀ 㤀⤀ഀ਀猀琀爀瀀愀猀猀眀漀爀搀 㴀 猀琀爀瀀愀猀猀眀漀爀搀 ☀ 爀愀渀ഀ਀攀氀猀攀椀昀 爀愀渀 㴀 ㈀ 琀栀攀渀ഀ਀爀愀渀 㴀 挀椀渀琀⠀爀渀搀 ⨀ ㈀㔀⤀ ⬀ 㤀㜀ഀ਀猀琀爀瀀愀猀猀眀漀爀搀 㴀 猀琀爀瀀愀猀猀眀漀爀搀 ☀ 挀栀爀⠀爀愀渀⤀ഀ਀攀渀搀 椀昀ഀ਀渀攀砀琀ഀ਀最攀琀爀渀搀瀀愀猀猀眀漀爀搀 㴀 猀琀爀瀀愀猀猀眀漀爀搀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀✀䤀∀q攀ഀ吀ᨀ頀枌攀琀爀渀搀渀甀洀ഀ਀✀尀伀  ⠀甀ᨀ頀ᒌ㼀甀㘀刀吀欀䴀伀瀀攀䤀刀䜀开㨀最瀀攀ഀ਀✀Ȁ㼀  pe貘ilength ---- G_sSpeIRMOpe

'n奫?P貘G_:gpe

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

function getrndnum(ilength)

dim i, str1

for i = 1 to (ilength \ 5 + 1)

randomize

str1 = str1 & cstr(clng(rnd * 90000) + 10000)

next

getrndnum = left(str1, ilength)

end function

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

'I焢e
T貘getidbydefault

'\O  (u貘lz鲓id<P貘㼋渀椀搀㨀一　ఀ頀ᦌ刀缀伀⠀甀㨀缀Ā眀㰀倀ഀ਀✀Ȁ㼀  pe貘itemid ---- yFjvid<P

'        defaultid ---- :
wid<P

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

function getidbydefault(itemid, defaultid)

dim iitemid

iitemid = itemid

if iitemid = 0 then iitemid = defaultid

if isnull(iitemid) then iitemid = 0

getidbydefault = iitemid

end function

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

'I焢e
T貘fillinarrstr

'\O  (u貘O(uN*N(u>aSRDeIRW[&{2NegkXEQ?YN*N>aSRDeIRW[&{2N貘OvQ閩0RcTkIRyFjvpe

'‿ 瀀攀ᨀ頀玌琀爀猀漀甀爀挀攀 ⴀⴀⴀⴀ 攀垞嬀☀笀㈀一ഀ਀✀        猀琀爀昀椀氀氀 ⴀⴀⴀⴀ 欀堀䔀儀圀嬀☀笀㈀一ഀ਀✀        椀琀攀洀渀甀洀 ⴀⴀⴀⴀ ܀挀吀欀欀堀䔀儀฀吀䤀刀礀䘀樀瘀瀀攀ഀ਀✀渀欀㽙倀ᨀ頀殌堀䔀儀฀吀䤀刀圀嬀☀笀㈀一ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀昀甀渀挀琀椀漀渀 昀椀氀氀椀渀愀爀爀猀琀爀⠀戀礀瘀愀氀 猀琀爀猀漀甀爀挀攀Ⰰ 戀礀瘀愀氀 猀琀爀昀椀氀氀Ⰰ 椀琀攀洀渀甀洀⤀ഀ਀搀椀洀 愀爀爀猀漀甀爀挀攀Ⰰ 愀爀爀昀椀氀氀Ⰰ 猀漀甀爀挀攀椀琀攀洀渀甀洀Ⰰ 昀椀氀氀椀琀攀洀渀甀洀Ⰰ 椀ഀ਀椀昀 椀猀渀甀氀氀⠀猀琀爀猀漀甀爀挀攀⤀ 漀爀 椀猀渀甀氀氀⠀猀琀爀昀椀氀氀⤀ 琀栀攀渀ഀ਀昀椀氀氀椀渀愀爀爀猀琀爀 㴀 ∀∀ഀ਀攀砀椀琀 昀甀渀挀琀椀漀渀ഀ਀攀渀搀 椀昀ഀ਀愀爀爀猀漀甀爀挀攀 㴀 猀瀀氀椀琀⠀猀琀爀猀漀甀爀挀攀Ⰰ ∀Ⰰ∀⤀ഀ਀愀爀爀昀椀氀氀 㴀 猀瀀氀椀琀⠀猀琀爀昀椀氀氀Ⰰ ∀Ⰰ∀⤀ഀ਀猀漀甀爀挀攀椀琀攀洀渀甀洀 㴀 甀戀漀甀渀搀⠀愀爀爀猀漀甀爀挀攀⤀ ⬀ ㄀ഀ਀昀椀氀氀椀琀攀洀渀甀洀 㴀 甀戀漀甀渀搀⠀愀爀爀昀椀氀氀⤀ ⬀ ㄀ഀ਀椀昀 猀漀甀爀挀攀椀琀攀洀渀甀洀 㰀 椀琀攀洀渀甀洀 愀渀搀 猀漀甀爀挀攀椀琀攀洀渀甀洀 ⬀ 昀椀氀氀椀琀攀洀渀甀洀 㸀㴀 椀琀攀洀渀甀洀 琀栀攀渀ഀ਀昀漀爀 椀 㴀 　 琀漀 椀琀攀洀渀甀洀 ⴀ 猀漀甀爀挀攀椀琀攀洀渀甀洀 ⴀ ㄀ഀ਀猀琀爀猀漀甀爀挀攀 㴀 猀琀爀猀漀甀爀挀攀 ☀ ∀Ⰰ∀ ☀ 愀爀爀昀椀氀氀⠀猀漀甀爀挀攀椀琀攀洀渀甀洀 ⬀ 昀椀氀氀椀琀攀洀渀甀洀 ⴀ 椀琀攀洀渀甀洀 ⬀ 椀⤀ഀ਀渀攀砀琀ഀ਀攀渀搀 椀昀ഀ਀昀椀氀氀椀渀愀爀爀猀琀爀 㴀 猀琀爀猀漀甀爀挀攀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀✀䤀∀q攀ഀ吀ᨀ頀碌洀氀琀攀砀琀ഀ਀✀尀伀  ⠀甀ᨀ頀れఀ㽗㼀匀ⴀ一똀鍠ޜ挀吀欀က倀紀笀䤀刀㰀倀ഀ਀✀Ȁ㼀  pe貘ibignode ---- 'YP}{

'        ismallnode ---- \P}{

'        defchar ---- 珜0?P

'n奫?P貘鶙?S-NcTkP}{IR<P

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

function xmltext(byval ibignode, byval ismallnode, byval defchar)

dim langroot, langsub

if isnull(ibignode) or isnull(ismallnode) then

xmltext = defchar

else

set langroot = xmldoc.getelementsbytagname(ibignode)

if langroot.length = 0 then

xmltext = defchar

else

set langsub = langroot(0).getelementsbytagname(ismallnode)

if langsub.length = 0 then

xmltext = defchar

else

xmltext = langsub(0).text

end if

end if

set langroot = nothing

end if

end function

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

'I焢e
T貘getfirstseparatortoend

'\O  (u貘*b鲓0?{N*NRDe&{0R鷫>\IRW[&{2N

'‿ 瀀攀ᨀ頀玌琀爀   ⴀⴀⴀⴀ攀垞嬀☀笀㈀一ഀ਀✀        猀攀瀀愀爀愀琀漀爀 ⴀⴀⴀⴀ؀刀䐀攀☀笀ഀ਀✀渀欀㽙倀ᨀ頀⪌戀錀ຜ吀䤀刀圀嬀☀笀㈀一ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀昀甀渀挀琀椀漀渀 最攀琀昀椀爀猀琀猀攀瀀愀爀愀琀漀爀琀漀攀渀搀⠀戀礀瘀愀氀 猀琀爀Ⰰ 猀攀瀀愀爀愀琀漀爀⤀ഀ਀最攀琀昀椀爀猀琀猀攀瀀愀爀愀琀漀爀琀漀攀渀搀 㴀 爀椀最栀琀⠀猀琀爀Ⰰ 氀攀渀⠀猀琀爀⤀ ⴀ 椀渀猀琀爀⠀猀琀爀Ⰰ 猀攀瀀愀爀愀琀漀爀⤀⤀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀✀䤀∀q攀ഀ吀ᨀ頀掌栀欀瘀愀氀椀搀搀愀礀猀ഀ਀✀尀伀  ⠀甀ᨀ頀ঌ最䠀攀ἀ最䤀刀䤀∀q攀ഀ਀✀Ȁ㼀  pe貘ivalidnum ----	gHeg

'        ivalidunit ----	gHegUSMO

'        ibegintime ---- _㼊销桛⼀㼀最ഀ਀✀渀欀㽙倀ᨀ頀榌刀夀伀䤀刀ऀ最䠀攀⤀夀瀀攀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀昀甀渀挀琀椀漀渀 挀栀欀瘀愀氀椀搀搀愀礀猀⠀椀瘀愀氀椀搀渀甀洀Ⰰ 椀瘀愀氀椀搀甀渀椀琀Ⰰ 椀戀攀最椀渀琀椀洀攀⤀ഀ਀椀昀 ⠀椀瘀愀氀椀搀渀甀洀 㴀 ∀∀ 漀爀 椀猀渀甀洀攀爀椀挀⠀椀瘀愀氀椀搀渀甀洀⤀ 㴀 昀愀氀猀攀 漀爀 椀瘀愀氀椀搀甀渀椀琀 㴀 ∀∀ 漀爀 椀猀渀甀洀攀爀椀挀⠀椀瘀愀氀椀搀甀渀椀琀⤀ 㴀 昀愀氀猀攀 漀爀 椀戀攀最椀渀琀椀洀攀 㴀 ∀∀ 漀爀 椀猀搀愀琀攀⠀椀戀攀最椀渀琀椀洀攀⤀ 㴀 昀愀氀猀攀⤀ 琀栀攀渀ഀ਀挀栀欀瘀愀氀椀搀搀愀礀猀 㴀 　ഀ਀攀砀椀琀 昀甀渀挀琀椀漀渀ഀ਀攀渀搀 椀昀ഀ਀搀椀洀 琀洀瀀搀愀琀攀Ⰰ 愀爀爀椀渀琀攀爀瘀愀氀ഀ਀愀爀爀椀渀琀攀爀瘀愀氀 㴀 愀爀爀愀礀⠀∀栀∀Ⰰ ∀搀∀Ⰰ ∀洀∀Ⰰ ∀礀礀礀礀∀⤀ഀ਀椀昀 椀瘀愀氀椀搀渀甀洀 㴀 ⴀ㄀ 琀栀攀渀ഀ਀挀栀欀瘀愀氀椀搀搀愀礀猀 㴀 㤀㤀㤀㤀㤀ഀ਀攀氀猀攀ഀ਀琀洀瀀搀愀琀攀 㴀 搀愀琀攀愀搀搀⠀愀爀爀椀渀琀攀爀瘀愀氀⠀椀瘀愀氀椀搀甀渀椀琀⤀Ⰰ 椀瘀愀氀椀搀渀甀洀Ⰰ 椀戀攀最椀渀琀椀洀攀⤀ഀ਀挀栀欀瘀愀氀椀搀搀愀礀猀 㴀 搀愀琀攀搀椀昀昀⠀∀搀∀Ⰰ 搀愀琀攀Ⰰ 琀洀瀀搀愀琀攀⤀ഀ਀攀渀搀 椀昀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀✀䤀∀q攀ഀ吀ᨀ頀枌攀琀渀甀洀猀琀爀椀渀最ഀ਀✀尀伀  ⠀甀ᨀ頀沌稀祜䘀樀瘀䜀开猀匀瀀攀ഀ਀✀渀欀㽙倀ᨀ頀䞌开㨀最䐀㽢夀䤀刀瀀攀圀嬀⠀⠀甀찀ੵ一 伀Ⰰἀ甀က戀⤀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀昀甀渀挀琀椀漀渀 最攀琀渀甀洀猀琀爀椀渀最⠀⤀ഀ਀搀椀洀 瘀开礀洀搀Ⰰ 瘀开栀洀猀Ⰰ 瘀开洀洀洀ഀ਀瘀开礀洀搀 㴀 礀攀愀爀⠀渀漀眀⤀ ☀ 爀椀最栀琀⠀∀　∀ ☀ 洀漀渀琀栀⠀渀漀眀⤀Ⰰ ㈀⤀ ☀ 爀椀最栀琀⠀∀　∀ ☀ 搀愀礀⠀渀漀眀⤀Ⰰ ㈀⤀ഀ਀瘀开栀洀猀 㴀 爀椀最栀琀⠀∀　∀ ☀ 栀漀甀爀⠀渀漀眀⤀Ⰰ ㈀⤀ ☀ 爀椀最栀琀⠀∀　∀ ☀ 洀椀渀甀琀攀⠀渀漀眀⤀Ⰰ ㈀⤀ ☀ 爀椀最栀琀⠀∀　∀ ☀ 猀攀挀漀渀搀⠀渀漀眀⤀Ⰰ ㈀⤀ഀ਀爀愀渀搀漀洀椀稀攀ഀ਀瘀开洀洀洀 㴀 爀椀最栀琀⠀∀　∀ ☀ 挀猀琀爀⠀挀氀渀最⠀㤀㤀 ⨀ 爀渀搀⤀ ⬀ ㄀⤀Ⰰ ㈀⤀ഀ਀最攀琀渀甀洀猀琀爀椀渀最 㴀 瘀开礀洀搀 ☀ 瘀开栀洀猀 ☀ 瘀开洀洀洀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀✀䤀∀q攀ഀ吀ᨀ頀枌攀琀洀椀渀椀搀ഀ਀✀尀伀  ⠀甀ᨀ頀鎌厜㼀一栀埸最一圀嬀䈀礀ⴀ一䤀刀最✀夀㰀倀ഀ਀✀Ȁ㼀  pe貘sheetname ----1?抙?
'        fieldname ----1?扺[By

'n奫?P貘U揥[Byg\<P

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

function getminid(sheetname, fieldname)

dim mrs

set mrs = conn.execute("select min(" & fieldname & ") from " & sheetname & "")

if isnull(mrs(0)) then

getminid = 1

else

getminid = mrs(0)

end if

set mrs = nothing

end function

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

'I焢e
T貘getnewid

'\O  (u貘鲓S?NhWgNW[By-NIRg'Y<P+1

'‿ 瀀攀ᨀ頀玌栀攀攀琀渀愀洀攀 ⴀⴀⴀⴀ㄀㼀餀b㼀਀✀        昀椀攀氀搀渀愀洀攀 ⴀⴀⴀⴀ㄀㼀稀b嬀䈀礀ഀ਀✀渀欀㽙倀ᨀ頀喌c嬀䈀礀最✀夀㰀倀⬀㄀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀昀甀渀挀琀椀漀渀 最攀琀渀攀眀椀搀⠀猀栀攀攀琀渀愀洀攀Ⰰ 昀椀攀氀搀渀愀洀攀⤀ഀ਀搀椀洀 洀爀猀ഀ਀猀攀琀 洀爀猀 㴀 挀漀渀渀⸀攀砀攀挀甀琀攀⠀∀猀攀氀攀挀琀 洀愀砀⠀∀ ☀ 昀椀攀氀搀渀愀洀攀 ☀ ∀⤀ 昀爀漀洀 ∀ ☀ 猀栀攀攀琀渀愀洀攀 ☀ ∀∀⤀ഀ਀椀昀 椀猀渀甀氀氀⠀洀爀猀⠀　⤀⤀ 琀栀攀渀ഀ਀最攀琀渀攀眀椀搀 㴀 ㄀ഀ਀攀氀猀攀ഀ਀最攀琀渀攀眀椀搀 㴀 洀爀猀⠀　⤀ ⬀ ㄀ഀ਀攀渀搀 椀昀ഀ਀猀攀琀 洀爀猀 㴀 渀漀琀栀椀渀最ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀✀䤀∀q攀ഀ吀ᨀ頀炌攀开爀攀瀀氀愀挀攀ഀ਀✀尀伀  ⠀甀ᨀ頀後笀ᤀ㼀昀戀挀ഀ਀✀Ȁ㼀  pe貘expression ---- ;Npenc

'        find ---- 譻貘fbcIRW[&{

'        replacewith ---- 貘fbcTIRW[&{

'n奫?P貘_{?TIR貘fbcW[&{2N,㼋渀 爀攀瀀氀愀挀攀眀椀琀栀 稀稀圀嬀☀笀Ⰰ笀颋暌戀挀䤀刀圀嬀☀笀 頀暌戀挀က戀稀稀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀昀甀渀挀琀椀漀渀 瀀攀开爀攀瀀氀愀挀攀⠀戀礀瘀愀氀 攀砀瀀爀攀猀猀椀漀渀Ⰰ 戀礀瘀愀氀 昀椀渀搀Ⰰ 戀礀瘀愀氀 爀攀瀀氀愀挀攀眀椀琀栀⤀ഀ਀椀昀 椀猀渀甀氀氀⠀攀砀瀀爀攀猀猀椀漀渀⤀ 漀爀 椀猀渀甀氀氀⠀昀椀渀搀⤀ 琀栀攀渀ഀ਀瀀攀开爀攀瀀氀愀挀攀 㴀 攀砀瀀爀攀猀猀椀漀渀ഀ਀攀氀猀攀椀昀 椀猀渀甀氀氀⠀爀攀瀀氀愀挀攀眀椀琀栀⤀ 琀栀攀渀ഀ਀瀀攀开爀攀瀀氀愀挀攀 㴀 爀攀瀀氀愀挀攀⠀攀砀瀀爀攀猀猀椀漀渀Ⰰ 昀椀渀搀Ⰰ ∀∀⤀ഀ਀攀氀猀攀ഀ਀瀀攀开爀攀瀀氀愀挀攀 㴀 爀攀瀀氀愀挀攀⠀攀砀瀀爀攀猀猀椀漀渀Ⰰ 昀椀渀搀Ⰰ 爀攀瀀氀愀挀攀眀椀琀栀⤀ഀ਀攀渀搀 椀昀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀✀ 猀漀昀琀眀愀爀攀 渀愀洀攀㨀 瀀漀眀攀爀攀愀猀礀 猀椀琀攀眀攀愀瘀攀爀ഀ਀✀ 眀攀戀㨀 栀琀琀瀀㨀⼀⼀眀眀眀⸀瀀漀眀攀爀攀愀猀礀⸀渀攀琀ഀ਀✀ 挀漀瀀礀爀椀最栀琀 ⠀挀⤀ ㈀　　㔀ഀ頀㊌　　㠀 嬀伀焀尀Ȁ帀最∀ጀ昀儀缀栀΀쌀⁘戀ऀ最倀吀最儀㜀?HrCg@b	g

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

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

'I焢e
T貘pe_cbool

'\O  (u貘\W[&{l?N^\_P??
'‿ 瀀攀ᨀ頀玌琀爀戀漀漀氀ⴀⴀⴀⴀ 圀嬀☀笀ഀ਀✀渀欀㽙倀ᨀ頀璌爀甀攀⼀昀愀氀猀攀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀昀甀渀挀琀椀漀渀 瀀攀开挀戀漀漀氀⠀猀琀爀戀漀漀氀⤀ഀ਀椀昀 猀琀爀戀漀漀氀 㴀 琀爀甀攀 漀爀 氀挀愀猀攀⠀琀爀椀洀⠀猀琀爀戀漀漀氀⤀⤀ 㴀 ∀琀爀甀攀∀ 漀爀 氀挀愀猀攀⠀琀爀椀洀⠀猀琀爀戀漀漀氀⤀⤀ 㴀 ∀礀攀猀∀ 漀爀 琀爀椀洀⠀猀琀爀戀漀漀氀⤀ 㴀 ∀㄀∀ 琀栀攀渀ഀ਀瀀攀开挀戀漀漀氀 㴀 琀爀甀攀ഀ਀攀氀猀攀ഀ਀瀀攀开挀戀漀漀氀 㴀 昀愀氀猀攀ഀ਀攀渀搀 椀昀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀✀䤀∀q攀ഀ吀ᨀ頀炌攀开挀氀渀最ഀ਀✀尀伀  ⠀甀ᨀ頀ڌ尀圀嬀☀笀氀㼀一琀攀儀灎攀㰀倀ഀ਀✀Ȁ㼀  pe貘str1 ---- W[&{

'n奫?P貘㼋渀 伀攀儀䤀刀Ȁ㼀pe
N/fpe<P貘n奫?貘vQ驃㽺礀渀欀摯䤀刀瀀攀㰀倀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀昀甀渀挀琀椀漀渀 瀀攀开挀氀渀最⠀戀礀瘀愀氀 猀琀爀㄀⤀ഀ਀椀昀 椀猀渀甀洀攀爀椀挀⠀猀琀爀㄀⤀ 琀栀攀渀ഀ਀瀀攀开挀氀渀最 㴀 昀椀砀⠀挀搀戀氀⠀猀琀爀㄀⤀⤀ഀ਀攀氀猀攀ഀ਀瀀攀开挀氀渀最 㴀 　ഀ਀攀渀搀 椀昀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀✀䤀∀q攀ഀ吀ᨀ頀炌攀开挀氀渀最㄀ഀ਀✀尀伀  ⠀甀ᨀ頀ڌ尀圀嬀☀笀氀㼀一琀攀儀灎攀㰀倀ഀ਀✀Ȁ㼀  pe貘str1 ---- W[&{

'n奫?P貘㼋渀 伀攀儀䤀刀Ȁ㼀pe
N/fpe<P貘n奫?貘vQ驃㽺礀渀欀摯䤀刀瀀攀㰀倀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀昀甀渀挀琀椀漀渀 瀀攀开挀氀渀最㄀⠀戀礀瘀愀氀 猀琀爀㄀⤀ഀ਀椀昀 椀猀渀甀洀攀爀椀挀⠀猀琀爀㄀⤀ 琀栀攀渀ഀ਀瀀攀开挀氀渀最㄀ 㴀 挀氀渀最⠀猀琀爀㄀⤀ഀ਀椀昀 瀀攀开挀氀渀最㄀ 㰀㴀 　 琀栀攀渀 瀀攀开挀氀渀最㄀ 㴀 ㄀ഀ਀攀氀猀攀ഀ਀瀀攀开挀氀渀最㄀ 㴀 ㄀ഀ਀攀渀搀 椀昀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀✀䤀∀q攀ഀ吀ᨀ頀炌攀开挀搀戀氀ഀ਀✀尀伀  ⠀甀ᨀ頀ڌ尀圀嬀☀笀氀㼀一ༀ뼀絕؀炐攀㰀倀ഀ਀✀Ȁ㼀  pe貘str1 ---- W[&{

'n奫?P貘㼋渀 伀攀儀䤀刀Ȁ㼀pe
N/fpe<P貘n奫?貘vQ驃㽺礀渀欀摯䤀刀瀀攀㰀倀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀昀甀渀挀琀椀漀渀 瀀攀开挀搀戀氀⠀戀礀瘀愀氀 猀琀爀㄀⤀ഀ਀椀昀 椀猀渀甀洀攀爀椀挀⠀猀琀爀㄀⤀ 琀栀攀渀ഀ਀瀀攀开挀搀戀氀 㴀 挀搀戀氀⠀猀琀爀㄀⤀ഀ਀攀氀猀攀ഀ਀瀀攀开挀搀戀氀 㴀 　ഀ਀攀渀搀 椀昀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀✀䤀∀q攀ഀ吀ᨀ頀炌攀开挀搀愀琀攀ഀ਀✀尀伀  ⠀甀ᨀ頀ڌ尀圀嬀☀笀氀㼀一⼀㼀最ഀ਀✀Ȁ㼀  pe貘str1 ---- W[&{

'n奫?P貘㼋渀Ȁ㼀pe
N/f/?g乑W[&{貘Rn奫廠_MR
減?貘&TRn奫廭濤dIR/?g乑penc

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

function pe_cdate(byval str1)

if isdate(str1) then

pe_cdate = cdate(str1)

else

pe_cdate = now

end if

end function

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

'I焢e
T貘encodeip

'\O  (u貘\ip0W@Wl?NpeW[

'‿ 瀀攀ᨀ頀玌椀瀀 ⴀⴀⴀⴀ 椀瀀　圀䀀圀ഀ਀✀渀欀㽙倀ᨀ頀炌攀圀嬀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀昀甀渀挀琀椀漀渀 攀渀挀漀搀攀椀瀀⠀猀椀瀀⤀ഀ਀搀椀洀 猀琀爀椀瀀ഀ਀猀琀爀椀瀀 㴀 猀瀀氀椀琀⠀猀椀瀀Ⰰ ∀⸀∀⤀ഀ਀椀昀 甀戀漀甀渀搀⠀猀琀爀椀瀀⤀ 㰀 ㌀ 琀栀攀渀ഀ਀攀渀挀漀搀攀椀瀀 㴀 　ഀ਀攀砀椀琀 昀甀渀挀琀椀漀渀ഀ਀攀渀搀 椀昀ഀ਀椀昀 椀猀渀甀洀攀爀椀挀⠀猀琀爀椀瀀⠀　⤀⤀ 㴀 昀愀氀猀攀 漀爀 椀猀渀甀洀攀爀椀挀⠀猀琀爀椀瀀⠀㄀⤀⤀ 㴀 昀愀氀猀攀 漀爀 椀猀渀甀洀攀爀椀挀⠀猀琀爀椀瀀⠀㈀⤀⤀ 㴀 昀愀氀猀攀 漀爀 椀猀渀甀洀攀爀椀挀⠀猀琀爀椀瀀⠀㌀⤀⤀ 㴀 昀愀氀猀攀 琀栀攀渀ഀ਀猀椀瀀 㴀 　ഀ਀攀氀猀攀ഀ਀猀椀瀀 㴀 挀猀渀最⠀猀琀爀椀瀀⠀　⤀⤀ ⨀ ㈀㔀㘀 ⨀ ㈀㔀㘀 ⨀ ㈀㔀㘀 ⬀ 挀氀渀最⠀猀琀爀椀瀀⠀㄀⤀⤀ ⨀ ㈀㔀㘀 ⨀ ㈀㔀㘀 ⬀ 挀氀渀最⠀猀琀爀椀瀀⠀㈀⤀⤀ ⨀ ㈀㔀㘀 ⬀ 挀氀渀最⠀猀琀爀椀瀀⠀㌀⤀⤀ ⴀ ㄀ഀ਀攀渀搀 椀昀ഀ਀攀渀挀漀搀攀椀瀀 㴀 猀椀瀀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀✀䤀∀q攀ഀ吀ᨀ頀ඌ਀✀尀伀  ⠀甀ᨀ頀ඌ਀✀Ȁ㼀  pe貘

'n奫?P貘

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

'}v
TUSIR鄻}{瘶揌~c榯[3?TUSIR鄻}{\
NAQ{H~c?0

function checkiplock(byval slocktype, byval slocklist, byval suserip)

dim iplock, rslockip

dim arrlockipw, arrlockipb, arrlockipwcut, arrlockipbcut

iplock = false

checkiplock = iplock

dim i, skillip

if slocktype = "" or isnull(slocktype) then exit function

if slocklist = "" or isnull(slocklist) then exit function

if suserip = "" or isnull(suserip) then exit function

suserip = cdbl(encodeip(suserip))

rslockip = split(slocklist, "|||")

if slocktype = 4 then

arrlockipb = split(trim(rslockip(1)), "$$$")

for i = 0 to ubound(arrlockipb)

if arrlockipb(i) <> "" then

arrlockipbcut = split(trim(arrlockipb(i)), "----")

iplock = true

if cdbl(arrlockipbcut(0)) > suserip or suserip > cdbl(arrlockipbcut(1)) then iplock = false

if iplock then exit for

end if

next

if iplock = true then

arrlockipw = split(trim(rslockip(0)), "$$$")

for i = 0 to ubound(arrlockipw)

if arrlockipw(i) <> "" then

arrlockipwcut = split(trim(arrlockipw(i)), "----")

iplock = true

if cdbl(arrlockipwcut(0)) <= suserip and suserip <= cdbl(arrlockipwcut(1)) then iplock = false

if iplock then exit for

end if

next

end if

else

if slocktype = 1 or slocktype = 3 then

arrlockipw = split(trim(rslockip(0)), "$$$")

for i = 0 to ubound(arrlockipw)

if arrlockipw(i) <> "" then

arrlockipwcut = split(trim(arrlockipw(i)), "----")

iplock = true

if cdbl(arrlockipwcut(0)) <= suserip and suserip <= cdbl(arrlockipwcut(1)) then iplock = false

if iplock = false then exit for

end if

next

end if

if iplock = false and (slocktype = 2 or slocktype = 3) then

arrlockipb = split(trim(rslockip(1)), "$$$")

for i = 0 to ubound(arrlockipb)

if arrlockipb(i) <> "" then

arrlockipbcut = split(trim(arrlockipb(i)), "----")

iplock = true

if cdbl(arrlockipbcut(0)) > suserip or suserip > cdbl(arrlockipbcut(1)) then iplock = false

if iplock then exit for

end if

next

end if

end if

checkiplock = iplock

end function

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

'I焢e
T貘isvalidemail

'\O  (u貘噡1揺mail0W@WT皧'`

'‿ 瀀攀ᨀ頀斌洀愀椀氀 ⴀⴀⴀⴀꘀ慵ㅖ턀剣攀洀愀椀氀　圀䀀圀ഀ਀✀渀欀㽙倀ᨀ頀璌爀甀攀  ⴀⴀⴀⴀ攀洀愀椀氀　圀䀀圀ࠀ吀꜀൶਀✀        昀愀氀猀攀 ⴀⴀⴀⴀ攀洀愀椀氀　圀䀀圀ഀ一ࠀ吀꜀൶਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀昀甀渀挀琀椀漀渀 椀猀瘀愀氀椀搀攀洀愀椀氀⠀攀洀愀椀氀⤀ഀ਀爀攀最攀砀⸀瀀愀琀琀攀爀渀 㴀 ∀帀尀眀⬀⠀⠀ⴀ尀眀⬀⤀簀⠀尀⸀尀眀⬀⤀⤀⨀尀䀀嬀愀ⴀ稀愀ⴀ稀　ⴀ㤀崀⬀⠀⠀尀⸀簀ⴀ⤀嬀愀ⴀ稀愀ⴀ稀　ⴀ㤀崀⬀⤀⨀尀⸀嬀愀ⴀ稀愀ⴀ稀　ⴀ㤀崀⬀␀∀ഀ਀椀猀瘀愀氀椀搀攀洀愀椀氀 㴀 爀攀最攀砀⸀琀攀猀琀⠀攀洀愀椀氀⤀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀✀䤀∀q攀ഀ吀ᨀ頀榌猀瘀愀氀椀搀猀琀爀ഀ਀✀尀伀  ⠀甀ᨀ頀憌ㅖc嬀☀笀⼀昀☀吀⠀圀ऀ最䠀攀̀ऀ嚄ⴀ匀ഀ਀✀Ȁ㼀  pe貘str ----疦噡1揑RW[&{

'n奫?P貘true  ----W[&{T皧

'        false ----W[&{
NT皧

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

function isvalidstr(byval str)

dim i, c

for i = 1 to len(str)

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

if instr("abcdefghijklmnopqrstuvwxyz1234567890", c) <= 0 then

isvalidstr = false

exit function

end if

next

if isnumeric(left(str, 1)) then

isvalidstr = false

else

isvalidstr = true

end if

end function

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

'I焢e
T貘isvalidjsfilename

'\O  (u貘噡1?f&T/f	gHeIRjs@V隂
T

'‿ 瀀攀ᨀ頀玌琀爀 ⴀⴀⴀⴀꘀ慵ㅖ턀剣圀嬀☀笀ഀ਀✀渀欀㽙倀ᨀ頀璌爀甀攀  ⴀⴀⴀⴀ䀀嘀舀ඖ吀ࠀ吀꜀൶਀✀        昀愀氀猀攀 ⴀⴀⴀⴀ䀀嘀舀ඖ吀ഀ一ࠀ吀꜀൶਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀昀甀渀挀琀椀漀渀 椀猀瘀愀氀椀搀樀猀昀椀氀攀渀愀洀攀⠀戀礀瘀愀氀 猀琀爀Ⰰ 戀礀瘀愀氀 挀漀渀琀攀渀琀琀礀瀀攀⤀ഀ਀搀椀洀 椀Ⰰ 挀ഀ਀昀漀爀 椀 㴀 ㄀ 琀漀 氀攀渀⠀猀琀爀⤀ഀ਀挀 㴀 氀挀愀猀攀⠀洀椀搀⠀猀琀爀Ⰰ 椀Ⰰ ㄀⤀⤀ഀ਀椀昀 椀渀猀琀爀⠀∀愀戀挀搀攀昀最栀椀樀欀氀洀渀漀瀀焀爀猀琀甀瘀眀砀礀稀开㄀㈀㌀㐀㔀㘀㜀㠀㤀　⸀∀Ⰰ 挀⤀ 㰀㴀 　 琀栀攀渀ഀ਀椀猀瘀愀氀椀搀樀猀昀椀氀攀渀愀洀攀 㴀 昀愀氀猀攀ഀ਀攀砀椀琀 昀甀渀挀琀椀漀渀ഀ਀攀渀搀 椀昀ഀ਀渀攀砀琀ഀ਀椀昀 挀漀渀琀攀渀琀琀礀瀀攀 㴀 　 琀栀攀渀ഀ਀椀昀 氀挀愀猀攀⠀爀椀最栀琀⠀猀琀爀Ⰰ ㌀⤀⤀ 㰀㸀 ∀⸀樀猀∀ 琀栀攀渀ഀ਀椀猀瘀愀氀椀搀樀猀昀椀氀攀渀愀洀攀 㴀 昀愀氀猀攀ഀ਀攀氀猀攀ഀ਀椀猀瘀愀氀椀搀樀猀昀椀氀攀渀愀洀攀 㴀 琀爀甀攀ഀ਀攀渀搀 椀昀ഀ਀攀氀猀攀ഀ਀椀昀 氀挀愀猀攀⠀爀椀最栀琀⠀猀琀爀Ⰰ 㔀⤀⤀ 㰀㸀 ∀⸀栀琀洀氀∀ 琀栀攀渀ഀ਀椀猀瘀愀氀椀搀樀猀昀椀氀攀渀愀洀攀 㴀 昀愀氀猀攀ഀ਀攀氀猀攀ഀ਀椀猀瘀愀氀椀搀樀猀昀椀氀攀渀愀洀攀 㴀 琀爀甀攀ഀ਀攀渀搀 椀昀ഀ਀攀渀搀 椀昀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀✀䤀∀q攀ഀ吀ᨀ頀犌攀瀀氀愀挀攀戀愀搀挀栀愀爀ഀ਀✀尀伀  ⠀甀ᨀ頀ඌ龉庌⨀椀氀䤀刀猀焀氀圀嬀☀笀ഀ਀✀Ȁ㼀  pe貘strchar-----疦褍貟IRW[&{

'n奫?P貘褍㾟吀䤀刀圀嬀☀笀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀昀甀渀挀琀椀漀渀 爀攀瀀氀愀挀攀戀愀搀挀栀愀爀⠀猀琀爀挀栀愀爀⤀ഀ਀椀昀 猀琀爀挀栀愀爀 㴀 ∀∀ 漀爀 椀猀渀甀氀氀⠀猀琀爀挀栀愀爀⤀ 琀栀攀渀ഀ਀爀攀瀀氀愀挀攀戀愀搀挀栀愀爀 㴀 ∀∀ഀ਀攀砀椀琀 昀甀渀挀琀椀漀渀ഀ਀攀渀搀 椀昀ഀ਀搀椀洀 猀琀爀戀愀搀挀栀愀爀Ⰰ 愀爀爀戀愀搀挀栀愀爀Ⰰ 琀攀洀瀀挀栀愀爀Ⰰ 椀ഀ਀猀琀爀戀愀搀挀栀愀爀 㴀 ∀⬀Ⰰ✀Ⰰ─Ⰰ帀Ⰰ☀Ⰰ㼀Ⰰ⠀Ⰰ⤀Ⰰ㰀Ⰰ㸀Ⰰ嬀Ⰰ崀Ⰰ笀Ⰰ紀Ⰰ⼀Ⰰ尀Ⰰ㬀Ⰰ㨀Ⰰ∀ ☀ 挀栀爀⠀㌀㐀⤀ ☀ ∀Ⰰ∀ ☀ 挀栀爀⠀　⤀ ☀ ∀Ⰰⴀⴀ∀ഀ਀愀爀爀戀愀搀挀栀愀爀 㴀 猀瀀氀椀琀⠀猀琀爀戀愀搀挀栀愀爀Ⰰ ∀Ⰰ∀⤀ഀ਀琀攀洀瀀挀栀愀爀 㴀 猀琀爀挀栀愀爀ഀ਀昀漀爀 椀 㴀 　 琀漀 甀戀漀甀渀搀⠀愀爀爀戀愀搀挀栀愀爀⤀ഀ਀琀攀洀瀀挀栀愀爀 㴀 爀攀瀀氀愀挀攀⠀琀攀洀瀀挀栀愀爀Ⰰ 愀爀爀戀愀搀挀栀愀爀⠀椀⤀Ⰰ ∀∀⤀ഀ਀渀攀砀琀ഀ਀琀攀洀瀀挀栀愀爀 㴀 爀攀瀀氀愀挀攀⠀琀攀洀瀀挀栀愀爀Ⰰ ∀䀀䀀∀Ⰰ ∀䀀∀⤀ഀ਀爀攀瀀氀愀挀攀戀愀搀挀栀愀爀 㴀 琀攀洀瀀挀栀愀爀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀✀䤀∀q攀ഀ吀ᨀ頀犌攀瀀氀愀挀攀甀爀氀戀愀搀挀栀愀爀ഀ਀✀尀伀  ⠀甀ᨀ頀ඌ龉疌爀氀ⴀ一帀⨀椀氀䤀刀猀焀氀圀嬀☀笀ഀ਀✀Ȁ㼀  pe貘strchar-----疦褍貟IRW[&{

'n奫?P貘褍㾟吀䤀刀圀嬀☀笀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀昀甀渀挀琀椀漀渀 爀攀瀀氀愀挀攀甀爀氀戀愀搀挀栀愀爀⠀猀琀爀挀栀愀爀⤀ഀ਀椀昀 猀琀爀挀栀愀爀 㴀 ∀∀ 漀爀 椀猀渀甀氀氀⠀猀琀爀挀栀愀爀⤀ 琀栀攀渀ഀ਀爀攀瀀氀愀挀攀甀爀氀戀愀搀挀栀愀爀 㴀 ∀∀ഀ਀攀砀椀琀 昀甀渀挀琀椀漀渀ഀ਀攀渀搀 椀昀ഀ਀搀椀洀 猀琀爀戀愀搀挀栀愀爀Ⰰ 愀爀爀戀愀搀挀栀愀爀Ⰰ 琀攀洀瀀挀栀愀爀Ⰰ 椀ഀ਀猀琀爀戀愀搀挀栀愀爀 㴀 ∀⬀Ⰰ✀Ⰰ⠀Ⰰ⤀Ⰰ㰀Ⰰ㸀Ⰰ嬀Ⰰ崀Ⰰ笀Ⰰ紀Ⰰ尀Ⰰ㬀Ⰰ∀ ☀ 挀栀爀⠀㌀㐀⤀ ☀ ∀Ⰰ∀ ☀ 挀栀爀⠀　⤀ ☀ ∀Ⰰⴀⴀ∀ഀ਀愀爀爀戀愀搀挀栀愀爀 㴀 猀瀀氀椀琀⠀猀琀爀戀愀搀挀栀愀爀Ⰰ ∀Ⰰ∀⤀ഀ਀琀攀洀瀀挀栀愀爀 㴀 猀琀爀挀栀愀爀ഀ਀昀漀爀 椀 㴀 　 琀漀 甀戀漀甀渀搀⠀愀爀爀戀愀搀挀栀愀爀⤀ഀ਀琀攀洀瀀挀栀愀爀 㴀 爀攀瀀氀愀挀攀⠀琀攀洀瀀挀栀愀爀Ⰰ 愀爀爀戀愀搀挀栀愀爀⠀椀⤀Ⰰ ∀∀⤀ഀ਀渀攀砀琀ഀ਀琀攀洀瀀挀栀愀爀 㴀 爀攀瀀氀愀挀攀⠀琀攀洀瀀挀栀愀爀Ⰰ ∀䀀䀀∀Ⰰ ∀䀀∀⤀ഀ਀爀攀瀀氀愀挀攀甀爀氀戀愀搀挀栀愀爀 㴀 琀攀洀瀀挀栀愀爀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀✀㴀㴀㴀㴀㴀㴀㴀㴀㴀㴀㴀㴀㴀㴀㴀㴀㴀㴀㴀㴀㴀㴀㴀㴀㴀㴀㴀㴀㴀㴀㴀㴀㴀㴀㴀㴀㴀㴀㴀㴀㴀㴀㴀㴀㴀㴀㴀㴀㴀ഀ਀✀䤀∀q攀ഀ吀ᨀ頀犌攀瀀氀愀挀攀戀愀搀甀爀氀ഀ਀✀尀伀  ⠀甀ᨀ頀ඌ龉庌⨀椀氀甀爀氀　圀䀀圀䤀∀q攀ഀ਀✀㴀㴀㴀㴀㴀㴀㴀㴀㴀㴀㴀㴀㴀㴀㴀㴀㴀㴀㴀㴀㴀㴀㴀㴀㴀㴀㴀㴀㴀㴀㴀㴀㴀㴀㴀㴀㴀㴀㴀㴀㴀㴀㴀㴀㴀㴀㴀㴀㴀ഀ਀昀甀渀挀琀椀漀渀 爀攀瀀氀愀挀攀戀愀搀甀爀氀⠀戀礀瘀愀氀 猀琀爀挀漀渀琀攀渀琀⤀ഀ਀爀攀最攀砀⸀瀀愀琀琀攀爀渀 㴀 ∀⠀愀簀─㘀㄀簀─㐀㄀⤀⠀搀簀─㘀㐀簀─㐀㐀⤀⠀洀簀─㘀搀簀㐀搀⤀⠀椀簀─㘀㤀簀─㐀㤀⤀⠀渀簀─㘀攀簀─㐀攀⤀⠀尀开簀─㔀昀⤀⠀⸀⨀㼀⤀⠀⸀簀─㈀攀⤀⠀愀簀─㘀㄀簀─㐀㄀⤀⠀猀簀─㜀㌀簀─㔀㌀⤀⠀瀀簀─㜀　簀─㔀　⤀∀ഀ਀猀攀琀 洀愀琀挀栀攀猀 㴀 爀攀最攀砀⸀攀砀攀挀甀琀攀⠀猀琀爀挀漀渀琀攀渀琀⤀ഀ਀昀漀爀 攀愀挀栀 洀愀琀挀栀 椀渀 洀愀琀挀栀攀猀ഀ਀猀琀爀挀漀渀琀攀渀琀 㴀 爀攀瀀氀愀挀攀⠀猀琀爀挀漀渀琀攀渀琀Ⰰ 洀愀琀挀栀⸀瘀愀氀甀攀Ⰰ ∀∀⤀ഀ਀渀攀砀琀ഀ਀爀攀最攀砀⸀瀀愀琀琀攀爀渀 㴀 ∀⠀甀簀─㜀㔀簀─㔀㔀⤀⠀猀簀─㜀㌀簀─㔀㌀⤀⠀攀簀─㘀㔀簀─㐀㔀⤀⠀爀簀─㜀㈀簀─㔀㈀⤀⠀尀开簀─㔀昀⤀⠀⸀⨀㼀⤀⠀⸀簀─㈀攀⤀⠀愀簀─㘀㄀簀─㐀㄀⤀⠀猀簀─㜀㌀簀─㔀㌀⤀⠀瀀簀─㜀　簀─㔀　⤀∀ഀ਀猀攀琀 洀愀琀挀栀攀猀 㴀 爀攀最攀砀⸀攀砀攀挀甀琀攀⠀猀琀爀挀漀渀琀攀渀琀⤀ഀ਀昀漀爀 攀愀挀栀 洀愀琀挀栀 椀渀 洀愀琀挀栀攀猀ഀ਀猀琀爀挀漀渀琀攀渀琀 㴀 爀攀瀀氀愀挀攀⠀猀琀爀挀漀渀琀攀渀琀Ⰰ 洀愀琀挀栀⸀瘀愀氀甀攀Ⰰ ∀∀⤀ഀ਀渀攀砀琀ഀ਀爀攀瀀氀愀挀攀戀愀搀甀爀氀 㴀 猀琀爀挀漀渀琀攀渀琀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀✀䤀∀q攀ഀ吀ᨀ頀掌栀攀挀欀戀愀搀挀栀愀爀ഀ਀✀尀伀  ⠀甀ᨀ頀憌ㅖ㼀昀☀吀Ԁ匀⬀吀帀⨀椀氀䤀刀猀焀氀圀嬀☀笀ഀ਀✀Ȁ㼀  pe貘strchar-----疦噡1揑RW[&{

'n奫?P貘true  ----W[&{T皧

'        false ----W[&{
NT皧

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

function checkbadchar(strchar)

dim strbadchar, arrbadchar, i

strbadchar = "@@,+,',%,^,&,?,(,),<,>,[,],{,},/,\,;,:," & chr(34) & ",--"

arrbadchar = split(strbadchar, ",")

if strchar = "" then

checkbadchar = false

else

for i = 0 to ubound(arrbadchar)

if instr(strchar, arrbadchar(i)) > 0 then

checkbadchar = false

exit function

end if

next

end if

checkbadchar = true

end function

function checkuserbadchar(strchar)

dim strbadchar, arrbadchar, i

strbadchar = "',%,^,&,?,(,),<,>,[,],{,},/,\,;,:," & chr(34) & ",*,|,"",.,#"

arrbadchar = split(strbadchar, ",")

if strchar = "" then

checkuserbadchar = false

else

for i = 0 to ubound(arrbadchar)

if instr(strchar, arrbadchar(i)) > 0 then

checkuserbadchar = false

exit function

end if

next

end if

checkuserbadchar = true

end function

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

'I焢e
T貘checkvalidstr

'\O  (u貘噡1損e-N	g??TIRW[&{

'‿ 瀀攀ᨀ頀憌爀爀椀渀瘀愀氀椀搀猀琀爀 ⴀⴀⴀⴀꘀㅵ㼀帀剢瀀攀蘀෦਀✀        猀琀爀㄀ ⴀⴀⴀⴀ ꘀ䭵㼀儀䤀刀圀嬀☀笀ഀ਀✀渀欀㽙倀ᨀ頀璌爀甀攀  ⴀⴀⴀⴀ⼀昀☀吀堀嬀⠀圀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀昀甀渀挀琀椀漀渀 挀栀攀挀欀瘀愀氀椀搀猀琀爀⠀愀爀爀椀渀瘀愀氀椀搀猀琀爀Ⰰ 猀琀爀㄀⤀ഀ਀搀椀洀 愀爀爀猀琀爀Ⰰ 椀ഀ਀椀昀 椀渀猀琀爀⠀愀爀爀椀渀瘀愀氀椀搀猀琀爀Ⰰ ∀Ⰰ∀⤀ 㸀 　 琀栀攀渀ഀ਀愀爀爀猀琀爀 㴀 猀瀀氀椀琀⠀愀爀爀椀渀瘀愀氀椀搀猀琀爀Ⰰ ∀Ⰰ∀⤀ഀ਀昀漀爀 椀 㴀 　 琀漀 甀戀漀甀渀搀⠀愀爀爀猀琀爀⤀ഀ਀椀昀 氀挀愀猀攀⠀琀爀椀洀⠀愀爀爀猀琀爀⠀椀⤀⤀⤀ 㴀 氀挀愀猀攀⠀琀爀椀洀⠀猀琀爀㄀⤀⤀ 琀栀攀渀ഀ਀挀栀攀挀欀瘀愀氀椀搀猀琀爀 㴀 昀愀氀猀攀ഀ਀攀砀椀琀 昀甀渀挀琀椀漀渀ഀ਀攀渀搀 椀昀ഀ਀渀攀砀琀ഀ਀攀氀猀攀ഀ਀椀昀 氀挀愀猀攀⠀琀爀椀洀⠀愀爀爀椀渀瘀愀氀椀搀猀琀爀⤀⤀ 㴀 氀挀愀猀攀⠀琀爀椀洀⠀猀琀爀㄀⤀⤀ 琀栀攀渀ഀ਀挀栀攀挀欀瘀愀氀椀搀猀琀爀 㴀 昀愀氀猀攀ഀ਀攀砀椀琀 昀甀渀挀琀椀漀渀ഀ਀攀渀搀 椀昀ഀ਀攀渀搀 椀昀ഀ਀挀栀攀挀欀瘀愀氀椀搀猀琀爀 㴀 琀爀甀攀ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀✀䤀∀q攀ഀ吀ᨀ頀榌猀瘀愀氀椀搀椀搀ഀ਀✀尀伀  ⠀甀ᨀ頀憌ㅖ㼀伀ഀ斉最䤀刀䤀頀䒌頀⾌昀☀吀⼀昀ࠀ吀꜀䥶頀䒌頀ᚌ戀Ԁ㼀䤀頀䒌頀㊌一ഀ਀✀Ȁ㼀  pe貘check_id ---- id W[&{2N

'n奫?P貘true  ---- T皧id

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

function isvalidid(check_id)

dim fixid, i

if isnull(check_id) or check_id = "" then

isvalidid = false

exit function

end if

fixid = replace(check_id, "|", "")

fixid = replace(fixid, ",", "")

fixid = replace(fixid, "-", "")

fixid = trim(replace(fixid, " ", ""))

if fixid = "" or isnull(fixid) then

isvalidid = false

else

for i = 1 to len(fixid) step 100

if not isnumeric(mid(fixid, i, 100)) then

isvalidid = false

exit function

end if

next

isvalidid = true

end if

end function

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

'I焢e
T貘pe_convertbr

'\O  (u貘\@V,g:SE?SIR<br>貘fbcbcL?
'‿ 瀀攀ᨀ頀暌猀琀爀椀渀最 ⴀⴀⴀⴀ ꘀѵ夀؀琀䤀刀圀嬀☀笀㈀一ഀ਀✀渀欀㽙倀ᨀ頀Ҍ夀؀琀฀吀䤀刀圀嬀☀笀㈀一ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀昀甀渀挀琀椀漀渀 瀀攀开挀漀渀瘀攀爀琀戀爀⠀戀礀瘀愀氀 昀猀琀爀椀渀最⤀ഀ਀椀昀 椀猀渀甀氀氀⠀昀猀琀爀椀渀最⤀ 漀爀 琀爀椀洀⠀昀猀琀爀椀渀最⤀ 㴀 ∀∀ 琀栀攀渀ഀ਀瀀攀开挀漀渀瘀攀爀琀戀爀 㴀 ∀∀ഀ਀攀砀椀琀 昀甀渀挀琀椀漀渀ഀ਀攀渀搀 椀昀ഀ਀昀猀琀爀椀渀最 㴀 爀攀瀀氀愀挀攀⠀昀猀琀爀椀渀最Ⰰ ∀㰀⼀瀀㸀㰀瀀㸀∀Ⰰ 挀栀爀⠀㄀　⤀ ☀ 挀栀爀⠀㄀　⤀⤀ഀ਀昀猀琀爀椀渀最 㴀 爀攀瀀氀愀挀攀⠀昀猀琀爀椀渀最Ⰰ ∀㰀戀爀㸀∀Ⰰ 挀栀爀⠀㄀　⤀⤀ഀ਀昀猀琀爀椀渀最 㴀 爀攀瀀氀愀挀攀⠀昀猀琀爀椀渀最Ⰰ ∀㰀戀爀㸀∀Ⰰ 挀栀爀⠀㄀　⤀⤀ഀ਀瀀攀开挀漀渀瘀攀爀琀戀爀 㴀 昀猀琀爀椀渀最ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀✀䤀∀q攀ഀ吀ᨀ頀炌攀开栀琀洀氀攀渀挀漀搀攀ഀ਀✀尀伀  ⠀甀ᨀ頀ڌ尀栀琀洀氀 ܀栀爀頥暌戀挀က戀 礀㼀圀椀攀㸀昀㨀礀䤀刀栀琀洀氀ഀ਀✀Ȁ㼀  pe貘fstring ---- 疦YtIRW[&{2N

'n奫?P貘YtTIRW[&{2N

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

function pe_htmlencode(byval fstring)

if isnull(fstring) or trim(fstring) = "" then

pe_htmlencode = ""

exit function

end if

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

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

fstring = replace(fstring, chr(32), "&nbsp;")

fstring = replace(fstring, chr(9), "&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>")

pe_htmlencode = fstring

end function

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

'I焢e
T貘pe_htmldecode

'\O  (u貘湆鹥htmlh╲,M?Tpe_htmlencode O(u

'‿ 瀀攀ᨀ頀暌猀琀爀椀渀最 ⴀⴀⴀⴀ ꘀѵ夀؀琀䤀刀圀嬀☀笀㈀一ഀ਀✀渀欀㽙倀ᨀ頀Ҍ夀؀琀฀吀䤀刀圀嬀☀笀㈀一ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀昀甀渀挀琀椀漀渀 瀀攀开栀琀洀氀搀攀挀漀搀攀⠀戀礀瘀愀氀 昀猀琀爀椀渀最⤀ഀ਀椀昀 椀猀渀甀氀氀⠀昀猀琀爀椀渀最⤀ 漀爀 琀爀椀洀⠀昀猀琀爀椀渀最⤀ 㴀 ∀∀ 琀栀攀渀ഀ਀瀀攀开栀琀洀氀搀攀挀漀搀攀 㴀 ∀∀ഀ਀攀砀椀琀 昀甀渀挀琀椀漀渀ഀ਀攀渀搀 椀昀ഀ਀昀猀琀爀椀渀最 㴀 爀攀瀀氀愀挀攀⠀昀猀琀爀椀渀最Ⰰ ∀☀最琀㬀∀Ⰰ ∀㸀∀⤀ഀ਀昀猀琀爀椀渀最 㴀 爀攀瀀氀愀挀攀⠀昀猀琀爀椀渀最Ⰰ ∀☀氀琀㬀∀Ⰰ ∀㰀∀⤀ഀ਀昀猀琀爀椀渀最 㴀 爀攀瀀氀愀挀攀⠀昀猀琀爀椀渀最Ⰰ ∀☀渀戀猀瀀㬀∀Ⰰ ∀ ∀⤀ഀ਀昀猀琀爀椀渀最 㴀 爀攀瀀氀愀挀攀⠀昀猀琀爀椀渀最Ⰰ ∀☀焀甀漀琀㬀∀Ⰰ 挀栀爀⠀㌀㐀⤀⤀ഀ਀昀猀琀爀椀渀最 㴀 爀攀瀀氀愀挀攀⠀昀猀琀爀椀渀最Ⰰ ∀☀⌀㌀㤀㬀∀Ⰰ 挀栀爀⠀㌀㤀⤀⤀ഀ਀昀猀琀爀椀渀最 㴀 爀攀瀀氀愀挀攀⠀昀猀琀爀椀渀最Ⰰ ∀㰀⼀瀀㸀㰀瀀㸀 ∀Ⰰ 挀栀爀⠀㄀　⤀ ☀ 挀栀爀⠀㄀　⤀⤀ഀ਀昀猀琀爀椀渀最 㴀 爀攀瀀氀愀挀攀⠀昀猀琀爀椀渀最Ⰰ ∀㰀戀爀㸀 ∀Ⰰ 挀栀爀⠀㄀　⤀⤀ഀ਀瀀攀开栀琀洀氀搀攀挀漀搀攀 㴀 昀猀琀爀椀渀最ഀ਀攀渀搀 昀甀渀挀琀椀漀渀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀✀䤀∀q攀ഀ吀ᨀ頀溌漀栀琀洀氀ഀ਀✀尀伀  ⠀甀ᨀ頀ඌ龉梌琀洀氀 䌀儀 紀ഀ਀✀Ȁ㼀  pe貘str ---- 疦褍貟W[&{

'n奫?P貘㼾最栀琀洀氀 䤀刀圀嬀☀笀ഀ਀✀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀⨀ഀ਀昀甀渀挀琀椀漀渀 渀漀栀琀洀氀⠀戀礀瘀愀氀 猀琀爀⤀ഀ਀椀昀 椀猀渀甀氀氀⠀猀琀爀⤀ 漀爀 琀爀椀洀⠀猀琀爀⤀ 㴀 ∀∀ 琀栀攀渀ഀ਀渀漀栀琀洀氀 㴀 ∀∀ഀ਀攀砀椀琀 昀甀渀挀琀椀漀渀ഀ਀攀渀搀 椀昀ഀ਀爀攀最攀砀⸀瀀愀琀琀攀爀渀 㴀 ∀⠀尀㰀⸀嬀帀尀㰀崀⨀尀㸀⤀∀ഀ਀猀琀爀 㴀 爀攀最攀砀⸀爀攀瀀氀愀挀攀⠀猀琀爀Ⰰ ∀∀⤀ഀ਀爀攀最攀砀⸀瀀愀琀琀攀爀渀 㴀 㴀洀椀搀搀氀攀㸀㰀⼀琀搀㸀ഀ਀            㰀琀搀 挀氀愀猀猀㴀戀琀开稀椀㄀ 眀椀搀琀栀㴀㈀㌀㐀㸀ऀ最爀褀澆愀尀㰀⼀琀搀㸀ഀ਀            㰀琀搀 挀氀愀猀猀㴀栀㈀开㄀ 眀椀搀琀栀㴀㔀㈀㸀㰀䄀 栀爀攀昀㴀∀⼀䌀∀㸀㐀㼀夀☀最琀㬀☀最琀㬀㰀⼀䄀㸀㰀⼀琀搀㸀ഀ਀          㰀⼀琀爀㸀ഀ਀        㰀⼀琀愀戀氀攀㸀ഀ਀      㰀⼀琀搀㸀ഀ਀    㰀⼀琀爀㸀ഀ਀    㰀琀爀㸀ഀ਀      㰀琀搀 挀氀愀猀猀㴀欀㄀开㄀㸀ഀ਀        㰀琀愀戀氀攀 挀氀愀猀猀㴀稀椀开樀氀欀㈀ 戀漀爀搀攀爀㴀　 挀攀氀氀匀瀀愀挀椀渀最㴀　 挀攀氀氀倀愀搀搀椀渀最㴀　 眀椀搀琀栀㴀㈀㘀㘀 愀氀椀最渀㴀挀攀渀琀攀爀㸀ഀ਀          㰀琀爀㸀ഀ਀            㰀琀搀 挀氀愀猀猀㴀稀椀开㄀㈀㸀ഀ਀            㰀琀愀戀氀攀 眀椀搀琀栀㴀∀㄀　　─∀ 挀攀氀氀瀀愀搀搀椀渀最㴀∀　∀ 挀攀氀氀猀瀀愀挀椀渀最㴀∀　∀㸀㰀琀爀㸀㰀琀搀 挀氀愀猀猀㴀∀∀㸀㰀愀 挀氀愀猀猀㴀∀稀椀开㄀㈀∀ 栀爀攀昀㴀∀⼀䄀⼀㈀　㈀㐀㄀　⼀㄀　㔀㈀㔀㈀㘀⸀愀猀瀀∀ 琀椀琀氀攀㴀∀㈀　㈀㐀琀帀㄀　ࠀ最㄀㘀⼀搀?Sm#nJ?hL&榒" target="_blank"><em>2024t^10g16/㽤匀ࠀ洀⌀渀䨀㼀栀䰀☀鈀i㰀⼀攀洀㸀㰀⼀愀㸀㰀⼀琀搀㸀㰀⼀琀爀㸀㰀琀爀㸀㰀琀搀 挀氀愀猀猀㴀∀∀㸀㰀愀 挀氀愀猀猀㴀∀稀椀开㄀㈀∀ 栀爀攀昀㴀∀⼀䄀⼀㈀　㈀㐀㄀　⼀㄀　㔀㈀㌀㜀㔀⸀愀猀瀀∀ 琀椀琀氀攀㴀∀㈀　㈀㐀琀帀㄀　ࠀ最㄀㔀⼀搀?Sm#nJ?hL&榒" target="_blank"><em>2024t^10g15/㽤匀ࠀ洀⌀渀䨀㼀栀䰀☀鈀i㰀⼀攀洀㸀㰀⼀愀㸀㰀⼀琀搀㸀㰀⼀琀爀㸀㰀琀爀㸀㰀琀搀 挀氀愀猀猀㴀∀∀㸀㰀愀 挀氀愀猀猀㴀∀稀椀开㄀㈀∀ 栀爀攀昀㴀∀⼀䄀⼀㈀　㈀㐀㄀　⼀㄀　㔀㈀㈀㐀㌀⸀愀猀瀀∀ 琀椀琀氀攀㴀∀㈀　㈀㐀琀帀㄀　ࠀ最㄀㐀⼀搀?Sm#nJ?hL&榒" target="_blank"><em>2024t^10g14/㽤匀ࠀ洀⌀渀䨀㼀栀䰀☀鈀i㰀⼀攀洀㸀㰀⼀愀㸀㰀⼀琀搀㸀㰀⼀琀爀㸀㰀琀爀㸀㰀琀搀 挀氀愀猀猀㴀∀∀㸀㰀愀 挀氀愀猀猀㴀∀稀椀开㄀㈀∀ 栀爀攀昀㴀∀⼀䄀⼀㈀　㈀㐀㄀　⼀㄀　㔀㈀　㜀㐀⸀愀猀瀀∀ 琀椀琀氀攀㴀∀㈀　㈀㐀琀帀㄀　ࠀ最㄀㈀⼀搀?Sm#nJ?hL&榒" target="_blank"><em>2024t^10g12/㽤匀ࠀ洀⌀渀䨀㼀栀䰀☀鈀i㰀⼀攀洀㸀㰀⼀愀㸀㰀⼀琀搀㸀㰀⼀琀爀㸀㰀琀爀㸀㰀琀搀 挀氀愀猀猀㴀∀∀㸀㰀愀 挀氀愀猀猀㴀∀稀椀开㄀㈀∀ 栀爀攀昀㴀∀⼀䄀⼀㈀　㈀㐀㄀　⼀㄀　㔀㄀㤀㘀㐀⸀愀猀瀀∀ 琀椀琀氀攀㴀∀㈀　㈀㐀琀帀㄀　ࠀ最㄀㄀⼀搀?Sm#nJ?hL&榒" target="_blank"><em>2024t^10g11/㽤匀ࠀ洀⌀渀䨀㼀栀䰀☀鈀i㰀⼀攀洀㸀㰀⼀愀㸀㰀⼀琀搀㸀㰀⼀琀爀㸀㰀琀爀㸀㰀琀搀 挀氀愀猀猀㴀∀∀㸀㰀愀 挀氀愀猀猀㴀∀稀椀开㄀㈀∀ 栀爀攀昀㴀∀⼀䄀⼀㈀　㈀㐀㄀　⼀㄀　㔀㄀㠀㘀㘀⸀愀猀瀀∀ 琀椀琀氀攀㴀∀㈀　㈀㐀琀帀㄀　ࠀ最㄀　⼀搀?Sm#nJ?hL&榒" target="_blank"><em>2024t^10g10/㽤匀ࠀ洀⌀渀䨀㼀栀䰀☀鈀i㰀⼀攀洀㸀㰀⼀愀㸀㰀⼀琀搀㸀㰀⼀琀爀㸀㰀琀爀㸀㰀琀搀 挀氀愀猀猀㴀∀∀㸀㰀愀 挀氀愀猀猀㴀∀稀椀开㄀㈀∀ 栀爀攀昀㴀∀⼀䄀⼀㈀　㈀㐀㄀　⼀㄀　㔀㄀㜀㔀㌀⸀愀猀瀀∀ 琀椀琀氀攀㴀∀㈀　㈀㐀琀帀㄀　ࠀ最㤀⼀搀?Sm#nJ?hL&榒" target="_blank"><em>2024t^10g9/㽤匀ࠀ洀⌀渀䨀㼀栀䰀☀鈀i㰀⼀攀洀㸀㰀⼀愀㸀㰀⼀琀搀㸀㰀⼀琀爀㸀㰀琀爀㸀㰀琀搀 挀氀愀猀猀㴀∀∀㸀㰀愀 挀氀愀猀猀㴀∀稀椀开㄀㈀∀ 栀爀攀昀㴀∀⼀䄀⼀㈀　㈀㐀㄀　⼀㄀　㔀㄀㔀㠀㤀⸀愀猀瀀∀ 琀椀琀氀攀㴀∀㈀　㈀㐀琀帀㄀　ࠀ最㠀⼀搀?Sm#nJ?hL&榒" target="_blank"><em>2024t^10g8/㽤匀ࠀ洀⌀渀䨀㼀栀䰀☀鈀i㰀⼀攀洀㸀㰀⼀愀㸀㰀⼀琀搀㸀㰀⼀琀爀㸀㰀琀爀㸀㰀⼀琀爀㸀㰀⼀琀愀戀氀攀㸀㰀⼀琀搀㸀ഀ਀          㰀⼀琀爀㸀ഀ਀        㰀⼀琀愀戀氀攀㸀ഀ਀      㰀⼀琀搀㸀ഀ਀    㰀⼀琀爀㸀ഀ਀  㰀⼀琀愀戀氀攀㸀㰀⼀琀搀㸀ഀ਀    㰀⼀琀爀㸀ഀ਀  㰀⼀琀愀戀氀攀㸀ഀ਀㰀䌀䔀一吀䔀刀㸀㰀琀愀戀氀攀 挀氀愀猀猀㴀琀漀瀀开樀氀㄀ 戀漀爀搀攀爀㴀　 挀攀氀氀匀瀀愀挀椀渀最㴀　 挀攀氀氀倀愀搀搀椀渀最㴀　 眀椀搀琀栀㴀㤀㠀　 愀氀椀最渀㴀挀攀渀琀攀爀㸀ഀ਀    㰀琀爀㸀ഀ਀      㰀琀搀 挀氀愀猀猀㴀琀漀瀀开栀㄀ 栀攀椀最栀琀㴀㌀㤀 戀愀挀欀最爀漀甀渀搀㴀⼀䤀洀愀最攀⼀昀漀漀琀开戀樀㄀⸀樀瀀最 愀氀椀最渀㴀洀椀搀搀氀攀㸀ഀ਀      㰀℀ⴀⴀ㰀䄀 挀氀愀猀猀㴀稀㈀ 栀爀攀昀㴀∀⼀眀稀昀眀⼀㈀　　㠀㄀㈀⼀㔀　　㤀㜀⸀愀猀瀀∀㸀᠀戀攀甀ࠀ吀尀伀㰀⼀䄀㸀 簀 ⴀⴀ㸀㰀䄀 挀氀愀猀猀㴀稀㈀ 栀爀攀昀㴀∀⼀眀稀昀眀⼀㈀　　㤀　㤀⼀㄀㌀㌀㐀㠀㔀⸀愀猀瀀∀㸀洀甀堀㼀搀글]戀㰀⼀䄀㸀 簀 㰀䄀 挀氀愀猀猀㴀稀㈀ 栀爀攀昀㴀∀⼀眀稀昀眀⼀㈀　　㠀㄀㈀⼀㔀　　㤀㤀⸀愀猀瀀∀㸀䄀㼀戀ഀ最㜀㱎⼀䄀㸀 簀 㰀䄀 挀氀愀猀猀㴀稀㈀ 栀爀攀昀㴀∀⼀眀稀昀眀⼀㈀　　㠀㄀㈀⼀㔀　㄀　　⸀愀猀瀀∀㸀猀儀㔀?b3?/A> 

      <!--| <A class=z2 href="/wzfw/200812/50101.asp">eNSOh??/A>  -->| <A class=z2 href="/wzfw/200812/50102.asp">痡z焁Y?/A> | <A class=z2 href="/wzfw/200812/50095.asp">Q|?W?/A> | <A class=z2 href="/wzfw/200812/50103.asp">LRW)揤]~</A></td>

    </tr>

  </table></CENTER>

<CENTER><table class=foot cellSpacing=0 cellPadding=0 width=980 align=center border=0>

    <tr>

      <td class=h2 align=center>Copyright @ 2020 comelan.com, Inc. All Rights Reserved. <A class=z1 href="/"><STRONG><FONT color=#004499>	~T㼋</FONT></STRONG></A> HrCg@b	g tICPY17032457O?<IMG style="HEIGHT: 17px; WIDTH: 14px" src="/En/UploadFiles_4323/202311/2023113014113718.png" width=61 height=67 wide="16px">tlQQ`XY11011302006917O?BR>St0W@W槍St^zmiN:ST漛帡槍~0W/T*F{VE?1On?O1ni1001
?BR>&賶]0W@W槍`VUN
w&賶]^*Yt[:SWSp?YN65-2<BR>5u/?槍010-64891800槍St	槍0416--3838188槍&賶]	槍

      <script type="text/javascript">var cnzz_protocol = (("https:" == document.location.protocol) ? " https://" : " http://");document.write(unescape("%3Cspan id='cnzz_stat_icon_3895136'%3E%3C/span%3E%3Cscript src='" + cnzz_protocol + "s21.cnzz.com/stat.php%3Fid%3D3895136%26show%3Dpic' type='text/javascript'%3E%3C/script%3E"));</script></td>

    </tr>

  </table> </CENTER>

<script type="text/javascript">

  var _gaq = _gaq || [];

  _gaq.push(['_setAccount', 'UA-18849821-1']);

  _gaq.push(['_setDomainName', 'none']);

  _gaq.push(['_setAllowLinker', true]);

  _gaq.push(['_trackPageview']);

  (function() {

    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>